1 TITLE "AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE"
2 ////////////////////////////////////////////////////////////////////////////////
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
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
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
22 / 3360 LOCATIONS USED, 2552 CODE AND 0606 DATA
23 ////////////////////////////////////////////////////////////////////////////////
27 D0000, 0000 / AND L0000
29 C0001, 5001 / JMP L0001
30 C0002, 0002 / AND C0002
31 D0003, 0003 / AND D0003
34 D0005, 5402 / JMP I C0002
35 C0006, 0000 / AND L0000
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
44 C0025, 0270 / AND C0070
46 C0026, 0333 / AND D0133
48 C0027, 0447 / AND I C0047
49 D0030, 0000 / AND L0000
50 C0031, 2000 / ISZ L0000
51 D0032, 3000 / DCA L0000
55 D0036, 3537 / DCA I C0137
56 C0037, 3553 / DCA I C0153
57 C0040, 3600 / DCA I L0000
59 C0042, 4102 / JMS C0102
60 C0043, 4110 / JMS D0110
62 C0045, 4233 / JMS C0033
65 C0047, 0616 / AND I AI6
66 C0050, 0600 / AND I L0000
68 C0051, 1050 / TAD C0050
70 C0052, 1000 / TAD L0000
72 C0053, 1255 / TAD C0055
74 C0054, 1273 / TAD C0073
76 C0055, 1200 / TAD L0000
78 C0056, 1207 / TAD C0007
82 C0060, 1230 / TAD D0030
84 C0061, 1143 / TAD C0143
85 C0062, 1145 / TAD C0145
86 D0063, 0324 / AND C0124
87 D0064, 1311 / TAD D0111
89 C0065, 1324 / TAD C0124
91 C0066, 1400 / TAD I L0000
93 C0067, 1412 / TAD I AI2
95 C0070, 1435 / TAD I C0035
97 C0071, 0521 / AND I D0121
99 C0072, 0513 / AND I D0113
101 C0073, 0426 / AND I C0026
103 C0074, 0536 / AND I D0136
105 C0075, 0400 / AND I L0000
107 C0076, 0443 / AND I C0043
109 C0077, 1111 / TAD D0111
111 C0100, 1117 / TAD D0117
113 C0101, 1042 / TAD C0042
115 C0102, 0411 / AND I AI1
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
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
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
163 C0161, 0707 / AND I D0107
164 C0162, 7700 / SMA CLA
166 C0163, 1125 / TAD C0125
167 C0164, 0240 / AND C0040
168 C0165, 0100 / AND C0100
169 C0166, 7740 / SMA SZA CLA
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
195 JMS I C0074 / LONG CALL TO S0536
198 SPA SNA SZL CLA OSR HLT /
200 JMS I C0074 / LONG CALL TO S0536
204 JMS I C0075 / LONG CALL TO S0400
211 JMP I D0240 / LONG JUMP TO L0000
212 D0240, 0000 / AND L0000
221 JMS I C0076 / LONG CALL TO S0443
224 JMP I D0115 / LONG JUMP TO L0000
225 JMS I C0076 / LONG CALL TO S0443
230 JMP I D0115 / LONG JUMP TO L0000
235 JMS I C0047 / LONG CALL TO S0616
240 JMS I C0026 / LONG CALL TO S0333
241 JMS I C0076 / LONG CALL TO S0443
249 JMS I C0076 / LONG CALL TO S0443
256 ////////////////////////////////////////////////////////////////////////////////
262 / TOTAL 0001 (1) CALLS
263 ////////////////////////////////////////////////////////////////////////////////
279 C0324, 0000 / AND L0000
281 JMS I C0027 / LONG CALL TO S0447
286 JMP I C0324 / LONG JUMP TO L0000
288 ////////////////////////////////////////////////////////////////////////////////
294 / TOTAL 0001 (1) CALLS
295 ////////////////////////////////////////////////////////////////////////////////
298 JMS I C0076 / LONG CALL TO S0443
307 ////////////////////////////////////////////////////////////////////////////////
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
315 / TOTAL 0036 (30) CALLS
316 ////////////////////////////////////////////////////////////////////////////////
326 D0410, 5600 / JMP I S0400
328 ////////////////////////////////////////////////////////////////////////////////
333 / 1141 2017 2034 2225 2446 2731 2733 2761 2771 2776 3043 3225 4060 4355
334 / TOTAL 0016 (14) CALLS
335 ////////////////////////////////////////////////////////////////////////////////
341 JMP I C0416 / LONG JUMP TO L0417
343 C0416, 0417 / AND I AI7
354 ////////////////////////////////////////////////////////////////////////////////
360 / TOTAL 0002 (2) CALLS
361 ////////////////////////////////////////////////////////////////////////////////
365 TLS / LOAD THE TTO FROM THE CONTENT OF AC4
372 TSF / SKIP IF TELEPRINTER FLAG IS A 1.
379 ////////////////////////////////////////////////////////////////////////////////
384 / 0246 0252 0271 0301 0334 1072 1076 1102 1126 1132
385 / TOTAL 0012 (10) CALLS
386 ////////////////////////////////////////////////////////////////////////////////
393 ////////////////////////////////////////////////////////////////////////////////
399 / TOTAL 0002 (2) CALLS
400 ////////////////////////////////////////////////////////////////////////////////
426 D0476, 0511 / AND I D0111
428 C0500, 0501 / AND I C0101
431 C0503, 0765 / AND I C0565
432 JMP I D0032 / LONG JUMP TO L3000
437 C0511, 7267 / CLA CMA CML IAC RTL
438 D0512, 0000 / AND L0000
440 ////////////////////////////////////////////////////////////////////////////////
446 / TOTAL 0001 (1) CALLS
447 ////////////////////////////////////////////////////////////////////////////////
450 JMS I C0027 / LONG CALL TO S0447
456 ////////////////////////////////////////////////////////////////////////////////
462 / TOTAL 0002 (2) CALLS
463 ////////////////////////////////////////////////////////////////////////////////
478 D0535, 0000 / AND L0000
480 ////////////////////////////////////////////////////////////////////////////////
485 / 0217 0224 3541 3553
486 / TOTAL 0004 (4) CALLS
487 ////////////////////////////////////////////////////////////////////////////////
509 D0561, 0000 / AND L0000
510 D0562, 0000 / AND L0000
511 D0563, 0000 / AND L0000
514 D0600, 0000 / AND L0000
520 JMS I C0047 / LONG CALL TO S0616
524 JMP I D0600 / LONG JUMP TO L0000
525 C0612, 0015 / AND AI5
526 C0613, 0012 / AND AI2
528 D0615, 0000 / AND L0000
530 ////////////////////////////////////////////////////////////////////////////////
535 / 0264 0605 0730 1061 1070 4065 4225 4252 4262
536 / TOTAL 0011 (9) CALLS
537 ////////////////////////////////////////////////////////////////////////////////
556 ////////////////////////////////////////////////////////////////////////////////
562 / TOTAL 0002 (2) CALLS
563 ////////////////////////////////////////////////////////////////////////////////
567 C0637, 3301 / DCA D0701
597 ////////////////////////////////////////////////////////////////////////////////
603 / TOTAL 0002 (2) CALLS
604 ////////////////////////////////////////////////////////////////////////////////
611 JMS I C0073 / LONG CALL TO S0426
613 D0700, 0000 / AND L0000
614 D0701, 0000 / AND L0000
615 D0702, 0000 / AND L0000
619 RSF / SKIP IF READER FLAG IS A 1.
621 JMP I C0711 / LONG JUMP TO L0000
623 C0711, 0000 / AND L0000
625 PSF / SKIP IF PUNCH FLAG IS A 1
627 JMS I C0163 / LONG CALL TO S1125
628 JMP I C0716 / LONG JUMP TO L0000
630 C0716, 0000 / AND L0000
632 KSF / SKIP IF KEYBOARD FLAG IS A 1.
634 KCC / CLEAR AC AND CLEAR KEYBOARD FLAG.
635 JMP I C0103 / LONG JUMP TO L0733
637 TSF / SKIP IF TELEPRINTER FLAG IS A 1.
639 TCF / CLEAR TELEPRINTER FLAG.
641 JMP I C0103 / LONG JUMP TO L0733
643 JMS I C0047 / LONG CALL TO S0616
647 C0733, 7300 / CLA CLL
651 ION / ENABLE INTERRUPTS
652 JMP I L0000 / LONG JUMP TO L0000
653 PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER.
654 JMP I C0103 / LONG JUMP TO L0733
655 RFB / READ THE CONTENT OF THE READER BUFFE
656 JMP I C0103 / LONG JUMP TO L0733
660 ////////////////////////////////////////////////////////////////////////////////
665 / 1051 1054 1152 1155 2620 2623 4033 4036 4042
666 / TOTAL 0011 (9) CALLS
667 ////////////////////////////////////////////////////////////////////////////////
673 C1004, 2200 / ISZ S1000
678 C1011, 0637 / AND I D1037
690 ////////////////////////////////////////////////////////////////////////////////
696 / TOTAL 0002 (2) CALLS
697 ////////////////////////////////////////////////////////////////////////////////
710 D1037, 0000 / AND L0000
711 D1040, 0000 / AND L0000
712 D1041, 0000 / AND L0000
714 ////////////////////////////////////////////////////////////////////////////////
719 / 2014 2031 2724 2755 2767 2774 3036 4054
720 / TOTAL 0010 (8) CALLS
721 ////////////////////////////////////////////////////////////////////////////////
730 ////////////////////////////////////////////////////////////////////////////////
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 ////////////////////////////////////////////////////////////////////////////////
741 JMS I C0052 / LONG CALL TO S1000
744 JMS I C0052 / LONG CALL TO S1000
749 JMS I C0047 / LONG CALL TO S0616
756 JMS I C0047 / LONG CALL TO S0616
757 D1071, 0000 / AND L0000
759 JMS I C0076 / LONG CALL TO S0443
763 JMS I C0076 / LONG CALL TO S0443
766 JMP I C0025 / LONG JUMP TO L0270
767 JMS I C0076 / LONG CALL TO S0443
773 C1110, 1476 / TAD I C0076
775 ////////////////////////////////////////////////////////////////////////////////
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 ////////////////////////////////////////////////////////////////////////////////
792 ////////////////////////////////////////////////////////////////////////////////
798 / TOTAL 0001 (1) CALLS
799 ////////////////////////////////////////////////////////////////////////////////
808 ////////////////////////////////////////////////////////////////////////////////
813 / 0714 3501 3515 3551 4121
814 / TOTAL 0005 (5) CALLS
815 ////////////////////////////////////////////////////////////////////////////////
818 JMS I C0076 / LONG CALL TO S0443
820 D1130, 7640 / SZA CLA
822 JMS I C0076 / LONG CALL TO S0443
826 JMS I C0072 / LONG CALL TO S0513
829 JMS I C0102 / LONG CALL TO S0411
832 ////////////////////////////////////////////////////////////////////////////////
837 / 3475 3534 3573 3707
838 / TOTAL 0004 (4) CALLS
839 ////////////////////////////////////////////////////////////////////////////////
842 JMS I C0071 / LONG CALL TO S0521
843 D1145, 0000 / AND L0000
849 JMS I C0052 / LONG CALL TO S1000
852 JMS I C0052 / LONG CALL TO S1000
855 JMS I C0051 / LONG CALL TO S1050
856 C1161, 4040 / JMS C0040
863 ////////////////////////////////////////////////////////////////////////////////
868 / 1313 1315 1317 3474 3525 3533 3564 3572
869 / TOTAL 0010 (8) CALLS
870 ////////////////////////////////////////////////////////////////////////////////
873 RFC / CLEAR READER FLAG AND READER BUFFER,
875 RSF / SKIP IF READER FLAG IS A 1.
878 RFB / READ THE CONTENT OF THE READER BUFFE
881 ////////////////////////////////////////////////////////////////////////////////
886 / 1241 3514 3550 4115 4120
887 / TOTAL 0005 (5) CALLS
888 ////////////////////////////////////////////////////////////////////////////////
891 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
893 PSF / SKIP IF PUNCH FLAG IS A 1
897 ////////////////////////////////////////////////////////////////////////////////
903 / TOTAL 0003 (3) CALLS
904 ////////////////////////////////////////////////////////////////////////////////
907 JMS I C0075 / LONG CALL TO S0400
912 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
914 PSF / SKIP IF PUNCH FLAG IS A 1
919 D1227, 0000 / AND L0000
921 ////////////////////////////////////////////////////////////////////////////////
927 / TOTAL 0002 (2) CALLS
928 ////////////////////////////////////////////////////////////////////////////////
932 JMS I C0100 / LONG CALL TO S1117
933 C1233, 7767 / CLA MQA SCA MQL DVI +
934 JMS I C0075 / LONG CALL TO S0400
945 D1246, 0000 / AND L0000
948 D1251, 0000 / AND L0000
949 D1252, 0000 / AND L0000
950 D1253, 0000 / AND L0000
951 D1254, 0000 / AND L0000
953 ////////////////////////////////////////////////////////////////////////////////
959 / TOTAL 0001 (1) CALLS
960 ////////////////////////////////////////////////////////////////////////////////
977 ////////////////////////////////////////////////////////////////////////////////
983 / TOTAL 0002 (2) CALLS
984 ////////////////////////////////////////////////////////////////////////////////
1001 C1311, 0000 / AND L0000
1003 JMS I C0066 / LONG CALL TO S1400
1004 JMS I C0055 / LONG CALL TO S1200
1006 JMS I C0055 / LONG CALL TO S1200
1008 JMS I C0055 / LONG CALL TO S1200
1010 JMS I C0065 / LONG CALL TO S1324
1012 JMP I C1311 / LONG JUMP TO L0000
1014 ////////////////////////////////////////////////////////////////////////////////
1020 / TOTAL 0002 (2) CALLS
1021 ////////////////////////////////////////////////////////////////////////////////
1024 JMS I C0075 / LONG CALL TO S0400
1028 JMS I C0075 / LONG CALL TO S0400
1030 SMA SZA SNL CLA OSR HLT /
1032 JMS I C0067 / LONG CALL TO S1412
1037 JMS I C0067 / LONG CALL TO S1412
1046 JMP I S1324 / RETURN
1048 JMS I C0067 / LONG CALL TO S1412
1054 JMP I S1324 / RETURN
1059 D1363, 0000 / AND L0000
1060 D1364, 0000 / AND L0000
1064 ////////////////////////////////////////////////////////////////////////////////
1069 / 1312 3510 3517 3606
1070 / TOTAL 0004 (4) CALLS
1071 ////////////////////////////////////////////////////////////////////////////////
1076 C1403, 4474 / JMS I C0074
1078 D1405, 1461 / TAD I C0061
1079 C1406, 7775 / CLA MQA SCA MQL ASR +
1082 JMP I S1400 / RETURN
1084 ////////////////////////////////////////////////////////////////////////////////
1089 / 1333 1340 1351 3472 3513 3523 3531 3704
1090 / TOTAL 0010 (8) CALLS
1091 ////////////////////////////////////////////////////////////////////////////////
1102 D1422, 7650 / SNA CLA
1114 JMP I S1412 / RETURN
1116 ////////////////////////////////////////////////////////////////////////////////
1122 / TOTAL 0001 (1) CALLS
1123 ////////////////////////////////////////////////////////////////////////////////
1145 JMP I S1435 / RETURN
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
1155 C1471, 4040 / JMS C0040
1156 C1472, 4040 / JMS C0040
1158 C1474, 4040 / JMS C0040
1159 C1475, 4040 / JMS C0040
1160 D1476, 4040 / JMS C0040
1161 C1477, 4040 / JMS C0040
1163 C1501, 0015 / AND AI5
1164 C1502, 0012 / AND AI2
1165 C1503, 0007 / AND C0007
1166 C1504, 4025 / JMS C0025
1170 C1510, 2405 / ISZ I D0005
1171 C1511, 0440 / AND I C0040
1177 C1517, 0015 / AND AI5
1180 C1522, 0040 / AND C0040
1182 C1524, 0037 / AND C0037
1185 C1527, 0011 / AND AI1
1186 C1530, 0011 / AND AI1
1188 C1532, 0015 / AND AI5
1189 C1533, 0012 / AND AI2
1197 C1543, 0015 / AND AI5
1198 C1544, 0012 / AND AI2
1208 C1556, 0015 / AND AI5
1210 C1560, 0015 / AND AI5
1211 C1561, 0012 / AND AI2
1219 C1571, 2416 / ISZ I AI6
1225 C1577, 0015 / AND AI5
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
1239 C1615, 0015 / AND AI5
1240 C1616, 0012 / AND AI2
1242 C1620, 4040 / JMS C0040
1243 C1621, 2331 / ISZ C1731
1244 C1622, 2324 / ISZ C1724
1246 JMP I D1640 / LONG JUMP TO L2440
1247 C1625, 2305 / ISZ C1705
1249 C1627, 2411 / ISZ I AI1
1251 C1631, 4004 / JMS C0004
1255 C1635, 1716 / TAD I C1716
1256 C1636, 2324 / ISZ C1724
1258 D1640, 2440 / ISZ I C0040
1262 C1644, 0015 / AND AI5
1263 C1645, 0012 / AND AI2
1267 C1651, 2417 / ISZ I AI7
1271 C1655, 4062 / JMS C0062
1272 D1656, 4001 / JMS L0001
1274 C1660, 4063 / JMS D0063
1275 C1661, 4017 / JMS AI7
1278 C1664, 0740 / AND I C1740
1279 C1665, 1411 / TAD I AI1
1280 C1666, 2324 / ISZ C1724
1282 C1670, 0756 / AND I C1756
1286 D2000, 4475 / JMS I C0075
1288 C2002, 2010 / ISZ AI0
1289 JMS I C0075 / LONG CALL TO S0400
1291 C2005, 7717 / CLA MQA LSR +
1292 JMP I C2007 / LONG JUMP TO L0241
1294 C2007, 0241 / AND C2041
1297 JMS I C0077 / LONG CALL TO S1111
1299 JMS I C0101 / LONG CALL TO S1042
1302 RFC / CLEAR READER FLAG AND READER BUFFER,
1303 JMS I C0102 / LONG CALL TO S0411
1304 RSF / SKIP IF READER FLAG IS A 1.
1309 JMP I C0025 / LONG JUMP TO L0270
1311 JMS I C0051 / LONG CALL TO S1050
1312 C2026, 4040 / JMS C0040
1315 JMS I C0101 / LONG CALL TO S1042
1316 SMA SZA SNL CLA OSR /
1318 RFC / CLEAR READER FLAG AND READER BUFFER,
1319 JMS I C0102 / LONG CALL TO S0411
1323 JMS I C0077 / LONG CALL TO S1111
1324 C2041, 0001 / AND L0001
1325 RFC / CLEAR READER FLAG AND READER BUFFER,
1327 RSF / SKIP IF READER FLAG IS A 1.
1330 RSF / SKIP IF READER FLAG IS A 1.
1335 JMP I C0025 / LONG JUMP TO L0270
1337 JMS I C0051 / LONG CALL TO S1050
1338 C2053, 4040 / JMS C0040
1341 RFC / CLEAR READER FLAG AND READER BUFFER,
1343 RSF / SKIP IF READER FLAG IS A 1.
1346 RSF / SKIP IF READER FLAG IS A 1.
1351 JMS I C0077 / LONG CALL TO S1111
1353 RFB / READ THE CONTENT OF THE READER BUFFE
1355 RSF / SKIP IF READER FLAG IS A 1.
1357 JMS I C0051 / LONG CALL TO S1050
1358 C2074, 4040 / JMS C0040
1362 RSF / SKIP IF READER FLAG IS A 1.
1368 JMP I C0025 / LONG JUMP TO L0270
1376 IOF / DISABLE INTERRUPTS
1384 D2122, 1375 / TAD C2175
1387 RFC / CLEAR READER FLAG AND READER BUFFER,
1389 RSF / SKIP IF READER FLAG IS A 1.
1396 JMP I C0025 / LONG JUMP TO L0270
1398 JMS I C0051 / LONG CALL TO S1050
1399 C2140, 4040 / JMS C0040
1402 IOF / DISABLE INTERRUPTS
1404 RSF / SKIP IF READER FLAG IS A 1.
1407 RSF / SKIP IF READER FLAG IS A 1.
1411 ////////////////////////////////////////////////////////////////////////////////
1417 / TOTAL 0001 (1) CALLS
1418 ////////////////////////////////////////////////////////////////////////////////
1424 JMP I S2151 / RETURN
1427 C2175, 2260 / ISZ C2060
1428 C2176, 7773 / CLA MQA SCA MQL SHL +
1429 C2177, 4000 / JMS L0000
1430 C2200, 0004 / AND C0004
1433 IOF / DISABLE INTERRUPTS
1437 ION / ENABLE INTERRUPTS
1438 RFC / CLEAR READER FLAG AND READER BUFFER,
1448 JMP I C0025 / LONG JUMP TO L0270
1450 JMS I C0051 / LONG CALL TO S1050
1451 C2221, 4040 / JMS C0040
1456 JMS I C0102 / LONG CALL TO S0411
1461 C2400, 0005 / AND D0005
1463 JMS I C0077 / LONG CALL TO S1111
1464 C2403, 7014 / RAR RAL
1466 RFC / CLEAR READER FLAG AND READER BUFFER,
1468 RSF / SKIP IF READER FLAG IS A 1.
1470 RFB / READ THE CONTENT OF THE READER BUFFE
1471 RSF / SKIP IF READER FLAG IS A 1.
1473 JMS I C0051 / LONG CALL TO S1050
1474 C2413, 4040 / JMS C0040
1478 RFC / CLEAR READER FLAG AND READER BUFFER,
1480 RSF / SKIP IF READER FLAG IS A 1.
1483 RFB / READ THE CONTENT OF THE READER BUFFE
1484 RSF / SKIP IF READER FLAG IS A 1.
1490 JMP I C0025 / LONG JUMP TO L0270
1493 JMS I C0077 / LONG CALL TO S1111
1494 C2433, 7014 / RAR RAL
1495 RFC / CLEAR READER FLAG AND READER BUFFER,
1497 RSF / SKIP IF READER FLAG IS A 1.
1499 RFC / CLEAR READER FLAG AND READER BUFFER,
1500 RSF / SKIP IF READER FLAG IS A 1.
1502 JMS I C0051 / LONG CALL TO S1050
1503 C2443, 4040 / JMS C0040
1506 JMS I C0102 / LONG CALL TO S0411
1508 RFC / CLEAR READER FLAG AND READER BUFFER,
1510 RSF / SKIP IF READER FLAG IS A 1.
1516 JMP I C0025 / LONG JUMP TO L0270
1519 C2600, 0007 / AND C0007
1520 C2601, 2637 / ISZ I C2637
1521 JMS I C0077 / LONG CALL TO S1111
1522 C2603, 7014 / RAR RAL
1526 RSF / SKIP IF READER FLAG IS A 1.
1529 RFB / READ THE CONTENT OF THE READER BUFFE
1530 C2611, 3236 / DCA D2636
1537 JMP I C0025 / LONG JUMP TO L0270
1539 JMS I C0052 / LONG CALL TO S1000
1542 JMS I C0052 / LONG CALL TO S1000
1545 JMS I C0051 / LONG CALL TO S1050
1546 C2627, 4040 / JMS C0040
1551 RFB / READ THE CONTENT OF THE READER BUFFE
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
1561 KCC / CLEAR AC AND CLEAR KEYBOARD FLAG.
1562 TCF / CLEAR TELEPRINTER FLAG.
1563 PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER.
1564 RFB / READ THE CONTENT OF THE READER BUFFE
1565 ION / ENABLE INTERRUPTS
1567 IOF / DISABLE INTERRUPTS
1569 C2654, 4451 / JMS I C0051
1575 JMS I C0077 / LONG CALL TO S1111
1577 JMS I C0075 / LONG CALL TO S0400
1581 RFC / CLEAR READER FLAG AND READER BUFFER,
1583 RSF / SKIP IF READER FLAG IS A 1.
1586 ION / ENABLE INTERRUPTS
1588 IOF / DISABLE INTERRUPTS
1589 JMS I C0051 / LONG CALL TO S1050
1593 JMS I C0075 / LONG CALL TO S0400
1596 RFC / CLEAR READER FLAG AND READER BUFFER,
1598 RSF / SKIP IF READER FLAG IS A 1.
1601 ION / ENABLE INTERRUPTS
1604 C2712, 5307 / JMP L2707
1606 C2713, 2122 / ISZ D0122
1609 JMP I C0025 / LONG JUMP TO L0270
1610 C2717, 0011 / AND AI1
1611 C2720, 7777 / CLA MQA SCA MQL LSR +
1612 JMS I C0077 / LONG CALL TO S1111
1616 JMS I C0101 / LONG CALL TO S1042
1617 C2725, 7755 / CLA MQA SCA ASR +
1618 RFC / CLEAR READER FLAG AND READER BUFFER,
1620 RSF / SKIP IF READER FLAG IS A 1.
1622 JMS I C0102 / LONG CALL TO S0411
1623 RFC / CLEAR READER FLAG AND READER BUFFER,
1624 JMS I C0102 / LONG CALL TO S0411
1625 RSF / SKIP IF READER FLAG IS A 1.
1627 JMS I C0051 / LONG CALL TO S1050
1634 RSF / SKIP IF READER FLAG IS A 1.
1639 JMP I C0025 / LONG JUMP TO L0270
1641 JMS I C0051 / LONG CALL TO S1050
1646 JMS I C0101 / LONG CALL TO S1042
1647 C2756, 7761 / CLA MQA SCA MQL
1649 RFC / CLEAR READER FLAG AND READER BUFFER,
1652 JMS I C0102 / LONG CALL TO S0411
1653 RFC / CLEAR READER FLAG AND READER BUFFER,
1655 RSF / SKIP IF READER FLAG IS A 1.
1659 ////////////////////////////////////////////////////////////////////////////////
1665 / TOTAL 0001 (1) CALLS
1666 ////////////////////////////////////////////////////////////////////////////////
1669 JMS I C0101 / LONG CALL TO S1042
1671 JMS I C0102 / LONG CALL TO S0411
1672 JMP I S2766 / RETURN
1674 ////////////////////////////////////////////////////////////////////////////////
1680 / TOTAL 0001 (1) CALLS
1681 ////////////////////////////////////////////////////////////////////////////////
1684 JMS I C0101 / LONG CALL TO S1042
1686 JMS I C0102 / LONG CALL TO S0411
1687 JMP I S2773 / RETURN
1688 D3000, 4475 / JMS I C0075
1690 C3002, 3010 / DCA AI0
1691 JMS I C0075 / LONG CALL TO S0400
1693 C3005, 7717 / CLA MQA LSR +
1694 JMP I C3007 / LONG JUMP TO L0241
1696 C3007, 0241 / AND C3041
1699 JMS I C0077 / LONG CALL TO S1111
1702 PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER.
1703 PSF / SKIP IF PUNCH FLAG IS A 1
1705 JMS I C0051 / LONG CALL TO S1050
1706 C3020, 4040 / JMS C0040
1709 PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER.
1711 PSF / SKIP IF PUNCH FLAG IS A 1
1717 JMP I C0025 / LONG JUMP TO L0270
1720 JMS I C0077 / LONG CALL TO S1111
1722 JMS I C0101 / LONG CALL TO S1042
1726 PPC / LOAD THE PUNCH BUFFER FROM BITS 4 TH
1727 JMS I C0102 / LONG CALL TO S0411
1729 PSF / SKIP IF PUNCH FLAG IS A 1
1734 JMP I C0025 / LONG JUMP TO L0270
1736 JMS I C0051 / LONG CALL TO S1050
1737 C3052, 4040 / JMS C0040
1741 PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER.
1742 PPC / LOAD THE PUNCH BUFFER FROM BITS 4 TH
1744 PSF / SKIP IF PUNCH FLAG IS A 1
1749 JMS I C0077 / LONG CALL TO S1111
1750 C3066, 7014 / RAR RAL
1753 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
1755 PSF / SKIP IF PUNCH FLAG IS A 1
1757 PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER.
1758 PSF / SKIP IF PUNCH FLAG IS A 1
1760 JMS I C0051 / LONG CALL TO S1050
1761 C3077, 4040 / JMS C0040
1766 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
1768 PSF / SKIP IF PUNCH FLAG IS A 1
1771 PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER.
1772 PSF / SKIP IF PUNCH FLAG IS A 1
1778 JMP I C0025 / LONG JUMP TO L0270
1786 IOF / DISABLE INTERRUPTS
1797 PPC / LOAD THE PUNCH BUFFER FROM BITS 4 TH
1799 PSF / SKIP IF PUNCH FLAG IS A 1
1806 JMP I C0025 / LONG JUMP TO L0270
1808 JMS I C0051 / LONG CALL TO S1050
1809 C3150, 4040 / JMS C0040
1812 IOF / DISABLE INTERRUPTS
1814 PSF / SKIP IF PUNCH FLAG IS A 1
1817 RSF / SKIP IF READER FLAG IS A 1.
1821 ////////////////////////////////////////////////////////////////////////////////
1827 / TOTAL 0001 (1) CALLS
1828 ////////////////////////////////////////////////////////////////////////////////
1842 JMP I S3161 / RETURN
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
1852 IOF / DISABLE INTERRUPTS
1856 ION / ENABLE INTERRUPTS
1857 PPC / LOAD THE PUNCH BUFFER FROM BITS 4 TH
1866 JMP I C0025 / LONG JUMP TO L0270
1868 JMS I C0051 / LONG CALL TO S1050
1869 C3221, 4040 / JMS C0040
1874 JMS I C0102 / LONG CALL TO S0411
1877 D3230, 0005 / AND D0005
1879 JMS I C0077 / LONG CALL TO S1111
1880 C3233, 7014 / RAR RAL
1882 STA / AC = 7777 (-0001)
1883 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
1885 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
1887 PSF / SKIP IF PUNCH FLAG IS A 1
1891 JMP I C0025 / LONG JUMP TO L0270
1892 D3245, 0006 / AND C0006
1894 JMS I C0077 / LONG CALL TO S1111
1895 C3250, 7014 / RAR RAL
1899 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
1901 PSF / SKIP IF PUNCH FLAG IS A 1
1905 JMP I C0025 / LONG JUMP TO L0270
1906 D3261, 0007 / AND C0007
1908 JMS I C0077 / LONG CALL TO S1111
1909 C3264, 7014 / RAR RAL
1913 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
1915 PSF / SKIP IF PUNCH FLAG IS A 1
1919 JMP I C0025 / LONG JUMP TO L0270
1922 C3400, 0010 / AND AI0
1923 C3401, 7777 / CLA MQA SCA MQL LSR +
1924 JMS I C0075 / LONG CALL TO S0400
1926 C3404, 3415 / DCA I AI5
1928 KCC / CLEAR AC AND CLEAR KEYBOARD FLAG.
1929 TCF / CLEAR TELEPRINTER FLAG.
1930 RFB / READ THE CONTENT OF THE READER BUFFE
1931 PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER.
1932 ION / ENABLE INTERRUPTS
1934 IOF / DISABLE INTERRUPTS
1936 JMS I C0051 / LONG CALL TO S1050
1942 JMS I C0077 / LONG CALL TO S1111
1944 JMS I C0075 / LONG CALL TO S0400
1949 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
1951 PSF / SKIP IF PUNCH FLAG IS A 1
1954 ION / ENABLE INTERRUPTS
1956 IOF / DISABLE INTERRUPTS
1957 JMS I C0051 / LONG CALL TO S1050
1958 C3440, 0240 / AND C3440
1961 JMS I C0075 / LONG CALL TO S0400
1967 PSF / SKIP IF PUNCH FLAG IS A 1
1968 C3451, 5250 / JMP L3450
1970 ION / ENABLE INTERRUPTS
1978 JMP I C0025 / LONG JUMP TO L0270
1979 JMS I C0075 / LONG CALL TO S0400
1983 JMS I D0064 / LONG CALL TO S1311
1984 JMS I C0077 / LONG CALL TO S1111
1985 C3467, 7773 / CLA MQA SCA MQL SHL +
1987 JMS I D0063 / LONG CALL TO S0324
1990 JMS I C0067 / LONG CALL TO S1412
1992 JMS I C0055 / LONG CALL TO S1200
1993 JMS I C0061 / LONG CALL TO S1143
1998 JMS I C0163 / LONG CALL TO S1125
2004 JMS I C0060 / LONG CALL TO S1230
2005 JMS I C0057 / LONG CALL TO S1214
2006 JMS I C0066 / LONG CALL TO S1400
2010 JMS I C0067 / LONG CALL TO S1412
2011 JMS I C0056 / LONG CALL TO S1207
2012 JMS I C0163 / LONG CALL TO S1125
2014 JMS I C0066 / LONG CALL TO S1400
2015 JMS I C0075 / LONG CALL TO S0400
2018 JMS I C0067 / LONG CALL TO S1412
2021 JMS I C0055 / LONG CALL TO S1200
2026 JMS I C0067 / LONG CALL TO S1412
2028 JMS I C0055 / LONG CALL TO S1200
2030 JMS I C0061 / LONG CALL TO S1143
2033 JMS I C0060 / LONG CALL TO S1230
2034 JMS I C0057 / LONG CALL TO S1214
2035 JMS I C0074 / LONG CALL TO S0536
2038 SPA SNA SZL CLA OSR /
2042 JMS I C0053 / LONG CALL TO S1255
2043 JMS I C0056 / LONG CALL TO S1207
2044 JMS I C0163 / LONG CALL TO S1125
2046 JMS I C0074 / LONG CALL TO S0536
2049 SPA SNA SZL CLA OSR /
2050 JMS I C0075 / LONG CALL TO S0400
2053 JMS I C0054 / LONG CALL TO S1273
2056 JMS I C0055 / LONG CALL TO S1200
2061 JMS I C0054 / LONG CALL TO S1273
2063 JMS I C0055 / LONG CALL TO S1200
2065 JMS I C0061 / LONG CALL TO S1143
2070 D3600, 4475 / JMS I C0075
2073 JMS I C0075 / LONG CALL TO S0400
2076 JMS I C0066 / LONG CALL TO S1400
2078 JMS I C0075 / LONG CALL TO S0400
2081 JMS I C0075 / LONG CALL TO S0400
2084 JMS I C0075 / LONG CALL TO S0400
2088 ION / ENABLE INTERRUPTS
2091 C3624, 2132 / ISZ D0132
2103 JMP I C0103 / LONG JUMP TO L0733
2107 JMP I C0103 / LONG JUMP TO L0733
2108 RFC / CLEAR READER FLAG AND READER BUFFER,
2110 JMP I C0103 / LONG JUMP TO L0733
2112 ////////////////////////////////////////////////////////////////////////////////
2118 / TOTAL 0002 (2) CALLS
2119 ////////////////////////////////////////////////////////////////////////////////
2122 JMS I C0070 / LONG CALL TO S1435
2123 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
2125 JMP I S3646 / RETURN
2127 ////////////////////////////////////////////////////////////////////////////////
2132 ////////////////////////////////////////////////////////////////////////////////
2136 RFB / READ THE CONTENT OF THE READER BUFFE
2145 JMP I S3653 / RETURN
2147 RFC / CLEAR READER FLAG AND READER BUFFER,
2148 JMP I S3653 / RETURN
2149 C3671, 4253 / JMS S3653
2152 JMP I C0103 / LONG JUMP TO L0733
2153 JMS I C0075 / LONG CALL TO S0400
2156 JMS I C0077 / LONG CALL TO S1111
2157 C3701, 7773 / CLA MQA SCA MQL SHL +
2159 C3703, 4253 / JMS S3653
2160 JMS I C0067 / LONG CALL TO S1412
2163 JMS I C0061 / LONG CALL TO S1143
2165 C3711, 5503 / JMP I C0103
2167 JMP I C0103 / LONG JUMP TO L0733
2169 JMS I C0075 / LONG CALL TO S0400
2171 C3716, 3720 / DCA I C3720
2172 JMP I C0103 / LONG JUMP TO L0733
2173 C3720, 4253 / JMS S3653
2176 JMS I C0075 / LONG CALL TO S0400
2179 JMP I C0103 / LONG JUMP TO L0733
2180 C3727, 4253 / JMS S3653
2183 JMS I C0075 / LONG CALL TO S0400
2186 JMP I C0103 / LONG JUMP TO L0733
2187 C3736, 4253 / JMS S3653
2190 JMS I C0065 / LONG CALL TO S1324
2192 JMS I C0077 / LONG CALL TO S1111
2193 C3744, 7773 / CLA MQA SCA MQL SHL +
2194 JMS I C0075 / LONG CALL TO S0400
2197 JMP I C0103 / LONG JUMP TO L0733
2200 JMS I C0075 / LONG CALL TO S0400
2201 C4001, 0002 / AND C0002
2203 JMS I C0075 / LONG CALL TO S0400
2204 C4004, 0716 / AND I C4116
2205 C4005, 0741 / AND I C4141
2206 JMS I C0075 / LONG CALL TO S0400
2208 C4010, 4070 / JMS C0070
2209 C4011, 4475 / JMS I C0075
2230 JMS I C0052 / LONG CALL TO S1000
2231 C4034, 4052 / JMS C0052
2234 JMS I C0052 / LONG CALL TO S1000
2235 C4037, 4074 / JMS C0074
2236 C4040, 1611 / TAD I C4011
2239 JMS I C0052 / LONG CALL TO S1000
2240 C4043, 4075 / JMS C0075
2244 JMS I C0051 / LONG CALL TO S1050
2245 C4047, 4040 / JMS C0040
2248 C4052, 0377 / AND C4177
2250 ////////////////////////////////////////////////////////////////////////////////
2256 / TOTAL 0003 (3) CALLS
2257 ////////////////////////////////////////////////////////////////////////////////
2260 JMS I C0101 / LONG CALL TO S1042
2261 C4055, 7665 / CLA SCA MQL MUY +
2262 RFC / CLEAR READER FLAG AND READER BUFFER,
2263 ION / ENABLE INTERRUPTS
2264 JMS I C0102 / LONG CALL TO S0411
2265 IOF / DISABLE INTERRUPTS
2266 RSF / SKIP IF READER FLAG IS A 1.
2269 JMS I C0047 / LONG CALL TO S0616
2270 C4066, 4076 / JMS C0076
2273 RFB / READ THE CONTENT OF THE READER BUFFE
2276 JMP I S4053 / RETURN
2277 D4074, 0000 / AND L0000
2279 C4076, 0007 / AND C0007
2280 C4077, 0007 / AND C0007
2281 C4100, 0007 / AND C0007
2285 C4103, 0153 / AND C0153
2286 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
2288 PSF / SKIP IF PUNCH FLAG IS A 1
2291 JMS I C0075 / LONG CALL TO S0400
2292 C4111, 0105 / AND D0105
2295 STA / AC = 7777 (-0001)
2297 JMS I C0056 / LONG CALL TO S1207
2298 C4116, 4563 / JMS I C0163
2300 JMS I C0056 / LONG CALL TO S1207
2301 JMS I C0163 / LONG CALL TO S1125
2316 RFC / CLEAR READER FLAG AND READER BUFFER,
2318 RSF / SKIP IF READER FLAG IS A 1.
2331 JMS I C0047 / LONG CALL TO S0616
2336 D4232, 0000 / AND L0000
2342 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC
2344 PSF / SKIP IF PUNCH FLAG IS A 1
2357 JMS I C0047 / LONG CALL TO S0616
2358 D4253, 1543 / TAD I C0143
2363 ////////////////////////////////////////////////////////////////////////////////
2369 / TOTAL 0002 (2) CALLS
2370 ////////////////////////////////////////////////////////////////////////////////
2375 JMS I C0047 / LONG CALL TO S0616
2377 JMP I S4257 / RETURN
2379 ////////////////////////////////////////////////////////////////////////////////
2385 / TOTAL 0001 (1) CALLS
2386 ////////////////////////////////////////////////////////////////////////////////
2389 JMS I C0075 / LONG CALL TO S0400
2391 SPA SNA SZL CLA OSR /
2404 D4303, 1323 / TAD C4323
2414 JMS I C0073 / LONG CALL TO S0426
2419 JMP I S4265 / RETURN
2420 C4322, 1323 / TAD C4323
2423 SMA SZA SNL CLA OSR HLT /
2424 C4326, 7777 / CLA MQA SCA MQL LSR +
2425 D4327, 0000 / AND L0000
2426 D4330, 0000 / AND L0000
2427 D4331, 0000 / AND L0000
2441 JMS I C0077 / LONG CALL TO S1111
2442 D4347, 0000 / AND L0000
2444 RFC / CLEAR READER FLAG AND READER BUFFER,
2446 RSF / SKIP IF READER FLAG IS A 1.
2450 JMS I C0102 / LONG CALL TO S0411