--- /dev/null
+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 /
+
+$