X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fmaindec%2Fpc8e%2FMD.PA;fp=sw%2Fmaindec%2Fpc8e%2FMD.PA;h=ad38970b5a707e053ff329635c45582d1e2904a2;hb=07ec0278333ed187ac242dedcff13c56cf1b0b91;hp=0000000000000000000000000000000000000000;hpb=7af5ad59491ddf2066641aef1e0025a337c0f247;p=pdp8.git diff --git a/sw/maindec/pc8e/MD.PA b/sw/maindec/pc8e/MD.PA new file mode 100644 index 0000000..ad38970 --- /dev/null +++ b/sw/maindec/pc8e/MD.PA @@ -0,0 +1,2453 @@ +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 / + +$