4 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 1
7 1 TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE"
8 2 ////////////////////////////////////////////////////////////////////////////////
10 4 / Automatic Disassembly of maindec-8e-d2ca-pb.bin
11 5 / Generated 2009 04 06 00:10:32
12 6 / Generated by d8tape version 0.351
13 7 / Visit http://www.pdp12.org/pdp8/software/index.html for updates
16 10 / AIx -- Auto-index variables (address range 001x)
17 11 / Caaaa -- Constants (non-unique)
18 12 / Daaaa -- Data (read/write variables)
19 13 / Kvvvv -- Program-wide unique constants
20 14 / Laaaa -- Labels for control flow targets
21 15 / Saaaa -- Subroutines
24 18 / aaaa is the definition address
25 19 / vvvv is the value of the constant
26 20 / x is the last digit of the address 001x for auto-index variables
28 22 / 3360 locations used, 2552 code and 0606 data
29 23 ////////////////////////////////////////////////////////////////////////////////
33 27 00000 0000 D0000, 0000 / AND L0000
35 29 00001 5001 C0001, 5001 / JMP L0001
36 30 00002 0002 C0002, 0002 / AND C0002
37 31 00003 0003 D0003, 0003 / AND D0003
40 34 00005 5402 D0005, 5402 / JMP I C0002
41 35 00006 0000 C0006, 0000 / AND L0000
44 38 00020 0000 D0020, 0000 / AND L0000
45 39 00021 0000 D0021, 0000 / AND L0000
46 40 00022 0000 D0022, 0000 / AND L0000
47 41 00023 0000 D0023, 0000 / AND L0000
48 42 00024 0000 D0024, 0000 / AND L0000
50 44 00025 0270 C0025, 0270 / AND C0070
52 46 00026 0333 C0026, 0333 / AND D0133
54 48 00027 0447 C0027, 0447 / AND I C0047
55 49 00030 0000 D0030, 0000 / AND L0000
56 50 00031 2000 C0031, 2000 / ISZ L0000
60 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 2
63 51 00032 3000 D0032, 3000 / DCA L0000
64 52 00033 3462 DCA I C0062 / @@0033=3462
65 53 00034 3506 DCA I C0106 / @@0034=3506
66 54 00035 3517 DCA I D0117 / @@0035=3517
67 55 00036 3537 D0036, 3537 / DCA I C0137
68 56 00037 3553 C0037, 3553 / DCA I C0153
69 57 00040 3600 C0040, 3600 / DCA I L0000
70 58 00041 4000 JMS L0000 / @@0041=4000
71 59 00042 4102 C0042, 4102 / JMS C0102
72 60 00043 4110 C0043, 4110 / JMS D0110
73 61 00044 4000 JMS L0000 / @@0044=4200
74 62 00045 4233 C0045, 4233 / JMS C0033
75 63 00046 4132 JMS D0132 / @@0046=4332
77 65 00047 0616 C0047, 0616 / AND I AI6
78 66 00050 0600 C0050, 0600 / AND I L0000
80 68 00051 1050 C0051, 1050 / TAD C0050
82 70 00052 1000 C0052, 1000 / TAD L0000
84 72 00053 1255 C0053, 1255 / TAD C0055
86 74 00054 1273 C0054, 1273 / TAD C0073
88 76 00055 1200 C0055, 1200 / TAD L0000
90 78 00056 1207 C0056, 1207 / TAD C0007
92 80 00057 1214 C0057, 1214 / TAD AI4
94 82 00060 1230 C0060, 1230 / TAD D0030
96 84 00061 1143 C0061, 1143 / TAD C0143
97 85 00062 1145 C0062, 1145 / TAD C0145
98 86 00063 0324 D0063, 0324 / AND C0124
99 87 00064 1311 D0064, 1311 / TAD D0111
101 89 00065 1324 C0065, 1324 / TAD C0124
103 91 00066 1400 C0066, 1400 / TAD I L0000
105 93 00067 1412 C0067, 1412 / TAD I AI2
107 95 00070 1435 C0070, 1435 / TAD I C0035
109 97 00071 0521 C0071, 0521 / AND I D0121
111 99 00072 0513 C0072, 0513 / AND I D0113
116 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 3
119 101 00073 0426 C0073, 0426 / AND I C0026
121 103 00074 0536 C0074, 0536 / AND I D0136
123 105 00075 0400 C0075, 0400 / AND I L0000
125 107 00076 0443 C0076, 0443 / AND I C0043
127 109 00077 1111 C0077, 1111 / TAD D0111
129 111 00100 1117 C0100, 1117 / TAD D0117
131 113 00101 1042 C0101, 1042 / TAD C0042
133 115 00102 0411 C0102, 0411 / AND I AI1
135 117 00103 0733 C0103, 0733 / AND I D0133
136 118 00104 0000 D0104, 0000 / AND L0000
137 119 00105 0000 D0105, 0000 / AND L0000
138 120 00106 7354 C0106, 7354 / CLA CLL CMA RAR RAL
139 121 00107 0000 D0107, 0000 / AND L0000
140 122 00110 0000 D0110, 0000 / AND L0000
141 123 00111 0000 D0111, 0000 / AND L0000
142 124 00112 0000 D0112, 0000 / AND L0000
143 125 00113 0000 D0113, 0000 / AND L0000
144 126 00114 0000 C0114, 0000 / AND L0000
145 127 00115 0000 D0115, 0000 / AND L0000
146 128 00116 0000 D0116, 0000 / AND L0000
147 129 00117 0000 D0117, 0000 / AND L0000
148 130 00120 0000 D0120, 0000 / AND L0000
149 131 00121 0000 D0121, 0000 / AND L0000
150 132 00122 0000 D0122, 0000 / AND L0000
151 133 00123 0000 D0123, 0000 / AND L0000
152 134 00124 0000 C0124, 0000 / AND L0000
153 135 00125 0000 C0125, 0000 / AND L0000
154 136 00126 0000 D0126, 0000 / AND L0000
155 137 00127 0000 D0127, 0000 / AND L0000
156 138 00130 0000 C0130, 0000 / AND L0000
157 139 00131 0000 D0131, 0000 / AND L0000
158 140 00132 0000 D0132, 0000 / AND L0000
159 141 00133 0000 D0133, 0000 / AND L0000
160 142 00134 0000 D0134, 0000 / AND L0000
161 143 00135 0000 D0135, 0000 / AND L0000
162 144 00136 0000 D0136, 0000 / AND L0000
163 145 00137 7600 C0137, 7600 / 7600
164 146 00140 0260 C0140, 0260 / AND C0060
165 147 00141 7704 C0141, 7704 / SMA CLA OSR
166 148 00142 7742 C0142, 7742 / SMA SZA CLA HLT
167 149 00143 7362 C0143, 7362 / CLA CLL CMA CML
168 150 00144 7000 C0144, 7000 / NOP
172 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 4
175 151 00145 7777 C0145, 7777 / CLA MQA SCA MQL LSR +
176 152 00146 7766 C0146, 7766 / SMA SZA SNL CLA OSR HLT
177 153 00147 7634 C0147, 7634 / SZL CLA OSR
178 154 00150 0060 C0150, 0060 / AND C0060
179 155 00151 0252 C0151, 0252 / AND C0052
180 156 00152 0125 C0152, 0125 / AND C0125
181 157 00153 0377 C0153, 0377 / AND C0177
182 158 00154 0020 C0154, 0020 / AND D0020
183 159 00155 0040 C0155, 0040 / AND C0040
184 160 00156 0200 C0156, 0200 / AND L0000
185 161 00157 0400 C0157, 0400 / AND I L0000
186 162 00160 6060 C0160, 6060 / 6060
187 163 00161 0707 C0161, 0707 / AND I D0107
188 164 00162 7700 C0162, 7700 / SMA CLA
190 166 00163 1125 C0163, 1125 / TAD C0125
191 167 00164 0240 C0164, 0240 / AND C0040
192 168 00165 0100 C0165, 0100 / AND C0100
193 169 00166 7740 C0166, 7740 / SMA SZA CLA
194 170 00167 7510 C0167, 7510 / SPA
195 171 00170 7500 C0170, 7500 / SMA
196 172 00171 0077 C0171, 0077 / AND C0077
197 173 00172 1130 C0172, 1130 / TAD C0130
198 174 00173 7640 C0173, 7640 / SZA CLA
199 175 00174 0177 C0174, 0177 / AND C0177
200 176 00175 0031 C0175, 0031 / AND C0031
201 177 00176 7763 C0176, 7763 / CLA MQA SCA MQL SCL +
202 178 00177 0017 C0177, 0017 / AND AI7
203 179 00200 7410 SKP / @@0200=7410
205 181 00201 7602 CLA HLT / @@0201=7602
206 182 00202 7604 LAS / @@0202=7604
207 183 00203 0177 AND C0177 / @@0203=0177
208 184 00204 1176 TAD C0176 / @@0204=1176
209 185 00205 7540 SMA SZA / @@0205=7540
210 186 00206 5201 JMP L0201 / @@0206=5201
211 187 00207 7604 LAS / @@0207=7604
212 188 00210 0177 AND C0177 / @@0210=0177
213 189 00211 3030 DCA D0030 / @@0211=3030
214 190 00212 1030 TAD D0030 / @@0212=1030
215 191 00213 1175 TAD C0175 / @@0213=1175
216 192 00214 3113 DCA D0113 / @@0214=3113
217 193 00215 1513 TAD I D0113 / @@0215=1513
218 194 00216 3240 DCA D0240 / @@0216=3240
219 195 00217 4474 JMS I C0074 / long call to S0536 @@0217=4474
220 196 00220 0005 AND D0005 / @@0220=0005
221 197 00221 0001 AND L0001 / @@0221=0001
222 198 00222 7776 SPA SNA SZL CLA OSR HLT / @@0222=7776
223 199 00223 3113 DCA D0113 / @@0223=3113
224 200 00224 4474 JMS I C0074 / long call to S0536 @@0224=4474
228 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 5
231 201 00225 0113 AND D0113 / @@0225=0113
232 202 00226 0114 AND C0114 / @@0226=0114
233 203 00227 7760 SMA SZA SNL CLA / @@0227=7760
234 204 00230 4475 JMS I C0075 / long call to S0400 @@0230=4475
235 205 00231 1075 TAD C0075 / @@0231=1075
236 206 00232 7402 HLT / @@0232=7402
237 207 00233 1174 TAD C0174 / @@0233=1174
238 208 00234 3104 DCA D0104 / @@0234=3104
239 209 00235 1173 TAD C0173 / @@0235=1173
240 210 00236 3572 DCA I C0172 / @@0236=3572
241 211 00237 5640 JMP I D0240 / long jump to L0000 @@0237=5640
242 212 00240 0000 D0240, 0000 / AND L0000
244 214 00241 7602 CLA HLT / @@0241=7602
246 216 00242 7200 CLA / @@0242=7200
247 217 00243 1020 TAD D0020 / @@0243=1020
248 218 00244 3117 DCA D0117 / @@0244=3117
250 220 00245 4307 JMS S0307 / @@0245=4307
251 221 00246 4476 JMS I C0076 / long call to S0443 @@0246=4476
252 222 00247 7006 RTL / @@0247=7006
253 223 00250 7420 SNL / @@0250=7420
254 224 00251 5515 JMP I D0115 / long jump to L0000 @@0251=5515
255 225 00252 4476 JMS I C0076 / long call to S0443 @@0252=4476
256 226 00253 0177 AND C0177 / @@0253=0177
257 227 00254 7041 CIA / @@0254=7041
258 228 00255 1116 TAD D0116 / @@0255=1116
259 229 00256 7650 SNA CLA / @@0256=7650
260 230 00257 5515 JMP I D0115 / long jump to L0000 @@0257=5515
261 231 00260 1117 TAD D0117 / @@0260=1117
262 232 00261 7001 IAC / @@0261=7001
263 233 00262 7640 SZA CLA / @@0262=7640
264 234 00263 5245 JMP L0245 / @@0263=5245
265 235 00264 4447 JMS I C0047 / long call to S0616 @@0264=4447
266 236 00265 1560 TAD I C0160 / @@0265=1560
267 237 00266 7602 CLA HLT / @@0266=7602
268 238 00267 5242 JMP L0242 / @@0267=5242
270 240 00270 4426 JMS I C0026 / long call to S0333 @@0270=4426
271 241 00271 4476 JMS I C0076 / long call to S0443 @@0271=4476
272 242 00272 7006 RTL / @@0272=7006
273 243 00273 7630 SZL CLA / @@0273=7630
274 244 00274 5242 JMP L0242 / @@0274=5242
275 245 00275 1117 TAD D0117 / @@0275=1117
276 246 00276 7001 IAC / @@0276=7001
277 247 00277 7640 SZA CLA / @@0277=7640
278 248 00300 5245 JMP L0245 / @@0300=5245
279 249 00301 4476 JMS I C0076 / long call to S0443 @@0301=4476
280 250 00302 7006 RTL / @@0302=7006
284 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 6
287 251 00303 7710 SPA CLA / @@0303=7710
288 252 00304 5242 JMP L0242 / @@0304=5242
289 253 00305 7402 HLT / @@0305=7402
290 254 00306 5270 JMP L0270 / @@0306=5270
292 256 ////////////////////////////////////////////////////////////////////////////////
294 258 / SUBROUTINE: S0307
298 262 / Total 0001 (1) calls
299 263 ////////////////////////////////////////////////////////////////////////////////
301 265 00307 0000 0 / return area
302 266 00310 7300 CLA CLL / AC = 0000 @@0310=7300
303 267 00311 1517 TAD I D0117 / @@0311=1517
304 268 00312 3116 DCA D0116 / @@0312=3116
305 269 00313 2117 ISZ D0117 / @@0313=2117
306 270 00314 1117 TAD D0117 / @@0314=1117
307 271 00315 3113 DCA D0113 / @@0315=3113
308 272 00316 2117 ISZ D0117 / @@0316=2117
309 273 00317 1117 TAD D0117 / @@0317=1117
310 274 00320 3115 DCA D0115 / @@0320=3115
311 275 00321 1513 TAD I D0113 / @@0321=1513
312 276 00322 3117 DCA D0117 / @@0322=3117
313 277 00323 5707 JMP I S0307 / return @@0323=5707
315 279 00324 0000 C0324, 0000 / AND L0000
317 281 00325 4427 JMS I C0027 / long call to S0447 @@0325=4427
318 282 00326 0177 AND C0177 / @@0326=0177
319 283 00327 7450 SNA / @@0327=7450
320 284 00330 5325 JMP L0325 / @@0330=5325
321 285 00331 7041 CIA / @@0331=7041
322 286 00332 5724 JMP I C0324 / long jump to L0000 @@0332=5724
324 288 ////////////////////////////////////////////////////////////////////////////////
326 290 / SUBROUTINE: S0333
330 294 / Total 0001 (1) calls
331 295 ////////////////////////////////////////////////////////////////////////////////
333 297 00333 0000 0 / return area
334 298 00334 4476 JMS I C0076 / long call to S0443 @@0334=4476
335 299 00335 7700 SMA CLA / @@0335=7700
336 300 00336 5733 JMP I S0333 / return @@0336=5733
340 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 7
343 301 00337 1116 TAD D0116 / @@0337=1116
344 302 00340 7402 HLT / @@0340=7402
345 303 00341 5733 JMP I S0333 / return @@0341=5733
349 307 ////////////////////////////////////////////////////////////////////////////////
351 309 / SUBROUTINE: S0400
354 312 / 0230 1215 1234 1325 1330 2003 2641 2663 2701 3003 3402 3424 3443 3462 3520
355 313 / 3557 3603 3610 3613 3616 3675 3714 3723 3732 3745 4000 4003 4006 4110 4266
357 315 / Total 0036 (30) calls
358 316 ////////////////////////////////////////////////////////////////////////////////
360 318 00400 0000 0 / return area
361 319 00401 7200 CLA / @@0401=7200
362 320 00402 1600 TAD I S0400 / @@0402=1600
363 321 00403 3113 DCA D0113 / @@0403=3113
364 322 00404 2200 ISZ S0400 / @@0404=2200
365 323 00405 1600 TAD I S0400 / @@0405=1600
366 324 00406 3513 DCA I D0113 / @@0406=3513
367 325 00407 2200 ISZ S0400 / @@0407=2200
368 326 00410 5600 D0410, 5600 / JMP I S0400
370 328 ////////////////////////////////////////////////////////////////////////////////
372 330 / SUBROUTINE: S0411
375 333 / 1141 2017 2034 2225 2446 2731 2733 2761 2771 2776 3043 3225 4060 4355
376 334 / Total 0016 (14) calls
377 335 ////////////////////////////////////////////////////////////////////////////////
379 337 00411 0000 0 / return area
380 338 00412 7300 CLA CLL / AC = 0000 @@0412=7300
381 339 00413 1021 TAD D0021 / @@0413=1021
382 340 00414 3120 DCA D0120 / @@0414=3120
383 341 00415 5616 JMP I C0416 / long jump to L0417 @@0415=5616
385 343 00416 0417 C0416, 0417 / AND I AI7
387 345 00417 1106 TAD C0106 / @@0417=1106
388 346 00420 3121 DCA D0121 / @@0420=3121
390 348 00421 2121 ISZ D0121 / @@0421=2121
391 349 00422 5221 JMP L0421 / @@0422=5221
392 350 00423 2120 ISZ D0120 / @@0423=2120
396 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 8
399 351 00424 5217 JMP L0417 / @@0424=5217
400 352 00425 5611 JMP I S0411 / return @@0425=5611
402 354 ////////////////////////////////////////////////////////////////////////////////
404 356 / SUBROUTINE: S0426
408 360 / Total 0002 (2) calls
409 361 ////////////////////////////////////////////////////////////////////////////////
411 363 00426 0000 0 / return area
412 364 00427 2126 ISZ D0126 / @@0427=2126
413 365 00430 6046 TLS / Load the TTO from the content of AC4 @@0430=6046
414 366 00431 7200 CLA / @@0431=7200
416 368 00432 1126 TAD D0126 / @@0432=1126
417 369 00433 7640 SZA CLA / @@0433=7640
418 370 00434 7410 SKP / @@0434=7410
419 371 00435 5240 JMP L0440 / @@0435=5240
420 372 00436 6041 TSF / Skip if teleprinter flag is a 1. @@0436=6041
421 373 00437 5232 JMP L0432 / @@0437=5232
423 375 00440 6042 C0440, 6042 / TCF
424 376 00441 3126 DCA D0126 / @@0441=3126
425 377 00442 5626 JMP I S0426 / return @@0442=5626
427 379 ////////////////////////////////////////////////////////////////////////////////
429 381 / SUBROUTINE: S0443
432 384 / 0246 0252 0271 0301 0334 1072 1076 1102 1126 1132
433 385 / Total 0012 (10) calls
434 386 ////////////////////////////////////////////////////////////////////////////////
436 388 00443 0000 0 / return area
437 389 00444 7604 LAS / @@0444=7604
438 390 00445 0105 AND D0105 / @@0445=0105
439 391 00446 5643 JMP I S0443 / return @@0446=5643
441 393 ////////////////////////////////////////////////////////////////////////////////
443 395 / SUBROUTINE: S0447
447 399 / Total 0002 (2) calls
448 400 ////////////////////////////////////////////////////////////////////////////////
452 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 9
456 402 00447 0000 0 / return area
457 403 00450 7200 CLA / @@0450=7200
458 404 00451 1311 TAD C0511 / @@0451=1311
459 405 00452 1276 TAD D0476 / @@0452=1276
460 406 00453 7640 SZA CLA / @@0453=7640
461 407 00454 5264 JMP L0464 / @@0454=5264
462 408 00455 1300 TAD C0500 / @@0455=1300
463 409 00456 3276 DCA D0476 / @@0456=3276
464 410 00457 1277 TAD D0477 / @@0457=1277
465 411 00460 7104 CLL RAL / @@0460=7104
466 412 00461 7430 SZL / @@0461=7430
467 413 00462 7001 IAC / @@0462=7001
468 414 00463 3277 DCA D0477 / @@0463=3277
470 416 00464 1277 TAD D0477 / @@0464=1277
471 417 00465 1676 TAD I D0476 / @@0465=1676
472 418 00466 3676 DCA I D0476 / @@0466=3676
473 419 00467 1312 TAD D0512 / @@0467=1312
474 420 00470 7010 RAR / @@0470=7010
475 421 00471 1676 TAD I D0476 / @@0471=1676
476 422 00472 2276 ISZ D0476 / @@0472=2276
477 423 00473 3312 DCA D0512 / @@0473=3312
478 424 00474 1312 TAD D0512 / @@0474=1312
479 425 00475 5647 JMP I S0447 / return @@0475=5647
480 426 00476 0511 D0476, 0511 / AND I D0111
481 427 00477 6543 D0477, 6543 / 6543
482 428 00500 0501 C0500, 0501 / AND I C0101
483 429 00501 6543 C0501, 6543 / 6543
484 430 00502 3210 DCA D0410 / @@0502=3210
485 431 00503 0765 C0503, 0765 / AND I C0565
486 432 00504 5432 JMP I D0032 / long jump to L3000 @@0504=5432
487 433 00505 2107 ISZ D0107 / @@0505=2107
488 434 00506 7654 SNA CLA OSR / @@0506=7654
489 435 00507 4321 JMS S0521 / @@0507=4321
490 436 00510 1076 TAD C0076 / @@0510=1076
491 437 00511 7267 C0511, 7267 / CLA CMA CML IAC RTL
492 438 00512 0000 D0512, 0000 / AND L0000
494 440 ////////////////////////////////////////////////////////////////////////////////
496 442 / SUBROUTINE: S0513
500 446 / Total 0001 (1) calls
501 447 ////////////////////////////////////////////////////////////////////////////////
503 449 00513 0000 0 / return area
504 450 00514 4427 JMS I C0027 / long call to S0447 @@0514=4427
508 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 10
511 451 00515 0174 AND C0174 / @@0515=0174
512 452 00516 7041 CIA / @@0516=7041
513 453 00517 3021 DCA D0021 / @@0517=3021
514 454 00520 5713 JMP I S0513 / return @@0520=5713
516 456 ////////////////////////////////////////////////////////////////////////////////
518 458 / SUBROUTINE: S0521
522 462 / Total 0002 (2) calls
523 463 ////////////////////////////////////////////////////////////////////////////////
525 465 00521 0000 0 / return area
526 466 00522 3335 DCA D0535 / @@0522=3335
527 467 00523 1721 TAD I S0521 / @@0523=1721
528 468 00524 7041 CIA / @@0524=7041
529 469 00525 1335 TAD D0535 / @@0525=1335
530 470 00526 2321 ISZ S0521 / @@0526=2321
531 471 00527 7640 SZA CLA / @@0527=7640
532 472 00530 5333 JMP L0533 / @@0530=5333
533 473 00531 2321 ISZ S0521 / @@0531=2321
534 474 00532 5721 JMP I S0521 / return @@0532=5721
536 476 00533 1335 TAD D0535 / @@0533=1335
537 477 00534 5721 JMP I S0521 / return @@0534=5721
538 478 00535 0000 D0535, 0000 / AND L0000
540 480 ////////////////////////////////////////////////////////////////////////////////
542 482 / SUBROUTINE: S0536
545 485 / 0217 0224 3541 3553
546 486 / Total 0004 (4) calls
547 487 ////////////////////////////////////////////////////////////////////////////////
549 489 00536 0000 0 / return area
550 490 00537 7200 CLA / @@0537=7200
551 491 00540 1736 TAD I S0536 / @@0540=1736
552 492 00541 3361 DCA D0561 / @@0541=3361
553 493 00542 2336 ISZ S0536 / @@0542=2336
554 494 00543 1736 TAD I S0536 / @@0543=1736
555 495 00544 3362 DCA D0562 / @@0544=3362
556 496 00545 2336 ISZ S0536 / @@0545=2336
557 497 00546 1736 TAD I S0536 / @@0546=1736
558 498 00547 3363 DCA D0563 / @@0547=3363
559 499 00550 2336 ISZ S0536 / @@0550=2336
564 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 11
567 501 00551 7200 CLA / @@0551=7200
568 502 00552 1761 TAD I D0561 / @@0552=1761
569 503 00553 3762 DCA I D0562 / @@0553=3762
570 504 00554 2361 ISZ D0561 / @@0554=2361
571 505 00555 2362 ISZ D0562 / @@0555=2362
572 506 00556 2363 ISZ D0563 / @@0556=2363
573 507 00557 5351 JMP L0551 / @@0557=5351
574 508 00560 5736 JMP I S0536 / return @@0560=5736
575 509 00561 0000 D0561, 0000 / AND L0000
576 510 00562 0000 D0562, 0000 / AND L0000
577 511 00563 0000 D0563, 0000 / AND L0000
580 514 00600 0000 D0600, 0000 / AND L0000
581 515 00601 7200 CLA / @@0601=7200
582 516 00602 1600 TAD I D0600 / @@0602=1600
583 517 00603 3215 DCA D0615 / @@0603=3215
584 518 00604 2200 ISZ D0600 / @@0604=2200
586 520 00605 4447 JMS I C0047 / long call to S0616 @@0605=4447
587 521 00606 0612 AND I C0612 / @@0606=0612
588 522 00607 2215 ISZ D0615 / @@0607=2215
589 523 00610 5205 JMP L0605 / @@0610=5205
590 524 00611 5600 JMP I D0600 / long jump to L0000 @@0611=5600
591 525 00612 0015 C0612, 0015 / AND AI5
592 526 00613 0012 C0613, 0012 / AND AI2
593 527 00614 0001 AND L0001 / @@0614=0001
594 528 00615 0000 D0615, 0000 / AND L0000
596 530 ////////////////////////////////////////////////////////////////////////////////
598 532 / SUBROUTINE: S0616
601 535 / 0264 0605 0730 1061 1070 4065 4225 4252 4262
602 536 / Total 0011 (9) calls
603 537 ////////////////////////////////////////////////////////////////////////////////
605 539 00616 0000 0 / return area
606 540 00617 7200 CLA / @@0617=7200
607 541 00620 1616 TAD I S0616 / @@0620=1616
608 542 00621 3300 DCA D0700 / @@0621=3300
609 543 00622 3302 DCA D0702 / @@0622=3302
610 544 00623 2216 ISZ S0616 / @@0623=2216
612 546 00624 1700 TAD I D0700 / @@0624=1700
613 547 00625 7012 RTR / @@0625=7012
614 548 00626 7012 RTR / @@0626=7012
615 549 00627 7012 RTR / @@0627=7012
616 550 00630 4235 JMS S0635 / @@0630=4235
620 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 12
623 551 00631 1700 TAD I D0700 / @@0631=1700
624 552 00632 4235 JMS S0635 / @@0632=4235
625 553 00633 2300 ISZ D0700 / @@0633=2300
626 554 00634 5224 JMP L0624 / @@0634=5224
628 556 ////////////////////////////////////////////////////////////////////////////////
630 558 / SUBROUTINE: S0635
634 562 / Total 0002 (2) calls
635 563 ////////////////////////////////////////////////////////////////////////////////
637 565 00635 0000 0 / return area
638 566 00636 0171 AND C0171 / @@0636=0171
639 567 00637 3301 C0637, 3301 / DCA D0701
640 568 00640 1302 TAD D0702 / @@0640=1302
641 569 00641 7640 SZA CLA / @@0641=7640
642 570 00642 5252 JMP L0652 / @@0642=5252
643 571 00643 1301 TAD D0701 / @@0643=1301
644 572 00644 7450 SNA / @@0644=7450
645 573 00645 5250 JMP L0650 / @@0645=5250
647 575 00646 4271 JMS S0671 / @@0646=4271
648 576 00647 5635 JMP I S0635 / return @@0647=5635
650 578 00650 2302 ISZ D0702 / @@0650=2302
651 579 00651 5635 JMP I S0635 / return @@0651=5635
653 581 00652 3302 DCA D0702 / @@0652=3302
654 582 00653 1301 TAD D0701 / @@0653=1301
655 583 00654 7041 CIA / @@0654=7041
656 584 00655 7450 SNA / @@0655=7450
657 585 00656 5246 JMP L0646 / @@0656=5246
658 586 00657 7001 IAC / @@0657=7001
659 587 00660 7650 SNA CLA / @@0660=7650
660 588 00661 5616 JMP I S0616 / return @@0661=5616
661 589 00662 1170 TAD C0170 / @@0662=1170
662 590 00663 3273 DCA D0673 / @@0663=3273
663 591 00664 1301 TAD D0701 / @@0664=1301
664 592 00665 4271 JMS S0671 / @@0665=4271
665 593 00666 1167 TAD C0167 / @@0666=1167
666 594 00667 3273 DCA D0673 / @@0667=3273
667 595 00670 5635 JMP I S0635 / return @@0670=5635
669 597 ////////////////////////////////////////////////////////////////////////////////
671 599 / SUBROUTINE: S0671
676 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 13
681 603 / Total 0002 (2) calls
682 604 ////////////////////////////////////////////////////////////////////////////////
684 606 00671 0000 0 / return area
685 607 00672 1166 TAD C0166 / @@0672=1166
686 608 00673 7510 D0673, 7510 / SPA
687 609 00674 1165 TAD C0165 / @@0674=1165
688 610 00675 1164 TAD C0164 / @@0675=1164
689 611 00676 4473 JMS I C0073 / long call to S0426 @@0676=4473
690 612 00677 5671 JMP I S0671 / return @@0677=5671
691 613 00700 0000 D0700, 0000 / AND L0000
692 614 00701 0000 D0701, 0000 / AND L0000
693 615 00702 0000 D0702, 0000 / AND L0000
694 616 00703 3023 DCA D0023 / @@0703=3023
695 617 00704 7010 RAR / @@0704=7010
696 618 00705 3024 DCA D0024 / @@0705=3024
697 619 00706 6011 RSF / Skip if reader flag is a 1. @@0706=6011
698 620 00707 5312 JMP L0712 / @@0707=5312
699 621 00710 5711 JMP I C0711 / long jump to L0000 @@0710=5711
701 623 00711 0000 C0711, 0000 / AND L0000
703 625 00712 6021 PSF / Skip if punch flag is a 1 @@0712=6021
704 626 00713 5317 JMP L0717 / @@0713=5317
705 627 00714 4563 JMS I C0163 / long call to S1125 @@0714=4563
706 628 00715 5716 JMP I C0716 / long jump to L0000 @@0715=5716
708 630 00716 0000 C0716, 0000 / AND L0000
710 632 00717 6031 KSF / Skip if keyboard flag is a 1. @@0717=6031
711 633 00720 5323 JMP L0723 / @@0720=5323
712 634 00721 6032 KCC / Clear AC and clear keyboard flag. @@0721=6032
713 635 00722 5503 JMP I C0103 / long jump to L0733 @@0722=5503
715 637 00723 6041 TSF / Skip if teleprinter flag is a 1. @@0723=6041
716 638 00724 5330 JMP L0730 / @@0724=5330
717 639 00725 6042 TCF / Clear teleprinter flag. @@0725=6042
718 640 00726 3126 DCA D0126 / @@0726=3126
719 641 00727 5503 JMP I C0103 / long jump to L0733 @@0727=5503
721 643 00730 4447 JMS I C0047 / long call to S0616 @@0730=4447
722 644 00731 1501 TAD I C0101 / @@0731=1501
723 645 00732 7602 CLA HLT / @@0732=7602
725 647 00733 7300 C0733, 7300 / CLA CLL
726 648 00734 1024 TAD D0024 / @@0734=1024
727 649 00735 7004 RAL / @@0735=7004
728 650 00736 1023 TAD D0023 / @@0736=1023
732 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 14
735 651 00737 6001 ION / Enable Interrupts @@0737=6001
736 652 00740 5400 JMP I L0000 / long jump to L0000 @@0740=5400
737 653 00741 6022 PCF / Clear punch flag and punch buffer. @@0741=6022
738 654 00742 5503 JMP I C0103 / long jump to L0733 @@0742=5503
739 655 00743 0000 RFB / Read the content of the reader buffe @@0743=6012
741 656 00744 5503 JMP I C0103 / long jump to L0733 @@0744=5503
745 660 ////////////////////////////////////////////////////////////////////////////////
747 662 / SUBROUTINE: S1000
750 665 / 1051 1054 1152 1155 2620 2623 4033 4036 4042
751 666 / Total 0011 (9) calls
752 667 ////////////////////////////////////////////////////////////////////////////////
754 669 01000 0000 0 / return area
755 670 01001 7200 C1001, 7200 / CLA
756 671 01002 1600 TAD I S1000 / @@1002=1600
757 672 01003 3237 DCA D1037 / @@1003=3237
758 673 01004 2200 C1004, 2200 / ISZ S1000
759 674 01005 1600 TAD I S1000 / @@1005=1600
760 675 01006 3240 DCA D1040 / @@1006=3240
761 676 01007 2200 ISZ S1000 / @@1007=2200
762 677 01010 1162 TAD C0162 / @@1010=1162
763 678 01011 0637 C1011, 0637 / AND I D1037
764 679 01012 7112 CLL RTR / @@1012=7112
765 680 01013 7012 RTR / @@1013=7012
766 681 01014 7012 RTR / @@1014=7012
767 682 01015 4224 JMS S1024 / @@1015=4224
768 683 01016 2240 ISZ D1040 / @@1016=2240
769 684 01017 1162 TAD C0162 / @@1017=1162
770 685 01020 7040 CMA / @@1020=7040
771 686 01021 0637 AND I D1037 / @@1021=0637
772 687 01022 4224 JMS S1024 / @@1022=4224
773 688 01023 5600 JMP I S1000 / return @@1023=5600
775 690 ////////////////////////////////////////////////////////////////////////////////
777 692 / SUBROUTINE: S1024
781 696 / Total 0002 (2) calls
782 697 ////////////////////////////////////////////////////////////////////////////////
784 699 01024 0000 0 / return area
788 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 15
791 700 01025 3241 DCA D1041 / @@1025=3241
792 701 01026 1241 TAD D1041 / @@1026=1241
793 702 01027 7006 RTL / @@1027=7006
794 703 01030 7004 RAL / @@1030=7004
795 704 01031 0161 AND C0161 / @@1031=0161
796 705 01032 1241 TAD D1041 / @@1032=1241
797 706 01033 0161 AND C0161 / @@1033=0161
798 707 01034 1160 TAD C0160 / @@1034=1160
799 708 01035 3640 DCA I D1040 / @@1035=3640
800 709 01036 5624 JMP I S1024 / return @@1036=5624
801 710 01037 0000 D1037, 0000 / AND L0000
802 711 01040 0000 D1040, 0000 / AND L0000
803 712 01041 0000 D1041, 0000 / AND L0000
805 714 ////////////////////////////////////////////////////////////////////////////////
807 716 / SUBROUTINE: S1042
810 719 / 2014 2031 2724 2755 2767 2774 3036 4054
811 720 / Total 0010 (8) calls
812 721 ////////////////////////////////////////////////////////////////////////////////
814 723 01042 0000 0 / return area
815 724 01043 7200 CLA / @@1043=7200
816 725 01044 1642 TAD I S1042 / @@1044=1642
817 726 01045 3021 DCA D0021 / @@1045=3021
818 727 01046 2242 ISZ S1042 / @@1046=2242
819 728 01047 5642 JMP I S1042 / return @@1047=5642
821 730 ////////////////////////////////////////////////////////////////////////////////
823 732 / SUBROUTINE: S1050
826 735 / 1160 2025 2052 2073 2137 2220 2412 2442 2626 2675 2736 2751 3017 3051 3076
827 736 / 3147 3220 3415 3437 4046
828 737 / Total 0024 (20) calls
829 738 ////////////////////////////////////////////////////////////////////////////////
831 740 01050 0000 0 / return area
832 741 01051 4452 JMS I C0052 / long call to S1000 @@1051=4452
833 742 01052 0030 AND D0030 / @@1052=0030
834 743 01053 1471 TAD I C0071 / @@1053=1471
835 744 01054 4452 JMS I C0052 / long call to S1000 @@1054=4452
836 745 01055 0116 AND D0116 / @@1055=0116
837 746 01056 1474 TAD I C0074 / @@1056=1474
838 747 01057 1650 TAD I S1050 / @@1057=1650
839 748 01060 3710 DCA I C1110 / @@1060=3710
840 749 01061 4447 JMS I C0047 / long call to S0616 @@1061=4447
844 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 16
847 750 01062 1466 TAD I C0066 / @@1062=1466
848 751 01063 2250 ISZ S1050 / @@1063=2250
849 752 01064 1650 TAD I S1050 / @@1064=1650
850 753 01065 7450 SNA / @@1065=7450
851 754 01066 5272 JMP L1072 / @@1066=5272
852 755 01067 3271 DCA D1071 / @@1067=3271
853 756 01070 4447 JMS I C0047 / long call to S0616 @@1070=4447
854 757 01071 0000 D1071, 0000 / AND L0000
856 759 01072 4476 JMS I C0076 / long call to S0443 @@1072=4476
857 760 01073 0157 AND C0157 / @@1073=0157
858 761 01074 7650 SNA CLA / @@1074=7650
859 762 01075 7402 HLT / @@1075=7402
860 763 01076 4476 JMS I C0076 / long call to S0443 @@1076=4476
861 764 01077 0156 AND C0156 / @@1077=0156
862 765 01100 7640 SZA CLA / @@1100=7640
863 766 01101 5425 JMP I C0025 / long jump to L0270 @@1101=5425
864 767 01102 4476 JMS I C0076 / long call to S0443 @@1102=4476
865 768 01103 0165 AND C0165 / @@1103=0165
866 769 01104 7640 SZA CLA / @@1104=7640
867 770 01105 2250 ISZ S1050 / @@1105=2250
868 771 01106 2250 ISZ S1050 / @@1106=2250
869 772 01107 5650 JMP I S1050 / return @@1107=5650
870 773 01110 1476 C1110, 1476 / TAD I C0076
872 775 ////////////////////////////////////////////////////////////////////////////////
874 777 / SUBROUTINE: S1111
877 780 / 2012 2040 2066 2402 2432 2602 2661 2721 3012 3034 3065 3232 3247 3263 3422
878 781 / 3466 3700 3743 4346
879 782 / Total 0023 (19) calls
880 783 ////////////////////////////////////////////////////////////////////////////////
882 785 01111 0000 0 / return area
883 786 01112 7200 CLA / @@1112=7200
884 787 01113 1711 TAD I S1111 / @@1113=1711
885 788 01114 3122 DCA D0122 / @@1114=3122
886 789 01115 2311 ISZ S1111 / @@1115=2311
887 790 01116 5711 JMP I S1111 / return @@1116=5711
889 792 ////////////////////////////////////////////////////////////////////////////////
891 794 / SUBROUTINE: S1117
895 798 / Total 0001 (1) calls
896 799 ////////////////////////////////////////////////////////////////////////////////
900 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 17
904 801 01117 0000 0 / return area
905 802 01120 7200 CLA / @@1120=7200
906 803 01121 1717 TAD I S1117 / @@1121=1717
907 804 01122 3123 DCA D0123 / @@1122=3123
908 805 01123 2317 ISZ S1117 / @@1123=2317
909 806 01124 5717 JMP I S1117 / return @@1124=5717
911 808 ////////////////////////////////////////////////////////////////////////////////
913 810 / SUBROUTINE: S1125
916 813 / 0714 3501 3515 3551 4121
917 814 / Total 0005 (5) calls
918 815 ////////////////////////////////////////////////////////////////////////////////
920 817 01125 0000 0 / return area
921 818 01126 4476 JMS I C0076 / long call to S0443 @@1126=4476
922 819 01127 0155 AND C0155 / @@1127=0155
923 820 01130 7640 D1130, 7640 / SZA CLA
924 821 01131 5725 JMP I S1125 / return @@1131=5725
925 822 01132 4476 JMS I C0076 / long call to S0443 @@1132=4476
926 823 01133 0154 AND C0154 / @@1133=0154
927 824 01134 7640 SZA CLA / @@1134=7640
928 825 01135 7410 SKP / @@1135=7410
929 826 01136 4472 JMS I C0072 / long call to S0513 @@1136=4472
930 827 01137 1021 TAD D0021 / @@1137=1021
931 828 01140 7440 SZA / @@1140=7440
932 829 01141 4502 JMS I C0102 / long call to S0411 @@1141=4502
933 830 01142 5725 JMP I S1125 / return @@1142=5725
935 832 ////////////////////////////////////////////////////////////////////////////////
937 834 / SUBROUTINE: S1143
940 837 / 3475 3534 3573 3707
941 838 / Total 0004 (4) calls
942 839 ////////////////////////////////////////////////////////////////////////////////
944 841 01143 0000 0 / return area
945 842 01144 4471 JMS I C0071 / long call to S0521 @@1144=4471
946 843 01145 0000 D1145, 0000 / AND L0000
947 844 01146 5351 JMP L1151 / @@1146=5351
948 845 01147 2343 ISZ S1143 / @@1147=2343
949 846 01150 5743 JMP I S1143 / return @@1150=5743
951 848 01151 3131 DCA D0131 / @@1151=3131
952 849 01152 4452 JMS I C0052 / long call to S1000 @@1152=4452
956 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 18
959 850 01153 1145 TAD C0145 / @@1153=1145
960 851 01154 1604 TAD I C1004 / @@1154=1604
961 852 01155 4452 JMS I C0052 / long call to S1000 @@1155=4452
962 853 01156 0131 AND D0131 / @@1156=0131
963 854 01157 1611 TAD I C1011 / @@1157=1611
964 855 01160 4451 JMS I C0051 / long call to S1050 @@1160=4451
965 856 01161 4040 C1161, 4040 / JMS C0040
966 857 01162 1601 TAD I C1001 / @@1162=1601
967 858 01163 5743 JMP I S1143 / return @@1163=5743
968 859 01164 5743 JMP I S1143 / return @@1164=5743
972 863 ////////////////////////////////////////////////////////////////////////////////
974 865 / SUBROUTINE: S1200
977 868 / 1313 1315 1317 3474 3525 3533 3564 3572
978 869 / Total 0010 (8) calls
979 870 ////////////////////////////////////////////////////////////////////////////////
981 872 01200 0000 0 / return area
982 873 01201 6014 RFC / Clear reader flag and reader buffer, @@1201=6014
984 875 01202 6011 RSF / Skip if reader flag is a 1. @@1202=6011
985 876 01203 5202 JMP L1202 / @@1203=5202
986 877 01204 7200 CLA / @@1204=7200
987 878 01205 0000 RFB / Read the content of the reader buffe @@1205=6012
989 879 01206 5600 JMP I S1200 / return @@1206=5600
991 881 ////////////////////////////////////////////////////////////////////////////////
993 883 / SUBROUTINE: S1207
996 886 / 1241 3514 3550 4115 4120
997 887 / Total 0005 (5) calls
998 888 ////////////////////////////////////////////////////////////////////////////////
1000 890 01207 0000 0 / return area
1001 891 01210 6026 PLS / Clear the punch flag, clear the bunc @@1210=6026
1003 893 01211 6021 PSF / Skip if punch flag is a 1 @@1211=6021
1004 894 01212 5211 JMP L1211 / @@1212=5211
1005 895 01213 5607 JMP I S1207 / return @@1213=5607
1007 897 ////////////////////////////////////////////////////////////////////////////////
1012 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 19
1015 899 / SUBROUTINE: S1214
1018 902 / 1231 3507 3540
1019 903 / Total 0003 (3) calls
1020 904 ////////////////////////////////////////////////////////////////////////////////
1022 906 01214 0000 0 / return area
1023 907 01215 4475 JMS I C0075 / long call to S0400 @@1215=4475
1024 908 01216 1227 TAD D1227 / @@1216=1227
1025 909 01217 7634 SZL CLA OSR / @@1217=7634
1027 911 01220 7200 CLA / @@1220=7200
1028 912 01221 6026 PLS / Clear the punch flag, clear the bunc @@1221=6026
1030 914 01222 6021 PSF / Skip if punch flag is a 1 @@1222=6021
1031 915 01223 5222 JMP L1222 / @@1223=5222
1032 916 01224 2227 ISZ D1227 / @@1224=2227
1033 917 01225 5220 JMP L1220 / @@1225=5220
1034 918 01226 5614 JMP I S1214 / return @@1226=5614
1035 919 01227 0000 D1227, 0000 / AND L0000
1037 921 ////////////////////////////////////////////////////////////////////////////////
1039 923 / SUBROUTINE: S1230
1043 927 / Total 0002 (2) calls
1044 928 ////////////////////////////////////////////////////////////////////////////////
1046 930 01230 0000 0 / return area
1047 931 01231 4214 JMS S1214 / @@1231=4214
1048 932 01232 4500 JMS I C0100 / long call to S1117 @@1232=4500
1049 933 01233 7767 C1233, 7767 / CLA MQA SCA MQL DVI +
1050 934 01234 4475 JMS I C0075 / long call to S0400 @@1234=4475
1051 935 01235 1246 TAD D1246 / @@1235=1246
1052 936 01236 1521 TAD I D0121 / @@1236=1521
1054 938 01237 7200 CLA / @@1237=7200
1055 939 01240 1646 TAD I D1246 / @@1240=1646
1056 940 01241 4207 JMS S1207 / @@1241=4207
1057 941 01242 2246 ISZ D1246 / @@1242=2246
1058 942 01243 2123 ISZ D0123 / @@1243=2123
1059 943 01244 5237 JMP L1237 / @@1244=5237
1060 944 01245 5630 JMP I S1230 / return @@1245=5630
1061 945 01246 0000 D1246, 0000 / AND L0000
1062 946 01247 1233 TAD C1233 / @@1247=1233
1063 947 01250 7622 SNL CLA HLT / @@1250=7622
1064 948 01251 0000 D1251, 0000 / AND L0000
1068 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 20
1071 949 01252 0000 D1252, 0000 / AND L0000
1072 950 01253 0000 D1253, 0000 / AND L0000
1073 951 01254 0000 D1254, 0000 / AND L0000
1075 953 ////////////////////////////////////////////////////////////////////////////////
1077 955 / SUBROUTINE: S1255
1081 959 / Total 0001 (1) calls
1082 960 ////////////////////////////////////////////////////////////////////////////////
1084 962 01255 0000 0 / return area
1085 963 01256 7300 CLA CLL / AC = 0000 @@1256=7300
1086 964 01257 1251 TAD D1251 / @@1257=1251
1087 965 01260 7006 RTL / @@1260=7006
1088 966 01261 1252 TAD D1252 / @@1261=1252
1089 967 01262 3251 DCA D1251 / @@1262=3251
1090 968 01263 1251 TAD D1251 / @@1263=1251
1091 969 01264 7006 RTL / @@1264=7006
1092 970 01265 1252 TAD D1252 / @@1265=1252
1093 971 01266 7006 RTL / @@1266=7006
1094 972 01267 3252 DCA D1252 / @@1267=3252
1095 973 01270 1251 TAD D1251 / @@1270=1251
1096 974 01271 0153 AND C0153 / @@1271=0153
1097 975 01272 5655 JMP I S1255 / return @@1272=5655
1099 977 ////////////////////////////////////////////////////////////////////////////////
1101 979 / SUBROUTINE: S1273
1105 983 / Total 0002 (2) calls
1106 984 ////////////////////////////////////////////////////////////////////////////////
1108 986 01273 0000 0 / return area
1109 987 01274 7300 CLA CLL / AC = 0000 @@1274=7300
1110 988 01275 1253 TAD D1253 / @@1275=1253
1111 989 01276 7006 RTL / @@1276=7006
1112 990 01277 1254 TAD D1254 / @@1277=1254
1113 991 01300 3253 DCA D1253 / @@1300=3253
1114 992 01301 1253 TAD D1253 / @@1301=1253
1115 993 01302 7006 RTL / @@1302=7006
1116 994 01303 1254 TAD D1254 / @@1303=1254
1117 995 01304 7006 RTL / @@1304=7006
1118 996 01305 3254 DCA D1254 / @@1305=3254
1119 997 01306 1253 TAD D1253 / @@1306=1253
1120 998 01307 0153 AND C0153 / @@1307=0153
1124 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 21
1127 999 01310 5673 JMP I S1273 / return @@1310=5673
1129 1001 01311 0000 C1311, 0000 / AND L0000
1131 1003 01312 4466 JMS I C0066 / long call to S1400 @@1312=4466
1132 1004 01313 4455 JMS I C0055 / long call to S1200 @@1313=4455
1133 1005 01314 3110 DCA D0110 / @@1314=3110
1134 1006 01315 4455 JMS I C0055 / long call to S1200 @@1315=4455
1135 1007 01316 3111 DCA D0111 / @@1316=3111
1136 1008 01317 4455 JMS I C0055 / long call to S1200 @@1317=4455
1137 1009 01320 3112 DCA D0112 / @@1320=3112
1138 1010 01321 4465 JMS I C0065 / long call to S1324 @@1321=4465
1139 1011 01322 5312 JMP L1312 / @@1322=5312
1140 1012 01323 5711 JMP I C1311 / long jump to L0000 @@1323=5711
1142 1014 ////////////////////////////////////////////////////////////////////////////////
1144 1016 / SUBROUTINE: S1324
1148 1020 / Total 0002 (2) calls
1149 1021 ////////////////////////////////////////////////////////////////////////////////
1151 1023 01324 0000 0 / return area
1152 1024 01325 4475 JMS I C0075 / long call to S0400 @@1325=4475
1153 1025 01326 1363 TAD D1363 / @@1326=1363
1154 1026 01327 7000 NOP / @@1327=7000
1156 1028 01330 4475 JMS I C0075 / long call to S0400 @@1330=4475
1157 1029 01331 1364 TAD D1364 / @@1331=1364
1158 1030 01332 7766 SMA SZA SNL CLA OSR HLT / @@1332=7766
1160 1032 01333 4467 JMS I C0067 / long call to S1412 @@1333=4467
1161 1033 01334 7040 CMA / @@1334=7040
1162 1034 01335 0110 AND D0110 / @@1335=0110
1163 1035 01336 7440 SZA / @@1336=7440
1164 1036 01337 5333 JMP L1333 / @@1337=5333
1165 1037 01340 4467 JMS I C0067 / long call to S1412 @@1340=4467
1166 1038 01341 7040 CMA / @@1341=7040
1167 1039 01342 0111 AND D0111 / @@1342=0111
1168 1040 01343 7450 SNA / @@1343=7450
1169 1041 01344 5351 JMP L1351 / @@1344=5351
1170 1042 01345 2363 ISZ D1363 / @@1345=2363
1171 1043 01346 5330 JMP L1330 / @@1346=5330
1173 1045 01347 7602 CLA HLT / @@1347=7602
1174 1046 01350 5724 JMP I S1324 / return @@1350=5724
1176 1048 01351 4467 JMS I C0067 / long call to S1412 @@1351=4467
1180 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 22
1183 1049 01352 7040 CMA / @@1352=7040
1184 1050 01353 0112 AND D0112 / @@1353=0112
1185 1051 01354 7440 SZA / @@1354=7440
1186 1052 01355 5360 JMP L1360 / @@1355=5360
1187 1053 01356 2324 ISZ S1324 / @@1356=2324
1188 1054 01357 5724 JMP I S1324 / return @@1357=5724
1190 1056 01360 2364 ISZ D1364 / @@1360=2364
1191 1057 01361 5330 JMP L1330 / @@1361=5330
1192 1058 01362 5347 JMP L1347 / @@1362=5347
1193 1059 01363 0000 D1363, 0000 / AND L0000
1194 1060 01364 0000 D1364, 0000 / AND L0000
1198 1064 ////////////////////////////////////////////////////////////////////////////////
1200 1066 / SUBROUTINE: S1400
1203 1069 / 1312 3510 3517 3606
1204 1070 / Total 0004 (4) calls
1205 1071 ////////////////////////////////////////////////////////////////////////////////
1207 1073 01400 0000 0 / return area
1208 1074 01401 7201 CLA IAC / @@1401=7201
1209 1075 01402 3260 DCA D1460 / @@1402=3260
1210 1076 01403 4474 C1403, 4474 / JMS I C0074
1211 1077 01404 1460 TAD I C0060 / @@1404=1460
1212 1078 01405 1461 D1405, 1461 / TAD I C0061
1213 1079 01406 7775 C1406, 7775 / CLA MQA SCA MQL ASR +
1214 1080 01407 3264 DCA D1464 / @@1407=3264
1215 1081 01410 3265 DCA D1465 / @@1410=3265
1216 1082 01411 5600 JMP I S1400 / return @@1411=5600
1218 1084 ////////////////////////////////////////////////////////////////////////////////
1220 1086 / SUBROUTINE: S1412
1223 1089 / 1333 1340 1351 3472 3513 3523 3531 3704
1224 1090 / Total 0010 (8) calls
1225 1091 ////////////////////////////////////////////////////////////////////////////////
1227 1093 01412 0000 0 / return area
1228 1094 01413 7200 CLA / @@1413=7200
1229 1095 01414 1260 TAD D1460 / @@1414=1260
1230 1096 01415 3261 DCA D1461 / @@1415=3261
1231 1097 01416 1264 TAD D1464 / @@1416=1264
1232 1098 01417 7040 CMA / @@1417=7040
1236 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 23
1240 1100 01420 3264 DCA D1464 / @@1420=3264
1241 1101 01421 1264 TAD D1464 / @@1421=1264
1242 1102 01422 7650 D1422, 7650 / SNA CLA
1243 1103 01423 5227 JMP L1427 / @@1423=5227
1244 1104 01424 1261 TAD D1461 / @@1424=1261
1245 1105 01425 7040 CMA / @@1425=7040
1246 1106 01426 5231 JMP L1431 / @@1426=5231
1248 1108 01427 1261 TAD D1461 / @@1427=1261
1249 1109 01430 7041 CIA / @@1430=7041
1251 1111 01431 0153 AND C0153 / @@1431=0153
1252 1112 01432 3260 DCA D1460 / @@1432=3260
1253 1113 01433 1261 TAD D1461 / @@1433=1261
1254 1114 01434 5612 JMP I S1412 / return @@1434=5612
1256 1116 ////////////////////////////////////////////////////////////////////////////////
1258 1118 / SUBROUTINE: S1435
1262 1122 / Total 0001 (1) calls
1263 1123 ////////////////////////////////////////////////////////////////////////////////
1265 1125 01435 0000 0 / return area
1266 1126 01436 7200 CLA / @@1436=7200
1267 1127 01437 1262 TAD D1462 / @@1437=1262
1268 1128 01440 3263 DCA D1463 / @@1440=3263
1269 1129 01441 1265 TAD D1465 / @@1441=1265
1270 1130 01442 7040 CMA / @@1442=7040
1271 1131 01443 3265 DCA D1465 / @@1443=3265
1272 1132 01444 1265 TAD D1465 / @@1444=1265
1273 1133 01445 7650 SNA CLA / @@1445=7650
1274 1134 01446 5252 JMP L1452 / @@1446=5252
1275 1135 01447 1263 TAD D1463 / @@1447=1263
1276 1136 01450 7040 CMA / @@1450=7040
1277 1137 01451 5254 JMP L1454 / @@1451=5254
1279 1139 01452 1263 TAD D1463 / @@1452=1263
1280 1140 01453 7041 CIA / @@1453=7041
1282 1142 01454 0153 AND C0153 / @@1454=0153
1283 1143 01455 3262 DCA D1462 / @@1455=3262
1284 1144 01456 1263 TAD D1463 / @@1456=1263
1285 1145 01457 5635 JMP I S1435 / return @@1457=5635
1286 1146 01460 0000 D1460, 0000 / AND L0000
1287 1147 01461 0000 D1461, 0000 / AND L0000
1288 1148 01462 0000 D1462, 0000 / AND L0000
1292 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 24
1295 1149 01463 0000 D1463, 0000 / AND L0000
1296 1150 01464 0000 D1464, 0000 / AND L0000
1297 1151 01465 0000 D1465, 0000 / AND L0000
1298 1152 01466 0015 C1466, 0015 / AND AI5
1299 1153 01467 0012 C1467, 0012 / AND AI2
1300 1154 01470 5220 JMP L1420 / @@1470=5220
1301 1155 01471 4040 C1471, 4040 / JMS C0040
1302 1156 01472 4040 C1472, 4040 / JMS C0040
1303 1157 01473 4022 JMS D0022 / @@1473=4022
1304 1158 01474 4040 C1474, 4040 / JMS C0040
1305 1159 01475 4040 C1475, 4040 / JMS C0040
1306 1160 01476 4040 D1476, 4040 / JMS C0040
1307 1161 01477 4040 C1477, 4040 / JMS C0040
1308 1162 01500 0001 AND L0001 / @@1500=0001
1309 1163 01501 0015 C1501, 0015 / AND AI5
1310 1164 01502 0012 C1502, 0012 / AND AI2
1311 1165 01503 0007 C1503, 0007 / AND C0007
1312 1166 01504 4025 C1504, 4025 / JMS C0025
1313 1167 01505 1605 TAD I D1405 / @@1505=1605
1314 1168 01506 3020 DCA D0020 / @@1506=3020
1315 1169 01507 0503 AND I C0103 / @@1507=0503
1316 1170 01510 2405 C1510, 2405 / ISZ I D0005
1317 1171 01511 0440 C1511, 0440 / AND I C0040
1318 1172 01512 1116 TAD D0116 / @@1512=1116
1319 1173 01513 2405 ISZ I D0005 / @@1513=2405
1320 1174 01514 2222 ISZ D1422 / @@1514=2222
1321 1175 01515 2520 ISZ I D0120 / @@1515=2520
1322 1176 01516 2456 ISZ I C0056 / @@1516=2456
1323 1177 01517 0015 C1517, 0015 / AND AI5
1324 1178 01520 0001 AND L0001 / @@1520=0001
1325 1179 01521 0037 AND C0037 / @@1521=0037
1326 1180 01522 0040 C1522, 0040 / AND C0040
1327 1181 01523 0040 AND C0040 / @@1523=0040
1328 1182 01524 0037 C1524, 0037 / AND C0037
1329 1183 01525 0000 AND L0000 / @@1525=0000
1330 1184 01526 0077 AND C0077 / @@1526=0077
1331 1185 01527 0011 C1527, 0011 / AND AI1
1332 1186 01530 0011 C1530, 0011 / AND AI1
1333 1187 01531 0006 AND C0006 / @@1531=0006
1334 1188 01532 0015 C1532, 0015 / AND AI5
1335 1189 01533 0012 C1533, 0012 / AND AI2
1336 1190 01534 4022 JMS D0022 / @@1534=4022
1337 1191 01535 0422 AND I D0022 / @@1535=0422
1338 1192 01536 4023 JMS D0023 / @@1536=4023
1339 1193 01537 2005 ISZ D0005 / @@1537=2005
1340 1194 01540 0504 AND I D0104 / @@1540=0504
1341 1195 01541 4000 JMS L0000 / @@1541=4000
1342 1196 01542 0100 AND C0100 / @@1542=0100
1343 1197 01543 0015 C1543, 0015 / AND AI5
1344 1198 01544 0012 C1544, 0012 / AND AI2
1348 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 25
1351 1199 01545 4020 JMS D0020 / @@1545=4020
1352 1200 01546 0310 AND C1510 / @@1546=0310
1353 1201 01547 4023 JMS D0023 / @@1547=4023
1354 1202 01550 2005 ISZ D0005 / @@1550=2005
1355 1203 01551 0504 AND I D0104 / @@1551=0504
1356 1204 01552 4000 JMS L0000 / @@1552=4000
1357 1205 01553 0100 AND C0100 / @@1553=0100
1358 1206 01554 4003 JMS D0003 / @@1554=4003
1359 1207 01555 2023 ISZ D0023 / @@1555=2023
1360 1208 01556 0015 C1556, 0015 / AND AI5
1361 1209 01557 0001 AND L0001 / @@1557=0001
1362 1210 01560 0015 C1560, 0015 / AND AI5
1363 1211 01561 0012 C1561, 0012 / AND AI2
1364 1212 01562 4000 JMS L0000 / @@1562=4000
1365 1213 01563 0711 AND I C1511 / @@1563=0711
1366 1214 01564 1603 TAD I C1403 / @@1564=1603
1367 1215 01565 1722 TAD I C1522 / @@1565=1722
1368 1216 01566 2205 ISZ D1405 / @@1566=2205
1369 1217 01567 0324 AND C1524 / @@1567=0324
1370 1218 01570 4022 JMS D0022 / @@1570=4022
1371 1219 01571 2416 C1571, 2416 / ISZ I AI6
1372 1220 01572 4023 JMS D0023 / @@1572=4023
1373 1221 01573 0514 AND I C0114 / @@1573=0514
1374 1222 01574 0503 AND I C0103 / @@1574=0503
1375 1223 01575 2405 ISZ I D0005 / @@1575=2405
1376 1224 01576 0456 AND I C0056 / @@1576=0456
1377 1225 01577 0015 C1577, 0015 / AND AI5
1378 1226 01600 0001 AND L0001 / @@1600=0001
1379 1227 01601 4023 JMS D0023 / @@1601=4023
1380 1228 01602 5702 C1602, 5702 / JMP I C1702
1381 1229 01603 4040 C1603, 4040 / JMS C0040
1382 1230 01604 4040 C1604, 4040 / JMS C0040
1383 1231 01605 4040 D1605, 4040 / JMS C0040
1384 1232 01606 4040 C1606, 4040 / JMS C0040
1385 1233 01607 2701 C1607, 2701 / ISZ I C1701
1386 1234 01610 2340 C1610, 2340 / ISZ C1740
1387 1235 01611 4040 C1611, 4040 / JMS C0040
1388 1236 01612 4040 C1612, 4040 / JMS C0040
1389 1237 01613 0015 C1613, 0015 / AND AI5
1390 1238 01614 0001 AND L0001 / @@1614=0001
1391 1239 01615 0015 C1615, 0015 / AND AI5
1392 1240 01616 0012 C1616, 0012 / AND AI2
1393 1241 01617 7005 IAC RAL / @@1617=7005
1394 1242 01620 4040 C1620, 4040 / JMS C0040
1395 1243 01621 2331 C1621, 2331 / ISZ C1731
1396 1244 01622 2324 C1622, 2324 / ISZ C1724
1397 1245 01623 0515 AND I D0115 / @@1623=0515
1398 1246 01624 5640 JMP I D1640 / long jump to L2440 @@1624=5640
1399 1247 01625 2305 C1625, 2305 / ISZ C1705
1400 1248 01626 2440 ISZ I C0040 / @@1626=2440
1404 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 26
1407 1249 01627 2411 C1627, 2411 / ISZ I AI1
1408 1250 01630 1505 TAD I D0105 / @@1630=1505
1409 1251 01631 4004 C1631, 4004 / JMS C0004
1410 1252 01632 0514 AND I C0114 / @@1632=0514
1411 1253 01633 0131 AND D0131 / @@1633=0131
1412 1254 01634 4003 JMS D0003 / @@1634=4003
1413 1255 01635 1716 C1635, 1716 / TAD I C1716
1414 1256 01636 2324 C1636, 2324 / ISZ C1724
1415 1257 01637 0116 AND D0116 / @@1637=0116
1416 1258 01640 2440 D1640, 2440 / ISZ I C0040
1417 1259 01641 1116 TAD D0116 / @@1641=1116
1418 1260 01642 4023 JMS D0023 / @@1642=4023
1419 1261 01643 2256 ISZ D1656 / @@1643=2256
1420 1262 01644 0015 C1644, 0015 / AND AI5
1421 1263 01645 0012 C1645, 0012 / AND AI2
1422 1264 01646 2205 ISZ D1605 / @@1646=2205
1423 1265 01647 0605 AND I D1605 / @@1647=0605
1424 1266 01650 2240 ISZ D1640 / @@1650=2240
1425 1267 01651 2417 C1651, 2417 / ISZ I AI7
1426 1268 01652 4020 JMS D0020 / @@1652=4020
1427 1269 01653 0107 AND D0107 / @@1653=0107
1428 1270 01654 0523 AND I D0123 / @@1654=0523
1429 1271 01655 4062 C1655, 4062 / JMS C0062
1430 1272 01656 4001 D1656, 4001 / JMS L0001
1431 1273 01657 1604 TAD I C1604 / @@1657=1604
1432 1274 01660 4063 C1660, 4063 / JMS D0063
1433 1275 01661 4017 C1661, 4017 / JMS AI7
1434 1276 01662 0640 AND I D1640 / @@1662=0640
1435 1277 01663 2022 ISZ D0022 / @@1663=2022
1436 1278 01664 0740 C1664, 0740 / AND I C1740
1437 1279 01665 1411 C1665, 1411 / TAD I AI1
1438 1280 01666 2324 C1666, 2324 / ISZ C1724
1439 1281 01667 1116 TAD D0116 / @@1667=1116
1440 1282 01670 0756 C1670, 0756 / AND I C1756
1441 1283 01671 0001 AND L0001 / @@1671=0001
1444 1286 02000 4475 D2000, 4475 / JMS I C0075
1445 1287 02001 0020 AND D0020 / @@2001=0020
1446 1288 02002 2010 C2002, 2010 / ISZ AI0
1447 1289 02003 4475 JMS I C0075 / long call to S0400 @@2003=4475
1448 1290 02004 0105 AND D0105 / @@2004=0105
1449 1291 02005 7717 C2005, 7717 / CLA MQA LSR +
1450 1292 02006 5607 JMP I C2007 / long jump to L0241 @@2006=5607
1452 1294 02007 0241 C2007, 0241 / AND C2041
1453 1295 02010 0000 AND L0000 / @@2010=0000
1454 1296 02011 2036 ISZ D0036 / @@2011=2036
1455 1297 02012 4477 JMS I C0077 / long call to S1111 @@2012=4477
1456 1298 02013 7470 SNA SZL / @@2013=7470
1460 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 27
1463 1299 02014 4501 JMS I C0101 / long call to S1042 @@2014=4501
1464 1300 02015 7406 OSR HLT / @@2015=7406
1466 1302 02016 6014 RFC / Clear reader flag and reader buffer, @@2016=6014
1467 1303 02017 4502 JMS I C0102 / long call to S0411 @@2017=4502
1468 1304 02020 6011 RSF / Skip if reader flag is a 1. @@2020=6011
1469 1305 02021 5225 JMP L2025 / @@2021=5225
1471 1307 02022 2122 ISZ D0122 / @@2022=2122
1472 1308 02023 5216 JMP L2016 / @@2023=5216
1473 1309 02024 5425 JMP I C0025 / long jump to L0270 @@2024=5425
1475 1311 02025 4451 JMS I C0051 / long call to S1050 @@2025=4451
1476 1312 02026 4040 C2026, 4040 / JMS C0040
1477 1313 02027 0000 AND L0000 / @@2027=0000
1478 1314 02030 5222 JMP L2022 / @@2030=5222
1479 1315 02031 4501 JMS I C0101 / long call to S1042 @@2031=4501
1480 1316 02032 7764 SMA SZA SNL CLA OSR / @@2032=7764
1482 1318 02033 6014 RFC / Clear reader flag and reader buffer, @@2033=6014
1483 1319 02034 4502 JMS I C0102 / long call to S0411 @@2034=4502
1484 1320 02035 5233 JMP L2033 / @@2035=5233
1485 1321 02036 0001 AND L0001 / @@2036=0001
1486 1322 02037 2064 ISZ D0064 / @@2037=2064
1487 1323 02040 4477 JMS I C0077 / long call to S1111 @@2040=4477
1488 1324 02041 0001 C2041, 0001 / AND L0001
1489 1325 02042 6014 RFC / Clear reader flag and reader buffer, @@2042=6014
1491 1327 02043 6011 RSF / Skip if reader flag is a 1. @@2043=6011
1492 1328 02044 5243 JMP L2043 / @@2044=5243
1494 1330 02045 6011 RSF / Skip if reader flag is a 1. @@2045=6011
1495 1331 02046 5252 JMP L2052 / @@2046=5252
1497 1333 02047 2122 ISZ D0122 / @@2047=2122
1498 1334 02050 5245 JMP L2045 / @@2050=5245
1499 1335 02051 5425 JMP I C0025 / long jump to L0270 @@2051=5425
1501 1337 02052 4451 JMS I C0051 / long call to S1050 @@2052=4451
1502 1338 02053 4040 C2053, 4040 / JMS C0040
1503 1339 02054 0000 AND L0000 / @@2054=0000
1504 1340 02055 5247 JMP L2047 / @@2055=5247
1505 1341 02056 6014 RFC / Clear reader flag and reader buffer, @@2056=6014
1507 1343 02057 6011 RSF / Skip if reader flag is a 1. @@2057=6011
1508 1344 02060 5257 JMP L2057 / @@2060=5257
1510 1346 02061 6011 RSF / Skip if reader flag is a 1. @@2061=6011
1511 1347 02062 5261 JMP L2061 / @@2062=5261
1512 1348 02063 5261 JMP L2061 / @@2063=5261
1516 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 28
1519 1349 02064 0002 AND C0002 / @@2064=0002
1520 1350 02065 2105 ISZ D0105 / @@2065=2105
1521 1351 02066 4477 JMS I C0077 / long call to S1111 @@2066=4477
1522 1352 02067 0001 AND L0001 / @@2067=0001
1523 1353 02070 0000 RFB / Read the content of the reader buffe @@2070=6012
1526 1355 02071 6011 RSF / Skip if reader flag is a 1. @@2071=6011
1527 1356 02072 5302 JMP L2102 / @@2072=5302
1528 1357 02073 4451 JMS I C0051 / long call to S1050 @@2073=4451
1529 1358 02074 4040 C2074, 4040 / JMS C0040
1530 1359 02075 0000 AND L0000 / @@2075=0000
1531 1360 02076 5302 JMP L2102 / @@2076=5302
1533 1362 02077 6011 RSF / Skip if reader flag is a 1. @@2077=6011
1534 1363 02100 5277 JMP L2077 / @@2100=5277
1535 1364 02101 5277 JMP L2077 / @@2101=5277
1537 1366 02102 2122 ISZ D0122 / @@2102=2122
1538 1367 02103 5271 JMP L2071 / @@2103=5271
1539 1368 02104 5425 JMP I C0025 / long jump to L0270 @@2104=5425
1540 1369 02105 0003 AND D0003 / @@2105=0003
1541 1370 02106 2200 ISZ D2000 / @@2106=2200
1542 1371 02107 1377 TAD C2177 / @@2107=1377
1543 1372 02110 3022 DCA D0022 / @@2110=3022
1545 1374 02111 1376 TAD C2176 / @@2111=1376
1546 1375 02112 3136 DCA D0136 / @@2112=3136
1547 1376 02113 6002 IOF / Disable Interrupts @@2113=6002
1548 1377 02114 7200 CLA / @@2114=7200
1549 1378 02115 3135 DCA D0135 / @@2115=3135
1551 1380 02116 2135 ISZ D0135 / @@2116=2135
1552 1381 02117 5316 JMP L2116 / @@2117=5316
1553 1382 02120 2136 ISZ D0136 / @@2120=2136
1554 1383 02121 5316 JMP L2116 / @@2121=5316
1555 1384 02122 1375 D2122, 1375 / TAD C2175
1556 1385 02123 3134 DCA D0134 / @@2123=3134
1557 1386 02124 6007 C2124, 6007 / 6007
1558 1387 02125 6014 RFC / Clear reader flag and reader buffer, @@2125=6014
1559 1388 02126 4351 JMS S2151 / @@2126=4351
1560 1389 02127 6011 RSF / Skip if reader flag is a 1. @@2127=6011
1561 1390 02130 5337 JMP L2137 / @@2130=5337
1562 1391 02131 6010 C2131, 6010 / 6010
1563 1392 02132 6003 D2132, 6003 / 6003
1564 1393 02133 5337 JMP L2137 / @@2133=5337
1565 1394 02134 2022 ISZ D0022 / @@2134=2022
1566 1395 02135 5311 JMP L2111 / @@2135=5311
1567 1396 02136 5425 JMP I C0025 / long jump to L0270 @@2136=5425
1572 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 29
1575 1398 02137 4451 JMS I C0051 / long call to S1050 @@2137=4451
1576 1399 02140 4040 C2140, 4040 / JMS C0040
1577 1400 02141 0000 AND L0000 / @@2141=0000
1578 1401 02142 5311 JMP L2111 / @@2142=5311
1579 1402 02143 6002 IOF / Disable Interrupts @@2143=6002
1581 1404 02144 6011 RSF / Skip if reader flag is a 1. @@2144=6011
1582 1405 02145 5344 JMP L2144 / @@2145=5344
1584 1407 02146 6011 RSF / Skip if reader flag is a 1. @@2146=6011
1585 1408 02147 5346 JMP L2146 / @@2147=5346
1586 1409 02150 5346 JMP L2146 / @@2150=5346
1588 1411 ////////////////////////////////////////////////////////////////////////////////
1590 1413 / SUBROUTINE: S2151
1594 1417 / Total 0001 (1) calls
1595 1418 ////////////////////////////////////////////////////////////////////////////////
1597 1420 02151 0000 0 / return area
1599 1422 02152 2134 ISZ D0134 / @@2152=2134
1600 1423 02153 5352 JMP L2152 / @@2153=5352
1601 1424 02154 5751 JMP I S2151 / return @@2154=5751
1604 1427 02175 2260 C2175, 2260 / ISZ C2060
1605 1428 02176 7773 C2176, 7773 / CLA MQA SCA MQL SHL +
1606 1429 02177 4000 C2177, 4000 / JMS L0000
1607 1430 02200 0004 C2200, 0004 / AND C0004
1608 1431 02201 2400 ISZ I L0000 / @@2201=2400
1610 1433 02202 6002 IOF / Disable Interrupts @@2202=6002
1611 1434 02203 6007 C2203, 6007 / 6007
1612 1435 02204 6010 C2204, 6010 / 6010
1613 1436 02205 6020 C2205, 6020 / 6020
1614 1437 02206 6001 ION / Enable Interrupts @@2206=6001
1615 1438 02207 6014 RFC / Clear reader flag and reader buffer, @@2207=6014
1616 1439 02210 6000 C2210, 6000 / 6000
1617 1440 02211 5214 JMP L2214 / @@2211=5214
1618 1441 02212 6003 C2212, 6003 / 6003
1619 1442 02213 7410 SKP / @@2213=7410
1621 1444 02214 5220 JMP L2220 / @@2214=5220
1622 1445 02215 2022 ISZ D0022 / @@2215=2022
1623 1446 02216 5202 JMP L2202 / @@2216=5202
1628 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 30
1631 1448 02217 5425 JMP I C0025 / long jump to L0270 @@2217=5425
1633 1450 02220 4451 JMS I C0051 / long call to S1050 @@2220=4451
1634 1451 02221 4040 C2221, 4040 / JMS C0040
1635 1452 02222 0000 AND L0000 / @@2222=0000
1636 1453 02223 5217 JMP L2217 / @@2223=5217
1638 1455 02224 6010 C2224, 6010 / 6010
1639 1456 02225 4502 JMS I C0102 / long call to S0411 @@2225=4502
1640 1457 02226 6020 C2226, 6020 / 6020
1641 1458 02227 5224 JMP L2224 / @@2227=5224
1644 1461 02400 0005 C2400, 0005 / AND D0005
1645 1462 02401 2430 ISZ I D0030 / @@2401=2430
1646 1463 02402 4477 JMS I C0077 / long call to S1111 @@2402=4477
1647 1464 02403 7014 C2403, 7014 / RAR RAL
1649 1466 02404 6014 RFC / Clear reader flag and reader buffer, @@2404=6014
1651 1468 02405 6011 RSF / Skip if reader flag is a 1. @@2405=6011
1652 1469 02406 5205 JMP L2405 / @@2406=5205
1653 1470 02407 0000 RFB / Read the content of the reader buffe @@2407=6012
1655 1471 02410 6011 RSF / Skip if reader flag is a 1. @@2410=6011
1656 1472 02411 5225 JMP L2425 / @@2411=5225
1657 1473 02412 4451 JMS I C0051 / long call to S1050 @@2412=4451
1658 1474 02413 4040 C2413, 4040 / JMS C0040
1659 1475 02414 0000 AND L0000 / @@2414=0000
1660 1476 02415 5225 JMP L2425 / @@2415=5225
1662 1478 02416 6014 RFC / Clear reader flag and reader buffer, @@2416=6014
1664 1480 02417 6011 RSF / Skip if reader flag is a 1. @@2417=6011
1665 1481 02420 5217 JMP L2417 / @@2420=5217
1667 1483 02421 0000 RFB / Read the content of the reader buffe @@2421=6012
1669 1484 02422 6011 RSF / Skip if reader flag is a 1. @@2422=6011
1670 1485 02423 5216 JMP L2416 / @@2423=5216
1671 1486 02424 5221 JMP L2421 / @@2424=5221
1673 1488 02425 2122 ISZ D0122 / @@2425=2122
1674 1489 02426 5204 JMP L2404 / @@2426=5204
1675 1490 02427 5425 JMP I C0025 / long jump to L0270 @@2427=5425
1676 1491 02430 0006 AND C0006 / @@2430=0006
1677 1492 02431 2600 ISZ I C2400 / @@2431=2600
1678 1493 02432 4477 JMS I C0077 / long call to S1111 @@2432=4477
1679 1494 02433 7014 C2433, 7014 / RAR RAL
1680 1495 02434 6014 RFC / Clear reader flag and reader buffer, @@2434=6014
1684 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 31
1688 1497 02435 6011 RSF / Skip if reader flag is a 1. @@2435=6011
1689 1498 02436 5235 JMP L2435 / @@2436=5235
1690 1499 02437 6014 RFC / Clear reader flag and reader buffer, @@2437=6014
1691 1500 02440 6011 RSF / Skip if reader flag is a 1. @@2440=6011
1692 1501 02441 5253 JMP L2453 / @@2441=5253
1693 1502 02442 4451 JMS I C0051 / long call to S1050 @@2442=4451
1694 1503 02443 4040 C2443, 4040 / JMS C0040
1695 1504 02444 0000 AND L0000 / @@2444=0000
1696 1505 02445 5253 JMP L2453 / @@2445=5253
1697 1506 02446 4502 JMS I C0102 / long call to S0411 @@2446=4502
1699 1508 02447 6014 RFC / Clear reader flag and reader buffer, @@2447=6014
1701 1510 02450 6011 RSF / Skip if reader flag is a 1. @@2450=6011
1702 1511 02451 5250 JMP L2450 / @@2451=5250
1703 1512 02452 5247 JMP L2447 / @@2452=5247
1705 1514 02453 2122 ISZ D0122 / @@2453=2122
1706 1515 02454 5235 JMP L2435 / @@2454=5235
1707 1516 02455 5425 JMP I C0025 / long jump to L0270 @@2455=5425
1710 1519 02600 0007 C2600, 0007 / AND C0007
1711 1520 02601 2637 C2601, 2637 / ISZ I C2637
1712 1521 02602 4477 JMS I C0077 / long call to S1111 @@2602=4477
1713 1522 02603 7014 C2603, 7014 / RAR RAL
1715 1524 02604 6014 C2604, 6014 / RFC
1717 1526 02605 6011 RSF / Skip if reader flag is a 1. @@2605=6011
1718 1527 02606 5205 JMP L2605 / @@2606=5205
1719 1528 02607 7200 CLA / @@2607=7200
1720 1529 02610 0000 RFB / Read the content of the reader buffe @@2610=6012
1722 1530 02611 3236 C2611, 3236 / DCA D2636
1723 1531 02612 1236 TAD D2636 / @@2612=1236
1724 1532 02613 7640 SZA CLA / @@2613=7640
1725 1533 02614 5220 JMP L2620 / @@2614=5220
1727 1535 02615 2122 ISZ D0122 / @@2615=2122
1728 1536 02616 5204 JMP L2604 / @@2616=5204
1729 1537 02617 5425 JMP I C0025 / long jump to L0270 @@2617=5425
1731 1539 02620 4452 JMS I C0052 / long call to S1000 @@2620=4452
1732 1540 02621 2635 ISZ I C2635 / @@2621=2635
1733 1541 02622 1604 TAD I L2604 / @@2622=1604
1734 1542 02623 4452 JMS I C0052 / long call to S1000 @@2623=4452
1735 1543 02624 2636 ISZ I D2636 / @@2624=2636
1736 1544 02625 1611 TAD I C2611 / @@2625=1611
1740 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 32
1743 1545 02626 4451 JMS I C0051 / long call to S1050 @@2626=4451
1744 1546 02627 4040 C2627, 4040 / JMS C0040
1745 1547 02630 1601 TAD I C2601 / @@2630=1601
1746 1548 02631 5215 JMP L2615 / @@2631=5215
1748 1550 02632 7200 CLA / @@2632=7200
1749 1551 02633 0000 RFB / Read the content of the reader buffe @@2633=6012
1751 1552 02634 5232 JMP L2632 / @@2634=5232
1752 1553 02635 0000 C2635, 0000 / AND L0000
1753 1554 02636 0000 D2636, 0000 / AND L0000
1754 1555 02637 0010 C2637, 0010 / AND AI0
1755 1556 02640 2717 C2640, 2717 / ISZ I C2717
1756 1557 02641 4475 JMS I C0075 / long call to S0400 @@2641=4475
1757 1558 02642 0002 AND C0002 / @@2642=0002
1758 1559 02643 2654 ISZ I C2654 / @@2643=2654
1760 1561 02644 6032 KCC / Clear AC and clear keyboard flag. @@2644=6032
1761 1562 02645 6042 TCF / Clear teleprinter flag. @@2645=6042
1762 1563 02646 6022 PCF / Clear punch flag and punch buffer. @@2646=6022
1763 1564 02647 0000 RFB / Read the content of the reader buffe @@2647=6012
1765 1565 02650 6001 ION / Enable Interrupts @@2650=6001
1766 1566 02651 7000 NOP / @@2651=7000
1767 1567 02652 6002 IOF / Disable Interrupts @@2652=6002
1768 1568 02653 5261 JMP L2661 / @@2653=5261
1769 1569 02654 4451 C2654, 4451 / JMS I C0051
1770 1570 02655 0140 AND C0140 / @@2655=0140
1771 1571 02656 0000 AND L0000 / @@2656=0000
1772 1572 02657 5244 JMP L2644 / @@2657=5244
1773 1573 02660 5244 JMP L2644 / @@2660=5244
1775 1575 02661 4477 JMS I C0077 / long call to S1111 @@2661=4477
1776 1576 02662 0001 AND L0001 / @@2662=0001
1777 1577 02663 4475 JMS I C0075 / long call to S0400 @@2663=4475
1778 1578 02664 0002 AND C0002 / @@2664=0002
1779 1579 02665 2713 ISZ I L2713 / @@2665=2713
1780 1580 02666 6010 C2666, 6010 / 6010
1781 1581 02667 6014 RFC / Clear reader flag and reader buffer, @@2667=6014
1783 1583 02670 6011 RSF / Skip if reader flag is a 1. @@2670=6011
1784 1584 02671 5270 JMP L2670 / @@2671=5270
1786 1586 02672 6001 ION / Enable Interrupts @@2672=6001
1787 1587 02673 7000 NOP / @@2673=7000
1788 1588 02674 6002 IOF / Disable Interrupts @@2674=6002
1789 1589 02675 4451 JMS I C0051 / long call to S1050 @@2675=4451
1790 1590 02676 0240 AND C2640 / @@2676=0240
1791 1591 02677 0000 AND L0000 / @@2677=0000
1792 1592 02700 5313 JMP L2713 / @@2700=5313
1796 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 33
1799 1593 02701 4475 JMS I C0075 / long call to S0400 @@2701=4475
1800 1594 02702 0002 AND C0002 / @@2702=0002
1801 1595 02703 2712 ISZ I C2712 / @@2703=2712
1802 1596 02704 6014 RFC / Clear reader flag and reader buffer, @@2704=6014
1804 1598 02705 6011 RSF / Skip if reader flag is a 1. @@2705=6011
1805 1599 02706 5305 JMP L2705 / @@2706=5305
1807 1601 02707 6001 ION / Enable Interrupts @@2707=6001
1808 1602 02710 7000 NOP / @@2710=7000
1809 1603 02711 5307 JMP L2707 / @@2711=5307
1810 1604 02712 5307 C2712, 5307 / JMP L2707
1812 1606 02713 2122 C2713, 2122 / ISZ D0122
1813 1607 02714 5272 JMP L2672 / @@2714=5272
1814 1608 02715 6020 C2715, 6020 / 6020
1815 1609 02716 5425 JMP I C0025 / long jump to L0270 @@2716=5425
1816 1610 02717 0011 C2717, 0011 / AND AI1
1817 1611 02720 7777 C2720, 7777 / CLA MQA SCA MQL LSR +
1818 1612 02721 4477 JMS I C0077 / long call to S1111 @@2721=4477
1819 1613 02722 7470 SNA SZL / @@2722=7470
1821 1615 02723 4373 JMS S2773 / @@2723=4373
1822 1616 02724 4501 JMS I C0101 / long call to S1042 @@2724=4501
1823 1617 02725 7755 C2725, 7755 / CLA MQA SCA ASR +
1824 1618 02726 6014 RFC / Clear reader flag and reader buffer, @@2726=6014
1826 1620 02727 6011 RSF / Skip if reader flag is a 1. @@2727=6011
1827 1621 02730 5327 JMP L2727 / @@2730=5327
1828 1622 02731 4502 JMS I C0102 / long call to S0411 @@2731=4502
1829 1623 02732 6014 RFC / Clear reader flag and reader buffer, @@2732=6014
1830 1624 02733 4502 JMS I C0102 / long call to S0411 @@2733=4502
1831 1625 02734 6011 RSF / Skip if reader flag is a 1. @@2734=6011
1832 1626 02735 5343 JMP L2743 / @@2735=5343
1833 1627 02736 4451 JMS I C0051 / long call to S1050 @@2736=4451
1834 1628 02737 0140 AND C0140 / @@2737=0140
1835 1629 02740 0000 AND L0000 / @@2740=0000
1836 1630 02741 5323 JMP L2723 / @@2741=5323
1837 1631 02742 5355 JMP L2755 / @@2742=5355
1839 1633 02743 4366 JMS S2766 / @@2743=4366
1840 1634 02744 6011 RSF / Skip if reader flag is a 1. @@2744=6011
1841 1635 02745 5351 JMP L2751 / @@2745=5351
1843 1637 02746 2122 ISZ D0122 / @@2746=2122
1844 1638 02747 5323 JMP L2723 / @@2747=5323
1845 1639 02750 5425 JMP I C0025 / long jump to L0270 @@2750=5425
1847 1641 02751 4451 JMS I C0051 / long call to S1050 @@2751=4451
1848 1642 02752 0240 AND C2640 / @@2752=0240
1852 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 34
1855 1643 02753 0000 AND L0000 / @@2753=0000
1856 1644 02754 5346 JMP L2746 / @@2754=5346
1858 1646 02755 4501 JMS I C0101 / long call to S1042 @@2755=4501
1859 1647 02756 7761 C2756, 7761 / CLA MQA SCA MQL
1861 1649 02757 6014 RFC / Clear reader flag and reader buffer, @@2757=6014
1862 1650 02760 5357 JMP L2757 / @@2760=5357
1864 1652 02761 4502 JMS I C0102 / long call to S0411 @@2761=4502
1865 1653 02762 6014 RFC / Clear reader flag and reader buffer, @@2762=6014
1867 1655 02763 6011 RSF / Skip if reader flag is a 1. @@2763=6011
1868 1656 02764 5363 JMP L2763 / @@2764=5363
1869 1657 02765 5361 JMP L2761 / @@2765=5361
1871 1659 ////////////////////////////////////////////////////////////////////////////////
1873 1661 / SUBROUTINE: S2766
1877 1665 / Total 0001 (1) calls
1878 1666 ////////////////////////////////////////////////////////////////////////////////
1880 1668 02766 0000 0 / return area
1881 1669 02767 4501 JMS I C0101 / long call to S1042 @@2767=4501
1882 1670 02770 7454 SNA OSR / @@2770=7454
1883 1671 02771 4502 JMS I C0102 / long call to S0411 @@2771=4502
1884 1672 02772 5766 JMP I S2766 / return @@2772=5766
1886 1674 ////////////////////////////////////////////////////////////////////////////////
1888 1676 / SUBROUTINE: S2773
1892 1680 / Total 0001 (1) calls
1893 1681 ////////////////////////////////////////////////////////////////////////////////
1895 1683 02773 0000 0 / return area
1896 1684 02774 4501 JMS I C0101 / long call to S1042 @@2774=4501
1897 1685 02775 7406 OSR HLT / @@2775=7406
1898 1686 02776 4502 JMS I C0102 / long call to S0411 @@2776=4502
1899 1687 02777 5773 JMP I S2773 / return @@2777=5773
1900 1688 03000 4475 D3000, 4475 / JMS I C0075
1901 1689 03001 0020 AND D0020 / @@3001=0020
1902 1690 03002 3010 C3002, 3010 / DCA AI0
1903 1691 03003 4475 JMS I C0075 / long call to S0400 @@3003=4475
1904 1692 03004 0105 AND D0105 / @@3004=0105
1908 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 35
1911 1693 03005 7717 C3005, 7717 / CLA MQA LSR +
1912 1694 03006 5607 JMP I C3007 / long jump to L0241 @@3006=5607
1914 1696 03007 0241 C3007, 0241 / AND C3041
1915 1697 03010 0000 AND L0000 / @@3010=0000
1916 1698 03011 3032 DCA D0032 / @@3011=3032
1917 1699 03012 4477 JMS I C0077 / long call to S1111 @@3012=4477
1918 1700 03013 0001 AND L0001 / @@3013=0001
1920 1702 03014 6022 PCF / Clear punch flag and punch buffer. @@3014=6022
1921 1703 03015 6021 PSF / Skip if punch flag is a 1 @@3015=6021
1922 1704 03016 5227 JMP L3027 / @@3016=5227
1923 1705 03017 4451 JMS I C0051 / long call to S1050 @@3017=4451
1924 1706 03020 4040 C3020, 4040 / JMS C0040
1925 1707 03021 0000 AND L0000 / @@3021=0000
1926 1708 03022 5227 JMP L3027 / @@3022=5227
1927 1709 03023 6022 PCF / Clear punch flag and punch buffer. @@3023=6022
1929 1711 03024 6021 PSF / Skip if punch flag is a 1 @@3024=6021
1930 1712 03025 5224 JMP L3024 / @@3025=5224
1931 1713 03026 5224 JMP L3024 / @@3026=5224
1933 1715 03027 2122 ISZ D0122 / @@3027=2122
1934 1716 03030 5214 JMP L3014 / @@3030=5214
1935 1717 03031 5425 JMP I C0025 / long jump to L0270 @@3031=5425
1936 1718 03032 0001 AND L0001 / @@3032=0001
1937 1719 03033 3063 DCA D0063 / @@3033=3063
1938 1720 03034 4477 JMS I C0077 / long call to S1111 @@3034=4477
1939 1721 03035 0001 AND L0001 / @@3035=0001
1940 1722 03036 4501 JMS I C0101 / long call to S1042 @@3036=4501
1941 1723 03037 0001 AND L0001 / @@3037=0001
1942 1724 03040 7300 CLA CLL / AC = 0000 @@3040=7300
1943 1725 03041 6022 C3041, 6022 / PCF
1944 1726 03042 6024 PPC / Load the punch buffer from bits 4 th @@3042=6024
1945 1727 03043 4502 JMS I C0102 / long call to S0411 @@3043=4502
1947 1729 03044 6021 PSF / Skip if punch flag is a 1 @@3044=6021
1948 1730 03045 5251 JMP L3051 / @@3045=5251
1950 1732 03046 2122 ISZ D0122 / @@3046=2122
1951 1733 03047 5244 JMP L3044 / @@3047=5244
1952 1734 03050 5425 JMP I C0025 / long jump to L0270 @@3050=5425
1954 1736 03051 4451 JMS I C0051 / long call to S1050 @@3051=4451
1955 1737 03052 4040 C3052, 4040 / JMS C0040
1956 1738 03053 0000 AND L0000 / @@3053=0000
1957 1739 03054 5246 JMP L3046 / @@3054=5246
1958 1740 03055 7200 CLA / @@3055=7200
1959 1741 03056 6022 PCF / Clear punch flag and punch buffer. @@3056=6022
1960 1742 03057 6024 PPC / Load the punch buffer from bits 4 th @@3057=6024
1964 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 36
1968 1744 03060 6021 PSF / Skip if punch flag is a 1 @@3060=6021
1969 1745 03061 5260 JMP L3060 / @@3061=5260
1970 1746 03062 5260 JMP L3060 / @@3062=5260
1971 1747 03063 0002 AND C0002 / @@3063=0002
1972 1748 03064 3115 DCA D0115 / @@3064=3115
1973 1749 03065 4477 JMS I C0077 / long call to S1111 @@3065=4477
1974 1750 03066 7014 C3066, 7014 / RAR RAL
1976 1752 03067 7200 CLA / @@3067=7200
1977 1753 03070 6026 PLS / Clear the punch flag, clear the bunc @@3070=6026
1979 1755 03071 6021 PSF / Skip if punch flag is a 1 @@3071=6021
1980 1756 03072 5271 JMP L3071 / @@3072=5271
1981 1757 03073 6022 PCF / Clear punch flag and punch buffer. @@3073=6022
1982 1758 03074 6021 PSF / Skip if punch flag is a 1 @@3074=6021
1983 1759 03075 5312 JMP L3112 / @@3075=5312
1984 1760 03076 4451 JMS I C0051 / long call to S1050 @@3076=4451
1985 1761 03077 4040 C3077, 4040 / JMS C0040
1986 1762 03100 0000 AND L0000 / @@3100=0000
1987 1763 03101 5312 JMP L3112 / @@3101=5312
1989 1765 03102 7200 CLA / @@3102=7200
1990 1766 03103 6026 PLS / Clear the punch flag, clear the bunc @@3103=6026
1992 1768 03104 6021 PSF / Skip if punch flag is a 1 @@3104=6021
1993 1769 03105 5304 JMP L3104 / @@3105=5304
1995 1771 03106 6022 PCF / Clear punch flag and punch buffer. @@3106=6022
1996 1772 03107 6021 PSF / Skip if punch flag is a 1 @@3107=6021
1997 1773 03110 5302 JMP L3102 / @@3110=5302
1998 1774 03111 5306 JMP L3106 / @@3111=5306
2000 1776 03112 2122 ISZ D0122 / @@3112=2122
2001 1777 03113 5267 JMP L3067 / @@3113=5267
2002 1778 03114 5425 JMP I C0025 / long jump to L0270 @@3114=5425
2003 1779 03115 0003 AND D0003 / @@3115=0003
2004 1780 03116 3200 DCA D3000 / @@3116=3200
2005 1781 03117 1377 TAD C3177 / @@3117=1377
2006 1782 03120 3022 DCA D0022 / @@3120=3022
2008 1784 03121 1376 TAD C3176 / @@3121=1376
2009 1785 03122 3136 DCA D0136 / @@3122=3136
2010 1786 03123 6002 IOF / Disable Interrupts @@3123=6002
2011 1787 03124 7200 CLA / @@3124=7200
2012 1788 03125 3135 DCA D0135 / @@3125=3135
2014 1790 03126 2135 ISZ D0135 / @@3126=2135
2015 1791 03127 5326 JMP L3126 / @@3127=5326
2016 1792 03130 2136 ISZ D0136 / @@3130=2136
2020 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 37
2023 1793 03131 5326 JMP L3126 / @@3131=5326
2024 1794 03132 1375 TAD C3175 / @@3132=1375
2025 1795 03133 3134 DCA D0134 / @@3133=3134
2026 1796 03134 6007 C3134, 6007 / 6007
2027 1797 03135 6024 PPC / Load the punch buffer from bits 4 th @@3135=6024
2028 1798 03136 4361 JMS S3161 / @@3136=4361
2029 1799 03137 6021 PSF / Skip if punch flag is a 1 @@3137=6021
2030 1800 03140 5347 JMP L3147 / @@3140=5347
2031 1801 03141 6010 C3141, 6010 / 6010
2032 1802 03142 6003 C3142, 6003 / 6003
2033 1803 03143 5347 JMP L3147 / @@3143=5347
2034 1804 03144 2022 ISZ D0022 / @@3144=2022
2035 1805 03145 5321 JMP L3121 / @@3145=5321
2036 1806 03146 5425 JMP I C0025 / long jump to L0270 @@3146=5425
2038 1808 03147 4451 JMS I C0051 / long call to S1050 @@3147=4451
2039 1809 03150 4040 C3150, 4040 / JMS C0040
2040 1810 03151 0000 AND L0000 / @@3151=0000
2041 1811 03152 5321 JMP L3121 / @@3152=5321
2042 1812 03153 6002 IOF / Disable Interrupts @@3153=6002
2044 1814 03154 6021 PSF / Skip if punch flag is a 1 @@3154=6021
2045 1815 03155 5354 JMP L3154 / @@3155=5354
2047 1817 03156 6011 RSF / Skip if reader flag is a 1. @@3156=6011
2048 1818 03157 5356 JMP L3156 / @@3157=5356
2049 1819 03160 5356 JMP L3156 / @@3160=5356
2051 1821 ////////////////////////////////////////////////////////////////////////////////
2053 1823 / SUBROUTINE: S3161
2057 1827 / Total 0001 (1) calls
2058 1828 ////////////////////////////////////////////////////////////////////////////////
2060 1830 03161 0000 0 / return area
2062 1832 03162 2134 ISZ D0134 / @@3162=2134
2063 1833 03163 5362 JMP L3162 / @@3163=5362
2064 1834 03164 1374 TAD C3174 / @@3164=1374
2065 1835 03165 3134 DCA D0134 / @@3165=3134
2067 1837 03166 2134 ISZ D0134 / @@3166=2134
2068 1838 03167 5366 JMP L3166 / @@3167=5366
2070 1840 03170 2134 ISZ D0134 / @@3170=2134
2071 1841 03171 5370 JMP L3170 / @@3171=5370
2072 1842 03172 5761 JMP I S3161 / return @@3172=5761
2076 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 38
2081 1845 03174 0500 C3174, 0500 / AND I C0100
2082 1846 03175 0001 C3175, 0001 / AND L0001
2083 1847 03176 7773 C3176, 7773 / CLA MQA SCA MQL SHL +
2084 1848 03177 4000 C3177, 4000 / JMS L0000
2085 1849 03200 0004 C3200, 0004 / AND C0004
2086 1850 03201 3230 DCA D3230 / @@3201=3230
2088 1852 03202 6002 IOF / Disable Interrupts @@3202=6002
2089 1853 03203 6007 C3203, 6007 / 6007
2090 1854 03204 6010 C3204, 6010 / 6010
2091 1855 03205 6020 C3205, 6020 / 6020
2092 1856 03206 6001 ION / Enable Interrupts @@3206=6001
2093 1857 03207 6024 PPC / Load the punch buffer from bits 4 th @@3207=6024
2094 1858 03210 6000 C3210, 6000 / 6000
2095 1859 03211 5220 JMP L3220 / @@3211=5220
2096 1860 03212 6003 C3212, 6003 / 6003
2097 1861 03213 7410 SKP / @@3213=7410
2098 1862 03214 5220 JMP L3220 / @@3214=5220
2099 1863 03215 2022 ISZ D0022 / @@3215=2022
2100 1864 03216 5202 JMP L3202 / @@3216=5202
2102 1866 03217 5425 JMP I C0025 / long jump to L0270 @@3217=5425
2104 1868 03220 4451 JMS I C0051 / long call to S1050 @@3220=4451
2105 1869 03221 4040 C3221, 4040 / JMS C0040
2106 1870 03222 0000 AND L0000 / @@3222=0000
2107 1871 03223 5217 JMP L3217 / @@3223=5217
2109 1873 03224 6010 C3224, 6010 / 6010
2110 1874 03225 4502 JMS I C0102 / long call to S0411 @@3225=4502
2111 1875 03226 6020 C3226, 6020 / 6020
2112 1876 03227 5224 JMP L3224 / @@3227=5224
2113 1877 03230 0005 D3230, 0005 / AND D0005
2114 1878 03231 3245 DCA D3245 / @@3231=3245
2115 1879 03232 4477 JMS I C0077 / long call to S1111 @@3232=4477
2116 1880 03233 7014 C3233, 7014 / RAR RAL
2118 1882 03234 7240 STA / AC = 7777 (-0001) @@3234=7240
2119 1883 03235 6026 PLS / Clear the punch flag, clear the bunc @@3235=6026
2120 1884 03236 7200 C3236, 7200 / CLA
2121 1885 03237 6026 PLS / Clear the punch flag, clear the bunc @@3237=6026
2123 1887 03240 6021 PSF / Skip if punch flag is a 1 @@3240=6021
2124 1888 03241 5240 JMP L3240 / @@3241=5240
2125 1889 03242 2122 ISZ D0122 / @@3242=2122
2126 1890 03243 5234 JMP L3234 / @@3243=5234
2127 1891 03244 5425 JMP I C0025 / long jump to L0270 @@3244=5425
2128 1892 03245 0006 D3245, 0006 / AND C0006
2132 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 39
2135 1893 03246 3261 DCA D3261 / @@3246=3261
2136 1894 03247 4477 JMS I C0077 / long call to S1111 @@3247=4477
2137 1895 03250 7014 C3250, 7014 / RAR RAL
2139 1897 03251 7200 CLA / @@3251=7200
2140 1898 03252 1152 TAD C0152 / @@3252=1152
2141 1899 03253 6026 PLS / Clear the punch flag, clear the bunc @@3253=6026
2143 1901 03254 6021 PSF / Skip if punch flag is a 1 @@3254=6021
2144 1902 03255 5254 JMP L3254 / @@3255=5254
2145 1903 03256 2122 ISZ D0122 / @@3256=2122
2146 1904 03257 5251 JMP L3251 / @@3257=5251
2147 1905 03260 5425 JMP I C0025 / long jump to L0270 @@3260=5425
2148 1906 03261 0007 D3261, 0007 / AND C0007
2149 1907 03262 3400 DCA I L0000 / @@3262=3400
2150 1908 03263 4477 JMS I C0077 / long call to S1111 @@3263=4477
2151 1909 03264 7014 C3264, 7014 / RAR RAL
2153 1911 03265 7200 CLA / @@3265=7200
2154 1912 03266 1151 TAD C0151 / @@3266=1151
2155 1913 03267 6026 PLS / Clear the punch flag, clear the bunc @@3267=6026
2157 1915 03270 6021 PSF / Skip if punch flag is a 1 @@3270=6021
2158 1916 03271 5270 JMP L3270 / @@3271=5270
2159 1917 03272 2122 ISZ D0122 / @@3272=2122
2160 1918 03273 5265 JMP L3265 / @@3273=5265
2161 1919 03274 5425 JMP I C0025 / long jump to L0270 @@3274=5425
2164 1922 03400 0010 C3400, 0010 / AND AI0
2165 1923 03401 7777 C3401, 7777 / CLA MQA SCA MQL LSR +
2166 1924 03402 4475 JMS I C0075 / long call to S0400 @@3402=4475
2167 1925 03403 0002 AND C0002 / @@3403=0002
2168 1926 03404 3415 C3404, 3415 / DCA I AI5
2170 1928 03405 6032 KCC / Clear AC and clear keyboard flag. @@3405=6032
2171 1929 03406 6042 TCF / Clear teleprinter flag. @@3406=6042
2172 1930 03407 0000 RFB / Read the content of the reader buffe @@3407=6012
2174 1931 03410 6022 PCF / Clear punch flag and punch buffer. @@3410=6022
2175 1932 03411 6001 ION / Enable Interrupts @@3411=6001
2176 1933 03412 7000 NOP / @@3412=7000
2177 1934 03413 6002 IOF / Disable Interrupts @@3413=6002
2178 1935 03414 5222 JMP L3422 / @@3414=5222
2179 1936 03415 4451 JMS I C0051 / long call to S1050 @@3415=4451
2180 1937 03416 0140 AND C0140 / @@3416=0140
2181 1938 03417 0000 AND L0000 / @@3417=0000
2182 1939 03420 5205 JMP L3405 / @@3420=5205
2183 1940 03421 5205 JMP L3405 / @@3421=5205
2188 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 40
2191 1942 03422 4477 JMS I C0077 / long call to S1111 @@3422=4477
2192 1943 03423 0001 AND L0001 / @@3423=0001
2193 1944 03424 4475 JMS I C0075 / long call to S0400 @@3424=4475
2194 1945 03425 0002 AND C0002 / @@3425=0002
2195 1946 03426 3456 DCA I C0056 / @@3426=3456
2196 1947 03427 7200 CLA / @@3427=7200
2197 1948 03430 6010 C3430, 6010 / 6010
2198 1949 03431 6026 PLS / Clear the punch flag, clear the bunc @@3431=6026
2200 1951 03432 6021 PSF / Skip if punch flag is a 1 @@3432=6021
2201 1952 03433 5232 JMP L3432 / @@3433=5232
2203 1954 03434 6001 ION / Enable Interrupts @@3434=6001
2204 1955 03435 7000 NOP / @@3435=7000
2205 1956 03436 6002 IOF / Disable Interrupts @@3436=6002
2206 1957 03437 4451 JMS I C0051 / long call to S1050 @@3437=4451
2207 1958 03440 0240 C3440, 0240 / AND C3440
2208 1959 03441 0000 AND L0000 / @@3441=0000
2209 1960 03442 5256 JMP L3456 / @@3442=5256
2210 1961 03443 4475 JMS I C0075 / long call to S0400 @@3443=4475
2211 1962 03444 0002 AND C0002 / @@3444=0002
2212 1963 03445 3455 DCA I C0055 / @@3445=3455
2213 1964 03446 7200 CLA / @@3446=7200
2214 1965 03447 6026 C3447, 6026 / PLS
2216 1967 03450 6021 PSF / Skip if punch flag is a 1 @@3450=6021
2217 1968 03451 5250 C3451, 5250 / JMP L3450
2219 1970 03452 6001 ION / Enable Interrupts @@3452=6001
2220 1971 03453 7000 NOP / @@3453=7000
2221 1972 03454 5252 JMP L3452 / @@3454=5252
2222 1973 03455 5252 JMP L3452 / @@3455=5252
2224 1975 03456 2122 ISZ D0122 / @@3456=2122
2225 1976 03457 5234 JMP L3434 / @@3457=5234
2226 1977 03460 6020 C3460, 6020 / 6020
2227 1978 03461 5425 JMP I C0025 / long jump to L0270 @@3461=5425
2228 1979 03462 4475 JMS I C0075 / long call to S0400 @@3462=4475
2229 1980 03463 0105 AND D0105 / @@3463=0105
2230 1981 03464 0460 AND I C0060 / @@3464=0460
2232 1983 03465 4464 JMS I D0064 / long call to S1311 @@3465=4464
2233 1984 03466 4477 JMS I C0077 / long call to S1111 @@3466=4477
2234 1985 03467 7773 C3467, 7773 / CLA MQA SCA MQL SHL +
2236 1987 03470 4463 JMS I D0063 / long call to S0324 @@3470=4463
2237 1988 03471 3123 DCA D0123 / @@3471=3123
2239 1990 03472 4467 JMS I C0067 / long call to S1412 @@3472=4467
2240 1991 03473 3462 DCA I C0062 / @@3473=3462
2244 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 41
2247 1992 03474 4455 JMS I C0055 / long call to S1200 @@3474=4455
2248 1993 03475 4461 JMS I C0061 / long call to S1143 @@3475=4461
2249 1994 03476 5303 JMP L3503 / @@3476=5303
2251 1996 03477 2123 ISZ D0123 / @@3477=2123
2252 1997 03500 5272 JMP L3472 / @@3500=5272
2253 1998 03501 4563 JMS I C0163 / long call to S1125 @@3501=4563
2254 1999 03502 5270 JMP L3470 / @@3502=5270
2256 2001 03503 2122 ISZ D0122 / @@3503=2122
2257 2002 03504 5277 JMP L3477 / @@3504=5277
2258 2003 03505 5265 JMP L3465 / @@3505=5265
2259 2004 03506 4460 JMS I C0060 / long call to S1230 @@3506=4460
2260 2005 03507 4457 JMS I C0057 / long call to S1214 @@3507=4457
2261 2006 03510 4466 JMS I C0066 / long call to S1400 @@3510=4466
2262 2007 03511 1150 TAD C0150 / @@3511=1150
2263 2008 03512 3105 DCA D0105 / @@3512=3105
2265 2010 03513 4467 JMS I C0067 / long call to S1412 @@3513=4467
2266 2011 03514 4456 JMS I C0056 / long call to S1207 @@3514=4456
2267 2012 03515 4563 JMS I C0163 / long call to S1125 @@3515=4563
2268 2013 03516 5313 JMP L3513 / @@3516=5313
2269 2014 03517 4466 JMS I C0066 / long call to S1400 @@3517=4466
2270 2015 03520 4475 JMS I C0075 / long call to S0400 @@3520=4475
2271 2016 03521 0105 AND D0105 / @@3521=0105
2272 2017 03522 0400 AND I L0000 / @@3522=0400
2273 2018 03523 4467 JMS I C0067 / long call to S1412 @@3523=4467
2274 2019 03524 3462 DCA I C0062 / @@3524=3462
2276 2021 03525 4455 JMS I C0055 / long call to S1200 @@3525=4455
2277 2022 03526 7440 SZA / @@3526=7440
2278 2023 03527 5334 JMP L3534 / @@3527=5334
2279 2024 03530 5325 JMP L3525 / @@3530=5325
2281 2026 03531 4467 JMS I C0067 / long call to S1412 @@3531=4467
2282 2027 03532 3462 DCA I C0062 / @@3532=3462
2283 2028 03533 4455 JMS I C0055 / long call to S1200 @@3533=4455
2285 2030 03534 4461 JMS I C0061 / long call to S1143 @@3534=4461
2286 2031 03535 7000 NOP / @@3535=7000
2287 2032 03536 5331 JMP L3531 / @@3536=5331
2288 2033 03537 4460 JMS I C0060 / long call to S1230 @@3537=4460
2289 2034 03540 4457 JMS I C0057 / long call to S1214 @@3540=4457
2290 2035 03541 4474 JMS I C0074 / long call to S0536 @@3541=4474
2291 2036 03542 1247 TAD C3447 / @@3542=1247
2292 2037 03543 1251 TAD C3451 / @@3543=1251
2293 2038 03544 7774 SPA SNA SZL CLA OSR / @@3544=7774
2294 2039 03545 1150 TAD C0150 / @@3545=1150
2295 2040 03546 3105 DCA D0105 / @@3546=3105
2300 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 42
2303 2042 03547 4453 JMS I C0053 / long call to S1255 @@3547=4453
2304 2043 03550 4456 JMS I C0056 / long call to S1207 @@3550=4456
2305 2044 03551 4563 JMS I C0163 / long call to S1125 @@3551=4563
2306 2045 03552 5347 JMP L3547 / @@3552=5347
2307 2046 03553 4474 JMS I C0074 / long call to S0536 @@3553=4474
2308 2047 03554 1247 TAD C3447 / @@3554=1247
2309 2048 03555 1251 TAD C3451 / @@3555=1251
2310 2049 03556 7774 SPA SNA SZL CLA OSR / @@3556=7774
2311 2050 03557 4475 JMS I C0075 / long call to S0400 @@3557=4475
2312 2051 03560 0105 AND D0105 / @@3560=0105
2313 2052 03561 0400 AND I L0000 / @@3561=0400
2314 2053 03562 4454 JMS I C0054 / long call to S1273 @@3562=4454
2315 2054 03563 3462 DCA I C0062 / @@3563=3462
2317 2056 03564 4455 JMS I C0055 / long call to S1200 @@3564=4455
2318 2057 03565 7440 SZA / @@3565=7440
2319 2058 03566 5373 JMP L3573 / @@3566=5373
2320 2059 03567 5364 JMP L3564 / @@3567=5364
2322 2061 03570 4454 JMS I C0054 / long call to S1273 @@3570=4454
2323 2062 03571 3462 DCA I C0062 / @@3571=3462
2324 2063 03572 4455 JMS I C0055 / long call to S1200 @@3572=4455
2326 2065 03573 4461 JMS I C0061 / long call to S1143 @@3573=4461
2327 2066 03574 7000 NOP / @@3574=7000
2328 2067 03575 5370 JMP L3570 / @@3575=5370
2331 2070 03600 4475 D3600, 4475 / JMS I C0075
2332 2071 03601 0105 AND D0105 / @@3601=0105
2333 2072 03602 0460 AND I C0060 / @@3602=0460
2334 2073 03603 4475 JMS I C0075 / long call to S0400 @@3603=4475
2335 2074 03604 0104 AND D0104 / @@3604=0104
2336 2075 03605 0077 AND C0077 / @@3605=0077
2337 2076 03606 4466 JMS I C0066 / long call to S1400 @@3606=4466
2338 2077 03607 2133 ISZ D0133 / @@3607=2133
2339 2078 03610 4475 JMS I C0075 / long call to S0400 @@3610=4475
2340 2079 03611 0002 AND C0002 / @@3611=0002
2341 2080 03612 0703 AND I C3703 / @@3612=0703
2342 2081 03613 4475 JMS I C0075 / long call to S0400 @@3613=4475
2343 2082 03614 0716 AND I C3716 / @@3614=0716
2344 2083 03615 3624 DCA I C3624 / @@3615=3624
2345 2084 03616 4475 JMS I C0075 / long call to S0400 @@3616=4475
2346 2085 03617 0711 AND I C3711 / @@3617=0711
2347 2086 03620 3671 DCA I C3671 / @@3620=3671
2348 2087 03621 4246 JMS S3646 / @@3621=4246
2349 2088 03622 6001 ION / Enable Interrupts @@3622=6001
2351 2090 03623 5223 JMP L3623 / @@3623=5223
2352 2091 03624 2132 C3624, 2132 / ISZ D0132
2356 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 43
2359 2092 03625 1132 TAD D0132 / @@3625=1132
2360 2093 03626 1147 TAD C0147 / @@3626=1147
2361 2094 03627 7710 SPA CLA / @@3627=7710
2362 2095 03630 5233 JMP L3633 / @@3630=5233
2364 2097 03631 7402 HLT / @@3631=7402
2365 2098 03632 5231 JMP L3631 / @@3632=5231
2367 2100 03633 4246 JMS S3646 / @@3633=4246
2368 2101 03634 1127 TAD D0127 / @@3634=1127
2369 2102 03635 7640 SZA CLA / @@3635=7640
2370 2103 03636 5503 JMP I C0103 / long jump to L0733 @@3636=5503
2371 2104 03637 1132 TAD D0132 / @@3637=1132
2372 2105 03640 1146 TAD C0146 / @@3640=1146
2373 2106 03641 7710 SPA CLA / @@3641=7710
2374 2107 03642 5503 JMP I C0103 / long jump to L0733 @@3642=5503
2375 2108 03643 6014 RFC / Clear reader flag and reader buffer, @@3643=6014
2376 2109 03644 2127 ISZ D0127 / @@3644=2127
2377 2110 03645 5503 JMP I C0103 / long jump to L0733 @@3645=5503
2379 2112 ////////////////////////////////////////////////////////////////////////////////
2381 2114 / SUBROUTINE: S3646
2385 2118 / Total 0002 (2) calls
2386 2119 ////////////////////////////////////////////////////////////////////////////////
2388 2121 03646 0000 0 / return area
2389 2122 03647 4470 JMS I C0070 / long call to S1435 @@3647=4470
2390 2123 03650 6026 PLS / Clear the punch flag, clear the bunc @@3650=6026
2391 2124 03651 7200 CLA / @@3651=7200
2392 2125 03652 5646 JMP I S3646 / return @@3652=5646
2394 2127 ////////////////////////////////////////////////////////////////////////////////
2396 2129 / SUBROUTINE: S3653
2399 2132 ////////////////////////////////////////////////////////////////////////////////
2401 2134 03653 0000 0 / return area
2402 2135 03654 7200 CLA / @@3654=7200
2403 2136 03655 0000 RFB / Read the content of the reader buffe @@3655=6012
2405 2137 03656 3131 DCA D0131 / @@3656=3131
2406 2138 03657 1132 TAD D0132 / @@3657=1132
2407 2139 03660 1145 TAD C0145 / @@3660=1145
2408 2140 03661 3132 DCA D0132 / @@3661=3132
2412 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 44
2415 2141 03662 1132 TAD D0132 / @@3662=1132
2416 2142 03663 7640 SZA CLA / @@3663=7640
2417 2143 03664 5267 JMP L3667 / @@3664=5267
2418 2144 03665 3127 DCA D0127 / @@3665=3127
2419 2145 03666 5653 JMP I S3653 / return @@3666=5653
2421 2147 03667 6014 RFC / Clear reader flag and reader buffer, @@3667=6014
2422 2148 03670 5653 JMP I S3653 / return @@3670=5653
2423 2149 03671 4253 C3671, 4253 / JMS S3653
2424 2150 03672 1131 TAD D0131 / @@3672=1131
2425 2151 03673 7650 SNA CLA / @@3673=7650
2426 2152 03674 5503 JMP I C0103 / long jump to L0733 @@3674=5503
2427 2153 03675 4475 JMS I C0075 / long call to S0400 @@3675=4475
2428 2154 03676 0711 AND I C3711 / @@3676=0711
2429 2155 03677 3703 DCA I C3703 / @@3677=3703
2430 2156 03700 4477 JMS I C0077 / long call to S1111 @@3700=4477
2431 2157 03701 7773 C3701, 7773 / CLA MQA SCA MQL SHL +
2432 2158 03702 7410 SKP / @@3702=7410
2433 2159 03703 4253 C3703, 4253 / JMS S3653
2434 2160 03704 4467 JMS I C0067 / long call to S1412 @@3704=4467
2435 2161 03705 3462 DCA I C0062 / @@3705=3462
2436 2162 03706 1131 TAD D0131 / @@3706=1131
2437 2163 03707 4461 JMS I C0061 / long call to S1143 @@3707=4461
2438 2164 03710 7410 SKP / @@3710=7410
2439 2165 03711 5503 C3711, 5503 / JMP I C0103
2440 2166 03712 2122 ISZ D0122 / @@3712=2122
2441 2167 03713 5503 JMP I C0103 / long jump to L0733 @@3713=5503
2443 2169 03714 4475 JMS I C0075 / long call to S0400 @@3714=4475
2444 2170 03715 0711 AND I C3711 / @@3715=0711
2445 2171 03716 3720 C3716, 3720 / DCA I C3720
2446 2172 03717 5503 JMP I C0103 / long jump to L0733 @@3717=5503
2447 2173 03720 4253 C3720, 4253 / JMS S3653
2448 2174 03721 1131 TAD D0131 / @@3721=1131
2449 2175 03722 3110 DCA D0110 / @@3722=3110
2450 2176 03723 4475 JMS I C0075 / long call to S0400 @@3723=4475
2451 2177 03724 0711 AND I C3711 / @@3724=0711
2452 2178 03725 3727 DCA I C3727 / @@3725=3727
2453 2179 03726 5503 JMP I C0103 / long jump to L0733 @@3726=5503
2454 2180 03727 4253 C3727, 4253 / JMS S3653
2455 2181 03730 1131 TAD D0131 / @@3730=1131
2456 2182 03731 3111 DCA D0111 / @@3731=3111
2457 2183 03732 4475 JMS I C0075 / long call to S0400 @@3732=4475
2458 2184 03733 0711 AND I C3711 / @@3733=0711
2459 2185 03734 3736 DCA I C3736 / @@3734=3736
2460 2186 03735 5503 JMP I C0103 / long jump to L0733 @@3735=5503
2461 2187 03736 4253 C3736, 4253 / JMS S3653
2462 2188 03737 1131 TAD D0131 / @@3737=1131
2463 2189 03740 3112 DCA D0112 / @@3740=3112
2464 2190 03741 4465 JMS I C0065 / long call to S1324 @@3741=4465
2468 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 45
2471 2191 03742 5314 JMP L3714 / @@3742=5314
2472 2192 03743 4477 JMS I C0077 / long call to S1111 @@3743=4477
2473 2193 03744 7773 C3744, 7773 / CLA MQA SCA MQL SHL +
2474 2194 03745 4475 JMS I C0075 / long call to S0400 @@3745=4475
2475 2195 03746 0711 AND I C3711 / @@3746=0711
2476 2196 03747 3703 DCA I C3703 / @@3747=3703
2477 2197 03750 5503 JMP I C0103 / long jump to L0733 @@3750=5503
2480 2200 04000 4475 JMS I C0075 / long call to S0400 @@4000=4475
2481 2201 04001 0002 C4001, 0002 / AND C0002
2482 2202 04002 0703 AND I C4103 / @@4002=0703
2483 2203 04003 4475 JMS I C0075 / long call to S0400 @@4003=4475
2484 2204 04004 0716 C4004, 0716 / AND I C4116
2485 2205 04005 0741 C4005, 0741 / AND I C4141
2486 2206 04006 4475 JMS I C0075 / long call to S0400 @@4006=4475
2487 2207 04007 0711 AND I C4111 / @@4007=0711
2488 2208 04010 4070 C4010, 4070 / JMS C0070
2489 2209 04011 4475 C4011, 4475 / JMS I C0075
2490 2210 04012 1075 TAD C0075 / @@4012=1075
2491 2211 04013 7000 NOP / @@4013=7000
2492 2212 04014 1144 TAD C0144 / @@4014=1144
2493 2213 04015 3572 DCA I C0172 / @@4015=3572
2494 2214 04016 3105 DCA D0105 / @@4016=3105
2496 2216 04017 4253 JMS S4053 / @@4017=4253
2497 2217 04020 7440 SZA / @@4020=7440
2498 2218 04021 7410 SKP / @@4021=7410
2500 2220 04022 4253 JMS S4053 / @@4022=4253
2501 2221 04023 7041 CIA / @@4023=7041
2502 2222 04024 1153 TAD C0153 / @@4024=1153
2503 2223 04025 7640 SZA CLA / @@4025=7640
2504 2224 04026 5233 JMP L4033 / @@4026=5233
2505 2225 04027 4253 JMS S4053 / @@4027=4253
2506 2226 04030 7640 SZA CLA / @@4030=7640
2507 2227 04031 5242 JMP L4042 / @@4031=5242
2508 2228 04032 5222 JMP L4022 / @@4032=5222
2510 2230 04033 4452 JMS I C0052 / long call to S1000 @@4033=4452
2511 2231 04034 4052 C4034, 4052 / JMS C0052
2512 2232 04035 1604 TAD I C4004 / @@4035=1604
2514 2234 04036 4452 JMS I C0052 / long call to S1000 @@4036=4452
2515 2235 04037 4074 C4037, 4074 / JMS C0074
2516 2236 04040 1611 C4040, 1611 / TAD I C4011
2517 2237 04041 5246 JMP L4046 / @@4041=5246
2519 2239 04042 4452 JMS I C0052 / long call to S1000 @@4042=4452
2520 2240 04043 4075 C4043, 4075 / JMS C0075
2524 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 46
2527 2241 04044 1604 TAD I C4004 / @@4044=1604
2528 2242 04045 5236 JMP L4036 / @@4045=5236
2530 2244 04046 4451 JMS I C0051 / long call to S1050 @@4046=4451
2531 2245 04047 4040 C4047, 4040 / JMS C0040
2532 2246 04050 1601 TAD I C4001 / @@4050=1601
2533 2247 04051 5217 JMP L4017 / @@4051=5217
2534 2248 04052 0377 C4052, 0377 / AND C4177
2536 2250 ////////////////////////////////////////////////////////////////////////////////
2538 2252 / SUBROUTINE: S4053
2541 2255 / 4017 4022 4027
2542 2256 / Total 0003 (3) calls
2543 2257 ////////////////////////////////////////////////////////////////////////////////
2545 2259 04053 0000 0 / return area
2546 2260 04054 4501 JMS I C0101 / long call to S1042 @@4054=4501
2547 2261 04055 7665 C4055, 7665 / CLA SCA MQL MUY +
2548 2262 04056 6014 RFC / Clear reader flag and reader buffer, @@4056=6014
2549 2263 04057 6001 ION / Enable Interrupts @@4057=6001
2550 2264 04060 4502 JMS I C0102 / long call to S0411 @@4060=4502
2551 2265 04061 6002 IOF / Disable Interrupts @@4061=6002
2552 2266 04062 6011 RSF / Skip if reader flag is a 1. @@4062=6011
2553 2267 04063 7410 SKP / @@4063=7410
2554 2268 04064 5270 JMP L4070 / @@4064=5270
2555 2269 04065 4447 JMS I C0047 / long call to S0616 @@4065=4447
2556 2270 04066 4076 C4066, 4076 / JMS C0076
2557 2271 04067 5217 JMP L4017 / @@4067=5217
2559 2273 04070 0000 RFB / Read the content of the reader buffe @@4070=6012
2561 2274 04071 3274 DCA D4074 / @@4071=3274
2562 2275 04072 1274 TAD D4074 / @@4072=1274
2563 2276 04073 5653 JMP I S4053 / return @@4073=5653
2564 2277 04074 0000 D4074, 0000 / AND L0000
2565 2278 04075 0000 AND L0000 / @@4075=0000
2566 2279 04076 0007 C4076, 0007 / AND C0007
2567 2280 04077 0007 C4077, 0007 / AND C0007
2568 2281 04100 0007 C4100, 0007 / AND C0007
2570 2283 04101 0001 AND L0001 / @@4101=0001
2571 2284 04102 7604 LAS / @@4102=7604
2572 2285 04103 0153 C4103, 0153 / AND C0153
2573 2286 04104 6026 PLS / Clear the punch flag, clear the bunc @@4104=6026
2575 2288 04105 6021 PSF / Skip if punch flag is a 1 @@4105=6021
2576 2289 04106 5305 JMP L4105 / @@4106=5305
2580 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 47
2583 2290 04107 5301 JMP L4101 / @@4107=5301
2584 2291 04110 4475 JMS I C0075 / long call to S0400 @@4110=4475
2585 2292 04111 0105 C4111, 0105 / AND D0105
2586 2293 04112 0075 AND C0075 / @@4112=0075
2588 2295 04113 7240 STA / AC = 7777 (-0001) @@4113=7240
2589 2296 04114 0153 AND C0153 / @@4114=0153
2590 2297 04115 4456 JMS I C0056 / long call to S1207 @@4115=4456
2591 2298 04116 4563 C4116, 4563 / JMS I C0163
2592 2299 04117 7200 CLA / @@4117=7200
2593 2300 04120 4456 JMS I C0056 / long call to S1207 @@4120=4456
2594 2301 04121 4563 JMS I C0163 / long call to S1125 @@4121=4563
2595 2302 04122 5313 JMP L4113 / @@4122=5313
2599 2306 04200 7200 CLA / @@4200=7200
2600 2307 04201 3123 DCA D0123 / @@4201=3123
2601 2308 04202 7604 LAS / @@4202=7604
2602 2309 04203 7104 CLL RAL / @@4203=7104
2603 2310 04204 7710 SPA CLA / @@4204=7710
2604 2311 04205 1143 TAD C0143 / @@4205=1143
2605 2312 04206 1142 TAD C0142 / @@4206=1142
2606 2313 04207 3232 DCA D4232 / @@4207=3232
2607 2314 04210 5220 JMP L4220 / @@4210=5220
2609 2316 04211 6014 RFC / Clear reader flag and reader buffer, @@4211=6014
2611 2318 04212 6011 RSF / Skip if reader flag is a 1. @@4212=6011
2612 2319 04213 5212 JMP L4212 / @@4213=5212
2613 2320 04214 2122 ISZ D0122 / @@4214=2122
2614 2321 04215 5222 JMP L4222 / @@4215=5222
2615 2322 04216 2123 ISZ D0123 / @@4216=2123
2616 2323 04217 7000 NOP / @@4217=7000
2618 2325 04220 1232 TAD D4232 / @@4220=1232
2619 2326 04221 3122 DCA D0122 / @@4221=3122
2621 2328 04222 7604 LAS / @@4222=7604
2622 2329 04223 7700 SMA CLA / @@4223=7700
2623 2330 04224 5211 JMP L4211 / @@4224=5211
2624 2331 04225 4447 JMS I C0047 / long call to S0616 @@4225=4447
2625 2332 04226 1532 TAD I D0132 / @@4226=1532
2626 2333 04227 4257 JMS S4257 / @@4227=4257
2627 2334 04230 7402 HLT / @@4230=7402
2628 2335 04231 5200 JMP L4200 / @@4231=5200
2629 2336 04232 0000 D4232, 0000 / AND L0000
2631 2338 04233 7200 CLA / @@4233=7200
2632 2339 04234 3123 DCA D0123 / @@4234=3123
2636 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 48
2639 2340 04235 5245 JMP L4245 / @@4235=5245
2641 2342 04236 6026 PLS / Clear the punch flag, clear the bunc @@4236=6026
2643 2344 04237 6021 PSF / Skip if punch flag is a 1 @@4237=6021
2644 2345 04240 5237 JMP L4237 / @@4240=5237
2645 2346 04241 2122 ISZ D0122 / @@4241=2122
2646 2347 04242 5247 JMP L4247 / @@4242=5247
2647 2348 04243 2123 ISZ D0123 / @@4243=2123
2648 2349 04244 7000 NOP / @@4244=7000
2650 2351 04245 1141 TAD C0141 / @@4245=1141
2651 2352 04246 3122 DCA D0122 / @@4246=3122
2653 2354 04247 7604 LAS / @@4247=7604
2654 2355 04250 7700 SMA CLA / @@4250=7700
2655 2356 04251 5236 JMP L4236 / @@4251=5236
2656 2357 04252 4447 JMS I C0047 / long call to S0616 @@4252=4447
2657 2358 04253 1543 D4253, 1543 / TAD I C0143
2658 2359 04254 4257 JMS S4257 / @@4254=4257
2659 2360 04255 7402 HLT / @@4255=7402
2660 2361 04256 5233 JMP L4233 / @@4256=5233
2662 2363 ////////////////////////////////////////////////////////////////////////////////
2664 2365 / SUBROUTINE: S4257
2668 2369 / Total 0002 (2) calls
2669 2370 ////////////////////////////////////////////////////////////////////////////////
2671 2372 04257 0000 0 / return area
2672 2373 04260 4265 JMS S4265 / @@4260=4265
2673 2374 04261 0123 AND D0123 / @@4261=0123
2674 2375 04262 4447 JMS I C0047 / long call to S0616 @@4262=4447
2675 2376 04263 1554 TAD I C0154 / @@4263=1554
2676 2377 04264 5657 JMP I S4257 / return @@4264=5657
2678 2379 ////////////////////////////////////////////////////////////////////////////////
2680 2381 / SUBROUTINE: S4265
2684 2385 / Total 0001 (1) calls
2685 2386 ////////////////////////////////////////////////////////////////////////////////
2687 2388 04265 0000 0 / return area
2688 2389 04266 4475 JMS I C0075 / long call to S0400 @@4266=4475
2692 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 49
2695 2390 04267 4331 JMS D4331 / @@4267=4331
2696 2391 04270 7774 SPA SNA SZL CLA OSR / @@4270=7774
2697 2392 04271 1322 TAD C4322 / @@4271=1322
2698 2393 04272 3303 DCA D4303 / @@4272=3303
2699 2394 04273 1665 TAD I S4265 / @@4273=1665
2700 2395 04274 2265 ISZ S4265 / @@4274=2265
2701 2396 04275 3330 DCA D4330 / @@4275=3330
2702 2397 04276 1730 TAD I D4330 / @@4276=1730
2703 2398 04277 3327 DCA D4327 / @@4277=3327
2705 2400 04300 3330 DCA D4330 / @@4300=3330
2707 2402 04301 7100 CLL / @@4301=7100
2708 2403 04302 1327 TAD D4327 / @@4302=1327
2709 2404 04303 1323 D4303, 1323 / TAD C4323
2710 2405 04304 7420 SNL / @@4304=7420
2711 2406 04305 5311 JMP L4311 / @@4305=5311
2712 2407 04306 2330 ISZ D4330 / @@4306=2330
2713 2408 04307 3327 DCA D4327 / @@4307=3327
2714 2409 04310 5301 JMP L4301 / @@4310=5301
2716 2411 04311 7200 CLA / @@4311=7200
2717 2412 04312 1330 TAD D4330 / @@4312=1330
2718 2413 04313 1140 TAD C0140 / @@4313=1140
2719 2414 04314 4473 JMS I C0073 / long call to S0426 @@4314=4473
2720 2415 04315 7300 CLA CLL / AC = 0000 @@4315=7300
2721 2416 04316 2303 ISZ D4303 / @@4316=2303
2722 2417 04317 2331 ISZ D4331 / @@4317=2331
2723 2418 04320 5300 JMP L4300 / @@4320=5300
2724 2419 04321 5665 JMP I S4265 / return @@4321=5665
2725 2420 04322 1323 C4322, 1323 / TAD C4323
2726 2421 04323 6030 C4323, 6030 / 6030
2727 2422 04324 7634 SZL CLA OSR / @@4324=7634
2728 2423 04325 7766 SMA SZA SNL CLA OSR HLT / @@4325=7766
2729 2424 04326 7777 C4326, 7777 / CLA MQA SCA MQL LSR +
2730 2425 04327 0000 D4327, 0000 / AND L0000
2731 2426 04330 0000 D4330, 0000 / AND L0000
2732 2427 04331 0000 D4331, 0000 / AND L0000
2733 2428 04332 7602 CLA HLT / @@4332=7602
2735 2430 04333 7604 LAS / @@4333=7604
2736 2431 04334 0174 AND C0174 / @@4334=0174
2737 2432 04335 7041 CIA / @@4335=7041
2738 2433 04336 3021 DCA D0021 / @@4336=3021
2739 2434 04337 7604 LAS / @@4337=7604
2740 2435 04340 0137 AND C0137 / @@4340=0137
2741 2436 04341 7106 CLL RTL / @@4341=7106
2742 2437 04342 7006 RTL / @@4342=7006
2743 2438 04343 7006 RTL / @@4343=7006
2744 2439 04344 7041 CIA / @@4344=7041
2748 AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE Page 50
2751 2440 04345 3347 DCA D4347 / @@4345=3347
2752 2441 04346 4477 JMS I C0077 / long call to S1111 @@4346=4477
2753 2442 04347 0000 D4347, 0000 / AND L0000
2755 2444 04350 6014 RFC / Clear reader flag and reader buffer, @@4350=6014
2757 2446 04351 6011 RSF / Skip if reader flag is a 1. @@4351=6011
2758 2447 04352 5351 JMP L4351 / @@4352=5351
2759 2448 04353 2122 ISZ D0122 / @@4353=2122
2760 2449 04354 5350 JMP L4350 / @@4354=5350
2761 2450 04355 4502 JMS I C0102 / long call to S0411 @@4355=4502
2762 2451 04356 5333 JMP L4333 / @@4356=5333
projects / pdp8.git / blob