X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fmaindec%2Fpc8e%2Fmaindec-8e-d2ca-pb.pal;fp=sw%2Fmaindec%2Fpc8e%2Fmaindec-8e-d2ca-pb.pal;h=fa64964a317c4e85bad0a2d750fb1f2025f55df7;hb=07ec0278333ed187ac242dedcff13c56cf1b0b91;hp=0000000000000000000000000000000000000000;hpb=7af5ad59491ddf2066641aef1e0025a337c0f247;p=pdp8.git diff --git a/sw/maindec/pc8e/maindec-8e-d2ca-pb.pal b/sw/maindec/pc8e/maindec-8e-d2ca-pb.pal new file mode 100644 index 0000000..fa64964 --- /dev/null +++ b/sw/maindec/pc8e/maindec-8e-d2ca-pb.pal @@ -0,0 +1,2453 @@ +TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d2ca-pb.bin BY D8TAPE" +//////////////////////////////////////////////////////////////////////////////// +/ +/ Automatic Disassembly of maindec-8e-d2ca-pb.bin +/ Generated 2009 04 06 00:10:32 +/ Generated by d8tape version 0.351 +/ Visit http://www.pdp12.org/pdp8/software/index.html for updates +/ +/ Symbol format: +/ AIx -- Auto-index variables (address range 001x) +/ Caaaa -- Constants (non-unique) +/ Daaaa -- Data (read/write variables) +/ Kvvvv -- Program-wide unique constants +/ Laaaa -- Labels for control flow targets +/ Saaaa -- Subroutines +/ +/ Where: +/ aaaa is the definition address +/ vvvv is the value of the constant +/ x is the last digit of the address 001x for auto-index variables +/ +/ 3360 locations used, 2552 code and 0606 data +//////////////////////////////////////////////////////////////////////////////// + +*0000 +L0000, +D0000, 0000 / AND L0000 +L0001, +C0001, 5001 / JMP L0001 +C0002, 0002 / AND C0002 +D0003, 0003 / AND D0003 + +*0005 +D0005, 5402 / JMP I C0002 +C0006, 0000 / AND L0000 + +*0020 +D0020, 0000 / AND L0000 +D0021, 0000 / AND L0000 +D0022, 0000 / AND L0000 +D0023, 0000 / AND L0000 +D0024, 0000 / AND L0000 +C0025, +C0025, 0270 / AND C0070 +C0026, +C0026, 0333 / AND D0133 +C0027, +C0027, 0447 / AND I C0047 +D0030, 0000 / AND L0000 +C0031, 2000 / ISZ L0000 +D0032, 3000 / DCA L0000 + DCA I C0062 / @@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 + +$