TITLE "AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / AUTOMATIC DISASSEMBLY OF MAINDEC-8E-D2CA-PB.BIN / GENERATED 2009 04 06 00:10:32 / GENERATED BY D8TAPE VERSION 0.351 / VISIT HTTP://WWW.PDP12.ORG/PDP8/SOFTWARE/INDEX.HTML FOR UPDATES / / SYMBOL FORMAT: / AIX -- AUTO-INDEX VARIABLES (ADDRESS RANGE 001X) / CAAAA -- CONSTANTS (NON-UNIQUE) / DAAAA -- DATA (READ/WRITE VARIABLES) / KVVVV -- PROGRAM-WIDE UNIQUE CONSTANTS / LAAAA -- LABELS FOR CONTROL FLOW TARGETS / SAAAA -- SUBROUTINES / / WHERE: / AAAA IS THE DEFINITION ADDRESS / VVVV IS THE VALUE OF THE CONSTANT / X IS THE LAST DIGIT OF THE ADDRESS 001X FOR AUTO-INDEX VARIABLES / / 3360 LOCATIONS USED, 2552 CODE AND 0606 DATA //////////////////////////////////////////////////////////////////////////////// *0000 L0000, D0000, 0000 / AND L0000 L0001, C0001, 5001 / JMP L0001 C0002, 0002 / AND C0002 D0003, 0003 / AND D0003 *0005 D0005, 5402 / JMP I C0002 C0006, 0000 / AND L0000 *0020 D0020, 0000 / AND L0000 D0021, 0000 / AND L0000 D0022, 0000 / AND L0000 D0023, 0000 / AND L0000 D0024, 0000 / AND L0000 C0025, C0025, 0270 / AND C0070 C0026, C0026, 0333 / AND D0133 C0027, C0027, 0447 / AND I C0047 D0030, 0000 / AND L0000 C0031, 2000 / ISZ L0000 D0032, 3000 / DCA L0000 DCA I C0062 / DCA I C0106 / DCA I D0117 / D0036, 3537 / DCA I C0137 C0037, 3553 / DCA I C0153 C0040, 3600 / DCA I L0000 JMS L0000 / C0042, 4102 / JMS C0102 C0043, 4110 / JMS D0110 JMS L0000 / C0045, 4233 / JMS C0033 JMS D0132 / C0047, C0047, 0616 / AND I AI6 C0050, 0600 / AND I L0000 C0051, C0051, 1050 / TAD C0050 C0052, C0052, 1000 / TAD L0000 C0053, C0053, 1255 / TAD C0055 C0054, C0054, 1273 / TAD C0073 C0055, C0055, 1200 / TAD L0000 C0056, C0056, 1207 / TAD C0007 C0057, C0057, 1214 / TAD AI4 C0060, C0060, 1230 / TAD D0030 C0061, C0061, 1143 / TAD C0143 C0062, 1145 / TAD C0145 D0063, 0324 / AND C0124 D0064, 1311 / TAD D0111 C0065, C0065, 1324 / TAD C0124 C0066, C0066, 1400 / TAD I L0000 C0067, C0067, 1412 / TAD I AI2 C0070, C0070, 1435 / TAD I C0035 C0071, C0071, 0521 / AND I D0121 C0072, C0072, 0513 / AND I D0113 C0073, C0073, 0426 / AND I C0026 C0074, C0074, 0536 / AND I D0136 C0075, C0075, 0400 / AND I L0000 C0076, C0076, 0443 / AND I C0043 C0077, C0077, 1111 / TAD D0111 C0100, C0100, 1117 / TAD D0117 C0101, C0101, 1042 / TAD C0042 C0102, C0102, 0411 / AND I AI1 C0103, C0103, 0733 / AND I D0133 D0104, 0000 / AND L0000 D0105, 0000 / AND L0000 C0106, 7354 / CLA CLL CMA RAR RAL D0107, 0000 / AND L0000 D0110, 0000 / AND L0000 D0111, 0000 / AND L0000 D0112, 0000 / AND L0000 D0113, 0000 / AND L0000 C0114, 0000 / AND L0000 D0115, 0000 / AND L0000 D0116, 0000 / AND L0000 D0117, 0000 / AND L0000 D0120, 0000 / AND L0000 D0121, 0000 / AND L0000 D0122, 0000 / AND L0000 D0123, 0000 / AND L0000 C0124, 0000 / AND L0000 C0125, 0000 / AND L0000 D0126, 0000 / AND L0000 D0127, 0000 / AND L0000 C0130, 0000 / AND L0000 D0131, 0000 / AND L0000 D0132, 0000 / AND L0000 D0133, 0000 / AND L0000 D0134, 0000 / AND L0000 D0135, 0000 / AND L0000 D0136, 0000 / AND L0000 C0137, 7600 / 7600 C0140, 0260 / AND C0060 C0141, 7704 / SMA CLA OSR C0142, 7742 / SMA SZA CLA HLT C0143, 7362 / CLA CLL CMA CML C0144, 7000 / NOP C0145, 7777 / CLA MQA SCA MQL LSR + C0146, 7766 / SMA SZA SNL CLA OSR HLT C0147, 7634 / SZL CLA OSR C0150, 0060 / AND C0060 C0151, 0252 / AND C0052 C0152, 0125 / AND C0125 C0153, 0377 / AND C0177 C0154, 0020 / AND D0020 C0155, 0040 / AND C0040 C0156, 0200 / AND L0000 C0157, 0400 / AND I L0000 C0160, 6060 / 6060 C0161, 0707 / AND I D0107 C0162, 7700 / SMA CLA C0163, C0163, 1125 / TAD C0125 C0164, 0240 / AND C0040 C0165, 0100 / AND C0100 C0166, 7740 / SMA SZA CLA C0167, 7510 / SPA C0170, 7500 / SMA C0171, 0077 / AND C0077 C0172, 1130 / TAD C0130 C0173, 7640 / SZA CLA C0174, 0177 / AND C0177 C0175, 0031 / AND C0031 C0176, 7763 / CLA MQA SCA MQL SCL + C0177, 0017 / AND AI7 SKP / L0201, CLA HLT / LAS / AND C0177 / TAD C0176 / SMA SZA / JMP L0201 / LAS / AND C0177 / DCA D0030 / TAD D0030 / TAD C0175 / DCA D0113 / TAD I D0113 / DCA D0240 / JMS I C0074 / LONG CALL TO S0536 AND D0005 / AND L0001 / SPA SNA SZL CLA OSR HLT / DCA D0113 / JMS I C0074 / LONG CALL TO S0536 AND D0113 / AND C0114 / SMA SZA SNL CLA / JMS I C0075 / LONG CALL TO S0400 TAD C0075 / HLT / TAD C0174 / DCA D0104 / TAD C0173 / DCA I C0172 / JMP I D0240 / LONG JUMP TO L0000 D0240, 0000 / AND L0000 L0241, CLA HLT / L0242, CLA / TAD D0020 / DCA D0117 / L0245, JMS S0307 / JMS I C0076 / LONG CALL TO S0443 RTL / SNL / JMP I D0115 / LONG JUMP TO L0000 JMS I C0076 / LONG CALL TO S0443 AND C0177 / CIA / TAD D0116 / SNA CLA / JMP I D0115 / LONG JUMP TO L0000 TAD D0117 / IAC / SZA CLA / JMP L0245 / JMS I C0047 / LONG CALL TO S0616 TAD I C0160 / CLA HLT / JMP L0242 / L0270, JMS I C0026 / LONG CALL TO S0333 JMS I C0076 / LONG CALL TO S0443 RTL / SZL CLA / JMP L0242 / TAD D0117 / IAC / SZA CLA / JMP L0245 / JMS I C0076 / LONG CALL TO S0443 RTL / SPA CLA / JMP L0242 / HLT / JMP L0270 / //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0307 / / CALLED FROM: / 0245 / TOTAL 0001 (1) CALLS //////////////////////////////////////////////////////////////////////////////// S0307, 0 / RETURN AREA CLA CLL / AC = 0000 TAD I D0117 / DCA D0116 / ISZ D0117 / TAD D0117 / DCA D0113 / ISZ D0117 / TAD D0117 / DCA D0115 / TAD I D0113 / DCA D0117 / JMP I S0307 / RETURN C0324, C0324, 0000 / AND L0000 L0325, JMS I C0027 / LONG CALL TO S0447 AND C0177 / SNA / JMP L0325 / CIA / JMP I C0324 / LONG JUMP TO L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0333 / / CALLED FROM: / 0270 / TOTAL 0001 (1) CALLS //////////////////////////////////////////////////////////////////////////////// S0333, 0 / RETURN AREA JMS I C0076 / LONG CALL TO S0443 SMA CLA / JMP I S0333 / RETURN TAD D0116 / HLT / JMP I S0333 / RETURN *0400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0400 / / CALLED FROM: / 0230 1215 1234 1325 1330 2003 2641 2663 2701 3003 3402 3424 3443 3462 3520 / 3557 3603 3610 3613 3616 3675 3714 3723 3732 3745 4000 4003 4006 4110 4266 / / TOTAL 0036 (30) CALLS //////////////////////////////////////////////////////////////////////////////// S0400, 0 / RETURN AREA CLA / TAD I S0400 / DCA D0113 / ISZ S0400 / TAD I S0400 / DCA I D0113 / ISZ S0400 / D0410, 5600 / JMP I S0400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0411 / / CALLED FROM: / 1141 2017 2034 2225 2446 2731 2733 2761 2771 2776 3043 3225 4060 4355 / TOTAL 0016 (14) CALLS //////////////////////////////////////////////////////////////////////////////// S0411, 0 / RETURN AREA CLA CLL / AC = 0000 TAD D0021 / DCA D0120 / JMP I C0416 / LONG JUMP TO L0417 C0416, C0416, 0417 / AND I AI7 L0417, TAD C0106 / DCA D0121 / L0421, ISZ D0121 / JMP L0421 / ISZ D0120 / JMP L0417 / JMP I S0411 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0426 / / CALLED FROM: / 0676 4314 / TOTAL 0002 (2) CALLS //////////////////////////////////////////////////////////////////////////////// S0426, 0 / RETURN AREA ISZ D0126 / TLS / LOAD THE TTO FROM THE CONTENT OF AC4 CLA / L0432, TAD D0126 / SZA CLA / SKP / JMP L0440 / TSF / SKIP IF TELEPRINTER FLAG IS A 1. JMP L0432 / L0440, C0440, 6042 / TCF DCA D0126 / JMP I S0426 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0443 / / CALLED FROM: / 0246 0252 0271 0301 0334 1072 1076 1102 1126 1132 / TOTAL 0012 (10) CALLS //////////////////////////////////////////////////////////////////////////////// S0443, 0 / RETURN AREA LAS / AND D0105 / JMP I S0443 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0447 / / CALLED FROM: / 0325 0514 / TOTAL 0002 (2) CALLS //////////////////////////////////////////////////////////////////////////////// S0447, 0 / RETURN AREA CLA / TAD C0511 / TAD D0476 / SZA CLA / JMP L0464 / TAD C0500 / DCA D0476 / TAD D0477 / CLL RAL / SZL / IAC / DCA D0477 / L0464, TAD D0477 / TAD I D0476 / DCA I D0476 / TAD D0512 / RAR / TAD I D0476 / ISZ D0476 / DCA D0512 / TAD D0512 / JMP I S0447 / RETURN D0476, 0511 / AND I D0111 D0477, 6543 / 6543 C0500, 0501 / AND I C0101 C0501, 6543 / 6543 DCA D0410 / C0503, 0765 / AND I C0565 JMP I D0032 / LONG JUMP TO L3000 ISZ D0107 / SNA CLA OSR / JMS S0521 / TAD C0076 / C0511, 7267 / CLA CMA CML IAC RTL D0512, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0513 / / CALLED FROM: / 1136 / TOTAL 0001 (1) CALLS //////////////////////////////////////////////////////////////////////////////// S0513, 0 / RETURN AREA JMS I C0027 / LONG CALL TO S0447 AND C0174 / CIA / DCA D0021 / JMP I S0513 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0521 / / CALLED FROM: / 0507 1144 / TOTAL 0002 (2) CALLS //////////////////////////////////////////////////////////////////////////////// S0521, 0 / RETURN AREA DCA D0535 / TAD I S0521 / CIA / TAD D0535 / ISZ S0521 / SZA CLA / JMP L0533 / ISZ S0521 / JMP I S0521 / RETURN L0533, TAD D0535 / JMP I S0521 / RETURN D0535, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0536 / / CALLED FROM: / 0217 0224 3541 3553 / TOTAL 0004 (4) CALLS //////////////////////////////////////////////////////////////////////////////// S0536, 0 / RETURN AREA CLA / TAD I S0536 / DCA D0561 / ISZ S0536 / TAD I S0536 / DCA D0562 / ISZ S0536 / TAD I S0536 / DCA D0563 / ISZ S0536 / L0551, CLA / TAD I D0561 / DCA I D0562 / ISZ D0561 / ISZ D0562 / ISZ D0563 / JMP L0551 / JMP I S0536 / RETURN D0561, 0000 / AND L0000 D0562, 0000 / AND L0000 D0563, 0000 / AND L0000 *0600 D0600, 0000 / AND L0000 CLA / TAD I D0600 / DCA D0615 / ISZ D0600 / L0605, JMS I C0047 / LONG CALL TO S0616 AND I C0612 / ISZ D0615 / JMP L0605 / JMP I D0600 / LONG JUMP TO L0000 C0612, 0015 / AND AI5 C0613, 0012 / AND AI2 AND L0001 / D0615, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0616 / / CALLED FROM: / 0264 0605 0730 1061 1070 4065 4225 4252 4262 / TOTAL 0011 (9) CALLS //////////////////////////////////////////////////////////////////////////////// S0616, 0 / RETURN AREA CLA / TAD I S0616 / DCA D0700 / DCA D0702 / ISZ S0616 / L0624, TAD I D0700 / RTR / RTR / RTR / JMS S0635 / TAD I D0700 / JMS S0635 / ISZ D0700 / JMP L0624 / //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0635 / / CALLED FROM: / 0630 0632 / TOTAL 0002 (2) CALLS //////////////////////////////////////////////////////////////////////////////// S0635, 0 / RETURN AREA AND C0171 / C0637, 3301 / DCA D0701 TAD D0702 / SZA CLA / JMP L0652 / TAD D0701 / SNA / JMP L0650 / L0646, JMS S0671 / JMP I S0635 / RETURN L0650, ISZ D0702 / JMP I S0635 / RETURN L0652, DCA D0702 / TAD D0701 / CIA / SNA / JMP L0646 / IAC / SNA CLA / JMP I S0616 / RETURN TAD C0170 / DCA D0673 / TAD D0701 / JMS S0671 / TAD C0167 / DCA D0673 / JMP I S0635 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0671 / / CALLED FROM: / 0646 0665 / TOTAL 0002 (2) CALLS //////////////////////////////////////////////////////////////////////////////// S0671, 0 / RETURN AREA TAD C0166 / D0673, 7510 / SPA TAD C0165 / TAD C0164 / JMS I C0073 / LONG CALL TO S0426 JMP I S0671 / RETURN D0700, 0000 / AND L0000 D0701, 0000 / AND L0000 D0702, 0000 / AND L0000 DCA D0023 / RAR / DCA D0024 / RSF / SKIP IF READER FLAG IS A 1. JMP L0712 / JMP I C0711 / LONG JUMP TO L0000 C0711, C0711, 0000 / AND L0000 L0712, PSF / SKIP IF PUNCH FLAG IS A 1 JMP L0717 / JMS I C0163 / LONG CALL TO S1125 JMP I C0716 / LONG JUMP TO L0000 C0716, C0716, 0000 / AND L0000 L0717, KSF / SKIP IF KEYBOARD FLAG IS A 1. JMP L0723 / KCC / CLEAR AC AND CLEAR KEYBOARD FLAG. JMP I C0103 / LONG JUMP TO L0733 L0723, TSF / SKIP IF TELEPRINTER FLAG IS A 1. JMP L0730 / TCF / CLEAR TELEPRINTER FLAG. DCA D0126 / JMP I C0103 / LONG JUMP TO L0733 L0730, JMS I C0047 / LONG CALL TO S0616 TAD I C0101 / CLA HLT / L0733, C0733, 7300 / CLA CLL TAD D0024 / RAL / TAD D0023 / ION / ENABLE INTERRUPTS JMP I L0000 / LONG JUMP TO L0000 PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER. JMP I C0103 / LONG JUMP TO L0733 RFB / READ THE CONTENT OF THE READER BUFFE JMP I C0103 / LONG JUMP TO L0733 *1000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1000 / / CALLED FROM: / 1051 1054 1152 1155 2620 2623 4033 4036 4042 / TOTAL 0011 (9) CALLS //////////////////////////////////////////////////////////////////////////////// S1000, 0 / RETURN AREA C1001, 7200 / CLA TAD I S1000 / DCA D1037 / C1004, 2200 / ISZ S1000 TAD I S1000 / DCA D1040 / ISZ S1000 / TAD C0162 / C1011, 0637 / AND I D1037 CLL RTR / RTR / RTR / JMS S1024 / ISZ D1040 / TAD C0162 / CMA / AND I D1037 / JMS S1024 / JMP I S1000 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1024 / / CALLED FROM: / 1015 1022 / TOTAL 0002 (2) CALLS //////////////////////////////////////////////////////////////////////////////// S1024, 0 / RETURN AREA DCA D1041 / TAD D1041 / RTL / RAL / AND C0161 / TAD D1041 / AND C0161 / TAD C0160 / DCA I D1040 / JMP I S1024 / RETURN D1037, 0000 / AND L0000 D1040, 0000 / AND L0000 D1041, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1042 / / CALLED FROM: / 2014 2031 2724 2755 2767 2774 3036 4054 / TOTAL 0010 (8) CALLS //////////////////////////////////////////////////////////////////////////////// S1042, 0 / RETURN AREA CLA / TAD I S1042 / DCA D0021 / ISZ S1042 / JMP I S1042 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1050 / / CALLED FROM: / 1160 2025 2052 2073 2137 2220 2412 2442 2626 2675 2736 2751 3017 3051 3076 / 3147 3220 3415 3437 4046 / TOTAL 0024 (20) CALLS //////////////////////////////////////////////////////////////////////////////// S1050, 0 / RETURN AREA JMS I C0052 / LONG CALL TO S1000 AND D0030 / TAD I C0071 / JMS I C0052 / LONG CALL TO S1000 AND D0116 / TAD I C0074 / TAD I S1050 / DCA I C1110 / JMS I C0047 / LONG CALL TO S0616 TAD I C0066 / ISZ S1050 / TAD I S1050 / SNA / JMP L1072 / DCA D1071 / JMS I C0047 / LONG CALL TO S0616 D1071, 0000 / AND L0000 L1072, JMS I C0076 / LONG CALL TO S0443 AND C0157 / SNA CLA / HLT / JMS I C0076 / LONG CALL TO S0443 AND C0156 / SZA CLA / JMP I C0025 / LONG JUMP TO L0270 JMS I C0076 / LONG CALL TO S0443 AND C0165 / SZA CLA / ISZ S1050 / ISZ S1050 / JMP I S1050 / RETURN C1110, 1476 / TAD I C0076 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1111 / / CALLED FROM: / 2012 2040 2066 2402 2432 2602 2661 2721 3012 3034 3065 3232 3247 3263 3422 / 3466 3700 3743 4346 / TOTAL 0023 (19) CALLS //////////////////////////////////////////////////////////////////////////////// S1111, 0 / RETURN AREA CLA / TAD I S1111 / DCA D0122 / ISZ S1111 / JMP I S1111 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1117 / / CALLED FROM: / 1232 / TOTAL 0001 (1) CALLS //////////////////////////////////////////////////////////////////////////////// S1117, 0 / RETURN AREA CLA / TAD I S1117 / DCA D0123 / ISZ S1117 / JMP I S1117 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1125 / / CALLED FROM: / 0714 3501 3515 3551 4121 / TOTAL 0005 (5) CALLS //////////////////////////////////////////////////////////////////////////////// S1125, 0 / RETURN AREA JMS I C0076 / LONG CALL TO S0443 AND C0155 / D1130, 7640 / SZA CLA JMP I S1125 / RETURN JMS I C0076 / LONG CALL TO S0443 AND C0154 / SZA CLA / SKP / JMS I C0072 / LONG CALL TO S0513 TAD D0021 / SZA / JMS I C0102 / LONG CALL TO S0411 JMP I S1125 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1143 / / CALLED FROM: / 3475 3534 3573 3707 / TOTAL 0004 (4) CALLS //////////////////////////////////////////////////////////////////////////////// S1143, 0 / RETURN AREA JMS I C0071 / LONG CALL TO S0521 D1145, 0000 / AND L0000 JMP L1151 / ISZ S1143 / JMP I S1143 / RETURN L1151, DCA D0131 / JMS I C0052 / LONG CALL TO S1000 TAD C0145 / TAD I C1004 / JMS I C0052 / LONG CALL TO S1000 AND D0131 / TAD I C1011 / JMS I C0051 / LONG CALL TO S1050 C1161, 4040 / JMS C0040 TAD I C1001 / JMP I S1143 / RETURN JMP I S1143 / RETURN *1200 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1200 / / CALLED FROM: / 1313 1315 1317 3474 3525 3533 3564 3572 / TOTAL 0010 (8) CALLS //////////////////////////////////////////////////////////////////////////////// S1200, 0 / RETURN AREA RFC / CLEAR READER FLAG AND READER BUFFER, L1202, RSF / SKIP IF READER FLAG IS A 1. JMP L1202 / CLA / RFB / READ THE CONTENT OF THE READER BUFFE JMP I S1200 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1207 / / CALLED FROM: / 1241 3514 3550 4115 4120 / TOTAL 0005 (5) CALLS //////////////////////////////////////////////////////////////////////////////// S1207, 0 / RETURN AREA PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC L1211, PSF / SKIP IF PUNCH FLAG IS A 1 JMP L1211 / JMP I S1207 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1214 / / CALLED FROM: / 1231 3507 3540 / TOTAL 0003 (3) CALLS //////////////////////////////////////////////////////////////////////////////// S1214, 0 / RETURN AREA JMS I C0075 / LONG CALL TO S0400 TAD D1227 / SZL CLA OSR / L1220, CLA / PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC L1222, PSF / SKIP IF PUNCH FLAG IS A 1 JMP L1222 / ISZ D1227 / JMP L1220 / JMP I S1214 / RETURN D1227, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1230 / / CALLED FROM: / 3506 3537 / TOTAL 0002 (2) CALLS //////////////////////////////////////////////////////////////////////////////// S1230, 0 / RETURN AREA JMS S1214 / JMS I C0100 / LONG CALL TO S1117 C1233, 7767 / CLA MQA SCA MQL DVI + JMS I C0075 / LONG CALL TO S0400 TAD D1246 / TAD I D0121 / L1237, CLA / TAD I D1246 / JMS S1207 / ISZ D1246 / ISZ D0123 / JMP L1237 / JMP I S1230 / RETURN D1246, 0000 / AND L0000 TAD C1233 / SNL CLA HLT / D1251, 0000 / AND L0000 D1252, 0000 / AND L0000 D1253, 0000 / AND L0000 D1254, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1255 / / CALLED FROM: / 3547 / TOTAL 0001 (1) CALLS //////////////////////////////////////////////////////////////////////////////// S1255, 0 / RETURN AREA CLA CLL / AC = 0000 TAD D1251 / RTL / TAD D1252 / DCA D1251 / TAD D1251 / RTL / TAD D1252 / RTL / DCA D1252 / TAD D1251 / AND C0153 / JMP I S1255 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1273 / / CALLED FROM: / 3562 3570 / TOTAL 0002 (2) CALLS //////////////////////////////////////////////////////////////////////////////// S1273, 0 / RETURN AREA CLA CLL / AC = 0000 TAD D1253 / RTL / TAD D1254 / DCA D1253 / TAD D1253 / RTL / TAD D1254 / RTL / DCA D1254 / TAD D1253 / AND C0153 / JMP I S1273 / RETURN C1311, C1311, 0000 / AND L0000 L1312, JMS I C0066 / LONG CALL TO S1400 JMS I C0055 / LONG CALL TO S1200 DCA D0110 / JMS I C0055 / LONG CALL TO S1200 DCA D0111 / JMS I C0055 / LONG CALL TO S1200 DCA D0112 / JMS I C0065 / LONG CALL TO S1324 JMP L1312 / JMP I C1311 / LONG JUMP TO L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1324 / / CALLED FROM: / 1321 3741 / TOTAL 0002 (2) CALLS //////////////////////////////////////////////////////////////////////////////// S1324, 0 / RETURN AREA JMS I C0075 / LONG CALL TO S0400 TAD D1363 / NOP / L1330, JMS I C0075 / LONG CALL TO S0400 TAD D1364 / SMA SZA SNL CLA OSR HLT / L1333, JMS I C0067 / LONG CALL TO S1412 CMA / AND D0110 / SZA / JMP L1333 / JMS I C0067 / LONG CALL TO S1412 CMA / AND D0111 / SNA / JMP L1351 / ISZ D1363 / JMP L1330 / L1347, CLA HLT / JMP I S1324 / RETURN L1351, JMS I C0067 / LONG CALL TO S1412 CMA / AND D0112 / SZA / JMP L1360 / ISZ S1324 / JMP I S1324 / RETURN L1360, ISZ D1364 / JMP L1330 / JMP L1347 / D1363, 0000 / AND L0000 D1364, 0000 / AND L0000 *1400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1400 / / CALLED FROM: / 1312 3510 3517 3606 / TOTAL 0004 (4) CALLS //////////////////////////////////////////////////////////////////////////////// S1400, 0 / RETURN AREA CLA IAC / DCA D1460 / C1403, 4474 / JMS I C0074 TAD I C0060 / D1405, 1461 / TAD I C0061 C1406, 7775 / CLA MQA SCA MQL ASR + DCA D1464 / DCA D1465 / JMP I S1400 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1412 / / CALLED FROM: / 1333 1340 1351 3472 3513 3523 3531 3704 / TOTAL 0010 (8) CALLS //////////////////////////////////////////////////////////////////////////////// S1412, 0 / RETURN AREA CLA / TAD D1460 / DCA D1461 / TAD D1464 / CMA / L1420, DCA D1464 / TAD D1464 / D1422, 7650 / SNA CLA JMP L1427 / TAD D1461 / CMA / JMP L1431 / L1427, TAD D1461 / CIA / L1431, AND C0153 / DCA D1460 / TAD D1461 / JMP I S1412 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1435 / / CALLED FROM: / 3647 / TOTAL 0001 (1) CALLS //////////////////////////////////////////////////////////////////////////////// S1435, 0 / RETURN AREA CLA / TAD D1462 / DCA D1463 / TAD D1465 / CMA / DCA D1465 / TAD D1465 / SNA CLA / JMP L1452 / TAD D1463 / CMA / JMP L1454 / L1452, TAD D1463 / CIA / L1454, AND C0153 / DCA D1462 / TAD D1463 / JMP I S1435 / RETURN D1460, 0000 / AND L0000 D1461, 0000 / AND L0000 D1462, 0000 / AND L0000 D1463, 0000 / AND L0000 D1464, 0000 / AND L0000 D1465, 0000 / AND L0000 C1466, 0015 / AND AI5 C1467, 0012 / AND AI2 JMP L1420 / C1471, 4040 / JMS C0040 C1472, 4040 / JMS C0040 JMS D0022 / C1474, 4040 / JMS C0040 C1475, 4040 / JMS C0040 D1476, 4040 / JMS C0040 C1477, 4040 / JMS C0040 AND L0001 / C1501, 0015 / AND AI5 C1502, 0012 / AND AI2 C1503, 0007 / AND C0007 C1504, 4025 / JMS C0025 TAD I D1405 / DCA D0020 / AND I C0103 / C1510, 2405 / ISZ I D0005 C1511, 0440 / AND I C0040 TAD D0116 / ISZ I D0005 / ISZ D1422 / ISZ I D0120 / ISZ I C0056 / C1517, 0015 / AND AI5 AND L0001 / AND C0037 / C1522, 0040 / AND C0040 AND C0040 / C1524, 0037 / AND C0037 AND L0000 / AND C0077 / C1527, 0011 / AND AI1 C1530, 0011 / AND AI1 AND C0006 / C1532, 0015 / AND AI5 C1533, 0012 / AND AI2 JMS D0022 / AND I D0022 / JMS D0023 / ISZ D0005 / AND I D0104 / JMS L0000 / AND C0100 / C1543, 0015 / AND AI5 C1544, 0012 / AND AI2 JMS D0020 / AND C1510 / JMS D0023 / ISZ D0005 / AND I D0104 / JMS L0000 / AND C0100 / JMS D0003 / ISZ D0023 / C1556, 0015 / AND AI5 AND L0001 / C1560, 0015 / AND AI5 C1561, 0012 / AND AI2 JMS L0000 / AND I C1511 / TAD I C1403 / TAD I C1522 / ISZ D1405 / AND C1524 / JMS D0022 / C1571, 2416 / ISZ I AI6 JMS D0023 / AND I C0114 / AND I C0103 / ISZ I D0005 / AND I C0056 / C1577, 0015 / AND AI5 AND L0001 / JMS D0023 / C1602, 5702 / JMP I C1702 C1603, 4040 / JMS C0040 C1604, 4040 / JMS C0040 D1605, 4040 / JMS C0040 C1606, 4040 / JMS C0040 C1607, 2701 / ISZ I C1701 C1610, 2340 / ISZ C1740 C1611, 4040 / JMS C0040 C1612, 4040 / JMS C0040 C1613, 0015 / AND AI5 AND L0001 / C1615, 0015 / AND AI5 C1616, 0012 / AND AI2 IAC RAL / C1620, 4040 / JMS C0040 C1621, 2331 / ISZ C1731 C1622, 2324 / ISZ C1724 AND I D0115 / JMP I D1640 / LONG JUMP TO L2440 C1625, 2305 / ISZ C1705 ISZ I C0040 / C1627, 2411 / ISZ I AI1 TAD I D0105 / C1631, 4004 / JMS C0004 AND I C0114 / AND D0131 / JMS D0003 / C1635, 1716 / TAD I C1716 C1636, 2324 / ISZ C1724 AND D0116 / D1640, 2440 / ISZ I C0040 TAD D0116 / JMS D0023 / ISZ D1656 / C1644, 0015 / AND AI5 C1645, 0012 / AND AI2 ISZ D1605 / AND I D1605 / ISZ D1640 / C1651, 2417 / ISZ I AI7 JMS D0020 / AND D0107 / AND I D0123 / C1655, 4062 / JMS C0062 D1656, 4001 / JMS L0001 TAD I C1604 / C1660, 4063 / JMS D0063 C1661, 4017 / JMS AI7 AND I D1640 / ISZ D0022 / C1664, 0740 / AND I C1740 C1665, 1411 / TAD I AI1 C1666, 2324 / ISZ C1724 TAD D0116 / C1670, 0756 / AND I C1756 AND L0001 / *2000 D2000, 4475 / JMS I C0075 AND D0020 / C2002, 2010 / ISZ AI0 JMS I C0075 / LONG CALL TO S0400 AND D0105 / C2005, 7717 / CLA MQA LSR + JMP I C2007 / LONG JUMP TO L0241 C2007, C2007, 0241 / AND C2041 AND L0000 / ISZ D0036 / JMS I C0077 / LONG CALL TO S1111 SNA SZL / JMS I C0101 / LONG CALL TO S1042 OSR HLT / L2016, RFC / CLEAR READER FLAG AND READER BUFFER, JMS I C0102 / LONG CALL TO S0411 RSF / SKIP IF READER FLAG IS A 1. JMP L2025 / L2022, ISZ D0122 / JMP L2016 / JMP I C0025 / LONG JUMP TO L0270 L2025, JMS I C0051 / LONG CALL TO S1050 C2026, 4040 / JMS C0040 AND L0000 / JMP L2022 / JMS I C0101 / LONG CALL TO S1042 SMA SZA SNL CLA OSR / L2033, RFC / CLEAR READER FLAG AND READER BUFFER, JMS I C0102 / LONG CALL TO S0411 JMP L2033 / AND L0001 / ISZ D0064 / JMS I C0077 / LONG CALL TO S1111 C2041, 0001 / AND L0001 RFC / CLEAR READER FLAG AND READER BUFFER, L2043, RSF / SKIP IF READER FLAG IS A 1. JMP L2043 / L2045, RSF / SKIP IF READER FLAG IS A 1. JMP L2052 / L2047, ISZ D0122 / JMP L2045 / JMP I C0025 / LONG JUMP TO L0270 L2052, JMS I C0051 / LONG CALL TO S1050 C2053, 4040 / JMS C0040 AND L0000 / JMP L2047 / RFC / CLEAR READER FLAG AND READER BUFFER, L2057, RSF / SKIP IF READER FLAG IS A 1. JMP L2057 / L2061, RSF / SKIP IF READER FLAG IS A 1. JMP L2061 / JMP L2061 / AND C0002 / ISZ D0105 / JMS I C0077 / LONG CALL TO S1111 AND L0001 / RFB / READ THE CONTENT OF THE READER BUFFE L2071, RSF / SKIP IF READER FLAG IS A 1. JMP L2102 / JMS I C0051 / LONG CALL TO S1050 C2074, 4040 / JMS C0040 AND L0000 / JMP L2102 / L2077, RSF / SKIP IF READER FLAG IS A 1. JMP L2077 / JMP L2077 / L2102, ISZ D0122 / JMP L2071 / JMP I C0025 / LONG JUMP TO L0270 AND D0003 / ISZ D2000 / TAD C2177 / DCA D0022 / L2111, TAD C2176 / DCA D0136 / IOF / DISABLE INTERRUPTS CLA / DCA D0135 / L2116, ISZ D0135 / JMP L2116 / ISZ D0136 / JMP L2116 / D2122, 1375 / TAD C2175 DCA D0134 / C2124, 6007 / 6007 RFC / CLEAR READER FLAG AND READER BUFFER, JMS S2151 / RSF / SKIP IF READER FLAG IS A 1. JMP L2137 / C2131, 6010 / 6010 D2132, 6003 / 6003 JMP L2137 / ISZ D0022 / JMP L2111 / JMP I C0025 / LONG JUMP TO L0270 L2137, JMS I C0051 / LONG CALL TO S1050 C2140, 4040 / JMS C0040 AND L0000 / JMP L2111 / IOF / DISABLE INTERRUPTS L2144, RSF / SKIP IF READER FLAG IS A 1. JMP L2144 / L2146, RSF / SKIP IF READER FLAG IS A 1. JMP L2146 / JMP L2146 / //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2151 / / CALLED FROM: / 2126 / TOTAL 0001 (1) CALLS //////////////////////////////////////////////////////////////////////////////// S2151, 0 / RETURN AREA L2152, ISZ D0134 / JMP L2152 / JMP I S2151 / RETURN *2175 C2175, 2260 / ISZ C2060 C2176, 7773 / CLA MQA SCA MQL SHL + C2177, 4000 / JMS L0000 C2200, 0004 / AND C0004 ISZ I L0000 / L2202, IOF / DISABLE INTERRUPTS C2203, 6007 / 6007 C2204, 6010 / 6010 C2205, 6020 / 6020 ION / ENABLE INTERRUPTS RFC / CLEAR READER FLAG AND READER BUFFER, C2210, 6000 / 6000 JMP L2214 / C2212, 6003 / 6003 SKP / L2214, JMP L2220 / ISZ D0022 / JMP L2202 / L2217, JMP I C0025 / LONG JUMP TO L0270 L2220, JMS I C0051 / LONG CALL TO S1050 C2221, 4040 / JMS C0040 AND L0000 / JMP L2217 / L2224, C2224, 6010 / 6010 JMS I C0102 / LONG CALL TO S0411 C2226, 6020 / 6020 JMP L2224 / *2400 C2400, 0005 / AND D0005 ISZ I D0030 / JMS I C0077 / LONG CALL TO S1111 C2403, 7014 / RAR RAL L2404, RFC / CLEAR READER FLAG AND READER BUFFER, L2405, RSF / SKIP IF READER FLAG IS A 1. JMP L2405 / RFB / READ THE CONTENT OF THE READER BUFFE RSF / SKIP IF READER FLAG IS A 1. JMP L2425 / JMS I C0051 / LONG CALL TO S1050 C2413, 4040 / JMS C0040 AND L0000 / JMP L2425 / L2416, RFC / CLEAR READER FLAG AND READER BUFFER, L2417, RSF / SKIP IF READER FLAG IS A 1. JMP L2417 / L2421, RFB / READ THE CONTENT OF THE READER BUFFE RSF / SKIP IF READER FLAG IS A 1. JMP L2416 / JMP L2421 / L2425, ISZ D0122 / JMP L2404 / JMP I C0025 / LONG JUMP TO L0270 AND C0006 / ISZ I C2400 / JMS I C0077 / LONG CALL TO S1111 C2433, 7014 / RAR RAL RFC / CLEAR READER FLAG AND READER BUFFER, L2435, RSF / SKIP IF READER FLAG IS A 1. JMP L2435 / RFC / CLEAR READER FLAG AND READER BUFFER, RSF / SKIP IF READER FLAG IS A 1. JMP L2453 / JMS I C0051 / LONG CALL TO S1050 C2443, 4040 / JMS C0040 AND L0000 / JMP L2453 / JMS I C0102 / LONG CALL TO S0411 L2447, RFC / CLEAR READER FLAG AND READER BUFFER, L2450, RSF / SKIP IF READER FLAG IS A 1. JMP L2450 / JMP L2447 / L2453, ISZ D0122 / JMP L2435 / JMP I C0025 / LONG JUMP TO L0270 *2600 C2600, 0007 / AND C0007 C2601, 2637 / ISZ I C2637 JMS I C0077 / LONG CALL TO S1111 C2603, 7014 / RAR RAL L2604, C2604, 6014 / RFC L2605, RSF / SKIP IF READER FLAG IS A 1. JMP L2605 / CLA / RFB / READ THE CONTENT OF THE READER BUFFE C2611, 3236 / DCA D2636 TAD D2636 / SZA CLA / JMP L2620 / L2615, ISZ D0122 / JMP L2604 / JMP I C0025 / LONG JUMP TO L0270 L2620, JMS I C0052 / LONG CALL TO S1000 ISZ I C2635 / TAD I L2604 / JMS I C0052 / LONG CALL TO S1000 ISZ I D2636 / TAD I C2611 / JMS I C0051 / LONG CALL TO S1050 C2627, 4040 / JMS C0040 TAD I C2601 / JMP L2615 / L2632, CLA / RFB / READ THE CONTENT OF THE READER BUFFE JMP L2632 / C2635, 0000 / AND L0000 D2636, 0000 / AND L0000 C2637, 0010 / AND AI0 C2640, 2717 / ISZ I C2717 JMS I C0075 / LONG CALL TO S0400 AND C0002 / ISZ I C2654 / L2644, KCC / CLEAR AC AND CLEAR KEYBOARD FLAG. TCF / CLEAR TELEPRINTER FLAG. PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER. RFB / READ THE CONTENT OF THE READER BUFFE ION / ENABLE INTERRUPTS NOP / IOF / DISABLE INTERRUPTS JMP L2661 / C2654, 4451 / JMS I C0051 AND C0140 / AND L0000 / JMP L2644 / JMP L2644 / L2661, JMS I C0077 / LONG CALL TO S1111 AND L0001 / JMS I C0075 / LONG CALL TO S0400 AND C0002 / ISZ I L2713 / C2666, 6010 / 6010 RFC / CLEAR READER FLAG AND READER BUFFER, L2670, RSF / SKIP IF READER FLAG IS A 1. JMP L2670 / L2672, ION / ENABLE INTERRUPTS NOP / IOF / DISABLE INTERRUPTS JMS I C0051 / LONG CALL TO S1050 AND C2640 / AND L0000 / JMP L2713 / JMS I C0075 / LONG CALL TO S0400 AND C0002 / ISZ I C2712 / RFC / CLEAR READER FLAG AND READER BUFFER, L2705, RSF / SKIP IF READER FLAG IS A 1. JMP L2705 / L2707, ION / ENABLE INTERRUPTS NOP / JMP L2707 / C2712, 5307 / JMP L2707 L2713, C2713, 2122 / ISZ D0122 JMP L2672 / C2715, 6020 / 6020 JMP I C0025 / LONG JUMP TO L0270 C2717, 0011 / AND AI1 C2720, 7777 / CLA MQA SCA MQL LSR + JMS I C0077 / LONG CALL TO S1111 SNA SZL / L2723, JMS S2773 / JMS I C0101 / LONG CALL TO S1042 C2725, 7755 / CLA MQA SCA ASR + RFC / CLEAR READER FLAG AND READER BUFFER, L2727, RSF / SKIP IF READER FLAG IS A 1. JMP L2727 / JMS I C0102 / LONG CALL TO S0411 RFC / CLEAR READER FLAG AND READER BUFFER, JMS I C0102 / LONG CALL TO S0411 RSF / SKIP IF READER FLAG IS A 1. JMP L2743 / JMS I C0051 / LONG CALL TO S1050 AND C0140 / AND L0000 / JMP L2723 / JMP L2755 / L2743, JMS S2766 / RSF / SKIP IF READER FLAG IS A 1. JMP L2751 / L2746, ISZ D0122 / JMP L2723 / JMP I C0025 / LONG JUMP TO L0270 L2751, JMS I C0051 / LONG CALL TO S1050 AND C2640 / AND L0000 / JMP L2746 / L2755, JMS I C0101 / LONG CALL TO S1042 C2756, 7761 / CLA MQA SCA MQL L2757, RFC / CLEAR READER FLAG AND READER BUFFER, JMP L2757 / L2761, JMS I C0102 / LONG CALL TO S0411 RFC / CLEAR READER FLAG AND READER BUFFER, L2763, RSF / SKIP IF READER FLAG IS A 1. JMP L2763 / JMP L2761 / //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2766 / / CALLED FROM: / 2743 / TOTAL 0001 (1) CALLS //////////////////////////////////////////////////////////////////////////////// S2766, 0 / RETURN AREA JMS I C0101 / LONG CALL TO S1042 SNA OSR / JMS I C0102 / LONG CALL TO S0411 JMP I S2766 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2773 / / CALLED FROM: / 2723 / TOTAL 0001 (1) CALLS //////////////////////////////////////////////////////////////////////////////// S2773, 0 / RETURN AREA JMS I C0101 / LONG CALL TO S1042 OSR HLT / JMS I C0102 / LONG CALL TO S0411 JMP I S2773 / RETURN D3000, 4475 / JMS I C0075 AND D0020 / C3002, 3010 / DCA AI0 JMS I C0075 / LONG CALL TO S0400 AND D0105 / C3005, 7717 / CLA MQA LSR + JMP I C3007 / LONG JUMP TO L0241 C3007, C3007, 0241 / AND C3041 AND L0000 / DCA D0032 / JMS I C0077 / LONG CALL TO S1111 AND L0001 / L3014, PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER. PSF / SKIP IF PUNCH FLAG IS A 1 JMP L3027 / JMS I C0051 / LONG CALL TO S1050 C3020, 4040 / JMS C0040 AND L0000 / JMP L3027 / PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER. L3024, PSF / SKIP IF PUNCH FLAG IS A 1 JMP L3024 / JMP L3024 / L3027, ISZ D0122 / JMP L3014 / JMP I C0025 / LONG JUMP TO L0270 AND L0001 / DCA D0063 / JMS I C0077 / LONG CALL TO S1111 AND L0001 / JMS I C0101 / LONG CALL TO S1042 AND L0001 / CLA CLL / AC = 0000 C3041, 6022 / PCF PPC / LOAD THE PUNCH BUFFER FROM BITS 4 TH JMS I C0102 / LONG CALL TO S0411 L3044, PSF / SKIP IF PUNCH FLAG IS A 1 JMP L3051 / L3046, ISZ D0122 / JMP L3044 / JMP I C0025 / LONG JUMP TO L0270 L3051, JMS I C0051 / LONG CALL TO S1050 C3052, 4040 / JMS C0040 AND L0000 / JMP L3046 / CLA / PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER. PPC / LOAD THE PUNCH BUFFER FROM BITS 4 TH L3060, PSF / SKIP IF PUNCH FLAG IS A 1 JMP L3060 / JMP L3060 / AND C0002 / DCA D0115 / JMS I C0077 / LONG CALL TO S1111 C3066, 7014 / RAR RAL L3067, CLA / PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC L3071, PSF / SKIP IF PUNCH FLAG IS A 1 JMP L3071 / PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER. PSF / SKIP IF PUNCH FLAG IS A 1 JMP L3112 / JMS I C0051 / LONG CALL TO S1050 C3077, 4040 / JMS C0040 AND L0000 / JMP L3112 / L3102, CLA / PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC L3104, PSF / SKIP IF PUNCH FLAG IS A 1 JMP L3104 / L3106, PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER. PSF / SKIP IF PUNCH FLAG IS A 1 JMP L3102 / JMP L3106 / L3112, ISZ D0122 / JMP L3067 / JMP I C0025 / LONG JUMP TO L0270 AND D0003 / DCA D3000 / TAD C3177 / DCA D0022 / L3121, TAD C3176 / DCA D0136 / IOF / DISABLE INTERRUPTS CLA / DCA D0135 / L3126, ISZ D0135 / JMP L3126 / ISZ D0136 / JMP L3126 / TAD C3175 / DCA D0134 / C3134, 6007 / 6007 PPC / LOAD THE PUNCH BUFFER FROM BITS 4 TH JMS S3161 / PSF / SKIP IF PUNCH FLAG IS A 1 JMP L3147 / C3141, 6010 / 6010 C3142, 6003 / 6003 JMP L3147 / ISZ D0022 / JMP L3121 / JMP I C0025 / LONG JUMP TO L0270 L3147, JMS I C0051 / LONG CALL TO S1050 C3150, 4040 / JMS C0040 AND L0000 / JMP L3121 / IOF / DISABLE INTERRUPTS L3154, PSF / SKIP IF PUNCH FLAG IS A 1 JMP L3154 / L3156, RSF / SKIP IF READER FLAG IS A 1. JMP L3156 / JMP L3156 / //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3161 / / CALLED FROM: / 3136 / TOTAL 0001 (1) CALLS //////////////////////////////////////////////////////////////////////////////// S3161, 0 / RETURN AREA L3162, ISZ D0134 / JMP L3162 / TAD C3174 / DCA D0134 / L3166, ISZ D0134 / JMP L3166 / L3170, ISZ D0134 / JMP L3170 / JMP I S3161 / RETURN *3174 C3174, 0500 / AND I C0100 C3175, 0001 / AND L0001 C3176, 7773 / CLA MQA SCA MQL SHL + C3177, 4000 / JMS L0000 C3200, 0004 / AND C0004 DCA D3230 / L3202, IOF / DISABLE INTERRUPTS C3203, 6007 / 6007 C3204, 6010 / 6010 C3205, 6020 / 6020 ION / ENABLE INTERRUPTS PPC / LOAD THE PUNCH BUFFER FROM BITS 4 TH C3210, 6000 / 6000 JMP L3220 / C3212, 6003 / 6003 SKP / JMP L3220 / ISZ D0022 / JMP L3202 / L3217, JMP I C0025 / LONG JUMP TO L0270 L3220, JMS I C0051 / LONG CALL TO S1050 C3221, 4040 / JMS C0040 AND L0000 / JMP L3217 / L3224, C3224, 6010 / 6010 JMS I C0102 / LONG CALL TO S0411 C3226, 6020 / 6020 JMP L3224 / D3230, 0005 / AND D0005 DCA D3245 / JMS I C0077 / LONG CALL TO S1111 C3233, 7014 / RAR RAL L3234, STA / AC = 7777 (-0001) PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC C3236, 7200 / CLA PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC L3240, PSF / SKIP IF PUNCH FLAG IS A 1 JMP L3240 / ISZ D0122 / JMP L3234 / JMP I C0025 / LONG JUMP TO L0270 D3245, 0006 / AND C0006 DCA D3261 / JMS I C0077 / LONG CALL TO S1111 C3250, 7014 / RAR RAL L3251, CLA / TAD C0152 / PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC L3254, PSF / SKIP IF PUNCH FLAG IS A 1 JMP L3254 / ISZ D0122 / JMP L3251 / JMP I C0025 / LONG JUMP TO L0270 D3261, 0007 / AND C0007 DCA I L0000 / JMS I C0077 / LONG CALL TO S1111 C3264, 7014 / RAR RAL L3265, CLA / TAD C0151 / PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC L3270, PSF / SKIP IF PUNCH FLAG IS A 1 JMP L3270 / ISZ D0122 / JMP L3265 / JMP I C0025 / LONG JUMP TO L0270 *3400 C3400, 0010 / AND AI0 C3401, 7777 / CLA MQA SCA MQL LSR + JMS I C0075 / LONG CALL TO S0400 AND C0002 / C3404, 3415 / DCA I AI5 L3405, KCC / CLEAR AC AND CLEAR KEYBOARD FLAG. TCF / CLEAR TELEPRINTER FLAG. RFB / READ THE CONTENT OF THE READER BUFFE PCF / CLEAR PUNCH FLAG AND PUNCH BUFFER. ION / ENABLE INTERRUPTS NOP / IOF / DISABLE INTERRUPTS JMP L3422 / JMS I C0051 / LONG CALL TO S1050 AND C0140 / AND L0000 / JMP L3405 / JMP L3405 / L3422, JMS I C0077 / LONG CALL TO S1111 AND L0001 / JMS I C0075 / LONG CALL TO S0400 AND C0002 / DCA I C0056 / CLA / C3430, 6010 / 6010 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC L3432, PSF / SKIP IF PUNCH FLAG IS A 1 JMP L3432 / L3434, ION / ENABLE INTERRUPTS NOP / IOF / DISABLE INTERRUPTS JMS I C0051 / LONG CALL TO S1050 C3440, 0240 / AND C3440 AND L0000 / JMP L3456 / JMS I C0075 / LONG CALL TO S0400 AND C0002 / DCA I C0055 / CLA / C3447, 6026 / PLS L3450, PSF / SKIP IF PUNCH FLAG IS A 1 C3451, 5250 / JMP L3450 L3452, ION / ENABLE INTERRUPTS NOP / JMP L3452 / JMP L3452 / L3456, ISZ D0122 / JMP L3434 / C3460, 6020 / 6020 JMP I C0025 / LONG JUMP TO L0270 JMS I C0075 / LONG CALL TO S0400 AND D0105 / AND I C0060 / L3465, JMS I D0064 / LONG CALL TO S1311 JMS I C0077 / LONG CALL TO S1111 C3467, 7773 / CLA MQA SCA MQL SHL + L3470, JMS I D0063 / LONG CALL TO S0324 DCA D0123 / L3472, JMS I C0067 / LONG CALL TO S1412 DCA I C0062 / JMS I C0055 / LONG CALL TO S1200 JMS I C0061 / LONG CALL TO S1143 JMP L3503 / L3477, ISZ D0123 / JMP L3472 / JMS I C0163 / LONG CALL TO S1125 JMP L3470 / L3503, ISZ D0122 / JMP L3477 / JMP L3465 / JMS I C0060 / LONG CALL TO S1230 JMS I C0057 / LONG CALL TO S1214 JMS I C0066 / LONG CALL TO S1400 TAD C0150 / DCA D0105 / L3513, JMS I C0067 / LONG CALL TO S1412 JMS I C0056 / LONG CALL TO S1207 JMS I C0163 / LONG CALL TO S1125 JMP L3513 / JMS I C0066 / LONG CALL TO S1400 JMS I C0075 / LONG CALL TO S0400 AND D0105 / AND I L0000 / JMS I C0067 / LONG CALL TO S1412 DCA I C0062 / L3525, JMS I C0055 / LONG CALL TO S1200 SZA / JMP L3534 / JMP L3525 / L3531, JMS I C0067 / LONG CALL TO S1412 DCA I C0062 / JMS I C0055 / LONG CALL TO S1200 L3534, JMS I C0061 / LONG CALL TO S1143 NOP / JMP L3531 / JMS I C0060 / LONG CALL TO S1230 JMS I C0057 / LONG CALL TO S1214 JMS I C0074 / LONG CALL TO S0536 TAD C3447 / TAD C3451 / SPA SNA SZL CLA OSR / TAD C0150 / DCA D0105 / L3547, JMS I C0053 / LONG CALL TO S1255 JMS I C0056 / LONG CALL TO S1207 JMS I C0163 / LONG CALL TO S1125 JMP L3547 / JMS I C0074 / LONG CALL TO S0536 TAD C3447 / TAD C3451 / SPA SNA SZL CLA OSR / JMS I C0075 / LONG CALL TO S0400 AND D0105 / AND I L0000 / JMS I C0054 / LONG CALL TO S1273 DCA I C0062 / L3564, JMS I C0055 / LONG CALL TO S1200 SZA / JMP L3573 / JMP L3564 / L3570, JMS I C0054 / LONG CALL TO S1273 DCA I C0062 / JMS I C0055 / LONG CALL TO S1200 L3573, JMS I C0061 / LONG CALL TO S1143 NOP / JMP L3570 / *3600 D3600, 4475 / JMS I C0075 AND D0105 / AND I C0060 / JMS I C0075 / LONG CALL TO S0400 AND D0104 / AND C0077 / JMS I C0066 / LONG CALL TO S1400 ISZ D0133 / JMS I C0075 / LONG CALL TO S0400 AND C0002 / AND I C3703 / JMS I C0075 / LONG CALL TO S0400 AND I C3716 / DCA I C3624 / JMS I C0075 / LONG CALL TO S0400 AND I C3711 / DCA I C3671 / JMS S3646 / ION / ENABLE INTERRUPTS L3623, JMP L3623 / C3624, 2132 / ISZ D0132 TAD D0132 / TAD C0147 / SPA CLA / JMP L3633 / L3631, HLT / JMP L3631 / L3633, JMS S3646 / TAD D0127 / SZA CLA / JMP I C0103 / LONG JUMP TO L0733 TAD D0132 / TAD C0146 / SPA CLA / JMP I C0103 / LONG JUMP TO L0733 RFC / CLEAR READER FLAG AND READER BUFFER, ISZ D0127 / JMP I C0103 / LONG JUMP TO L0733 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3646 / / CALLED FROM: / 3621 3633 / TOTAL 0002 (2) CALLS //////////////////////////////////////////////////////////////////////////////// S3646, 0 / RETURN AREA JMS I C0070 / LONG CALL TO S1435 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC CLA / JMP I S3646 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3653 / / NEVER CALLED //////////////////////////////////////////////////////////////////////////////// S3653, 0 / RETURN AREA CLA / RFB / READ THE CONTENT OF THE READER BUFFE DCA D0131 / TAD D0132 / TAD C0145 / DCA D0132 / TAD D0132 / SZA CLA / JMP L3667 / DCA D0127 / JMP I S3653 / RETURN L3667, RFC / CLEAR READER FLAG AND READER BUFFER, JMP I S3653 / RETURN C3671, 4253 / JMS S3653 TAD D0131 / SNA CLA / JMP I C0103 / LONG JUMP TO L0733 JMS I C0075 / LONG CALL TO S0400 AND I C3711 / DCA I C3703 / JMS I C0077 / LONG CALL TO S1111 C3701, 7773 / CLA MQA SCA MQL SHL + SKP / C3703, 4253 / JMS S3653 JMS I C0067 / LONG CALL TO S1412 DCA I C0062 / TAD D0131 / JMS I C0061 / LONG CALL TO S1143 SKP / C3711, 5503 / JMP I C0103 ISZ D0122 / JMP I C0103 / LONG JUMP TO L0733 L3714, JMS I C0075 / LONG CALL TO S0400 AND I C3711 / C3716, 3720 / DCA I C3720 JMP I C0103 / LONG JUMP TO L0733 C3720, 4253 / JMS S3653 TAD D0131 / DCA D0110 / JMS I C0075 / LONG CALL TO S0400 AND I C3711 / DCA I C3727 / JMP I C0103 / LONG JUMP TO L0733 C3727, 4253 / JMS S3653 TAD D0131 / DCA D0111 / JMS I C0075 / LONG CALL TO S0400 AND I C3711 / DCA I C3736 / JMP I C0103 / LONG JUMP TO L0733 C3736, 4253 / JMS S3653 TAD D0131 / DCA D0112 / JMS I C0065 / LONG CALL TO S1324 JMP L3714 / JMS I C0077 / LONG CALL TO S1111 C3744, 7773 / CLA MQA SCA MQL SHL + JMS I C0075 / LONG CALL TO S0400 AND I C3711 / DCA I C3703 / JMP I C0103 / LONG JUMP TO L0733 *4000 JMS I C0075 / LONG CALL TO S0400 C4001, 0002 / AND C0002 AND I C4103 / JMS I C0075 / LONG CALL TO S0400 C4004, 0716 / AND I C4116 C4005, 0741 / AND I C4141 JMS I C0075 / LONG CALL TO S0400 AND I C4111 / C4010, 4070 / JMS C0070 C4011, 4475 / JMS I C0075 TAD C0075 / NOP / TAD C0144 / DCA I C0172 / DCA D0105 / L4017, JMS S4053 / SZA / SKP / L4022, JMS S4053 / CIA / TAD C0153 / SZA CLA / JMP L4033 / JMS S4053 / SZA CLA / JMP L4042 / JMP L4022 / L4033, JMS I C0052 / LONG CALL TO S1000 C4034, 4052 / JMS C0052 TAD I C4004 / L4036, JMS I C0052 / LONG CALL TO S1000 C4037, 4074 / JMS C0074 C4040, 1611 / TAD I C4011 JMP L4046 / L4042, JMS I C0052 / LONG CALL TO S1000 C4043, 4075 / JMS C0075 TAD I C4004 / JMP L4036 / L4046, JMS I C0051 / LONG CALL TO S1050 C4047, 4040 / JMS C0040 TAD I C4001 / JMP L4017 / C4052, 0377 / AND C4177 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4053 / / CALLED FROM: / 4017 4022 4027 / TOTAL 0003 (3) CALLS //////////////////////////////////////////////////////////////////////////////// S4053, 0 / RETURN AREA JMS I C0101 / LONG CALL TO S1042 C4055, 7665 / CLA SCA MQL MUY + RFC / CLEAR READER FLAG AND READER BUFFER, ION / ENABLE INTERRUPTS JMS I C0102 / LONG CALL TO S0411 IOF / DISABLE INTERRUPTS RSF / SKIP IF READER FLAG IS A 1. SKP / JMP L4070 / JMS I C0047 / LONG CALL TO S0616 C4066, 4076 / JMS C0076 JMP L4017 / L4070, RFB / READ THE CONTENT OF THE READER BUFFE DCA D4074 / TAD D4074 / JMP I S4053 / RETURN D4074, 0000 / AND L0000 AND L0000 / C4076, 0007 / AND C0007 C4077, 0007 / AND C0007 C4100, 0007 / AND C0007 L4101, AND L0001 / LAS / C4103, 0153 / AND C0153 PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC L4105, PSF / SKIP IF PUNCH FLAG IS A 1 JMP L4105 / JMP L4101 / JMS I C0075 / LONG CALL TO S0400 C4111, 0105 / AND D0105 AND C0075 / L4113, STA / AC = 7777 (-0001) AND C0153 / JMS I C0056 / LONG CALL TO S1207 C4116, 4563 / JMS I C0163 CLA / JMS I C0056 / LONG CALL TO S1207 JMS I C0163 / LONG CALL TO S1125 JMP L4113 / *4200 L4200, CLA / DCA D0123 / LAS / CLL RAL / SPA CLA / TAD C0143 / TAD C0142 / DCA D4232 / JMP L4220 / L4211, RFC / CLEAR READER FLAG AND READER BUFFER, L4212, RSF / SKIP IF READER FLAG IS A 1. JMP L4212 / ISZ D0122 / JMP L4222 / ISZ D0123 / NOP / L4220, TAD D4232 / DCA D0122 / L4222, LAS / SMA CLA / JMP L4211 / JMS I C0047 / LONG CALL TO S0616 TAD I D0132 / JMS S4257 / HLT / JMP L4200 / D4232, 0000 / AND L0000 L4233, CLA / DCA D0123 / JMP L4245 / L4236, PLS / CLEAR THE PUNCH FLAG, CLEAR THE BUNC L4237, PSF / SKIP IF PUNCH FLAG IS A 1 JMP L4237 / ISZ D0122 / JMP L4247 / ISZ D0123 / NOP / L4245, TAD C0141 / DCA D0122 / L4247, LAS / SMA CLA / JMP L4236 / JMS I C0047 / LONG CALL TO S0616 D4253, 1543 / TAD I C0143 JMS S4257 / HLT / JMP L4233 / //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4257 / / CALLED FROM: / 4227 4254 / TOTAL 0002 (2) CALLS //////////////////////////////////////////////////////////////////////////////// S4257, 0 / RETURN AREA JMS S4265 / AND D0123 / JMS I C0047 / LONG CALL TO S0616 TAD I C0154 / JMP I S4257 / RETURN //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4265 / / CALLED FROM: / 4260 / TOTAL 0001 (1) CALLS //////////////////////////////////////////////////////////////////////////////// S4265, 0 / RETURN AREA JMS I C0075 / LONG CALL TO S0400 JMS D4331 / SPA SNA SZL CLA OSR / TAD C4322 / DCA D4303 / TAD I S4265 / ISZ S4265 / DCA D4330 / TAD I D4330 / DCA D4327 / L4300, DCA D4330 / L4301, CLL / TAD D4327 / D4303, 1323 / TAD C4323 SNL / JMP L4311 / ISZ D4330 / DCA D4327 / JMP L4301 / L4311, CLA / TAD D4330 / TAD C0140 / JMS I C0073 / LONG CALL TO S0426 CLA CLL / AC = 0000 ISZ D4303 / ISZ D4331 / JMP L4300 / JMP I S4265 / RETURN C4322, 1323 / TAD C4323 C4323, 6030 / 6030 SZL CLA OSR / SMA SZA SNL CLA OSR HLT / C4326, 7777 / CLA MQA SCA MQL LSR + D4327, 0000 / AND L0000 D4330, 0000 / AND L0000 D4331, 0000 / AND L0000 CLA HLT / L4333, LAS / AND C0174 / CIA / DCA D0021 / LAS / AND C0137 / CLL RTL / RTL / RTL / CIA / DCA D4347 / JMS I C0077 / LONG CALL TO S1111 D4347, 0000 / AND L0000 L4350, RFC / CLEAR READER FLAG AND READER BUFFER, L4351, RSF / SKIP IF READER FLAG IS A 1. JMP L4351 / ISZ D0122 / JMP L4350 / JMS I C0102 / LONG CALL TO S0411 JMP L4333 / $