TITLE "AUTOMATIC DISASSEMBLY OF maindec-12-d0nb-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-12-d0nb-pb.bin / Generated 2010 02 19 00:10:28 / 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 / / 1746 locations used, 1515 code and 0231 data //////////////////////////////////////////////////////////////////////////////// *0001 C0001, 6552 / LDAD C0002, 5403 / JMP I D0003 D0003, 0000 / AND L0000 D0004, 0000 / AND L0000 *0020 C0020, 5421 / JMP I C0021 C0021, 0200 / AND L0000 C0022, 0001 / AND C0001 C0023, 0003 / AND D0003 C0024, 0007 / AND C0007 C0025, 0027 / AND C0027 C0026, 0100 / AND C0100 C0027, 0207 / AND C0007 C0030, 0212 / AND AI2 C0031, 0215 / AND AI5 C0032, 0260 / AND C0060 C0033, 0400 / AND I L0000 C0034, 1000 / TAD L0000 C0035, 1010 / TAD AI0 C0036, 1020 / TAD C0020 C0037, 1030 / TAD C0030 D0040, 1040 / TAD D0040 C0041, 1050 / TAD C0050 C0042, 1060 / TAD C0060 C0043, 1070 / TAD C0070 C0044, 1120 / TAD C0120 C0045, 1130 / TAD D0130 C0046, 2000 / ISZ L0000 C0047, 4000 / JMS L0000 C0050, 7602 / CLA HLT C0051, 7752 / SPA SNA CLA HLT C0052, 7757 / CLA MQA SCA LSR + C0053, 7764 / SMA SZA SNL CLA OSR C0054, 7765 / CLA MQA SCA MQL MUY + C0055, 7770 / SPA SNA SZL CLA C0056, 7774 / SPA SNA SZL CLA OSR C0057, 7776 / SPA SNA SZL CLA OSR HLT C0060, C0060, 0152 / AND C0152 C0061, C0061, 0140 / AND S0140 TAD I C0057 / @@0062=1657 C0063, C0063, 1600 / TAD I L0000 C0064, 2005 / ISZ C0005 C0065, 0100 / AND C0100 C0066, 2040 / ISZ D0040 C0067, 0173 / AND D0173 C0070, C0070, 0231 / AND C0031 C0071, C0071, 1700 / TAD I C0100 TAD I C0156 / @@0072=1756 TAD I C0171 / @@0073=1771 C0074, 0075 / AND C0075 C0075, 0000 / AND L0000 D0076, 0000 / AND L0000 C0077, 0107 / AND C0107 C0100, 0117 / AND C0117 C0101, 0000 / AND L0000 D0102, 0000 / AND L0000 D0103, 0000 / AND L0000 D0104, 0000 / AND L0000 D0105, 0000 / AND L0000 D0106, 0000 / AND L0000 C0107, 0000 / AND L0000 C0110, 0000 / AND L0000 C0111, 0000 / AND L0000 C0112, 0000 / AND L0000 C0113, 0000 / AND L0000 C0114, 0000 / AND L0000 C0115, 0000 / AND L0000 C0116, 0000 / AND L0000 C0117, 0000 / AND L0000 C0120, 0000 / AND L0000 C0121, 0000 / AND L0000 D0122, 0000 / AND L0000 D0123, 0000 / AND L0000 D0124, 0000 / AND L0000 D0125, 0000 / AND L0000 D0126, 0000 / AND L0000 D0127, 0000 / AND L0000 D0130, 0001 / AND C0001 D0131, 0000 / AND L0000 D0132, 0000 / AND L0000 D0133, 0000 / AND L0000 D0134, 0000 / AND L0000 D0135, 0002 / AND C0002 D0136, 0100 / AND C0100 D0137, 0770 / AND I C0170 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0140 / / Called from: / 0231 0342 0452 0566 0662 0773 1102 1220 1313 1401 1444 1503 / Total 0014 (12) calls //////////////////////////////////////////////////////////////////////////////// S0140, 0 / return area CLA CLL / AC = 0000 @@0141=7300 TAD C0052 / @@0142=1052 DCA D0122 / @@0143=3122 TAD C0065 / @@0144=1065 C0145, 3011 / DCA AI1 L0146, C0146, 3411 / DCA I AI1 ISZ D0122 / @@0147=2122 JMP L0146 / @@0150=5146 JMP I S0140 / return @@0151=5540 C0152, 0000 / AND L0000 CLA CLL / AC = 0000 @@0153=7300 TAD C0152 / @@0154=1152 DCA D0003 / @@0155=3003 C0156, 1067 / TAD C0067 DCA D0076 / @@0157=3076 TAD D0004 / @@0160=1004 DCA D0105 / @@0161=3105 ION / Enable Interrupts @@0162=6001 TAD C0074 / @@0163=1074 C0164, 6555 / 6555 HLT / @@0165=7402 L0166, C0166, 2105 / ISZ D0105 JMP L0166 / @@0167=5166 C0170, 6002 / IOF C0171, 5462 / JMP I C0062 *0173 D0173, 0000 / AND L0000 D0174, 0000 / AND L0000 C0175, 0000 / AND L0000 C0176, 0000 / AND L0000 C0177, 0000 / AND L0000 LAS / @@0200=7604 AND C0022 / @@0201=0022 SNA / @@0202=7450 JMP L0210 / @@0203=5210 CLA CLL / AC = 0000 @@0204=7300 TAD C0051 / @@0205=1051 DCA D0004 / @@0206=3004 JMP L0212 / @@0207=5212 L0210, TAD C0054 / @@0210=1054 DCA D0004 / @@0211=3004 L0212, LAS / @@0212=7604 AND C0047 / @@0213=0047 DCA D0134 / @@0214=3134 TAD D0134 / @@0215=1134 SZA / @@0216=7440 HLT / @@0217=7402 CLA CLL / AC = 0000 @@0220=7300 TAD C0066 / @@0221=1066 DCA D0122 / @@0222=3122 L0223, DCA I D0122 / @@0223=3522 ISZ D0122 / @@0224=2122 JMP L0223 / @@0225=5223 LDAD / (AA05/AA07) The address register in @@0226=6552 TAD C0033 / @@0227=1033 C0230, 6553 / 6553 L0231, JMS I C0061 / long call to S0140 @@0231=4461 TAD C0034 / @@0232=1034 DCA D0173 / @@0233=3173 JMS I C0063 / long call to S1600 @@0234=4463 DCA D0174 / @@0235=3174 TAD D0126 / @@0236=1126 DCA D0102 / @@0237=3102 TAD D0127 / @@0240=1127 DCA D0103 / @@0241=3103 TAD D0130 / @@0242=1130 DCA D0104 / @@0243=3104 JMS I C0060 / long call to S0152 @@0244=4460 CLA CLL / AC = 0000 @@0245=7300 TAD D0102 / @@0246=1102 CIA / @@0247=7041 TAD D0126 / @@0250=1126 SZA / @@0251=7440 HLT / @@0252=7402 TAD D0103 / @@0253=1103 CIA / @@0254=7041 TAD D0127 / @@0255=1127 SZA / @@0256=7440 HLT / @@0257=7402 TAD D0104 / @@0260=1104 CIA / @@0261=7041 TAD D0130 / @@0262=1130 SZA / @@0263=7440 HLT / @@0264=7402 TAD D0103 / @@0265=1103 SZA / @@0266=7440 JMP L0304 / @@0267=5304 TAD D0104 / @@0270=1104 SZA / @@0271=7440 JMP L0304 / @@0272=5304 TAD D0106 / @@0273=1106 IAC / @@0274=7001 CIA / @@0275=7041 TAD D0076 / @@0276=1076 SNA / @@0277=7450 JMP L0314 / @@0300=5314 CLA CLL / AC = 0000 @@0301=7300 TAD D0076 / @@0302=1076 HLT / @@0303=7402 L0304, CLA CLL / AC = 0000 @@0304=7300 TAD D0076 / @@0305=1076 TAD C0050 / @@0306=1050 SNA / @@0307=7450 JMP L0314 / @@0310=5314 CLA CLL / AC = 0000 @@0311=7300 TAD D0076 / @@0312=1076 HLT / @@0313=7402 L0314, TAD D0124 / @@0314=1124 SZA / @@0315=7440 JMP L0336 / @@0316=5336 CLL / @@0317=7100 TAD D0130 / @@0320=1130 RAL / @@0321=7004 DCA D0130 / @@0322=3130 TAD D0127 / @@0323=1127 RAL / @@0324=7004 DCA D0127 / @@0325=3127 TAD D0126 / @@0326=1126 RAL / @@0327=7004 DCA D0126 / @@0330=3126 SNL / @@0331=7420 JMP L0231 / @@0332=5231 TAD C0033 / @@0333=1033 DCA D0124 / @@0334=3124 JMP L0231 / @@0335=5231 L0336, CLA CLL / AC = 0000 @@0336=7300 IAC / @@0337=7001 DCA D0130 / @@0340=3130 DCA D0124 / @@0341=3124 L0342, JMS I C0061 / long call to S0140 @@0342=4461 TAD C0035 / @@0343=1035 DCA D0173 / @@0344=3173 JMS I C0063 / long call to S1600 @@0345=4463 DCA D0174 / @@0346=3174 TAD D0126 / @@0347=1126 DCA D0102 / @@0350=3102 TAD D0127 / @@0351=1127 DCA D0103 / @@0352=3103 TAD D0130 / @@0353=1130 DCA D0104 / @@0354=3104 JMS I C0060 / long call to S0152 @@0355=4460 CLA CLL / AC = 0000 @@0356=7300 TAD D0102 / @@0357=1102 CIA / @@0360=7041 TAD D0126 / @@0361=1126 SZA / @@0362=7440 HLT / @@0363=7402 TAD D0103 / @@0364=1103 CIA / @@0365=7041 TAD D0127 / @@0366=1127 SZA / @@0367=7440 HLT / @@0370=7402 TAD D0104 / @@0371=1104 CIA / @@0372=7041 TAD D0130 / @@0373=1130 SZA / @@0374=7440 HLT / @@0375=7402 TAD D0103 / @@0376=1103 SPA / @@0377=7510 JMP L0413 / @@0400=5213 CLA CLL / AC = 0000 @@0401=7300 TAD D0106 / @@0402=1106 IAC / @@0403=7001 CIA / @@0404=7041 TAD D0076 / @@0405=1076 SNA / @@0406=7450 JMP L0423 / @@0407=5223 CLA CLL / AC = 0000 @@0410=7300 TAD D0076 / @@0411=1076 HLT / @@0412=7402 L0413, CLA CLL / AC = 0000 @@0413=7300 TAD D0076 / @@0414=1076 TAD C0050 / @@0415=1050 SNA / @@0416=7450 JMP L0423 / @@0417=5223 CLA CLL / AC = 0000 @@0420=7300 TAD D0076 / @@0421=1076 HLT / @@0422=7402 L0423, TAD D0124 / @@0423=1124 SZA / @@0424=7440 JMP L0446 / @@0425=5246 CLL / @@0426=7100 TAD D0130 / @@0427=1130 RAL / @@0430=7004 DCA D0130 / @@0431=3130 TAD D0127 / @@0432=1127 RAL / @@0433=7004 DCA D0127 / @@0434=3127 TAD D0126 / @@0435=1126 RAL / @@0436=7004 DCA D0126 / @@0437=3126 SNL / @@0440=7420 JMP I C0445 / long jump to L0342 @@0441=5645 TAD C0033 / @@0442=1033 DCA D0124 / @@0443=3124 JMP I C0445 / long jump to L0342 @@0444=5645 C0445, C0445, 0342 / AND C0542 L0446, CLA CLL / AC = 0000 @@0446=7300 IAC / @@0447=7001 DCA D0130 / @@0450=3130 DCA D0124 / @@0451=3124 L0452, JMS I C0061 / long call to S0140 @@0452=4461 TAD C0036 / @@0453=1036 DCA D0173 / @@0454=3173 JMS I C0063 / long call to S1600 @@0455=4463 DCA D0174 / @@0456=3174 TAD D0126 / @@0457=1126 DCA D0102 / @@0460=3102 TAD D0127 / @@0461=1127 DCA D0103 / @@0462=3103 TAD D0130 / @@0463=1130 DCA D0104 / @@0464=3104 JMS I C0060 / long call to S0152 @@0465=4460 CLA CLL / AC = 0000 @@0466=7300 TAD D0102 / @@0467=1102 CIA / @@0470=7041 TAD D0126 / @@0471=1126 SZA / @@0472=7440 HLT / @@0473=7402 TAD D0103 / @@0474=1103 CIA / @@0475=7041 TAD D0127 / @@0476=1127 SZA / @@0477=7440 HLT / @@0500=7402 TAD D0104 / @@0501=1104 CIA / @@0502=7041 TAD D0130 / @@0503=1130 SZA / @@0504=7440 HLT / @@0505=7402 TAD D0103 / @@0506=1103 SMA / @@0507=7500 JMP L0512 / @@0510=5312 JMP L0517 / @@0511=5317 L0512, SZA / @@0512=7440 JMP L0531 / @@0513=5331 TAD D0104 / @@0514=1104 SZA / @@0515=7440 JMP L0531 / @@0516=5331 L0517, CLA CLL / AC = 0000 @@0517=7300 TAD D0106 / @@0520=1106 IAC / @@0521=7001 CIA / @@0522=7041 TAD D0076 / @@0523=1076 SNA / @@0524=7450 JMP L0541 / @@0525=5341 CLA CLL / AC = 0000 @@0526=7300 TAD D0076 / @@0527=1076 HLT / @@0530=7402 L0531, CLA CLL / AC = 0000 @@0531=7300 TAD D0076 / @@0532=1076 TAD C0050 / @@0533=1050 SNA / @@0534=7450 JMP L0541 / @@0535=5341 CLA CLL / AC = 0000 @@0536=7300 TAD D0076 / @@0537=1076 HLT / @@0540=7402 L0541, TAD D0124 / @@0541=1124 C0542, 7440 / SZA JMP L0563 / @@0543=5363 CLL / @@0544=7100 TAD D0130 / @@0545=1130 RAL / @@0546=7004 DCA D0130 / @@0547=3130 TAD D0127 / @@0550=1127 RAL / @@0551=7004 DCA D0127 / @@0552=3127 TAD D0126 / @@0553=1126 RAL / @@0554=7004 DCA D0126 / @@0555=3126 SNL / @@0556=7420 JMP L0452 / @@0557=5252 TAD C0033 / @@0560=1033 DCA D0124 / @@0561=3124 JMP L0452 / @@0562=5252 L0563, CLA CLL IAC / AC = 0001 @@0563=7301 DCA D0130 / @@0564=3130 DCA D0124 / @@0565=3124 L0566, JMS I C0061 / long call to S0140 @@0566=4461 TAD C0037 / @@0567=1037 DCA D0173 / @@0570=3173 JMS I C0063 / long call to S1600 @@0571=4463 DCA D0174 / @@0572=3174 TAD D0126 / @@0573=1126 DCA D0102 / @@0574=3102 TAD D0127 / @@0575=1127 DCA D0103 / @@0576=3103 TAD D0130 / @@0577=1130 DCA D0104 / @@0600=3104 JMS I C0060 / long call to S0152 @@0601=4460 CLA CLL / AC = 0000 @@0602=7300 TAD D0102 / @@0603=1102 CIA / @@0604=7041 TAD D0126 / @@0605=1126 SZA / @@0606=7440 HLT / @@0607=7402 TAD D0103 / @@0610=1103 CIA / @@0611=7041 TAD D0127 / @@0612=1127 SZA / @@0613=7440 HLT / @@0614=7402 TAD D0104 / @@0615=1104 CIA / @@0616=7041 TAD D0130 / @@0617=1130 SZA / @@0620=7440 HLT / @@0621=7402 CLA CLL / AC = 0000 @@0622=7300 TAD D0106 / @@0623=1106 IAC / @@0624=7001 CIA / @@0625=7041 TAD D0076 / @@0626=1076 SNA / @@0627=7450 JMP L0634 / @@0630=5234 CLA CLL / AC = 0000 @@0631=7300 TAD D0076 / @@0632=1076 HLT / @@0633=7402 L0634, TAD D0124 / @@0634=1124 SZA / @@0635=7440 JMP L0657 / @@0636=5257 CLL / @@0637=7100 TAD D0130 / @@0640=1130 RAL / @@0641=7004 DCA D0130 / @@0642=3130 TAD D0127 / @@0643=1127 RAL / @@0644=7004 DCA D0127 / @@0645=3127 TAD D0126 / @@0646=1126 RAL / @@0647=7004 DCA D0126 / @@0650=3126 SNL / @@0651=7420 JMP I C0656 / long jump to L0566 @@0652=5656 TAD C0033 / @@0653=1033 DCA D0124 / @@0654=3124 JMP I C0656 / long jump to L0566 @@0655=5656 C0656, C0656, 0566 / AND I L0166 L0657, CLA CLL IAC / AC = 0001 @@0657=7301 DCA D0130 / @@0660=3130 DCA D0124 / @@0661=3124 L0662, JMS I C0061 / long call to S0140 @@0662=4461 TAD D0040 / @@0663=1040 DCA D0173 / @@0664=3173 JMS I C0063 / long call to S1600 @@0665=4463 DCA D0174 / @@0666=3174 TAD D0126 / @@0667=1126 DCA D0102 / @@0670=3102 TAD D0127 / @@0671=1127 DCA D0103 / @@0672=3103 TAD D0130 / @@0673=1130 DCA D0104 / @@0674=3104 JMS I C0060 / long call to S0152 @@0675=4460 CLA CLL / AC = 0000 @@0676=7300 TAD D0102 / @@0677=1102 CIA / @@0700=7041 TAD D0126 / @@0701=1126 SZA / @@0702=7440 HLT / @@0703=7402 TAD D0103 / @@0704=1103 CIA / @@0705=7041 TAD D0127 / @@0706=1127 SZA / @@0707=7440 HLT / @@0710=7402 TAD D0104 / @@0711=1104 CIA / @@0712=7041 TAD D0130 / @@0713=1130 SZA / @@0714=7440 HLT / @@0715=7402 TAD D0103 / @@0716=1103 SZA / @@0717=7440 JMP L0724 / @@0720=5324 TAD D0104 / @@0721=1104 SNA / @@0722=7450 JMP L0736 / @@0723=5336 L0724, CLA CLL / AC = 0000 @@0724=7300 TAD D0106 / @@0725=1106 IAC / @@0726=7001 CIA / @@0727=7041 TAD D0076 / @@0730=1076 SNA / @@0731=7450 JMP L0746 / @@0732=5346 CLA CLL / AC = 0000 @@0733=7300 TAD D0076 / @@0734=1076 HLT / @@0735=7402 L0736, CLA CLL / AC = 0000 @@0736=7300 TAD D0076 / @@0737=1076 TAD C0050 / @@0740=1050 SNA / @@0741=7450 JMP L0746 / @@0742=5346 CLA CLL / AC = 0000 @@0743=7300 TAD D0076 / @@0744=1076 HLT / @@0745=7402 L0746, TAD D0124 / @@0746=1124 SZA / @@0747=7440 JMP L0770 / @@0750=5370 CLL / @@0751=7100 TAD D0130 / @@0752=1130 RAL / @@0753=7004 DCA D0130 / @@0754=3130 TAD D0127 / @@0755=1127 RAL / @@0756=7004 DCA D0127 / @@0757=3127 TAD D0126 / @@0760=1126 RAL / @@0761=7004 DCA D0126 / @@0762=3126 SNL / @@0763=7420 JMP L0662 / @@0764=5262 TAD C0033 / @@0765=1033 DCA D0124 / @@0766=3124 JMP L0662 / @@0767=5262 L0770, CLA CLL IAC / AC = 0001 @@0770=7301 DCA D0130 / @@0771=3130 DCA D0124 / @@0772=3124 L0773, JMS I C0061 / long call to S0140 @@0773=4461 TAD C0041 / @@0774=1041 DCA D0173 / @@0775=3173 JMS I C0063 / long call to S1600 @@0776=4463 DCA D0174 / @@0777=3174 TAD D0126 / @@1000=1126 DCA D0102 / @@1001=3102 TAD D0127 / @@1002=1127 DCA D0103 / @@1003=3103 TAD D0130 / @@1004=1130 DCA D0104 / @@1005=3104 JMS I C0060 / long call to S0152 @@1006=4460 CLA CLL / AC = 0000 @@1007=7300 TAD D0102 / @@1010=1102 CIA / @@1011=7041 TAD D0126 / @@1012=1126 SZA / @@1013=7440 HLT / @@1014=7402 C1015, 1103 / TAD D0103 CIA / @@1016=7041 TAD D0127 / @@1017=1127 SZA / @@1020=7440 HLT / @@1021=7402 TAD D0104 / @@1022=1104 CIA / @@1023=7041 TAD D0130 / @@1024=1130 SZA / @@1025=7440 HLT / @@1026=7402 TAD D0103 / @@1027=1103 SMA / @@1030=7500 JMP L1044 / @@1031=5244 CLA CLL / AC = 0000 @@1032=7300 TAD D0106 / @@1033=1106 IAC / @@1034=7001 CIA / @@1035=7041 TAD D0076 / @@1036=1076 SNA / @@1037=7450 JMP L1054 / @@1040=5254 CLA CLL / AC = 0000 @@1041=7300 TAD D0076 / @@1042=1076 HLT / @@1043=7402 L1044, CLA CLL / AC = 0000 @@1044=7300 TAD D0076 / @@1045=1076 TAD C0050 / @@1046=1050 SNA / @@1047=7450 JMP L1054 / @@1050=5254 CLA CLL / AC = 0000 @@1051=7300 TAD D0076 / @@1052=1076 HLT / @@1053=7402 L1054, TAD D0124 / @@1054=1124 SZA / @@1055=7440 JMP L1077 / @@1056=5277 CLL / @@1057=7100 TAD D0130 / @@1060=1130 RAL / @@1061=7004 DCA D0130 / @@1062=3130 TAD D0127 / @@1063=1127 RAL / @@1064=7004 DCA D0127 / @@1065=3127 TAD D0126 / @@1066=1126 C1067, 7004 / RAL DCA D0126 / @@1070=3126 SNL / @@1071=7420 JMP I C1076 / long jump to L0773 @@1072=5676 TAD C0033 / @@1073=1033 DCA D0124 / @@1074=3124 JMP I C1076 / long jump to L0773 @@1075=5676 C1076, C1076, 0773 / AND I C1173 L1077, CLA CLL IAC / AC = 0001 @@1077=7301 DCA D0130 / @@1100=3130 DCA D0124 / @@1101=3124 L1102, JMS I C0061 / long call to S0140 @@1102=4461 TAD C0042 / @@1103=1042 DCA D0173 / @@1104=3173 JMS I C0063 / long call to S1600 @@1105=4463 DCA D0174 / @@1106=3174 TAD D0126 / @@1107=1126 DCA D0102 / @@1110=3102 TAD D0127 / @@1111=1127 DCA D0103 / @@1112=3103 TAD D0130 / @@1113=1130 DCA D0104 / @@1114=3104 JMS I C0060 / long call to S0152 @@1115=4460 CLA CLL / AC = 0000 @@1116=7300 TAD D0102 / @@1117=1102 CIA / @@1120=7041 TAD D0126 / @@1121=1126 SZA / @@1122=7440 HLT / @@1123=7402 TAD D0103 / @@1124=1103 CIA / @@1125=7041 TAD D0127 / @@1126=1127 SZA / @@1127=7440 HLT / @@1130=7402 TAD D0104 / @@1131=1104 CIA / @@1132=7041 TAD D0130 / @@1133=1130 SZA / @@1134=7440 HLT / @@1135=7402 TAD D0103 / @@1136=1103 SPA / @@1137=7510 JMP L1161 / @@1140=5361 SZA / @@1141=7440 JMP L1146 / @@1142=5346 TAD D0104 / @@1143=1104 SNA / @@1144=7450 JMP L1161 / @@1145=5361 L1146, CLA CLL / AC = 0000 @@1146=7300 TAD D0106 / @@1147=1106 IAC / @@1150=7001 CIA / @@1151=7041 TAD D0076 / @@1152=1076 SNA / @@1153=7450 JMP I C1160 / long jump to L1172 @@1154=5760 CLA CLL / AC = 0000 @@1155=7300 TAD D0076 / @@1156=1076 HLT / @@1157=7402 C1160, C1160, 1172 / TAD C0172 L1161, CLA CLL / AC = 0000 @@1161=7300 TAD D0076 / @@1162=1076 TAD C0050 / @@1163=1050 SNA / @@1164=7450 JMP L1172 / @@1165=5372 CLA CLL / AC = 0000 @@1166=7300 TAD D0076 / @@1167=1076 HLT / @@1170=7402 C1171, C1171, 1215 / TAD C1015 L1172, TAD D0124 / @@1172=1124 C1173, 7440 / SZA JMP I C1171 / long jump to L1215 @@1174=5771 CLL / @@1175=7100 TAD D0130 / @@1176=1130 RAL / @@1177=7004 DCA D0130 / @@1200=3130 TAD D0127 / @@1201=1127 RAL / @@1202=7004 DCA D0127 / @@1203=3127 TAD D0126 / @@1204=1126 RAL / @@1205=7004 DCA D0126 / @@1206=3126 SNL / @@1207=7420 JMP I C1214 / long jump to L1102 @@1210=5614 TAD C0033 / @@1211=1033 DCA D0124 / @@1212=3124 JMP I C1214 / long jump to L1102 @@1213=5614 C1214, C1214, 1102 / TAD D0102 L1215, CLA CLL IAC / AC = 0001 @@1215=7301 DCA D0130 / @@1216=3130 DCA D0124 / @@1217=3124 L1220, JMS I C0061 / long call to S0140 @@1220=4461 TAD C0043 / @@1221=1043 DCA D0173 / @@1222=3173 JMS I C0063 / long call to S1600 @@1223=4463 DCA D0174 / @@1224=3174 TAD D0126 / @@1225=1126 DCA D0102 / @@1226=3102 JMS I C0060 / long call to S0152 @@1227=4460 CLA CLL / AC = 0000 @@1230=7300 TAD D0102 / @@1231=1102 CIA / @@1232=7041 TAD D0126 / @@1233=1126 SZA / @@1234=7440 HLT / @@1235=7402 TAD D0102 / @@1236=1102 SPA / @@1237=7510 JMP L1257 / @@1240=5257 CIA / @@1241=7041 TAD C0025 / @@1242=1025 SMA / @@1243=7500 JMP L1257 / @@1244=5257 CLA CLL / AC = 0000 @@1245=7300 TAD D0106 / @@1246=1106 IAC / @@1247=7001 CIA / @@1250=7041 TAD D0076 / @@1251=1076 SNA / @@1252=7450 JMP L1267 / @@1253=5267 CLA CLL / AC = 0000 @@1254=7300 TAD D0076 / @@1255=1076 HLT / @@1256=7402 L1257, CLA CLL / AC = 0000 @@1257=7300 TAD D0076 / @@1260=1076 TAD C0050 / @@1261=1050 SNA / @@1262=7450 JMP L1267 / @@1263=5267 CLA CLL / AC = 0000 @@1264=7300 TAD D0076 / @@1265=1076 HLT / @@1266=7402 L1267, ISZ D0126 / @@1267=2126 JMP L1220 / @@1270=5220 CLA CLL / AC = 0000 @@1271=7300 TAD C0057 / @@1272=1057 DCA D0123 / @@1273=3123 DCA D0133 / @@1274=3133 L1275, TAD C0055 / @@1275=1055 DCA D0132 / @@1276=3132 L1277, TAD D0132 / @@1277=1132 AND C0024 / @@1300=0024 TAD C0077 / @@1301=1077 DCA D0125 / @@1302=3125 TAD D0132 / @@1303=1132 AND C0024 / @@1304=0024 CLL / @@1305=7100 RAL / @@1306=7004 RTL / @@1307=7006 TAD C0046 / @@1310=1046 TAD D0133 / @@1311=1133 DCA D0173 / @@1312=3173 L1313, JMS I C0061 / long call to S0140 @@1313=4461 JMS I C0063 / long call to S1600 @@1314=4463 DCA D0174 / @@1315=3174 TAD D0131 / @@1316=1131 DCA I D0125 / @@1317=3525 JMS I C0060 / long call to S0152 @@1320=4460 CLA / @@1321=7200 TAD D0173 / @@1322=1173 AND C0026 / @@1323=0026 CIA / @@1324=7041 TAD D0133 / @@1325=1133 SZA / @@1326=7440 HLT / @@1327=7402 TAD D0133 / @@1330=1133 SZA / @@1331=7440 CLA CLL IAC / AC = 0001 @@1332=7301 TAD D0131 / @@1333=1131 CIA / @@1334=7041 TAD I D0125 / @@1335=1525 SZA / @@1336=7440 HLT / @@1337=7402 TAD I D0125 / @@1340=1525 SNA / @@1341=7450 JMP L1355 / @@1342=5355 CLA CLL / AC = 0000 @@1343=7300 TAD D0106 / @@1344=1106 IAC / @@1345=7001 CIA / @@1346=7041 TAD D0076 / @@1347=1076 SNA / @@1350=7450 JMP L1365 / @@1351=5365 CLA CLL / AC = 0000 @@1352=7300 TAD D0076 / @@1353=1076 HLT / @@1354=7402 L1355, CLA CLL / AC = 0000 @@1355=7300 TAD D0076 / @@1356=1076 TAD C0050 / @@1357=1050 SNA / @@1360=7450 JMP L1365 / @@1361=5365 CLA CLL / AC = 0000 @@1362=7300 TAD D0076 / @@1363=1076 HLT / @@1364=7402 L1365, ISZ D0131 / @@1365=2131 JMP L1313 / @@1366=5313 ISZ D0132 / @@1367=2132 JMP L1277 / @@1370=5277 TAD C0026 / @@1371=1026 DCA D0133 / @@1372=3133 ISZ D0123 / @@1373=2123 JMP L1275 / @@1374=5275 JMP L1376 / @@1375=5376 L1376, CLA CLL / AC = 0000 @@1376=7300 TAD C0045 / @@1377=1045 DCA D0173 / @@1400=3173 L1401, JMS I C0061 / long call to S0140 @@1401=4461 JMS I C0063 / long call to S1600 @@1402=4463 DCA D0174 / @@1403=3174 JMS I C0060 / long call to S0152 @@1404=4460 CLA CLL / AC = 0000 @@1405=7300 TAD D0106 / @@1406=1106 IAC / @@1407=7001 CIA / @@1410=7041 TAD D0076 / @@1411=1076 SZA / @@1412=7440 HLT / @@1413=7402 TAD C0100 / @@1414=1100 IAC / @@1415=7001 DCA D0105 / @@1416=3105 TAD I D0105 / @@1417=1505 CIA / @@1420=7041 TAD C0037 / @@1421=1037 SZA / @@1422=7440 HLT / @@1423=7402 TAD C0100 / @@1424=1100 IAC / @@1425=7001 IAC / @@1426=7001 DCA D0105 / @@1427=3105 TAD C0067 / @@1430=1067 IAC / @@1431=7001 IAC / @@1432=7001 CIA / @@1433=7041 TAD I D0105 / @@1434=1505 SZA / @@1435=7440 HLT / @@1436=7402 ISZ D0123 / @@1437=2123 JMP L1401 / @@1440=5201 CLA CLL / AC = 0000 @@1441=7300 TAD C0044 / @@1442=1044 DCA D0173 / @@1443=3173 L1444, JMS I C0061 / long call to S0140 @@1444=4461 JMS I C0063 / long call to S1600 @@1445=4463 DCA D0174 / @@1446=3174 JMS I C0060 / long call to S0152 @@1447=4460 CLA CLL / AC = 0000 @@1450=7300 TAD D0106 / @@1451=1106 TAD C0023 / @@1452=1023 CIA / @@1453=7041 TAD D0076 / @@1454=1076 SZA / @@1455=7440 HLT / @@1456=7402 TAD C0037 / @@1457=1037 CIA / @@1460=7041 TAD I D0106 / @@1461=1506 SZA / @@1462=7440 HLT / @@1463=7402 DCA I D0106 / @@1464=3506 ISZ D0106 / @@1465=2106 TAD C0067 / @@1466=1067 IAC / @@1467=7001 IAC / @@1470=7001 CIA / @@1471=7041 TAD I D0106 / @@1472=1506 SZA / @@1473=7440 HLT / @@1474=7402 DCA I D0106 / @@1475=3506 ISZ D0123 / @@1476=2123 JMP L1444 / @@1477=5244 CLA CLL / AC = 0000 @@1500=7300 TAD C0024 / @@1501=1024 DCA D0173 / @@1502=3173 L1503, JMS I C0061 / long call to S0140 @@1503=4461 JMS I C0063 / long call to S1600 @@1504=4463 DCA D0104 / @@1505=3104 JMS I C0060 / long call to S0152 @@1506=4460 CLA CLL / AC = 0000 @@1507=7300 TAD D0106 / @@1510=1106 IAC / @@1511=7001 CIA / @@1512=7041 TAD D0076 / @@1513=1076 SZA / @@1514=7440 HLT / @@1515=7402 ISZ D0123 / @@1516=2123 JMP L1503 / @@1517=5303 TAD C0027 / @@1520=1027 JMS I C0071 / long call to S1700 @@1521=4471 JMP I C0070 / long jump to L0231 @@1522=5470 *1600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1600 / / Called from: / 0234 0345 0455 0571 0665 0776 1105 1223 1314 1402 1445 1504 / Total 0014 (12) calls //////////////////////////////////////////////////////////////////////////////// S1600, 0 / return area CLA CLL / AC = 0000 @@1601=7300 TAD D0134 / @@1602=1134 SNA / @@1603=7450 JMP L1607 / @@1604=5207 L1605, LAS / @@1605=7604 JMP L1623 / @@1606=5223 L1607, TAD D0135 / @@1607=1135 TAD D0136 / @@1610=1136 RTL / @@1611=7006 DCA D0136 / @@1612=3136 TAD D0137 / @@1613=1137 TAD D0135 / @@1614=1135 RAR / @@1615=7010 DCA D0135 / @@1616=3135 TAD D0135 / @@1617=1135 TAD D0136 / @@1620=1136 TAD D0137 / @@1621=1137 RTL / @@1622=7006 L1623, DCA D0137 / @@1623=3137 TAD D0137 / @@1624=1137 SPA / @@1625=7510 JMP L1634 / @@1626=5234 CIA / @@1627=7041 TAD C0066 / @@1630=1066 SPA / @@1631=7510 JMP L1641 / @@1632=5241 JMP L1646 / @@1633=5246 L1634, IAC / @@1634=7001 IAC / @@1635=7001 IAC / @@1636=7001 SMA / @@1637=7500 C1640, 5246 / JMP L1646 L1641, CLA CLL / AC = 0000 @@1641=7300 TAD D0137 / @@1642=1137 DCA D0106 / @@1643=3106 TAD D0106 / @@1644=1106 JMP I S1600 / return @@1645=5600 L1646, CLA CLL / AC = 0000 @@1646=7300 TAD D0134 / @@1647=1134 SNA / @@1650=7450 JMP L1607 / @@1651=5207 CLA / @@1652=7200 TAD I C0064 / @@1653=1464 JMS S1671 / @@1654=4271 HLT / @@1655=7402 JMP L1605 / @@1656=5205 CLA / @@1657=7200 TAD C1756 / @@1660=1356 JMS S1671 / @@1661=4271 TAD D0003 / @@1662=1003 JMS S1707 / @@1663=4307 TAD C1771 / @@1664=1371 JMS S1671 / @@1665=4271 LDAR / (AA05/AA07) The buffer (input buffer @@1666=6562 JMS S1733 / @@1667=4333 HLT / @@1670=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1671 / / Called from: / 1654 1661 1665 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S1671, 0 / return area C1672, 3010 / DCA AI0 L1673, C1673, 1410 / TAD I AI0 SNA / @@1674=7450 JMP I S1671 / return @@1675=5671 JMS S1700 / @@1676=4300 JMP L1673 / @@1677=5273 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1700 / / Called from: / 1521 1676 1727 1731 1746 1752 1754 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S1700, 0 / return area C1701, 6046 / TLS L1702, TSF / Skip if teleprinter flag is a 1. @@1702=6041 JMP L1702 / @@1703=5302 C1704, 6042 / TCF CLA CLL / AC = 0000 @@1705=7300 C1706, 5700 / JMP I S1700 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1707 / / Called from: / 1663 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1707, 0 / return area DCA D0105 / @@1710=3105 TAD C0056 / @@1711=1056 DCA D0122 / @@1712=3122 L1713, TAD D0105 / @@1713=1105 RAL / @@1714=7004 RTL / @@1715=7006 C1716, 3105 / DCA D0105 TAD D0105 / @@1717=1105 C1720, 7004 / RAL AND C0024 / @@1721=0024 C1722, 1032 / TAD C0032 C1723, 4300 / JMS S1700 C1724, 2122 / ISZ D0122 JMP L1713 / @@1725=5313 TAD C0031 / @@1726=1031 JMS S1700 / @@1727=4300 TAD C0030 / @@1730=1030 JMS S1700 / @@1731=4300 JMP I S1707 / return @@1732=5707 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1733 / / Called from: / 1667 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1733, 0 / return area DCA D0105 / @@1734=3105 TAD C0053 / @@1735=1053 DCA D0122 / @@1736=3122 L1737, TAD D0105 / @@1737=1105 CLL / @@1740=7100 RAL / @@1741=7004 DCA D0105 / @@1742=3105 SZL / @@1743=7430 IAC / @@1744=7001 TAD C0032 / @@1745=1032 JMS S1700 / @@1746=4300 ISZ D0122 / @@1747=2122 JMP L1737 / @@1750=5337 TAD C0031 / @@1751=1031 JMS S1700 / @@1752=4300 TAD C0030 / @@1753=1030 JMS S1700 / @@1754=4300 JMP I S1733 / return @@1755=5733 C1756, 1756 / TAD I C1756 AND C1722 / @@1757=0322 AND C1724 / @@1760=0324 AND C1716 / @@1761=0316 AND C1640 / @@1762=0240 AND C1701 / @@1763=0301 AND C1704 / @@1764=0304 AND C1704 / @@1765=0304 AND C1722 / @@1766=0322 AND C1640 / @@1767=0240 C1770, 0000 / AND L0000 C1771, 1771 / TAD I C1771 AND C1706 / @@1772=0306 AND C1720 / @@1773=0320 AND C1720 / @@1774=0320 AND C1640 / @@1775=0240 AND C1723 / @@1776=0323 AND C1724 / @@1777=0324 C2000, 0301 / AND C2101 C2001, 0324 / AND C2124 C2002, 0305 / AND C2105 C2003, 0240 / AND C2040 C2004, 0000 / AND L0000 C2005, 2005 / ISZ C0005 C2006, 0322 / AND C2122 C2007, 0323 / AND C2123 C2010, 0240 / AND C2040 C2011, 0311 / AND C2111 C2012, 0316 / AND C2116 C2013, 0240 / AND C2040 C2014, 0320 / AND C2120 C2015, 0322 / AND C2122 C2016, 0317 / AND C2117 C2017, 0307 / AND C2107 AND C2015 / @@2020=0215 AND C2012 / @@2021=0212 C2022, 0322 / AND C2122 C2023, 0305 / AND C2105 C2024, 0323 / AND C2123 C2025, 0305 / AND C2105 C2026, 0324 / AND C2124 C2027, 0273 / AND C2073 C2030, 0240 / AND C2040 C2031, 0303 / AND C2103 C2032, 0317 / AND C2117 C2033, 0316 / AND C2116 C2034, 0324 / AND C2124 AND C2015 / @@2035=0215 AND C2012 / @@2036=0212 C2037, 0000 / AND L0000 $