--- /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 / @@0033=3462
+ DCA I C0106 / @@0034=3506
+ DCA I D0117 / @@0035=3517
+D0036, 3537 / DCA I C0137
+C0037, 3553 / DCA I C0153
+C0040, 3600 / DCA I L0000
+ JMS L0000 / @@0041=4000
+C0042, 4102 / JMS C0102
+C0043, 4110 / JMS D0110
+ JMS L0000 / @@0044=4200
+C0045, 4233 / JMS C0033
+ JMS D0132 / @@0046=4332
+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 / @@0200=7410
+L0201,
+ CLA HLT / @@0201=7602
+ LAS / @@0202=7604
+ AND C0177 / @@0203=0177
+ TAD C0176 / @@0204=1176
+ SMA SZA / @@0205=7540
+ JMP L0201 / @@0206=5201
+ LAS / @@0207=7604
+ AND C0177 / @@0210=0177
+ DCA D0030 / @@0211=3030
+ TAD D0030 / @@0212=1030
+ TAD C0175 / @@0213=1175
+ DCA D0113 / @@0214=3113
+ TAD I D0113 / @@0215=1513
+ DCA D0240 / @@0216=3240
+ JMS I C0074 / long call to S0536 @@0217=4474
+ AND D0005 / @@0220=0005
+ AND L0001 / @@0221=0001
+ SPA SNA SZL CLA OSR HLT / @@0222=7776
+ DCA D0113 / @@0223=3113
+ JMS I C0074 / long call to S0536 @@0224=4474
+ AND D0113 / @@0225=0113
+ AND C0114 / @@0226=0114
+ SMA SZA SNL CLA / @@0227=7760
+ JMS I C0075 / long call to S0400 @@0230=4475
+ TAD C0075 / @@0231=1075
+ HLT / @@0232=7402
+ TAD C0174 / @@0233=1174
+ DCA D0104 / @@0234=3104
+ TAD C0173 / @@0235=1173
+ DCA I C0172 / @@0236=3572
+ JMP I D0240 / long jump to L0000 @@0237=5640
+D0240, 0000 / AND L0000
+L0241,
+ CLA HLT / @@0241=7602
+L0242,
+ CLA / @@0242=7200
+ TAD D0020 / @@0243=1020
+ DCA D0117 / @@0244=3117
+L0245,
+ JMS S0307 / @@0245=4307
+ JMS I C0076 / long call to S0443 @@0246=4476
+ RTL / @@0247=7006
+ SNL / @@0250=7420
+ JMP I D0115 / long jump to L0000 @@0251=5515
+ JMS I C0076 / long call to S0443 @@0252=4476
+ AND C0177 / @@0253=0177
+ CIA / @@0254=7041
+ TAD D0116 / @@0255=1116
+ SNA CLA / @@0256=7650
+ JMP I D0115 / long jump to L0000 @@0257=5515
+ TAD D0117 / @@0260=1117
+ IAC / @@0261=7001
+ SZA CLA / @@0262=7640
+ JMP L0245 / @@0263=5245
+ JMS I C0047 / long call to S0616 @@0264=4447
+ TAD I C0160 / @@0265=1560
+ CLA HLT / @@0266=7602
+ JMP L0242 / @@0267=5242
+L0270,
+ JMS I C0026 / long call to S0333 @@0270=4426
+ JMS I C0076 / long call to S0443 @@0271=4476
+ RTL / @@0272=7006
+ SZL CLA / @@0273=7630
+ JMP L0242 / @@0274=5242
+ TAD D0117 / @@0275=1117
+ IAC / @@0276=7001
+ SZA CLA / @@0277=7640
+ JMP L0245 / @@0300=5245
+ JMS I C0076 / long call to S0443 @@0301=4476
+ RTL / @@0302=7006
+ SPA CLA / @@0303=7710
+ JMP L0242 / @@0304=5242
+ HLT / @@0305=7402
+ JMP L0270 / @@0306=5270
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S0307
+/
+/ Called from:
+/ 0245
+/ Total 0001 (1) calls
+////////////////////////////////////////////////////////////////////////////////
+S0307,
+ 0 / return area
+ CLA CLL / AC = 0000 @@0310=7300
+ TAD I D0117 / @@0311=1517
+ DCA D0116 / @@0312=3116
+ ISZ D0117 / @@0313=2117
+ TAD D0117 / @@0314=1117
+ DCA D0113 / @@0315=3113
+ ISZ D0117 / @@0316=2117
+ TAD D0117 / @@0317=1117
+ DCA D0115 / @@0320=3115
+ TAD I D0113 / @@0321=1513
+ DCA D0117 / @@0322=3117
+ JMP I S0307 / return @@0323=5707
+C0324,
+C0324, 0000 / AND L0000
+L0325,
+ JMS I C0027 / long call to S0447 @@0325=4427
+ AND C0177 / @@0326=0177
+ SNA / @@0327=7450
+ JMP L0325 / @@0330=5325
+ CIA / @@0331=7041
+ JMP I C0324 / long jump to L0000 @@0332=5724
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S0333
+/
+/ Called from:
+/ 0270
+/ Total 0001 (1) calls
+////////////////////////////////////////////////////////////////////////////////
+S0333,
+ 0 / return area
+ JMS I C0076 / long call to S0443 @@0334=4476
+ SMA CLA / @@0335=7700
+ JMP I S0333 / return @@0336=5733
+ TAD D0116 / @@0337=1116
+ HLT / @@0340=7402
+ JMP I S0333 / return @@0341=5733
+
+*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 / @@0401=7200
+ TAD I S0400 / @@0402=1600
+ DCA D0113 / @@0403=3113
+ ISZ S0400 / @@0404=2200
+ TAD I S0400 / @@0405=1600
+ DCA I D0113 / @@0406=3513
+ ISZ S0400 / @@0407=2200
+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 @@0412=7300
+ TAD D0021 / @@0413=1021
+ DCA D0120 / @@0414=3120
+ JMP I C0416 / long jump to L0417 @@0415=5616
+C0416,
+C0416, 0417 / AND I AI7
+L0417,
+ TAD C0106 / @@0417=1106
+ DCA D0121 / @@0420=3121
+L0421,
+ ISZ D0121 / @@0421=2121
+ JMP L0421 / @@0422=5221
+ ISZ D0120 / @@0423=2120
+ JMP L0417 / @@0424=5217
+ JMP I S0411 / return @@0425=5611
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S0426
+/
+/ Called from:
+/ 0676 4314
+/ Total 0002 (2) calls
+////////////////////////////////////////////////////////////////////////////////
+S0426,
+ 0 / return area
+ ISZ D0126 / @@0427=2126
+ TLS / Load the TTO from the content of AC4 @@0430=6046
+ CLA / @@0431=7200
+L0432,
+ TAD D0126 / @@0432=1126
+ SZA CLA / @@0433=7640
+ SKP / @@0434=7410
+ JMP L0440 / @@0435=5240
+ TSF / Skip if teleprinter flag is a 1. @@0436=6041
+ JMP L0432 / @@0437=5232
+L0440,
+C0440, 6042 / TCF
+ DCA D0126 / @@0441=3126
+ JMP I S0426 / return @@0442=5626
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S0443
+/
+/ Called from:
+/ 0246 0252 0271 0301 0334 1072 1076 1102 1126 1132
+/ Total 0012 (10) calls
+////////////////////////////////////////////////////////////////////////////////
+S0443,
+ 0 / return area
+ LAS / @@0444=7604
+ AND D0105 / @@0445=0105
+ JMP I S0443 / return @@0446=5643
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S0447
+/
+/ Called from:
+/ 0325 0514
+/ Total 0002 (2) calls
+////////////////////////////////////////////////////////////////////////////////
+S0447,
+ 0 / return area
+ CLA / @@0450=7200
+ TAD C0511 / @@0451=1311
+ TAD D0476 / @@0452=1276
+ SZA CLA / @@0453=7640
+ JMP L0464 / @@0454=5264
+ TAD C0500 / @@0455=1300
+ DCA D0476 / @@0456=3276
+ TAD D0477 / @@0457=1277
+ CLL RAL / @@0460=7104
+ SZL / @@0461=7430
+ IAC / @@0462=7001
+ DCA D0477 / @@0463=3277
+L0464,
+ TAD D0477 / @@0464=1277
+ TAD I D0476 / @@0465=1676
+ DCA I D0476 / @@0466=3676
+ TAD D0512 / @@0467=1312
+ RAR / @@0470=7010
+ TAD I D0476 / @@0471=1676
+ ISZ D0476 / @@0472=2276
+ DCA D0512 / @@0473=3312
+ TAD D0512 / @@0474=1312
+ JMP I S0447 / return @@0475=5647
+D0476, 0511 / AND I D0111
+D0477, 6543 / 6543
+C0500, 0501 / AND I C0101
+C0501, 6543 / 6543
+ DCA D0410 / @@0502=3210
+C0503, 0765 / AND I C0565
+ JMP I D0032 / long jump to L3000 @@0504=5432
+ ISZ D0107 / @@0505=2107
+ SNA CLA OSR / @@0506=7654
+ JMS S0521 / @@0507=4321
+ TAD C0076 / @@0510=1076
+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 @@0514=4427
+ AND C0174 / @@0515=0174
+ CIA / @@0516=7041
+ DCA D0021 / @@0517=3021
+ JMP I S0513 / return @@0520=5713
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S0521
+/
+/ Called from:
+/ 0507 1144
+/ Total 0002 (2) calls
+////////////////////////////////////////////////////////////////////////////////
+S0521,
+ 0 / return area
+ DCA D0535 / @@0522=3335
+ TAD I S0521 / @@0523=1721
+ CIA / @@0524=7041
+ TAD D0535 / @@0525=1335
+ ISZ S0521 / @@0526=2321
+ SZA CLA / @@0527=7640
+ JMP L0533 / @@0530=5333
+ ISZ S0521 / @@0531=2321
+ JMP I S0521 / return @@0532=5721
+L0533,
+ TAD D0535 / @@0533=1335
+ JMP I S0521 / return @@0534=5721
+D0535, 0000 / AND L0000
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S0536
+/
+/ Called from:
+/ 0217 0224 3541 3553
+/ Total 0004 (4) calls
+////////////////////////////////////////////////////////////////////////////////
+S0536,
+ 0 / return area
+ CLA / @@0537=7200
+ TAD I S0536 / @@0540=1736
+ DCA D0561 / @@0541=3361
+ ISZ S0536 / @@0542=2336
+ TAD I S0536 / @@0543=1736
+ DCA D0562 / @@0544=3362
+ ISZ S0536 / @@0545=2336
+ TAD I S0536 / @@0546=1736
+ DCA D0563 / @@0547=3363
+ ISZ S0536 / @@0550=2336
+L0551,
+ CLA / @@0551=7200
+ TAD I D0561 / @@0552=1761
+ DCA I D0562 / @@0553=3762
+ ISZ D0561 / @@0554=2361
+ ISZ D0562 / @@0555=2362
+ ISZ D0563 / @@0556=2363
+ JMP L0551 / @@0557=5351
+ JMP I S0536 / return @@0560=5736
+D0561, 0000 / AND L0000
+D0562, 0000 / AND L0000
+D0563, 0000 / AND L0000
+
+*0600
+D0600, 0000 / AND L0000
+ CLA / @@0601=7200
+ TAD I D0600 / @@0602=1600
+ DCA D0615 / @@0603=3215
+ ISZ D0600 / @@0604=2200
+L0605,
+ JMS I C0047 / long call to S0616 @@0605=4447
+ AND I C0612 / @@0606=0612
+ ISZ D0615 / @@0607=2215
+ JMP L0605 / @@0610=5205
+ JMP I D0600 / long jump to L0000 @@0611=5600
+C0612, 0015 / AND AI5
+C0613, 0012 / AND AI2
+ AND L0001 / @@0614=0001
+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 / @@0617=7200
+ TAD I S0616 / @@0620=1616
+ DCA D0700 / @@0621=3300
+ DCA D0702 / @@0622=3302
+ ISZ S0616 / @@0623=2216
+L0624,
+ TAD I D0700 / @@0624=1700
+ RTR / @@0625=7012
+ RTR / @@0626=7012
+ RTR / @@0627=7012
+ JMS S0635 / @@0630=4235
+ TAD I D0700 / @@0631=1700
+ JMS S0635 / @@0632=4235
+ ISZ D0700 / @@0633=2300
+ JMP L0624 / @@0634=5224
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S0635
+/
+/ Called from:
+/ 0630 0632
+/ Total 0002 (2) calls
+////////////////////////////////////////////////////////////////////////////////
+S0635,
+ 0 / return area
+ AND C0171 / @@0636=0171
+C0637, 3301 / DCA D0701
+ TAD D0702 / @@0640=1302
+ SZA CLA / @@0641=7640
+ JMP L0652 / @@0642=5252
+ TAD D0701 / @@0643=1301
+ SNA / @@0644=7450
+ JMP L0650 / @@0645=5250
+L0646,
+ JMS S0671 / @@0646=4271
+ JMP I S0635 / return @@0647=5635
+L0650,
+ ISZ D0702 / @@0650=2302
+ JMP I S0635 / return @@0651=5635
+L0652,
+ DCA D0702 / @@0652=3302
+ TAD D0701 / @@0653=1301
+ CIA / @@0654=7041
+ SNA / @@0655=7450
+ JMP L0646 / @@0656=5246
+ IAC / @@0657=7001
+ SNA CLA / @@0660=7650
+ JMP I S0616 / return @@0661=5616
+ TAD C0170 / @@0662=1170
+ DCA D0673 / @@0663=3273
+ TAD D0701 / @@0664=1301
+ JMS S0671 / @@0665=4271
+ TAD C0167 / @@0666=1167
+ DCA D0673 / @@0667=3273
+ JMP I S0635 / return @@0670=5635
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S0671
+/
+/ Called from:
+/ 0646 0665
+/ Total 0002 (2) calls
+////////////////////////////////////////////////////////////////////////////////
+S0671,
+ 0 / return area
+ TAD C0166 / @@0672=1166
+D0673, 7510 / SPA
+ TAD C0165 / @@0674=1165
+ TAD C0164 / @@0675=1164
+ JMS I C0073 / long call to S0426 @@0676=4473
+ JMP I S0671 / return @@0677=5671
+D0700, 0000 / AND L0000
+D0701, 0000 / AND L0000
+D0702, 0000 / AND L0000
+ DCA D0023 / @@0703=3023
+ RAR / @@0704=7010
+ DCA D0024 / @@0705=3024
+ RSF / Skip if reader flag is a 1. @@0706=6011
+ JMP L0712 / @@0707=5312
+ JMP I C0711 / long jump to L0000 @@0710=5711
+C0711,
+C0711, 0000 / AND L0000
+L0712,
+ PSF / Skip if punch flag is a 1 @@0712=6021
+ JMP L0717 / @@0713=5317
+ JMS I C0163 / long call to S1125 @@0714=4563
+ JMP I C0716 / long jump to L0000 @@0715=5716
+C0716,
+C0716, 0000 / AND L0000
+L0717,
+ KSF / Skip if keyboard flag is a 1. @@0717=6031
+ JMP L0723 / @@0720=5323
+ KCC / Clear AC and clear keyboard flag. @@0721=6032
+ JMP I C0103 / long jump to L0733 @@0722=5503
+L0723,
+ TSF / Skip if teleprinter flag is a 1. @@0723=6041
+ JMP L0730 / @@0724=5330
+ TCF / Clear teleprinter flag. @@0725=6042
+ DCA D0126 / @@0726=3126
+ JMP I C0103 / long jump to L0733 @@0727=5503
+L0730,
+ JMS I C0047 / long call to S0616 @@0730=4447
+ TAD I C0101 / @@0731=1501
+ CLA HLT / @@0732=7602
+L0733,
+C0733, 7300 / CLA CLL
+ TAD D0024 / @@0734=1024
+ RAL / @@0735=7004
+ TAD D0023 / @@0736=1023
+ ION / Enable Interrupts @@0737=6001
+ JMP I L0000 / long jump to L0000 @@0740=5400
+ PCF / Clear punch flag and punch buffer. @@0741=6022
+ JMP I C0103 / long jump to L0733 @@0742=5503
+ RFB / Read the content of the reader buffe @@0743=6012
+ JMP I C0103 / long jump to L0733 @@0744=5503
+
+*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 / @@1002=1600
+ DCA D1037 / @@1003=3237
+C1004, 2200 / ISZ S1000
+ TAD I S1000 / @@1005=1600
+ DCA D1040 / @@1006=3240
+ ISZ S1000 / @@1007=2200
+ TAD C0162 / @@1010=1162
+C1011, 0637 / AND I D1037
+ CLL RTR / @@1012=7112
+ RTR / @@1013=7012
+ RTR / @@1014=7012
+ JMS S1024 / @@1015=4224
+ ISZ D1040 / @@1016=2240
+ TAD C0162 / @@1017=1162
+ CMA / @@1020=7040
+ AND I D1037 / @@1021=0637
+ JMS S1024 / @@1022=4224
+ JMP I S1000 / return @@1023=5600
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S1024
+/
+/ Called from:
+/ 1015 1022
+/ Total 0002 (2) calls
+////////////////////////////////////////////////////////////////////////////////
+S1024,
+ 0 / return area
+ DCA D1041 / @@1025=3241
+ TAD D1041 / @@1026=1241
+ RTL / @@1027=7006
+ RAL / @@1030=7004
+ AND C0161 / @@1031=0161
+ TAD D1041 / @@1032=1241
+ AND C0161 / @@1033=0161
+ TAD C0160 / @@1034=1160
+ DCA I D1040 / @@1035=3640
+ JMP I S1024 / return @@1036=5624
+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 / @@1043=7200
+ TAD I S1042 / @@1044=1642
+ DCA D0021 / @@1045=3021
+ ISZ S1042 / @@1046=2242
+ JMP I S1042 / return @@1047=5642
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ 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 @@1051=4452
+ AND D0030 / @@1052=0030
+ TAD I C0071 / @@1053=1471
+ JMS I C0052 / long call to S1000 @@1054=4452
+ AND D0116 / @@1055=0116
+ TAD I C0074 / @@1056=1474
+ TAD I S1050 / @@1057=1650
+ DCA I C1110 / @@1060=3710
+ JMS I C0047 / long call to S0616 @@1061=4447
+ TAD I C0066 / @@1062=1466
+ ISZ S1050 / @@1063=2250
+ TAD I S1050 / @@1064=1650
+ SNA / @@1065=7450
+ JMP L1072 / @@1066=5272
+ DCA D1071 / @@1067=3271
+ JMS I C0047 / long call to S0616 @@1070=4447
+D1071, 0000 / AND L0000
+L1072,
+ JMS I C0076 / long call to S0443 @@1072=4476
+ AND C0157 / @@1073=0157
+ SNA CLA / @@1074=7650
+ HLT / @@1075=7402
+ JMS I C0076 / long call to S0443 @@1076=4476
+ AND C0156 / @@1077=0156
+ SZA CLA / @@1100=7640
+ JMP I C0025 / long jump to L0270 @@1101=5425
+ JMS I C0076 / long call to S0443 @@1102=4476
+ AND C0165 / @@1103=0165
+ SZA CLA / @@1104=7640
+ ISZ S1050 / @@1105=2250
+ ISZ S1050 / @@1106=2250
+ JMP I S1050 / return @@1107=5650
+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 / @@1112=7200
+ TAD I S1111 / @@1113=1711
+ DCA D0122 / @@1114=3122
+ ISZ S1111 / @@1115=2311
+ JMP I S1111 / return @@1116=5711
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S1117
+/
+/ Called from:
+/ 1232
+/ Total 0001 (1) calls
+////////////////////////////////////////////////////////////////////////////////
+S1117,
+ 0 / return area
+ CLA / @@1120=7200
+ TAD I S1117 / @@1121=1717
+ DCA D0123 / @@1122=3123
+ ISZ S1117 / @@1123=2317
+ JMP I S1117 / return @@1124=5717
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S1125
+/
+/ Called from:
+/ 0714 3501 3515 3551 4121
+/ Total 0005 (5) calls
+////////////////////////////////////////////////////////////////////////////////
+S1125,
+ 0 / return area
+ JMS I C0076 / long call to S0443 @@1126=4476
+ AND C0155 / @@1127=0155
+D1130, 7640 / SZA CLA
+ JMP I S1125 / return @@1131=5725
+ JMS I C0076 / long call to S0443 @@1132=4476
+ AND C0154 / @@1133=0154
+ SZA CLA / @@1134=7640
+ SKP / @@1135=7410
+ JMS I C0072 / long call to S0513 @@1136=4472
+ TAD D0021 / @@1137=1021
+ SZA / @@1140=7440
+ JMS I C0102 / long call to S0411 @@1141=4502
+ JMP I S1125 / return @@1142=5725
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S1143
+/
+/ Called from:
+/ 3475 3534 3573 3707
+/ Total 0004 (4) calls
+////////////////////////////////////////////////////////////////////////////////
+S1143,
+ 0 / return area
+ JMS I C0071 / long call to S0521 @@1144=4471
+D1145, 0000 / AND L0000
+ JMP L1151 / @@1146=5351
+ ISZ S1143 / @@1147=2343
+ JMP I S1143 / return @@1150=5743
+L1151,
+ DCA D0131 / @@1151=3131
+ JMS I C0052 / long call to S1000 @@1152=4452
+ TAD C0145 / @@1153=1145
+ TAD I C1004 / @@1154=1604
+ JMS I C0052 / long call to S1000 @@1155=4452
+ AND D0131 / @@1156=0131
+ TAD I C1011 / @@1157=1611
+ JMS I C0051 / long call to S1050 @@1160=4451
+C1161, 4040 / JMS C0040
+ TAD I C1001 / @@1162=1601
+ JMP I S1143 / return @@1163=5743
+ JMP I S1143 / return @@1164=5743
+
+*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, @@1201=6014
+L1202,
+ RSF / Skip if reader flag is a 1. @@1202=6011
+ JMP L1202 / @@1203=5202
+ CLA / @@1204=7200
+ RFB / Read the content of the reader buffe @@1205=6012
+ JMP I S1200 / return @@1206=5600
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ 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 @@1210=6026
+L1211,
+ PSF / Skip if punch flag is a 1 @@1211=6021
+ JMP L1211 / @@1212=5211
+ JMP I S1207 / return @@1213=5607
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S1214
+/
+/ Called from:
+/ 1231 3507 3540
+/ Total 0003 (3) calls
+////////////////////////////////////////////////////////////////////////////////
+S1214,
+ 0 / return area
+ JMS I C0075 / long call to S0400 @@1215=4475
+ TAD D1227 / @@1216=1227
+ SZL CLA OSR / @@1217=7634
+L1220,
+ CLA / @@1220=7200
+ PLS / Clear the punch flag, clear the bunc @@1221=6026
+L1222,
+ PSF / Skip if punch flag is a 1 @@1222=6021
+ JMP L1222 / @@1223=5222
+ ISZ D1227 / @@1224=2227
+ JMP L1220 / @@1225=5220
+ JMP I S1214 / return @@1226=5614
+D1227, 0000 / AND L0000
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S1230
+/
+/ Called from:
+/ 3506 3537
+/ Total 0002 (2) calls
+////////////////////////////////////////////////////////////////////////////////
+S1230,
+ 0 / return area
+ JMS S1214 / @@1231=4214
+ JMS I C0100 / long call to S1117 @@1232=4500
+C1233, 7767 / CLA MQA SCA MQL DVI +
+ JMS I C0075 / long call to S0400 @@1234=4475
+ TAD D1246 / @@1235=1246
+ TAD I D0121 / @@1236=1521
+L1237,
+ CLA / @@1237=7200
+ TAD I D1246 / @@1240=1646
+ JMS S1207 / @@1241=4207
+ ISZ D1246 / @@1242=2246
+ ISZ D0123 / @@1243=2123
+ JMP L1237 / @@1244=5237
+ JMP I S1230 / return @@1245=5630
+D1246, 0000 / AND L0000
+ TAD C1233 / @@1247=1233
+ SNL CLA HLT / @@1250=7622
+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 @@1256=7300
+ TAD D1251 / @@1257=1251
+ RTL / @@1260=7006
+ TAD D1252 / @@1261=1252
+ DCA D1251 / @@1262=3251
+ TAD D1251 / @@1263=1251
+ RTL / @@1264=7006
+ TAD D1252 / @@1265=1252
+ RTL / @@1266=7006
+ DCA D1252 / @@1267=3252
+ TAD D1251 / @@1270=1251
+ AND C0153 / @@1271=0153
+ JMP I S1255 / return @@1272=5655
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S1273
+/
+/ Called from:
+/ 3562 3570
+/ Total 0002 (2) calls
+////////////////////////////////////////////////////////////////////////////////
+S1273,
+ 0 / return area
+ CLA CLL / AC = 0000 @@1274=7300
+ TAD D1253 / @@1275=1253
+ RTL / @@1276=7006
+ TAD D1254 / @@1277=1254
+ DCA D1253 / @@1300=3253
+ TAD D1253 / @@1301=1253
+ RTL / @@1302=7006
+ TAD D1254 / @@1303=1254
+ RTL / @@1304=7006
+ DCA D1254 / @@1305=3254
+ TAD D1253 / @@1306=1253
+ AND C0153 / @@1307=0153
+ JMP I S1273 / return @@1310=5673
+C1311,
+C1311, 0000 / AND L0000
+L1312,
+ JMS I C0066 / long call to S1400 @@1312=4466
+ JMS I C0055 / long call to S1200 @@1313=4455
+ DCA D0110 / @@1314=3110
+ JMS I C0055 / long call to S1200 @@1315=4455
+ DCA D0111 / @@1316=3111
+ JMS I C0055 / long call to S1200 @@1317=4455
+ DCA D0112 / @@1320=3112
+ JMS I C0065 / long call to S1324 @@1321=4465
+ JMP L1312 / @@1322=5312
+ JMP I C1311 / long jump to L0000 @@1323=5711
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S1324
+/
+/ Called from:
+/ 1321 3741
+/ Total 0002 (2) calls
+////////////////////////////////////////////////////////////////////////////////
+S1324,
+ 0 / return area
+ JMS I C0075 / long call to S0400 @@1325=4475
+ TAD D1363 / @@1326=1363
+ NOP / @@1327=7000
+L1330,
+ JMS I C0075 / long call to S0400 @@1330=4475
+ TAD D1364 / @@1331=1364
+ SMA SZA SNL CLA OSR HLT / @@1332=7766
+L1333,
+ JMS I C0067 / long call to S1412 @@1333=4467
+ CMA / @@1334=7040
+ AND D0110 / @@1335=0110
+ SZA / @@1336=7440
+ JMP L1333 / @@1337=5333
+ JMS I C0067 / long call to S1412 @@1340=4467
+ CMA / @@1341=7040
+ AND D0111 / @@1342=0111
+ SNA / @@1343=7450
+ JMP L1351 / @@1344=5351
+ ISZ D1363 / @@1345=2363
+ JMP L1330 / @@1346=5330
+L1347,
+ CLA HLT / @@1347=7602
+ JMP I S1324 / return @@1350=5724
+L1351,
+ JMS I C0067 / long call to S1412 @@1351=4467
+ CMA / @@1352=7040
+ AND D0112 / @@1353=0112
+ SZA / @@1354=7440
+ JMP L1360 / @@1355=5360
+ ISZ S1324 / @@1356=2324
+ JMP I S1324 / return @@1357=5724
+L1360,
+ ISZ D1364 / @@1360=2364
+ JMP L1330 / @@1361=5330
+ JMP L1347 / @@1362=5347
+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 / @@1401=7201
+ DCA D1460 / @@1402=3260
+C1403, 4474 / JMS I C0074
+ TAD I C0060 / @@1404=1460
+D1405, 1461 / TAD I C0061
+C1406, 7775 / CLA MQA SCA MQL ASR +
+ DCA D1464 / @@1407=3264
+ DCA D1465 / @@1410=3265
+ JMP I S1400 / return @@1411=5600
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S1412
+/
+/ Called from:
+/ 1333 1340 1351 3472 3513 3523 3531 3704
+/ Total 0010 (8) calls
+////////////////////////////////////////////////////////////////////////////////
+S1412,
+ 0 / return area
+ CLA / @@1413=7200
+ TAD D1460 / @@1414=1260
+ DCA D1461 / @@1415=3261
+ TAD D1464 / @@1416=1264
+ CMA / @@1417=7040
+L1420,
+ DCA D1464 / @@1420=3264
+ TAD D1464 / @@1421=1264
+D1422, 7650 / SNA CLA
+ JMP L1427 / @@1423=5227
+ TAD D1461 / @@1424=1261
+ CMA / @@1425=7040
+ JMP L1431 / @@1426=5231
+L1427,
+ TAD D1461 / @@1427=1261
+ CIA / @@1430=7041
+L1431,
+ AND C0153 / @@1431=0153
+ DCA D1460 / @@1432=3260
+ TAD D1461 / @@1433=1261
+ JMP I S1412 / return @@1434=5612
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S1435
+/
+/ Called from:
+/ 3647
+/ Total 0001 (1) calls
+////////////////////////////////////////////////////////////////////////////////
+S1435,
+ 0 / return area
+ CLA / @@1436=7200
+ TAD D1462 / @@1437=1262
+ DCA D1463 / @@1440=3263
+ TAD D1465 / @@1441=1265
+ CMA / @@1442=7040
+ DCA D1465 / @@1443=3265
+ TAD D1465 / @@1444=1265
+ SNA CLA / @@1445=7650
+ JMP L1452 / @@1446=5252
+ TAD D1463 / @@1447=1263
+ CMA / @@1450=7040
+ JMP L1454 / @@1451=5254
+L1452,
+ TAD D1463 / @@1452=1263
+ CIA / @@1453=7041
+L1454,
+ AND C0153 / @@1454=0153
+ DCA D1462 / @@1455=3262
+ TAD D1463 / @@1456=1263
+ JMP I S1435 / return @@1457=5635
+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 / @@1470=5220
+C1471, 4040 / JMS C0040
+C1472, 4040 / JMS C0040
+ JMS D0022 / @@1473=4022
+C1474, 4040 / JMS C0040
+C1475, 4040 / JMS C0040
+D1476, 4040 / JMS C0040
+C1477, 4040 / JMS C0040
+ AND L0001 / @@1500=0001
+C1501, 0015 / AND AI5
+C1502, 0012 / AND AI2
+C1503, 0007 / AND C0007
+C1504, 4025 / JMS C0025
+ TAD I D1405 / @@1505=1605
+ DCA D0020 / @@1506=3020
+ AND I C0103 / @@1507=0503
+C1510, 2405 / ISZ I D0005
+C1511, 0440 / AND I C0040
+ TAD D0116 / @@1512=1116
+ ISZ I D0005 / @@1513=2405
+ ISZ D1422 / @@1514=2222
+ ISZ I D0120 / @@1515=2520
+ ISZ I C0056 / @@1516=2456
+C1517, 0015 / AND AI5
+ AND L0001 / @@1520=0001
+ AND C0037 / @@1521=0037
+C1522, 0040 / AND C0040
+ AND C0040 / @@1523=0040
+C1524, 0037 / AND C0037
+ AND L0000 / @@1525=0000
+ AND C0077 / @@1526=0077
+C1527, 0011 / AND AI1
+C1530, 0011 / AND AI1
+ AND C0006 / @@1531=0006
+C1532, 0015 / AND AI5
+C1533, 0012 / AND AI2
+ JMS D0022 / @@1534=4022
+ AND I D0022 / @@1535=0422
+ JMS D0023 / @@1536=4023
+ ISZ D0005 / @@1537=2005
+ AND I D0104 / @@1540=0504
+ JMS L0000 / @@1541=4000
+ AND C0100 / @@1542=0100
+C1543, 0015 / AND AI5
+C1544, 0012 / AND AI2
+ JMS D0020 / @@1545=4020
+ AND C1510 / @@1546=0310
+ JMS D0023 / @@1547=4023
+ ISZ D0005 / @@1550=2005
+ AND I D0104 / @@1551=0504
+ JMS L0000 / @@1552=4000
+ AND C0100 / @@1553=0100
+ JMS D0003 / @@1554=4003
+ ISZ D0023 / @@1555=2023
+C1556, 0015 / AND AI5
+ AND L0001 / @@1557=0001
+C1560, 0015 / AND AI5
+C1561, 0012 / AND AI2
+ JMS L0000 / @@1562=4000
+ AND I C1511 / @@1563=0711
+ TAD I C1403 / @@1564=1603
+ TAD I C1522 / @@1565=1722
+ ISZ D1405 / @@1566=2205
+ AND C1524 / @@1567=0324
+ JMS D0022 / @@1570=4022
+C1571, 2416 / ISZ I AI6
+ JMS D0023 / @@1572=4023
+ AND I C0114 / @@1573=0514
+ AND I C0103 / @@1574=0503
+ ISZ I D0005 / @@1575=2405
+ AND I C0056 / @@1576=0456
+C1577, 0015 / AND AI5
+ AND L0001 / @@1600=0001
+ JMS D0023 / @@1601=4023
+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 / @@1614=0001
+C1615, 0015 / AND AI5
+C1616, 0012 / AND AI2
+ IAC RAL / @@1617=7005
+C1620, 4040 / JMS C0040
+C1621, 2331 / ISZ C1731
+C1622, 2324 / ISZ C1724
+ AND I D0115 / @@1623=0515
+ JMP I D1640 / long jump to L2440 @@1624=5640
+C1625, 2305 / ISZ C1705
+ ISZ I C0040 / @@1626=2440
+C1627, 2411 / ISZ I AI1
+ TAD I D0105 / @@1630=1505
+C1631, 4004 / JMS C0004
+ AND I C0114 / @@1632=0514
+ AND D0131 / @@1633=0131
+ JMS D0003 / @@1634=4003
+C1635, 1716 / TAD I C1716
+C1636, 2324 / ISZ C1724
+ AND D0116 / @@1637=0116
+D1640, 2440 / ISZ I C0040
+ TAD D0116 / @@1641=1116
+ JMS D0023 / @@1642=4023
+ ISZ D1656 / @@1643=2256
+C1644, 0015 / AND AI5
+C1645, 0012 / AND AI2
+ ISZ D1605 / @@1646=2205
+ AND I D1605 / @@1647=0605
+ ISZ D1640 / @@1650=2240
+C1651, 2417 / ISZ I AI7
+ JMS D0020 / @@1652=4020
+ AND D0107 / @@1653=0107
+ AND I D0123 / @@1654=0523
+C1655, 4062 / JMS C0062
+D1656, 4001 / JMS L0001
+ TAD I C1604 / @@1657=1604
+C1660, 4063 / JMS D0063
+C1661, 4017 / JMS AI7
+ AND I D1640 / @@1662=0640
+ ISZ D0022 / @@1663=2022
+C1664, 0740 / AND I C1740
+C1665, 1411 / TAD I AI1
+C1666, 2324 / ISZ C1724
+ TAD D0116 / @@1667=1116
+C1670, 0756 / AND I C1756
+ AND L0001 / @@1671=0001
+
+*2000
+D2000, 4475 / JMS I C0075
+ AND D0020 / @@2001=0020
+C2002, 2010 / ISZ AI0
+ JMS I C0075 / long call to S0400 @@2003=4475
+ AND D0105 / @@2004=0105
+C2005, 7717 / CLA MQA LSR +
+ JMP I C2007 / long jump to L0241 @@2006=5607
+C2007,
+C2007, 0241 / AND C2041
+ AND L0000 / @@2010=0000
+ ISZ D0036 / @@2011=2036
+ JMS I C0077 / long call to S1111 @@2012=4477
+ SNA SZL / @@2013=7470
+ JMS I C0101 / long call to S1042 @@2014=4501
+ OSR HLT / @@2015=7406
+L2016,
+ RFC / Clear reader flag and reader buffer, @@2016=6014
+ JMS I C0102 / long call to S0411 @@2017=4502
+ RSF / Skip if reader flag is a 1. @@2020=6011
+ JMP L2025 / @@2021=5225
+L2022,
+ ISZ D0122 / @@2022=2122
+ JMP L2016 / @@2023=5216
+ JMP I C0025 / long jump to L0270 @@2024=5425
+L2025,
+ JMS I C0051 / long call to S1050 @@2025=4451
+C2026, 4040 / JMS C0040
+ AND L0000 / @@2027=0000
+ JMP L2022 / @@2030=5222
+ JMS I C0101 / long call to S1042 @@2031=4501
+ SMA SZA SNL CLA OSR / @@2032=7764
+L2033,
+ RFC / Clear reader flag and reader buffer, @@2033=6014
+ JMS I C0102 / long call to S0411 @@2034=4502
+ JMP L2033 / @@2035=5233
+ AND L0001 / @@2036=0001
+ ISZ D0064 / @@2037=2064
+ JMS I C0077 / long call to S1111 @@2040=4477
+C2041, 0001 / AND L0001
+ RFC / Clear reader flag and reader buffer, @@2042=6014
+L2043,
+ RSF / Skip if reader flag is a 1. @@2043=6011
+ JMP L2043 / @@2044=5243
+L2045,
+ RSF / Skip if reader flag is a 1. @@2045=6011
+ JMP L2052 / @@2046=5252
+L2047,
+ ISZ D0122 / @@2047=2122
+ JMP L2045 / @@2050=5245
+ JMP I C0025 / long jump to L0270 @@2051=5425
+L2052,
+ JMS I C0051 / long call to S1050 @@2052=4451
+C2053, 4040 / JMS C0040
+ AND L0000 / @@2054=0000
+ JMP L2047 / @@2055=5247
+ RFC / Clear reader flag and reader buffer, @@2056=6014
+L2057,
+ RSF / Skip if reader flag is a 1. @@2057=6011
+ JMP L2057 / @@2060=5257
+L2061,
+ RSF / Skip if reader flag is a 1. @@2061=6011
+ JMP L2061 / @@2062=5261
+ JMP L2061 / @@2063=5261
+ AND C0002 / @@2064=0002
+ ISZ D0105 / @@2065=2105
+ JMS I C0077 / long call to S1111 @@2066=4477
+ AND L0001 / @@2067=0001
+ RFB / Read the content of the reader buffe @@2070=6012
+L2071,
+ RSF / Skip if reader flag is a 1. @@2071=6011
+ JMP L2102 / @@2072=5302
+ JMS I C0051 / long call to S1050 @@2073=4451
+C2074, 4040 / JMS C0040
+ AND L0000 / @@2075=0000
+ JMP L2102 / @@2076=5302
+L2077,
+ RSF / Skip if reader flag is a 1. @@2077=6011
+ JMP L2077 / @@2100=5277
+ JMP L2077 / @@2101=5277
+L2102,
+ ISZ D0122 / @@2102=2122
+ JMP L2071 / @@2103=5271
+ JMP I C0025 / long jump to L0270 @@2104=5425
+ AND D0003 / @@2105=0003
+ ISZ D2000 / @@2106=2200
+ TAD C2177 / @@2107=1377
+ DCA D0022 / @@2110=3022
+L2111,
+ TAD C2176 / @@2111=1376
+ DCA D0136 / @@2112=3136
+ IOF / Disable Interrupts @@2113=6002
+ CLA / @@2114=7200
+ DCA D0135 / @@2115=3135
+L2116,
+ ISZ D0135 / @@2116=2135
+ JMP L2116 / @@2117=5316
+ ISZ D0136 / @@2120=2136
+ JMP L2116 / @@2121=5316
+D2122, 1375 / TAD C2175
+ DCA D0134 / @@2123=3134
+C2124, 6007 / 6007
+ RFC / Clear reader flag and reader buffer, @@2125=6014
+ JMS S2151 / @@2126=4351
+ RSF / Skip if reader flag is a 1. @@2127=6011
+ JMP L2137 / @@2130=5337
+C2131, 6010 / 6010
+D2132, 6003 / 6003
+ JMP L2137 / @@2133=5337
+ ISZ D0022 / @@2134=2022
+ JMP L2111 / @@2135=5311
+ JMP I C0025 / long jump to L0270 @@2136=5425
+L2137,
+ JMS I C0051 / long call to S1050 @@2137=4451
+C2140, 4040 / JMS C0040
+ AND L0000 / @@2141=0000
+ JMP L2111 / @@2142=5311
+ IOF / Disable Interrupts @@2143=6002
+L2144,
+ RSF / Skip if reader flag is a 1. @@2144=6011
+ JMP L2144 / @@2145=5344
+L2146,
+ RSF / Skip if reader flag is a 1. @@2146=6011
+ JMP L2146 / @@2147=5346
+ JMP L2146 / @@2150=5346
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S2151
+/
+/ Called from:
+/ 2126
+/ Total 0001 (1) calls
+////////////////////////////////////////////////////////////////////////////////
+S2151,
+ 0 / return area
+L2152,
+ ISZ D0134 / @@2152=2134
+ JMP L2152 / @@2153=5352
+ JMP I S2151 / return @@2154=5751
+
+*2175
+C2175, 2260 / ISZ C2060
+C2176, 7773 / CLA MQA SCA MQL SHL +
+C2177, 4000 / JMS L0000
+C2200, 0004 / AND C0004
+ ISZ I L0000 / @@2201=2400
+L2202,
+ IOF / Disable Interrupts @@2202=6002
+C2203, 6007 / 6007
+C2204, 6010 / 6010
+C2205, 6020 / 6020
+ ION / Enable Interrupts @@2206=6001
+ RFC / Clear reader flag and reader buffer, @@2207=6014
+C2210, 6000 / 6000
+ JMP L2214 / @@2211=5214
+C2212, 6003 / 6003
+ SKP / @@2213=7410
+L2214,
+ JMP L2220 / @@2214=5220
+ ISZ D0022 / @@2215=2022
+ JMP L2202 / @@2216=5202
+L2217,
+ JMP I C0025 / long jump to L0270 @@2217=5425
+L2220,
+ JMS I C0051 / long call to S1050 @@2220=4451
+C2221, 4040 / JMS C0040
+ AND L0000 / @@2222=0000
+ JMP L2217 / @@2223=5217
+L2224,
+C2224, 6010 / 6010
+ JMS I C0102 / long call to S0411 @@2225=4502
+C2226, 6020 / 6020
+ JMP L2224 / @@2227=5224
+
+*2400
+C2400, 0005 / AND D0005
+ ISZ I D0030 / @@2401=2430
+ JMS I C0077 / long call to S1111 @@2402=4477
+C2403, 7014 / RAR RAL
+L2404,
+ RFC / Clear reader flag and reader buffer, @@2404=6014
+L2405,
+ RSF / Skip if reader flag is a 1. @@2405=6011
+ JMP L2405 / @@2406=5205
+ RFB / Read the content of the reader buffe @@2407=6012
+ RSF / Skip if reader flag is a 1. @@2410=6011
+ JMP L2425 / @@2411=5225
+ JMS I C0051 / long call to S1050 @@2412=4451
+C2413, 4040 / JMS C0040
+ AND L0000 / @@2414=0000
+ JMP L2425 / @@2415=5225
+L2416,
+ RFC / Clear reader flag and reader buffer, @@2416=6014
+L2417,
+ RSF / Skip if reader flag is a 1. @@2417=6011
+ JMP L2417 / @@2420=5217
+L2421,
+ RFB / Read the content of the reader buffe @@2421=6012
+ RSF / Skip if reader flag is a 1. @@2422=6011
+ JMP L2416 / @@2423=5216
+ JMP L2421 / @@2424=5221
+L2425,
+ ISZ D0122 / @@2425=2122
+ JMP L2404 / @@2426=5204
+ JMP I C0025 / long jump to L0270 @@2427=5425
+ AND C0006 / @@2430=0006
+ ISZ I C2400 / @@2431=2600
+ JMS I C0077 / long call to S1111 @@2432=4477
+C2433, 7014 / RAR RAL
+ RFC / Clear reader flag and reader buffer, @@2434=6014
+L2435,
+ RSF / Skip if reader flag is a 1. @@2435=6011
+ JMP L2435 / @@2436=5235
+ RFC / Clear reader flag and reader buffer, @@2437=6014
+ RSF / Skip if reader flag is a 1. @@2440=6011
+ JMP L2453 / @@2441=5253
+ JMS I C0051 / long call to S1050 @@2442=4451
+C2443, 4040 / JMS C0040
+ AND L0000 / @@2444=0000
+ JMP L2453 / @@2445=5253
+ JMS I C0102 / long call to S0411 @@2446=4502
+L2447,
+ RFC / Clear reader flag and reader buffer, @@2447=6014
+L2450,
+ RSF / Skip if reader flag is a 1. @@2450=6011
+ JMP L2450 / @@2451=5250
+ JMP L2447 / @@2452=5247
+L2453,
+ ISZ D0122 / @@2453=2122
+ JMP L2435 / @@2454=5235
+ JMP I C0025 / long jump to L0270 @@2455=5425
+
+*2600
+C2600, 0007 / AND C0007
+C2601, 2637 / ISZ I C2637
+ JMS I C0077 / long call to S1111 @@2602=4477
+C2603, 7014 / RAR RAL
+L2604,
+C2604, 6014 / RFC
+L2605,
+ RSF / Skip if reader flag is a 1. @@2605=6011
+ JMP L2605 / @@2606=5205
+ CLA / @@2607=7200
+ RFB / Read the content of the reader buffe @@2610=6012
+C2611, 3236 / DCA D2636
+ TAD D2636 / @@2612=1236
+ SZA CLA / @@2613=7640
+ JMP L2620 / @@2614=5220
+L2615,
+ ISZ D0122 / @@2615=2122
+ JMP L2604 / @@2616=5204
+ JMP I C0025 / long jump to L0270 @@2617=5425
+L2620,
+ JMS I C0052 / long call to S1000 @@2620=4452
+ ISZ I C2635 / @@2621=2635
+ TAD I L2604 / @@2622=1604
+ JMS I C0052 / long call to S1000 @@2623=4452
+ ISZ I D2636 / @@2624=2636
+ TAD I C2611 / @@2625=1611
+ JMS I C0051 / long call to S1050 @@2626=4451
+C2627, 4040 / JMS C0040
+ TAD I C2601 / @@2630=1601
+ JMP L2615 / @@2631=5215
+L2632,
+ CLA / @@2632=7200
+ RFB / Read the content of the reader buffe @@2633=6012
+ JMP L2632 / @@2634=5232
+C2635, 0000 / AND L0000
+D2636, 0000 / AND L0000
+C2637, 0010 / AND AI0
+C2640, 2717 / ISZ I C2717
+ JMS I C0075 / long call to S0400 @@2641=4475
+ AND C0002 / @@2642=0002
+ ISZ I C2654 / @@2643=2654
+L2644,
+ KCC / Clear AC and clear keyboard flag. @@2644=6032
+ TCF / Clear teleprinter flag. @@2645=6042
+ PCF / Clear punch flag and punch buffer. @@2646=6022
+ RFB / Read the content of the reader buffe @@2647=6012
+ ION / Enable Interrupts @@2650=6001
+ NOP / @@2651=7000
+ IOF / Disable Interrupts @@2652=6002
+ JMP L2661 / @@2653=5261
+C2654, 4451 / JMS I C0051
+ AND C0140 / @@2655=0140
+ AND L0000 / @@2656=0000
+ JMP L2644 / @@2657=5244
+ JMP L2644 / @@2660=5244
+L2661,
+ JMS I C0077 / long call to S1111 @@2661=4477
+ AND L0001 / @@2662=0001
+ JMS I C0075 / long call to S0400 @@2663=4475
+ AND C0002 / @@2664=0002
+ ISZ I L2713 / @@2665=2713
+C2666, 6010 / 6010
+ RFC / Clear reader flag and reader buffer, @@2667=6014
+L2670,
+ RSF / Skip if reader flag is a 1. @@2670=6011
+ JMP L2670 / @@2671=5270
+L2672,
+ ION / Enable Interrupts @@2672=6001
+ NOP / @@2673=7000
+ IOF / Disable Interrupts @@2674=6002
+ JMS I C0051 / long call to S1050 @@2675=4451
+ AND C2640 / @@2676=0240
+ AND L0000 / @@2677=0000
+ JMP L2713 / @@2700=5313
+ JMS I C0075 / long call to S0400 @@2701=4475
+ AND C0002 / @@2702=0002
+ ISZ I C2712 / @@2703=2712
+ RFC / Clear reader flag and reader buffer, @@2704=6014
+L2705,
+ RSF / Skip if reader flag is a 1. @@2705=6011
+ JMP L2705 / @@2706=5305
+L2707,
+ ION / Enable Interrupts @@2707=6001
+ NOP / @@2710=7000
+ JMP L2707 / @@2711=5307
+C2712, 5307 / JMP L2707
+L2713,
+C2713, 2122 / ISZ D0122
+ JMP L2672 / @@2714=5272
+C2715, 6020 / 6020
+ JMP I C0025 / long jump to L0270 @@2716=5425
+C2717, 0011 / AND AI1
+C2720, 7777 / CLA MQA SCA MQL LSR +
+ JMS I C0077 / long call to S1111 @@2721=4477
+ SNA SZL / @@2722=7470
+L2723,
+ JMS S2773 / @@2723=4373
+ JMS I C0101 / long call to S1042 @@2724=4501
+C2725, 7755 / CLA MQA SCA ASR +
+ RFC / Clear reader flag and reader buffer, @@2726=6014
+L2727,
+ RSF / Skip if reader flag is a 1. @@2727=6011
+ JMP L2727 / @@2730=5327
+ JMS I C0102 / long call to S0411 @@2731=4502
+ RFC / Clear reader flag and reader buffer, @@2732=6014
+ JMS I C0102 / long call to S0411 @@2733=4502
+ RSF / Skip if reader flag is a 1. @@2734=6011
+ JMP L2743 / @@2735=5343
+ JMS I C0051 / long call to S1050 @@2736=4451
+ AND C0140 / @@2737=0140
+ AND L0000 / @@2740=0000
+ JMP L2723 / @@2741=5323
+ JMP L2755 / @@2742=5355
+L2743,
+ JMS S2766 / @@2743=4366
+ RSF / Skip if reader flag is a 1. @@2744=6011
+ JMP L2751 / @@2745=5351
+L2746,
+ ISZ D0122 / @@2746=2122
+ JMP L2723 / @@2747=5323
+ JMP I C0025 / long jump to L0270 @@2750=5425
+L2751,
+ JMS I C0051 / long call to S1050 @@2751=4451
+ AND C2640 / @@2752=0240
+ AND L0000 / @@2753=0000
+ JMP L2746 / @@2754=5346
+L2755,
+ JMS I C0101 / long call to S1042 @@2755=4501
+C2756, 7761 / CLA MQA SCA MQL
+L2757,
+ RFC / Clear reader flag and reader buffer, @@2757=6014
+ JMP L2757 / @@2760=5357
+L2761,
+ JMS I C0102 / long call to S0411 @@2761=4502
+ RFC / Clear reader flag and reader buffer, @@2762=6014
+L2763,
+ RSF / Skip if reader flag is a 1. @@2763=6011
+ JMP L2763 / @@2764=5363
+ JMP L2761 / @@2765=5361
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S2766
+/
+/ Called from:
+/ 2743
+/ Total 0001 (1) calls
+////////////////////////////////////////////////////////////////////////////////
+S2766,
+ 0 / return area
+ JMS I C0101 / long call to S1042 @@2767=4501
+ SNA OSR / @@2770=7454
+ JMS I C0102 / long call to S0411 @@2771=4502
+ JMP I S2766 / return @@2772=5766
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S2773
+/
+/ Called from:
+/ 2723
+/ Total 0001 (1) calls
+////////////////////////////////////////////////////////////////////////////////
+S2773,
+ 0 / return area
+ JMS I C0101 / long call to S1042 @@2774=4501
+ OSR HLT / @@2775=7406
+ JMS I C0102 / long call to S0411 @@2776=4502
+ JMP I S2773 / return @@2777=5773
+D3000, 4475 / JMS I C0075
+ AND D0020 / @@3001=0020
+C3002, 3010 / DCA AI0
+ JMS I C0075 / long call to S0400 @@3003=4475
+ AND D0105 / @@3004=0105
+C3005, 7717 / CLA MQA LSR +
+ JMP I C3007 / long jump to L0241 @@3006=5607
+C3007,
+C3007, 0241 / AND C3041
+ AND L0000 / @@3010=0000
+ DCA D0032 / @@3011=3032
+ JMS I C0077 / long call to S1111 @@3012=4477
+ AND L0001 / @@3013=0001
+L3014,
+ PCF / Clear punch flag and punch buffer. @@3014=6022
+ PSF / Skip if punch flag is a 1 @@3015=6021
+ JMP L3027 / @@3016=5227
+ JMS I C0051 / long call to S1050 @@3017=4451
+C3020, 4040 / JMS C0040
+ AND L0000 / @@3021=0000
+ JMP L3027 / @@3022=5227
+ PCF / Clear punch flag and punch buffer. @@3023=6022
+L3024,
+ PSF / Skip if punch flag is a 1 @@3024=6021
+ JMP L3024 / @@3025=5224
+ JMP L3024 / @@3026=5224
+L3027,
+ ISZ D0122 / @@3027=2122
+ JMP L3014 / @@3030=5214
+ JMP I C0025 / long jump to L0270 @@3031=5425
+ AND L0001 / @@3032=0001
+ DCA D0063 / @@3033=3063
+ JMS I C0077 / long call to S1111 @@3034=4477
+ AND L0001 / @@3035=0001
+ JMS I C0101 / long call to S1042 @@3036=4501
+ AND L0001 / @@3037=0001
+ CLA CLL / AC = 0000 @@3040=7300
+C3041, 6022 / PCF
+ PPC / Load the punch buffer from bits 4 th @@3042=6024
+ JMS I C0102 / long call to S0411 @@3043=4502
+L3044,
+ PSF / Skip if punch flag is a 1 @@3044=6021
+ JMP L3051 / @@3045=5251
+L3046,
+ ISZ D0122 / @@3046=2122
+ JMP L3044 / @@3047=5244
+ JMP I C0025 / long jump to L0270 @@3050=5425
+L3051,
+ JMS I C0051 / long call to S1050 @@3051=4451
+C3052, 4040 / JMS C0040
+ AND L0000 / @@3053=0000
+ JMP L3046 / @@3054=5246
+ CLA / @@3055=7200
+ PCF / Clear punch flag and punch buffer. @@3056=6022
+ PPC / Load the punch buffer from bits 4 th @@3057=6024
+L3060,
+ PSF / Skip if punch flag is a 1 @@3060=6021
+ JMP L3060 / @@3061=5260
+ JMP L3060 / @@3062=5260
+ AND C0002 / @@3063=0002
+ DCA D0115 / @@3064=3115
+ JMS I C0077 / long call to S1111 @@3065=4477
+C3066, 7014 / RAR RAL
+L3067,
+ CLA / @@3067=7200
+ PLS / Clear the punch flag, clear the bunc @@3070=6026
+L3071,
+ PSF / Skip if punch flag is a 1 @@3071=6021
+ JMP L3071 / @@3072=5271
+ PCF / Clear punch flag and punch buffer. @@3073=6022
+ PSF / Skip if punch flag is a 1 @@3074=6021
+ JMP L3112 / @@3075=5312
+ JMS I C0051 / long call to S1050 @@3076=4451
+C3077, 4040 / JMS C0040
+ AND L0000 / @@3100=0000
+ JMP L3112 / @@3101=5312
+L3102,
+ CLA / @@3102=7200
+ PLS / Clear the punch flag, clear the bunc @@3103=6026
+L3104,
+ PSF / Skip if punch flag is a 1 @@3104=6021
+ JMP L3104 / @@3105=5304
+L3106,
+ PCF / Clear punch flag and punch buffer. @@3106=6022
+ PSF / Skip if punch flag is a 1 @@3107=6021
+ JMP L3102 / @@3110=5302
+ JMP L3106 / @@3111=5306
+L3112,
+ ISZ D0122 / @@3112=2122
+ JMP L3067 / @@3113=5267
+ JMP I C0025 / long jump to L0270 @@3114=5425
+ AND D0003 / @@3115=0003
+ DCA D3000 / @@3116=3200
+ TAD C3177 / @@3117=1377
+ DCA D0022 / @@3120=3022
+L3121,
+ TAD C3176 / @@3121=1376
+ DCA D0136 / @@3122=3136
+ IOF / Disable Interrupts @@3123=6002
+ CLA / @@3124=7200
+ DCA D0135 / @@3125=3135
+L3126,
+ ISZ D0135 / @@3126=2135
+ JMP L3126 / @@3127=5326
+ ISZ D0136 / @@3130=2136
+ JMP L3126 / @@3131=5326
+ TAD C3175 / @@3132=1375
+ DCA D0134 / @@3133=3134
+C3134, 6007 / 6007
+ PPC / Load the punch buffer from bits 4 th @@3135=6024
+ JMS S3161 / @@3136=4361
+ PSF / Skip if punch flag is a 1 @@3137=6021
+ JMP L3147 / @@3140=5347
+C3141, 6010 / 6010
+C3142, 6003 / 6003
+ JMP L3147 / @@3143=5347
+ ISZ D0022 / @@3144=2022
+ JMP L3121 / @@3145=5321
+ JMP I C0025 / long jump to L0270 @@3146=5425
+L3147,
+ JMS I C0051 / long call to S1050 @@3147=4451
+C3150, 4040 / JMS C0040
+ AND L0000 / @@3151=0000
+ JMP L3121 / @@3152=5321
+ IOF / Disable Interrupts @@3153=6002
+L3154,
+ PSF / Skip if punch flag is a 1 @@3154=6021
+ JMP L3154 / @@3155=5354
+L3156,
+ RSF / Skip if reader flag is a 1. @@3156=6011
+ JMP L3156 / @@3157=5356
+ JMP L3156 / @@3160=5356
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S3161
+/
+/ Called from:
+/ 3136
+/ Total 0001 (1) calls
+////////////////////////////////////////////////////////////////////////////////
+S3161,
+ 0 / return area
+L3162,
+ ISZ D0134 / @@3162=2134
+ JMP L3162 / @@3163=5362
+ TAD C3174 / @@3164=1374
+ DCA D0134 / @@3165=3134
+L3166,
+ ISZ D0134 / @@3166=2134
+ JMP L3166 / @@3167=5366
+L3170,
+ ISZ D0134 / @@3170=2134
+ JMP L3170 / @@3171=5370
+ JMP I S3161 / return @@3172=5761
+
+*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 / @@3201=3230
+L3202,
+ IOF / Disable Interrupts @@3202=6002
+C3203, 6007 / 6007
+C3204, 6010 / 6010
+C3205, 6020 / 6020
+ ION / Enable Interrupts @@3206=6001
+ PPC / Load the punch buffer from bits 4 th @@3207=6024
+C3210, 6000 / 6000
+ JMP L3220 / @@3211=5220
+C3212, 6003 / 6003
+ SKP / @@3213=7410
+ JMP L3220 / @@3214=5220
+ ISZ D0022 / @@3215=2022
+ JMP L3202 / @@3216=5202
+L3217,
+ JMP I C0025 / long jump to L0270 @@3217=5425
+L3220,
+ JMS I C0051 / long call to S1050 @@3220=4451
+C3221, 4040 / JMS C0040
+ AND L0000 / @@3222=0000
+ JMP L3217 / @@3223=5217
+L3224,
+C3224, 6010 / 6010
+ JMS I C0102 / long call to S0411 @@3225=4502
+C3226, 6020 / 6020
+ JMP L3224 / @@3227=5224
+D3230, 0005 / AND D0005
+ DCA D3245 / @@3231=3245
+ JMS I C0077 / long call to S1111 @@3232=4477
+C3233, 7014 / RAR RAL
+L3234,
+ STA / AC = 7777 (-0001) @@3234=7240
+ PLS / Clear the punch flag, clear the bunc @@3235=6026
+C3236, 7200 / CLA
+ PLS / Clear the punch flag, clear the bunc @@3237=6026
+L3240,
+ PSF / Skip if punch flag is a 1 @@3240=6021
+ JMP L3240 / @@3241=5240
+ ISZ D0122 / @@3242=2122
+ JMP L3234 / @@3243=5234
+ JMP I C0025 / long jump to L0270 @@3244=5425
+D3245, 0006 / AND C0006
+ DCA D3261 / @@3246=3261
+ JMS I C0077 / long call to S1111 @@3247=4477
+C3250, 7014 / RAR RAL
+L3251,
+ CLA / @@3251=7200
+ TAD C0152 / @@3252=1152
+ PLS / Clear the punch flag, clear the bunc @@3253=6026
+L3254,
+ PSF / Skip if punch flag is a 1 @@3254=6021
+ JMP L3254 / @@3255=5254
+ ISZ D0122 / @@3256=2122
+ JMP L3251 / @@3257=5251
+ JMP I C0025 / long jump to L0270 @@3260=5425
+D3261, 0007 / AND C0007
+ DCA I L0000 / @@3262=3400
+ JMS I C0077 / long call to S1111 @@3263=4477
+C3264, 7014 / RAR RAL
+L3265,
+ CLA / @@3265=7200
+ TAD C0151 / @@3266=1151
+ PLS / Clear the punch flag, clear the bunc @@3267=6026
+L3270,
+ PSF / Skip if punch flag is a 1 @@3270=6021
+ JMP L3270 / @@3271=5270
+ ISZ D0122 / @@3272=2122
+ JMP L3265 / @@3273=5265
+ JMP I C0025 / long jump to L0270 @@3274=5425
+
+*3400
+C3400, 0010 / AND AI0
+C3401, 7777 / CLA MQA SCA MQL LSR +
+ JMS I C0075 / long call to S0400 @@3402=4475
+ AND C0002 / @@3403=0002
+C3404, 3415 / DCA I AI5
+L3405,
+ KCC / Clear AC and clear keyboard flag. @@3405=6032
+ TCF / Clear teleprinter flag. @@3406=6042
+ RFB / Read the content of the reader buffe @@3407=6012
+ PCF / Clear punch flag and punch buffer. @@3410=6022
+ ION / Enable Interrupts @@3411=6001
+ NOP / @@3412=7000
+ IOF / Disable Interrupts @@3413=6002
+ JMP L3422 / @@3414=5222
+ JMS I C0051 / long call to S1050 @@3415=4451
+ AND C0140 / @@3416=0140
+ AND L0000 / @@3417=0000
+ JMP L3405 / @@3420=5205
+ JMP L3405 / @@3421=5205
+L3422,
+ JMS I C0077 / long call to S1111 @@3422=4477
+ AND L0001 / @@3423=0001
+ JMS I C0075 / long call to S0400 @@3424=4475
+ AND C0002 / @@3425=0002
+ DCA I C0056 / @@3426=3456
+ CLA / @@3427=7200
+C3430, 6010 / 6010
+ PLS / Clear the punch flag, clear the bunc @@3431=6026
+L3432,
+ PSF / Skip if punch flag is a 1 @@3432=6021
+ JMP L3432 / @@3433=5232
+L3434,
+ ION / Enable Interrupts @@3434=6001
+ NOP / @@3435=7000
+ IOF / Disable Interrupts @@3436=6002
+ JMS I C0051 / long call to S1050 @@3437=4451
+C3440, 0240 / AND C3440
+ AND L0000 / @@3441=0000
+ JMP L3456 / @@3442=5256
+ JMS I C0075 / long call to S0400 @@3443=4475
+ AND C0002 / @@3444=0002
+ DCA I C0055 / @@3445=3455
+ CLA / @@3446=7200
+C3447, 6026 / PLS
+L3450,
+ PSF / Skip if punch flag is a 1 @@3450=6021
+C3451, 5250 / JMP L3450
+L3452,
+ ION / Enable Interrupts @@3452=6001
+ NOP / @@3453=7000
+ JMP L3452 / @@3454=5252
+ JMP L3452 / @@3455=5252
+L3456,
+ ISZ D0122 / @@3456=2122
+ JMP L3434 / @@3457=5234
+C3460, 6020 / 6020
+ JMP I C0025 / long jump to L0270 @@3461=5425
+ JMS I C0075 / long call to S0400 @@3462=4475
+ AND D0105 / @@3463=0105
+ AND I C0060 / @@3464=0460
+L3465,
+ JMS I D0064 / long call to S1311 @@3465=4464
+ JMS I C0077 / long call to S1111 @@3466=4477
+C3467, 7773 / CLA MQA SCA MQL SHL +
+L3470,
+ JMS I D0063 / long call to S0324 @@3470=4463
+ DCA D0123 / @@3471=3123
+L3472,
+ JMS I C0067 / long call to S1412 @@3472=4467
+ DCA I C0062 / @@3473=3462
+ JMS I C0055 / long call to S1200 @@3474=4455
+ JMS I C0061 / long call to S1143 @@3475=4461
+ JMP L3503 / @@3476=5303
+L3477,
+ ISZ D0123 / @@3477=2123
+ JMP L3472 / @@3500=5272
+ JMS I C0163 / long call to S1125 @@3501=4563
+ JMP L3470 / @@3502=5270
+L3503,
+ ISZ D0122 / @@3503=2122
+ JMP L3477 / @@3504=5277
+ JMP L3465 / @@3505=5265
+ JMS I C0060 / long call to S1230 @@3506=4460
+ JMS I C0057 / long call to S1214 @@3507=4457
+ JMS I C0066 / long call to S1400 @@3510=4466
+ TAD C0150 / @@3511=1150
+ DCA D0105 / @@3512=3105
+L3513,
+ JMS I C0067 / long call to S1412 @@3513=4467
+ JMS I C0056 / long call to S1207 @@3514=4456
+ JMS I C0163 / long call to S1125 @@3515=4563
+ JMP L3513 / @@3516=5313
+ JMS I C0066 / long call to S1400 @@3517=4466
+ JMS I C0075 / long call to S0400 @@3520=4475
+ AND D0105 / @@3521=0105
+ AND I L0000 / @@3522=0400
+ JMS I C0067 / long call to S1412 @@3523=4467
+ DCA I C0062 / @@3524=3462
+L3525,
+ JMS I C0055 / long call to S1200 @@3525=4455
+ SZA / @@3526=7440
+ JMP L3534 / @@3527=5334
+ JMP L3525 / @@3530=5325
+L3531,
+ JMS I C0067 / long call to S1412 @@3531=4467
+ DCA I C0062 / @@3532=3462
+ JMS I C0055 / long call to S1200 @@3533=4455
+L3534,
+ JMS I C0061 / long call to S1143 @@3534=4461
+ NOP / @@3535=7000
+ JMP L3531 / @@3536=5331
+ JMS I C0060 / long call to S1230 @@3537=4460
+ JMS I C0057 / long call to S1214 @@3540=4457
+ JMS I C0074 / long call to S0536 @@3541=4474
+ TAD C3447 / @@3542=1247
+ TAD C3451 / @@3543=1251
+ SPA SNA SZL CLA OSR / @@3544=7774
+ TAD C0150 / @@3545=1150
+ DCA D0105 / @@3546=3105
+L3547,
+ JMS I C0053 / long call to S1255 @@3547=4453
+ JMS I C0056 / long call to S1207 @@3550=4456
+ JMS I C0163 / long call to S1125 @@3551=4563
+ JMP L3547 / @@3552=5347
+ JMS I C0074 / long call to S0536 @@3553=4474
+ TAD C3447 / @@3554=1247
+ TAD C3451 / @@3555=1251
+ SPA SNA SZL CLA OSR / @@3556=7774
+ JMS I C0075 / long call to S0400 @@3557=4475
+ AND D0105 / @@3560=0105
+ AND I L0000 / @@3561=0400
+ JMS I C0054 / long call to S1273 @@3562=4454
+ DCA I C0062 / @@3563=3462
+L3564,
+ JMS I C0055 / long call to S1200 @@3564=4455
+ SZA / @@3565=7440
+ JMP L3573 / @@3566=5373
+ JMP L3564 / @@3567=5364
+L3570,
+ JMS I C0054 / long call to S1273 @@3570=4454
+ DCA I C0062 / @@3571=3462
+ JMS I C0055 / long call to S1200 @@3572=4455
+L3573,
+ JMS I C0061 / long call to S1143 @@3573=4461
+ NOP / @@3574=7000
+ JMP L3570 / @@3575=5370
+
+*3600
+D3600, 4475 / JMS I C0075
+ AND D0105 / @@3601=0105
+ AND I C0060 / @@3602=0460
+ JMS I C0075 / long call to S0400 @@3603=4475
+ AND D0104 / @@3604=0104
+ AND C0077 / @@3605=0077
+ JMS I C0066 / long call to S1400 @@3606=4466
+ ISZ D0133 / @@3607=2133
+ JMS I C0075 / long call to S0400 @@3610=4475
+ AND C0002 / @@3611=0002
+ AND I C3703 / @@3612=0703
+ JMS I C0075 / long call to S0400 @@3613=4475
+ AND I C3716 / @@3614=0716
+ DCA I C3624 / @@3615=3624
+ JMS I C0075 / long call to S0400 @@3616=4475
+ AND I C3711 / @@3617=0711
+ DCA I C3671 / @@3620=3671
+ JMS S3646 / @@3621=4246
+ ION / Enable Interrupts @@3622=6001
+L3623,
+ JMP L3623 / @@3623=5223
+C3624, 2132 / ISZ D0132
+ TAD D0132 / @@3625=1132
+ TAD C0147 / @@3626=1147
+ SPA CLA / @@3627=7710
+ JMP L3633 / @@3630=5233
+L3631,
+ HLT / @@3631=7402
+ JMP L3631 / @@3632=5231
+L3633,
+ JMS S3646 / @@3633=4246
+ TAD D0127 / @@3634=1127
+ SZA CLA / @@3635=7640
+ JMP I C0103 / long jump to L0733 @@3636=5503
+ TAD D0132 / @@3637=1132
+ TAD C0146 / @@3640=1146
+ SPA CLA / @@3641=7710
+ JMP I C0103 / long jump to L0733 @@3642=5503
+ RFC / Clear reader flag and reader buffer, @@3643=6014
+ ISZ D0127 / @@3644=2127
+ JMP I C0103 / long jump to L0733 @@3645=5503
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S3646
+/
+/ Called from:
+/ 3621 3633
+/ Total 0002 (2) calls
+////////////////////////////////////////////////////////////////////////////////
+S3646,
+ 0 / return area
+ JMS I C0070 / long call to S1435 @@3647=4470
+ PLS / Clear the punch flag, clear the bunc @@3650=6026
+ CLA / @@3651=7200
+ JMP I S3646 / return @@3652=5646
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S3653
+/
+/ Never called
+////////////////////////////////////////////////////////////////////////////////
+S3653,
+ 0 / return area
+ CLA / @@3654=7200
+ RFB / Read the content of the reader buffe @@3655=6012
+ DCA D0131 / @@3656=3131
+ TAD D0132 / @@3657=1132
+ TAD C0145 / @@3660=1145
+ DCA D0132 / @@3661=3132
+ TAD D0132 / @@3662=1132
+ SZA CLA / @@3663=7640
+ JMP L3667 / @@3664=5267
+ DCA D0127 / @@3665=3127
+ JMP I S3653 / return @@3666=5653
+L3667,
+ RFC / Clear reader flag and reader buffer, @@3667=6014
+ JMP I S3653 / return @@3670=5653
+C3671, 4253 / JMS S3653
+ TAD D0131 / @@3672=1131
+ SNA CLA / @@3673=7650
+ JMP I C0103 / long jump to L0733 @@3674=5503
+ JMS I C0075 / long call to S0400 @@3675=4475
+ AND I C3711 / @@3676=0711
+ DCA I C3703 / @@3677=3703
+ JMS I C0077 / long call to S1111 @@3700=4477
+C3701, 7773 / CLA MQA SCA MQL SHL +
+ SKP / @@3702=7410
+C3703, 4253 / JMS S3653
+ JMS I C0067 / long call to S1412 @@3704=4467
+ DCA I C0062 / @@3705=3462
+ TAD D0131 / @@3706=1131
+ JMS I C0061 / long call to S1143 @@3707=4461
+ SKP / @@3710=7410
+C3711, 5503 / JMP I C0103
+ ISZ D0122 / @@3712=2122
+ JMP I C0103 / long jump to L0733 @@3713=5503
+L3714,
+ JMS I C0075 / long call to S0400 @@3714=4475
+ AND I C3711 / @@3715=0711
+C3716, 3720 / DCA I C3720
+ JMP I C0103 / long jump to L0733 @@3717=5503
+C3720, 4253 / JMS S3653
+ TAD D0131 / @@3721=1131
+ DCA D0110 / @@3722=3110
+ JMS I C0075 / long call to S0400 @@3723=4475
+ AND I C3711 / @@3724=0711
+ DCA I C3727 / @@3725=3727
+ JMP I C0103 / long jump to L0733 @@3726=5503
+C3727, 4253 / JMS S3653
+ TAD D0131 / @@3730=1131
+ DCA D0111 / @@3731=3111
+ JMS I C0075 / long call to S0400 @@3732=4475
+ AND I C3711 / @@3733=0711
+ DCA I C3736 / @@3734=3736
+ JMP I C0103 / long jump to L0733 @@3735=5503
+C3736, 4253 / JMS S3653
+ TAD D0131 / @@3737=1131
+ DCA D0112 / @@3740=3112
+ JMS I C0065 / long call to S1324 @@3741=4465
+ JMP L3714 / @@3742=5314
+ JMS I C0077 / long call to S1111 @@3743=4477
+C3744, 7773 / CLA MQA SCA MQL SHL +
+ JMS I C0075 / long call to S0400 @@3745=4475
+ AND I C3711 / @@3746=0711
+ DCA I C3703 / @@3747=3703
+ JMP I C0103 / long jump to L0733 @@3750=5503
+
+*4000
+ JMS I C0075 / long call to S0400 @@4000=4475
+C4001, 0002 / AND C0002
+ AND I C4103 / @@4002=0703
+ JMS I C0075 / long call to S0400 @@4003=4475
+C4004, 0716 / AND I C4116
+C4005, 0741 / AND I C4141
+ JMS I C0075 / long call to S0400 @@4006=4475
+ AND I C4111 / @@4007=0711
+C4010, 4070 / JMS C0070
+C4011, 4475 / JMS I C0075
+ TAD C0075 / @@4012=1075
+ NOP / @@4013=7000
+ TAD C0144 / @@4014=1144
+ DCA I C0172 / @@4015=3572
+ DCA D0105 / @@4016=3105
+L4017,
+ JMS S4053 / @@4017=4253
+ SZA / @@4020=7440
+ SKP / @@4021=7410
+L4022,
+ JMS S4053 / @@4022=4253
+ CIA / @@4023=7041
+ TAD C0153 / @@4024=1153
+ SZA CLA / @@4025=7640
+ JMP L4033 / @@4026=5233
+ JMS S4053 / @@4027=4253
+ SZA CLA / @@4030=7640
+ JMP L4042 / @@4031=5242
+ JMP L4022 / @@4032=5222
+L4033,
+ JMS I C0052 / long call to S1000 @@4033=4452
+C4034, 4052 / JMS C0052
+ TAD I C4004 / @@4035=1604
+L4036,
+ JMS I C0052 / long call to S1000 @@4036=4452
+C4037, 4074 / JMS C0074
+C4040, 1611 / TAD I C4011
+ JMP L4046 / @@4041=5246
+L4042,
+ JMS I C0052 / long call to S1000 @@4042=4452
+C4043, 4075 / JMS C0075
+ TAD I C4004 / @@4044=1604
+ JMP L4036 / @@4045=5236
+L4046,
+ JMS I C0051 / long call to S1050 @@4046=4451
+C4047, 4040 / JMS C0040
+ TAD I C4001 / @@4050=1601
+ JMP L4017 / @@4051=5217
+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 @@4054=4501
+C4055, 7665 / CLA SCA MQL MUY +
+ RFC / Clear reader flag and reader buffer, @@4056=6014
+ ION / Enable Interrupts @@4057=6001
+ JMS I C0102 / long call to S0411 @@4060=4502
+ IOF / Disable Interrupts @@4061=6002
+ RSF / Skip if reader flag is a 1. @@4062=6011
+ SKP / @@4063=7410
+ JMP L4070 / @@4064=5270
+ JMS I C0047 / long call to S0616 @@4065=4447
+C4066, 4076 / JMS C0076
+ JMP L4017 / @@4067=5217
+L4070,
+ RFB / Read the content of the reader buffe @@4070=6012
+ DCA D4074 / @@4071=3274
+ TAD D4074 / @@4072=1274
+ JMP I S4053 / return @@4073=5653
+D4074, 0000 / AND L0000
+ AND L0000 / @@4075=0000
+C4076, 0007 / AND C0007
+C4077, 0007 / AND C0007
+C4100, 0007 / AND C0007
+L4101,
+ AND L0001 / @@4101=0001
+ LAS / @@4102=7604
+C4103, 0153 / AND C0153
+ PLS / Clear the punch flag, clear the bunc @@4104=6026
+L4105,
+ PSF / Skip if punch flag is a 1 @@4105=6021
+ JMP L4105 / @@4106=5305
+ JMP L4101 / @@4107=5301
+ JMS I C0075 / long call to S0400 @@4110=4475
+C4111, 0105 / AND D0105
+ AND C0075 / @@4112=0075
+L4113,
+ STA / AC = 7777 (-0001) @@4113=7240
+ AND C0153 / @@4114=0153
+ JMS I C0056 / long call to S1207 @@4115=4456
+C4116, 4563 / JMS I C0163
+ CLA / @@4117=7200
+ JMS I C0056 / long call to S1207 @@4120=4456
+ JMS I C0163 / long call to S1125 @@4121=4563
+ JMP L4113 / @@4122=5313
+
+*4200
+L4200,
+ CLA / @@4200=7200
+ DCA D0123 / @@4201=3123
+ LAS / @@4202=7604
+ CLL RAL / @@4203=7104
+ SPA CLA / @@4204=7710
+ TAD C0143 / @@4205=1143
+ TAD C0142 / @@4206=1142
+ DCA D4232 / @@4207=3232
+ JMP L4220 / @@4210=5220
+L4211,
+ RFC / Clear reader flag and reader buffer, @@4211=6014
+L4212,
+ RSF / Skip if reader flag is a 1. @@4212=6011
+ JMP L4212 / @@4213=5212
+ ISZ D0122 / @@4214=2122
+ JMP L4222 / @@4215=5222
+ ISZ D0123 / @@4216=2123
+ NOP / @@4217=7000
+L4220,
+ TAD D4232 / @@4220=1232
+ DCA D0122 / @@4221=3122
+L4222,
+ LAS / @@4222=7604
+ SMA CLA / @@4223=7700
+ JMP L4211 / @@4224=5211
+ JMS I C0047 / long call to S0616 @@4225=4447
+ TAD I D0132 / @@4226=1532
+ JMS S4257 / @@4227=4257
+ HLT / @@4230=7402
+ JMP L4200 / @@4231=5200
+D4232, 0000 / AND L0000
+L4233,
+ CLA / @@4233=7200
+ DCA D0123 / @@4234=3123
+ JMP L4245 / @@4235=5245
+L4236,
+ PLS / Clear the punch flag, clear the bunc @@4236=6026
+L4237,
+ PSF / Skip if punch flag is a 1 @@4237=6021
+ JMP L4237 / @@4240=5237
+ ISZ D0122 / @@4241=2122
+ JMP L4247 / @@4242=5247
+ ISZ D0123 / @@4243=2123
+ NOP / @@4244=7000
+L4245,
+ TAD C0141 / @@4245=1141
+ DCA D0122 / @@4246=3122
+L4247,
+ LAS / @@4247=7604
+ SMA CLA / @@4250=7700
+ JMP L4236 / @@4251=5236
+ JMS I C0047 / long call to S0616 @@4252=4447
+D4253, 1543 / TAD I C0143
+ JMS S4257 / @@4254=4257
+ HLT / @@4255=7402
+ JMP L4233 / @@4256=5233
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S4257
+/
+/ Called from:
+/ 4227 4254
+/ Total 0002 (2) calls
+////////////////////////////////////////////////////////////////////////////////
+S4257,
+ 0 / return area
+ JMS S4265 / @@4260=4265
+ AND D0123 / @@4261=0123
+ JMS I C0047 / long call to S0616 @@4262=4447
+ TAD I C0154 / @@4263=1554
+ JMP I S4257 / return @@4264=5657
+
+////////////////////////////////////////////////////////////////////////////////
+/
+/ SUBROUTINE: S4265
+/
+/ Called from:
+/ 4260
+/ Total 0001 (1) calls
+////////////////////////////////////////////////////////////////////////////////
+S4265,
+ 0 / return area
+ JMS I C0075 / long call to S0400 @@4266=4475
+ JMS D4331 / @@4267=4331
+ SPA SNA SZL CLA OSR / @@4270=7774
+ TAD C4322 / @@4271=1322
+ DCA D4303 / @@4272=3303
+ TAD I S4265 / @@4273=1665
+ ISZ S4265 / @@4274=2265
+ DCA D4330 / @@4275=3330
+ TAD I D4330 / @@4276=1730
+ DCA D4327 / @@4277=3327
+L4300,
+ DCA D4330 / @@4300=3330
+L4301,
+ CLL / @@4301=7100
+ TAD D4327 / @@4302=1327
+D4303, 1323 / TAD C4323
+ SNL / @@4304=7420
+ JMP L4311 / @@4305=5311
+ ISZ D4330 / @@4306=2330
+ DCA D4327 / @@4307=3327
+ JMP L4301 / @@4310=5301
+L4311,
+ CLA / @@4311=7200
+ TAD D4330 / @@4312=1330
+ TAD C0140 / @@4313=1140
+ JMS I C0073 / long call to S0426 @@4314=4473
+ CLA CLL / AC = 0000 @@4315=7300
+ ISZ D4303 / @@4316=2303
+ ISZ D4331 / @@4317=2331
+ JMP L4300 / @@4320=5300
+ JMP I S4265 / return @@4321=5665
+C4322, 1323 / TAD C4323
+C4323, 6030 / 6030
+ SZL CLA OSR / @@4324=7634
+ SMA SZA SNL CLA OSR HLT / @@4325=7766
+C4326, 7777 / CLA MQA SCA MQL LSR +
+D4327, 0000 / AND L0000
+D4330, 0000 / AND L0000
+D4331, 0000 / AND L0000
+ CLA HLT / @@4332=7602
+L4333,
+ LAS / @@4333=7604
+ AND C0174 / @@4334=0174
+ CIA / @@4335=7041
+ DCA D0021 / @@4336=3021
+ LAS / @@4337=7604
+ AND C0137 / @@4340=0137
+ CLL RTL / @@4341=7106
+ RTL / @@4342=7006
+ RTL / @@4343=7006
+ CIA / @@4344=7041
+ DCA D4347 / @@4345=3347
+ JMS I C0077 / long call to S1111 @@4346=4477
+D4347, 0000 / AND L0000
+L4350,
+ RFC / Clear reader flag and reader buffer, @@4350=6014
+L4351,
+ RSF / Skip if reader flag is a 1. @@4351=6011
+ JMP L4351 / @@4352=5351
+ ISZ D0122 / @@4353=2122
+ JMP L4350 / @@4354=5350
+ JMS I C0102 / long call to S0411 @@4355=4502
+ JMP L4333 / @@4356=5333
+
+$