projects / pdp8.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
maindec: Added the usual collection, with intact symlinks
[pdp8.git] / sw / maindec / pc8e / maindec-8e-d2ca-pb.pal
1 TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE"
2 ////////////////////////////////////////////////////////////////////////////////
3 /
4 / Automatic Disassembly of maindec-8e-d2ca-pb.bin
5 / Generated 2009 04 06 00:10:32
6 / Generated by d8tape version 0.351
7 / Visit http://www.pdp12.org/pdp8/software/index.html for updates
8 /
9 / Symbol format:
10 / AIx -- Auto-index variables (address range 001x)
11 / Caaaa -- Constants (non-unique)
12 / Daaaa -- Data (read/write variables)
13 / Kvvvv -- Program-wide unique constants
14 / Laaaa -- Labels for control flow targets
15 / Saaaa -- Subroutines
16 /
17 / Where:
18 / aaaa is the definition address
19 / vvvv is the value of the constant
20 / x is the last digit of the address 001x for auto-index variables
21 /
22 / 3360 locations used, 2552 code and 0606 data
23 ////////////////////////////////////////////////////////////////////////////////
24
25 *0000
26 L0000,
27 D0000, 0000 / AND L0000
28 L0001,
29 C0001, 5001 / JMP L0001
30 C0002, 0002 / AND C0002
31 D0003, 0003 / AND D0003
32
33 *0005
34 D0005, 5402 / JMP I C0002
35 C0006, 0000 / AND L0000
36
37 *0020
38 D0020, 0000 / AND L0000
39 D0021, 0000 / AND L0000
40 D0022, 0000 / AND L0000
41 D0023, 0000 / AND L0000
42 D0024, 0000 / AND L0000
43 C0025,
44 C0025, 0270 / AND C0070
45 C0026,
46 C0026, 0333 / AND D0133
47 C0027,
48 C0027, 0447 / AND I C0047
49 D0030, 0000 / AND L0000
50 C0031, 2000 / ISZ L0000
51 D0032, 3000 / DCA L0000
52 DCA I C0062 / @@0033=3462
53 DCA I C0106 / @@0034=3506
54 DCA I D0117 / @@0035=3517
55 D0036, 3537 / DCA I C0137
56 C0037, 3553 / DCA I C0153
57 C0040, 3600 / DCA I L0000
58 JMS L0000 / @@0041=4000
59 C0042, 4102 / JMS C0102
60 C0043, 4110 / JMS D0110
61 JMS L0000 / @@0044=4200
62 C0045, 4233 / JMS C0033
63 JMS D0132 / @@0046=4332
64 C0047,
65 C0047, 0616 / AND I AI6
66 C0050, 0600 / AND I L0000
67 C0051,
68 C0051, 1050 / TAD C0050
69 C0052,
70 C0052, 1000 / TAD L0000
71 C0053,
72 C0053, 1255 / TAD C0055
73 C0054,
74 C0054, 1273 / TAD C0073
75 C0055,
76 C0055, 1200 / TAD L0000
77 C0056,
78 C0056, 1207 / TAD C0007
79 C0057,
80 C0057, 1214 / TAD AI4
81 C0060,
82 C0060, 1230 / TAD D0030
83 C0061,
84 C0061, 1143 / TAD C0143
85 C0062, 1145 / TAD C0145
86 D0063, 0324 / AND C0124
87 D0064, 1311 / TAD D0111
88 C0065,
89 C0065, 1324 / TAD C0124
90 C0066,
91 C0066, 1400 / TAD I L0000
92 C0067,
93 C0067, 1412 / TAD I AI2
94 C0070,
95 C0070, 1435 / TAD I C0035
96 C0071,
97 C0071, 0521 / AND I D0121
98 C0072,
99 C0072, 0513 / AND I D0113
100 C0073,
101 C0073, 0426 / AND I C0026
102 C0074,
103 C0074, 0536 / AND I D0136
104 C0075,
105 C0075, 0400 / AND I L0000
106 C0076,
107 C0076, 0443 / AND I C0043
108 C0077,
109 C0077, 1111 / TAD D0111
110 C0100,
111 C0100, 1117 / TAD D0117
112 C0101,
113 C0101, 1042 / TAD C0042
114 C0102,
115 C0102, 0411 / AND I AI1
116 C0103,
117 C0103, 0733 / AND I D0133
118 D0104, 0000 / AND L0000
119 D0105, 0000 / AND L0000
120 C0106, 7354 / CLA CLL CMA RAR RAL
121 D0107, 0000 / AND L0000
122 D0110, 0000 / AND L0000
123 D0111, 0000 / AND L0000
124 D0112, 0000 / AND L0000
125 D0113, 0000 / AND L0000
126 C0114, 0000 / AND L0000
127 D0115, 0000 / AND L0000
128 D0116, 0000 / AND L0000
129 D0117, 0000 / AND L0000
130 D0120, 0000 / AND L0000
131 D0121, 0000 / AND L0000
132 D0122, 0000 / AND L0000
133 D0123, 0000 / AND L0000
134 C0124, 0000 / AND L0000
135 C0125, 0000 / AND L0000
136 D0126, 0000 / AND L0000
137 D0127, 0000 / AND L0000
138 C0130, 0000 / AND L0000
139 D0131, 0000 / AND L0000
140 D0132, 0000 / AND L0000
141 D0133, 0000 / AND L0000
142 D0134, 0000 / AND L0000
143 D0135, 0000 / AND L0000
144 D0136, 0000 / AND L0000
145 C0137, 7600 / 7600
146 C0140, 0260 / AND C0060
147 C0141, 7704 / SMA CLA OSR
148 C0142, 7742 / SMA SZA CLA HLT
149 C0143, 7362 / CLA CLL CMA CML
150 C0144, 7000 / NOP
151 C0145, 7777 / CLA MQA SCA MQL LSR +
152 C0146, 7766 / SMA SZA SNL CLA OSR HLT
153 C0147, 7634 / SZL CLA OSR
154 C0150, 0060 / AND C0060
155 C0151, 0252 / AND C0052
156 C0152, 0125 / AND C0125
157 C0153, 0377 / AND C0177
158 C0154, 0020 / AND D0020
159 C0155, 0040 / AND C0040
160 C0156, 0200 / AND L0000
161 C0157, 0400 / AND I L0000
162 C0160, 6060 / 6060
163 C0161, 0707 / AND I D0107
164 C0162, 7700 / SMA CLA
165 C0163,
166 C0163, 1125 / TAD C0125
167 C0164, 0240 / AND C0040
168 C0165, 0100 / AND C0100
169 C0166, 7740 / SMA SZA CLA
170 C0167, 7510 / SPA
171 C0170, 7500 / SMA
172 C0171, 0077 / AND C0077
173 C0172, 1130 / TAD C0130
174 C0173, 7640 / SZA CLA
175 C0174, 0177 / AND C0177
176 C0175, 0031 / AND C0031
177 C0176, 7763 / CLA MQA SCA MQL SCL +
178 C0177, 0017 / AND AI7
179 SKP / @@0200=7410
180 L0201,
181 CLA HLT / @@0201=7602
182 LAS / @@0202=7604
183 AND C0177 / @@0203=0177
184 TAD C0176 / @@0204=1176
185 SMA SZA / @@0205=7540
186 JMP L0201 / @@0206=5201
187 LAS / @@0207=7604
188 AND C0177 / @@0210=0177
189 DCA D0030 / @@0211=3030
190 TAD D0030 / @@0212=1030
191 TAD C0175 / @@0213=1175
192 DCA D0113 / @@0214=3113
193 TAD I D0113 / @@0215=1513
194 DCA D0240 / @@0216=3240
195 JMS I C0074 / long call to S0536 @@0217=4474
196 AND D0005 / @@0220=0005
197 AND L0001 / @@0221=0001
198 SPA SNA SZL CLA OSR HLT / @@0222=7776
199 DCA D0113 / @@0223=3113
200 JMS I C0074 / long call to S0536 @@0224=4474
201 AND D0113 / @@0225=0113
202 AND C0114 / @@0226=0114
203 SMA SZA SNL CLA / @@0227=7760
204 JMS I C0075 / long call to S0400 @@0230=4475
205 TAD C0075 / @@0231=1075
206 HLT / @@0232=7402
207 TAD C0174 / @@0233=1174
208 DCA D0104 / @@0234=3104
209 TAD C0173 / @@0235=1173
210 DCA I C0172 / @@0236=3572
211 JMP I D0240 / long jump to L0000 @@0237=5640
212 D0240, 0000 / AND L0000
213 L0241,
214 CLA HLT / @@0241=7602
215 L0242,
216 CLA / @@0242=7200
217 TAD D0020 / @@0243=1020
218 DCA D0117 / @@0244=3117
219 L0245,
220 JMS S0307 / @@0245=4307
221 JMS I C0076 / long call to S0443 @@0246=4476
222 RTL / @@0247=7006
223 SNL / @@0250=7420
224 JMP I D0115 / long jump to L0000 @@0251=5515
225 JMS I C0076 / long call to S0443 @@0252=4476
226 AND C0177 / @@0253=0177
227 CIA / @@0254=7041
228 TAD D0116 / @@0255=1116
229 SNA CLA / @@0256=7650
230 JMP I D0115 / long jump to L0000 @@0257=5515
231 TAD D0117 / @@0260=1117
232 IAC / @@0261=7001
233 SZA CLA / @@0262=7640
234 JMP L0245 / @@0263=5245
235 JMS I C0047 / long call to S0616 @@0264=4447
236 TAD I C0160 / @@0265=1560
237 CLA HLT / @@0266=7602
238 JMP L0242 / @@0267=5242
239 L0270,
240 JMS I C0026 / long call to S0333 @@0270=4426
241 JMS I C0076 / long call to S0443 @@0271=4476
242 RTL / @@0272=7006
243 SZL CLA / @@0273=7630
244 JMP L0242 / @@0274=5242
245 TAD D0117 / @@0275=1117
246 IAC / @@0276=7001
247 SZA CLA / @@0277=7640
248 JMP L0245 / @@0300=5245
249 JMS I C0076 / long call to S0443 @@0301=4476
250 RTL / @@0302=7006
251 SPA CLA / @@0303=7710
252 JMP L0242 / @@0304=5242
253 HLT / @@0305=7402
254 JMP L0270 / @@0306=5270
255
256 ////////////////////////////////////////////////////////////////////////////////
257 /
258 / SUBROUTINE: S0307
259 /
260 / Called from:
261 / 0245
262 / Total 0001 (1) calls
263 ////////////////////////////////////////////////////////////////////////////////
264 S0307,
265 0 / return area
266 CLA CLL / AC = 0000 @@0310=7300
267 TAD I D0117 / @@0311=1517
268 DCA D0116 / @@0312=3116
269 ISZ D0117 / @@0313=2117
270 TAD D0117 / @@0314=1117
271 DCA D0113 / @@0315=3113
272 ISZ D0117 / @@0316=2117
273 TAD D0117 / @@0317=1117
274 DCA D0115 / @@0320=3115
275 TAD I D0113 / @@0321=1513
276 DCA D0117 / @@0322=3117
277 JMP I S0307 / return @@0323=5707
278 C0324,
279 C0324, 0000 / AND L0000
280 L0325,
281 JMS I C0027 / long call to S0447 @@0325=4427
282 AND C0177 / @@0326=0177
283 SNA / @@0327=7450
284 JMP L0325 / @@0330=5325
285 CIA / @@0331=7041
286 JMP I C0324 / long jump to L0000 @@0332=5724
287
288 ////////////////////////////////////////////////////////////////////////////////
289 /
290 / SUBROUTINE: S0333
291 /
292 / Called from:
293 / 0270
294 / Total 0001 (1) calls
295 ////////////////////////////////////////////////////////////////////////////////
296 S0333,
297 0 / return area
298 JMS I C0076 / long call to S0443 @@0334=4476
299 SMA CLA / @@0335=7700
300 JMP I S0333 / return @@0336=5733
301 TAD D0116 / @@0337=1116
302 HLT / @@0340=7402
303 JMP I S0333 / return @@0341=5733
304
305 *0400
306
307 ////////////////////////////////////////////////////////////////////////////////
308 /
309 / SUBROUTINE: S0400
310 /
311 / Called from:
312 / 0230 1215 1234 1325 1330 2003 2641 2663 2701 3003 3402 3424 3443 3462 3520
313 / 3557 3603 3610 3613 3616 3675 3714 3723 3732 3745 4000 4003 4006 4110 4266
314 /
315 / Total 0036 (30) calls
316 ////////////////////////////////////////////////////////////////////////////////
317 S0400,
318 0 / return area
319 CLA / @@0401=7200
320 TAD I S0400 / @@0402=1600
321 DCA D0113 / @@0403=3113
322 ISZ S0400 / @@0404=2200
323 TAD I S0400 / @@0405=1600
324 DCA I D0113 / @@0406=3513
325 ISZ S0400 / @@0407=2200
326 D0410, 5600 / JMP I S0400
327
328 ////////////////////////////////////////////////////////////////////////////////
329 /
330 / SUBROUTINE: S0411
331 /
332 / Called from:
333 / 1141 2017 2034 2225 2446 2731 2733 2761 2771 2776 3043 3225 4060 4355
334 / Total 0016 (14) calls
335 ////////////////////////////////////////////////////////////////////////////////
336 S0411,
337 0 / return area
338 CLA CLL / AC = 0000 @@0412=7300
339 TAD D0021 / @@0413=1021
340 DCA D0120 / @@0414=3120
341 JMP I C0416 / long jump to L0417 @@0415=5616
342 C0416,
343 C0416, 0417 / AND I AI7
344 L0417,
345 TAD C0106 / @@0417=1106
346 DCA D0121 / @@0420=3121
347 L0421,
348 ISZ D0121 / @@0421=2121
349 JMP L0421 / @@0422=5221
350 ISZ D0120 / @@0423=2120
351 JMP L0417 / @@0424=5217
352 JMP I S0411 / return @@0425=5611
353
354 ////////////////////////////////////////////////////////////////////////////////
355 /
356 / SUBROUTINE: S0426
357 /
358 / Called from:
359 / 0676 4314
360 / Total 0002 (2) calls
361 ////////////////////////////////////////////////////////////////////////////////
362 S0426,
363 0 / return area
364 ISZ D0126 / @@0427=2126
365 TLS / Load the TTO from the content of AC4 @@0430=6046
366 CLA / @@0431=7200
367 L0432,
368 TAD D0126 / @@0432=1126
369 SZA CLA / @@0433=7640
370 SKP / @@0434=7410
371 JMP L0440 / @@0435=5240
372 TSF / Skip if teleprinter flag is a 1. @@0436=6041
373 JMP L0432 / @@0437=5232
374 L0440,
375 C0440, 6042 / TCF
376 DCA D0126 / @@0441=3126
377 JMP I S0426 / return @@0442=5626
378
379 ////////////////////////////////////////////////////////////////////////////////
380 /
381 / SUBROUTINE: S0443
382 /
383 / Called from:
384 / 0246 0252 0271 0301 0334 1072 1076 1102 1126 1132
385 / Total 0012 (10) calls
386 ////////////////////////////////////////////////////////////////////////////////
387 S0443,
388 0 / return area
389 LAS / @@0444=7604
390 AND D0105 / @@0445=0105
391 JMP I S0443 / return @@0446=5643
392
393 ////////////////////////////////////////////////////////////////////////////////
394 /
395 / SUBROUTINE: S0447
396 /
397 / Called from:
398 / 0325 0514
399 / Total 0002 (2) calls
400 ////////////////////////////////////////////////////////////////////////////////
401 S0447,
402 0 / return area
403 CLA / @@0450=7200
404 TAD C0511 / @@0451=1311
405 TAD D0476 / @@0452=1276
406 SZA CLA / @@0453=7640
407 JMP L0464 / @@0454=5264
408 TAD C0500 / @@0455=1300
409 DCA D0476 / @@0456=3276
410 TAD D0477 / @@0457=1277
411 CLL RAL / @@0460=7104
412 SZL / @@0461=7430
413 IAC / @@0462=7001
414 DCA D0477 / @@0463=3277
415 L0464,
416 TAD D0477 / @@0464=1277
417 TAD I D0476 / @@0465=1676
418 DCA I D0476 / @@0466=3676
419 TAD D0512 / @@0467=1312
420 RAR / @@0470=7010
421 TAD I D0476 / @@0471=1676
422 ISZ D0476 / @@0472=2276
423 DCA D0512 / @@0473=3312
424 TAD D0512 / @@0474=1312
425 JMP I S0447 / return @@0475=5647
426 D0476, 0511 / AND I D0111
427 D0477, 6543 / 6543
428 C0500, 0501 / AND I C0101
429 C0501, 6543 / 6543
430 DCA D0410 / @@0502=3210
431 C0503, 0765 / AND I C0565
432 JMP I D0032 / long jump to L3000 @@0504=5432
433 ISZ D0107 / @@0505=2107
434 SNA CLA OSR / @@0506=7654
435 JMS S0521 / @@0507=4321
436 TAD C0076 / @@0510=1076
437 C0511, 7267 / CLA CMA CML IAC RTL
438 D0512, 0000 / AND L0000
439
440 ////////////////////////////////////////////////////////////////////////////////
441 /
442 / SUBROUTINE: S0513
443 /
444 / Called from:
445 / 1136
446 / Total 0001 (1) calls
447 ////////////////////////////////////////////////////////////////////////////////
448 S0513,
449 0 / return area
450 JMS I C0027 / long call to S0447 @@0514=4427
451 AND C0174 / @@0515=0174
452 CIA / @@0516=7041
453 DCA D0021 / @@0517=3021
454 JMP I S0513 / return @@0520=5713
455
456 ////////////////////////////////////////////////////////////////////////////////
457 /
458 / SUBROUTINE: S0521
459 /
460 / Called from:
461 / 0507 1144
462 / Total 0002 (2) calls
463 ////////////////////////////////////////////////////////////////////////////////
464 S0521,
465 0 / return area
466 DCA D0535 / @@0522=3335
467 TAD I S0521 / @@0523=1721
468 CIA / @@0524=7041
469 TAD D0535 / @@0525=1335
470 ISZ S0521 / @@0526=2321
471 SZA CLA / @@0527=7640
472 JMP L0533 / @@0530=5333
473 ISZ S0521 / @@0531=2321
474 JMP I S0521 / return @@0532=5721
475 L0533,
476 TAD D0535 / @@0533=1335
477 JMP I S0521 / return @@0534=5721
478 D0535, 0000 / AND L0000
479
480 ////////////////////////////////////////////////////////////////////////////////
481 /
482 / SUBROUTINE: S0536
483 /
484 / Called from:
485 / 0217 0224 3541 3553
486 / Total 0004 (4) calls
487 ////////////////////////////////////////////////////////////////////////////////
488 S0536,
489 0 / return area
490 CLA / @@0537=7200
491 TAD I S0536 / @@0540=1736
492 DCA D0561 / @@0541=3361
493 ISZ S0536 / @@0542=2336
494 TAD I S0536 / @@0543=1736
495 DCA D0562 / @@0544=3362
496 ISZ S0536 / @@0545=2336
497 TAD I S0536 / @@0546=1736
498 DCA D0563 / @@0547=3363
499 ISZ S0536 / @@0550=2336
500 L0551,
501 CLA / @@0551=7200
502 TAD I D0561 / @@0552=1761
503 DCA I D0562 / @@0553=3762
504 ISZ D0561 / @@0554=2361
505 ISZ D0562 / @@0555=2362
506 ISZ D0563 / @@0556=2363
507 JMP L0551 / @@0557=5351
508 JMP I S0536 / return @@0560=5736
509 D0561, 0000 / AND L0000
510 D0562, 0000 / AND L0000
511 D0563, 0000 / AND L0000
512
513 *0600
514 D0600, 0000 / AND L0000
515 CLA / @@0601=7200
516 TAD I D0600 / @@0602=1600
517 DCA D0615 / @@0603=3215
518 ISZ D0600 / @@0604=2200
519 L0605,
520 JMS I C0047 / long call to S0616 @@0605=4447
521 AND I C0612 / @@0606=0612
522 ISZ D0615 / @@0607=2215
523 JMP L0605 / @@0610=5205
524 JMP I D0600 / long jump to L0000 @@0611=5600
525 C0612, 0015 / AND AI5
526 C0613, 0012 / AND AI2
527 AND L0001 / @@0614=0001
528 D0615, 0000 / AND L0000
529
530 ////////////////////////////////////////////////////////////////////////////////
531 /
532 / SUBROUTINE: S0616
533 /
534 / Called from:
535 / 0264 0605 0730 1061 1070 4065 4225 4252 4262
536 / Total 0011 (9) calls
537 ////////////////////////////////////////////////////////////////////////////////
538 S0616,
539 0 / return area
540 CLA / @@0617=7200
541 TAD I S0616 / @@0620=1616
542 DCA D0700 / @@0621=3300
543 DCA D0702 / @@0622=3302
544 ISZ S0616 / @@0623=2216
545 L0624,
546 TAD I D0700 / @@0624=1700
547 RTR / @@0625=7012
548 RTR / @@0626=7012
549 RTR / @@0627=7012
550 JMS S0635 / @@0630=4235
551 TAD I D0700 / @@0631=1700
552 JMS S0635 / @@0632=4235
553 ISZ D0700 / @@0633=2300
554 JMP L0624 / @@0634=5224
555
556 ////////////////////////////////////////////////////////////////////////////////
557 /
558 / SUBROUTINE: S0635
559 /
560 / Called from:
561 / 0630 0632
562 / Total 0002 (2) calls
563 ////////////////////////////////////////////////////////////////////////////////
564 S0635,
565 0 / return area
566 AND C0171 / @@0636=0171
567 C0637, 3301 / DCA D0701
568 TAD D0702 / @@0640=1302
569 SZA CLA / @@0641=7640
570 JMP L0652 / @@0642=5252
571 TAD D0701 / @@0643=1301
572 SNA / @@0644=7450
573 JMP L0650 / @@0645=5250
574 L0646,
575 JMS S0671 / @@0646=4271
576 JMP I S0635 / return @@0647=5635
577 L0650,
578 ISZ D0702 / @@0650=2302
579 JMP I S0635 / return @@0651=5635
580 L0652,
581 DCA D0702 / @@0652=3302
582 TAD D0701 / @@0653=1301
583 CIA / @@0654=7041
584 SNA / @@0655=7450
585 JMP L0646 / @@0656=5246
586 IAC / @@0657=7001
587 SNA CLA / @@0660=7650
588 JMP I S0616 / return @@0661=5616
589 TAD C0170 / @@0662=1170
590 DCA D0673 / @@0663=3273
591 TAD D0701 / @@0664=1301
592 JMS S0671 / @@0665=4271
593 TAD C0167 / @@0666=1167
594 DCA D0673 / @@0667=3273
595 JMP I S0635 / return @@0670=5635
596
597 ////////////////////////////////////////////////////////////////////////////////
598 /
599 / SUBROUTINE: S0671
600 /
601 / Called from:
602 / 0646 0665
603 / Total 0002 (2) calls
604 ////////////////////////////////////////////////////////////////////////////////
605 S0671,
606 0 / return area
607 TAD C0166 / @@0672=1166
608 D0673, 7510 / SPA
609 TAD C0165 / @@0674=1165
610 TAD C0164 / @@0675=1164
611 JMS I C0073 / long call to S0426 @@0676=4473
612 JMP I S0671 / return @@0677=5671
613 D0700, 0000 / AND L0000
614 D0701, 0000 / AND L0000
615 D0702, 0000 / AND L0000
616 DCA D0023 / @@0703=3023
617 RAR / @@0704=7010
618 DCA D0024 / @@0705=3024
619 RSF / Skip if reader flag is a 1. @@0706=6011
620 JMP L0712 / @@0707=5312
621 JMP I C0711 / long jump to L0000 @@0710=5711
622 C0711,
623 C0711, 0000 / AND L0000
624 L0712,
625 PSF / Skip if punch flag is a 1 @@0712=6021
626 JMP L0717 / @@0713=5317
627 JMS I C0163 / long call to S1125 @@0714=4563
628 JMP I C0716 / long jump to L0000 @@0715=5716
629 C0716,
630 C0716, 0000 / AND L0000
631 L0717,
632 KSF / Skip if keyboard flag is a 1. @@0717=6031
633 JMP L0723 / @@0720=5323
634 KCC / Clear AC and clear keyboard flag. @@0721=6032
635 JMP I C0103 / long jump to L0733 @@0722=5503
636 L0723,
637 TSF / Skip if teleprinter flag is a 1. @@0723=6041
638 JMP L0730 / @@0724=5330
639 TCF / Clear teleprinter flag. @@0725=6042
640 DCA D0126 / @@0726=3126
641 JMP I C0103 / long jump to L0733 @@0727=5503
642 L0730,
643 JMS I C0047 / long call to S0616 @@0730=4447
644 TAD I C0101 / @@0731=1501
645 CLA HLT / @@0732=7602
646 L0733,
647 C0733, 7300 / CLA CLL
648 TAD D0024 / @@0734=1024
649 RAL / @@0735=7004
650 TAD D0023 / @@0736=1023
651 ION / Enable Interrupts @@0737=6001
652 JMP I L0000 / long jump to L0000 @@0740=5400
653 PCF / Clear punch flag and punch buffer. @@0741=6022
654 JMP I C0103 / long jump to L0733 @@0742=5503
655 RFB / Read the content of the reader buffe @@0743=6012
656 JMP I C0103 / long jump to L0733 @@0744=5503
657
658 *1000
659
660 ////////////////////////////////////////////////////////////////////////////////
661 /
662 / SUBROUTINE: S1000
663 /
664 / Called from:
665 / 1051 1054 1152 1155 2620 2623 4033 4036 4042
666 / Total 0011 (9) calls
667 ////////////////////////////////////////////////////////////////////////////////
668 S1000,
669 0 / return area
670 C1001, 7200 / CLA
671 TAD I S1000 / @@1002=1600
672 DCA D1037 / @@1003=3237
673 C1004, 2200 / ISZ S1000
674 TAD I S1000 / @@1005=1600
675 DCA D1040 / @@1006=3240
676 ISZ S1000 / @@1007=2200
677 TAD C0162 / @@1010=1162
678 C1011, 0637 / AND I D1037
679 CLL RTR / @@1012=7112
680 RTR / @@1013=7012
681 RTR / @@1014=7012
682 JMS S1024 / @@1015=4224
683 ISZ D1040 / @@1016=2240
684 TAD C0162 / @@1017=1162
685 CMA / @@1020=7040
686 AND I D1037 / @@1021=0637
687 JMS S1024 / @@1022=4224
688 JMP I S1000 / return @@1023=5600
689
690 ////////////////////////////////////////////////////////////////////////////////
691 /
692 / SUBROUTINE: S1024
693 /
694 / Called from:
695 / 1015 1022
696 / Total 0002 (2) calls
697 ////////////////////////////////////////////////////////////////////////////////
698 S1024,
699 0 / return area
700 DCA D1041 / @@1025=3241
701 TAD D1041 / @@1026=1241
702 RTL / @@1027=7006
703 RAL / @@1030=7004
704 AND C0161 / @@1031=0161
705 TAD D1041 / @@1032=1241
706 AND C0161 / @@1033=0161
707 TAD C0160 / @@1034=1160
708 DCA I D1040 / @@1035=3640
709 JMP I S1024 / return @@1036=5624
710 D1037, 0000 / AND L0000
711 D1040, 0000 / AND L0000
712 D1041, 0000 / AND L0000
713
714 ////////////////////////////////////////////////////////////////////////////////
715 /
716 / SUBROUTINE: S1042
717 /
718 / Called from:
719 / 2014 2031 2724 2755 2767 2774 3036 4054
720 / Total 0010 (8) calls
721 ////////////////////////////////////////////////////////////////////////////////
722 S1042,
723 0 / return area
724 CLA / @@1043=7200
725 TAD I S1042 / @@1044=1642
726 DCA D0021 / @@1045=3021
727 ISZ S1042 / @@1046=2242
728 JMP I S1042 / return @@1047=5642
729
730 ////////////////////////////////////////////////////////////////////////////////
731 /
732 / SUBROUTINE: S1050
733 /
734 / Called from:
735 / 1160 2025 2052 2073 2137 2220 2412 2442 2626 2675 2736 2751 3017 3051 3076
736 / 3147 3220 3415 3437 4046
737 / Total 0024 (20) calls
738 ////////////////////////////////////////////////////////////////////////////////
739 S1050,
740 0 / return area
741 JMS I C0052 / long call to S1000 @@1051=4452
742 AND D0030 / @@1052=0030
743 TAD I C0071 / @@1053=1471
744 JMS I C0052 / long call to S1000 @@1054=4452
745 AND D0116 / @@1055=0116
746 TAD I C0074 / @@1056=1474
747 TAD I S1050 / @@1057=1650
748 DCA I C1110 / @@1060=3710
749 JMS I C0047 / long call to S0616 @@1061=4447
750 TAD I C0066 / @@1062=1466
751 ISZ S1050 / @@1063=2250
752 TAD I S1050 / @@1064=1650
753 SNA / @@1065=7450
754 JMP L1072 / @@1066=5272
755 DCA D1071 / @@1067=3271
756 JMS I C0047 / long call to S0616 @@1070=4447
757 D1071, 0000 / AND L0000
758 L1072,
759 JMS I C0076 / long call to S0443 @@1072=4476
760 AND C0157 / @@1073=0157
761 SNA CLA / @@1074=7650
762 HLT / @@1075=7402
763 JMS I C0076 / long call to S0443 @@1076=4476
764 AND C0156 / @@1077=0156
765 SZA CLA / @@1100=7640
766 JMP I C0025 / long jump to L0270 @@1101=5425
767 JMS I C0076 / long call to S0443 @@1102=4476
768 AND C0165 / @@1103=0165
769 SZA CLA / @@1104=7640
770 ISZ S1050 / @@1105=2250
771 ISZ S1050 / @@1106=2250
772 JMP I S1050 / return @@1107=5650
773 C1110, 1476 / TAD I C0076
774
775 ////////////////////////////////////////////////////////////////////////////////
776 /
777 / SUBROUTINE: S1111
778 /
779 / Called from:
780 / 2012 2040 2066 2402 2432 2602 2661 2721 3012 3034 3065 3232 3247 3263 3422
781 / 3466 3700 3743 4346
782 / Total 0023 (19) calls
783 ////////////////////////////////////////////////////////////////////////////////
784 S1111,
785 0 / return area
786 CLA / @@1112=7200
787 TAD I S1111 / @@1113=1711
788 DCA D0122 / @@1114=3122
789 ISZ S1111 / @@1115=2311
790 JMP I S1111 / return @@1116=5711
791
792 ////////////////////////////////////////////////////////////////////////////////
793 /
794 / SUBROUTINE: S1117
795 /
796 / Called from:
797 / 1232
798 / Total 0001 (1) calls
799 ////////////////////////////////////////////////////////////////////////////////
800 S1117,
801 0 / return area
802 CLA / @@1120=7200
803 TAD I S1117 / @@1121=1717
804 DCA D0123 / @@1122=3123
805 ISZ S1117 / @@1123=2317
806 JMP I S1117 / return @@1124=5717
807
808 ////////////////////////////////////////////////////////////////////////////////
809 /
810 / SUBROUTINE: S1125
811 /
812 / Called from:
813 / 0714 3501 3515 3551 4121
814 / Total 0005 (5) calls
815 ////////////////////////////////////////////////////////////////////////////////
816 S1125,
817 0 / return area
818 JMS I C0076 / long call to S0443 @@1126=4476
819 AND C0155 / @@1127=0155
820 D1130, 7640 / SZA CLA
821 JMP I S1125 / return @@1131=5725
822 JMS I C0076 / long call to S0443 @@1132=4476
823 AND C0154 / @@1133=0154
824 SZA CLA / @@1134=7640
825 SKP / @@1135=7410
826 JMS I C0072 / long call to S0513 @@1136=4472
827 TAD D0021 / @@1137=1021
828 SZA / @@1140=7440
829 JMS I C0102 / long call to S0411 @@1141=4502
830 JMP I S1125 / return @@1142=5725
831
832 ////////////////////////////////////////////////////////////////////////////////
833 /
834 / SUBROUTINE: S1143
835 /
836 / Called from:
837 / 3475 3534 3573 3707
838 / Total 0004 (4) calls
839 ////////////////////////////////////////////////////////////////////////////////
840 S1143,
841 0 / return area
842 JMS I C0071 / long call to S0521 @@1144=4471
843 D1145, 0000 / AND L0000
844 JMP L1151 / @@1146=5351
845 ISZ S1143 / @@1147=2343
846 JMP I S1143 / return @@1150=5743
847 L1151,
848 DCA D0131 / @@1151=3131
849 JMS I C0052 / long call to S1000 @@1152=4452
850 TAD C0145 / @@1153=1145
851 TAD I C1004 / @@1154=1604
852 JMS I C0052 / long call to S1000 @@1155=4452
853 AND D0131 / @@1156=0131
854 TAD I C1011 / @@1157=1611
855 JMS I C0051 / long call to S1050 @@1160=4451
856 C1161, 4040 / JMS C0040
857 TAD I C1001 / @@1162=1601
858 JMP I S1143 / return @@1163=5743
859 JMP I S1143 / return @@1164=5743
860
861 *1200
862
863 ////////////////////////////////////////////////////////////////////////////////
864 /
865 / SUBROUTINE: S1200
866 /
867 / Called from:
868 / 1313 1315 1317 3474 3525 3533 3564 3572
869 / Total 0010 (8) calls
870 ////////////////////////////////////////////////////////////////////////////////
871 S1200,
872 0 / return area
873 RFC / Clear reader flag and reader buffer, @@1201=6014
874 L1202,
875 RSF / Skip if reader flag is a 1. @@1202=6011
876 JMP L1202 / @@1203=5202
877 CLA / @@1204=7200
878 RFB / Read the content of the reader buffe @@1205=6012
879 JMP I S1200 / return @@1206=5600
880
881 ////////////////////////////////////////////////////////////////////////////////
882 /
883 / SUBROUTINE: S1207
884 /
885 / Called from:
886 / 1241 3514 3550 4115 4120
887 / Total 0005 (5) calls
888 ////////////////////////////////////////////////////////////////////////////////
889 S1207,
890 0 / return area
891 PLS / Clear the punch flag, clear the bunc @@1210=6026
892 L1211,
893 PSF / Skip if punch flag is a 1 @@1211=6021
894 JMP L1211 / @@1212=5211
895 JMP I S1207 / return @@1213=5607
896
897 ////////////////////////////////////////////////////////////////////////////////
898 /
899 / SUBROUTINE: S1214
900 /
901 / Called from:
902 / 1231 3507 3540
903 / Total 0003 (3) calls
904 ////////////////////////////////////////////////////////////////////////////////
905 S1214,
906 0 / return area
907 JMS I C0075 / long call to S0400 @@1215=4475
908 TAD D1227 / @@1216=1227
909 SZL CLA OSR / @@1217=7634
910 L1220,
911 CLA / @@1220=7200
912 PLS / Clear the punch flag, clear the bunc @@1221=6026
913 L1222,
914 PSF / Skip if punch flag is a 1 @@1222=6021
915 JMP L1222 / @@1223=5222
916 ISZ D1227 / @@1224=2227
917 JMP L1220 / @@1225=5220
918 JMP I S1214 / return @@1226=5614
919 D1227, 0000 / AND L0000
920
921 ////////////////////////////////////////////////////////////////////////////////
922 /
923 / SUBROUTINE: S1230
924 /
925 / Called from:
926 / 3506 3537
927 / Total 0002 (2) calls
928 ////////////////////////////////////////////////////////////////////////////////
929 S1230,
930 0 / return area
931 JMS S1214 / @@1231=4214
932 JMS I C0100 / long call to S1117 @@1232=4500
933 C1233, 7767 / CLA MQA SCA MQL DVI +
934 JMS I C0075 / long call to S0400 @@1234=4475
935 TAD D1246 / @@1235=1246
936 TAD I D0121 / @@1236=1521
937 L1237,
938 CLA / @@1237=7200
939 TAD I D1246 / @@1240=1646
940 JMS S1207 / @@1241=4207
941 ISZ D1246 / @@1242=2246
942 ISZ D0123 / @@1243=2123
943 JMP L1237 / @@1244=5237
944 JMP I S1230 / return @@1245=5630
945 D1246, 0000 / AND L0000
946 TAD C1233 / @@1247=1233
947 SNL CLA HLT / @@1250=7622
948 D1251, 0000 / AND L0000
949 D1252, 0000 / AND L0000
950 D1253, 0000 / AND L0000
951 D1254, 0000 / AND L0000
952
953 ////////////////////////////////////////////////////////////////////////////////
954 /
955 / SUBROUTINE: S1255
956 /
957 / Called from:
958 / 3547
959 / Total 0001 (1) calls
960 ////////////////////////////////////////////////////////////////////////////////
961 S1255,
962 0 / return area
963 CLA CLL / AC = 0000 @@1256=7300
964 TAD D1251 / @@1257=1251
965 RTL / @@1260=7006
966 TAD D1252 / @@1261=1252
967 DCA D1251 / @@1262=3251
968 TAD D1251 / @@1263=1251
969 RTL / @@1264=7006
970 TAD D1252 / @@1265=1252
971 RTL / @@1266=7006
972 DCA D1252 / @@1267=3252
973 TAD D1251 / @@1270=1251
974 AND C0153 / @@1271=0153
975 JMP I S1255 / return @@1272=5655
976
977 ////////////////////////////////////////////////////////////////////////////////
978 /
979 / SUBROUTINE: S1273
980 /
981 / Called from:
982 / 3562 3570
983 / Total 0002 (2) calls
984 ////////////////////////////////////////////////////////////////////////////////
985 S1273,
986 0 / return area
987 CLA CLL / AC = 0000 @@1274=7300
988 TAD D1253 / @@1275=1253
989 RTL / @@1276=7006
990 TAD D1254 / @@1277=1254
991 DCA D1253 / @@1300=3253
992 TAD D1253 / @@1301=1253
993 RTL / @@1302=7006
994 TAD D1254 / @@1303=1254
995 RTL / @@1304=7006
996 DCA D1254 / @@1305=3254
997 TAD D1253 / @@1306=1253
998 AND C0153 / @@1307=0153
999 JMP I S1273 / return @@1310=5673
1000 C1311,
1001 C1311, 0000 / AND L0000
1002 L1312,
1003 JMS I C0066 / long call to S1400 @@1312=4466
1004 JMS I C0055 / long call to S1200 @@1313=4455
1005 DCA D0110 / @@1314=3110
1006 JMS I C0055 / long call to S1200 @@1315=4455
1007 DCA D0111 / @@1316=3111
1008 JMS I C0055 / long call to S1200 @@1317=4455
1009 DCA D0112 / @@1320=3112
1010 JMS I C0065 / long call to S1324 @@1321=4465
1011 JMP L1312 / @@1322=5312
1012 JMP I C1311 / long jump to L0000 @@1323=5711
1013
1014 ////////////////////////////////////////////////////////////////////////////////
1015 /
1016 / SUBROUTINE: S1324
1017 /
1018 / Called from:
1019 / 1321 3741
1020 / Total 0002 (2) calls
1021 ////////////////////////////////////////////////////////////////////////////////
1022 S1324,
1023 0 / return area
1024 JMS I C0075 / long call to S0400 @@1325=4475
1025 TAD D1363 / @@1326=1363
1026 NOP / @@1327=7000
1027 L1330,
1028 JMS I C0075 / long call to S0400 @@1330=4475
1029 TAD D1364 / @@1331=1364
1030 SMA SZA SNL CLA OSR HLT / @@1332=7766
1031 L1333,
1032 JMS I C0067 / long call to S1412 @@1333=4467
1033 CMA / @@1334=7040
1034 AND D0110 / @@1335=0110
1035 SZA / @@1336=7440
1036 JMP L1333 / @@1337=5333
1037 JMS I C0067 / long call to S1412 @@1340=4467
1038 CMA / @@1341=7040
1039 AND D0111 / @@1342=0111
1040 SNA / @@1343=7450
1041 JMP L1351 / @@1344=5351
1042 ISZ D1363 / @@1345=2363
1043 JMP L1330 / @@1346=5330
1044 L1347,
1045 CLA HLT / @@1347=7602
1046 JMP I S1324 / return @@1350=5724
1047 L1351,
1048 JMS I C0067 / long call to S1412 @@1351=4467
1049 CMA / @@1352=7040
1050 AND D0112 / @@1353=0112
1051 SZA / @@1354=7440
1052 JMP L1360 / @@1355=5360
1053 ISZ S1324 / @@1356=2324
1054 JMP I S1324 / return @@1357=5724
1055 L1360,
1056 ISZ D1364 / @@1360=2364
1057 JMP L1330 / @@1361=5330
1058 JMP L1347 / @@1362=5347
1059 D1363, 0000 / AND L0000
1060 D1364, 0000 / AND L0000
1061
1062 *1400
1063
1064 ////////////////////////////////////////////////////////////////////////////////
1065 /
1066 / SUBROUTINE: S1400
1067 /
1068 / Called from:
1069 / 1312 3510 3517 3606
1070 / Total 0004 (4) calls
1071 ////////////////////////////////////////////////////////////////////////////////
1072 S1400,
1073 0 / return area
1074 CLA IAC / @@1401=7201
1075 DCA D1460 / @@1402=3260
1076 C1403, 4474 / JMS I C0074
1077 TAD I C0060 / @@1404=1460
1078 D1405, 1461 / TAD I C0061
1079 C1406, 7775 / CLA MQA SCA MQL ASR +
1080 DCA D1464 / @@1407=3264
1081 DCA D1465 / @@1410=3265
1082 JMP I S1400 / return @@1411=5600
1083
1084 ////////////////////////////////////////////////////////////////////////////////
1085 /
1086 / SUBROUTINE: S1412
1087 /
1088 / Called from:
1089 / 1333 1340 1351 3472 3513 3523 3531 3704
1090 / Total 0010 (8) calls
1091 ////////////////////////////////////////////////////////////////////////////////
1092 S1412,
1093 0 / return area
1094 CLA / @@1413=7200
1095 TAD D1460 / @@1414=1260
1096 DCA D1461 / @@1415=3261
1097 TAD D1464 / @@1416=1264
1098 CMA / @@1417=7040
1099 L1420,
1100 DCA D1464 / @@1420=3264
1101 TAD D1464 / @@1421=1264
1102 D1422, 7650 / SNA CLA
1103 JMP L1427 / @@1423=5227
1104 TAD D1461 / @@1424=1261
1105 CMA / @@1425=7040
1106 JMP L1431 / @@1426=5231
1107 L1427,
1108 TAD D1461 / @@1427=1261
1109 CIA / @@1430=7041
1110 L1431,
1111 AND C0153 / @@1431=0153
1112 DCA D1460 / @@1432=3260
1113 TAD D1461 / @@1433=1261
1114 JMP I S1412 / return @@1434=5612
1115
1116 ////////////////////////////////////////////////////////////////////////////////
1117 /
1118 / SUBROUTINE: S1435
1119 /
1120 / Called from:
1121 / 3647
1122 / Total 0001 (1) calls
1123 ////////////////////////////////////////////////////////////////////////////////
1124 S1435,
1125 0 / return area
1126 CLA / @@1436=7200
1127 TAD D1462 / @@1437=1262
1128 DCA D1463 / @@1440=3263
1129 TAD D1465 / @@1441=1265
1130 CMA / @@1442=7040
1131 DCA D1465 / @@1443=3265
1132 TAD D1465 / @@1444=1265
1133 SNA CLA / @@1445=7650
1134 JMP L1452 / @@1446=5252
1135 TAD D1463 / @@1447=1263
1136 CMA / @@1450=7040
1137 JMP L1454 / @@1451=5254
1138 L1452,
1139 TAD D1463 / @@1452=1263
1140 CIA / @@1453=7041
1141 L1454,
1142 AND C0153 / @@1454=0153
1143 DCA D1462 / @@1455=3262
1144 TAD D1463 / @@1456=1263
1145 JMP I S1435 / return @@1457=5635
1146 D1460, 0000 / AND L0000
1147 D1461, 0000 / AND L0000
1148 D1462, 0000 / AND L0000
1149 D1463, 0000 / AND L0000
1150 D1464, 0000 / AND L0000
1151 D1465, 0000 / AND L0000
1152 C1466, 0015 / AND AI5
1153 C1467, 0012 / AND AI2
1154 JMP L1420 / @@1470=5220
1155 C1471, 4040 / JMS C0040
1156 C1472, 4040 / JMS C0040
1157 JMS D0022 / @@1473=4022
1158 C1474, 4040 / JMS C0040
1159 C1475, 4040 / JMS C0040
1160 D1476, 4040 / JMS C0040
1161 C1477, 4040 / JMS C0040
1162 AND L0001 / @@1500=0001
1163 C1501, 0015 / AND AI5
1164 C1502, 0012 / AND AI2
1165 C1503, 0007 / AND C0007
1166 C1504, 4025 / JMS C0025
1167 TAD I D1405 / @@1505=1605
1168 DCA D0020 / @@1506=3020
1169 AND I C0103 / @@1507=0503
1170 C1510, 2405 / ISZ I D0005
1171 C1511, 0440 / AND I C0040
1172 TAD D0116 / @@1512=1116
1173 ISZ I D0005 / @@1513=2405
1174 ISZ D1422 / @@1514=2222
1175 ISZ I D0120 / @@1515=2520
1176 ISZ I C0056 / @@1516=2456
1177 C1517, 0015 / AND AI5
1178 AND L0001 / @@1520=0001
1179 AND C0037 / @@1521=0037
1180 C1522, 0040 / AND C0040
1181 AND C0040 / @@1523=0040
1182 C1524, 0037 / AND C0037
1183 AND L0000 / @@1525=0000
1184 AND C0077 / @@1526=0077
1185 C1527, 0011 / AND AI1
1186 C1530, 0011 / AND AI1
1187 AND C0006 / @@1531=0006
1188 C1532, 0015 / AND AI5
1189 C1533, 0012 / AND AI2
1190 JMS D0022 / @@1534=4022
1191 AND I D0022 / @@1535=0422
1192 JMS D0023 / @@1536=4023
1193 ISZ D0005 / @@1537=2005
1194 AND I D0104 / @@1540=0504
1195 JMS L0000 / @@1541=4000
1196 AND C0100 / @@1542=0100
1197 C1543, 0015 / AND AI5
1198 C1544, 0012 / AND AI2
1199 JMS D0020 / @@1545=4020
1200 AND C1510 / @@1546=0310
1201 JMS D0023 / @@1547=4023
1202 ISZ D0005 / @@1550=2005
1203 AND I D0104 / @@1551=0504
1204 JMS L0000 / @@1552=4000
1205 AND C0100 / @@1553=0100
1206 JMS D0003 / @@1554=4003
1207 ISZ D0023 / @@1555=2023
1208 C1556, 0015 / AND AI5
1209 AND L0001 / @@1557=0001
1210 C1560, 0015 / AND AI5
1211 C1561, 0012 / AND AI2
1212 JMS L0000 / @@1562=4000
1213 AND I C1511 / @@1563=0711
1214 TAD I C1403 / @@1564=1603
1215 TAD I C1522 / @@1565=1722
1216 ISZ D1405 / @@1566=2205
1217 AND C1524 / @@1567=0324
1218 JMS D0022 / @@1570=4022
1219 C1571, 2416 / ISZ I AI6
1220 JMS D0023 / @@1572=4023
1221 AND I C0114 / @@1573=0514
1222 AND I C0103 / @@1574=0503
1223 ISZ I D0005 / @@1575=2405
1224 AND I C0056 / @@1576=0456
1225 C1577, 0015 / AND AI5
1226 AND L0001 / @@1600=0001
1227 JMS D0023 / @@1601=4023
1228 C1602, 5702 / JMP I C1702
1229 C1603, 4040 / JMS C0040
1230 C1604, 4040 / JMS C0040
1231 D1605, 4040 / JMS C0040
1232 C1606, 4040 / JMS C0040
1233 C1607, 2701 / ISZ I C1701
1234 C1610, 2340 / ISZ C1740
1235 C1611, 4040 / JMS C0040
1236 C1612, 4040 / JMS C0040
1237 C1613, 0015 / AND AI5
1238 AND L0001 / @@1614=0001
1239 C1615, 0015 / AND AI5
1240 C1616, 0012 / AND AI2
1241 IAC RAL / @@1617=7005
1242 C1620, 4040 / JMS C0040
1243 C1621, 2331 / ISZ C1731
1244 C1622, 2324 / ISZ C1724
1245 AND I D0115 / @@1623=0515
1246 JMP I D1640 / long jump to L2440 @@1624=5640
1247 C1625, 2305 / ISZ C1705
1248 ISZ I C0040 / @@1626=2440
1249 C1627, 2411 / ISZ I AI1
1250 TAD I D0105 / @@1630=1505
1251 C1631, 4004 / JMS C0004
1252 AND I C0114 / @@1632=0514
1253 AND D0131 / @@1633=0131
1254 JMS D0003 / @@1634=4003
1255 C1635, 1716 / TAD I C1716
1256 C1636, 2324 / ISZ C1724
1257 AND D0116 / @@1637=0116
1258 D1640, 2440 / ISZ I C0040
1259 TAD D0116 / @@1641=1116
1260 JMS D0023 / @@1642=4023
1261 ISZ D1656 / @@1643=2256
1262 C1644, 0015 / AND AI5
1263 C1645, 0012 / AND AI2
1264 ISZ D1605 / @@1646=2205
1265 AND I D1605 / @@1647=0605
1266 ISZ D1640 / @@1650=2240
1267 C1651, 2417 / ISZ I AI7
1268 JMS D0020 / @@1652=4020
1269 AND D0107 / @@1653=0107
1270 AND I D0123 / @@1654=0523
1271 C1655, 4062 / JMS C0062
1272 D1656, 4001 / JMS L0001
1273 TAD I C1604 / @@1657=1604
1274 C1660, 4063 / JMS D0063
1275 C1661, 4017 / JMS AI7
1276 AND I D1640 / @@1662=0640
1277 ISZ D0022 / @@1663=2022
1278 C1664, 0740 / AND I C1740
1279 C1665, 1411 / TAD I AI1
1280 C1666, 2324 / ISZ C1724
1281 TAD D0116 / @@1667=1116
1282 C1670, 0756 / AND I C1756
1283 AND L0001 / @@1671=0001
1284
1285 *2000
1286 D2000, 4475 / JMS I C0075
1287 AND D0020 / @@2001=0020
1288 C2002, 2010 / ISZ AI0
1289 JMS I C0075 / long call to S0400 @@2003=4475
1290 AND D0105 / @@2004=0105
1291 C2005, 7717 / CLA MQA LSR +
1292 JMP I C2007 / long jump to L0241 @@2006=5607
1293 C2007,
1294 C2007, 0241 / AND C2041
1295 AND L0000 / @@2010=0000
1296 ISZ D0036 / @@2011=2036
1297 JMS I C0077 / long call to S1111 @@2012=4477
1298 SNA SZL / @@2013=7470
1299 JMS I C0101 / long call to S1042 @@2014=4501
1300 OSR HLT / @@2015=7406
1301 L2016,
1302 RFC / Clear reader flag and reader buffer, @@2016=6014
1303 JMS I C0102 / long call to S0411 @@2017=4502
1304 RSF / Skip if reader flag is a 1. @@2020=6011
1305 JMP L2025 / @@2021=5225
1306 L2022,
1307 ISZ D0122 / @@2022=2122
1308 JMP L2016 / @@2023=5216
1309 JMP I C0025 / long jump to L0270 @@2024=5425
1310 L2025,
1311 JMS I C0051 / long call to S1050 @@2025=4451
1312 C2026, 4040 / JMS C0040
1313 AND L0000 / @@2027=0000
1314 JMP L2022 / @@2030=5222
1315 JMS I C0101 / long call to S1042 @@2031=4501
1316 SMA SZA SNL CLA OSR / @@2032=7764
1317 L2033,
1318 RFC / Clear reader flag and reader buffer, @@2033=6014
1319 JMS I C0102 / long call to S0411 @@2034=4502
1320 JMP L2033 / @@2035=5233
1321 AND L0001 / @@2036=0001
1322 ISZ D0064 / @@2037=2064
1323 JMS I C0077 / long call to S1111 @@2040=4477
1324 C2041, 0001 / AND L0001
1325 RFC / Clear reader flag and reader buffer, @@2042=6014
1326 L2043,
1327 RSF / Skip if reader flag is a 1. @@2043=6011
1328 JMP L2043 / @@2044=5243
1329 L2045,
1330 RSF / Skip if reader flag is a 1. @@2045=6011
1331 JMP L2052 / @@2046=5252
1332 L2047,
1333 ISZ D0122 / @@2047=2122
1334 JMP L2045 / @@2050=5245
1335 JMP I C0025 / long jump to L0270 @@2051=5425
1336 L2052,
1337 JMS I C0051 / long call to S1050 @@2052=4451
1338 C2053, 4040 / JMS C0040
1339 AND L0000 / @@2054=0000
1340 JMP L2047 / @@2055=5247
1341 RFC / Clear reader flag and reader buffer, @@2056=6014
1342 L2057,
1343 RSF / Skip if reader flag is a 1. @@2057=6011
1344 JMP L2057 / @@2060=5257
1345 L2061,
1346 RSF / Skip if reader flag is a 1. @@2061=6011
1347 JMP L2061 / @@2062=5261
1348 JMP L2061 / @@2063=5261
1349 AND C0002 / @@2064=0002
1350 ISZ D0105 / @@2065=2105
1351 JMS I C0077 / long call to S1111 @@2066=4477
1352 AND L0001 / @@2067=0001
1353 RFB / Read the content of the reader buffe @@2070=6012
1354 L2071,
1355 RSF / Skip if reader flag is a 1. @@2071=6011
1356 JMP L2102 / @@2072=5302
1357 JMS I C0051 / long call to S1050 @@2073=4451
1358 C2074, 4040 / JMS C0040
1359 AND L0000 / @@2075=0000
1360 JMP L2102 / @@2076=5302
1361 L2077,
1362 RSF / Skip if reader flag is a 1. @@2077=6011
1363 JMP L2077 / @@2100=5277
1364 JMP L2077 / @@2101=5277
1365 L2102,
1366 ISZ D0122 / @@2102=2122
1367 JMP L2071 / @@2103=5271
1368 JMP I C0025 / long jump to L0270 @@2104=5425
1369 AND D0003 / @@2105=0003
1370 ISZ D2000 / @@2106=2200
1371 TAD C2177 / @@2107=1377
1372 DCA D0022 / @@2110=3022
1373 L2111,
1374 TAD C2176 / @@2111=1376
1375 DCA D0136 / @@2112=3136
1376 IOF / Disable Interrupts @@2113=6002
1377 CLA / @@2114=7200
1378 DCA D0135 / @@2115=3135
1379 L2116,
1380 ISZ D0135 / @@2116=2135
1381 JMP L2116 / @@2117=5316
1382 ISZ D0136 / @@2120=2136
1383 JMP L2116 / @@2121=5316
1384 D2122, 1375 / TAD C2175
1385 DCA D0134 / @@2123=3134
1386 C2124, 6007 / 6007
1387 RFC / Clear reader flag and reader buffer, @@2125=6014
1388 JMS S2151 / @@2126=4351
1389 RSF / Skip if reader flag is a 1. @@2127=6011
1390 JMP L2137 / @@2130=5337
1391 C2131, 6010 / 6010
1392 D2132, 6003 / 6003
1393 JMP L2137 / @@2133=5337
1394 ISZ D0022 / @@2134=2022
1395 JMP L2111 / @@2135=5311
1396 JMP I C0025 / long jump to L0270 @@2136=5425
1397 L2137,
1398 JMS I C0051 / long call to S1050 @@2137=4451
1399 C2140, 4040 / JMS C0040
1400 AND L0000 / @@2141=0000
1401 JMP L2111 / @@2142=5311
1402 IOF / Disable Interrupts @@2143=6002
1403 L2144,
1404 RSF / Skip if reader flag is a 1. @@2144=6011
1405 JMP L2144 / @@2145=5344
1406 L2146,
1407 RSF / Skip if reader flag is a 1. @@2146=6011
1408 JMP L2146 / @@2147=5346
1409 JMP L2146 / @@2150=5346
1410
1411 ////////////////////////////////////////////////////////////////////////////////
1412 /
1413 / SUBROUTINE: S2151
1414 /
1415 / Called from:
1416 / 2126
1417 / Total 0001 (1) calls
1418 ////////////////////////////////////////////////////////////////////////////////
1419 S2151,
1420 0 / return area
1421 L2152,
1422 ISZ D0134 / @@2152=2134
1423 JMP L2152 / @@2153=5352
1424 JMP I S2151 / return @@2154=5751
1425
1426 *2175
1427 C2175, 2260 / ISZ C2060
1428 C2176, 7773 / CLA MQA SCA MQL SHL +
1429 C2177, 4000 / JMS L0000
1430 C2200, 0004 / AND C0004
1431 ISZ I L0000 / @@2201=2400
1432 L2202,
1433 IOF / Disable Interrupts @@2202=6002
1434 C2203, 6007 / 6007
1435 C2204, 6010 / 6010
1436 C2205, 6020 / 6020
1437 ION / Enable Interrupts @@2206=6001
1438 RFC / Clear reader flag and reader buffer, @@2207=6014
1439 C2210, 6000 / 6000
1440 JMP L2214 / @@2211=5214
1441 C2212, 6003 / 6003
1442 SKP / @@2213=7410
1443 L2214,
1444 JMP L2220 / @@2214=5220
1445 ISZ D0022 / @@2215=2022
1446 JMP L2202 / @@2216=5202
1447 L2217,
1448 JMP I C0025 / long jump to L0270 @@2217=5425
1449 L2220,
1450 JMS I C0051 / long call to S1050 @@2220=4451
1451 C2221, 4040 / JMS C0040
1452 AND L0000 / @@2222=0000
1453 JMP L2217 / @@2223=5217
1454 L2224,
1455 C2224, 6010 / 6010
1456 JMS I C0102 / long call to S0411 @@2225=4502
1457 C2226, 6020 / 6020
1458 JMP L2224 / @@2227=5224
1459
1460 *2400
1461 C2400, 0005 / AND D0005
1462 ISZ I D0030 / @@2401=2430
1463 JMS I C0077 / long call to S1111 @@2402=4477
1464 C2403, 7014 / RAR RAL
1465 L2404,
1466 RFC / Clear reader flag and reader buffer, @@2404=6014
1467 L2405,
1468 RSF / Skip if reader flag is a 1. @@2405=6011
1469 JMP L2405 / @@2406=5205
1470 RFB / Read the content of the reader buffe @@2407=6012
1471 RSF / Skip if reader flag is a 1. @@2410=6011
1472 JMP L2425 / @@2411=5225
1473 JMS I C0051 / long call to S1050 @@2412=4451
1474 C2413, 4040 / JMS C0040
1475 AND L0000 / @@2414=0000
1476 JMP L2425 / @@2415=5225
1477 L2416,
1478 RFC / Clear reader flag and reader buffer, @@2416=6014
1479 L2417,
1480 RSF / Skip if reader flag is a 1. @@2417=6011
1481 JMP L2417 / @@2420=5217
1482 L2421,
1483 RFB / Read the content of the reader buffe @@2421=6012
1484 RSF / Skip if reader flag is a 1. @@2422=6011
1485 JMP L2416 / @@2423=5216
1486 JMP L2421 / @@2424=5221
1487 L2425,
1488 ISZ D0122 / @@2425=2122
1489 JMP L2404 / @@2426=5204
1490 JMP I C0025 / long jump to L0270 @@2427=5425
1491 AND C0006 / @@2430=0006
1492 ISZ I C2400 / @@2431=2600
1493 JMS I C0077 / long call to S1111 @@2432=4477
1494 C2433, 7014 / RAR RAL
1495 RFC / Clear reader flag and reader buffer, @@2434=6014
1496 L2435,
1497 RSF / Skip if reader flag is a 1. @@2435=6011
1498 JMP L2435 / @@2436=5235
1499 RFC / Clear reader flag and reader buffer, @@2437=6014
1500 RSF / Skip if reader flag is a 1. @@2440=6011
1501 JMP L2453 / @@2441=5253
1502 JMS I C0051 / long call to S1050 @@2442=4451
1503 C2443, 4040 / JMS C0040
1504 AND L0000 / @@2444=0000
1505 JMP L2453 / @@2445=5253
1506 JMS I C0102 / long call to S0411 @@2446=4502
1507 L2447,
1508 RFC / Clear reader flag and reader buffer, @@2447=6014
1509 L2450,
1510 RSF / Skip if reader flag is a 1. @@2450=6011
1511 JMP L2450 / @@2451=5250
1512 JMP L2447 / @@2452=5247
1513 L2453,
1514 ISZ D0122 / @@2453=2122
1515 JMP L2435 / @@2454=5235
1516 JMP I C0025 / long jump to L0270 @@2455=5425
1517
1518 *2600
1519 C2600, 0007 / AND C0007
1520 C2601, 2637 / ISZ I C2637
1521 JMS I C0077 / long call to S1111 @@2602=4477
1522 C2603, 7014 / RAR RAL
1523 L2604,
1524 C2604, 6014 / RFC
1525 L2605,
1526 RSF / Skip if reader flag is a 1. @@2605=6011
1527 JMP L2605 / @@2606=5205
1528 CLA / @@2607=7200
1529 RFB / Read the content of the reader buffe @@2610=6012
1530 C2611, 3236 / DCA D2636
1531 TAD D2636 / @@2612=1236
1532 SZA CLA / @@2613=7640
1533 JMP L2620 / @@2614=5220
1534 L2615,
1535 ISZ D0122 / @@2615=2122
1536 JMP L2604 / @@2616=5204
1537 JMP I C0025 / long jump to L0270 @@2617=5425
1538 L2620,
1539 JMS I C0052 / long call to S1000 @@2620=4452
1540 ISZ I C2635 / @@2621=2635
1541 TAD I L2604 / @@2622=1604
1542 JMS I C0052 / long call to S1000 @@2623=4452
1543 ISZ I D2636 / @@2624=2636
1544 TAD I C2611 / @@2625=1611
1545 JMS I C0051 / long call to S1050 @@2626=4451
1546 C2627, 4040 / JMS C0040
1547 TAD I C2601 / @@2630=1601
1548 JMP L2615 / @@2631=5215
1549 L2632,
1550 CLA / @@2632=7200
1551 RFB / Read the content of the reader buffe @@2633=6012
1552 JMP L2632 / @@2634=5232
1553 C2635, 0000 / AND L0000
1554 D2636, 0000 / AND L0000
1555 C2637, 0010 / AND AI0
1556 C2640, 2717 / ISZ I C2717
1557 JMS I C0075 / long call to S0400 @@2641=4475
1558 AND C0002 / @@2642=0002
1559 ISZ I C2654 / @@2643=2654
1560 L2644,
1561 KCC / Clear AC and clear keyboard flag. @@2644=6032
1562 TCF / Clear teleprinter flag. @@2645=6042
1563 PCF / Clear punch flag and punch buffer. @@2646=6022
1564 RFB / Read the content of the reader buffe @@2647=6012
1565 ION / Enable Interrupts @@2650=6001
1566 NOP / @@2651=7000
1567 IOF / Disable Interrupts @@2652=6002
1568 JMP L2661 / @@2653=5261
1569 C2654, 4451 / JMS I C0051
1570 AND C0140 / @@2655=0140
1571 AND L0000 / @@2656=0000
1572 JMP L2644 / @@2657=5244
1573 JMP L2644 / @@2660=5244
1574 L2661,
1575 JMS I C0077 / long call to S1111 @@2661=4477
1576 AND L0001 / @@2662=0001
1577 JMS I C0075 / long call to S0400 @@2663=4475
1578 AND C0002 / @@2664=0002
1579 ISZ I L2713 / @@2665=2713
1580 C2666, 6010 / 6010
1581 RFC / Clear reader flag and reader buffer, @@2667=6014
1582 L2670,
1583 RSF / Skip if reader flag is a 1. @@2670=6011
1584 JMP L2670 / @@2671=5270
1585 L2672,
1586 ION / Enable Interrupts @@2672=6001
1587 NOP / @@2673=7000
1588 IOF / Disable Interrupts @@2674=6002
1589 JMS I C0051 / long call to S1050 @@2675=4451
1590 AND C2640 / @@2676=0240
1591 AND L0000 / @@2677=0000
1592 JMP L2713 / @@2700=5313
1593 JMS I C0075 / long call to S0400 @@2701=4475
1594 AND C0002 / @@2702=0002
1595 ISZ I C2712 / @@2703=2712
1596 RFC / Clear reader flag and reader buffer, @@2704=6014
1597 L2705,
1598 RSF / Skip if reader flag is a 1. @@2705=6011
1599 JMP L2705 / @@2706=5305
1600 L2707,
1601 ION / Enable Interrupts @@2707=6001
1602 NOP / @@2710=7000
1603 JMP L2707 / @@2711=5307
1604 C2712, 5307 / JMP L2707
1605 L2713,
1606 C2713, 2122 / ISZ D0122
1607 JMP L2672 / @@2714=5272
1608 C2715, 6020 / 6020
1609 JMP I C0025 / long jump to L0270 @@2716=5425
1610 C2717, 0011 / AND AI1
1611 C2720, 7777 / CLA MQA SCA MQL LSR +
1612 JMS I C0077 / long call to S1111 @@2721=4477
1613 SNA SZL / @@2722=7470
1614 L2723,
1615 JMS S2773 / @@2723=4373
1616 JMS I C0101 / long call to S1042 @@2724=4501
1617 C2725, 7755 / CLA MQA SCA ASR +
1618 RFC / Clear reader flag and reader buffer, @@2726=6014
1619 L2727,
1620 RSF / Skip if reader flag is a 1. @@2727=6011
1621 JMP L2727 / @@2730=5327
1622 JMS I C0102 / long call to S0411 @@2731=4502
1623 RFC / Clear reader flag and reader buffer, @@2732=6014
1624 JMS I C0102 / long call to S0411 @@2733=4502
1625 RSF / Skip if reader flag is a 1. @@2734=6011
1626 JMP L2743 / @@2735=5343
1627 JMS I C0051 / long call to S1050 @@2736=4451
1628 AND C0140 / @@2737=0140
1629 AND L0000 / @@2740=0000
1630 JMP L2723 / @@2741=5323
1631 JMP L2755 / @@2742=5355
1632 L2743,
1633 JMS S2766 / @@2743=4366
1634 RSF / Skip if reader flag is a 1. @@2744=6011
1635 JMP L2751 / @@2745=5351
1636 L2746,
1637 ISZ D0122 / @@2746=2122
1638 JMP L2723 / @@2747=5323
1639 JMP I C0025 / long jump to L0270 @@2750=5425
1640 L2751,
1641 JMS I C0051 / long call to S1050 @@2751=4451
1642 AND C2640 / @@2752=0240
1643 AND L0000 / @@2753=0000
1644 JMP L2746 / @@2754=5346
1645 L2755,
1646 JMS I C0101 / long call to S1042 @@2755=4501
1647 C2756, 7761 / CLA MQA SCA MQL
1648 L2757,
1649 RFC / Clear reader flag and reader buffer, @@2757=6014
1650 JMP L2757 / @@2760=5357
1651 L2761,
1652 JMS I C0102 / long call to S0411 @@2761=4502
1653 RFC / Clear reader flag and reader buffer, @@2762=6014
1654 L2763,
1655 RSF / Skip if reader flag is a 1. @@2763=6011
1656 JMP L2763 / @@2764=5363
1657 JMP L2761 / @@2765=5361
1658
1659 ////////////////////////////////////////////////////////////////////////////////
1660 /
1661 / SUBROUTINE: S2766
1662 /
1663 / Called from:
1664 / 2743
1665 / Total 0001 (1) calls
1666 ////////////////////////////////////////////////////////////////////////////////
1667 S2766,
1668 0 / return area
1669 JMS I C0101 / long call to S1042 @@2767=4501
1670 SNA OSR / @@2770=7454
1671 JMS I C0102 / long call to S0411 @@2771=4502
1672 JMP I S2766 / return @@2772=5766
1673
1674 ////////////////////////////////////////////////////////////////////////////////
1675 /
1676 / SUBROUTINE: S2773
1677 /
1678 / Called from:
1679 / 2723
1680 / Total 0001 (1) calls
1681 ////////////////////////////////////////////////////////////////////////////////
1682 S2773,
1683 0 / return area
1684 JMS I C0101 / long call to S1042 @@2774=4501
1685 OSR HLT / @@2775=7406
1686 JMS I C0102 / long call to S0411 @@2776=4502
1687 JMP I S2773 / return @@2777=5773
1688 D3000, 4475 / JMS I C0075
1689 AND D0020 / @@3001=0020
1690 C3002, 3010 / DCA AI0
1691 JMS I C0075 / long call to S0400 @@3003=4475
1692 AND D0105 / @@3004=0105
1693 C3005, 7717 / CLA MQA LSR +
1694 JMP I C3007 / long jump to L0241 @@3006=5607
1695 C3007,
1696 C3007, 0241 / AND C3041
1697 AND L0000 / @@3010=0000
1698 DCA D0032 / @@3011=3032
1699 JMS I C0077 / long call to S1111 @@3012=4477
1700 AND L0001 / @@3013=0001
1701 L3014,
1702 PCF / Clear punch flag and punch buffer. @@3014=6022
1703 PSF / Skip if punch flag is a 1 @@3015=6021
1704 JMP L3027 / @@3016=5227
1705 JMS I C0051 / long call to S1050 @@3017=4451
1706 C3020, 4040 / JMS C0040
1707 AND L0000 / @@3021=0000
1708 JMP L3027 / @@3022=5227
1709 PCF / Clear punch flag and punch buffer. @@3023=6022
1710 L3024,
1711 PSF / Skip if punch flag is a 1 @@3024=6021
1712 JMP L3024 / @@3025=5224
1713 JMP L3024 / @@3026=5224
1714 L3027,
1715 ISZ D0122 / @@3027=2122
1716 JMP L3014 / @@3030=5214
1717 JMP I C0025 / long jump to L0270 @@3031=5425
1718 AND L0001 / @@3032=0001
1719 DCA D0063 / @@3033=3063
1720 JMS I C0077 / long call to S1111 @@3034=4477
1721 AND L0001 / @@3035=0001
1722 JMS I C0101 / long call to S1042 @@3036=4501
1723 AND L0001 / @@3037=0001
1724 CLA CLL / AC = 0000 @@3040=7300
1725 C3041, 6022 / PCF
1726 PPC / Load the punch buffer from bits 4 th @@3042=6024
1727 JMS I C0102 / long call to S0411 @@3043=4502
1728 L3044,
1729 PSF / Skip if punch flag is a 1 @@3044=6021
1730 JMP L3051 / @@3045=5251
1731 L3046,
1732 ISZ D0122 / @@3046=2122
1733 JMP L3044 / @@3047=5244
1734 JMP I C0025 / long jump to L0270 @@3050=5425
1735 L3051,
1736 JMS I C0051 / long call to S1050 @@3051=4451
1737 C3052, 4040 / JMS C0040
1738 AND L0000 / @@3053=0000
1739 JMP L3046 / @@3054=5246
1740 CLA / @@3055=7200
1741 PCF / Clear punch flag and punch buffer. @@3056=6022
1742 PPC / Load the punch buffer from bits 4 th @@3057=6024
1743 L3060,
1744 PSF / Skip if punch flag is a 1 @@3060=6021
1745 JMP L3060 / @@3061=5260
1746 JMP L3060 / @@3062=5260
1747 AND C0002 / @@3063=0002
1748 DCA D0115 / @@3064=3115
1749 JMS I C0077 / long call to S1111 @@3065=4477
1750 C3066, 7014 / RAR RAL
1751 L3067,
1752 CLA / @@3067=7200
1753 PLS / Clear the punch flag, clear the bunc @@3070=6026
1754 L3071,
1755 PSF / Skip if punch flag is a 1 @@3071=6021
1756 JMP L3071 / @@3072=5271
1757 PCF / Clear punch flag and punch buffer. @@3073=6022
1758 PSF / Skip if punch flag is a 1 @@3074=6021
1759 JMP L3112 / @@3075=5312
1760 JMS I C0051 / long call to S1050 @@3076=4451
1761 C3077, 4040 / JMS C0040
1762 AND L0000 / @@3100=0000
1763 JMP L3112 / @@3101=5312
1764 L3102,
1765 CLA / @@3102=7200
1766 PLS / Clear the punch flag, clear the bunc @@3103=6026
1767 L3104,
1768 PSF / Skip if punch flag is a 1 @@3104=6021
1769 JMP L3104 / @@3105=5304
1770 L3106,
1771 PCF / Clear punch flag and punch buffer. @@3106=6022
1772 PSF / Skip if punch flag is a 1 @@3107=6021
1773 JMP L3102 / @@3110=5302
1774 JMP L3106 / @@3111=5306
1775 L3112,
1776 ISZ D0122 / @@3112=2122
1777 JMP L3067 / @@3113=5267
1778 JMP I C0025 / long jump to L0270 @@3114=5425
1779 AND D0003 / @@3115=0003
1780 DCA D3000 / @@3116=3200
1781 TAD C3177 / @@3117=1377
1782 DCA D0022 / @@3120=3022
1783 L3121,
1784 TAD C3176 / @@3121=1376
1785 DCA D0136 / @@3122=3136
1786 IOF / Disable Interrupts @@3123=6002
1787 CLA / @@3124=7200
1788 DCA D0135 / @@3125=3135
1789 L3126,
1790 ISZ D0135 / @@3126=2135
1791 JMP L3126 / @@3127=5326
1792 ISZ D0136 / @@3130=2136
1793 JMP L3126 / @@3131=5326
1794 TAD C3175 / @@3132=1375
1795 DCA D0134 / @@3133=3134
1796 C3134, 6007 / 6007
1797 PPC / Load the punch buffer from bits 4 th @@3135=6024
1798 JMS S3161 / @@3136=4361
1799 PSF / Skip if punch flag is a 1 @@3137=6021
1800 JMP L3147 / @@3140=5347
1801 C3141, 6010 / 6010
1802 C3142, 6003 / 6003
1803 JMP L3147 / @@3143=5347
1804 ISZ D0022 / @@3144=2022
1805 JMP L3121 / @@3145=5321
1806 JMP I C0025 / long jump to L0270 @@3146=5425
1807 L3147,
1808 JMS I C0051 / long call to S1050 @@3147=4451
1809 C3150, 4040 / JMS C0040
1810 AND L0000 / @@3151=0000
1811 JMP L3121 / @@3152=5321
1812 IOF / Disable Interrupts @@3153=6002
1813 L3154,
1814 PSF / Skip if punch flag is a 1 @@3154=6021
1815 JMP L3154 / @@3155=5354
1816 L3156,
1817 RSF / Skip if reader flag is a 1. @@3156=6011
1818 JMP L3156 / @@3157=5356
1819 JMP L3156 / @@3160=5356
1820
1821 ////////////////////////////////////////////////////////////////////////////////
1822 /
1823 / SUBROUTINE: S3161
1824 /
1825 / Called from:
1826 / 3136
1827 / Total 0001 (1) calls
1828 ////////////////////////////////////////////////////////////////////////////////
1829 S3161,
1830 0 / return area
1831 L3162,
1832 ISZ D0134 / @@3162=2134
1833 JMP L3162 / @@3163=5362
1834 TAD C3174 / @@3164=1374
1835 DCA D0134 / @@3165=3134
1836 L3166,
1837 ISZ D0134 / @@3166=2134
1838 JMP L3166 / @@3167=5366
1839 L3170,
1840 ISZ D0134 / @@3170=2134
1841 JMP L3170 / @@3171=5370
1842 JMP I S3161 / return @@3172=5761
1843
1844 *3174
1845 C3174, 0500 / AND I C0100
1846 C3175, 0001 / AND L0001
1847 C3176, 7773 / CLA MQA SCA MQL SHL +
1848 C3177, 4000 / JMS L0000
1849 C3200, 0004 / AND C0004
1850 DCA D3230 / @@3201=3230
1851 L3202,
1852 IOF / Disable Interrupts @@3202=6002
1853 C3203, 6007 / 6007
1854 C3204, 6010 / 6010
1855 C3205, 6020 / 6020
1856 ION / Enable Interrupts @@3206=6001
1857 PPC / Load the punch buffer from bits 4 th @@3207=6024
1858 C3210, 6000 / 6000
1859 JMP L3220 / @@3211=5220
1860 C3212, 6003 / 6003
1861 SKP / @@3213=7410
1862 JMP L3220 / @@3214=5220
1863 ISZ D0022 / @@3215=2022
1864 JMP L3202 / @@3216=5202
1865 L3217,
1866 JMP I C0025 / long jump to L0270 @@3217=5425
1867 L3220,
1868 JMS I C0051 / long call to S1050 @@3220=4451
1869 C3221, 4040 / JMS C0040
1870 AND L0000 / @@3222=0000
1871 JMP L3217 / @@3223=5217
1872 L3224,
1873 C3224, 6010 / 6010
1874 JMS I C0102 / long call to S0411 @@3225=4502
1875 C3226, 6020 / 6020
1876 JMP L3224 / @@3227=5224
1877 D3230, 0005 / AND D0005
1878 DCA D3245 / @@3231=3245
1879 JMS I C0077 / long call to S1111 @@3232=4477
1880 C3233, 7014 / RAR RAL
1881 L3234,
1882 STA / AC = 7777 (-0001) @@3234=7240
1883 PLS / Clear the punch flag, clear the bunc @@3235=6026
1884 C3236, 7200 / CLA
1885 PLS / Clear the punch flag, clear the bunc @@3237=6026
1886 L3240,
1887 PSF / Skip if punch flag is a 1 @@3240=6021
1888 JMP L3240 / @@3241=5240
1889 ISZ D0122 / @@3242=2122
1890 JMP L3234 / @@3243=5234
1891 JMP I C0025 / long jump to L0270 @@3244=5425
1892 D3245, 0006 / AND C0006
1893 DCA D3261 / @@3246=3261
1894 JMS I C0077 / long call to S1111 @@3247=4477
1895 C3250, 7014 / RAR RAL
1896 L3251,
1897 CLA / @@3251=7200
1898 TAD C0152 / @@3252=1152
1899 PLS / Clear the punch flag, clear the bunc @@3253=6026
1900 L3254,
1901 PSF / Skip if punch flag is a 1 @@3254=6021
1902 JMP L3254 / @@3255=5254
1903 ISZ D0122 / @@3256=2122
1904 JMP L3251 / @@3257=5251
1905 JMP I C0025 / long jump to L0270 @@3260=5425
1906 D3261, 0007 / AND C0007
1907 DCA I L0000 / @@3262=3400
1908 JMS I C0077 / long call to S1111 @@3263=4477
1909 C3264, 7014 / RAR RAL
1910 L3265,
1911 CLA / @@3265=7200
1912 TAD C0151 / @@3266=1151
1913 PLS / Clear the punch flag, clear the bunc @@3267=6026
1914 L3270,
1915 PSF / Skip if punch flag is a 1 @@3270=6021
1916 JMP L3270 / @@3271=5270
1917 ISZ D0122 / @@3272=2122
1918 JMP L3265 / @@3273=5265
1919 JMP I C0025 / long jump to L0270 @@3274=5425
1920
1921 *3400
1922 C3400, 0010 / AND AI0
1923 C3401, 7777 / CLA MQA SCA MQL LSR +
1924 JMS I C0075 / long call to S0400 @@3402=4475
1925 AND C0002 / @@3403=0002
1926 C3404, 3415 / DCA I AI5
1927 L3405,
1928 KCC / Clear AC and clear keyboard flag. @@3405=6032
1929 TCF / Clear teleprinter flag. @@3406=6042
1930 RFB / Read the content of the reader buffe @@3407=6012
1931 PCF / Clear punch flag and punch buffer. @@3410=6022
1932 ION / Enable Interrupts @@3411=6001
1933 NOP / @@3412=7000
1934 IOF / Disable Interrupts @@3413=6002
1935 JMP L3422 / @@3414=5222
1936 JMS I C0051 / long call to S1050 @@3415=4451
1937 AND C0140 / @@3416=0140
1938 AND L0000 / @@3417=0000
1939 JMP L3405 / @@3420=5205
1940 JMP L3405 / @@3421=5205
1941 L3422,
1942 JMS I C0077 / long call to S1111 @@3422=4477
1943 AND L0001 / @@3423=0001
1944 JMS I C0075 / long call to S0400 @@3424=4475
1945 AND C0002 / @@3425=0002
1946 DCA I C0056 / @@3426=3456
1947 CLA / @@3427=7200
1948 C3430, 6010 / 6010
1949 PLS / Clear the punch flag, clear the bunc @@3431=6026
1950 L3432,
1951 PSF / Skip if punch flag is a 1 @@3432=6021
1952 JMP L3432 / @@3433=5232
1953 L3434,
1954 ION / Enable Interrupts @@3434=6001
1955 NOP / @@3435=7000
1956 IOF / Disable Interrupts @@3436=6002
1957 JMS I C0051 / long call to S1050 @@3437=4451
1958 C3440, 0240 / AND C3440
1959 AND L0000 / @@3441=0000
1960 JMP L3456 / @@3442=5256
1961 JMS I C0075 / long call to S0400 @@3443=4475
1962 AND C0002 / @@3444=0002
1963 DCA I C0055 / @@3445=3455
1964 CLA / @@3446=7200
1965 C3447, 6026 / PLS
1966 L3450,
1967 PSF / Skip if punch flag is a 1 @@3450=6021
1968 C3451, 5250 / JMP L3450
1969 L3452,
1970 ION / Enable Interrupts @@3452=6001
1971 NOP / @@3453=7000
1972 JMP L3452 / @@3454=5252
1973 JMP L3452 / @@3455=5252
1974 L3456,
1975 ISZ D0122 / @@3456=2122
1976 JMP L3434 / @@3457=5234
1977 C3460, 6020 / 6020
1978 JMP I C0025 / long jump to L0270 @@3461=5425
1979 JMS I C0075 / long call to S0400 @@3462=4475
1980 AND D0105 / @@3463=0105
1981 AND I C0060 / @@3464=0460
1982 L3465,
1983 JMS I D0064 / long call to S1311 @@3465=4464
1984 JMS I C0077 / long call to S1111 @@3466=4477
1985 C3467, 7773 / CLA MQA SCA MQL SHL +
1986 L3470,
1987 JMS I D0063 / long call to S0324 @@3470=4463
1988 DCA D0123 / @@3471=3123
1989 L3472,
1990 JMS I C0067 / long call to S1412 @@3472=4467
1991 DCA I C0062 / @@3473=3462
1992 JMS I C0055 / long call to S1200 @@3474=4455
1993 JMS I C0061 / long call to S1143 @@3475=4461
1994 JMP L3503 / @@3476=5303
1995 L3477,
1996 ISZ D0123 / @@3477=2123
1997 JMP L3472 / @@3500=5272
1998 JMS I C0163 / long call to S1125 @@3501=4563
1999 JMP L3470 / @@3502=5270
2000 L3503,
2001 ISZ D0122 / @@3503=2122
2002 JMP L3477 / @@3504=5277
2003 JMP L3465 / @@3505=5265
2004 JMS I C0060 / long call to S1230 @@3506=4460
2005 JMS I C0057 / long call to S1214 @@3507=4457
2006 JMS I C0066 / long call to S1400 @@3510=4466
2007 TAD C0150 / @@3511=1150
2008 DCA D0105 / @@3512=3105
2009 L3513,
2010 JMS I C0067 / long call to S1412 @@3513=4467
2011 JMS I C0056 / long call to S1207 @@3514=4456
2012 JMS I C0163 / long call to S1125 @@3515=4563
2013 JMP L3513 / @@3516=5313
2014 JMS I C0066 / long call to S1400 @@3517=4466
2015 JMS I C0075 / long call to S0400 @@3520=4475
2016 AND D0105 / @@3521=0105
2017 AND I L0000 / @@3522=0400
2018 JMS I C0067 / long call to S1412 @@3523=4467
2019 DCA I C0062 / @@3524=3462
2020 L3525,
2021 JMS I C0055 / long call to S1200 @@3525=4455
2022 SZA / @@3526=7440
2023 JMP L3534 / @@3527=5334
2024 JMP L3525 / @@3530=5325
2025 L3531,
2026 JMS I C0067 / long call to S1412 @@3531=4467
2027 DCA I C0062 / @@3532=3462
2028 JMS I C0055 / long call to S1200 @@3533=4455
2029 L3534,
2030 JMS I C0061 / long call to S1143 @@3534=4461
2031 NOP / @@3535=7000
2032 JMP L3531 / @@3536=5331
2033 JMS I C0060 / long call to S1230 @@3537=4460
2034 JMS I C0057 / long call to S1214 @@3540=4457
2035 JMS I C0074 / long call to S0536 @@3541=4474
2036 TAD C3447 / @@3542=1247
2037 TAD C3451 / @@3543=1251
2038 SPA SNA SZL CLA OSR / @@3544=7774
2039 TAD C0150 / @@3545=1150
2040 DCA D0105 / @@3546=3105
2041 L3547,
2042 JMS I C0053 / long call to S1255 @@3547=4453
2043 JMS I C0056 / long call to S1207 @@3550=4456
2044 JMS I C0163 / long call to S1125 @@3551=4563
2045 JMP L3547 / @@3552=5347
2046 JMS I C0074 / long call to S0536 @@3553=4474
2047 TAD C3447 / @@3554=1247
2048 TAD C3451 / @@3555=1251
2049 SPA SNA SZL CLA OSR / @@3556=7774
2050 JMS I C0075 / long call to S0400 @@3557=4475
2051 AND D0105 / @@3560=0105
2052 AND I L0000 / @@3561=0400
2053 JMS I C0054 / long call to S1273 @@3562=4454
2054 DCA I C0062 / @@3563=3462
2055 L3564,
2056 JMS I C0055 / long call to S1200 @@3564=4455
2057 SZA / @@3565=7440
2058 JMP L3573 / @@3566=5373
2059 JMP L3564 / @@3567=5364
2060 L3570,
2061 JMS I C0054 / long call to S1273 @@3570=4454
2062 DCA I C0062 / @@3571=3462
2063 JMS I C0055 / long call to S1200 @@3572=4455
2064 L3573,
2065 JMS I C0061 / long call to S1143 @@3573=4461
2066 NOP / @@3574=7000
2067 JMP L3570 / @@3575=5370
2068
2069 *3600
2070 D3600, 4475 / JMS I C0075
2071 AND D0105 / @@3601=0105
2072 AND I C0060 / @@3602=0460
2073 JMS I C0075 / long call to S0400 @@3603=4475
2074 AND D0104 / @@3604=0104
2075 AND C0077 / @@3605=0077
2076 JMS I C0066 / long call to S1400 @@3606=4466
2077 ISZ D0133 / @@3607=2133
2078 JMS I C0075 / long call to S0400 @@3610=4475
2079 AND C0002 / @@3611=0002
2080 AND I C3703 / @@3612=0703
2081 JMS I C0075 / long call to S0400 @@3613=4475
2082 AND I C3716 / @@3614=0716
2083 DCA I C3624 / @@3615=3624
2084 JMS I C0075 / long call to S0400 @@3616=4475
2085 AND I C3711 / @@3617=0711
2086 DCA I C3671 / @@3620=3671
2087 JMS S3646 / @@3621=4246
2088 ION / Enable Interrupts @@3622=6001
2089 L3623,
2090 JMP L3623 / @@3623=5223
2091 C3624, 2132 / ISZ D0132
2092 TAD D0132 / @@3625=1132
2093 TAD C0147 / @@3626=1147
2094 SPA CLA / @@3627=7710
2095 JMP L3633 / @@3630=5233
2096 L3631,
2097 HLT / @@3631=7402
2098 JMP L3631 / @@3632=5231
2099 L3633,
2100 JMS S3646 / @@3633=4246
2101 TAD D0127 / @@3634=1127
2102 SZA CLA / @@3635=7640
2103 JMP I C0103 / long jump to L0733 @@3636=5503
2104 TAD D0132 / @@3637=1132
2105 TAD C0146 / @@3640=1146
2106 SPA CLA / @@3641=7710
2107 JMP I C0103 / long jump to L0733 @@3642=5503
2108 RFC / Clear reader flag and reader buffer, @@3643=6014
2109 ISZ D0127 / @@3644=2127
2110 JMP I C0103 / long jump to L0733 @@3645=5503
2111
2112 ////////////////////////////////////////////////////////////////////////////////
2113 /
2114 / SUBROUTINE: S3646
2115 /
2116 / Called from:
2117 / 3621 3633
2118 / Total 0002 (2) calls
2119 ////////////////////////////////////////////////////////////////////////////////
2120 S3646,
2121 0 / return area
2122 JMS I C0070 / long call to S1435 @@3647=4470
2123 PLS / Clear the punch flag, clear the bunc @@3650=6026
2124 CLA / @@3651=7200
2125 JMP I S3646 / return @@3652=5646
2126
2127 ////////////////////////////////////////////////////////////////////////////////
2128 /
2129 / SUBROUTINE: S3653
2130 /
2131 / Never called
2132 ////////////////////////////////////////////////////////////////////////////////
2133 S3653,
2134 0 / return area
2135 CLA / @@3654=7200
2136 RFB / Read the content of the reader buffe @@3655=6012
2137 DCA D0131 / @@3656=3131
2138 TAD D0132 / @@3657=1132
2139 TAD C0145 / @@3660=1145
2140 DCA D0132 / @@3661=3132
2141 TAD D0132 / @@3662=1132
2142 SZA CLA / @@3663=7640
2143 JMP L3667 / @@3664=5267
2144 DCA D0127 / @@3665=3127
2145 JMP I S3653 / return @@3666=5653
2146 L3667,
2147 RFC / Clear reader flag and reader buffer, @@3667=6014
2148 JMP I S3653 / return @@3670=5653
2149 C3671, 4253 / JMS S3653
2150 TAD D0131 / @@3672=1131
2151 SNA CLA / @@3673=7650
2152 JMP I C0103 / long jump to L0733 @@3674=5503
2153 JMS I C0075 / long call to S0400 @@3675=4475
2154 AND I C3711 / @@3676=0711
2155 DCA I C3703 / @@3677=3703
2156 JMS I C0077 / long call to S1111 @@3700=4477
2157 C3701, 7773 / CLA MQA SCA MQL SHL +
2158 SKP / @@3702=7410
2159 C3703, 4253 / JMS S3653
2160 JMS I C0067 / long call to S1412 @@3704=4467
2161 DCA I C0062 / @@3705=3462
2162 TAD D0131 / @@3706=1131
2163 JMS I C0061 / long call to S1143 @@3707=4461
2164 SKP / @@3710=7410
2165 C3711, 5503 / JMP I C0103
2166 ISZ D0122 / @@3712=2122
2167 JMP I C0103 / long jump to L0733 @@3713=5503
2168 L3714,
2169 JMS I C0075 / long call to S0400 @@3714=4475
2170 AND I C3711 / @@3715=0711
2171 C3716, 3720 / DCA I C3720
2172 JMP I C0103 / long jump to L0733 @@3717=5503
2173 C3720, 4253 / JMS S3653
2174 TAD D0131 / @@3721=1131
2175 DCA D0110 / @@3722=3110
2176 JMS I C0075 / long call to S0400 @@3723=4475
2177 AND I C3711 / @@3724=0711
2178 DCA I C3727 / @@3725=3727
2179 JMP I C0103 / long jump to L0733 @@3726=5503
2180 C3727, 4253 / JMS S3653
2181 TAD D0131 / @@3730=1131
2182 DCA D0111 / @@3731=3111
2183 JMS I C0075 / long call to S0400 @@3732=4475
2184 AND I C3711 / @@3733=0711
2185 DCA I C3736 / @@3734=3736
2186 JMP I C0103 / long jump to L0733 @@3735=5503
2187 C3736, 4253 / JMS S3653
2188 TAD D0131 / @@3737=1131
2189 DCA D0112 / @@3740=3112
2190 JMS I C0065 / long call to S1324 @@3741=4465
2191 JMP L3714 / @@3742=5314
2192 JMS I C0077 / long call to S1111 @@3743=4477
2193 C3744, 7773 / CLA MQA SCA MQL SHL +
2194 JMS I C0075 / long call to S0400 @@3745=4475
2195 AND I C3711 / @@3746=0711
2196 DCA I C3703 / @@3747=3703
2197 JMP I C0103 / long jump to L0733 @@3750=5503
2198
2199 *4000
2200 JMS I C0075 / long call to S0400 @@4000=4475
2201 C4001, 0002 / AND C0002
2202 AND I C4103 / @@4002=0703
2203 JMS I C0075 / long call to S0400 @@4003=4475
2204 C4004, 0716 / AND I C4116
2205 C4005, 0741 / AND I C4141
2206 JMS I C0075 / long call to S0400 @@4006=4475
2207 AND I C4111 / @@4007=0711
2208 C4010, 4070 / JMS C0070
2209 C4011, 4475 / JMS I C0075
2210 TAD C0075 / @@4012=1075
2211 NOP / @@4013=7000
2212 TAD C0144 / @@4014=1144
2213 DCA I C0172 / @@4015=3572
2214 DCA D0105 / @@4016=3105
2215 L4017,
2216 JMS S4053 / @@4017=4253
2217 SZA / @@4020=7440
2218 SKP / @@4021=7410
2219 L4022,
2220 JMS S4053 / @@4022=4253
2221 CIA / @@4023=7041
2222 TAD C0153 / @@4024=1153
2223 SZA CLA / @@4025=7640
2224 JMP L4033 / @@4026=5233
2225 JMS S4053 / @@4027=4253
2226 SZA CLA / @@4030=7640
2227 JMP L4042 / @@4031=5242
2228 JMP L4022 / @@4032=5222
2229 L4033,
2230 JMS I C0052 / long call to S1000 @@4033=4452
2231 C4034, 4052 / JMS C0052
2232 TAD I C4004 / @@4035=1604
2233 L4036,
2234 JMS I C0052 / long call to S1000 @@4036=4452
2235 C4037, 4074 / JMS C0074
2236 C4040, 1611 / TAD I C4011
2237 JMP L4046 / @@4041=5246
2238 L4042,
2239 JMS I C0052 / long call to S1000 @@4042=4452
2240 C4043, 4075 / JMS C0075
2241 TAD I C4004 / @@4044=1604
2242 JMP L4036 / @@4045=5236
2243 L4046,
2244 JMS I C0051 / long call to S1050 @@4046=4451
2245 C4047, 4040 / JMS C0040
2246 TAD I C4001 / @@4050=1601
2247 JMP L4017 / @@4051=5217
2248 C4052, 0377 / AND C4177
2249
2250 ////////////////////////////////////////////////////////////////////////////////
2251 /
2252 / SUBROUTINE: S4053
2253 /
2254 / Called from:
2255 / 4017 4022 4027
2256 / Total 0003 (3) calls
2257 ////////////////////////////////////////////////////////////////////////////////
2258 S4053,
2259 0 / return area
2260 JMS I C0101 / long call to S1042 @@4054=4501
2261 C4055, 7665 / CLA SCA MQL MUY +
2262 RFC / Clear reader flag and reader buffer, @@4056=6014
2263 ION / Enable Interrupts @@4057=6001
2264 JMS I C0102 / long call to S0411 @@4060=4502
2265 IOF / Disable Interrupts @@4061=6002
2266 RSF / Skip if reader flag is a 1. @@4062=6011
2267 SKP / @@4063=7410
2268 JMP L4070 / @@4064=5270
2269 JMS I C0047 / long call to S0616 @@4065=4447
2270 C4066, 4076 / JMS C0076
2271 JMP L4017 / @@4067=5217
2272 L4070,
2273 RFB / Read the content of the reader buffe @@4070=6012
2274 DCA D4074 / @@4071=3274
2275 TAD D4074 / @@4072=1274
2276 JMP I S4053 / return @@4073=5653
2277 D4074, 0000 / AND L0000
2278 AND L0000 / @@4075=0000
2279 C4076, 0007 / AND C0007
2280 C4077, 0007 / AND C0007
2281 C4100, 0007 / AND C0007
2282 L4101,
2283 AND L0001 / @@4101=0001
2284 LAS / @@4102=7604
2285 C4103, 0153 / AND C0153
2286 PLS / Clear the punch flag, clear the bunc @@4104=6026
2287 L4105,
2288 PSF / Skip if punch flag is a 1 @@4105=6021
2289 JMP L4105 / @@4106=5305
2290 JMP L4101 / @@4107=5301
2291 JMS I C0075 / long call to S0400 @@4110=4475
2292 C4111, 0105 / AND D0105
2293 AND C0075 / @@4112=0075
2294 L4113,
2295 STA / AC = 7777 (-0001) @@4113=7240
2296 AND C0153 / @@4114=0153
2297 JMS I C0056 / long call to S1207 @@4115=4456
2298 C4116, 4563 / JMS I C0163
2299 CLA / @@4117=7200
2300 JMS I C0056 / long call to S1207 @@4120=4456
2301 JMS I C0163 / long call to S1125 @@4121=4563
2302 JMP L4113 / @@4122=5313
2303
2304 *4200
2305 L4200,
2306 CLA / @@4200=7200
2307 DCA D0123 / @@4201=3123
2308 LAS / @@4202=7604
2309 CLL RAL / @@4203=7104
2310 SPA CLA / @@4204=7710
2311 TAD C0143 / @@4205=1143
2312 TAD C0142 / @@4206=1142
2313 DCA D4232 / @@4207=3232
2314 JMP L4220 / @@4210=5220
2315 L4211,
2316 RFC / Clear reader flag and reader buffer, @@4211=6014
2317 L4212,
2318 RSF / Skip if reader flag is a 1. @@4212=6011
2319 JMP L4212 / @@4213=5212
2320 ISZ D0122 / @@4214=2122
2321 JMP L4222 / @@4215=5222
2322 ISZ D0123 / @@4216=2123
2323 NOP / @@4217=7000
2324 L4220,
2325 TAD D4232 / @@4220=1232
2326 DCA D0122 / @@4221=3122
2327 L4222,
2328 LAS / @@4222=7604
2329 SMA CLA / @@4223=7700
2330 JMP L4211 / @@4224=5211
2331 JMS I C0047 / long call to S0616 @@4225=4447
2332 TAD I D0132 / @@4226=1532
2333 JMS S4257 / @@4227=4257
2334 HLT / @@4230=7402
2335 JMP L4200 / @@4231=5200
2336 D4232, 0000 / AND L0000
2337 L4233,
2338 CLA / @@4233=7200
2339 DCA D0123 / @@4234=3123
2340 JMP L4245 / @@4235=5245
2341 L4236,
2342 PLS / Clear the punch flag, clear the bunc @@4236=6026
2343 L4237,
2344 PSF / Skip if punch flag is a 1 @@4237=6021
2345 JMP L4237 / @@4240=5237
2346 ISZ D0122 / @@4241=2122
2347 JMP L4247 / @@4242=5247
2348 ISZ D0123 / @@4243=2123
2349 NOP / @@4244=7000
2350 L4245,
2351 TAD C0141 / @@4245=1141
2352 DCA D0122 / @@4246=3122
2353 L4247,
2354 LAS / @@4247=7604
2355 SMA CLA / @@4250=7700
2356 JMP L4236 / @@4251=5236
2357 JMS I C0047 / long call to S0616 @@4252=4447
2358 D4253, 1543 / TAD I C0143
2359 JMS S4257 / @@4254=4257
2360 HLT / @@4255=7402
2361 JMP L4233 / @@4256=5233
2362
2363 ////////////////////////////////////////////////////////////////////////////////
2364 /
2365 / SUBROUTINE: S4257
2366 /
2367 / Called from:
2368 / 4227 4254
2369 / Total 0002 (2) calls
2370 ////////////////////////////////////////////////////////////////////////////////
2371 S4257,
2372 0 / return area
2373 JMS S4265 / @@4260=4265
2374 AND D0123 / @@4261=0123
2375 JMS I C0047 / long call to S0616 @@4262=4447
2376 TAD I C0154 / @@4263=1554
2377 JMP I S4257 / return @@4264=5657
2378
2379 ////////////////////////////////////////////////////////////////////////////////
2380 /
2381 / SUBROUTINE: S4265
2382 /
2383 / Called from:
2384 / 4260
2385 / Total 0001 (1) calls
2386 ////////////////////////////////////////////////////////////////////////////////
2387 S4265,
2388 0 / return area
2389 JMS I C0075 / long call to S0400 @@4266=4475
2390 JMS D4331 / @@4267=4331
2391 SPA SNA SZL CLA OSR / @@4270=7774
2392 TAD C4322 / @@4271=1322
2393 DCA D4303 / @@4272=3303
2394 TAD I S4265 / @@4273=1665
2395 ISZ S4265 / @@4274=2265
2396 DCA D4330 / @@4275=3330
2397 TAD I D4330 / @@4276=1730
2398 DCA D4327 / @@4277=3327
2399 L4300,
2400 DCA D4330 / @@4300=3330
2401 L4301,
2402 CLL / @@4301=7100
2403 TAD D4327 / @@4302=1327
2404 D4303, 1323 / TAD C4323
2405 SNL / @@4304=7420
2406 JMP L4311 / @@4305=5311
2407 ISZ D4330 / @@4306=2330
2408 DCA D4327 / @@4307=3327
2409 JMP L4301 / @@4310=5301
2410 L4311,
2411 CLA / @@4311=7200
2412 TAD D4330 / @@4312=1330
2413 TAD C0140 / @@4313=1140
2414 JMS I C0073 / long call to S0426 @@4314=4473
2415 CLA CLL / AC = 0000 @@4315=7300
2416 ISZ D4303 / @@4316=2303
2417 ISZ D4331 / @@4317=2331
2418 JMP L4300 / @@4320=5300
2419 JMP I S4265 / return @@4321=5665
2420 C4322, 1323 / TAD C4323
2421 C4323, 6030 / 6030
2422 SZL CLA OSR / @@4324=7634
2423 SMA SZA SNL CLA OSR HLT / @@4325=7766
2424 C4326, 7777 / CLA MQA SCA MQL LSR +
2425 D4327, 0000 / AND L0000
2426 D4330, 0000 / AND L0000
2427 D4331, 0000 / AND L0000
2428 CLA HLT / @@4332=7602
2429 L4333,
2430 LAS / @@4333=7604
2431 AND C0174 / @@4334=0174
2432 CIA / @@4335=7041
2433 DCA D0021 / @@4336=3021
2434 LAS / @@4337=7604
2435 AND C0137 / @@4340=0137
2436 CLL RTL / @@4341=7106
2437 RTL / @@4342=7006
2438 RTL / @@4343=7006
2439 CIA / @@4344=7041
2440 DCA D4347 / @@4345=3347
2441 JMS I C0077 / long call to S1111 @@4346=4477
2442 D4347, 0000 / AND L0000
2443 L4350,
2444 RFC / Clear reader flag and reader buffer, @@4350=6014
2445 L4351,
2446 RSF / Skip if reader flag is a 1. @@4351=6011
2447 JMP L4351 / @@4352=5351
2448 ISZ D0122 / @@4353=2122
2449 JMP L4350 / @@4354=5350
2450 JMS I C0102 / long call to S0411 @@4355=4502
2451 JMP L4333 / @@4356=5333
2452
2453 $
My complete PDP-8 universe