TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d1ib-pb1.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-8e-d1ib-pb1.bin / Generated 2010 02 19 00:10:30 / 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 / / 1127 locations used, 0706 code and 0221 data //////////////////////////////////////////////////////////////////////////////// *0200 L0200, C0200, 7604 / LAS DCA D0335 / @@0201=3335 HLT / @@0202=7402 LAS / @@0203=7604 DCA D0336 / @@0204=3336 HLT / @@0205=7402 LAS / @@0206=7604 DCA D0337 / @@0207=3337 RIF / Same as RDF except reads the instruc @@0210=6224 TAD C0342 / @@0211=1342 DCA D0213 / @@0212=3213 D0213, 0000 / AND L0000 TAD D0335 / @@0214=1335 TAD C0340 / @@0215=1340 DCA D0341 / @@0216=3341 TAD D0344 / @@0217=1344 SZA CLA / @@0220=7640 JMS I C0377 / long call to S1000 @@0221=4777 JMS I C0376 / long call to S0520 @@0222=4776 L0223, C0223, 6007 / 6007 DCA D0344 / @@0224=3344 TAD I C0346 / @@0225=1746 DCA I C0375 / @@0226=3775 JMS I C0374 / long call to S0600 @@0227=4774 C0230, 2525 / ISZ I C0125 JMS I C0373 / long call to S0514 @@0231=4773 TAD I C0345 / @@0232=1745 DCA I C0375 / @@0233=3775 L0234, JMS I C0374 / long call to S0600 @@0234=4774 C0235, 2525 / ISZ I C0125 KSF / Skip if keyboard flag is a 1. @@0236=6031 JMP L0234 / @@0237=5234 CLA CLL / AC = 0000 @@0240=7300 TAD I C0346 / @@0241=1746 DCA I C0375 / @@0242=3775 JMS I C0374 / long call to S0600 @@0243=4774 JMP L0252 / @@0244=5252 JMS I C0373 / long call to S0514 @@0245=4773 TAD I C0345 / @@0246=1745 DCA I C0375 / @@0247=3775 L0250, JMS I C0374 / long call to S0600 @@0250=4774 JMP L0252 / @@0251=5252 L0252, KSF / Skip if keyboard flag is a 1. @@0252=6031 JMP L0250 / @@0253=5250 CLA CLL / AC = 0000 @@0254=7300 TAD I C0346 / @@0255=1746 DCA I C0375 / @@0256=3775 JMS I C0374 / long call to S0600 @@0257=4774 C0260, 2525 / ISZ I C0125 TAD C0343 / @@0261=1343 DCA I C0334 / @@0262=3734 TAD C0343 / @@0263=1343 DCA I D0341 / @@0264=3741 JMP I C0334 / long jump to L1640 @@0265=5734 CLA CLL / AC = 0000 @@0266=7300 TAD D0337 / @@0267=1337 SPA CLA / @@0270=7710 JMP L0274 / @@0271=5274 JMS I C0372 / long call to S0400 @@0272=4772 JMS I C0371 / long call to S0421 @@0273=4771 L0274, TAD I C0345 / @@0274=1745 DCA I C0375 / @@0275=3775 CLA CLL CML / @@0276=7320 JMS I C0374 / long call to S0600 @@0277=4774 C0300, 2525 / ISZ I C0125 JMS I C0370 / long call to S1023 @@0301=4770 JMS I C0367 / long call to S1043 @@0302=4767 TAD D0337 / @@0303=1337 RAL / @@0304=7004 SMA CLA / @@0305=7700 JMP L0311 / @@0306=5311 HLT / @@0307=7402 JMS I C0366 / long call to S1223 @@0310=4766 L0311, CLA CLL / AC = 0000 @@0311=7300 TAD I C0346 / @@0312=1746 DCA I C0375 / @@0313=3775 JMS I C0374 / long call to S0600 @@0314=4774 JMP L0252 / @@0315=5252 TAD C0343 / @@0316=1343 DCA I C0334 / @@0317=3734 TAD C0343 / @@0320=1343 DCA I D0341 / @@0321=3741 JMP I C0334 / long jump to L1640 @@0322=5734 CLA CLL / AC = 0000 @@0323=7300 TAD I C0345 / @@0324=1745 DCA I C0375 / @@0325=3775 CLA CLL CML / @@0326=7320 JMS I C0374 / long call to S0600 @@0327=4774 JMP L0252 / @@0330=5252 JMS I C0370 / long call to S1023 @@0331=4770 HLT / @@0332=7402 JMP L0223 / @@0333=5223 C0334, C0334, 1640 / TAD I C0240 D0335, 0000 / AND L0000 D0336, 0000 / AND L0000 D0337, 0000 / AND L0000 C0340, 0040 / AND C0040 D0341, 0000 / AND L0000 C0342, 6201 / CDF0 C0343, 7402 / HLT D0344, 7777 / CLA MQA SCA MQL LSR + C0345, 0760 / AND I C0360 C0346, 0761 / AND I C0361 *0366 C0366, C0366, 1223 / TAD L0223 C0367, C0367, 1043 / TAD C0043 C0370, C0370, 1023 / TAD C0023 C0371, C0371, 0421 / AND I C0021 C0372, C0372, 0400 / AND I L0000 C0373, C0373, 0514 / AND I C0114 C0374, C0374, 0600 / AND I L0200 C0375, 0743 / AND I C0343 C0376, C0376, 0520 / AND I C0120 C0377, C0377, 1000 / TAD L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0400 / / Called from: / 0272 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0400, 0 / return area TAD I C0577 / @@0401=1777 DCA D0564 / @@0402=3364 TAD I C0576 / @@0403=1776 CIA / @@0404=7041 DCA D0565 / @@0405=3365 TAD C0562 / @@0406=1362 DCA D0566 / @@0407=3366 L0410, TAD I D0564 / @@0410=1764 DCA I D0566 / @@0411=3766 ISZ D0564 / @@0412=2364 NOP / @@0413=7000 ISZ D0566 / @@0414=2366 NOP / @@0415=7000 ISZ D0565 / @@0416=2365 JMP L0410 / @@0417=5210 JMP I S0400 / return @@0420=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0421 / / Called from: / 0273 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0421, 0 / return area TAD C0560 / @@0422=1360 DCA D0564 / @@0423=3364 TAD C0561 / @@0424=1361 DCA D0565 / @@0425=3365 L0426, TAD I D0564 / @@0426=1764 JMS S0505 / @@0427=4305 ISZ D0564 / @@0430=2364 NOP / @@0431=7000 ISZ D0565 / @@0432=2365 JMP L0426 / @@0433=5226 TAD I C0577 / @@0434=1777 DCA D0564 / @@0435=3364 TAD I C0576 / @@0436=1776 CIA / @@0437=7041 DCA D0565 / @@0440=3365 L0441, TAD D0564 / @@0441=1364 JMS S0464 / @@0442=4264 TAD C0547 / @@0443=1347 DCA D0566 / @@0444=3366 L0445, TAD C0554 / @@0445=1354 JMS S0505 / @@0446=4305 ISZ D0566 / @@0447=2366 JMP L0445 / @@0450=5245 TAD I D0564 / @@0451=1764 JMS S0464 / @@0452=4264 TAD C0550 / @@0453=1350 JMS S0505 / @@0454=4305 TAD C0551 / @@0455=1351 JMS S0505 / @@0456=4305 ISZ D0564 / @@0457=2364 NOP / @@0460=7000 ISZ D0565 / @@0461=2365 JMP L0441 / @@0462=5241 JMP I S0421 / return @@0463=5621 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0464 / / Called from: / 0442 0452 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0464, 0 / return area CLL RTL / @@0465=7106 RTL / @@0466=7006 DCA D0563 / @@0467=3363 TAD C0547 / @@0470=1347 DCA D0567 / @@0471=3367 L0472, TAD D0563 / @@0472=1363 AND I C0575 / @@0473=0775 TAD C0553 / @@0474=1353 JMS S0505 / @@0475=4305 TAD D0563 / @@0476=1363 RTL / @@0477=7006 RAL / @@0500=7004 DCA D0563 / @@0501=3363 ISZ D0567 / @@0502=2367 JMP L0472 / @@0503=5272 JMP I S0464 / return @@0504=5664 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0505 / / Called from: / 0427 0446 0454 0456 0475 0516 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S0505, 0 / return area TLS / Load the TTO from the content of AC4 @@0506=6046 L0507, TSF / Skip if teleprinter flag is a 1. @@0507=6041 JMP L0507 / @@0510=5307 TCF / Clear teleprinter flag. @@0511=6042 KCC / Clear AC and clear keyboard flag. @@0512=6032 JMP I S0505 / return @@0513=5705 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0514 / / Called from: / 0231 0245 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0514, 0 / return area TAD C0552 / @@0515=1352 JMS S0505 / @@0516=4305 JMP I S0514 / return @@0517=5714 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0520 / / Called from: / 0222 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0520, 0 / return area CLA CLL / AC = 0000 @@0521=7300 TAD C0556 / @@0522=1356 CMA / @@0523=7040 TAD I C0577 / @@0524=1777 SZL CLA / @@0525=7630 JMP L0534 / @@0526=5334 TAD C0557 / @@0527=1357 CIA / @@0530=7041 TAD I C0574 / @@0531=1774 SZL CLA / @@0532=7630 JMP L0545 / @@0533=5345 L0534, TAD I C0577 / @@0534=1777 CIA / @@0535=7041 TAD I C0573 / @@0536=1773 SPA / @@0537=7510 JMP L0545 / @@0540=5345 CLL CMA CML IAC / @@0541=7161 TAD C0555 / @@0542=1355 SNL CLA / @@0543=7620 JMP I S0520 / return @@0544=5720 L0545, CLA HLT / @@0545=7602 JMP I C0572 / long jump to L0200 @@0546=5772 C0547, 7774 / SPA SNA SZL CLA OSR C0550, 0215 / AND C0415 C0551, 0212 / AND C0412 C0552, 0207 / AND C0407 C0553, 0260 / AND C0460 C0554, 0240 / AND C0440 C0555, 0037 / AND C0037 C0556, 1777 / TAD I C0577 C0557, 0177 / AND C0177 C0560, 1107 / TAD C0107 C0561, 7732 / SPA SZL CLA HLT C0562, 1600 / TAD I S0400 D0563, 0000 / AND L0000 D0564, 0000 / AND L0000 D0565, 0000 / AND L0000 D0566, 0000 / AND L0000 D0567, 0000 / AND L0000 *0572 C0572, C0572, 0200 / AND S0400 C0573, 0336 / AND C0536 C0574, 0341 / AND C0541 C0575, 0765 / AND I D0565 C0576, 0340 / AND C0540 C0577, 0335 / AND C0535 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0600 / / Called from: / 0227 0234 0243 0250 0257 0277 0314 0327 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S0600, 0 / return area TAD I C0777 / @@0601=1777 DCA D0746 / @@0602=3346 SZL CLA / @@0603=7630 JMP L0725 / @@0604=5325 TAD I C0776 / @@0605=1776 DCA D0745 / @@0606=3345 TAD C0762 / @@0607=1362 DCA D0744 / @@0610=3344 JMS S0742 / @@0611=4342 CLA CLL CMA / AC = 7777 (-0001) @@0612=7340 DCA D0745 / @@0613=3345 DCA D0744 / @@0614=3344 L0615, TAD I C0775 / @@0615=1775 AND C0765 / @@0616=0365 SNA / @@0617=7450 JMP L0640 / @@0620=5240 CMA / @@0621=7040 DCA D0763 / @@0622=3363 L0623, DCA D0766 / @@0623=3366 TAD D0766 / @@0624=1366 TAD I C0774 / @@0625=1774 DCA D0746 / @@0626=3346 RIF / Same as RDF except reads the instruc @@0627=6224 CIA / @@0630=7041 TAD D0766 / @@0631=1366 SZA CLA / @@0632=7640 JMS S0742 / @@0633=4342 TAD D0766 / @@0634=1366 TAD C0764 / @@0635=1364 ISZ D0763 / @@0636=2363 JMP L0623 / @@0637=5223 L0640, CLA CLL / AC = 0000 @@0640=7300 ISZ S0600 / @@0641=2200 JMP I S0600 / return @@0642=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0643 / / Never called //////////////////////////////////////////////////////////////////////////////// S0643, 0 / return area TAD I C0777 / @@0644=1777 DCA D0662 / @@0645=3262 TAD I S0643 / @@0646=1643 DCA D0767 / @@0647=3367 ISZ S0643 / @@0650=2243 TAD I S0643 / @@0651=1643 DCA D0770 / @@0652=3370 ISZ S0643 / @@0653=2243 TAD I S0643 / @@0654=1643 DCA D0660 / @@0655=3260 ISZ S0643 / @@0656=2243 L0657, TAD I S0600 / @@0657=1600 D0660, 0000 / AND L0000 DCA I D0767 / @@0661=3767 D0662, 0000 / AND L0000 JMS S0714 / @@0663=4314 JMP L0657 / @@0664=5257 JMP I S0643 / return @@0665=5643 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0666 / / Never called //////////////////////////////////////////////////////////////////////////////// S0666, 0 / return area TAD I C0777 / @@0667=1777 DCA D0710 / @@0670=3310 TAD I S0666 / @@0671=1666 DCA D0767 / @@0672=3367 ISZ S0666 / @@0673=2266 TAD I S0666 / @@0674=1666 DCA D0770 / @@0675=3370 ISZ S0666 / @@0676=2266 TAD I S0666 / @@0677=1666 DCA D0703 / @@0700=3303 ISZ S0666 / @@0701=2266 L0702, TAD I S0600 / @@0702=1600 D0703, 0000 / AND L0000 CIA / @@0704=7041 TAD I D0767 / @@0705=1767 SZA CLA / @@0706=7640 JMP L0750 / @@0707=5350 D0710, 0000 / AND L0000 JMS S0714 / @@0711=4314 JMP L0702 / @@0712=5302 JMP I S0666 / return @@0713=5666 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0714 / / Called from: / 0663 0711 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0714, 0 / return area TAD D0767 / @@0715=1367 CIA / @@0716=7041 TAD D0770 / @@0717=1370 SNA CLA / @@0720=7650 ISZ S0714 / @@0721=2314 ISZ D0767 / @@0722=2367 JMP I S0714 / return @@0723=5714 JMP I S0714 / return @@0724=5714 L0725, TAD C0762 / @@0725=1362 DCA D0744 / @@0726=3344 CLA CLL CMA / AC = 7777 (-0001) @@0727=7340 TAD I C0773 / @@0730=1773 DCA D0745 / @@0731=3345 JMS S0742 / @@0732=4342 CLA CLL IAC / AC = 0001 @@0733=7301 TAD I C0772 / @@0734=1772 DCA D0744 / @@0735=3344 TAD I C0776 / @@0736=1776 DCA D0745 / @@0737=3345 JMS S0742 / @@0740=4342 JMP L0615 / @@0741=5215 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0742 / / Called from: / 0611 0633 0732 0740 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0742, 0 / return area D0743, 0000 / AND L0000 D0744, 0000 / AND L0000 D0745, 0000 / AND L0000 D0746, 0000 / AND L0000 JMP I S0742 / return @@0747=5742 L0750, TAD D0767 / @@0750=1367 MQL / @@0751=7421 TAD I D0767 / @@0752=1767 HLT / @@0753=7402 CLA CLL / AC = 0000 @@0754=7300 TAD I S0600 / @@0755=1600 L0756, HLT / @@0756=7402 JMP L0756 / @@0757=5356 C0760, 4266 / JMS S0666 C0761, 4243 / JMS S0643 C0762, 1641 / TAD I C0641 D0763, 0000 / AND L0000 C0764, 0010 / AND AI0 C0765, 0007 / AND C0007 D0766, 0000 / AND L0000 D0767, 0000 / AND L0000 D0770, 0000 / AND L0000 *0772 C0772, 0341 / AND C0741 C0773, 0335 / AND C0735 C0774, 0342 / AND S0742 C0775, 0337 / AND C0737 C0776, 0557 / AND I C0157 C0777, 0213 / AND C0613 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1000 / / Called from: / 0221 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1000, 0 / return area TAD C1106 / @@1001=1306 DCA D1077 / @@1002=3277 TAD I C1177 / @@1003=1777 DCA D1015 / @@1004=3215 TAD C1105 / @@1005=1305 DCA D1100 / @@1006=3300 TAD I C1176 / @@1007=1776 AND C1104 / @@1010=0304 TAD I C1175 / @@1011=1775 C1012, 3213 / DCA L1013 L1013, D1013, 0000 / AND L0000 TAD I D1100 / @@1014=1700 D1015, 0000 / AND L0000 DCA I D1077 / @@1016=3677 ISZ D1077 / @@1017=2277 ISZ D1100 / @@1020=2300 JMP L1013 / @@1021=5213 JMP I S1000 / return @@1022=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1023 / / Called from: / 0301 0331 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1023, 0 / return area TAD I C1174 / @@1024=1774 DCA D1101 / @@1025=3301 TAD I D1101 / @@1026=1701 CIA / @@1027=7041 TAD I C1173 / @@1030=1773 SNA CLA / @@1031=7650 JMP I S1023 / return @@1032=5623 TAD D1101 / @@1033=1301 MQL / @@1034=7421 TAD I D1101 / @@1035=1701 HLT / @@1036=7402 CLA CLL / AC = 0000 @@1037=7300 C1040, 1773 / TAD I C1173 L1041, HLT / @@1041=7402 JMP L1041 / @@1042=5241 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1043 / / Called from: / 0302 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1043, 0 / return area TAD I C1172 / @@1044=1772 DCA D1101 / @@1045=3301 TAD I C1171 / @@1046=1771 DCA D1102 / @@1047=3302 TAD I C1170 / @@1050=1770 CIA / @@1051=7041 DCA D1103 / @@1052=3303 L1053, TAD I D1101 / @@1053=1701 CIA / @@1054=7041 C1055, 1702 / TAD I D1102 SZA CLA / @@1056=7640 JMP L1067 / @@1057=5267 ISZ D1101 / @@1060=2301 NOP / @@1061=7000 ISZ D1102 / @@1062=2302 NOP / @@1063=7000 ISZ D1103 / @@1064=2303 JMP L1053 / @@1065=5253 JMP I S1043 / return @@1066=5643 L1067, TAD D1102 / @@1067=1302 C1070, 7421 / MQL TAD I D1102 / @@1071=1702 HLT / @@1072=7402 CLA CLL / AC = 0000 @@1073=7300 TAD I D1101 / @@1074=1701 L1075, HLT / @@1075=7402 JMP L1075 / @@1076=5275 D1077, 0000 / AND L0000 D1100, 0000 / AND L0000 D1101, 0000 / AND L0000 D1102, 0000 / AND L0000 D1103, 0000 / AND L0000 C1104, 0070 / AND C0070 C1105, 7600 / 7600 C1106, 1400 / TAD I L0000 AND D1015 / @@1107=0215 AND C1012 / @@1110=0212 C1111, 0315 / AND C1115 AND C1111 / @@1112=0311 AND C1070 / @@1113=0270 AND C1055 / @@1114=0255 C1115, 0305 / AND C1105 AND C1040 / @@1116=0240 C1117, 0302 / AND D1102 C1120, 0317 / AND C1117 AND C1117 / @@1121=0317 C1122, 0324 / AND C1124 C1123, 0323 / AND C1123 C1124, 0324 / AND C1124 AND C1122 / @@1125=0322 AND D1101 / @@1126=0301 AND C1120 / @@1127=0320 AND C1040 / @@1130=0240 AND C1104 / @@1131=0304 AND D1101 / @@1132=0301 AND C1124 / @@1133=0324 AND D1101 / @@1134=0301 AND D1015 / @@1135=0215 AND C1012 / @@1136=0212 AND D1101 / @@1137=0301 AND C1104 / @@1140=0304 AND C1122 / @@1141=0322 AND C1123 / @@1142=0323 AND C1040 / @@1143=0240 AND C1040 / @@1144=0240 AND C1040 / @@1145=0240 AND C1040 / @@1146=0240 AND C1104 / @@1147=0304 AND D1101 / @@1150=0301 AND C1124 / @@1151=0324 AND D1101 / @@1152=0301 AND D1015 / @@1153=0215 AND C1012 / @@1154=0212 *1170 C1170, 0340 / AND C1140 C1171, 0335 / AND C1135 C1172, 1350 / TAD C1150 C1173, 0343 / AND C1143 C1174, 0341 / AND C1141 C1175, 0342 / AND C1142 C1176, 0337 / AND C1137 C1177, 0213 / AND L1013 TAD I C1377 / @@1200=1777 AND I C1376 / @@1201=0776 TAD I C1375 / @@1202=1775 DCA D1213 / @@1203=3213 TAD I C1374 / @@1204=1774 DCA D1215 / @@1205=3215 TAD I C1373 / @@1206=1773 DCA D1351 / @@1207=3351 TAD I C1372 / @@1210=1772 DCA D1352 / @@1211=3352 L1212, TAD I D1352 / @@1212=1752 D1213, 0000 / AND L0000 DCA I D1351 / @@1214=3751 D1215, 0000 / AND L0000 ISZ D1352 / @@1216=2352 ISZ D1351 / @@1217=2351 JMP L1212 / @@1220=5212 L1221, HLT / @@1221=7402 JMP L1221 / @@1222=5221 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1223 / / Called from: / 0310 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1223, 0 / return area CLA CLL / AC = 0000 @@1224=7300 DCA D1336 / @@1225=3336 TAD I C1377 / @@1226=1777 RTL / @@1227=7006 SMA CLA / @@1230=7700 JMP L1262 / @@1231=5262 TLS / Load the TTO from the content of AC4 @@1232=6046 L1233, JMS S1264 / @@1233=4264 TAD C1350 / @@1234=1350 DCA D1337 / @@1235=3337 TAD C1350 / @@1236=1350 TAD I C1371 / @@1237=1771 DCA D1340 / @@1240=3340 TAD D1337 / @@1241=1337 STL / @@1242=7120 L1243, JMS S1276 / @@1243=4276 TAD D1337 / @@1244=1337 CIA / @@1245=7041 TAD D1340 / @@1246=1340 SNA CLA / @@1247=7650 JMP L1255 / @@1250=5255 TAD I D1337 / @@1251=1737 CLL / @@1252=7100 ISZ D1337 / @@1253=2337 JMP L1243 / @@1254=5243 L1255, TAD D1336 / @@1255=1336 CLL / @@1256=7100 JMS S1276 / @@1257=4276 JMS S1264 / @@1260=4264 JMP I S1223 / return @@1261=5623 L1262, PLS / Clear the punch flag, clear the bunc @@1262=6026 JMP L1233 / @@1263=5233 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1264 / / Called from: / 1233 1260 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1264, 0 / return area CLA CLL / AC = 0000 @@1265=7300 TAD C1341 / @@1266=1341 DCA D1342 / @@1267=3342 TAD C1343 / @@1270=1343 L1271, JMS S1316 / @@1271=4316 ISZ D1342 / @@1272=2342 JMP L1271 / @@1273=5271 CLA CLL / AC = 0000 @@1274=7300 JMP I S1264 / return @@1275=5664 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1276 / / Called from: / 1243 1257 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1276, 0 / return area DCA D1344 / @@1277=3344 TAD D1344 / @@1300=1344 RTR / @@1301=7012 RTR / @@1302=7012 RTR / @@1303=7012 AND C1345 / @@1304=0345 JMS S1316 / @@1305=4316 TAD D1336 / @@1306=1336 DCA D1336 / @@1307=3336 TAD D1344 / @@1310=1344 AND C1346 / @@1311=0346 JMS S1316 / @@1312=4316 TAD D1336 / @@1313=1336 DCA D1336 / @@1314=3336 JMP I S1276 / return @@1315=5676 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1316 / / Called from: / 1271 1305 1312 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S1316, 0 / return area DCA D1347 / @@1317=3347 TAD I C1377 / @@1320=1777 RTL / @@1321=7006 SMA CLA / @@1322=7700 JMP L1331 / @@1323=5331 TAD D1347 / @@1324=1347 L1325, TSF / Skip if teleprinter flag is a 1. @@1325=6041 JMP L1325 / @@1326=5325 TLS / Load the TTO from the content of AC4 @@1327=6046 JMP I S1316 / return @@1330=5716 L1331, TAD D1347 / @@1331=1347 L1332, PSF / Skip if punch flag is a 1 @@1332=6021 JMP L1332 / @@1333=5332 PLS / Clear the punch flag, clear the bunc @@1334=6026 JMP I S1316 / return @@1335=5716 D1336, 0000 / AND L0000 D1337, 0000 / AND L0000 D1340, 0000 / AND L0000 C1341, 7566 / SMA SZA SNL OSR HLT D1342, 0000 / AND L0000 C1343, 0200 / AND C1200 D1344, 0000 / AND L0000 C1345, 0177 / AND C0177 C1346, 0077 / AND C0077 D1347, 0000 / AND L0000 C1350, 1600 / TAD I C1200 D1351, 0000 / AND L0000 D1352, 0000 / AND L0000 *1371 C1371, 0340 / AND D1340 C1372, 1106 / TAD C0106 C1373, 1105 / TAD C0105 C1374, 0213 / AND D1213 C1375, 0342 / AND D1342 C1376, 1104 / TAD C0104 C1377, 0337 / AND D1337 C1400, 1400 / TAD I L0000 *1600 C1600, 1600 / TAD I C1600 $