diff --git a/PDP8/tests/diags/maindec-8e-d0ab-pb.bin b/PDP8/tests/diags/maindec-8e-d0ab-pb.bin new file mode 100644 index 00000000..a5ab1149 Binary files /dev/null and b/PDP8/tests/diags/maindec-8e-d0ab-pb.bin differ diff --git a/PDP8/tests/diags/maindec-8e-d0ab-pb.pal b/PDP8/tests/diags/maindec-8e-d0ab-pb.pal new file mode 100644 index 00000000..a8549be3 --- /dev/null +++ b/PDP8/tests/diags/maindec-8e-d0ab-pb.pal @@ -0,0 +1,2785 @@ +TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d0ab-pb.bin BY D8TAPE" +//////////////////////////////////////////////////////////////////////////////// +/ +/ Automatic Disassembly of maindec-8e-d0ab-pb.bin +/ Generated 2010 02 19 00:10:29 +/ 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 +/ +/ 5265 locations used, 5151 code and 0114 data +//////////////////////////////////////////////////////////////////////////////// + +*0200 + +*0000 +D0000, 0000 / AND D0000 +L0001, +C0001, 5001 / JMP L0001 +C0002, 0002 / AND C0002 +C0003, 0003 / AND C0003 +C0004, 0000 / AND D0000 + AND D0000 / @@0005=0000 +C0006, 7402 / HLT +C0007, 7000 / NOP +AI0, 0000 / AUTO-INDEX REGISTER AND D0000 + +*0020 +C0020, 0000 / AND D0000 +C0021, 0001 / AND L0001 +C0022, 0002 / AND C0002 +C0023, 0003 / AND C0003 +C0024, 0004 / AND C0004 +L0025, +C0025, 0006 / AND C0006 +C0026, 0010 / AND AI0 +C0027, 0014 / AND AI4 +C0030, 0020 / AND C0020 +C0031, 0030 / AND C0030 +C0032, 0040 / AND C0040 +C0033, 0060 / AND C0060 +C0034, 0100 / AND C0100 +C0035, 0140 / AND C0140 +C0036, 0200 / AND D0000 +C0037, 0300 / AND C0100 +C0040, 0400 / AND I D0000 +C0041, 0600 / AND I D0000 +C0042, 1000 / TAD D0000 +C0043, 1234 / TAD C0034 +C0044, 1400 / TAD I D0000 +C0045, 2000 / ISZ D0000 +C0046, 3000 / DCA D0000 +C0047, 3312 / DCA D0112 +C0050, 4000 / JMS D0000 +C0051, 7717 / CLA MQA LSR + +L0052, +C0052, 7776 / SPA SNA SZL CLA OSR HLT +C0053, 7775 / CLA MQA SCA MQL ASR + +C0054, 7773 / CLA MQA SCA MQL SHL + +C0055, 7767 / CLA MQA SCA MQL DVI + +C0056, 7757 / CLA MQA SCA LSR + +C0057, 7737 / CLA MQA MQL LSR + +C0060, 7177 / CLL CMA CML IAC RTR RTL +C0061, 7677 / CLA SCA MQL LSR + +C0062, 7577 / MQA SCA MQL LSR + +C0063, 7377 / CLA CLL CMA CML IAC RTR RTL +C0064, 6777 / 6777 +C0065, 5777 / JMP I C0177 +C0066, 3777 / DCA I C0177 +C0067, 7777 / CLA MQA SCA MQL LSR + +C0070, 5252 / JMP L0052 +C0071, 2525 / ISZ I C0125 +C0072, 6000 / 6000 +C0073, 7000 / NOP +C0074, 7400 / +C0075, 7600 / 7600 +C0076, 7740 / SMA SZA CLA +C0077, 7760 / SMA SZA SNL CLA +C0100, 7770 / SPA SNA SZL CLA +C0101, 7774 / SPA SNA SZL CLA OSR +C0102, 0007 / AND C0007 + AND C0067 / @@0103=0067 +C0104, 0017 / AND AI7 +C0105, 0037 / AND C0037 +C0106, 0077 / AND C0077 + AND C0177 / @@0107=0177 +C0110, 0377 / AND C0177 +C0111, 0777 / AND I C0177 +D0112, 1777 / TAD I C0177 +C0113, 7700 / SMA CLA +C0114, 5225 / JMP L0025 +C0115, 2552 / ISZ I C0152 +C0116, 0770 / AND I C0170 +C0117, 7007 / IAC RTL +C0120, 0207 / AND C0007 +D0121, 5140 / JMP C0140 +C0122, 5140 / JMP C0140 + +*0144 +L0144, + TAD C0067 / @@0144=1067 + CLA / @@0145=7200 + HLT / @@0146=7402 +L0147, + SKP / @@0147=7410 + HLT / @@0150=7402 + CLA / @@0151=7200 +C0152, 7440 / SZA + HLT / @@0153=7402 + SNA / @@0154=7450 + SKP / @@0155=7410 + HLT / @@0156=7402 + CLA / @@0157=7200 + TAD C0050 / @@0160=1050 + SZA / @@0161=7440 + SKP / @@0162=7410 + HLT / @@0163=7402 + SNA / @@0164=7450 + HLT / @@0165=7402 + CLA / @@0166=7200 + TAD C0045 / @@0167=1045 +C0170, 7440 / SZA + SKP / @@0171=7410 + HLT / @@0172=7402 + SNA / @@0173=7450 + HLT / @@0174=7402 + NOP / @@0175=7000 + NOP / @@0176=7000 +C0177, 7410 / SKP + +*0200 + JMP L0144 / @@0200=5144 + CLA / @@0201=7200 + TAD C0042 / @@0202=1042 + SZA / @@0203=7440 + SKP / @@0204=7410 + HLT / @@0205=7402 + SNA / @@0206=7450 + HLT / @@0207=7402 + CLA / @@0210=7200 + TAD C0040 / @@0211=1040 + SZA / @@0212=7440 + SKP / @@0213=7410 + HLT / @@0214=7402 + SNA / @@0215=7450 + HLT / @@0216=7402 + CLA / @@0217=7200 + TAD C0036 / @@0220=1036 + SZA / @@0221=7440 + SKP / @@0222=7410 + HLT / @@0223=7402 + SNA / @@0224=7450 + HLT / @@0225=7402 + CLA / @@0226=7200 + TAD C0034 / @@0227=1034 + SZA / @@0230=7440 + SKP / @@0231=7410 + HLT / @@0232=7402 + SNA / @@0233=7450 + HLT / @@0234=7402 + CLA / @@0235=7200 + TAD C0032 / @@0236=1032 + SZA / @@0237=7440 + SKP / @@0240=7410 + HLT / @@0241=7402 + SNA / @@0242=7450 + HLT / @@0243=7402 + CLA / @@0244=7200 + TAD C0030 / @@0245=1030 + SZA / @@0246=7440 + SKP / @@0247=7410 + HLT / @@0250=7402 + SNA / @@0251=7450 + HLT / @@0252=7402 + CLA / @@0253=7200 + TAD C0026 / @@0254=1026 + SZA / @@0255=7440 + SKP / @@0256=7410 + HLT / @@0257=7402 + SNA / @@0260=7450 + HLT / @@0261=7402 + CLA / @@0262=7200 + TAD C0024 / @@0263=1024 + SZA / @@0264=7440 + SKP / @@0265=7410 + HLT / @@0266=7402 + SNA / @@0267=7450 + HLT / @@0270=7402 + CLA / @@0271=7200 + TAD C0022 / @@0272=1022 + SZA / @@0273=7440 + SKP / @@0274=7410 + HLT / @@0275=7402 + SNA / @@0276=7450 + HLT / @@0277=7402 + CLA / @@0300=7200 + TAD C0021 / @@0301=1021 + SZA / @@0302=7440 + SKP / @@0303=7410 + HLT / @@0304=7402 + SNA / @@0305=7450 + HLT / @@0306=7402 + CLA / @@0307=7200 + TAD C0066 / @@0310=1066 + SPA / @@0311=7510 + HLT / @@0312=7402 + CLA / @@0313=7200 + TAD C0050 / @@0314=1050 + SPA / @@0315=7510 + SKP / @@0316=7410 + HLT / @@0317=7402 + CLA / @@0320=7200 + TAD C0066 / @@0321=1066 + SMA / @@0322=7500 + SKP / @@0323=7410 + HLT / @@0324=7402 + CLA / @@0325=7200 + TAD C0050 / @@0326=1050 + SMA / @@0327=7500 + HLT / @@0330=7402 + CLA / @@0331=7200 + TAD C0067 / @@0332=1067 + CMA / @@0333=7040 + SZA / @@0334=7440 + HLT / @@0335=7402 + CLA / @@0336=7200 + TAD C0071 / @@0337=1071 + CMA / @@0340=7040 + SNA / @@0341=7450 + HLT / @@0342=7402 + TAD C0071 / @@0343=1071 + CMA / @@0344=7040 + SZA / @@0345=7440 + HLT / @@0346=7402 + CLA / @@0347=7200 + TAD C0070 / @@0350=1070 + CMA / @@0351=7040 + SNA / @@0352=7450 + HLT / @@0353=7402 + TAD C0070 / @@0354=1070 + CMA / @@0355=7040 + SZA / @@0356=7440 + HLT / @@0357=7402 + CLA / @@0360=7200 + TAD C0067 / @@0361=1067 + CMA / @@0362=7040 + SZA / @@0363=7440 + HLT / @@0364=7402 + CLA / @@0365=7200 + IAC / @@0366=7001 + SZA / @@0367=7440 + SKP / @@0370=7410 + HLT / @@0371=7402 + CLA / @@0372=7200 + TAD C0067 / @@0373=1067 + IAC / @@0374=7001 + SZA / @@0375=7440 + HLT / @@0376=7402 + CLA / @@0377=7200 + TAD C0101 / @@0400=1101 + IAC / @@0401=7001 + IAC / @@0402=7001 + IAC / @@0403=7001 + IAC / @@0404=7001 + SZA / @@0405=7440 + HLT / @@0406=7402 + CLA / @@0407=7200 + CLL / @@0410=7100 + RAL / @@0411=7004 + SZL / @@0412=7430 + HLT / @@0413=7402 + CLA / @@0414=7200 + CLL / @@0415=7100 + CML / @@0416=7020 + TAD C0050 / @@0417=1050 + RAL / @@0420=7004 + SZL / @@0421=7430 + SKP / @@0422=7410 + HLT / @@0423=7402 + CLA / @@0424=7200 + CLL / @@0425=7100 + RAL / @@0426=7004 + SNL / @@0427=7420 + SKP / @@0430=7410 + HLT / @@0431=7402 + CLA / @@0432=7200 + CLL / @@0433=7100 + CML / @@0434=7020 + TAD C0050 / @@0435=1050 + RAL / @@0436=7004 + SNL / @@0437=7420 + HLT / @@0440=7402 + CLA / @@0441=7200 + TAD C0050 / @@0442=1050 + RAL / @@0443=7004 + SNL / @@0444=7420 + JMP L0452 / @@0445=5252 +L0446, + CLL / @@0446=7100 + SZL / @@0447=7430 + HLT / @@0450=7402 + JMP L0456 / @@0451=5256 +L0452, + CML / @@0452=7020 + SNL / @@0453=7420 + HLT / @@0454=7402 + JMP L0446 / @@0455=5246 +L0456, + CLL / @@0456=7100 + SZL / @@0457=7430 + HLT / @@0460=7402 + CML / @@0461=7020 + SNL / @@0462=7420 + HLT / @@0463=7402 + CML / @@0464=7020 + SZL / @@0465=7430 + HLT / @@0466=7402 + CLA / @@0467=7200 + TAD C0067 / @@0470=1067 + 7600 / AKA "CLA" @@0471=7600 + SZA / @@0472=7440 + HLT / @@0473=7402 + CLA / @@0474=7200 + OSR / @@0475=7404 + CMA / @@0476=7040 + SZA / @@0477=7440 + HLT / @@0500=7402 + CLA / @@0501=7200 + CLL / @@0502=7100 + NOP / @@0503=7000 + SNA / @@0504=7450 + SZL / @@0505=7430 + HLT / @@0506=7402 + CLA / @@0507=7200 + CLL / @@0510=7100 + / @@0511=7400 + SNA / @@0512=7450 + SZL / @@0513=7430 + HLT / @@0514=7402 + CLA / @@0515=7200 + TAD C0066 / @@0516=1066 + TAD C0050 / @@0517=1050 + CMA / @@0520=7040 + SZA / @@0521=7440 + HLT / @@0522=7402 + CLA / @@0523=7200 + TAD C0065 / @@0524=1065 + TAD C0045 / @@0525=1045 + CMA / @@0526=7040 + SZA / @@0527=7440 + HLT / @@0530=7402 + CLA / @@0531=7200 + TAD C0064 / @@0532=1064 + TAD C0042 / @@0533=1042 + CMA / @@0534=7040 + SZA / @@0535=7440 + HLT / @@0536=7402 + CLA / @@0537=7200 + TAD C0063 / @@0540=1063 + TAD C0040 / @@0541=1040 + CMA / @@0542=7040 + SZA / @@0543=7440 + HLT / @@0544=7402 + CLA / @@0545=7200 + TAD C0062 / @@0546=1062 + TAD C0036 / @@0547=1036 + CMA / @@0550=7040 + SZA / @@0551=7440 + HLT / @@0552=7402 + CLA / @@0553=7200 + TAD C0061 / @@0554=1061 + TAD C0034 / @@0555=1034 + CMA / @@0556=7040 + SZA / @@0557=7440 + HLT / @@0560=7402 + CLA / @@0561=7200 + TAD C0057 / @@0562=1057 + TAD C0032 / @@0563=1032 + CMA / @@0564=7040 + SZA / @@0565=7440 + HLT / @@0566=7402 + CLA / @@0567=7200 + TAD C0056 / @@0570=1056 + TAD C0030 / @@0571=1030 + CMA / @@0572=7040 + SZA / @@0573=7440 + HLT / @@0574=7402 + CLA / @@0575=7200 + TAD C0055 / @@0576=1055 + TAD C0026 / @@0577=1026 + CMA / @@0600=7040 + SZA / @@0601=7440 + HLT / @@0602=7402 + CLA / @@0603=7200 + TAD C0054 / @@0604=1054 + TAD C0024 / @@0605=1024 + CMA / @@0606=7040 + SZA / @@0607=7440 + HLT / @@0610=7402 + CLA / @@0611=7200 + TAD C0053 / @@0612=1053 + TAD C0022 / @@0613=1022 + CMA / @@0614=7040 + SZA / @@0615=7440 + HLT / @@0616=7402 + CLA / @@0617=7200 + TAD L0052 / @@0620=1052 + TAD C0021 / @@0621=1021 + CMA / @@0622=7040 + SZA / @@0623=7440 + HLT / @@0624=7402 + CLA / @@0625=7200 + CLL / @@0626=7100 + TAD C0050 / @@0627=1050 + TAD C0050 / @@0630=1050 + SZL / @@0631=7430 + SZA / @@0632=7440 + HLT / @@0633=7402 + CLA / @@0634=7200 + CLL / @@0635=7100 + TAD C0072 / @@0636=1072 + TAD C0045 / @@0637=1045 + SZL / @@0640=7430 + SZA / @@0641=7440 + HLT / @@0642=7402 + CLA / @@0643=7200 + CLL / @@0644=7100 + TAD C0073 / @@0645=1073 + TAD C0042 / @@0646=1042 + SZL / @@0647=7430 + SZA / @@0650=7440 + HLT / @@0651=7402 + CLA / @@0652=7200 + CLL / @@0653=7100 + TAD C0074 / @@0654=1074 + TAD C0040 / @@0655=1040 + SZL / @@0656=7430 + SZA / @@0657=7440 + HLT / @@0660=7402 + CLA / @@0661=7200 + CLL / @@0662=7100 + TAD C0075 / @@0663=1075 + TAD C0036 / @@0664=1036 + SZL / @@0665=7430 + SZA / @@0666=7440 + HLT / @@0667=7402 + CLA / @@0670=7200 + CLL / @@0671=7100 + TAD C0113 / @@0672=1113 + TAD C0034 / @@0673=1034 + SZL / @@0674=7430 + SZA / @@0675=7440 + HLT / @@0676=7402 + CLA / @@0677=7200 + CLL / @@0700=7100 + TAD C0076 / @@0701=1076 + TAD C0032 / @@0702=1032 + SZL / @@0703=7430 + SZA / @@0704=7440 + HLT / @@0705=7402 + CLA / @@0706=7200 + CLL / @@0707=7100 + TAD C0077 / @@0710=1077 + TAD C0030 / @@0711=1030 + SZL / @@0712=7430 + SZA / @@0713=7440 + HLT / @@0714=7402 + CLA / @@0715=7200 + CLL / @@0716=7100 + TAD C0100 / @@0717=1100 + TAD C0026 / @@0720=1026 + SZL / @@0721=7430 + SZA / @@0722=7440 + HLT / @@0723=7402 + CLA / @@0724=7200 + CLL / @@0725=7100 + TAD C0101 / @@0726=1101 + TAD C0024 / @@0727=1024 + SZL / @@0730=7430 + SZA / @@0731=7440 + HLT / @@0732=7402 + CLA / @@0733=7200 + CLL / @@0734=7100 + TAD L0052 / @@0735=1052 + TAD C0022 / @@0736=1022 + SZL / @@0737=7430 + SZA / @@0740=7440 + HLT / @@0741=7402 + CLA / @@0742=7200 + CLL / @@0743=7100 + TAD C0067 / @@0744=1067 + TAD C0021 / @@0745=1021 + SZL / @@0746=7430 + SZA / @@0747=7440 + HLT / @@0750=7402 + CLA / @@0751=7200 + CLL / @@0752=7100 + CML / @@0753=7020 + TAD C0050 / @@0754=1050 + TAD C0050 / @@0755=1050 + SNL / @@0756=7420 + SZA / @@0757=7440 + HLT / @@0760=7402 + CLA / @@0761=7200 + CLL / @@0762=7100 + TAD C0066 / @@0763=1066 + TAD C0045 / @@0764=1045 + TAD C0045 / @@0765=1045 + CMA / @@0766=7040 + SNL / @@0767=7420 + SZA / @@0770=7440 + HLT / @@0771=7402 + CLA / @@0772=7200 + CLL / @@0773=7100 + TAD C0065 / @@0774=1065 + TAD C0042 / @@0775=1042 + TAD C0042 / @@0776=1042 + CMA / @@0777=7040 + SNL / @@1000=7420 + SZA / @@1001=7440 + HLT / @@1002=7402 + CLA / @@1003=7200 + CLL / @@1004=7100 + TAD C0064 / @@1005=1064 + TAD C0040 / @@1006=1040 + TAD C0040 / @@1007=1040 + CMA / @@1010=7040 + SNL / @@1011=7420 + SZA / @@1012=7440 + HLT / @@1013=7402 + CLA / @@1014=7200 + CLL / @@1015=7100 + TAD C0063 / @@1016=1063 + TAD C0036 / @@1017=1036 + TAD C0036 / @@1020=1036 + CMA / @@1021=7040 + SNL / @@1022=7420 + SZA / @@1023=7440 + HLT / @@1024=7402 + CLA / @@1025=7200 + CLL / @@1026=7100 + TAD C0062 / @@1027=1062 + TAD C0034 / @@1030=1034 + TAD C0034 / @@1031=1034 + CMA / @@1032=7040 + SNL / @@1033=7420 + SZA / @@1034=7440 + HLT / @@1035=7402 + CLA / @@1036=7200 + CLL / @@1037=7100 + TAD C0061 / @@1040=1061 + TAD C0032 / @@1041=1032 + TAD C0032 / @@1042=1032 + CMA / @@1043=7040 + SNL / @@1044=7420 + SZA / @@1045=7440 + HLT / @@1046=7402 + CLA / @@1047=7200 + CLL / @@1050=7100 + TAD C0057 / @@1051=1057 + TAD C0030 / @@1052=1030 + TAD C0030 / @@1053=1030 + CMA / @@1054=7040 + SNL / @@1055=7420 + SZA / @@1056=7440 + HLT / @@1057=7402 + CLA / @@1060=7200 + CLL / @@1061=7100 + TAD C0056 / @@1062=1056 + TAD C0026 / @@1063=1026 + TAD C0026 / @@1064=1026 + CMA / @@1065=7040 + SNL / @@1066=7420 + SZA / @@1067=7440 + HLT / @@1070=7402 + CLA / @@1071=7200 + CLL / @@1072=7100 + TAD C0055 / @@1073=1055 + TAD C0024 / @@1074=1024 + TAD C0024 / @@1075=1024 + CMA / @@1076=7040 + SNL / @@1077=7420 + SZA / @@1100=7440 + HLT / @@1101=7402 + CLA / @@1102=7200 + CLL / @@1103=7100 + TAD C0054 / @@1104=1054 + TAD C0022 / @@1105=1022 + TAD C0022 / @@1106=1022 + CMA / @@1107=7040 + SNL / @@1110=7420 + SZA / @@1111=7440 + HLT / @@1112=7402 + CLA / @@1113=7200 + CLL / @@1114=7100 + TAD C0053 / @@1115=1053 + TAD C0021 / @@1116=1021 + TAD C0021 / @@1117=1021 + CMA / @@1120=7040 + SNL / @@1121=7420 + SZL / @@1122=7430 + HLT / @@1123=7402 + CLA / @@1124=7200 + CLL / @@1125=7100 + TAD C0021 / @@1126=1021 + TAD C0023 / @@1127=1023 + TAD C0054 / @@1130=1054 + CMA / @@1131=7040 + SNL / @@1132=7420 + SZA / @@1133=7440 + HLT / @@1134=7402 + CLA / @@1135=7200 + CLL / @@1136=7100 + TAD C0022 / @@1137=1022 + TAD L0025 / @@1140=1025 + TAD C0055 / @@1141=1055 + CMA / @@1142=7040 + SNL / @@1143=7420 + SZA / @@1144=7440 + HLT / @@1145=7402 + CLA / @@1146=7200 + CLL / @@1147=7100 + TAD C0024 / @@1150=1024 + TAD C0027 / @@1151=1027 + TAD C0056 / @@1152=1056 + CMA / @@1153=7040 + SNL / @@1154=7420 + SZA / @@1155=7440 + HLT / @@1156=7402 + CLA / @@1157=7200 + CLL / @@1160=7100 + TAD C0026 / @@1161=1026 + TAD C0031 / @@1162=1031 + TAD C0057 / @@1163=1057 + CMA / @@1164=7040 + SNL / @@1165=7420 + SZA / @@1166=7440 + HLT / @@1167=7402 + CLA / @@1170=7200 + CLL / @@1171=7100 + TAD C0030 / @@1172=1030 + TAD C0033 / @@1173=1033 + TAD C0061 / @@1174=1061 + CMA / @@1175=7040 + SNL / @@1176=7420 + SZA / @@1177=7440 + HLT / @@1200=7402 + CLA / @@1201=7200 + CLL / @@1202=7100 + TAD C0032 / @@1203=1032 + TAD C0035 / @@1204=1035 + TAD C0062 / @@1205=1062 + CMA / @@1206=7040 + SNL / @@1207=7420 + SZA / @@1210=7440 + HLT / @@1211=7402 + CLA / @@1212=7200 + CLL / @@1213=7100 + TAD C0034 / @@1214=1034 + TAD C0037 / @@1215=1037 + TAD C0063 / @@1216=1063 + CMA / @@1217=7040 + SNL / @@1220=7420 + SZA / @@1221=7440 + HLT / @@1222=7402 + CLA / @@1223=7200 + CLL / @@1224=7100 + TAD C0036 / @@1225=1036 + TAD C0041 / @@1226=1041 + TAD C0064 / @@1227=1064 + CMA / @@1230=7040 + SNL / @@1231=7420 + SZA / @@1232=7440 + HLT / @@1233=7402 + CLA / @@1234=7200 + CLL / @@1235=7100 + TAD C0040 / @@1236=1040 + TAD C0044 / @@1237=1044 + TAD C0065 / @@1240=1065 + CMA / @@1241=7040 + SNL / @@1242=7420 + SZA / @@1243=7440 + HLT / @@1244=7402 + CLA / @@1245=7200 + CLL / @@1246=7100 + TAD C0042 / @@1247=1042 + TAD C0046 / @@1250=1046 + TAD C0066 / @@1251=1066 + CMA / @@1252=7040 + SNL / @@1253=7420 + SZA / @@1254=7440 + HLT / @@1255=7402 + CLA / @@1256=7200 + CLL / @@1257=7100 + TAD C0045 / @@1260=1045 + TAD C0072 / @@1261=1072 + SZL / @@1262=7430 + SZA / @@1263=7440 + HLT / @@1264=7402 + CLA / @@1265=7200 + CLL / @@1266=7100 + TAD C0067 / @@1267=1067 + TAD C0021 / @@1270=1021 + SZL / @@1271=7430 + SZA / @@1272=7440 + HLT / @@1273=7402 + CLA / @@1274=7200 + CLL / @@1275=7100 + TAD C0023 / @@1276=1023 + TAD C0023 / @@1277=1023 + TAD C0100 / @@1300=1100 + TAD C0021 / @@1301=1021 + CMA / @@1302=7040 + SNL / @@1303=7420 + SZA / @@1304=7440 + HLT / @@1305=7402 + CLA / @@1306=7200 + CLL / @@1307=7100 + TAD L0025 / @@1310=1025 + TAD L0025 / @@1311=1025 + TAD C0077 / @@1312=1077 + TAD C0023 / @@1313=1023 + CMA / @@1314=7040 + SNL / @@1315=7420 + SZA / @@1316=7440 + HLT / @@1317=7402 + CLA / @@1320=7200 + CLL / @@1321=7100 + TAD C0027 / @@1322=1027 + TAD C0027 / @@1323=1027 + TAD C0076 / @@1324=1076 + TAD C0102 / @@1325=1102 + CMA / @@1326=7040 + SNL / @@1327=7420 + SZA / @@1330=7440 + HLT / @@1331=7402 + CLA / @@1332=7200 + CLL / @@1333=7100 + TAD C0031 / @@1334=1031 + TAD C0031 / @@1335=1031 + TAD C0051 / @@1336=1051 + CMA / @@1337=7040 + SNL / @@1340=7420 + SZA / @@1341=7440 + HLT / @@1342=7402 + CLA / @@1343=7200 + CLL / @@1344=7100 + TAD C0033 / @@1345=1033 + TAD C0033 / @@1346=1033 + TAD C0075 / @@1347=1075 + TAD C0105 / @@1350=1105 + CMA / @@1351=7040 + SNL / @@1352=7420 + SZA / @@1353=7440 + HLT / @@1354=7402 + CLA / @@1355=7200 + CLL / @@1356=7100 + TAD C0035 / @@1357=1035 + TAD C0035 / @@1360=1035 + TAD C0074 / @@1361=1074 + TAD C0106 / @@1362=1106 + CMA / @@1363=7040 + SNL / @@1364=7420 + SZA / @@1365=7440 + HLT / @@1366=7402 + CLA / @@1367=7200 + CLL / @@1370=7100 + TAD C0037 / @@1371=1037 + TAD C0037 / @@1372=1037 + TAD C0060 / @@1373=1060 + CMA / @@1374=7040 + SNL / @@1375=7420 + SZA / @@1376=7440 + HLT / @@1377=7402 + CLA / @@1400=7200 + CLL / @@1401=7100 + TAD C0041 / @@1402=1041 + TAD C0041 / @@1403=1041 + TAD C0072 / @@1404=1072 + TAD C0110 / @@1405=1110 + CMA / @@1406=7040 + SNL / @@1407=7420 + SZA / @@1410=7440 + HLT / @@1411=7402 + CLA / @@1412=7200 + CLL / @@1413=7100 + TAD C0044 / @@1414=1044 + TAD C0044 / @@1415=1044 + TAD C0050 / @@1416=1050 + TAD C0111 / @@1417=1111 + CMA / @@1420=7040 + SNL / @@1421=7420 + SZA / @@1422=7440 + HLT / @@1423=7402 + CLA / @@1424=7200 + CLL / @@1425=7100 + TAD C0046 / @@1426=1046 + TAD C0046 / @@1427=1046 + TAD D0112 / @@1430=1112 + CMA / @@1431=7040 + SNL / @@1432=7420 + SZA / @@1433=7440 + HLT / @@1434=7402 + CLA / @@1435=7200 + CLL / @@1436=7100 + TAD C0072 / @@1437=1072 + TAD C0072 / @@1440=1072 + TAD C0066 / @@1441=1066 + CMA / @@1442=7040 + SZL / @@1443=7430 + SZA / @@1444=7440 + HLT / @@1445=7402 + CLA / @@1446=7200 + CLL / @@1447=7100 + TAD C0067 / @@1450=1067 + TAD C0067 / @@1451=1067 + TAD C0021 / @@1452=1021 + CMA / @@1453=7040 + SZL / @@1454=7430 + SZA / @@1455=7440 + HLT / @@1456=7402 + CLA / @@1457=7200 + CLL / @@1460=7100 + TAD C0021 / @@1461=1021 + RAR / @@1462=7010 + SNL / @@1463=7420 + HLT / @@1464=7402 + CLA / @@1465=7200 + CLL / @@1466=7100 + TAD C0020 / @@1467=1020 + RAR / @@1470=7010 + SZA / @@1471=7440 + HLT / @@1472=7402 + CLA / @@1473=7200 + CLL / @@1474=7100 + TAD C0020 / @@1475=1020 + RAR / @@1476=7010 + SZL / @@1477=7430 + HLT / @@1500=7402 + CLA / @@1501=7200 + CLL / @@1502=7100 + CML / @@1503=7020 + TAD C0020 / @@1504=1020 + RAR / @@1505=7010 + SZL / @@1506=7430 + HLT / @@1507=7402 + CLA / @@1510=7200 + CLL / @@1511=7100 + CML / @@1512=7020 + TAD C0067 / @@1513=1067 + RAR / @@1514=7010 + CMA / @@1515=7040 + SZA / @@1516=7440 + HLT / @@1517=7402 + CLA / @@1520=7200 + CLL / @@1521=7100 + CML / @@1522=7020 + TAD C0020 / @@1523=1020 + RAR / @@1524=7010 + TAD C0066 / @@1525=1066 + CMA / @@1526=7040 + SNA / @@1527=7450 + SZL / @@1530=7430 + HLT / @@1531=7402 + CLA / @@1532=7200 + CLL / @@1533=7100 + TAD C0050 / @@1534=1050 + RAR / @@1535=7010 + TAD C0065 / @@1536=1065 + CMA / @@1537=7040 + SNA / @@1540=7450 + SZL / @@1541=7430 + HLT / @@1542=7402 + CLA / @@1543=7200 + CLL / @@1544=7100 + TAD C0045 / @@1545=1045 + RAR / @@1546=7010 + TAD C0064 / @@1547=1064 + CMA / @@1550=7040 + SNA / @@1551=7450 + SZL / @@1552=7430 + HLT / @@1553=7402 + CLA / @@1554=7200 + CLL / @@1555=7100 + TAD C0042 / @@1556=1042 + RAR / @@1557=7010 + TAD C0063 / @@1560=1063 + CMA / @@1561=7040 + SNA / @@1562=7450 + SZL / @@1563=7430 + HLT / @@1564=7402 + CLA / @@1565=7200 + CLL / @@1566=7100 + TAD C0040 / @@1567=1040 + RAR / @@1570=7010 + TAD C0062 / @@1571=1062 + CMA / @@1572=7040 + SNA / @@1573=7450 + SZL / @@1574=7430 + HLT / @@1575=7402 + CLA / @@1576=7200 + CLL / @@1577=7100 + TAD C0036 / @@1600=1036 + RAR / @@1601=7010 + TAD C0061 / @@1602=1061 + CMA / @@1603=7040 + SNA / @@1604=7450 + SZL / @@1605=7430 + HLT / @@1606=7402 + CLA / @@1607=7200 + CLL / @@1610=7100 + TAD C0034 / @@1611=1034 + RAR / @@1612=7010 + TAD C0057 / @@1613=1057 + CMA / @@1614=7040 + SNA / @@1615=7450 + SZL / @@1616=7430 + HLT / @@1617=7402 + CLA / @@1620=7200 + CLL / @@1621=7100 + TAD C0032 / @@1622=1032 + RAR / @@1623=7010 + TAD C0056 / @@1624=1056 + CMA / @@1625=7040 + SNA / @@1626=7450 + SZL / @@1627=7430 + HLT / @@1630=7402 + CLA / @@1631=7200 + CLL / @@1632=7100 + TAD C0030 / @@1633=1030 + RAR / @@1634=7010 + TAD C0055 / @@1635=1055 + CMA / @@1636=7040 + SNA / @@1637=7450 + SZL / @@1640=7430 + HLT / @@1641=7402 + CLA / @@1642=7200 + CLL / @@1643=7100 + TAD C0026 / @@1644=1026 + RAR / @@1645=7010 + TAD C0054 / @@1646=1054 + CMA / @@1647=7040 + SNA / @@1650=7450 + SZL / @@1651=7430 + HLT / @@1652=7402 + CLA / @@1653=7200 + CLL / @@1654=7100 + TAD C0024 / @@1655=1024 + RAR / @@1656=7010 + TAD C0053 / @@1657=1053 + CMA / @@1660=7040 + SNA / @@1661=7450 + SZL / @@1662=7430 + HLT / @@1663=7402 + CLA / @@1664=7200 + CLL / @@1665=7100 + TAD C0022 / @@1666=1022 + RAR / @@1667=7010 + TAD L0052 / @@1670=1052 + CMA / @@1671=7040 + SNA / @@1672=7450 + SZL / @@1673=7430 + HLT / @@1674=7402 + CLA / @@1675=7200 + CLL / @@1676=7100 + TAD C0021 / @@1677=1021 + RAR / @@1700=7010 + TAD C0067 / @@1701=1067 + CMA / @@1702=7040 + SNA / @@1703=7450 + SNL / @@1704=7420 + HLT / @@1705=7402 + CLA / @@1706=7200 + CLL / @@1707=7100 + TAD C0022 / @@1710=1022 + RTR / @@1711=7012 + SNL / @@1712=7420 + HLT / @@1713=7402 + CLA / @@1714=7200 + CLL / @@1715=7100 + TAD C0020 / @@1716=1020 + RTR / @@1717=7012 + SZA / @@1720=7440 + HLT / @@1721=7402 + CLA / @@1722=7200 + CLL / @@1723=7100 + TAD C0020 / @@1724=1020 + RTR / @@1725=7012 + SZL / @@1726=7430 + HLT / @@1727=7402 + CLA / @@1730=7200 + CLL / @@1731=7100 + CML / @@1732=7020 + TAD C0020 / @@1733=1020 + RTR / @@1734=7012 + SZL / @@1735=7430 + HLT / @@1736=7402 + CLA / @@1737=7200 + CLL / @@1740=7100 + CML / @@1741=7020 + TAD C0067 / @@1742=1067 + RTR / @@1743=7012 + CMA / @@1744=7040 + SZA / @@1745=7440 + HLT / @@1746=7402 + CLA / @@1747=7200 + CLL / @@1750=7100 + CML / @@1751=7020 + TAD C0020 / @@1752=1020 + RTR / @@1753=7012 + TAD C0065 / @@1754=1065 + CMA / @@1755=7040 + SNA / @@1756=7450 + SZL / @@1757=7430 + HLT / @@1760=7402 + CLA / @@1761=7200 + CLL / @@1762=7100 + TAD C0050 / @@1763=1050 + RTR / @@1764=7012 + TAD C0064 / @@1765=1064 + CMA / @@1766=7040 + SNA / @@1767=7450 + SZL / @@1770=7430 + HLT / @@1771=7402 + CLA / @@1772=7200 + CLL / @@1773=7100 + TAD C0045 / @@1774=1045 + RTR / @@1775=7012 + TAD C0063 / @@1776=1063 + CMA / @@1777=7040 + SNA / @@2000=7450 + SZL / @@2001=7430 + HLT / @@2002=7402 + CLA / @@2003=7200 + CLL / @@2004=7100 + TAD C0042 / @@2005=1042 + RTR / @@2006=7012 + TAD C0062 / @@2007=1062 + CMA / @@2010=7040 + SNA / @@2011=7450 + SZL / @@2012=7430 + HLT / @@2013=7402 + CLA / @@2014=7200 + CLL / @@2015=7100 + TAD C0040 / @@2016=1040 + RTR / @@2017=7012 + TAD C0061 / @@2020=1061 + CMA / @@2021=7040 + SNA / @@2022=7450 + SZL / @@2023=7430 + HLT / @@2024=7402 + CLA / @@2025=7200 + CLL / @@2026=7100 + TAD C0036 / @@2027=1036 + RTR / @@2030=7012 + TAD C0057 / @@2031=1057 + CMA / @@2032=7040 + SNA / @@2033=7450 + SZL / @@2034=7430 + HLT / @@2035=7402 + CLA / @@2036=7200 + CLL / @@2037=7100 + TAD C0034 / @@2040=1034 + RTR / @@2041=7012 + TAD C0056 / @@2042=1056 + CMA / @@2043=7040 + SNA / @@2044=7450 + SZL / @@2045=7430 + HLT / @@2046=7402 + CLA / @@2047=7200 + CLL / @@2050=7100 + TAD C0032 / @@2051=1032 + RTR / @@2052=7012 + TAD C0055 / @@2053=1055 + CMA / @@2054=7040 + SNA / @@2055=7450 + SZL / @@2056=7430 + HLT / @@2057=7402 + CLA / @@2060=7200 + CLL / @@2061=7100 + TAD C0030 / @@2062=1030 + RTR / @@2063=7012 + TAD C0054 / @@2064=1054 + CMA / @@2065=7040 + SNA / @@2066=7450 + SZL / @@2067=7430 + HLT / @@2070=7402 + CLA / @@2071=7200 + CLL / @@2072=7100 + TAD C0026 / @@2073=1026 + RTR / @@2074=7012 + TAD C0053 / @@2075=1053 + CMA / @@2076=7040 + SNA / @@2077=7450 + SZL / @@2100=7430 + HLT / @@2101=7402 + CLA CLL / AC = 0000 @@2102=7300 + TAD C0024 / @@2103=1024 + RTR / @@2104=7012 + TAD L0052 / @@2105=1052 + CMA / @@2106=7040 + SNA / @@2107=7450 + SZL / @@2110=7430 + HLT / @@2111=7402 + CLA / @@2112=7200 + CLL / @@2113=7100 + TAD C0022 / @@2114=1022 + RTR / @@2115=7012 + SNA / @@2116=7450 + SNL / @@2117=7420 + HLT / @@2120=7402 + CLA / @@2121=7200 + CLL / @@2122=7100 + TAD C0021 / @@2123=1021 + RTR / @@2124=7012 + TAD C0066 / @@2125=1066 + CMA / @@2126=7040 + SNA / @@2127=7450 + SZL / @@2130=7430 + HLT / @@2131=7402 + CLA / @@2132=7200 + CLL / @@2133=7100 + TAD C0050 / @@2134=1050 + RAL / @@2135=7004 + SZL / @@2136=7430 + SZA / @@2137=7440 + HLT / @@2140=7402 + CLA / @@2141=7200 + CLL / @@2142=7100 + TAD C0020 / @@2143=1020 + RAL / @@2144=7004 + SNL / @@2145=7420 + SZA / @@2146=7440 + HLT / @@2147=7402 + CLA / @@2150=7200 + CLL / @@2151=7100 + CML / @@2152=7020 + TAD C0020 / @@2153=1020 + RAL / @@2154=7004 + SZL / @@2155=7430 + HLT / @@2156=7402 + CLA / @@2157=7200 + CLL / @@2160=7100 + CML / @@2161=7020 + TAD C0067 / @@2162=1067 + RAL / @@2163=7004 + CMA / @@2164=7040 + SZA / @@2165=7440 + HLT / @@2166=7402 + CLA / @@2167=7200 + CLL / @@2170=7100 + TAD C0045 / @@2171=1045 + RAL / @@2172=7004 + TAD C0066 / @@2173=1066 + CMA / @@2174=7040 + SNA / @@2175=7450 + SZL / @@2176=7430 + HLT / @@2177=7402 + CLA / @@2200=7200 + CLL / @@2201=7100 + TAD C0042 / @@2202=1042 + RAL / @@2203=7004 + TAD C0065 / @@2204=1065 + CMA / @@2205=7040 + SZA / @@2206=7440 + HLT / @@2207=7402 + CLA / @@2210=7200 + CLL / @@2211=7100 + TAD C0040 / @@2212=1040 + RAL / @@2213=7004 + TAD C0064 / @@2214=1064 + CMA / @@2215=7040 + SNA / @@2216=7450 + SZL / @@2217=7430 + HLT / @@2220=7402 + CLA / @@2221=7200 + CLL / @@2222=7100 + TAD C0036 / @@2223=1036 + RAL / @@2224=7004 + TAD C0063 / @@2225=1063 + CMA / @@2226=7040 + SNA / @@2227=7450 + SZL / @@2230=7430 + HLT / @@2231=7402 + CLA / @@2232=7200 + CLL / @@2233=7100 + TAD C0034 / @@2234=1034 + RAL / @@2235=7004 + TAD C0062 / @@2236=1062 + CMA / @@2237=7040 + SNA / @@2240=7450 + SZL / @@2241=7430 + HLT / @@2242=7402 + CLA / @@2243=7200 + CLL / @@2244=7100 + TAD C0032 / @@2245=1032 + RAL / @@2246=7004 + TAD C0061 / @@2247=1061 + CMA / @@2250=7040 + SNA / @@2251=7450 + SZL / @@2252=7430 + HLT / @@2253=7402 + CLA / @@2254=7200 + CLL / @@2255=7100 + TAD C0030 / @@2256=1030 + RAL / @@2257=7004 + TAD C0057 / @@2260=1057 + CMA / @@2261=7040 + SNA / @@2262=7450 + SZL / @@2263=7430 + HLT / @@2264=7402 + CLA / @@2265=7200 + CLL / @@2266=7100 + TAD C0026 / @@2267=1026 + RAL / @@2270=7004 + TAD C0056 / @@2271=1056 + CMA / @@2272=7040 + SNA / @@2273=7450 + SZL / @@2274=7430 + HLT / @@2275=7402 + CLA / @@2276=7200 + CLL / @@2277=7100 + TAD C0024 / @@2300=1024 + RAL / @@2301=7004 + TAD C0055 / @@2302=1055 + CMA / @@2303=7040 + SNA / @@2304=7450 + SZL / @@2305=7430 + HLT / @@2306=7402 + CLA / @@2307=7200 + CLL / @@2310=7100 + TAD C0022 / @@2311=1022 + RAL / @@2312=7004 + TAD C0054 / @@2313=1054 + CMA / @@2314=7040 + SNA / @@2315=7450 + SZL / @@2316=7430 + HLT / @@2317=7402 + CLA / @@2320=7200 + CLL / @@2321=7100 + TAD C0021 / @@2322=1021 + RAL / @@2323=7004 + TAD C0053 / @@2324=1053 + CMA / @@2325=7040 + SNA / @@2326=7450 + SZL / @@2327=7430 + HLT / @@2330=7402 + CLA / @@2331=7200 + CLL / @@2332=7100 + CML / @@2333=7020 + RAL / @@2334=7004 + TAD L0052 / @@2335=1052 + CMA / @@2336=7040 + SNA / @@2337=7450 + SZL / @@2340=7430 + HLT / @@2341=7402 + CLA / @@2342=7200 + CLL / @@2343=7100 + TAD C0045 / @@2344=1045 + RTL / @@2345=7006 + SNL / @@2346=7420 + HLT / @@2347=7402 + CLA / @@2350=7200 + CLL / @@2351=7100 + TAD C0020 / @@2352=1020 + RTL / @@2353=7006 + SZA / @@2354=7440 + HLT / @@2355=7402 + CLA / @@2356=7200 + CLL / @@2357=7100 + TAD C0020 / @@2360=1020 + RTL / @@2361=7006 + SZL / @@2362=7430 + HLT / @@2363=7402 + CLA / @@2364=7200 + CLL / @@2365=7100 + CML / @@2366=7020 + TAD C0020 / @@2367=1020 + RTL / @@2370=7006 + SZL / @@2371=7430 + HLT / @@2372=7402 + CLA / @@2373=7200 + CLL / @@2374=7100 + CML / @@2375=7020 + TAD C0067 / @@2376=1067 + RTL / @@2377=7006 + CMA / @@2400=7040 + SZA / @@2401=7440 + HLT / @@2402=7402 + CLA / @@2403=7200 + CLL / @@2404=7100 + TAD C0050 / @@2405=1050 + RTL / @@2406=7006 + TAD L0052 / @@2407=1052 + CMA / @@2410=7040 + SNA / @@2411=7450 + SZL / @@2412=7430 + HLT / @@2413=7402 + CLA / @@2414=7200 + CLL / @@2415=7100 + TAD C0045 / @@2416=1045 + RTL / @@2417=7006 + SNA / @@2420=7450 + SNL / @@2421=7420 + HLT / @@2422=7402 + CLA / @@2423=7200 + CLL / @@2424=7100 + TAD C0042 / @@2425=1042 + RTL / @@2426=7006 + TAD C0066 / @@2427=1066 + CMA / @@2430=7040 + SNA / @@2431=7450 + SZL / @@2432=7430 + HLT / @@2433=7402 + CLA / @@2434=7200 + CLL / @@2435=7100 + TAD C0040 / @@2436=1040 + RTL / @@2437=7006 + TAD C0065 / @@2440=1065 + CMA / @@2441=7040 + SNA / @@2442=7450 + SZL / @@2443=7430 + HLT / @@2444=7402 + CLA / @@2445=7200 + CLL / @@2446=7100 + TAD C0036 / @@2447=1036 + RTL / @@2450=7006 + TAD C0064 / @@2451=1064 + CMA / @@2452=7040 + SNA / @@2453=7450 + SZL / @@2454=7430 + HLT / @@2455=7402 + CLA / @@2456=7200 + CLL / @@2457=7100 + TAD C0034 / @@2460=1034 + RTL / @@2461=7006 + TAD C0063 / @@2462=1063 + CMA / @@2463=7040 + SNA / @@2464=7450 + SZL / @@2465=7430 + HLT / @@2466=7402 + CLA / @@2467=7200 + CLL / @@2470=7100 + TAD C0032 / @@2471=1032 + RTL / @@2472=7006 + TAD C0062 / @@2473=1062 + CMA / @@2474=7040 + SNA / @@2475=7450 + SZL / @@2476=7430 + HLT / @@2477=7402 + CLA / @@2500=7200 + CLL / @@2501=7100 + TAD C0030 / @@2502=1030 + RTL / @@2503=7006 + TAD C0061 / @@2504=1061 + CMA / @@2505=7040 + SNA / @@2506=7450 + SZL / @@2507=7430 + HLT / @@2510=7402 + CLA / @@2511=7200 + CLL / @@2512=7100 + TAD C0026 / @@2513=1026 + RTL / @@2514=7006 + TAD C0057 / @@2515=1057 + CMA / @@2516=7040 + SNA / @@2517=7450 + SZL / @@2520=7430 + HLT / @@2521=7402 + CLA / @@2522=7200 + CLL / @@2523=7100 + TAD C0024 / @@2524=1024 + RTL / @@2525=7006 + TAD C0056 / @@2526=1056 + CMA / @@2527=7040 + SNA / @@2530=7450 + SZL / @@2531=7430 + HLT / @@2532=7402 + CLA / @@2533=7200 + CLL / @@2534=7100 + TAD C0022 / @@2535=1022 + RTL / @@2536=7006 + TAD C0055 / @@2537=1055 + CMA / @@2540=7040 + SNA / @@2541=7450 + SZL / @@2542=7430 + HLT / @@2543=7402 + CLA / @@2544=7200 + CLL / @@2545=7100 + TAD C0021 / @@2546=1021 + RTL / @@2547=7006 + TAD C0054 / @@2550=1054 + CMA / @@2551=7040 + SNA / @@2552=7450 + SZL / @@2553=7430 + HLT / @@2554=7402 + CLA / @@2555=7200 + CLL / @@2556=7100 + CML / @@2557=7020 + RTL / @@2560=7006 + TAD C0053 / @@2561=1053 + CMA / @@2562=7040 + SNA / @@2563=7450 + SZL / @@2564=7430 + HLT / @@2565=7402 + CLA / @@2566=7200 + CLL / @@2567=7100 + CMA / @@2570=7040 + BSW / @@2571=7002 + CMA / @@2572=7040 + SNL / @@2573=7420 + SZA / @@2574=7440 + HLT / @@2575=7402 + CLA / @@2576=7200 + CLL / @@2577=7100 + CML / @@2600=7020 + BSW / @@2601=7002 + SNA / @@2602=7450 + SNL / @@2603=7420 + HLT / @@2604=7402 + CLA / @@2605=7200 + CLL / @@2606=7100 + TAD C0113 / @@2607=1113 + BSW / @@2610=7002 + TAD C0113 / @@2611=1113 + CMA / @@2612=7040 + SNL / @@2613=7420 + SZA / @@2614=7440 + HLT / @@2615=7402 + CLA / @@2616=7200 + CLL / @@2617=7100 + TAD C0106 / @@2620=1106 + BSW / @@2621=7002 + TAD C0106 / @@2622=1106 + CMA / @@2623=7040 + SNL / @@2624=7420 + SZA / @@2625=7440 + HLT / @@2626=7402 + CLA CLL / AC = 0000 @@2627=7300 + TAD C0116 / @@2630=1116 + BSW / @@2631=7002 + TAD C0116 / @@2632=1116 + CMA / @@2633=7040 + SNL / @@2634=7420 + SZA / @@2635=7440 + HLT / @@2636=7402 + CLA CLL CML / @@2637=7320 + TAD C0117 / @@2640=1117 + BSW / @@2641=7002 + TAD C0117 / @@2642=1117 + CMA / @@2643=7040 + SZL / @@2644=7430 + SZA / @@2645=7440 + HLT / @@2646=7402 + CLA / @@2647=7200 + CLL / @@2650=7100 + TAD C0114 / @@2651=1114 + BSW / @@2652=7002 + TAD C0114 / @@2653=1114 + CMA / @@2654=7040 + SNL / @@2655=7420 + SZA / @@2656=7440 + HLT / @@2657=7402 + CLA / @@2660=7200 + CLL / @@2661=7100 + TAD C0115 / @@2662=1115 + BSW / @@2663=7002 + TAD C0115 / @@2664=1115 + CMA / @@2665=7040 + SNL / @@2666=7420 + SZA / @@2667=7440 + HLT / @@2670=7402 + CLA / @@2671=7200 + CLL / @@2672=7100 + CMA / @@2673=7040 + CML / @@2674=7020 + CLA CLL / AC = 0000 @@2675=7300 + SNL / @@2676=7420 + SZA / @@2677=7440 + HLT / @@2700=7402 + CLA / @@2701=7200 + TAD C0071 / @@2702=1071 + STA / AC = 7777 (-0001) @@2703=7240 + CMA / @@2704=7040 + SZA / @@2705=7440 + HLT / @@2706=7402 + CLA / @@2707=7200 + CLL / @@2710=7100 + CMA / @@2711=7040 + CLL CMA / @@2712=7140 + SNL / @@2713=7420 + SZA / @@2714=7440 + HLT / @@2715=7402 + CLL / @@2716=7100 + CML / @@2717=7020 + CLA / @@2720=7200 + CMA / @@2721=7040 + CLA CLL CMA / AC = 7777 (-0001) @@2722=7340 + CMA / @@2723=7040 + SNL / @@2724=7420 + SZA / @@2725=7440 + HLT / @@2726=7402 + CLA / @@2727=7200 + CLL / @@2730=7100 + CMA / @@2731=7040 + CLA CML / @@2732=7220 + SZL / @@2733=7430 + SZA / @@2734=7440 + HLT / @@2735=7402 + CLL / @@2736=7100 + CML / @@2737=7020 + STL / @@2740=7120 + SNL / @@2741=7420 + HLT / @@2742=7402 + CLL / @@2743=7100 + STL / @@2744=7120 + SNL / @@2745=7420 + HLT / @@2746=7402 + STL / @@2747=7120 + STA / AC = 7777 (-0001) @@2750=7240 + CLA CLL CML / @@2751=7320 + SZL / @@2752=7430 + SZA / @@2753=7440 + HLT / @@2754=7402 + CLA CLL CMA / AC = 7777 (-0001) @@2755=7340 + CLA CLL CML / @@2756=7320 + SZL / @@2757=7430 + SZA / @@2760=7440 + HLT / @@2761=7402 + CLA CLL CMA / AC = 7777 (-0001) @@2762=7340 + CMA CML / @@2763=7060 + SZL / @@2764=7430 + SZA / @@2765=7440 + HLT / @@2766=7402 + CLA CLL / AC = 0000 @@2767=7300 + TAD C0071 / @@2770=1071 + CLA CLL CMA / AC = 7777 (-0001) @@2771=7340 + CMA / @@2772=7040 + SNL / @@2773=7420 + SZA / @@2774=7440 + HLT / @@2775=7402 + CLA CLL / AC = 0000 @@2776=7300 + TAD C0071 / @@2777=1071 + CLL CMA CML / @@3000=7160 + TAD C0071 / @@3001=1071 + CMA / @@3002=7040 + SZL / @@3003=7430 + SZA / @@3004=7440 + HLT / @@3005=7402 + CLA CLL / AC = 0000 @@3006=7300 + CML / @@3007=7020 + CLL CMA CML / @@3010=7160 + CMA / @@3011=7040 + SZL / @@3012=7430 + SZA / @@3013=7440 + HLT / @@3014=7402 + CLA CLL / AC = 0000 @@3015=7300 + TAD C0071 / @@3016=1071 + CLA CLL CMA CML / @@3017=7360 + CMA / @@3020=7040 + SZL / @@3021=7430 + SZA / @@3022=7440 + HLT / @@3023=7402 + CLA CLL CML / @@3024=7320 + TAD C0070 / @@3025=1070 + CLA CLL CMA CML / @@3026=7360 + CMA / @@3027=7040 + SZL / @@3030=7430 + SZA / @@3031=7440 + HLT / @@3032=7402 + CLA / @@3033=7200 + TAD C0071 / @@3034=1071 + CLA IAC / @@3035=7201 + TAD L0052 / @@3036=1052 + CMA / @@3037=7040 + SZA / @@3040=7440 + HLT / @@3041=7402 + CLA CLL CML / @@3042=7320 + TAD L0052 / @@3043=1052 + CLL IAC / @@3044=7101 + CMA / @@3045=7040 + SNL / @@3046=7420 + SZA / @@3047=7440 + HLT / @@3050=7402 + CLA CLL CML / @@3051=7320 + TAD C0071 / @@3052=1071 + CLA CLL IAC / AC = 0001 @@3053=7301 + TAD L0052 / @@3054=1052 + CMA / @@3055=7040 + SNL / @@3056=7420 + SZA / @@3057=7440 + HLT / @@3060=7402 + CLA CLL / AC = 0000 @@3061=7300 + CIA / @@3062=7041 + SZL / @@3063=7430 + SZA / @@3064=7440 + HLT / @@3065=7402 + CLA CLL / AC = 0000 @@3066=7300 + TAD C0071 / @@3067=1071 + CLA CMA IAC / @@3070=7241 + SZL / @@3071=7430 + SZA / @@3072=7440 + HLT / @@3073=7402 + CLA CLL CML / @@3074=7320 + TAD C0021 / @@3075=1021 + CLL CMA IAC / @@3076=7141 + CMA / @@3077=7040 + SNL / @@3100=7420 + SZA / @@3101=7440 + HLT / @@3102=7402 + CLA CLL CML / @@3103=7320 + TAD C0071 / @@3104=1071 + CLA CLL CMA IAC / @@3105=7341 + SZL / @@3106=7430 + SZA / @@3107=7440 + HLT / @@3110=7402 + CLA CLL / AC = 0000 @@3111=7300 + TAD C0070 / @@3112=1070 + CLA CLL CMA IAC / @@3113=7341 + SZL / @@3114=7430 + SZA / @@3115=7440 + HLT / @@3116=7402 + CLA CLL / AC = 0000 @@3117=7300 + TAD L0052 / @@3120=1052 + CML IAC / @@3121=7021 + CMA / @@3122=7040 + SZL / @@3123=7430 + SZA / @@3124=7440 + HLT / @@3125=7402 + CLA CLL CML / @@3126=7320 + TAD L0052 / @@3127=1052 + CML IAC / @@3130=7021 + CMA / @@3131=7040 + SNL / @@3132=7420 + SZA / @@3133=7440 + HLT / @@3134=7402 + CLA CLL / AC = 0000 @@3135=7300 + TAD C0071 / @@3136=1071 + CLA CML IAC / @@3137=7221 + TAD L0052 / @@3140=1052 + CMA / @@3141=7040 + SZL / @@3142=7430 + SZA / @@3143=7440 + HLT / @@3144=7402 + CLA CLL CML / @@3145=7320 + TAD L0052 / @@3146=1052 + CLL CML IAC / @@3147=7121 + CMA / @@3150=7040 + SZL / @@3151=7430 + SZA / @@3152=7440 + HLT / @@3153=7402 + CLA CLL / AC = 0000 @@3154=7300 + TAD L0052 / @@3155=1052 + CLL CML IAC / @@3156=7121 + CMA / @@3157=7040 + SZL / @@3160=7430 + SZA / @@3161=7440 + HLT / @@3162=7402 + CLA CLL / AC = 0000 @@3163=7300 + TAD C0071 / @@3164=1071 + CLA CLL CML IAC / @@3165=7321 + TAD L0052 / @@3166=1052 + CMA / @@3167=7040 + SZL / @@3170=7430 + SZA / @@3171=7440 + HLT / @@3172=7402 + CLA CLL CML / @@3173=7320 + TAD C0071 / @@3174=1071 + CLA CLL CML IAC / @@3175=7321 + TAD L0052 / @@3176=1052 + CMA / @@3177=7040 + SZL / @@3200=7430 + SZA / @@3201=7440 + HLT / @@3202=7402 + CLA CLL / AC = 0000 @@3203=7300 + TAD C0021 / @@3204=1021 + CMA CML IAC / @@3205=7061 + CMA / @@3206=7040 + SZL / @@3207=7430 + SZA / @@3210=7440 + HLT / @@3211=7402 + CLA CLL CML / @@3212=7320 + TAD C0021 / @@3213=1021 + CMA CML IAC / @@3214=7061 + CMA / @@3215=7040 + SNL / @@3216=7420 + SZA / @@3217=7440 + HLT / @@3220=7402 + CLA CLL / AC = 0000 @@3221=7300 + TAD C0071 / @@3222=1071 + CLA CMA CML IAC / @@3223=7261 + SNL / @@3224=7420 + SZL / @@3225=7430 + HLT / @@3226=7402 + CLA CLL CML / @@3227=7320 + TAD C0071 / @@3230=1071 + CLA CMA CML IAC / @@3231=7261 + SZL / @@3232=7430 + SZA / @@3233=7440 + HLT / @@3234=7402 + CLA CLL / AC = 0000 @@3235=7300 + TAD C0021 / @@3236=1021 + CLL CMA CML IAC / @@3237=7161 + CMA / @@3240=7040 + SZL / @@3241=7430 + SZA / @@3242=7440 + HLT / @@3243=7402 + CLA CLL CML / @@3244=7320 + TAD C0021 / @@3245=1021 + CLL CMA CML IAC / @@3246=7161 + CMA / @@3247=7040 + SZL / @@3250=7430 + SZA / @@3251=7440 + HLT / @@3252=7402 + CLA CLL / AC = 0000 @@3253=7300 + TAD C0071 / @@3254=1071 + CLA CLL CMA CML IAC / @@3255=7361 + SNL / @@3256=7420 + SZA / @@3257=7440 + HLT / @@3260=7402 + CLA CLL CMA CML / @@3261=7360 + CLA RAR / @@3262=7210 + TAD C0066 / @@3263=1066 + CMA / @@3264=7040 + SNL / @@3265=7420 + SZA / @@3266=7440 + HLT / @@3267=7402 + CLA CLL CMA CML / @@3270=7360 + GLK / @@3271=7204 + TAD L0052 / @@3272=1052 + CMA / @@3273=7040 + SNL / @@3274=7420 + SZA / @@3275=7440 + HLT / @@3276=7402 + CLA CLL CMA CML / @@3277=7360 + CLA RTR / @@3300=7212 + TAD C0065 / @@3301=1065 + CMA / @@3302=7040 + SNL / @@3303=7420 + SZA / @@3304=7440 + HLT / @@3305=7402 + CLA CLL CMA CML / @@3306=7360 + CLA RTL / @@3307=7206 + TAD C0053 / @@3310=1053 + CMA / @@3311=7040 + SNL / @@3312=7420 + SZA / @@3313=7440 + HLT / @@3314=7402 + CLA CLL CML / @@3315=7320 + TAD C0032 / @@3316=1032 + CLL RAR / @@3317=7110 + TAD C0056 / @@3320=1056 + CMA / @@3321=7040 + SNL / @@3322=7420 + SZA / @@3323=7440 + HLT / @@3324=7402 + CLA CLL CML / @@3325=7320 + TAD C0032 / @@3326=1032 + CLL RAL / @@3327=7104 + TAD C0061 / @@3330=1061 + CMA / @@3331=7040 + SNL / @@3332=7420 + SZA / @@3333=7440 + HLT / @@3334=7402 + CLA CLL CML / @@3335=7320 + TAD C0032 / @@3336=1032 + CLL RTR / @@3337=7112 + TAD C0055 / @@3340=1055 + CMA / @@3341=7040 + SNL / @@3342=7420 + SZA / @@3343=7440 + HLT / @@3344=7402 + CLA CLL CML / @@3345=7320 + TAD C0032 / @@3346=1032 + CLL RTL / @@3347=7106 + TAD C0062 / @@3350=1062 + CMA / @@3351=7040 + SNL / @@3352=7420 + SZA / @@3353=7440 + HLT / @@3354=7402 + CLA CLL CMA CML / @@3355=7360 + CLA CLL RAR / @@3356=7310 + SNL / @@3357=7420 + SZA / @@3360=7440 + HLT / @@3361=7402 + CLA CLL CMA CML / @@3362=7360 + CLA CLL RAL / @@3363=7304 + SNL / @@3364=7420 + SZL / @@3365=7430 + HLT / @@3366=7402 + CLA CLL CMA CML / @@3367=7360 + CLA CLL RTR / @@3370=7312 + SNL / @@3371=7420 + SZA / @@3372=7440 + HLT / @@3373=7402 + CLA CLL CMA CML / @@3374=7360 + CLA CLL RTL / @@3375=7306 + SNL / @@3376=7420 + SZA / @@3377=7440 + HLT / @@3400=7402 + CLA CLL / AC = 0000 @@3401=7300 + CML RAR / @@3402=7030 + TAD C0066 / @@3403=1066 + CMA / @@3404=7040 + SNL / @@3405=7420 + SZA / @@3406=7440 + HLT / @@3407=7402 + CLA CLL / AC = 0000 @@3410=7300 + CML RAL / @@3411=7024 + TAD L0052 / @@3412=1052 + CMA / @@3413=7040 + SNL / @@3414=7420 + SZA / @@3415=7440 + HLT / @@3416=7402 + CLA CLL / AC = 0000 @@3417=7300 + CML RTR / @@3420=7032 + TAD C0065 / @@3421=1065 + CMA / @@3422=7040 + SNL / @@3423=7420 + SZA / @@3424=7440 + HLT / @@3425=7402 + CLA CLL / AC = 0000 @@3426=7300 + CML RTL / @@3427=7026 + TAD C0053 / @@3430=1053 + CMA / @@3431=7040 + SNL / @@3432=7420 + SZA / @@3433=7440 + HLT / @@3434=7402 + CLA CLL / AC = 0000 @@3435=7300 + TAD C0070 / @@3436=1070 + CLA CML RAR / @@3437=7230 + TAD C0066 / @@3440=1066 + CMA / @@3441=7040 + SNL / @@3442=7420 + SZA / @@3443=7440 + HLT / @@3444=7402 + CLA CLL / AC = 0000 @@3445=7300 + TAD C0070 / @@3446=1070 + CLA CML RAL / @@3447=7224 + TAD L0052 / @@3450=1052 + CMA / @@3451=7040 + SNL / @@3452=7420 + SZA / @@3453=7440 + HLT / @@3454=7402 + CLA CLL / AC = 0000 @@3455=7300 + TAD C0070 / @@3456=1070 + CLA CML RTR / @@3457=7232 + TAD C0065 / @@3460=1065 + CMA / @@3461=7040 + SNL / @@3462=7420 + SZA / @@3463=7440 + HLT / @@3464=7402 + CLA CLL / AC = 0000 @@3465=7300 + TAD C0070 / @@3466=1070 + CLA CML RTL / @@3467=7226 + TAD C0053 / @@3470=1053 + CMA / @@3471=7040 + SNL / @@3472=7420 + SZA / @@3473=7440 + HLT / @@3474=7402 + CLA CLL / AC = 0000 @@3475=7300 + CLL CML RAR / @@3476=7130 + RAL / @@3477=7004 + SZL / @@3500=7430 + SZA / @@3501=7440 + HLT / @@3502=7402 + CLA CLL CML / @@3503=7320 + CLL CML RAR / @@3504=7130 + RAL / @@3505=7004 + SZL / @@3506=7430 + SZA / @@3507=7440 + HLT / @@3510=7402 + CLA CLL / AC = 0000 @@3511=7300 + CLL CML RAL / @@3512=7124 + RAR / @@3513=7010 + SZL / @@3514=7430 + SZA / @@3515=7440 + HLT / @@3516=7402 + CLA CLL CML / @@3517=7320 + CLL CML RAL / @@3520=7124 + RAR / @@3521=7010 + SZL / @@3522=7430 + SZA / @@3523=7440 + HLT / @@3524=7402 + CLA CLL / AC = 0000 @@3525=7300 + CLL CML RTR / @@3526=7132 + RTL / @@3527=7006 + SZL / @@3530=7430 + SZA / @@3531=7440 + HLT / @@3532=7402 + CLA CLL CML / @@3533=7320 + CLL CML RTR / @@3534=7132 + RTL / @@3535=7006 + SZL / @@3536=7430 + SZA / @@3537=7440 + HLT / @@3540=7402 + CLA CLL / AC = 0000 @@3541=7300 + CLL CML RTL / @@3542=7126 + RTR / @@3543=7012 + SZL / @@3544=7430 + SZA / @@3545=7440 + HLT / @@3546=7402 + CLA CLL CML / @@3547=7320 + CLL CML RTL / @@3550=7126 + RTR / @@3551=7012 + SZL / @@3552=7430 + SZA / @@3553=7440 + HLT / @@3554=7402 + CLA CLL / AC = 0000 @@3555=7300 + TAD C0070 / @@3556=1070 + CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@3557=7330 + RAL / @@3560=7004 + SZL / @@3561=7430 + SZA / @@3562=7440 + HLT / @@3563=7402 + CLA CLL CML / @@3564=7320 + TAD C0071 / @@3565=1071 + CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@3566=7330 + RAL / @@3567=7004 + SZL / @@3570=7430 + SZA / @@3571=7440 + HLT / @@3572=7402 + CLA CLL / AC = 0000 @@3573=7300 + TAD C0071 / @@3574=1071 + CLA CLL CML RAL / @@3575=7324 + RAR / @@3576=7010 + SZL / @@3577=7430 + SZA / @@3600=7440 + HLT / @@3601=7402 + CLA CLL CML / @@3602=7320 + TAD C0070 / @@3603=1070 + CLA CLL CML RAL / @@3604=7324 + RAR / @@3605=7010 + SZL / @@3606=7430 + SZA / @@3607=7440 + HLT / @@3610=7402 + CLA CLL / AC = 0000 @@3611=7300 + TAD C0071 / @@3612=1071 + CLA CLL CML RTR / AC = 2000 (1024) @@3613=7332 + RTL / @@3614=7006 + SZL / @@3615=7430 + SZA / @@3616=7440 + HLT / @@3617=7402 + CLA CLL CML / @@3620=7320 + TAD C0070 / @@3621=1070 + CLA CLL CML RTR / AC = 2000 (1024) @@3622=7332 + RTL / @@3623=7006 + SZL / @@3624=7430 + SZA / @@3625=7440 + HLT / @@3626=7402 + CLA CLL / AC = 0000 @@3627=7300 + TAD C0071 / @@3630=1071 + CLA CLL CML RTL / AC = 0002 @@3631=7326 + RTR / @@3632=7012 + SZL / @@3633=7430 + SZA / @@3634=7440 + HLT / @@3635=7402 + CLA CLL CML / @@3636=7320 + TAD C0070 / @@3637=1070 + CLA CLL CML RTL / AC = 0002 @@3640=7326 + RTR / @@3641=7012 + SZL / @@3642=7430 + SZA / @@3643=7440 + HLT / @@3644=7402 + CLA CLL / AC = 0000 @@3645=7300 + TAD C0067 / @@3646=1067 + CIA / @@3647=7041 + TAD L0052 / @@3650=1052 + CMA / @@3651=7040 + SNL / @@3652=7420 + SZA / @@3653=7440 + HLT / @@3654=7402 + CLA CLL / AC = 0000 @@3655=7300 + TAD L0052 / @@3656=1052 + CIA / @@3657=7041 + TAD C0053 / @@3660=1053 + CMA / @@3661=7040 + SNL / @@3662=7420 + SZA / @@3663=7440 + HLT / @@3664=7402 + CLA CLL / AC = 0000 @@3665=7300 + TAD C0101 / @@3666=1101 + CIA / @@3667=7041 + TAD C0054 / @@3670=1054 + CMA / @@3671=7040 + SNL / @@3672=7420 + SZA / @@3673=7440 + HLT / @@3674=7402 + CLA CLL / AC = 0000 @@3675=7300 + TAD C0100 / @@3676=1100 + CIA / @@3677=7041 + TAD C0055 / @@3700=1055 + CMA / @@3701=7040 + SNL / @@3702=7420 + SZA / @@3703=7440 + HLT / @@3704=7402 + CLA CLL / AC = 0000 @@3705=7300 + TAD C0077 / @@3706=1077 + CIA / @@3707=7041 + TAD C0056 / @@3710=1056 + CMA / @@3711=7040 + SNL / @@3712=7420 + SZA / @@3713=7440 + HLT / @@3714=7402 + CLA CLL / AC = 0000 @@3715=7300 + TAD C0076 / @@3716=1076 + CIA / @@3717=7041 + TAD C0057 / @@3720=1057 + CMA / @@3721=7040 + SNL / @@3722=7420 + SZA / @@3723=7440 + HLT / @@3724=7402 + CLA CLL / AC = 0000 @@3725=7300 + TAD C0113 / @@3726=1113 + CIA / @@3727=7041 + TAD C0061 / @@3730=1061 + CMA / @@3731=7040 + SNL / @@3732=7420 + SZA / @@3733=7440 + HLT / @@3734=7402 + CLA CLL / AC = 0000 @@3735=7300 + TAD C0075 / @@3736=1075 + CIA / @@3737=7041 + TAD C0062 / @@3740=1062 + CMA / @@3741=7040 + SNL / @@3742=7420 + SZA / @@3743=7440 + HLT / @@3744=7402 + CLA CLL / AC = 0000 @@3745=7300 + TAD C0074 / @@3746=1074 + CIA / @@3747=7041 + TAD C0063 / @@3750=1063 + CMA / @@3751=7040 + SNL / @@3752=7420 + SZA / @@3753=7440 + HLT / @@3754=7402 + CLA CLL / AC = 0000 @@3755=7300 + TAD C0073 / @@3756=1073 + CIA / @@3757=7041 + TAD C0064 / @@3760=1064 + CMA / @@3761=7040 + SNL / @@3762=7420 + SZA / @@3763=7440 + HLT / @@3764=7402 + CLA CLL / AC = 0000 @@3765=7300 + TAD C0072 / @@3766=1072 + CIA / @@3767=7041 + TAD C0065 / @@3770=1065 + CMA / @@3771=7040 + SNL / @@3772=7420 + SZA / @@3773=7440 + HLT / @@3774=7402 + CLA CLL / AC = 0000 @@3775=7300 + TAD C0050 / @@3776=1050 + CIA / @@3777=7041 + TAD C0066 / @@4000=1066 + CMA / @@4001=7040 + SNL / @@4002=7420 + SZA / @@4003=7440 + HLT / @@4004=7402 + CLA CLL / AC = 0000 @@4005=7300 + TAD C0020 / @@4006=1020 + CIA / @@4007=7041 + SNA / @@4010=7450 + SNL / @@4011=7420 + HLT / @@4012=7402 + CLA CLL CMA / AC = 7777 (-0001) @@4013=7340 + CLA CLL IAC RAR / @@4014=7311 + SZL / @@4015=7430 + SZA / @@4016=7440 + HLT / @@4017=7402 + CLA CLL CMA CML / @@4020=7360 + CLA CLL IAC RAL / AC = 0002 @@4021=7305 + SZL / @@4022=7430 + HLT / @@4023=7402 + CIA / @@4024=7041 + TAD C0022 / @@4025=1022 + SZA / @@4026=7440 + HLT / @@4027=7402 + CLA CLL CML / @@4030=7320 + CLA CLL IAC RTR / @@4031=7313 + SZL / @@4032=7430 + HLT / @@4033=7402 + SMA / @@4034=7500 + HLT / @@4035=7402 + CLA CLL CMA CML / @@4036=7360 + CLA CLL IAC RTL / AC = 0004 @@4037=7307 + SZL / @@4040=7430 + HLT / @@4041=7402 + CIA / @@4042=7041 + TAD C0024 / @@4043=1024 + SZA / @@4044=7440 + HLT / @@4045=7402 + CLA CLL / AC = 0000 @@4046=7300 + CLA CLL CML IAC RAR / @@4047=7331 + SMA SNL / @@4050=7520 + HLT / @@4051=7402 + CLA CLL / AC = 0000 @@4052=7300 + CLA CLL CMA IAC RAL / @@4053=7345 + SZL / @@4054=7430 + HLT / @@4055=7402 + CIA / @@4056=7041 + TAD C0021 / @@4057=1021 + SZA / @@4060=7440 + HLT / @@4061=7402 + CLA CLL CMA CML / @@4062=7360 + CLA CLL CMA CML IAC RTR / @@4063=7373 + SZA / @@4064=7440 + HLT / @@4065=7402 + SZL / @@4066=7430 + HLT / @@4067=7402 + CLA CLL CML RTR / AC = 2000 (1024) @@4070=7332 + RTL / @@4071=7006 + SZL / @@4072=7430 + SZA / @@4073=7440 + HLT / @@4074=7402 + CLA CLL CMA CML / @@4075=7360 + CLA CLL CMA / @@4076=7342 + CMA / @@4077=7040 + SNL / @@4100=7420 + SZA / @@4101=7440 + HLT / @@4102=7402 + CLA CLL CMA CML / @@4103=7360 + CLA CLL IAC / @@4104=7303 + TAD C0061 / @@4105=1061 + CMA / @@4106=7040 + SNL / @@4107=7420 + SZA / @@4110=7440 + HLT / @@4111=7402 + CLA CLL CMA CML / @@4112=7360 + CLA CLL CMA IAC / @@4113=7343 + SZL / @@4114=7430 + SZA / @@4115=7440 + HLT / @@4116=7402 + CLA CLL CMA CML / @@4117=7360 + CLA CLL CMA CML IAC / @@4120=7363 + SNL / @@4121=7420 + SZA / @@4122=7440 + HLT / @@4123=7402 + CLA CLL / AC = 0000 @@4124=7300 + TAD C0043 / @@4125=1043 + CMA CML IAC / @@4126=7063 + TAD C0047 / @@4127=1047 + CMA / @@4130=7040 + SZL / @@4131=7430 + SZA / @@4132=7440 + HLT / @@4133=7402 + CLA CLL CML RTR / AC = 2000 (1024) @@4134=7332 + CMA CML IAC / @@4135=7063 + TAD C0051 / @@4136=1051 + CMA / @@4137=7040 + SZL / @@4140=7430 + SZA / @@4141=7440 + HLT / @@4142=7402 + STA / AC = 7777 (-0001) @@4143=7240 + SMA CLA / @@4144=7700 + HLT / @@4145=7402 + SZA / @@4146=7440 + HLT / @@4147=7402 + STA / AC = 7777 (-0001) @@4150=7240 + SZA CLA / @@4151=7640 + SZA / @@4152=7440 + HLT / @@4153=7402 + STA / AC = 7777 (-0001) @@4154=7240 + SMA SZA / @@4155=7540 + HLT / @@4156=7402 + CLA / @@4157=7200 + SMA SZA / @@4160=7540 + HLT / @@4161=7402 + CLA / @@4162=7200 + TAD C0066 / @@4163=1066 + SMA SZA / @@4164=7540 + SNA / @@4165=7450 + HLT / @@4166=7402 + STA / AC = 7777 (-0001) @@4167=7240 + SMA SZA CLA / @@4170=7740 + HLT / @@4171=7402 + SZA / @@4172=7440 + HLT / @@4173=7402 + CLA / @@4174=7200 + SMA SZA CLA / @@4175=7740 + HLT / @@4176=7402 + SZA / @@4177=7440 + HLT / @@4200=7402 + CLA / @@4201=7200 + TAD C0066 / @@4202=1066 + SMA SZA CLA / @@4203=7740 + SZA / @@4204=7440 + HLT / @@4205=7402 + CLA CLL / AC = 0000 @@4206=7300 + TAD C0070 / @@4207=1070 + SNL CLA / @@4210=7620 + SZA / @@4211=7440 + HLT / @@4212=7402 + CLA CLL CML / @@4213=7320 + TAD C0071 / @@4214=1071 + SNL CLA / @@4215=7620 + HLT / @@4216=7402 + SZA / @@4217=7440 + HLT / @@4220=7402 + CLA CLL / AC = 0000 @@4221=7300 + SMA SNL / @@4222=7520 + SZA / @@4223=7440 + HLT / @@4224=7402 + CLA CLL CML / @@4225=7320 + SMA SNL / @@4226=7520 + HLT / @@4227=7402 + CLA CLL / AC = 0000 @@4230=7300 + TAD C0050 / @@4231=1050 + SMA SNL / @@4232=7520 + HLT / @@4233=7402 + CLA CLL CML / @@4234=7320 + TAD C0050 / @@4235=1050 + SMA SNL / @@4236=7520 + HLT / @@4237=7402 + CLA CLL / AC = 0000 @@4240=7300 + SMA SNL CLA / @@4241=7720 + SZA / @@4242=7440 + HLT / @@4243=7402 + CLA CLL CML / @@4244=7320 + SMA SNL CLA / @@4245=7720 + HLT / @@4246=7402 + SZA / @@4247=7440 + HLT / @@4250=7402 + CLA CLL / AC = 0000 @@4251=7300 + TAD C0050 / @@4252=1050 + SMA SNL CLA / @@4253=7720 + HLT / @@4254=7402 + SZA / @@4255=7440 + HLT / @@4256=7402 + CLA CLL CML / @@4257=7320 + TAD C0050 / @@4260=1050 + SMA SNL CLA / @@4261=7720 + HLT / @@4262=7402 + SZA / @@4263=7440 + HLT / @@4264=7402 + CLA CLL / AC = 0000 @@4265=7300 + SZA SNL / @@4266=7460 + HLT / @@4267=7402 + CLA CLL CML / @@4270=7320 + SZA SNL / @@4271=7460 + HLT / @@4272=7402 + CLA CLL / AC = 0000 @@4273=7300 + TAD C0040 / @@4274=1040 + SZA SNL / @@4275=7460 + SNA / @@4276=7450 + HLT / @@4277=7402 + CLA CLL CML / @@4300=7320 + TAD C0032 / @@4301=1032 + SZA SNL / @@4302=7460 + HLT / @@4303=7402 + CLA CLL / AC = 0000 @@4304=7300 + SZA SNL CLA / @@4305=7660 + HLT / @@4306=7402 + SZA / @@4307=7440 + HLT / @@4310=7402 + CLA CLL CML / @@4311=7320 + SZA SNL CLA / @@4312=7660 + HLT / @@4313=7402 + SZA / @@4314=7440 + HLT / @@4315=7402 + CLA CLL CML / @@4316=7320 + TAD C0036 / @@4317=1036 + SZA SNL CLA / @@4320=7660 + HLT / @@4321=7402 + SZA / @@4322=7440 + HLT / @@4323=7402 + CLA CLL / AC = 0000 @@4324=7300 + TAD C0045 / @@4325=1045 + SZA SNL CLA / @@4326=7660 + SZA / @@4327=7440 + HLT / @@4330=7402 + CLA CLL / AC = 0000 @@4331=7300 + SMA SZA SNL / @@4332=7560 + HLT / @@4333=7402 + CLA CLL CML / @@4334=7320 + TAD C0066 / @@4335=1066 + SMA SZA SNL / @@4336=7560 + HLT / @@4337=7402 + CLA CLL / AC = 0000 @@4340=7300 + TAD C0050 / @@4341=1050 + SMA SZA SNL / @@4342=7560 + HLT / @@4343=7402 + CLA CLL / AC = 0000 @@4344=7300 + TAD C0066 / @@4345=1066 + SMA SZA SNL / @@4346=7560 + SNA / @@4347=7450 + HLT / @@4350=7402 + CLA CLL / AC = 0000 @@4351=7300 + SMA SZA SNL CLA / @@4352=7760 + HLT / @@4353=7402 + SZA / @@4354=7440 + HLT / @@4355=7402 + CLA CLL CML / @@4356=7320 + TAD C0066 / @@4357=1066 + SMA SZA SNL CLA / @@4360=7760 + HLT / @@4361=7402 + SZA / @@4362=7440 + HLT / @@4363=7402 + CLA CLL / AC = 0000 @@4364=7300 + TAD C0050 / @@4365=1050 + SMA SZA SNL CLA / @@4366=7760 + HLT / @@4367=7402 + SZA / @@4370=7440 + HLT / @@4371=7402 + CLA CLL / AC = 0000 @@4372=7300 + TAD C0066 / @@4373=1066 + SMA SZA SNL CLA / @@4374=7760 + SZA / @@4375=7440 + HLT / @@4376=7402 + CLA CLL / AC = 0000 @@4377=7300 + SKP / @@4400=7410 + HLT / @@4401=7402 + CLA CLL CML / @@4402=7320 + SKP / @@4403=7410 + HLT / @@4404=7402 + CLA CLL CML / @@4405=7320 + TAD C0066 / @@4406=1066 + SKP / @@4407=7410 + HLT / @@4410=7402 + CLA CLL / AC = 0000 @@4411=7300 + TAD C0066 / @@4412=1066 + SKP / @@4413=7410 + HLT / @@4414=7402 + CLA / @@4415=7200 + TAD C0066 / @@4416=1066 + SPA CLA / @@4417=7710 + HLT / @@4420=7402 + SZA / @@4421=7440 + HLT / @@4422=7402 + CLA / @@4423=7200 + TAD C0050 / @@4424=1050 + SPA CLA / @@4425=7710 + SZA / @@4426=7440 + HLT / @@4427=7402 + STA / AC = 7777 (-0001) @@4430=7240 + SNA CLA / @@4431=7650 + HLT / @@4432=7402 + CLA / @@4433=7200 + SNA CLA / @@4434=7650 + SZA / @@4435=7440 + HLT / @@4436=7402 + CLA / @@4437=7200 + SPA SNA / @@4440=7550 + SZA / @@4441=7440 + HLT / @@4442=7402 + CLA / @@4443=7200 + TAD C0066 / @@4444=1066 + SPA SNA / @@4445=7550 + HLT / @@4446=7402 + CLA / @@4447=7200 + TAD C0050 / @@4450=1050 + SPA SNA / @@4451=7550 + SNA / @@4452=7450 + HLT / @@4453=7402 + CLA / @@4454=7200 + SPA SNA CLA / @@4455=7750 + SZA / @@4456=7440 + HLT / @@4457=7402 + CLA / @@4460=7200 + TAD C0066 / @@4461=1066 + SPA SNA CLA / @@4462=7750 + HLT / @@4463=7402 + SZA / @@4464=7440 + HLT / @@4465=7402 + CLA / @@4466=7200 + TAD C0050 / @@4467=1050 + SPA SNA CLA / @@4470=7750 + SZA / @@4471=7440 + HLT / @@4472=7402 + CLA CLL / AC = 0000 @@4473=7300 + TAD C0070 / @@4474=1070 + SZL CLA / @@4475=7630 + HLT / @@4476=7402 + SZA / @@4477=7440 + HLT / @@4500=7402 + CLA CLL CMA CML / @@4501=7360 + SZL CLA / @@4502=7630 + SZA / @@4503=7440 + HLT / @@4504=7402 + CLA CLL / AC = 0000 @@4505=7300 + TAD C0066 / @@4506=1066 + SPA SZL / @@4507=7530 + HLT / @@4510=7402 + CLA CLL CML / @@4511=7320 + TAD C0066 / @@4512=1066 + SPA SZL / @@4513=7530 + SNA / @@4514=7450 + HLT / @@4515=7402 + CLA CLL / AC = 0000 @@4516=7300 + TAD C0050 / @@4517=1050 + SPA SZL / @@4520=7530 + SMA / @@4521=7500 + HLT / @@4522=7402 + CLA CLL / AC = 0000 @@4523=7300 + TAD C0066 / @@4524=1066 + SPA SZL CLA / @@4525=7730 + HLT / @@4526=7402 + SZA / @@4527=7440 + HLT / @@4530=7402 + CLA CLL CML / @@4531=7320 + TAD C0066 / @@4532=1066 + SPA SZL CLA / @@4533=7730 + SZA / @@4534=7440 + HLT / @@4535=7402 + CLA CLL / AC = 0000 @@4536=7300 + TAD C0050 / @@4537=1050 + SPA SZL CLA / @@4540=7730 + SZA / @@4541=7440 + HLT / @@4542=7402 + CLA CLL / AC = 0000 @@4543=7300 + TAD C0050 / @@4544=1050 + SNA SZL / @@4545=7470 + HLT / @@4546=7402 + CLA CLL CML / @@4547=7320 + TAD C0050 / @@4550=1050 + SNA SZL / @@4551=7470 + SNL / @@4552=7420 + HLT / @@4553=7402 + CLA CLL / AC = 0000 @@4554=7300 + SNA SZL / @@4555=7470 + SZL / @@4556=7430 + HLT / @@4557=7402 + CLA CLL CML / @@4560=7320 + TAD C0050 / @@4561=1050 + SNA SZL CLA / @@4562=7670 + SZA / @@4563=7440 + HLT / @@4564=7402 + CLA CLL / AC = 0000 @@4565=7300 + TAD C0050 / @@4566=1050 + SNA SZL CLA / @@4567=7670 + HLT / @@4570=7402 + SZA / @@4571=7440 + HLT / @@4572=7402 + CLA CLL / AC = 0000 @@4573=7300 + SNA SZL CLA / @@4574=7670 + SZA / @@4575=7440 + HLT / @@4576=7402 + CLA CLL / AC = 0000 @@4577=7300 + TAD C0066 / @@4600=1066 + SPA SNA SZL / @@4601=7570 + HLT / @@4602=7402 + CLA CLL CML / @@4603=7320 + TAD C0066 / @@4604=1066 + SPA SNA SZL / @@4605=7570 + SNL / @@4606=7420 + HLT / @@4607=7402 + CLA CLL / AC = 0000 @@4610=7300 + SPA SNA SZL / @@4611=7570 + SZL / @@4612=7430 + HLT / @@4613=7402 + CLA CLL / AC = 0000 @@4614=7300 + TAD C0050 / @@4615=1050 + SPA SNA SZL / @@4616=7570 + SZL / @@4617=7430 + HLT / @@4620=7402 + CLA CLL / AC = 0000 @@4621=7300 + TAD C0066 / @@4622=1066 + SPA SNA SZL CLA / @@4623=7770 + HLT / @@4624=7402 + SZA / @@4625=7440 + HLT / @@4626=7402 + CLA CLL CML / @@4627=7320 + TAD C0066 / @@4630=1066 + SPA SNA SZL CLA / @@4631=7770 + SZA / @@4632=7440 + HLT / @@4633=7402 + CLA CLL / AC = 0000 @@4634=7300 + TAD C0050 / @@4635=1050 + SPA SNA SZL CLA / @@4636=7770 + SZA / @@4637=7440 + HLT / @@4640=7402 + CLA CLL / AC = 0000 @@4641=7300 + SPA SNA SZL CLA / @@4642=7770 + SZA / @@4643=7440 + HLT / @@4644=7402 + CLA / @@4645=7200 + TAD C0070 / @@4646=1070 + LAS / @@4647=7604 + CMA / @@4650=7040 + SZA / @@4651=7440 + HLT / @@4652=7402 + CLA / @@4653=7200 + TAD C0050 / @@4654=1050 + SMA OSR / @@4655=7504 + HLT / @@4656=7402 + CMA / @@4657=7040 + SZA / @@4660=7440 + HLT / @@4661=7402 + CLA / @@4662=7200 + SZA OSR / @@4663=7444 + HLT / @@4664=7402 + CMA / @@4665=7040 + SZA / @@4666=7440 + HLT / @@4667=7402 + CLA CLL CML / @@4670=7320 + SNL OSR / @@4671=7424 + HLT / @@4672=7402 + CMA / @@4673=7040 + SZA / @@4674=7440 + HLT / @@4675=7402 + CLA CLL / AC = 0000 @@4676=7300 + TAD C0066 / @@4677=1066 + SMA SZA SNL CLA OSR / @@4700=7764 + SNA / @@4701=7450 + HLT / @@4702=7402 + CMA / @@4703=7040 + SZA / @@4704=7440 + HLT / @@4705=7402 + CLA / @@4706=7200 + OSR / @@4707=7414 + HLT / @@4710=7402 + CMA / @@4711=7040 + SZA / @@4712=7440 + HLT / @@4713=7402 + CLA / @@4714=7200 + SPA OSR / @@4715=7514 + HLT / @@4716=7402 + CMA / @@4717=7040 + SZA / @@4720=7440 + HLT / @@4721=7402 + CLA / @@4722=7200 + TAD C0040 / @@4723=1040 + SNA OSR / @@4724=7454 + HLT / @@4725=7402 + CMA / @@4726=7040 + SZA / @@4727=7440 + HLT / @@4730=7402 + CLA CLL / AC = 0000 @@4731=7300 + SZL OSR / @@4732=7434 + HLT / @@4733=7402 + CMA / @@4734=7040 + SZA / @@4735=7440 + HLT / @@4736=7402 + CLA CLL / AC = 0000 @@4737=7300 + TAD C0066 / @@4740=1066 + SPA SNA SZL CLA OSR / @@4741=7774 + HLT / @@4742=7402 + CMA / @@4743=7040 + SZA / @@4744=7440 + HLT / @@4745=7402 + CLA CLL CMA CML / @@4746=7360 + CLA / @@4747=7601 + SZL / @@4750=7430 + SZA / @@4751=7440 + HLT / @@4752=7402 + CLA CLL CMA CML / @@4753=7360 + NOP / @@4754=7401 + CMA / @@4755=7040 + SZL / @@4756=7430 + SZA / @@4757=7440 + HLT / @@4760=7402 + CLA CLL CMA CML / @@4761=7360 + MQL / @@4762=7421 + SZL / @@4763=7430 + SZA / @@4764=7440 + HLT / @@4765=7402 + CLA CLL / AC = 0000 @@4766=7300 + MQL / @@4767=7421 + CMA / @@4770=7040 + MQA / @@4771=7501 + CMA / @@4772=7040 + SNL / @@4773=7420 + SZA / @@4774=7440 + HLT / @@4775=7402 + CLA CLL CMA / AC = 7777 (-0001) @@4776=7340 + MQL / @@4777=7421 + MQA / @@5000=7501 + CMA / @@5001=7040 + SNL / @@5002=7420 + SZA / @@5003=7440 + HLT / @@5004=7402 + CLA / @@5005=7601 + TAD C0070 / @@5006=1070 + MQL / @@5007=7421 + TAD C0071 / @@5010=1071 + MQA / @@5011=7501 + CMA / @@5012=7040 + SZA / @@5013=7440 + HLT / @@5014=7402 + CLA CLL CMA CML / @@5015=7360 + MQL / @@5016=7421 + CMA / @@5017=7040 + CAM / @@5020=7621 + SZA / @@5021=7440 + HLT / @@5022=7402 + MQA / @@5023=7501 + SZL / @@5024=7430 + SZA / @@5025=7440 + HLT / @@5026=7402 + CLA / @@5027=7601 + MQL / @@5030=7421 + CMA / @@5031=7040 + CLA MQA / @@5032=7701 + SZA / @@5033=7440 + HLT / @@5034=7402 + MQA / @@5035=7501 + SZA / @@5036=7440 + HLT / @@5037=7402 + STA / AC = 7777 (-0001) @@5040=7240 + MQL / @@5041=7421 + CLA MQA / @@5042=7701 + CMA / @@5043=7040 + SZA / @@5044=7440 + HLT / @@5045=7402 + MQA / @@5046=7501 + CMA / @@5047=7040 + SZA / @@5050=7440 + HLT / @@5051=7402 + CLA / @@5052=7601 + TAD C0070 / @@5053=1070 + MQL / @@5054=7421 + TAD C0071 / @@5055=1071 + CLA MQA / @@5056=7701 + TAD C0071 / @@5057=1071 + CMA / @@5060=7040 + SZA / @@5061=7440 + HLT / @@5062=7402 + MQA / @@5063=7501 + TAD C0071 / @@5064=1071 + CMA / @@5065=7040 + SZA / @@5066=7440 + HLT / @@5067=7402 + CLA / @@5070=7601 + TAD C0071 / @@5071=1071 + MQL / @@5072=7421 + TAD C0070 / @@5073=1070 + CLA MQA / @@5074=7701 + TAD C0070 / @@5075=1070 + CMA / @@5076=7040 + SZA / @@5077=7440 + HLT / @@5100=7402 + MQA / @@5101=7501 + TAD C0070 / @@5102=1070 + CMA / @@5103=7040 + SZA / @@5104=7440 + HLT / @@5105=7402 + CAM / @@5106=7621 + CMA / @@5107=7040 + MQA MQL / @@5110=7521 + SZA / @@5111=7440 + HLT / @@5112=7402 + CLA MQA / @@5113=7701 + CMA / @@5114=7040 + SZA / @@5115=7440 + HLT / @@5116=7402 + CAM / @@5117=7621 + CMA / @@5120=7040 + MQL / @@5121=7421 + MQA MQL / @@5122=7521 + CMA / @@5123=7040 + SZA / @@5124=7440 + HLT / @@5125=7402 + CLA MQA / @@5126=7701 + SZA / @@5127=7440 + HLT / @@5130=7402 + CAM / @@5131=7621 + TAD C0070 / @@5132=1070 + MQL / @@5133=7421 + TAD C0071 / @@5134=1071 + MQA MQL / @@5135=7521 + TAD C0071 / @@5136=1071 + CMA / @@5137=7040 + SZA / @@5140=7440 + HLT / @@5141=7402 + CLA MQA / @@5142=7701 + TAD C0070 / @@5143=1070 + CMA / @@5144=7040 + SZA / @@5145=7440 + HLT / @@5146=7402 + CAM / @@5147=7621 + TAD C0071 / @@5150=1071 + MQL / @@5151=7421 + TAD C0070 / @@5152=1070 + MQA MQL / @@5153=7521 + TAD C0070 / @@5154=1070 + CMA / @@5155=7040 + SZA / @@5156=7440 + HLT / @@5157=7402 + CLA MQA / @@5160=7701 + TAD C0071 / @@5161=1071 + CMA / @@5162=7040 + SZA / @@5163=7440 + HLT / @@5164=7402 + CAM / @@5165=7621 + CMA / @@5166=7040 + CLA MQA MQL / @@5167=7721 + SZA / @@5170=7440 + HLT / @@5171=7402 + CLA MQA / @@5172=7701 + SZA / @@5173=7440 + HLT / @@5174=7402 + CAM / @@5175=7621 + CMA / @@5176=7040 + MQL / @@5177=7421 + CLA MQA MQL / @@5200=7721 + CMA / @@5201=7040 + SZA / @@5202=7440 + HLT / @@5203=7402 + CLA MQA / @@5204=7701 + SZA / @@5205=7440 + HLT / @@5206=7402 + CAM / @@5207=7621 + TAD C0071 / @@5210=1071 + MQL / @@5211=7421 + TAD C0070 / @@5212=1070 + CLA MQA MQL / @@5213=7721 + TAD C0070 / @@5214=1070 + CMA / @@5215=7040 + SZA / @@5216=7440 + HLT / @@5217=7402 + CLA MQA / @@5220=7701 + SZA / @@5221=7440 + HLT / @@5222=7402 + CLA / @@5223=7200 + AND C0067 / @@5224=0067 + SZA / @@5225=7440 + HLT / @@5226=7402 + STA / AC = 7777 (-0001) @@5227=7240 + AND C0020 / @@5230=0020 + SZA / @@5231=7440 + HLT / @@5232=7402 + CLA CLL CML / @@5233=7320 + TAD C0067 / @@5234=1067 + AND C0067 / @@5235=0067 + CMA / @@5236=7040 + SZL / @@5237=7430 + SZA / @@5240=7440 + HLT / @@5241=7402 + CLA CLL / AC = 0000 @@5242=7300 + TAD C0071 / @@5243=1071 + AND C0070 / @@5244=0070 + SNL / @@5245=7420 + SZA / @@5246=7440 + HLT / @@5247=7402 + CLA CLL / AC = 0000 @@5250=7300 + TAD C0070 / @@5251=1070 + AND C0071 / @@5252=0071 + SNL / @@5253=7420 + SZA / @@5254=7440 + HLT / @@5255=7402 + CLA CLL / AC = 0000 @@5256=7300 + TAD L0052 / @@5257=1052 + AND C0070 / @@5260=0070 + CIA / @@5261=7041 + TAD C0070 / @@5262=1070 + SZL / @@5263=7430 + SZA / @@5264=7440 + HLT / @@5265=7402 + CLA CLL / AC = 0000 @@5266=7300 + TAD C0071 / @@5267=1071 + AND C0071 / @@5270=0071 + CIA / @@5271=7041 + TAD C0071 / @@5272=1071 + SZL / @@5273=7430 + SZA / @@5274=7440 + HLT / @@5275=7402 + CLA / @@5276=7200 + TAD D0121 / @@5277=1121 + IAC / @@5300=7001 + DCA D0121 / @@5301=3121 + TAD D0121 / @@5302=1121 + SZA CLA / @@5303=7640 + JMP L0147 / @@5304=5147 + TAD C0122 / @@5305=1122 + DCA D0121 / @@5306=3121 + TAD C0120 / @@5307=1120 + TLS / Load the TTO from the content of AC4 @@5310=6046 +L5311, + TSF / Skip if teleprinter flag is a 1. @@5311=6041 + JMP L5311 / @@5312=5311 + TCF / Clear teleprinter flag. @@5313=6042 + JMP L0147 / @@5314=5147 + +$ diff --git a/PDP8/tests/diags/maindec-8e-d0ab-pb.pdf b/PDP8/tests/diags/maindec-8e-d0ab-pb.pdf new file mode 100644 index 00000000..e48af5e1 Binary files /dev/null and b/PDP8/tests/diags/maindec-8e-d0ab-pb.pdf differ diff --git a/PDP8/tests/diags/maindec-8e-d0bb-pb.bin b/PDP8/tests/diags/maindec-8e-d0bb-pb.bin new file mode 100644 index 00000000..174578d6 Binary files /dev/null and b/PDP8/tests/diags/maindec-8e-d0bb-pb.bin differ diff --git a/PDP8/tests/diags/maindec-8e-d0bb-pb.pal b/PDP8/tests/diags/maindec-8e-d0bb-pb.pal new file mode 100644 index 00000000..3117f9fb --- /dev/null +++ b/PDP8/tests/diags/maindec-8e-d0bb-pb.pal @@ -0,0 +1,2200 @@ +TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d0bb-pb.bin BY D8TAPE" +//////////////////////////////////////////////////////////////////////////////// +/ +/ Automatic Disassembly of maindec-8e-d0bb-pb.bin +/ Generated 2010 02 19 00:10:29 +/ 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 +/ +/ 3704 locations used, 2632 code and 1052 data +//////////////////////////////////////////////////////////////////////////////// + +*0200 + +*0000 +L0000, +D0000, 0000 / AND L0000 +L0001, +D0001, 5001 / JMP L0001 +D0002, 0002 / AND D0002 +D0003, 0003 / AND D0003 + +*0007 +D0007, 0000 / AND L0000 + +*0020 +C0020, 7777 / CLA MQA SCA MQL LSR + +C0021, 3777 / DCA I C0177 +C0022, 5777 / JMP I C0177 +C0023, 6777 / 6777 +C0024, 7377 / CLA CLL CMA CML IAC RTR RTL +C0025, 7577 / MQA SCA MQL LSR + +C0026, 7677 / CLA SCA MQL LSR + +C0027, 7737 / CLA MQA MQL LSR + +D0030, 0000 / AND L0000 +C0031, 7757 / CLA MQA SCA LSR + +C0032, 7767 / CLA MQA SCA MQL DVI + +C0033, 7773 / CLA MQA SCA MQL SHL + +C0034, 7775 / CLA MQA SCA MQL ASR + +C0035, 7776 / SPA SNA SZL CLA OSR HLT +C0036, 0000 / AND L0000 +C0037, 1777 / TAD I C0177 +C0040, 0777 / AND I C0177 +C0041, 0377 / AND C0177 +D0042, 0177 / AND C0177 +C0043, 0077 / AND C0077 +C0044, 0037 / AND C0037 +C0045, 0017 / AND AI7 +C0046, 0007 / AND D0007 +C0047, 0003 / AND D0003 +D0050, 0000 / AND L0000 +C0051, 0001 / AND L0001 +L0052, +C0052, 4400 / JMS I L0000 +C0053, 4577 / JMS I C0177 +C0054, 2525 / ISZ I C0125 +C0055, 6666 / 6666 +C0056, 4444 / JMS I C0044 +C0057, 7070 / CMA CML RAR +C0060, 0707 / AND I C0107 +C0061, 5252 / JMP L0052 +C0062, 1111 / TAD C0111 +C0063, 5555 / JMP I C0155 +C0064, 5200 / JMP L0000 +C0065, 0004 / AND C0004 + +*0110 +D0110, 0000 / AND L0000 + +*0172 +C0172, 0176 / AND C0176 +D0173, 0172 / AND C0172 +C0174, 0173 / AND D0173 +C0175, 0174 / AND C0174 +C0176, 0175 / AND C0175 +C0177, 1234 / TAD C0034 + +*0200 +L0200, + CLA / @@0200=7200 + SKP / @@0201=7410 +D0202, 0000 / AND L0000 + TAD L0052 / @@0203=1052 + DCA D0377 / @@0204=3377 + SZA / @@0205=7440 + HLT / @@0206=7402 + SKP / @@0207=7410 +D0210, 0000 / AND L0000 + TAD L0052 / @@0211=1052 + CIA / @@0212=7041 + TAD D0377 / @@0213=1377 + SZA / @@0214=7440 + HLT / @@0215=7402 + CLA / @@0216=7200 + TAD C0053 / @@0217=1053 + DCA D0202 / @@0220=3202 + SZA / @@0221=7440 + HLT / @@0222=7402 + TAD C0053 / @@0223=1053 + CIA / @@0224=7041 + TAD D0202 / @@0225=1202 + SZA / @@0226=7440 + HLT / @@0227=7402 + CLA / @@0230=7200 + TAD C0020 / @@0231=1020 + DCA D0202 / @@0232=3202 + SZA / @@0233=7440 + HLT / @@0234=7402 + TAD D0202 / @@0235=1202 + CMA / @@0236=7040 + SZA / @@0237=7440 + HLT / @@0240=7402 + CLA / @@0241=7200 + TAD C0036 / @@0242=1036 + DCA D0202 / @@0243=3202 + SZA / @@0244=7440 + HLT / @@0245=7402 + TAD D0202 / @@0246=1202 + SZA / @@0247=7440 +C0250, 7402 / HLT + CLA / @@0251=7200 + TAD C0054 / @@0252=1054 + DCA D0202 / @@0253=3202 + SZA / @@0254=7440 + HLT / @@0255=7402 + TAD C0054 / @@0256=1054 + CIA / @@0257=7041 + TAD D0202 / @@0260=1202 + SZA / @@0261=7440 + HLT / @@0262=7402 + CLA / @@0263=7200 + TAD C0055 / @@0264=1055 + DCA D0202 / @@0265=3202 + SZA / @@0266=7440 + HLT / @@0267=7402 + TAD C0055 / @@0270=1055 + CIA / @@0271=7041 + TAD D0202 / @@0272=1202 + SZA / @@0273=7440 + HLT / @@0274=7402 + CLA / @@0275=7200 + TAD C0056 / @@0276=1056 + DCA D0377 / @@0277=3377 + SZA / @@0300=7440 + HLT / @@0301=7402 + TAD C0056 / @@0302=1056 + CIA / @@0303=7041 + TAD D0377 / @@0304=1377 + SZA / @@0305=7440 + HLT / @@0306=7402 + CLA / @@0307=7200 + TAD C0057 / @@0310=1057 + DCA D0377 / @@0311=3377 + SZA / @@0312=7440 + HLT / @@0313=7402 + TAD C0057 / @@0314=1057 + CIA / @@0315=7041 + TAD D0377 / @@0316=1377 + SZA / @@0317=7440 + HLT / @@0320=7402 + CLA / @@0321=7200 + TAD C0060 / @@0322=1060 + DCA L0000 / @@0323=3000 + SZA / @@0324=7440 + HLT / @@0325=7402 + TAD C0060 / @@0326=1060 + CIA / @@0327=7041 + TAD L0000 / @@0330=1000 + SZA / @@0331=7440 + HLT / @@0332=7402 + CLA / @@0333=7200 + TAD C0061 / @@0334=1061 + DCA L0000 / @@0335=3000 + SZA / @@0336=7440 + HLT / @@0337=7402 + TAD C0061 / @@0340=1061 + CIA / @@0341=7041 + TAD L0000 / @@0342=1000 + SZA / @@0343=7440 + HLT / @@0344=7402 + CLA / @@0345=7200 + TAD C0062 / @@0346=1062 + DCA L0000 / @@0347=3000 + SZA / @@0350=7440 + HLT / @@0351=7402 + TAD C0062 / @@0352=1062 + CIA / @@0353=7041 + TAD L0000 / @@0354=1000 + SZA / @@0355=7440 + HLT / @@0356=7402 + CLA / @@0357=7200 + TAD C0063 / @@0360=1063 + DCA L0000 / @@0361=3000 + SZA / @@0362=7440 + HLT / @@0363=7402 + TAD C0063 / @@0364=1063 + CIA / @@0365=7041 + TAD L0000 / @@0366=1000 + SZA / @@0367=7440 + HLT / @@0370=7402 + JMP L0375 / @@0371=5375 +L0372, + AND I D0210 / @@0372=0610 + JMP I C0374 / long jump to L3650 @@0373=5774 +C0374, +C0374, 3650 / DCA I C0250 +L0375, + NOP / @@0375=7000 + SKP / @@0376=7410 +D0377, 0000 / AND L0000 + +*0400 + CLA / @@0400=7200 + TAD I D0042 / @@0401=1442 + CIA / @@0402=7041 + TAD C0177 / @@0403=1177 + SZA / @@0404=7440 + HLT / @@0405=7402 + CLA / @@0406=7200 + SKP / @@0407=7410 +D0410, 0000 / AND L0000 + TAD C0020 / @@0411=1020 + AND I D0042 / @@0412=0442 + CIA / @@0413=7041 + TAD C0177 / @@0414=1177 + SZA / @@0415=7440 + HLT / @@0416=7402 + CLA / @@0417=7200 + TAD C0020 / @@0420=1020 + DCA L0000 / @@0421=3000 + ISZ I C0036 / @@0422=2436 + HLT / @@0423=7402 + TAD L0000 / @@0424=1000 + SZA / @@0425=7440 + HLT / @@0426=7402 + CLA / @@0427=7200 + TAD I C0172 / @@0430=1572 + CIA / @@0431=7041 + TAD C0176 / @@0432=1176 + SZA / @@0433=7440 + HLT / @@0434=7402 + CLA / @@0435=7200 + TAD C0020 / @@0436=1020 +C0437, 0572 / AND I C0172 + CIA / @@0440=7041 + TAD C0176 / @@0441=1176 + SZA / @@0442=7440 + HLT / @@0443=7402 + CLA / @@0444=7200 + TAD C0172 / @@0445=1172 + DCA L0000 / @@0446=3000 + ISZ I C0036 / @@0447=2436 + SKP / @@0450=7410 + HLT / @@0451=7402 + TAD L0000 / @@0452=1000 + CIA / @@0453=7041 + TAD C0172 / @@0454=1172 + CMA / @@0455=7040 + SZA / @@0456=7440 + HLT / @@0457=7402 + CLA / @@0460=7200 + TAD I D0173 / @@0461=1573 + CIA / @@0462=7041 + TAD C0172 / @@0463=1172 + SZA / @@0464=7440 + HLT / @@0465=7402 + CLA / @@0466=7200 + TAD C0020 / @@0467=1020 + AND I D0173 / @@0470=0573 + CIA / @@0471=7041 + TAD C0172 / @@0472=1172 + SZA / @@0473=7440 + HLT / @@0474=7402 + CLA / @@0475=7200 + TAD D0173 / @@0476=1173 + DCA L0000 / @@0477=3000 + ISZ I C0036 / @@0500=2436 + SKP / @@0501=7410 + HLT / @@0502=7402 + TAD L0000 / @@0503=1000 + CIA / @@0504=7041 + TAD D0173 / @@0505=1173 + CMA / @@0506=7040 + SZA / @@0507=7440 + HLT / @@0510=7402 + CLA / @@0511=7200 + TAD I C0174 / @@0512=1574 + CIA / @@0513=7041 + TAD D0173 / @@0514=1173 + SZA / @@0515=7440 + HLT / @@0516=7402 + CLA / @@0517=7200 + TAD C0020 / @@0520=1020 + AND I C0174 / @@0521=0574 + CIA / @@0522=7041 + TAD D0173 / @@0523=1173 + SZA / @@0524=7440 + HLT / @@0525=7402 + CLA / @@0526=7200 + TAD C0174 / @@0527=1174 + DCA L0000 / @@0530=3000 + ISZ I C0036 / @@0531=2436 + SKP / @@0532=7410 + HLT / @@0533=7402 + TAD L0000 / @@0534=1000 + CIA / @@0535=7041 + TAD C0174 / @@0536=1174 + CMA / @@0537=7040 + SZA / @@0540=7440 + HLT / @@0541=7402 + CLA / @@0542=7200 + TAD I C0175 / @@0543=1575 + CIA / @@0544=7041 + TAD C0174 / @@0545=1174 + SZA / @@0546=7440 + HLT / @@0547=7402 + CLA / @@0550=7200 + TAD C0020 / @@0551=1020 + AND I C0175 / @@0552=0575 + CIA / @@0553=7041 + TAD C0174 / @@0554=1174 + SZA / @@0555=7440 + HLT / @@0556=7402 + CLA / @@0557=7200 + TAD C0175 / @@0560=1175 + DCA L0000 / @@0561=3000 + ISZ I C0036 / @@0562=2436 + SKP / @@0563=7410 + HLT / @@0564=7402 + TAD L0000 / @@0565=1000 + CIA / @@0566=7041 + TAD C0175 / @@0567=1175 + CMA / @@0570=7040 + SZA / @@0571=7440 + HLT / @@0572=7402 + JMP L0577 / @@0573=5377 +L0574, + AND I D0410 / @@0574=0610 + JMP I C0576 / long jump to L3637 @@0575=5776 +C0576, +C0576, 3637 / DCA I C0437 +L0577, + NOP / @@0577=7000 + +*0600 + CLA / @@0600=7200 + TAD I C0176 / @@0601=1576 + CIA / @@0602=7041 + TAD C0175 / @@0603=1175 + SZA / @@0604=7440 + HLT / @@0605=7402 + CLA / @@0606=7200 + TAD C0036 / @@0607=1036 +C0610, 3010 / DCA AI0 +C0611, 0410 / AND I AI0 +C0612, 1010 / TAD AI0 + TAD C0035 / @@0613=1035 + CMA / @@0614=7040 + SZA / @@0615=7440 + HLT / @@0616=7402 + CLA / @@0617=7200 + TAD C0035 / @@0620=1035 +C0621, 3010 / DCA AI0 +C0622, 0410 / AND I AI0 +C0623, 1010 / TAD AI0 + TAD C0036 / @@0624=1036 + CMA / @@0625=7040 + SZA / @@0626=7440 + HLT / @@0627=7402 + CLA / @@0630=7200 + TAD C0034 / @@0631=1034 +C0632, 3010 / DCA AI0 +C0633, 3410 / DCA I AI0 +C0634, 1010 / TAD AI0 + TAD C0051 / @@0635=1051 + CMA / @@0636=7040 + SZA / @@0637=7440 + HLT / @@0640=7402 + CLA / @@0641=7200 + TAD C0033 / @@0642=1033 +C0643, 3010 / DCA AI0 +C0644, 1410 / TAD I AI0 + CLA / @@0645=7200 +C0646, 1010 / TAD AI0 + TAD C0047 / @@0647=1047 + CMA / @@0650=7040 + SZA / @@0651=7440 + HLT / @@0652=7402 + CLA / @@0653=7200 + TAD C0032 / @@0654=1032 +C0655, 3010 / DCA AI0 +C0656, 0410 / AND I AI0 +C0657, 1010 / TAD AI0 + TAD C0046 / @@0660=1046 + CMA / @@0661=7040 + SZA / @@0662=7440 + HLT / @@0663=7402 + CLA / @@0664=7200 + TAD C0031 / @@0665=1031 +C0666, 3010 / DCA AI0 +C0667, 0410 / AND I AI0 +C0670, 1010 / TAD AI0 + TAD C0045 / @@0671=1045 + CMA / @@0672=7040 + SZA / @@0673=7440 + HLT / @@0674=7402 + CLA / @@0675=7200 + TAD C0027 / @@0676=1027 +C0677, 3010 / DCA AI0 +C0700, 0410 / AND I AI0 +C0701, 1010 / TAD AI0 + TAD C0044 / @@0702=1044 + CMA / @@0703=7040 + SZA / @@0704=7440 + HLT / @@0705=7402 + CLA / @@0706=7200 + TAD C0026 / @@0707=1026 +C0710, 3010 / DCA AI0 +C0711, 0410 / AND I AI0 +C0712, 1010 / TAD AI0 + TAD C0043 / @@0713=1043 + CMA / @@0714=7040 + SZA / @@0715=7440 + HLT / @@0716=7402 + CLA / @@0717=7200 + TAD C0025 / @@0720=1025 +C0721, 3010 / DCA AI0 +C0722, 0410 / AND I AI0 +C0723, 1010 / TAD AI0 + TAD D0042 / @@0724=1042 + CMA / @@0725=7040 + SZA / @@0726=7440 + HLT / @@0727=7402 + CLA / @@0730=7200 + TAD C0024 / @@0731=1024 +C0732, 3010 / DCA AI0 +C0733, 0410 / AND I AI0 +C0734, 1010 / TAD AI0 + TAD C0041 / @@0735=1041 + CMA / @@0736=7040 + SZA / @@0737=7440 + HLT / @@0740=7402 + CLA / @@0741=7200 + TAD C0023 / @@0742=1023 +C0743, 3010 / DCA AI0 +C0744, 0410 / AND I AI0 +C0745, 1010 / TAD AI0 + TAD C0040 / @@0746=1040 + CMA / @@0747=7040 + SZA / @@0750=7440 + HLT / @@0751=7402 + CLA / @@0752=7200 + TAD C0022 / @@0753=1022 +C0754, 3010 / DCA AI0 +C0755, 2410 / ISZ I AI0 + NOP / @@0756=7000 +C0757, 1010 / TAD AI0 + TAD C0037 / @@0760=1037 + CMA / @@0761=7040 + SZA / @@0762=7440 + HLT / @@0763=7402 + CLA / @@0764=7200 + TAD C0021 / @@0765=1021 +C0766, 3010 / DCA AI0 +C0767, 0410 / AND I AI0 +C0770, 1010 / TAD AI0 + TAD C0021 / @@0771=1021 + CMA / @@0772=7040 + SZA / @@0773=7440 + HLT / @@0774=7402 + NOP / @@0775=7000 + NOP / @@0776=7000 + NOP / @@0777=7000 + +*1000 + CLA / @@1000=7200 + TAD C0020 / @@1001=1020 +C1002, 3010 / DCA AI0 +C1003, 0410 / AND I AI0 +C1004, 1010 / TAD AI0 + TAD C0020 / @@1005=1020 + CMA / @@1006=7040 + SKP / @@1007=7410 +D1010, 0000 / AND L0000 + SZA / @@1011=7440 + HLT / @@1012=7402 + CLA / @@1013=7200 + TAD C0036 / @@1014=1036 +C1015, 3011 / DCA AI1 +C1016, 0411 / AND I AI1 +C1017, 1011 / TAD AI1 + TAD C0035 / @@1020=1035 + CMA / @@1021=7040 + SZA / @@1022=7440 + HLT / @@1023=7402 + CLA / @@1024=7200 + TAD C0035 / @@1025=1035 +C1026, 3011 / DCA AI1 +C1027, 0411 / AND I AI1 +C1030, 1011 / TAD AI1 + TAD C0036 / @@1031=1036 + CMA / @@1032=7040 + SZA / @@1033=7440 + HLT / @@1034=7402 + CLA / @@1035=7200 + TAD C0034 / @@1036=1034 +C1037, 3011 / DCA AI1 +C1040, 3411 / DCA I AI1 +C1041, 1011 / TAD AI1 + TAD C0051 / @@1042=1051 + CMA / @@1043=7040 + SZA / @@1044=7440 + HLT / @@1045=7402 + CLA / @@1046=7200 + TAD C0033 / @@1047=1033 +C1050, 3011 / DCA AI1 +C1051, 1411 / TAD I AI1 + CLA / @@1052=7200 +C1053, 1011 / TAD AI1 + TAD C0047 / @@1054=1047 + CMA / @@1055=7040 + SZA / @@1056=7440 + HLT / @@1057=7402 + CLA / @@1060=7200 + TAD C0032 / @@1061=1032 +C1062, 3011 / DCA AI1 +C1063, 0411 / AND I AI1 +C1064, 1011 / TAD AI1 + TAD C0046 / @@1065=1046 + CMA / @@1066=7040 + SZA / @@1067=7440 + HLT / @@1070=7402 + CLA / @@1071=7200 + TAD C0031 / @@1072=1031 +C1073, 3011 / DCA AI1 +C1074, 0411 / AND I AI1 +C1075, 1011 / TAD AI1 + TAD C0045 / @@1076=1045 + CMA / @@1077=7040 + SZA / @@1100=7440 + HLT / @@1101=7402 + CLA / @@1102=7200 + TAD C0027 / @@1103=1027 +C1104, 3011 / DCA AI1 +C1105, 0411 / AND I AI1 +C1106, 1011 / TAD AI1 + TAD C0044 / @@1107=1044 + CMA / @@1110=7040 + SZA / @@1111=7440 + HLT / @@1112=7402 + CLA / @@1113=7200 + TAD C0026 / @@1114=1026 +C1115, 3011 / DCA AI1 +C1116, 0411 / AND I AI1 +C1117, 1011 / TAD AI1 + TAD C0043 / @@1120=1043 + CMA / @@1121=7040 + SZA / @@1122=7440 + HLT / @@1123=7402 + CLA / @@1124=7200 + TAD C0025 / @@1125=1025 +C1126, 3011 / DCA AI1 +C1127, 0411 / AND I AI1 +C1130, 1011 / TAD AI1 + TAD D0042 / @@1131=1042 + CMA / @@1132=7040 + SZA / @@1133=7440 + HLT / @@1134=7402 + CLA / @@1135=7200 + TAD C0024 / @@1136=1024 +C1137, 3011 / DCA AI1 +C1140, 0411 / AND I AI1 +C1141, 1011 / TAD AI1 + TAD C0041 / @@1142=1041 + CMA / @@1143=7040 + SZA / @@1144=7440 + HLT / @@1145=7402 + CLA / @@1146=7200 + TAD C0023 / @@1147=1023 +C1150, 3011 / DCA AI1 +C1151, 0411 / AND I AI1 +C1152, 1011 / TAD AI1 + TAD C0040 / @@1153=1040 + CMA / @@1154=7040 + SZA / @@1155=7440 + HLT / @@1156=7402 + CLA / @@1157=7200 + TAD C0022 / @@1160=1022 +C1161, 3011 / DCA AI1 +C1162, 2411 / ISZ I AI1 + NOP / @@1163=7000 +C1164, 1011 / TAD AI1 + TAD C0037 / @@1165=1037 + CMA / @@1166=7040 + SZA / @@1167=7440 + HLT / @@1170=7402 + NOP / @@1171=7000 + JMP L1176 / @@1172=5376 +L1173, + AND I D1010 / @@1173=0610 + JMP I C1175 / long jump to L3626 @@1174=5775 +C1175, +C1175, 3626 / DCA I C1026 +L1176, + NOP / @@1176=7000 + NOP / @@1177=7000 + +*1200 + CLA / @@1200=7200 + TAD C0021 / @@1201=1021 +C1202, 3011 / DCA AI1 +C1203, 0411 / AND I AI1 +C1204, 1011 / TAD AI1 + TAD C0021 / @@1205=1021 + CMA / @@1206=7040 + SZA / @@1207=7440 + HLT / @@1210=7402 + CLA / @@1211=7200 + TAD C0020 / @@1212=1020 +C1213, 3011 / DCA AI1 +C1214, 0411 / AND I AI1 +C1215, 1011 / TAD AI1 + TAD C0020 / @@1216=1020 + CMA / @@1217=7040 + SZA / @@1220=7440 + HLT / @@1221=7402 + CLA / @@1222=7200 + TAD C0036 / @@1223=1036 +C1224, 3012 / DCA AI2 +C1225, 0412 / AND I AI2 +C1226, 1012 / TAD AI2 + TAD C0035 / @@1227=1035 + CMA / @@1230=7040 + SZA / @@1231=7440 + HLT / @@1232=7402 + CLA / @@1233=7200 + TAD C0035 / @@1234=1035 +C1235, 3012 / DCA AI2 +C1236, 0412 / AND I AI2 +C1237, 1012 / TAD AI2 + TAD C0036 / @@1240=1036 + CMA / @@1241=7040 + SZA / @@1242=7440 + HLT / @@1243=7402 + CLA / @@1244=7200 + TAD C0034 / @@1245=1034 +C1246, 3012 / DCA AI2 +C1247, 3412 / DCA I AI2 +C1250, 1012 / TAD AI2 + TAD C0051 / @@1251=1051 + CMA / @@1252=7040 + SZA / @@1253=7440 + HLT / @@1254=7402 + CLA / @@1255=7200 + TAD C0033 / @@1256=1033 +C1257, 3012 / DCA AI2 +C1260, 1412 / TAD I AI2 + CLA / @@1261=7200 +C1262, 1012 / TAD AI2 + TAD C0047 / @@1263=1047 + CMA / @@1264=7040 + SZA / @@1265=7440 + HLT / @@1266=7402 + CLA / @@1267=7200 + TAD C0032 / @@1270=1032 +C1271, 3012 / DCA AI2 +C1272, 0412 / AND I AI2 +C1273, 1012 / TAD AI2 + TAD C0046 / @@1274=1046 + CMA / @@1275=7040 + SZA / @@1276=7440 + HLT / @@1277=7402 + CLA / @@1300=7200 + TAD C0031 / @@1301=1031 +C1302, 3012 / DCA AI2 +C1303, 0412 / AND I AI2 +C1304, 1012 / TAD AI2 + TAD C0045 / @@1305=1045 + CMA / @@1306=7040 + SZA / @@1307=7440 + HLT / @@1310=7402 + CLA / @@1311=7200 + TAD C0027 / @@1312=1027 +C1313, 3012 / DCA AI2 +C1314, 0412 / AND I AI2 +C1315, 1012 / TAD AI2 + TAD C0044 / @@1316=1044 + CMA / @@1317=7040 + SZA / @@1320=7440 + HLT / @@1321=7402 + CLA / @@1322=7200 + TAD C0026 / @@1323=1026 +C1324, 3012 / DCA AI2 +C1325, 0412 / AND I AI2 +C1326, 1012 / TAD AI2 + TAD C0043 / @@1327=1043 + CMA / @@1330=7040 + SZA / @@1331=7440 + HLT / @@1332=7402 + CLA / @@1333=7200 + TAD C0025 / @@1334=1025 +C1335, 3012 / DCA AI2 +C1336, 0412 / AND I AI2 +C1337, 1012 / TAD AI2 + TAD D0042 / @@1340=1042 + CMA / @@1341=7040 + SZA / @@1342=7440 + HLT / @@1343=7402 + CLA / @@1344=7200 + TAD C0024 / @@1345=1024 +C1346, 3012 / DCA AI2 +C1347, 0412 / AND I AI2 +C1350, 1012 / TAD AI2 + TAD C0041 / @@1351=1041 + CMA / @@1352=7040 + SZA / @@1353=7440 + HLT / @@1354=7402 + CLA / @@1355=7200 + TAD C0023 / @@1356=1023 +C1357, 3012 / DCA AI2 +C1360, 0412 / AND I AI2 +C1361, 1012 / TAD AI2 + TAD C0040 / @@1362=1040 + CMA / @@1363=7040 + SZA / @@1364=7440 + HLT / @@1365=7402 + CLA / @@1366=7200 + TAD C0022 / @@1367=1022 +C1370, 3012 / DCA AI2 +C1371, 2412 / ISZ I AI2 + NOP / @@1372=7000 +C1373, 1012 / TAD AI2 + TAD C0037 / @@1374=1037 + CMA / @@1375=7040 + SZA / @@1376=7440 + HLT / @@1377=7402 + +*1400 + CLA / @@1400=7200 + TAD C0021 / @@1401=1021 +C1402, 3012 / DCA AI2 +C1403, 0412 / AND I AI2 +C1404, 1012 / TAD AI2 + TAD C0021 / @@1405=1021 + CMA / @@1406=7040 + SZA / @@1407=7440 + HLT / @@1410=7402 + CLA / @@1411=7200 + TAD C0020 / @@1412=1020 +C1413, 3012 / DCA AI2 +C1414, 0412 / AND I AI2 +C1415, 1012 / TAD AI2 + TAD C0020 / @@1416=1020 + CMA / @@1417=7040 + SZA / @@1420=7440 + HLT / @@1421=7402 + CLA / @@1422=7200 + TAD C0036 / @@1423=1036 +C1424, 3013 / DCA AI3 +C1425, 0413 / AND I AI3 +C1426, 1013 / TAD AI3 + TAD C0035 / @@1427=1035 + CMA / @@1430=7040 + SZA / @@1431=7440 + HLT / @@1432=7402 + CLA / @@1433=7200 + TAD C0035 / @@1434=1035 +C1435, 3013 / DCA AI3 +C1436, 0413 / AND I AI3 +C1437, 1013 / TAD AI3 + TAD C0036 / @@1440=1036 + CMA / @@1441=7040 + SZA / @@1442=7440 + HLT / @@1443=7402 + CLA / @@1444=7200 + TAD C0034 / @@1445=1034 +C1446, 3013 / DCA AI3 +C1447, 3413 / DCA I AI3 +C1450, 1013 / TAD AI3 + TAD C0051 / @@1451=1051 + CMA / @@1452=7040 + SZA / @@1453=7440 + HLT / @@1454=7402 + CLA / @@1455=7200 + TAD C0033 / @@1456=1033 +C1457, 3013 / DCA AI3 +C1460, 1413 / TAD I AI3 + CLA / @@1461=7200 +C1462, 1013 / TAD AI3 + TAD C0047 / @@1463=1047 + CMA / @@1464=7040 + SZA / @@1465=7440 + HLT / @@1466=7402 + CLA / @@1467=7200 + TAD C0032 / @@1470=1032 +C1471, 3013 / DCA AI3 +C1472, 0413 / AND I AI3 +C1473, 1013 / TAD AI3 + TAD C0046 / @@1474=1046 + CMA / @@1475=7040 + SZA / @@1476=7440 + HLT / @@1477=7402 + CLA / @@1500=7200 + TAD C0031 / @@1501=1031 +C1502, 3013 / DCA AI3 +C1503, 0413 / AND I AI3 +C1504, 1013 / TAD AI3 + TAD C0045 / @@1505=1045 + CMA / @@1506=7040 + SZA / @@1507=7440 + HLT / @@1510=7402 + CLA / @@1511=7200 + TAD C0027 / @@1512=1027 +C1513, 3013 / DCA AI3 +C1514, 0413 / AND I AI3 +C1515, 1013 / TAD AI3 + TAD C0044 / @@1516=1044 + CMA / @@1517=7040 + SZA / @@1520=7440 + HLT / @@1521=7402 + CLA / @@1522=7200 + TAD C0026 / @@1523=1026 +C1524, 3013 / DCA AI3 +C1525, 0413 / AND I AI3 +C1526, 1013 / TAD AI3 + TAD C0043 / @@1527=1043 + CMA / @@1530=7040 + SZA / @@1531=7440 + HLT / @@1532=7402 + CLA / @@1533=7200 + TAD C0025 / @@1534=1025 +C1535, 3013 / DCA AI3 +C1536, 0413 / AND I AI3 +C1537, 1013 / TAD AI3 + TAD D0042 / @@1540=1042 + CMA / @@1541=7040 + SZA / @@1542=7440 + HLT / @@1543=7402 + CLA / @@1544=7200 + TAD C0024 / @@1545=1024 +C1546, 3013 / DCA AI3 +C1547, 0413 / AND I AI3 +C1550, 1013 / TAD AI3 + TAD C0041 / @@1551=1041 + CMA / @@1552=7040 + SZA / @@1553=7440 + HLT / @@1554=7402 + CLA / @@1555=7200 + TAD C0023 / @@1556=1023 +C1557, 3013 / DCA AI3 +C1560, 0413 / AND I AI3 +C1561, 1013 / TAD AI3 + TAD C0040 / @@1562=1040 + CMA / @@1563=7040 + SZA / @@1564=7440 + HLT / @@1565=7402 + CLA / @@1566=7200 + TAD C0022 / @@1567=1022 +C1570, 3013 / DCA AI3 +C1571, 2413 / ISZ I AI3 + NOP / @@1572=7000 +C1573, 1013 / TAD AI3 + TAD C0037 / @@1574=1037 + CMA / @@1575=7040 + SZA / @@1576=7440 + HLT / @@1577=7402 + +*1600 + CLA / @@1600=7200 + TAD C0021 / @@1601=1021 +C1602, 3013 / DCA AI3 +C1603, 0413 / AND I AI3 +C1604, 1013 / TAD AI3 + TAD C0021 / @@1605=1021 + CMA / @@1606=7040 + SZA / @@1607=7440 + HLT / @@1610=7402 + CLA / @@1611=7200 + TAD C0020 / @@1612=1020 +C1613, 3013 / DCA AI3 +C1614, 0413 / AND I AI3 +C1615, 1013 / TAD AI3 + TAD C0020 / @@1616=1020 + CMA / @@1617=7040 + SZA / @@1620=7440 + HLT / @@1621=7402 + CLA / @@1622=7200 + TAD C0036 / @@1623=1036 +C1624, 3014 / DCA AI4 +C1625, 0414 / AND I AI4 +C1626, 1014 / TAD AI4 + TAD C0035 / @@1627=1035 + CMA / @@1630=7040 + SZA / @@1631=7440 + HLT / @@1632=7402 + CLA / @@1633=7200 + TAD C0035 / @@1634=1035 +C1635, 3014 / DCA AI4 +C1636, 0414 / AND I AI4 +C1637, 1014 / TAD AI4 + TAD C0036 / @@1640=1036 + CMA / @@1641=7040 + SZA / @@1642=7440 + HLT / @@1643=7402 + CLA / @@1644=7200 + TAD C0034 / @@1645=1034 +C1646, 3014 / DCA AI4 +C1647, 3414 / DCA I AI4 +C1650, 1014 / TAD AI4 + TAD C0051 / @@1651=1051 + CMA / @@1652=7040 + SZA / @@1653=7440 + HLT / @@1654=7402 + CLA / @@1655=7200 + TAD C0033 / @@1656=1033 +C1657, 3014 / DCA AI4 +C1660, 1414 / TAD I AI4 + CLA / @@1661=7200 +C1662, 1014 / TAD AI4 + TAD C0047 / @@1663=1047 + CMA / @@1664=7040 + SZA / @@1665=7440 + HLT / @@1666=7402 + CLA / @@1667=7200 + TAD C0032 / @@1670=1032 +C1671, 3014 / DCA AI4 +C1672, 0414 / AND I AI4 +C1673, 1014 / TAD AI4 + TAD C0046 / @@1674=1046 + CMA / @@1675=7040 + SZA / @@1676=7440 + HLT / @@1677=7402 + CLA / @@1700=7200 + TAD C0031 / @@1701=1031 +C1702, 3014 / DCA AI4 +C1703, 0414 / AND I AI4 +C1704, 1014 / TAD AI4 + TAD C0045 / @@1705=1045 + CMA / @@1706=7040 + SZA / @@1707=7440 + HLT / @@1710=7402 + CLA / @@1711=7200 + TAD C0027 / @@1712=1027 +C1713, 3014 / DCA AI4 +C1714, 0414 / AND I AI4 +C1715, 1014 / TAD AI4 + TAD C0044 / @@1716=1044 + CMA / @@1717=7040 + SZA / @@1720=7440 + HLT / @@1721=7402 + CLA / @@1722=7200 + TAD C0026 / @@1723=1026 +C1724, 3014 / DCA AI4 +C1725, 0414 / AND I AI4 +C1726, 1014 / TAD AI4 + TAD C0043 / @@1727=1043 + CMA / @@1730=7040 + SZA / @@1731=7440 + HLT / @@1732=7402 + CLA / @@1733=7200 + TAD C0025 / @@1734=1025 +C1735, 3014 / DCA AI4 +C1736, 0414 / AND I AI4 +C1737, 1014 / TAD AI4 + TAD D0042 / @@1740=1042 + CMA / @@1741=7040 + SZA / @@1742=7440 + HLT / @@1743=7402 + CLA / @@1744=7200 + TAD C0024 / @@1745=1024 +C1746, 3014 / DCA AI4 +C1747, 0414 / AND I AI4 +C1750, 1014 / TAD AI4 + TAD C0041 / @@1751=1041 + CMA / @@1752=7040 + SZA / @@1753=7440 + HLT / @@1754=7402 + CLA / @@1755=7200 + TAD C0023 / @@1756=1023 +C1757, 3014 / DCA AI4 +C1760, 0414 / AND I AI4 +C1761, 1014 / TAD AI4 + TAD C0040 / @@1762=1040 + CMA / @@1763=7040 + SZA / @@1764=7440 + HLT / @@1765=7402 + CLA / @@1766=7200 + TAD C0022 / @@1767=1022 +C1770, 3014 / DCA AI4 +C1771, 2414 / ISZ I AI4 + NOP / @@1772=7000 +C1773, 1014 / TAD AI4 + TAD C0037 / @@1774=1037 + CMA / @@1775=7040 + SZA / @@1776=7440 + HLT / @@1777=7402 + +*2000 + CLA / @@2000=7200 + TAD C0021 / @@2001=1021 +C2002, 3014 / DCA AI4 +C2003, 0414 / AND I AI4 +C2004, 1014 / TAD AI4 + TAD C0021 / @@2005=1021 + CMA / @@2006=7040 + SKP / @@2007=7410 +C2010, 0000 / AND L0000 + SZA / @@2011=7440 + HLT / @@2012=7402 + CLA / @@2013=7200 + TAD C0020 / @@2014=1020 +C2015, 3014 / DCA AI4 +C2016, 0414 / AND I AI4 +C2017, 1014 / TAD AI4 + TAD C0020 / @@2020=1020 + CMA / @@2021=7040 + SZA / @@2022=7440 + HLT / @@2023=7402 + CLA / @@2024=7200 + TAD C0036 / @@2025=1036 +C2026, 3015 / DCA AI5 +C2027, 0415 / AND I AI5 +C2030, 1015 / TAD AI5 + TAD C0035 / @@2031=1035 + CMA / @@2032=7040 + SZA / @@2033=7440 + HLT / @@2034=7402 + CLA / @@2035=7200 + TAD C0035 / @@2036=1035 +C2037, 3015 / DCA AI5 +C2040, 0415 / AND I AI5 +C2041, 1015 / TAD AI5 + TAD C0036 / @@2042=1036 + CMA / @@2043=7040 + SZA / @@2044=7440 + HLT / @@2045=7402 + CLA / @@2046=7200 + TAD C0034 / @@2047=1034 +C2050, 3015 / DCA AI5 +C2051, 3415 / DCA I AI5 +C2052, 1015 / TAD AI5 + TAD C0051 / @@2053=1051 + CMA / @@2054=7040 + SZA / @@2055=7440 + HLT / @@2056=7402 + CLA / @@2057=7200 + TAD C0033 / @@2060=1033 +C2061, 3015 / DCA AI5 +C2062, 1415 / TAD I AI5 + CLA / @@2063=7200 +C2064, 1015 / TAD AI5 + TAD C0047 / @@2065=1047 + CMA / @@2066=7040 + SZA / @@2067=7440 + HLT / @@2070=7402 + CLA / @@2071=7200 + TAD C0032 / @@2072=1032 +C2073, 3015 / DCA AI5 +C2074, 0415 / AND I AI5 +C2075, 1015 / TAD AI5 + TAD C0046 / @@2076=1046 + CMA / @@2077=7040 + SZA / @@2100=7440 + HLT / @@2101=7402 + CLA / @@2102=7200 + TAD C0031 / @@2103=1031 +C2104, 3015 / DCA AI5 +C2105, 0415 / AND I AI5 +C2106, 1015 / TAD AI5 + TAD C0045 / @@2107=1045 + CMA / @@2110=7040 + SZA / @@2111=7440 + HLT / @@2112=7402 + CLA / @@2113=7200 + TAD C0027 / @@2114=1027 +C2115, 3015 / DCA AI5 +C2116, 0415 / AND I AI5 +C2117, 1015 / TAD AI5 + TAD C0044 / @@2120=1044 + CMA / @@2121=7040 + SZA / @@2122=7440 + HLT / @@2123=7402 + CLA / @@2124=7200 + TAD C0026 / @@2125=1026 +C2126, 3015 / DCA AI5 +C2127, 0415 / AND I AI5 +C2130, 1015 / TAD AI5 + TAD C0043 / @@2131=1043 + CMA / @@2132=7040 + SZA / @@2133=7440 + HLT / @@2134=7402 + CLA / @@2135=7200 + TAD C0025 / @@2136=1025 +C2137, 3015 / DCA AI5 +C2140, 0415 / AND I AI5 +C2141, 1015 / TAD AI5 + TAD D0042 / @@2142=1042 + CMA / @@2143=7040 + SZA / @@2144=7440 + HLT / @@2145=7402 + CLA / @@2146=7200 + TAD C0024 / @@2147=1024 +C2150, 3015 / DCA AI5 +C2151, 0415 / AND I AI5 +C2152, 1015 / TAD AI5 + TAD C0041 / @@2153=1041 + CMA / @@2154=7040 + SZA / @@2155=7440 + HLT / @@2156=7402 + CLA / @@2157=7200 + TAD C0023 / @@2160=1023 +C2161, 3015 / DCA AI5 +C2162, 0415 / AND I AI5 +C2163, 1015 / TAD AI5 + TAD C0040 / @@2164=1040 + CMA / @@2165=7040 + SZA / @@2166=7440 + HLT / @@2167=7402 + NOP / @@2170=7000 + NOP / @@2171=7000 + JMP L2176 / @@2172=5376 +L2173, + AND I C2010 / @@2173=0610 + JMP I C2175 / long jump to L3615 @@2174=5775 +C2175, +C2175, 3615 / DCA I C2015 +L2176, + NOP / @@2176=7000 + NOP / @@2177=7000 + +*2200 + CLA / @@2200=7200 + TAD C0022 / @@2201=1022 +C2202, 3015 / DCA AI5 +C2203, 2415 / ISZ I AI5 + NOP / @@2204=7000 +C2205, 1015 / TAD AI5 + TAD C0037 / @@2206=1037 + CMA / @@2207=7040 + SZA / @@2210=7440 + HLT / @@2211=7402 + CLA / @@2212=7200 + TAD C0021 / @@2213=1021 +C2214, 3015 / DCA AI5 +C2215, 0415 / AND I AI5 +C2216, 1015 / TAD AI5 + TAD C0021 / @@2217=1021 + CMA / @@2220=7040 + SZA / @@2221=7440 + HLT / @@2222=7402 + CLA / @@2223=7200 + TAD C0020 / @@2224=1020 +C2225, 3015 / DCA AI5 +C2226, 0415 / AND I AI5 +C2227, 1015 / TAD AI5 + TAD C0020 / @@2230=1020 + CMA / @@2231=7040 + SZA / @@2232=7440 + HLT / @@2233=7402 + CLA / @@2234=7200 + TAD C0036 / @@2235=1036 +C2236, 3016 / DCA AI6 +C2237, 0416 / AND I AI6 +C2240, 1016 / TAD AI6 + TAD C0035 / @@2241=1035 + CMA / @@2242=7040 + SZA / @@2243=7440 + HLT / @@2244=7402 + CLA / @@2245=7200 + TAD C0035 / @@2246=1035 +C2247, 3016 / DCA AI6 +C2250, 0416 / AND I AI6 +C2251, 1016 / TAD AI6 + TAD C0036 / @@2252=1036 + CMA / @@2253=7040 + SZA / @@2254=7440 + HLT / @@2255=7402 + CLA / @@2256=7200 + TAD C0034 / @@2257=1034 +C2260, 3016 / DCA AI6 +C2261, 3416 / DCA I AI6 +C2262, 1016 / TAD AI6 + TAD C0051 / @@2263=1051 + CMA / @@2264=7040 + SZA / @@2265=7440 + HLT / @@2266=7402 + CLA / @@2267=7200 + TAD C0033 / @@2270=1033 +C2271, 3016 / DCA AI6 +C2272, 1416 / TAD I AI6 + CLA / @@2273=7200 +C2274, 1016 / TAD AI6 + TAD C0047 / @@2275=1047 + CMA / @@2276=7040 + SZA / @@2277=7440 + HLT / @@2300=7402 + CLA / @@2301=7200 + TAD C0032 / @@2302=1032 +C2303, 3016 / DCA AI6 +C2304, 0416 / AND I AI6 +C2305, 1016 / TAD AI6 + TAD C0046 / @@2306=1046 + CMA / @@2307=7040 + SZA / @@2310=7440 + HLT / @@2311=7402 + CLA / @@2312=7200 + TAD C0031 / @@2313=1031 +C2314, 3016 / DCA AI6 +C2315, 0416 / AND I AI6 +C2316, 1016 / TAD AI6 + TAD C0045 / @@2317=1045 + CMA / @@2320=7040 + SZA / @@2321=7440 + HLT / @@2322=7402 + CLA / @@2323=7200 + TAD C0027 / @@2324=1027 +C2325, 3016 / DCA AI6 +C2326, 0416 / AND I AI6 +C2327, 1016 / TAD AI6 + TAD C0044 / @@2330=1044 + CMA / @@2331=7040 + SZA / @@2332=7440 + HLT / @@2333=7402 + CLA / @@2334=7200 + TAD C0026 / @@2335=1026 +C2336, 3016 / DCA AI6 +C2337, 0416 / AND I AI6 +C2340, 1016 / TAD AI6 + TAD C0043 / @@2341=1043 + CMA / @@2342=7040 + SZA / @@2343=7440 + HLT / @@2344=7402 + CLA / @@2345=7200 + TAD C0025 / @@2346=1025 +C2347, 3016 / DCA AI6 +C2350, 0416 / AND I AI6 +C2351, 1016 / TAD AI6 + TAD D0042 / @@2352=1042 + CMA / @@2353=7040 + SZA / @@2354=7440 + HLT / @@2355=7402 + CLA / @@2356=7200 + TAD C0024 / @@2357=1024 +C2360, 3016 / DCA AI6 +C2361, 0416 / AND I AI6 +C2362, 1016 / TAD AI6 + TAD C0041 / @@2363=1041 + CMA / @@2364=7040 + SZA / @@2365=7440 + HLT / @@2366=7402 + CLA / @@2367=7200 + TAD C0023 / @@2370=1023 +C2371, 3016 / DCA AI6 +C2372, 0416 / AND I AI6 +C2373, 1016 / TAD AI6 + TAD C0040 / @@2374=1040 + CMA / @@2375=7040 + SZA / @@2376=7440 + HLT / @@2377=7402 + +*2400 + CLA / @@2400=7200 + TAD C0022 / @@2401=1022 +C2402, 3016 / DCA AI6 +C2403, 2416 / ISZ I AI6 + NOP / @@2404=7000 +C2405, 1016 / TAD AI6 + TAD C0037 / @@2406=1037 + CMA / @@2407=7040 + SZA / @@2410=7440 + HLT / @@2411=7402 + CLA / @@2412=7200 + TAD C0021 / @@2413=1021 +C2414, 3016 / DCA AI6 +C2415, 0416 / AND I AI6 +C2416, 1016 / TAD AI6 + TAD C0021 / @@2417=1021 + CMA / @@2420=7040 + SZA / @@2421=7440 + HLT / @@2422=7402 + CLA / @@2423=7200 + TAD C0020 / @@2424=1020 +C2425, 3016 / DCA AI6 +C2426, 0416 / AND I AI6 +C2427, 1016 / TAD AI6 + TAD C0020 / @@2430=1020 + CMA / @@2431=7040 + SZA / @@2432=7440 + HLT / @@2433=7402 + CLA / @@2434=7200 + TAD C0036 / @@2435=1036 +C2436, 3017 / DCA AI7 +C2437, 0417 / AND I AI7 +C2440, 1017 / TAD AI7 + TAD C0035 / @@2441=1035 + CMA / @@2442=7040 + SZA / @@2443=7440 + HLT / @@2444=7402 + CLA / @@2445=7200 + TAD C0035 / @@2446=1035 +C2447, 3017 / DCA AI7 +C2450, 0417 / AND I AI7 +C2451, 1017 / TAD AI7 + TAD C0036 / @@2452=1036 + CMA / @@2453=7040 + SZA / @@2454=7440 + HLT / @@2455=7402 + CLA / @@2456=7200 + TAD C0034 / @@2457=1034 +C2460, 3017 / DCA AI7 +C2461, 3417 / DCA I AI7 +C2462, 1017 / TAD AI7 + TAD C0051 / @@2463=1051 + CMA / @@2464=7040 + SZA / @@2465=7440 + HLT / @@2466=7402 + CLA / @@2467=7200 + TAD C0033 / @@2470=1033 +C2471, 3017 / DCA AI7 +C2472, 1417 / TAD I AI7 + CLA / @@2473=7200 +C2474, 1017 / TAD AI7 + TAD C0047 / @@2475=1047 + CMA / @@2476=7040 + SZA / @@2477=7440 + HLT / @@2500=7402 + CLA / @@2501=7200 + TAD C0032 / @@2502=1032 +C2503, 3017 / DCA AI7 +C2504, 0417 / AND I AI7 +C2505, 1017 / TAD AI7 + TAD C0046 / @@2506=1046 + CMA / @@2507=7040 + SZA / @@2510=7440 + HLT / @@2511=7402 + CLA / @@2512=7200 + TAD C0031 / @@2513=1031 +C2514, 3017 / DCA AI7 +C2515, 0417 / AND I AI7 +C2516, 1017 / TAD AI7 + TAD C0045 / @@2517=1045 + CMA / @@2520=7040 + SZA / @@2521=7440 + HLT / @@2522=7402 + CLA / @@2523=7200 + TAD C0027 / @@2524=1027 +C2525, 3017 / DCA AI7 +C2526, 0417 / AND I AI7 +C2527, 1017 / TAD AI7 + TAD C0044 / @@2530=1044 + CMA / @@2531=7040 + SZA / @@2532=7440 + HLT / @@2533=7402 + CLA / @@2534=7200 + TAD C0026 / @@2535=1026 +C2536, 3017 / DCA AI7 +C2537, 0417 / AND I AI7 +C2540, 1017 / TAD AI7 + TAD C0043 / @@2541=1043 + CMA / @@2542=7040 + SZA / @@2543=7440 + HLT / @@2544=7402 + CLA / @@2545=7200 + TAD C0025 / @@2546=1025 +C2547, 3017 / DCA AI7 +C2550, 0417 / AND I AI7 +C2551, 1017 / TAD AI7 + TAD D0042 / @@2552=1042 + CMA / @@2553=7040 + SZA / @@2554=7440 + HLT / @@2555=7402 + CLA / @@2556=7200 + TAD C0024 / @@2557=1024 +C2560, 3017 / DCA AI7 +C2561, 0417 / AND I AI7 +C2562, 1017 / TAD AI7 + TAD C0041 / @@2563=1041 + CMA / @@2564=7040 + SZA / @@2565=7440 + HLT / @@2566=7402 + CLA / @@2567=7200 + TAD C0023 / @@2570=1023 +C2571, 3017 / DCA AI7 +C2572, 0417 / AND I AI7 +C2573, 1017 / TAD AI7 + TAD C0040 / @@2574=1040 + CMA / @@2575=7040 + SZA / @@2576=7440 + HLT / @@2577=7402 + +*2600 + CLA / @@2600=7200 + TAD C0022 / @@2601=1022 +C2602, 3017 / DCA AI7 +C2603, 2417 / ISZ I AI7 + NOP / @@2604=7000 +C2605, 1017 / TAD AI7 + TAD C0037 / @@2606=1037 + CMA / @@2607=7040 + SZA / @@2610=7440 + HLT / @@2611=7402 + CLA / @@2612=7200 + TAD C0021 / @@2613=1021 +C2614, 3017 / DCA AI7 +C2615, 0417 / AND I AI7 +C2616, 1017 / TAD AI7 + TAD C0021 / @@2617=1021 + CMA / @@2620=7040 + SZA / @@2621=7440 + HLT / @@2622=7402 + CLA / @@2623=7200 + TAD C0020 / @@2624=1020 +C2625, 3017 / DCA AI7 +C2626, 0417 / AND I AI7 +C2627, 1017 / TAD AI7 + TAD C0020 / @@2630=1020 + CMA / @@2631=7040 + SZA / @@2632=7440 + HLT / @@2633=7402 + JMP L2636 / @@2634=5236 + HLT / @@2635=7402 +L2636, + SKP / @@2636=7410 +C2637, 2644 / ISZ I C2644 + TAD C2637 / @@2640=1237 +C2641, 3010 / DCA AI0 +C2642, 5410 / JMP I AI0 + HLT / @@2643=7402 +C2644, 7402 / HLT +C2645, 4247 / JMS C2647 +C2646, 7402 / HLT +C2647, 7402 / HLT + TAD C2647 / @@2650=1247 + SKP / @@2651=7410 +C2652, 2646 / ISZ I C2646 + CIA / @@2653=7041 + TAD C2652 / @@2654=1252 + SZA / @@2655=7440 + HLT / @@2656=7402 + SKP / @@2657=7410 +C2660, 2664 / ISZ I C2664 + TAD C2660 / @@2661=1260 +C2662, 3010 / DCA AI0 +C2663, 4410 / JMS I AI0 +C2664, 7402 / HLT +C2665, 7402 / HLT + TAD C2665 / @@2666=1265 + SKP / @@2667=7410 +C2670, 2664 / ISZ I C2664 + CIA / @@2671=7041 + TAD C2670 / @@2672=1270 + SZA / @@2673=7440 + HLT / @@2674=7402 + JMP I C2676 / long jump to L4200 @@2675=5676 +C2676, +C2676, 4200 / JMS C2600 +L2677, + JMS I C2700 / long call to S4011 @@2677=4700 +C2700, +C2700, 4011 / JMS AI1 +C2701, 6040 / 6040 + TSF / Skip if teleprinter flag is a 1. @@2702=6041 + HLT / @@2703=7402 + CLA / @@2704=7200 + TAD C2713 / @@2705=1313 + DCA D0002 / @@2706=3002 + ION / Enable Interrupts @@2707=6001 + NOP / @@2710=7000 +C2711, 7402 / HLT +C2712, 2711 / ISZ I C2711 +C2713, 2714 / ISZ I C2714 + SZA / @@2714=7440 + HLT / @@2715=7402 + TAD L0000 / @@2716=1000 + CIA / @@2717=7041 + TAD C2712 / @@2720=1312 + SZA CLA / @@2721=7640 + HLT / @@2722=7402 +C2723, 6040 / 6040 + TSF / Skip if teleprinter flag is a 1. @@2724=6041 + HLT / @@2725=7402 + CLA / @@2726=7200 + TAD C2735 / @@2727=1335 + DCA D0002 / @@2730=3002 + ION / Enable Interrupts @@2731=6001 + TAD C0020 / @@2732=1020 +C2733, 7402 / HLT +C2734, 2733 / ISZ I C2733 +C2735, 2736 / ISZ I C2736 + CMA / @@2736=7040 + SZA / @@2737=7440 + HLT / @@2740=7402 + TAD L0000 / @@2741=1000 + CIA / @@2742=7041 + TAD C2734 / @@2743=1334 + SZA CLA / @@2744=7640 + HLT / @@2745=7402 +C2746, 6040 / 6040 + TSF / Skip if teleprinter flag is a 1. @@2747=6041 + HLT / @@2750=7402 + CLA / @@2751=7200 + TAD C2761 / @@2752=1361 + DCA D0002 / @@2753=3002 + TAD C0020 / @@2754=1020 + ION / Enable Interrupts @@2755=6001 + AND C0020 / @@2756=0020 +C2757, 7402 / HLT +C2760, 2757 / ISZ I C2757 +C2761, 2762 / ISZ I C2762 + CMA / @@2762=7040 + SZA / @@2763=7440 + HLT / @@2764=7402 + TAD L0000 / @@2765=1000 + CIA / @@2766=7041 + TAD C2760 / @@2767=1360 + SZA CLA / @@2770=7640 + HLT / @@2771=7402 + JMP I C2773 / long jump to L3000 @@2772=5773 +C2773, +C2773, 3000 / DCA L0000 + +*3000 +L3000, +D3000, 6040 / 6040 + TSF / Skip if teleprinter flag is a 1. @@3001=6041 + HLT / @@3002=7402 + CLA / @@3003=7200 + TAD C3013 / @@3004=1213 + DCA D0002 / @@3005=3002 + TAD C0020 / @@3006=1020 + ION / Enable Interrupts @@3007=6001 + DCA D0003 / @@3010=3003 + HLT / @@3011=7402 +C3012, 3011 / DCA AI1 +C3013, 3014 / DCA AI4 + SZA / @@3014=7440 + HLT / @@3015=7402 + TAD D0003 / @@3016=1003 + CMA / @@3017=7040 + SZA / @@3020=7440 + HLT / @@3021=7402 + DCA D0003 / @@3022=3003 + TAD L0000 / @@3023=1000 + CIA / @@3024=7041 + TAD C3012 / @@3025=1212 + SZA CLA / @@3026=7640 + HLT / @@3027=7402 +C3030, 6040 / 6040 + TSF / Skip if teleprinter flag is a 1. @@3031=6041 + HLT / @@3032=7402 + CLA / @@3033=7200 + TAD C3044 / @@3034=1244 + DCA D0002 / @@3035=3002 + TAD C0035 / @@3036=1035 + DCA D0003 / @@3037=3003 + ION / Enable Interrupts @@3040=6001 + ISZ D0003 / @@3041=2003 + HLT / @@3042=7402 +C3043, 3042 / DCA D0042 +C3044, 3045 / DCA C0045 + SZA / @@3045=7440 + HLT / @@3046=7402 + TAD D0003 / @@3047=1003 + CMA / @@3050=7040 + SZA / @@3051=7440 + HLT / @@3052=7402 + DCA D0003 / @@3053=3003 + TAD L0000 / @@3054=1000 + CIA / @@3055=7041 + TAD C3043 / @@3056=1243 + SZA CLA / @@3057=7640 + HLT / @@3060=7402 +C3061, 6040 / 6040 + TSF / Skip if teleprinter flag is a 1. @@3062=6041 + HLT / @@3063=7402 + CLA / @@3064=7200 + TAD C3076 / @@3065=1276 + DCA D0002 / @@3066=3002 + TAD C0020 / @@3067=1020 + DCA D0003 / @@3070=3003 + ION / Enable Interrupts @@3071=6001 + ISZ D0003 / @@3072=2003 + HLT / @@3073=7402 + HLT / @@3074=7402 +C3075, 3074 / DCA L0074 +C3076, 3077 / DCA C0077 + SZA / @@3077=7440 + HLT / @@3100=7402 + TAD D0003 / @@3101=1003 + SZA / @@3102=7440 + HLT / @@3103=7402 + DCA D0003 / @@3104=3003 + TAD L0000 / @@3105=1000 + CIA / @@3106=7041 + TAD C3075 / @@3107=1275 + SZA CLA / @@3110=7640 + HLT / @@3111=7402 +C3112, 6040 / 6040 + TSF / Skip if teleprinter flag is a 1. @@3113=6041 + HLT / @@3114=7402 + CLA / @@3115=7200 + TAD C3124 / @@3116=1324 + DCA D0002 / @@3117=3002 + ION / Enable Interrupts @@3120=6001 +L3121, + JMP L3121 / @@3121=5321 + HLT / @@3122=7402 +C3123, 3121 / DCA D0121 +C3124, 3125 / DCA C0125 + SZA / @@3125=7440 + HLT / @@3126=7402 + TAD L0000 / @@3127=1000 + CIA / @@3130=7041 + TAD C3123 / @@3131=1323 + SZA CLA / @@3132=7640 + HLT / @@3133=7402 +C3134, 6040 / 6040 + TSF / Skip if teleprinter flag is a 1. @@3135=6041 + HLT / @@3136=7402 + CLA / @@3137=7200 + TAD C3146 / @@3140=1346 + DCA D0002 / @@3141=3002 + ION / Enable Interrupts @@3142=6001 + JMS D0003 / @@3143=4003 + HLT / @@3144=7402 +C3145, 3144 / DCA C0144 +C3146, 3147 / DCA C0147 + SZA / @@3147=7440 + HLT / @@3150=7402 + TAD D0003 / @@3151=1003 + CIA / @@3152=7041 + TAD C3145 / @@3153=1345 + SZA / @@3154=7440 + HLT / @@3155=7402 + TAD L0000 / @@3156=1000 + CIA / @@3157=7041 + TAD C0065 / @@3160=1065 + SZA CLA / @@3161=7640 + HLT / @@3162=7402 + JMP I C3164 / long jump to L3200 @@3163=5764 +C3164, +C3164, 3200 / DCA L3000 + +*3200 +L3200, +C3200, 6040 / 6040 + TSF / Skip if teleprinter flag is a 1. @@3201=6041 + HLT / @@3202=7402 + CLA / @@3203=7200 + TAD C3213 / @@3204=1213 + DCA D0002 / @@3205=3002 + TAD C0020 / @@3206=1020 + ION / Enable Interrupts @@3207=6001 + CLA / @@3210=7200 +D3211, 7402 / HLT +C3212, 3211 / DCA D3211 +C3213, 3214 / DCA C3214 + SZA / @@3214=7440 + HLT / @@3215=7402 + TAD L0000 / @@3216=1000 + CIA / @@3217=7041 + TAD C3212 / @@3220=1212 + SZA CLA / @@3221=7640 + HLT / @@3222=7402 +C3223, 6040 / 6040 + TSF / Skip if teleprinter flag is a 1. @@3224=6041 + HLT / @@3225=7402 + CLA / @@3226=7200 + TAD C3236 / @@3227=1236 + DCA D0002 / @@3230=3002 + ION / Enable Interrupts @@3231=6001 + TSF / Skip if teleprinter flag is a 1. @@3232=6041 + HLT / @@3233=7402 +D3234, 7402 / HLT +C3235, 3234 / DCA D3234 +C3236, 3237 / DCA C3237 + SZA / @@3237=7440 + HLT / @@3240=7402 + TAD L0000 / @@3241=1000 + CIA / @@3242=7041 + TAD C3235 / @@3243=1235 + SZA CLA / @@3244=7640 + HLT / @@3245=7402 +C3246, 6040 / 6040 + TSF / Skip if teleprinter flag is a 1. @@3247=6041 + HLT / @@3250=7402 + CLA / @@3251=7200 + TAD C3311 / @@3252=1311 + DCA D0002 / @@3253=3002 + ION / Enable Interrupts @@3254=6001 + IOF / Disable Interrupts @@3255=6002 + ION / Enable Interrupts @@3256=6001 + IOF / Disable Interrupts @@3257=6002 + ION / Enable Interrupts @@3260=6001 + IOF / Disable Interrupts @@3261=6002 + ION / Enable Interrupts @@3262=6001 + IOF / Disable Interrupts @@3263=6002 + ION / Enable Interrupts @@3264=6001 + IOF / Disable Interrupts @@3265=6002 + ION / Enable Interrupts @@3266=6001 + IOF / Disable Interrupts @@3267=6002 + ION / Enable Interrupts @@3270=6001 + IOF / Disable Interrupts @@3271=6002 + ION / Enable Interrupts @@3272=6001 + IOF / Disable Interrupts @@3273=6002 + ION / Enable Interrupts @@3274=6001 + IOF / Disable Interrupts @@3275=6002 + ION / Enable Interrupts @@3276=6001 + IOF / Disable Interrupts @@3277=6002 + ION / Enable Interrupts @@3300=6001 + IOF / Disable Interrupts @@3301=6002 + ION / Enable Interrupts @@3302=6001 + IOF / Disable Interrupts @@3303=6002 + ION / Enable Interrupts @@3304=6001 + IOF / Disable Interrupts @@3305=6002 + TSF / Skip if teleprinter flag is a 1. @@3306=6041 + HLT / @@3307=7402 + SKP / @@3310=7410 +C3311, 3313 / DCA C3313 + SKP / @@3312=7410 + HLT / @@3313=7402 + TCF / Clear teleprinter flag. @@3314=6042 + CLA / @@3315=7200 + TAD C3326 / @@3316=1326 + DCA D0002 / @@3317=3002 + ION / Enable Interrupts @@3320=6001 + NOP / @@3321=7000 + NOP / @@3322=7000 + NOP / @@3323=7000 + NOP / @@3324=7000 + SKP / @@3325=7410 +C3326, 3330 / DCA C3330 + SKP / @@3327=7410 + HLT / @@3330=7402 + IOF / Disable Interrupts @@3331=6002 +C3332, 6040 / 6040 + TSF / Skip if teleprinter flag is a 1. @@3333=6041 + HLT / @@3334=7402 + CLA / @@3335=7200 + TAD C3345 / @@3336=1345 + DCA D0002 / @@3337=3002 + ION / Enable Interrupts @@3340=6001 + SKP / @@3341=7410 + HLT / @@3342=7402 +D3343, 7402 / HLT +C3344, 3343 / DCA D3343 +C3345, 3346 / DCA C3346 + SZA / @@3346=7440 + HLT / @@3347=7402 + TAD L0000 / @@3350=1000 + CIA / @@3351=7041 + TAD C3344 / @@3352=1344 + SZA CLA / @@3353=7640 + HLT / @@3354=7402 +C3355, 6040 / 6040 + TSF / Skip if teleprinter flag is a 1. @@3356=6041 + HLT / @@3357=7402 + CLA / @@3360=7200 + TAD C3370 / @@3361=1370 + DCA D0002 / @@3362=3002 + ION / Enable Interrupts @@3363=6001 + JMP I C3365 / long jump to L3366 @@3364=5765 +C3365, +C3365, 3366 / DCA L3366 +L3366, +D3366, 7402 / HLT +C3367, 3366 / DCA L3366 +C3370, 3371 / DCA C3371 + SZA / @@3371=7440 + HLT / @@3372=7402 + TAD L0000 / @@3373=1000 + CIA / @@3374=7041 + TAD C3367 / @@3375=1367 + SZA CLA / @@3376=7640 + HLT / @@3377=7402 +C3400, 6007 / 6007 + TAD C3412 / @@3401=1212 + DCA D0002 / @@3402=3002 + ION / Enable Interrupts @@3403=6001 + NOP / @@3404=7000 +C3405, 6007 / 6007 +C3406, 6040 / 6040 +C3407, 6000 / 6000 + JMP L3413 / @@3410=5213 + HLT / @@3411=7402 +C3412, 3411 / DCA I AI1 +L3413, +C3413, 6007 / 6007 + JMP I C3415 / long jump to L3600 @@3414=5615 +C3415, +C3415, 3600 / DCA I C3400 + +*3600 +L3600, +C3600, 7200 / CLA + JMP I C3602 / long jump to L4000 @@3601=5602 +C3602, +C3602, 4000 / JMS L0000 +C3603, 4010 / JMS AI0 + +*4000 +L4000, + AND I C4010 / @@4000=0610 + JMP I C4002 / long jump to L3604 @@4001=5602 +C4002, +C4002, 3604 / DCA I C4004 + +*3604 +L3604, + TAD I C3603 / @@3604=1603 + SZA / @@3605=7440 + HLT / @@3606=7402 + CLA / @@3607=7200 +C3610, 3603 / DCA I C3603 + CLA / @@3611=7200 + JMP I C3613 / long jump to L2173 @@3612=5613 +C3613, +C3613, 2173 / ISZ D0173 +C3614, 2010 / ISZ AI0 + +*2173 +L2173, + AND I C2010 / @@2173=0610 + JMP I C2175 / long jump to L3615 @@2174=5775 +C2175, +C2175, 3615 / DCA I C2015 + +*3615 +L3615, + TAD I C3614 / @@3615=1614 + SZA / @@3616=7440 + HLT / @@3617=7402 + JMP I C3621 / long jump to L3622 @@3620=5621 +C3621, +C3621, 3622 / DCA I L3622 +L3622, +C3622, 7200 / CLA + JMP I C3624 / long jump to L1173 @@3623=5624 +C3624, +C3624, 1173 / TAD D0173 +C3625, 1010 / TAD AI0 + +*1173 +L1173, + AND I D1010 / @@1173=0610 + JMP I C1175 / long jump to L3626 @@1174=5775 +C1175, +C1175, 3626 / DCA I C1026 + +*3626 +L3626, + TAD I C3625 / @@3626=1625 + SZA / @@3627=7440 + HLT / @@3630=7402 + CLA / @@3631=7200 + DCA I C3625 / @@3632=3625 + CLA / @@3633=7200 + JMP I C3635 / long jump to L0574 @@3634=5635 +C3635, +C3635, 0574 / AND I C0174 +C3636, 0410 / AND I AI0 + +*0574 +L0574, + AND I D0410 / @@0574=0610 + JMP I C0576 / long jump to L3637 @@0575=5776 +C0576, +C0576, 3637 / DCA I C0437 + +*3637 +L3637, + TAD I C3636 / @@3637=1636 + SZA / @@3640=7440 + HLT / @@3641=7402 + CLA / @@3642=7200 + DCA I C3636 / @@3643=3636 + CLA / @@3644=7200 + JMP I C3646 / long jump to L0372 @@3645=5646 +C3646, +C3646, 0372 / AND C3772 +C3647, 0210 / AND C3610 + +*0371 + JMP L0375 / @@0371=5375 +L0372, + AND I D0210 / @@0372=0610 + JMP I C0374 / long jump to L3650 @@0373=5774 +C0374, +C0374, 3650 / DCA I C0250 + +*3650 +L3650, + TAD I C3647 / @@3650=1647 + SZA / @@3651=7440 + HLT / @@3652=7402 + CLA / @@3653=7200 + DCA I C3647 / @@3654=3647 + CLA / @@3655=7200 + JMP I C3657 / long jump to L0130 @@3656=5657 +C3657, +C3657, 0130 / AND L0130 +C3660, 0110 / AND D0110 + +*0130 +L0130, +C0130, 0510 / AND I D0110 + JMP I C0132 / long jump to L3661 @@0131=5532 +C0132, +C0132, 3661 / DCA I C0061 + +*3661 +L3661, + TAD I C3660 / @@3661=1660 + SZA / @@3662=7440 + HLT / @@3663=7402 + CLA / @@3664=7200 + DCA D0110 / @@3665=3110 + CLA / @@3666=7200 + JMP I C3670 / long jump to L0124 @@3667=5670 +C3670, +C3670, 0124 / AND L0124 +C3671, 0050 / AND D0050 + +*0124 +L0124, +C0124, 0450 / AND I D0050 +C0125, 5526 / JMP I C0126 + DCA I C0072 / @@0126=3672 + +*3672 + TAD I C3671 / @@3672=1671 + SZA / @@3673=7440 + HLT / @@3674=7402 + CLA / @@3675=7200 + DCA D0050 / @@3676=3050 + CLA / @@3677=7200 + JMP I C3701 / long jump to L0120 @@3700=5701 +C3701, +C3701, 0120 / AND L0120 +C3702, 0030 / AND D0030 + +*0120 +L0120, +C0120, 0430 / AND I D0030 +D0121, 5522 / JMP I C0122 +C0122, 3703 / DCA I C0103 + +*3703 + TAD I C3702 / @@3703=1702 + SZA / @@3704=7440 + HLT / @@3705=7402 + CLA / @@3706=7200 + DCA D0030 / @@3707=3030 + CLA / @@3710=7200 + DCA L0000 / @@3711=3000 + JMP I C3713 / long jump to L0074 @@3712=5713 +C3713, +C3713, 0074 / AND L0074 + +*0074 +L0074, +D0074, 0400 / AND I L0000 + JMP I C0076 / long jump to L3714 @@0075=5476 +C0076, +C0076, 3714 / DCA I C0114 + +*3714 +L3714, + TAD I C0036 / @@3714=1436 + SZA / @@3715=7440 + HLT / @@3716=7402 + CLA / @@3717=7200 + DCA L0000 / @@3720=3000 + CLA / @@3721=7200 + JMP I C3723 / long jump to L0070 @@3722=5723 +C3723, +C3723, 0070 / AND L0070 + +*0070 +L0070, +C0070, 0407 / AND I D0007 + JMP I C0072 / long jump to L3724 @@0071=5472 +C0072, +C0072, 3724 / DCA I L0124 + +*3724 +L3724, +D3724, 1446 / TAD I C0046 + SZA / @@3725=7440 + HLT / @@3726=7402 + CLA / @@3727=7200 + DCA D0007 / @@3730=3007 + TAD D3747 / @@3731=1347 + IAC / @@3732=7001 + DCA D3747 / @@3733=3347 + TAD D3747 / @@3734=1347 + TAD C3750 / @@3735=1350 + SZA CLA / @@3736=7640 + JMP I C3746 / long jump to L0200 @@3737=5746 + DCA D3747 / @@3740=3347 + TAD C3751 / @@3741=1351 + TLS / Load the TTO from the content of AC4 @@3742=6046 +L3743, + TSF / Skip if teleprinter flag is a 1. @@3743=6041 + JMP L3743 / @@3744=5343 + JMP I C3746 / long jump to L0200 @@3745=5746 +C3746, +C3746, 0200 / AND L3600 +D3747, 0000 / AND L0000 +C3750, 4762 / JMS I C3762 +C3751, 0207 / AND C3607 + +*4010 +C4010, 0000 / AND L0000 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S4011 +/ +/ Called from: +/ 2677 4201 +/ Total 0002 (2) calls +//////////////////////////////////////////////////////////////////////////////// +S4011, + 0 / return area + TAD C4020 / @@4012=1220 + DCA L0001 / @@4013=3001 + DCA D0002 / @@4014=3002 + DCA D0003 / @@4015=3003 + ISZ S4011 / @@4016=2211 + JMP I S4011 / return @@4017=5611 +C4020, 5402 / JMP I D0002 + +*4200 +L4200, + CLA CLL / AC = 0000 @@4200=7300 + JMS I C4202 / long call to S4011 @@4201=4602 +C4202, +C4202, 4011 / JMS AI1 + CLA CLL CMA CML / @@4203=7360 +C4204, 6007 / 6007 + SKP / @@4205=7410 + HLT / @@4206=7402 + SNL / @@4207=7420 + SZA / @@4210=7440 + HLT / @@4211=7402 +C4212, 6040 / 6040 + SKP / @@4213=7410 + HLT / @@4214=7402 + TSF / Skip if teleprinter flag is a 1. @@4215=6041 + HLT / @@4216=7402 +C4217, 6007 / 6007 + TSF / Skip if teleprinter flag is a 1. @@4220=6041 + SKP / @@4221=7410 + HLT / @@4222=7402 +C4223, 6003 / 6003 + SKP / @@4224=7410 + HLT / @@4225=7402 +C4226, 6007 / 6007 +C4227, 6040 / 6040 +C4230, 6003 / 6003 + HLT / @@4231=7402 +C4232, 6007 / 6007 +C4233, 6035 / 6035 + SKP / @@4234=7410 + HLT / @@4235=7402 +C4236, 6040 / 6040 + TSF / Skip if teleprinter flag is a 1. @@4237=6041 + HLT / @@4240=7402 +C4241, 6003 / 6003 + SKP / @@4242=7410 + HLT / @@4243=7402 + CLA IAC / @@4244=7201 +C4245, 6035 / 6035 +C4246, 6040 / 6040 + TSF / Skip if teleprinter flag is a 1. @@4247=6041 + HLT / @@4250=7402 +C4251, 6003 / 6003 + HLT / @@4252=7402 +C4253, 6007 / 6007 + TAD C4267 / @@4254=1267 + DCA D0002 / @@4255=3002 + ION / Enable Interrupts @@4256=6001 + SKP / @@4257=7410 + HLT / @@4260=7402 +C4261, 6000 / 6000 + HLT / @@4262=7402 +C4263, 6000 / 6000 + SKP / @@4264=7410 + HLT / @@4265=7402 + JMP L4271 / @@4266=5271 +C4267, 4270 / JMS C4270 + HLT / @@4270=7402 +L4271, +C4271, 6007 / 6007 + TAD C4304 / @@4272=1304 + DCA D0002 / @@4273=3002 + ION / Enable Interrupts @@4274=6001 + IOF / Disable Interrupts @@4275=6002 + SKP / @@4276=7410 + HLT / @@4277=7402 +C4300, 6000 / 6000 + SKP / @@4301=7410 + HLT / @@4302=7402 + JMP L4306 / @@4303=5306 +C4304, 4305 / JMS C4305 + HLT / @@4305=7402 +L4306, +C4306, 6007 / 6007 + CMA / @@4307=7040 +C4310, 6004 / 6004 + SKP / @@4311=7410 + HLT / @@4312=7402 + AND C0064 / @@4313=0064 + SZA / @@4314=7440 + HLT / @@4315=7402 + CLA CLL CMA CML / @@4316=7360 +C4317, 6004 / 6004 + SNL / @@4320=7420 + HLT / @@4321=7402 + AND C0064 / @@4322=0064 + CLL RAL / @@4323=7104 + SZL / @@4324=7430 + SZA / @@4325=7440 + HLT / @@4326=7402 +C4327, 6007 / 6007 +C4330, 6040 / 6040 +C4331, 6004 / 6004 + AND C0064 / @@4332=0064 + RTL / @@4333=7006 + RAL / @@4334=7004 + SZL / @@4335=7430 + SZA / @@4336=7440 + HLT / @@4337=7402 +C4340, 6007 / 6007 + TAD C4356 / @@4341=1356 + DCA D0002 / @@4342=3002 + ION / Enable Interrupts @@4343=6001 +C4344, 6004 / 6004 + AND C0064 / @@4345=0064 +C4346, 6000 / 6000 + HLT / @@4347=7402 + CLL / @@4350=7102 + RTR / @@4351=7012 + SZL / @@4352=7430 + SZA / @@4353=7440 + HLT / @@4354=7402 + JMP L4360 / @@4355=5360 +C4356, 4357 / JMS C4357 + HLT / @@4357=7402 +L4360, + CLA CLL CML / @@4360=7320 + TAD C4375 / @@4361=1375 + DCA D0002 / @@4362=3002 +C4363, 6005 / 6005 + SKP / @@4364=7410 + HLT / @@4365=7402 + SNL / @@4366=7420 + SZA / @@4367=7440 + HLT / @@4370=7402 +C4371, 6000 / 6000 + HLT / @@4372=7402 + JMP I C4374 / long jump to L4400 @@4373=5774 +C4374, +C4374, 4400 / JMS I L0000 +C4375, 4376 / JMS C4376 + HLT / @@4376=7402 + +*4400 +L4400, +C4400, 6007 / 6007 + TAD C4415 / @@4401=1215 + DCA D0002 / @@4402=3002 + CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@4403=7330 +C4404, 6005 / 6005 + SNL / @@4405=7420 + HLT / @@4406=7402 +C4407, 6000 / 6000 + HLT / @@4410=7402 +C4411, 6007 / 6007 + CLA CLL / AC = 0000 @@4412=7300 + JMP I C4414 / long jump to L2677 @@4413=5614 +C4414, +C4414, 2677 / ISZ I C4477 +C4415, 4416 / JMS I AI6 + HLT / @@4416=7402 + +$ diff --git a/PDP8/tests/diags/maindec-8e-d0bb-pb.pdf b/PDP8/tests/diags/maindec-8e-d0bb-pb.pdf new file mode 100644 index 00000000..422cdb94 Binary files /dev/null and b/PDP8/tests/diags/maindec-8e-d0bb-pb.pdf differ diff --git a/PDP8/tests/diags/maindec-8e-d0cc-pb.bin b/PDP8/tests/diags/maindec-8e-d0cc-pb.bin new file mode 100644 index 00000000..ff285195 Binary files /dev/null and b/PDP8/tests/diags/maindec-8e-d0cc-pb.bin differ diff --git a/PDP8/tests/diags/maindec-8e-d0cc-pb.pal b/PDP8/tests/diags/maindec-8e-d0cc-pb.pal new file mode 100644 index 00000000..ba253752 --- /dev/null +++ b/PDP8/tests/diags/maindec-8e-d0cc-pb.pal @@ -0,0 +1,3018 @@ +TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d0cc-pb.bin BY D8TAPE" +//////////////////////////////////////////////////////////////////////////////// +/ +/ Automatic Disassembly of maindec-8e-d0cc-pb.bin +/ Generated 2010 02 19 00:10:29 +/ 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 +/ +/ 4463 locations used, 3740 code and 0523 data +//////////////////////////////////////////////////////////////////////////////// + +*0200 + +*7775 + AND L0000 / @@7775=0000 +L7776, +D7776, 0000 / AND L0000 +L7777, +D7777, 0000 / AND L0000 + +*0000 +L0000, +D0000, 0000 / AND L0000 +L0001, +D0001, 5001 / JMP L0001 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0002 +/ +/ Called from: +/ 5326 5555 5774 +/ Total 0003 (3) calls +//////////////////////////////////////////////////////////////////////////////// +S0002, + 0 / return area +L0003, +D0003, 0003 / AND L0003 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0004 +/ +/ Called from: +/ 5746 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S0004, + 0 / return area + +*0010 +AI0, 0000 / AUTO-INDEX REGISTER AND L0000 +AI1, 0000 / AUTO-INDEX REGISTER AND L0000 +AI2, 0000 / AUTO-INDEX REGISTER AND L0000 + +*0020 +D0020, 0000 / AND L0000 + AND C0022 / @@0021=0022 +C0022, 7777 / CLA MQA SCA MQL LSR + +D0023, 0000 / AND L0000 +D0024, 0000 / AND L0000 +D0025, 0000 / AND L0000 +L0026, +D0026, 0000 / AND L0000 +D0027, 0000 / AND L0000 +D0030, 0000 / AND L0000 +D0031, 0000 / AND L0000 +D0032, 0000 / AND L0000 +D0033, 0000 / AND L0000 +D0034, 0000 / AND L0000 +D0035, 0000 / AND L0000 +D0036, 0000 / AND L0000 +D0037, 0000 / AND L0000 +D0040, 0000 / AND L0000 +L0041, +D0041, 0037 / AND D0037 + AND L0000 / @@0042=0000 +D0043, 0000 / AND L0000 +D0044, 0000 / AND L0000 +D0045, 0000 / AND L0000 +D0046, 1600 / TAD I L0000 +C0047, +C0047, 1652 / TAD I C0052 +C0050, 1133 / TAD C0133 +C0051, +C0051, 1200 / TAD L0000 +C0052, 0756 / AND I L0156 +C0053, 1157 / TAD C0157 +C0054, 1140 / TAD D0140 +C0055, 1657 / TAD I C0057 +C0056, +C0056, 1000 / TAD L0000 +C0057, +C0057, 1031 / TAD D0031 +C0060, +C0060, 0504 / AND I C0104 +C0061, +C0061, 0523 / AND I C0123 +C0062, +C0062, 3000 / DCA L0000 +C0063, +C0063, 3730 / DCA I C0130 +C0064, +C0064, 3017 / DCA AI7 +C0065, +C0065, 3037 / DCA D0037 +C0066, +C0066, 3027 / DCA D0027 +C0067, +C0067, 3046 / DCA D0046 +D0070, 7775 / CLA MQA SCA MQL ASR + +C0071, +C0071, 7776 / SPA SNA SZL CLA OSR HLT +C0072, +C0072, 7777 / CLA MQA SCA MQL LSR + +C0073, +C0073, 3512 / DCA I C0112 +C0074, +C0074, 0410 / AND I AI0 +C0075, +C0075, 0552 / AND I C0152 +D0076, 0240 / AND D0040 +C0077, 0260 / AND C0060 +L0100, +C0100, 0261 / AND C0061 +L0101, +C0101, 6000 / 6000 +C0102, 0102 / AND C0102 +C0103, 4000 / JMS L0000 +C0104, 2000 / ISZ L0000 +C0105, 1000 / TAD L0000 +C0106, 0400 / AND I L0000 +C0107, 0200 / AND L0000 + AND L0100 / @@0110=0100 +C0111, 0040 / AND D0040 +C0112, 0020 / AND D0020 +C0113, 0010 / AND AI0 +C0114, 0004 / AND S0004 +L0115, +C0115, 0002 / AND S0002 +C0116, 0001 / AND L0001 + AND L0000 / @@0117=0000 + JMS L0000 / @@0120=4000 + AND L0001 / @@0121=0001 +C0122, 2004 / ISZ S0004 +C0123, 2043 / ISZ D0043 +C0124, 2076 / ISZ D0076 +C0125, 2200 / ISZ L0000 +C0126, 2232 / ISZ D0032 +C0127, 2270 / ISZ D0070 +C0130, 2400 / ISZ I L0000 +C0131, 2436 / ISZ I D0036 +C0132, 2472 / ISZ I C0072 +C0133, 2600 / ISZ I L0000 +C0134, 2634 / ISZ I D0034 +C0135, 2667 / ISZ I C0067 +C0136, 1376 / TAD D0176 +C0137, 7001 / IAC +D0140, 5404 / JMP I S0004 +C0141, 5402 / JMP I S0002 +C0142, 7070 / CMA CML RAR +C0143, 2376 / ISZ D0176 +C0144, 2000 / ISZ L0000 +C0145, 2410 / ISZ I AI0 +C0146, 4000 / JMS L0000 +C0147, 4776 / JMS I D0176 +C0150, 4410 / JMS I AI0 +C0151, 5403 / JMP I L0003 +C0152, 5401 / JMP I L0001 +C0153, 4377 / JMS L0177 +D0154, 2004 / ISZ S0004 +C0155, 5301 / JMP L0101 +L0156, +C0156, 6007 / 6007 +C0157, 7604 / LAS + AND C0106 / @@0160=0106 + SNA CLA / @@0161=7650 + JMP L0177 / @@0162=5177 + STA / AC = 7777 (-0001) @@0163=7240 + AND C0170 / @@0164=0170 +C0165, +C0165, 3024 / DCA D0024 + JMP I C0167 / long jump to L0202 @@0166=5567 +C0167, +C0167, 0202 / AND S0002 +C0170, 0000 / AND L0000 +C0171, 0000 / AND L0000 +C0172, 0007 / AND C0007 +C0173, 0070 / AND D0070 +D0174, 0000 / AND L0000 +D0175, 0000 / AND L0000 +D0176, 0000 / AND L0000 + +*0177 +L0177, + SKP / @@0177=7410 + +*0200 +L0200, + JMP L0156 / @@0200=5156 + DCA D0024 / @@0201=3024 +L0202, + DCA D0023 / @@0202=3023 + DCA D0035 / @@0203=3035 +L0204, + CLA CLL CMA / AC = 7777 (-0001) @@0204=7340 + AND D0023 / @@0205=0023 + MQL / @@0206=7421 + CMA / @@0207=7040 + AND D0024 / @@0210=0024 + MQA / @@0211=7501 + DCA D0027 / @@0212=3027 + MQA / @@0213=7501 + CMA / @@0214=7040 + AND D0024 / @@0215=0024 + MQL / @@0216=7421 + CMA / @@0217=7040 + AND D0024 / @@0220=0024 + CMA / @@0221=7040 + AND D0023 / @@0222=0023 + MQA / @@0223=7501 + DCA D0025 / @@0224=3025 + DCA L0026 / @@0225=3026 + CMA / @@0226=7040 + AND D0023 / @@0227=0023 + AND D0024 / @@0230=0024 + SNA / @@0231=7450 + JMP L0274 / @@0232=5274 + MQL / @@0233=7421 +L0234, + MQA MQL / @@0234=7521 + AND D0027 / @@0235=0027 + SNA / @@0236=7450 + JMP L0244 / @@0237=5244 + CLL RAL / @@0240=7104 + MQA MQL / @@0241=7521 + MQA / @@0242=7501 + JMP L0234 / @@0243=5234 +L0244, + MQA / @@0244=7501 + AND D0027 / @@0245=0027 + AND C0103 / @@0246=0103 + SNA / @@0247=7450 + JMP L0253 / @@0250=5253 + DCA L0026 / @@0251=3026 + JMP L0260 / @@0252=5260 +L0253, + CLL CML RAR / @@0253=7130 + AND D0023 / @@0254=0023 + AND D0024 / @@0255=0024 + SZA / @@0256=7440 + DCA L0026 / @@0257=3026 +L0260, + MQA / @@0260=7501 + DCA D0030 / @@0261=3030 + MQA / @@0262=7501 + CMA / @@0263=7040 + AND D0025 / @@0264=0025 + MQL / @@0265=7421 + CMA / @@0266=7040 + AND D0025 / @@0267=0025 + CMA / @@0270=7040 + AND D0030 / @@0271=0030 + MQA / @@0272=7501 + DCA D0025 / @@0273=3025 +L0274, + CLA CLL CMA / AC = 7777 (-0001) @@0274=7340 + AND D0023 / @@0275=0023 + TAD D0024 / @@0276=1024 + NOP / @@0277=7000 + DCA D0031 / @@0300=3031 + RAR / @@0301=7010 + DCA D0032 / @@0302=3032 + CMA / @@0303=7040 + AND D0024 / @@0304=0024 + TAD D0023 / @@0305=1023 + NOP / @@0306=7000 + DCA D0033 / @@0307=3033 + RAR / @@0310=7010 + DCA D0034 / @@0311=3034 + NOP / @@0312=7000 + CLA CLL CMA / AC = 7777 (-0001) @@0313=7340 + AND D0031 / @@0314=0031 + CMA / @@0315=7040 + AND D0033 / @@0316=0033 + SZA / @@0317=7440 + JMP L0377 / @@0320=5377 + CMA / @@0321=7040 + AND D0033 / @@0322=0033 + CMA / @@0323=7040 + AND D0031 / @@0324=0031 + SZA / @@0325=7440 + JMP L0377 / @@0326=5377 + CLA CLL CMA / AC = 7777 (-0001) @@0327=7340 + AND D0031 / @@0330=0031 + CMA / @@0331=7040 + AND D0025 / @@0332=0025 + SZA / @@0333=7440 + JMP L0377 / @@0334=5377 + CMA / @@0335=7040 + AND D0025 / @@0336=0025 + CMA / @@0337=7040 + AND D0031 / @@0340=0031 + SZA / @@0341=7440 + JMP L0377 / @@0342=5377 + CLA CLL CMA / AC = 7777 (-0001) @@0343=7340 + AND D0032 / @@0344=0032 + RAL / @@0345=7004 + STA / AC = 7777 (-0001) @@0346=7240 + AND D0034 / @@0347=0034 + SZA CLA / @@0350=7640 + CML / @@0351=7020 + SZL / @@0352=7430 + JMP L0377 / @@0353=5377 + CLA CLL CMA / AC = 7777 (-0001) @@0354=7340 + AND D0032 / @@0355=0032 + RAL / @@0356=7004 + STA / AC = 7777 (-0001) @@0357=7240 + AND L0026 / @@0360=0026 + SZA CLA / @@0361=7640 + CML / @@0362=7020 + SZL / @@0363=7430 + JMP L0377 / @@0364=5377 + JMP I C0074 / long jump to L0410 @@0365=5474 +L0366, + ISZ D0023 / @@0366=2023 + JMP L0204 / @@0367=5204 + ISZ D0024 / @@0370=2024 + SKP / @@0371=7410 + JMP I C0075 / long jump to L0552 @@0372=5475 + STA / AC = 7777 (-0001) @@0373=7240 + AND D0024 / @@0374=0024 + DCA D0023 / @@0375=3023 + JMP L0204 / @@0376=5204 + +*0377 +L0377, + NOP / @@0377=7000 + +*0400 +L0400, + LAS / @@0400=7604 + AND C0104 / @@0401=0104 + SNA CLA / @@0402=7650 + JMS D0417 / @@0403=4217 +L0404, +C0404, 7604 / LAS + AND C0103 / @@0405=0103 + SNA CLA / @@0406=7650 + JMS S0477 / @@0407=4277 +L0410, + LAS / @@0410=7604 + AND C0105 / @@0411=0105 + SZA CLA / @@0412=7640 + JMP I C0415 / long jump to L0274 @@0413=5615 + JMP I C0416 / long jump to L0366 @@0414=5616 +C0415, +C0415, 0274 / AND C0474 +C0416, +C0416, 0366 / AND C0566 +D0417, 0000 / AND L0000 + CLA CLL CMA / AC = 7777 (-0001) @@0420=7340 + AND D0035 / @@0421=0035 + SNA CLA / @@0422=7650 + JMS S0467 / @@0423=4267 + CMA / @@0424=7040 + AND D0023 / @@0425=0023 + DCA D0037 / @@0426=3037 + JMS S0523 / @@0427=4323 + CMA / @@0430=7040 + AND D0024 / @@0431=0024 + DCA D0037 / @@0432=3037 + JMS S0523 / @@0433=4323 + CMA / @@0434=7040 + AND L0026 / @@0435=0026 + DCA D0040 / @@0436=3040 + CMA / @@0437=7040 + AND D0025 / @@0440=0025 + DCA D0037 / @@0441=3037 + JMS S0504 / @@0442=4304 + JMS S0523 / @@0443=4323 + CMA / @@0444=7040 + AND D0032 / @@0445=0032 + DCA D0040 / @@0446=3040 + CMA / @@0447=7040 + AND D0031 / @@0450=0031 + DCA D0037 / @@0451=3037 + JMS S0504 / @@0452=4304 + JMS S0523 / @@0453=4323 + CMA / @@0454=7040 + AND D0034 / @@0455=0034 + DCA D0040 / @@0456=3040 + CMA / @@0457=7040 + AND D0033 / @@0460=0033 + DCA D0037 / @@0461=3037 + JMS S0504 / @@0462=4304 + JMS S0523 / @@0463=4323 + JMS I D0046 / long call to S1600 @@0464=4446 + JMP I L0542 / long jump to L7040 @@0465=5742 + JMP L0404 / @@0466=5204 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0467 +/ +/ Called from: +/ 0423 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S0467, + 0 / return area + JMS I D0046 / long call to S1600 @@0470=4446 +C0471, 5417 / JMP I AI7 + JMS I D0046 / long call to S1600 @@0472=4446 + JMP L0177 / @@0473=5177 +C0474, 7240 / STA + DCA D0035 / @@0475=3035 + JMP I S0467 / return @@0476=5667 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0477 +/ +/ Called from: +/ 0407 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S0477, + 0 / return area + STA / AC = 7777 (-0001) @@0500=7240 + AND C0551 / @@0501=0351 + HLT / @@0502=7402 + JMP I S0477 / return @@0503=5677 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0504 +/ +/ Called from: +/ 0442 0452 0462 1104 1114 1124 3070 3476 5075 +/ Total 0011 (9) calls +//////////////////////////////////////////////////////////////////////////////// +S0504, + 0 / return area + CLA CLL CMA / AC = 7777 (-0001) @@0505=7340 + AND D0040 / @@0506=0040 +D0507, 7640 / SZA CLA + JMP L0520 / @@0510=5320 + CMA / @@0511=7040 + AND C0077 / @@0512=0077 +L0513, + JMS I C0047 / long call to S1652 @@0513=4447 + CMA / @@0514=7040 + AND D0076 / @@0515=0076 + JMS I C0047 / long call to S1652 @@0516=4447 + JMP I S0504 / return @@0517=5704 +L0520, + CMA / @@0520=7040 +C0521, +C0521, 0100 / AND L0100 + JMP L0513 / @@0522=5313 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0523 +/ +/ Called from: +/ 0427 0433 0443 0453 0463 1105 1115 1125 3071 3463 3467 3477 4014 4020 4030 +/ 5076 5106 +/ Total 0021 (17) calls +//////////////////////////////////////////////////////////////////////////////// +S0523, + 0 / return area + CLA CLL CMA / AC = 7777 (-0001) @@0524=7340 + AND C0102 / @@0525=0102 + DCA AI1 / AUTO INDEX REGISTER @@0526=3011 +L0527, + CMA / @@0527=7040 + AND I AI1 / AUTO INDEX REGISTER @@0530=0411 + SNA / @@0531=7450 + JMP L0545 / @@0532=5345 + AND D0037 / @@0533=0037 + SZA CLA / @@0534=7640 + JMP L0542 / @@0535=5342 + CMA / @@0536=7040 + AND C0077 / @@0537=0077 +L0540, + JMS I C0047 / long call to S1652 @@0540=4447 + JMP L0527 / @@0541=5327 +L0542, +C0542, +C0542, 7040 / CMA + AND L0100 / @@0543=0100 + JMP L0540 / @@0544=5340 +L0545, + CMA / @@0545=7040 + AND D0076 / @@0546=0076 + JMS I C0047 / long call to S1652 @@0547=4447 + JMP I S0523 / return @@0550=5723 +C0551, 0204 / AND L0404 +L0552, + LAS / @@0552=7604 + AND L0115 / @@0553=0115 + SNA CLA / @@0554=7650 + JMP L0570 / @@0555=5370 +L0556, + LAS / @@0556=7604 + AND C0114 / @@0557=0114 + SZA CLA / @@0560=7640 + HLT / @@0561=7402 + LAS / @@0562=7604 + AND C0116 / @@0563=0116 + SNA CLA / @@0564=7650 + JMP L0577 / @@0565=5377 +C0566, 5767 / JMP I C0567 + AND L0404 / @@0567=0204 +L0570, + JMS I D0046 / long call to S1600 @@0570=4446 + JMP I C0521 / long jump to L0100 @@0571=5721 + JMP L0556 / @@0572=5356 + +*0577 +L0577, + NOP / @@0577=7000 + +*0600 +L0600, +C0600, 4752 / JMS I C0752 +L0601, + CLA CLL CMA / AC = 7777 (-0001) @@0601=7340 + AND C0052 / @@0602=0052 + DCA AI2 / AUTO INDEX REGISTER @@0603=3012 + JMS I C0051 / long call to S1200 @@0604=4451 +L0605, + CLA CLL CMA / AC = 7777 (-0001) @@0605=7340 + AND D0024 / @@0606=0024 + SZA CLA / @@0607=7640 + CML / @@0610=7020 + CMA / @@0611=7040 + AND D0023 / @@0612=0023 + RAL / @@0613=7004 + NOP / @@0614=7000 + DCA D0031 / @@0615=3031 + SZL / @@0616=7430 + CMA / @@0617=7040 + DCA D0033 / @@0620=3033 + JMS I C0056 / long call to S1000 @@0621=4456 + JMP L0605 / @@0622=5205 + JMS I C0057 / long call to S1031 @@0623=4457 + JMP L0601 / @@0624=5201 + JMS I C0753 / long call to S1410 @@0625=4753 +L0626, + CLA CLL CMA / AC = 7777 (-0001) @@0626=7340 + AND C0102 / @@0627=0102 + DCA AI2 / AUTO INDEX REGISTER @@0630=3012 + JMS I C0051 / long call to S1200 @@0631=4451 +L0632, + CLA CLL CMA / AC = 7777 (-0001) @@0632=7340 + AND D0024 / @@0633=0024 + SZA CLA / @@0634=7640 + CML / @@0635=7020 +C0636, 7040 / CMA + AND D0023 / @@0637=0023 + RAR / @@0640=7010 + NOP / @@0641=7000 + DCA D0031 / @@0642=3031 + SZL / @@0643=7430 + CMA / @@0644=7040 + DCA D0033 / @@0645=3033 + JMS I C0056 / long call to S1000 @@0646=4456 + JMP L0632 / @@0647=5232 + JMS I C0057 / long call to S1031 @@0650=4457 + JMP L0626 / @@0651=5226 + JMS I C0754 / long call to S1420 @@0652=4754 +L0653, + CLA CLL CMA / AC = 7777 (-0001) @@0653=7340 + AND C0053 / @@0654=0053 + DCA AI2 / AUTO INDEX REGISTER @@0655=3012 + JMS I C0051 / long call to S1200 @@0656=4451 +L0657, + CLA CLL CMA / AC = 7777 (-0001) @@0657=7340 + AND D0024 / @@0660=0024 + SZA CLA / @@0661=7640 + CML / @@0662=7020 + CMA / @@0663=7040 + AND D0023 / @@0664=0023 + RTL / @@0665=7006 + NOP / @@0666=7000 + DCA D0031 / @@0667=3031 + SZL / @@0670=7430 + CMA / @@0671=7040 + DCA D0033 / @@0672=3033 + JMS I C0056 / long call to S1000 @@0673=4456 + JMP L0657 / @@0674=5257 + JMS I C0057 / long call to S1031 @@0675=4457 + JMP L0653 / @@0676=5253 + JMS I C0755 / long call to S1430 @@0677=4755 +L0700, + CLA CLL CMA / AC = 7777 (-0001) @@0700=7340 + AND C0054 / @@0701=0054 + DCA AI2 / AUTO INDEX REGISTER @@0702=3012 + JMS I C0051 / long call to S1200 @@0703=4451 +L0704, + CLA CLL CMA / AC = 7777 (-0001) @@0704=7340 + AND D0024 / @@0705=0024 + SZA CLA / @@0706=7640 + CML / @@0707=7020 + CMA / @@0710=7040 + AND D0023 / @@0711=0023 + RTR / @@0712=7012 + NOP / @@0713=7000 + DCA D0031 / @@0714=3031 + SZL / @@0715=7430 + CMA / @@0716=7040 + DCA D0033 / @@0717=3033 + JMS I C0056 / long call to S1000 @@0720=4456 + JMP L0704 / @@0721=5304 + JMS I C0057 / long call to S1031 @@0722=4457 +C0723, 5300 / JMP L0700 + JMS I C0756 / long call to S1440 @@0724=4756 +L0725, + CLA CLL CMA / AC = 7777 (-0001) @@0725=7340 + AND C0055 / @@0726=0055 + DCA AI2 / AUTO INDEX REGISTER @@0727=3012 + JMS I C0776 / long call to S1236 @@0730=4776 +L0731, + CLA CLL CMA / AC = 7777 (-0001) @@0731=7340 + AND D0024 / @@0732=0024 + SZA CLA / @@0733=7640 + CML / @@0734=7020 + CMA / @@0735=7040 + AND D0023 / @@0736=0023 + BSW / @@0737=7002 + NOP / @@0740=7000 + DCA D0031 / @@0741=3031 + SZL / @@0742=7430 + CMA / @@0743=7040 + DCA D0033 / @@0744=3033 + JMS I C0056 / long call to S1000 @@0745=4456 + JMP L0731 / @@0746=5331 + JMS I C0057 / long call to S1031 @@0747=4457 + JMP L0725 / @@0750=5325 + JMP I C0777 / long jump to L1323 @@0751=5777 + TAD I L0000 / @@0752=1400 +C0753, +C0753, 1410 / TAD I AI0 +C0754, +C0754, 1420 / TAD I D0020 +C0755, +C0755, 1430 / TAD I D0030 +C0756, +C0756, 1440 / TAD I D0040 + AND L0001 / @@0757=0001 + AND S0002 / @@0760=0002 + AND S0004 / @@0761=0004 + AND AI0 / AUTO INDEX REGISTER @@0762=0010 + AND D0020 / @@0763=0020 + AND D0040 / @@0764=0040 + AND L0100 / @@0765=0100 + AND L0600 / @@0766=0200 + AND I L0000 / @@0767=0400 + TAD L0000 / @@0770=1000 + ISZ L0000 / @@0771=2000 + JMS L0000 / @@0772=4000 + AND L0000 / @@0773=0000 + AND L0001 / @@0774=0001 + JMS L0000 / @@0775=4000 +C0776, +C0776, 1236 / TAD C0636 +C0777, +C0777, 1323 / TAD C0723 + +*1000 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S1000 +/ +/ Called from: +/ 0621 0646 0673 0720 0745 +/ Total 0005 (5) calls +//////////////////////////////////////////////////////////////////////////////// +S1000, + 0 / return area + CLA CLL CMA / AC = 7777 (-0001) @@1001=7340 + AND D0025 / @@1002=0025 + CMA / @@1003=7040 + AND D0031 / @@1004=0031 + SZA / @@1005=7440 + JMP L1026 / @@1006=5226 + CMA / @@1007=7040 + AND D0031 / @@1010=0031 + CMA / @@1011=7040 + AND D0025 / @@1012=0025 + SZA / @@1013=7440 + JMP L1026 / @@1014=5226 + CLA CLL CMA / AC = 7777 (-0001) @@1015=7340 + AND L0026 / @@1016=0026 + SZA CLA / @@1017=7640 + CML / @@1020=7020 + CMA / @@1021=7040 + AND D0033 / @@1022=0033 + SZA / @@1023=7440 + CML / @@1024=7020 + SZL / @@1025=7430 +L1026, + JMP L1046 / @@1026=5246 +L1027, + ISZ S1000 / @@1027=2200 +L1030, + JMP I S1000 / return @@1030=5600 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S1031 +/ +/ Called from: +/ 0623 0650 0675 0722 0747 +/ Total 0005 (5) calls +//////////////////////////////////////////////////////////////////////////////// +S1031, + 0 / return area + CLA CLL CMA / AC = 7777 (-0001) @@1032=7340 + AND D0024 / @@1033=0024 + SZA CLA / @@1034=7640 + JMP L1044 / @@1035=5244 + CMA / @@1036=7040 + DCA D0024 / @@1037=3024 + ISZ D0023 / @@1040=2023 + JMP I S1031 / return @@1041=5631 + ISZ S1031 / @@1042=2231 + JMP I S1031 / return @@1043=5631 +L1044, + DCA D0024 / @@1044=3024 + JMP I S1031 / return @@1045=5631 +L1046, + LAS / @@1046=7604 + AND C0104 / @@1047=0104 + SNA CLA / @@1050=7650 + JMS S1071 / @@1051=4271 + LAS / @@1052=7604 + AND C0103 / @@1053=0103 + SNA CLA / @@1054=7650 + JMP L1063 / @@1055=5263 +L1056, + LAS / @@1056=7604 + AND C0105 / @@1057=0105 + SNA CLA / @@1060=7650 + JMP L1027 / @@1061=5227 + JMP L1030 / @@1062=5230 +L1063, + CLA CLL CMA / AC = 7777 (-0001) @@1063=7340 + AND I C0051 / @@1064=0451 + TAD C1070 / @@1065=1270 + HLT / @@1066=7402 + JMP L1056 / @@1067=5256 +C1070, 7774 / SPA SNA SZL CLA OSR + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S1071 +/ +/ Called from: +/ 1051 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S1071, + 0 / return area + CLA CLL CMA / AC = 7777 (-0001) @@1072=7340 + AND D0035 / @@1073=0035 + SNA CLA / @@1074=7650 + JMS S1131 / @@1075=4331 + CMA / @@1076=7040 +L1077, + AND D0023 / @@1077=0023 + DCA D0037 / @@1100=3037 + CMA / @@1101=7040 + AND D0024 / @@1102=0024 + DCA D0040 / @@1103=3040 + JMS I C0060 / long call to S0504 @@1104=4460 + JMS I C0061 / long call to S0523 @@1105=4461 + CMA / @@1106=7040 + AND D0025 / @@1107=0025 + DCA D0037 / @@1110=3037 + CMA / @@1111=7040 + AND L0026 / @@1112=0026 + DCA D0040 / @@1113=3040 + JMS I C0060 / long call to S0504 @@1114=4460 + JMS I C0061 / long call to S0523 @@1115=4461 + CMA / @@1116=7040 + AND D0031 / @@1117=0031 + DCA D0037 / @@1120=3037 + CMA / @@1121=7040 + AND D0033 / @@1122=0033 + DCA D0040 / @@1123=3040 + JMS I C0060 / long call to S0504 @@1124=4460 + JMS I C0061 / long call to S0523 @@1125=4461 + JMS I D0046 / long call to S1600 @@1126=4446 + JMP I C1142 / long jump to L0400 @@1127=5742 + JMP I S1071 / return @@1130=5671 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S1131 +/ +/ Called from: +/ 1075 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S1131, + 0 / return area + JMS I D0046 / long call to S1600 @@1132=4446 +D1133, 0000 / AND L0000 + JMS I D0046 / long call to S1600 @@1134=4446 + JMP L1044 / @@1135=5244 + STA / AC = 7777 (-0001) @@1136=7240 + DCA D0035 / @@1137=3035 + JMP I S1131 / return @@1140=5731 + ISZ L0000 / @@1141=2000 +C1142, +C1142, 0400 / AND I L0000 + AND L0100 / @@1143=0100 + AND D0020 / @@1144=0020 + AND S0004 / @@1145=0004 + AND L0001 / @@1146=0001 + JMS L0000 / @@1147=4000 + TAD L0000 / @@1150=1000 + AND S1000 / @@1151=0200 + AND D0040 / @@1152=0040 + AND AI0 / AUTO INDEX REGISTER @@1153=0010 + AND S0002 / @@1154=0002 + AND L0000 / @@1155=0000 + ISZ L0000 / @@1156=2000 + AND S0002 / @@1157=0002 + AND S0002 / @@1160=0002 + AND AI0 / AUTO INDEX REGISTER @@1161=0010 + AND D0040 / @@1162=0040 + AND S1000 / @@1163=0200 + TAD L0000 / @@1164=1000 + JMS L0000 / @@1165=4000 + AND L0001 / @@1166=0001 + AND S0004 / @@1167=0004 + AND D0020 / @@1170=0020 + AND L0100 / @@1171=0100 + AND I L0000 / @@1172=0400 + ISZ L0000 / @@1173=2000 + AND L0000 / @@1174=0000 + AND S0002 / @@1175=0002 + ISZ L0000 / @@1176=2000 + +*1200 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S1200 +/ +/ Called from: +/ 0604 0631 0656 0703 +/ Total 0004 (4) calls +//////////////////////////////////////////////////////////////////////////////// +S1200, + 0 / return area + CLA CLL / AC = 0000 @@1201=7300 + DCA D0025 / @@1202=3025 + DCA L0026 / @@1203=3026 + CMA / @@1204=7040 + AND I AI2 / AUTO INDEX REGISTER @@1205=0412 + DCA D0037 / @@1206=3037 +L1207, + CMA / @@1207=7040 + AND I AI2 / AUTO INDEX REGISTER @@1210=0412 + SNA / @@1211=7450 + JMP L1303 / @@1212=5303 + DCA D0040 / @@1213=3040 + CMA / @@1214=7040 + AND D0023 / @@1215=0023 + AND D0037 / @@1216=0037 + SZA / @@1217=7440 + JMS S1225 / @@1220=4225 + CMA / @@1221=7040 + AND D0040 / @@1222=0040 + DCA D0037 / @@1223=3037 + JMP L1207 / @@1224=5207 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S1225 +/ +/ Called from: +/ 1220 1260 1275 1312 +/ Total 0004 (4) calls +//////////////////////////////////////////////////////////////////////////////// +S1225, + 0 / return area + STA / AC = 7777 (-0001) @@1226=7240 + AND D0040 / @@1227=0040 + MQL / @@1230=7421 + CMA / @@1231=7040 + AND D0025 / @@1232=0025 + MQA / @@1233=7501 + DCA D0025 / @@1234=3025 + JMP I S1225 / return @@1235=5625 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S1236 +/ +/ Called from: +/ 0730 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S1236, + 0 / return area + CLA CLL CMA / AC = 7777 (-0001) @@1237=7340 + AND S1236 / @@1240=0236 + DCA I C0051 / @@1241=3451 + DCA D0025 / @@1242=3025 + DCA L0026 / @@1243=3026 +L1244, + CMA / @@1244=7040 + AND I AI2 / AUTO INDEX REGISTER @@1245=0412 + SNA / @@1246=7450 + JMP L1277 / @@1247=5277 + DCA D0037 / @@1250=3037 + CMA / @@1251=7040 + AND I AI2 / AUTO INDEX REGISTER @@1252=0412 + DCA D0040 / @@1253=3040 + CMA / @@1254=7040 + AND D0023 / @@1255=0023 + AND D0037 / @@1256=0037 + SZA / @@1257=7440 + JMS S1225 / @@1260=4225 + CMA / @@1261=7040 + AND D0037 / @@1262=0037 + MQL / @@1263=7421 + CMA / @@1264=7040 + AND D0040 / @@1265=0040 + DCA D0037 / @@1266=3037 + MQA / @@1267=7501 + DCA D0040 / @@1270=3040 + CMA / @@1271=7040 + AND D0023 / @@1272=0023 + AND D0037 / @@1273=0037 + SZA / @@1274=7440 + JMS S1225 / @@1275=4225 + JMP L1244 / @@1276=5244 +L1277, + CLA CLL CMA / AC = 7777 (-0001) @@1277=7340 + AND D0024 / @@1300=0024 + DCA L0026 / @@1301=3026 + JMP I S1236 / return @@1302=5636 +L1303, + CLA CLL CMA / AC = 7777 (-0001) @@1303=7340 + AND I AI2 / AUTO INDEX REGISTER @@1304=0412 + DCA D0040 / @@1305=3040 + CMA / @@1306=7040 + AND C0116 / @@1307=0116 + AND D0024 / @@1310=0024 + SZA / @@1311=7440 + JMS S1225 / @@1312=4225 + CMA / @@1313=7040 + AND I AI2 / AUTO INDEX REGISTER @@1314=0412 + AND D0023 / @@1315=0023 + SZA / @@1316=7440 + STA / AC = 7777 (-0001) @@1317=7240 + AND C0116 / @@1320=0116 + DCA L0026 / @@1321=3026 + JMP I S1200 / return @@1322=5600 +L1323, + LAS / @@1323=7604 + AND L0115 / @@1324=0115 +C1325, +C1325, 7650 / SNA CLA + JMP L1342 / @@1326=5342 +L1327, + LAS / @@1327=7604 + AND C0114 / @@1330=0114 + SZA CLA / @@1331=7640 + HLT / @@1332=7402 + LAS / @@1333=7604 + AND C0116 / @@1334=0116 + SNA CLA / @@1335=7650 + JMP I C1340 / long jump to L2000 @@1336=5740 + JMP I C1341 / long jump to L0600 @@1337=5741 +C1340, +C1340, 2000 / ISZ L0000 +C1341, +C1341, 0600 / AND I S1200 +L1342, + JMS I D0046 / long call to S1600 @@1342=4446 + JMP I C1325 / long jump to L7650 @@1343=5725 + JMP L1327 / @@1344=5327 + +*1400 +C1400, +C1400, 0000 / AND L0000 + CLA CLL CMA / AC = 7777 (-0001) @@1401=7340 + AND C1450 / @@1402=0250 + DCA I C0050 / @@1403=3450 + DCA D0035 / @@1404=3035 + DCA D0024 / @@1405=3024 + DCA D0023 / @@1406=3023 + JMP I C1400 / long jump to L0000 @@1407=5600 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S1410 +/ +/ Called from: +/ 0625 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S1410, + 0 / return area + CLA CLL CMA / AC = 7777 (-0001) @@1411=7340 + AND C1451 / @@1412=0251 + DCA I C0050 / @@1413=3450 + DCA D0035 / @@1414=3035 + DCA D0024 / @@1415=3024 + DCA D0023 / @@1416=3023 + JMP I S1410 / return @@1417=5610 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S1420 +/ +/ Called from: +/ 0652 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S1420, + 0 / return area + CLA CLL CMA / AC = 7777 (-0001) @@1421=7340 + AND C1452 / @@1422=0252 + DCA I C0050 / @@1423=3450 + DCA D0035 / @@1424=3035 + DCA D0024 / @@1425=3024 + DCA D0023 / @@1426=3023 + JMP I S1420 / return @@1427=5620 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S1430 +/ +/ Called from: +/ 0677 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S1430, + 0 / return area + CLA CLL CMA / AC = 7777 (-0001) @@1431=7340 + AND C1453 / @@1432=0253 + DCA I C0050 / @@1433=3450 + DCA D0035 / @@1434=3035 + DCA D0024 / @@1435=3024 + DCA D0023 / @@1436=3023 + JMP I S1430 / return @@1437=5630 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S1440 +/ +/ Called from: +/ 0724 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S1440, + 0 / return area + CLA CLL CMA / AC = 7777 (-0001) @@1441=7340 + AND C1454 / @@1442=0254 + DCA I C0050 / @@1443=3450 + DCA D0035 / @@1444=3035 + DCA D0024 / @@1445=3024 + DCA D0023 / @@1446=3023 + JMP I S1440 / return @@1447=5640 +C1450, 5440 / JMP I D0040 +C1451, 5461 / JMP I C0061 +C1452, 5502 / JMP I C0102 +C1453, 5523 / JMP I C0123 +C1454, 5544 / JMP I C0144 + +*1600 +D1600, 0000 / AND L0000 + CLA CLL / AC = 0000 @@1601=7300 + TAD I D1600 / @@1602=1600 + DCA AI1 / AUTO INDEX REGISTER @@1603=3011 + ISZ D1600 / @@1604=2200 +L1605, + TAD I AI1 / AUTO INDEX REGISTER @@1605=1411 + DCA D0036 / @@1606=3036 + TAD D0036 / @@1607=1036 + RTR / @@1610=7012 + RTR / @@1611=7012 + RTR / @@1612=7012 + JMS S1617 / @@1613=4217 + TAD D0036 / @@1614=1036 + JMS S1617 / @@1615=4217 + JMP L1605 / @@1616=5205 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S1617 +/ +/ Called from: +/ 1613 1615 +/ Total 0002 (2) calls +//////////////////////////////////////////////////////////////////////////////// +S1617, + 0 / return area + AND C1645 / @@1620=0245 + SNA / @@1621=7450 + JMP I D1600 / long jump to L0000 @@1622=5600 + TAD C1646 / @@1623=1246 + SPA / @@1624=7510 + JMP L1630 / @@1625=5230 + TAD D0076 / @@1626=1076 + JMP L1643 / @@1627=5243 +L1630, + IAC / @@1630=7001 + SZA / @@1631=7440 + JMP L1635 / @@1632=5235 + TAD C1651 / @@1633=1251 + JMP L1643 / @@1634=5243 +L1635, + IAC / @@1635=7001 + SZA / @@1636=7440 + JMP L1642 / @@1637=5242 + TAD C1650 / @@1640=1250 + JMP L1643 / @@1641=5243 +L1642, + TAD C1647 / @@1642=1247 +L1643, + JMS I C0047 / long call to S1652 @@1643=4447 + JMP I S1617 / return @@1644=5617 +C1645, 0077 / AND C0077 +C1646, 7740 / SMA SZA CLA +C1647, 0336 / AND C1736 +C1650, 0212 / AND C1612 +C1651, 0215 / AND C1615 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S1652 +/ +/ Called from: +/ 0513 0516 0540 0547 1643 4735 4744 4746 4756 4766 +/ Total 0012 (10) calls +//////////////////////////////////////////////////////////////////////////////// +S1652, + 0 / return area + TLS / Load the TTO from the content of AC4 @@1653=6046 +L1654, + TSF / Skip if teleprinter flag is a 1. @@1654=6041 + JMP L1654 / @@1655=5254 + CLA / @@1656=7200 + JMP I S1652 / return @@1657=5652 + AND L0001 / @@1660=0001 + AND L0100 / @@1661=0100 + AND S0002 / @@1662=0002 + AND D1600 / @@1663=0200 + AND S0004 / @@1664=0004 + AND I L0000 / @@1665=0400 + AND AI0 / AUTO INDEX REGISTER @@1666=0010 + TAD L0000 / @@1667=1000 + AND D0020 / @@1670=0020 + ISZ L0000 / @@1671=2000 + AND D0040 / @@1672=0040 + JMS L0000 / @@1673=4000 + AND L0000 / @@1674=0000 + +*2000 +L2000, +C2000, 7300 / CLA CLL + TAD C0122 / @@2001=1122 + DCA D0154 / @@2002=3154 + DCA D0020 / @@2003=3020 +C2004, 7300 / CLA CLL + CLA CLL / AC = 0000 @@2005=7300 + DCA I C0071 / @@2006=3471 + TAD C0136 / @@2007=1136 + DCA I C0072 / @@2010=3472 + TAD C2132 / @@2011=1332 + DCA L0000 / @@2012=3000 + TAD C0137 / @@2013=1137 + DCA L0001 / @@2014=3001 + TAD D0140 / @@2015=1140 + DCA S0002 / @@2016=3002 + STA / AC = 7777 (-0001) @@2017=7240 + DCA L0003 / @@2020=3003 + TAD C2127 / @@2021=1327 + DCA S0004 / @@2022=3004 +L2023, + CLA CLL / AC = 0000 @@2023=7300 + JMP I C0072 / long jump to L7777 @@2024=5472 + NOP / @@2025=7000 + NOP / @@2026=7000 + JMS I C0064 / long call to S3017 @@2027=4464 + SZL / @@2030=7430 + SZA / @@2031=7440 + JMS I C0065 / long call to S3037 @@2032=4465 + SKP / @@2033=7410 + JMS I C0066 / long call to S3027 @@2034=4466 + JMS I C0067 / long call to S3046 @@2035=4467 + JMP L2023 / @@2036=5223 + CLA / @@2037=7200 + TAD C0123 / @@2040=1123 + DCA D0154 / @@2041=3154 + JMP I D0154 / long jump to L2004 @@2042=5554 +C2043, 7300 / CLA CLL + CLA CLL CMA / AC = 7777 (-0001) @@2044=7340 + DCA I C0071 / @@2045=3471 + TAD C0136 / @@2046=1136 + DCA I C0072 / @@2047=3472 + TAD C0137 / @@2050=1137 + DCA L0000 / @@2051=3000 + TAD C0141 / @@2052=1141 + DCA L0001 / @@2053=3001 + TAD C2130 / @@2054=1330 + DCA S0002 / @@2055=3002 +L2056, + CLA CLL / AC = 0000 @@2056=7300 + JMP I C0072 / long jump to L7777 @@2057=5472 + NOP / @@2060=7000 + NOP / @@2061=7000 + JMS I C0064 / long call to S3017 @@2062=4464 + SZL / @@2063=7430 + SZA / @@2064=7440 + JMS I C0065 / long call to S3037 @@2065=4465 + SKP / @@2066=7410 + JMS I C0066 / long call to S3027 @@2067=4466 + JMS I C0067 / long call to S3046 @@2070=4467 + JMP L2056 / @@2071=5256 + CLA / @@2072=7200 + TAD C0124 / @@2073=1124 + DCA D0154 / @@2074=3154 + JMP I D0154 / long jump to L2004 @@2075=5554 + CLA CLL / AC = 0000 @@2076=7300 + TAD C0137 / @@2077=1137 + DCA I C0071 / @@2100=3471 + TAD C2133 / @@2101=1333 + DCA I C0072 / @@2102=3472 + TAD C0152 / @@2103=1152 + DCA L0000 / @@2104=3000 + TAD C2131 / @@2105=1331 + DCA L0001 / @@2106=3001 +L2107, + CLA CLL / AC = 0000 @@2107=7300 + JMP I C0071 / long jump to L7776 @@2110=5471 + NOP / @@2111=7000 + NOP / @@2112=7000 + JMS I C0064 / long call to S3017 @@2113=4464 + SZL / @@2114=7430 + SZA / @@2115=7440 + JMS I C0065 / long call to S3037 @@2116=4465 + SKP / @@2117=7410 + JMS I C0066 / long call to S3027 @@2120=4466 + JMS I C0067 / long call to S3046 @@2121=4467 + JMP L2107 / @@2122=5307 + CLA / @@2123=7200 + TAD C0125 / @@2124=1125 + DCA D0154 / @@2125=3154 + JMP I D0154 / long jump to L2004 @@2126=5554 +C2127, 2025 / ISZ D0025 +C2130, 2060 / ISZ C0060 +C2131, 2111 / ISZ C0111 +C2132, 1003 / TAD L0003 +C2133, 1421 / TAD I C0021 + +*2200 + CLA CLL / AC = 0000 @@2200=7300 + CLA CLL CMA / AC = 7777 (-0001) @@2201=7340 + DCA I C0071 / @@2202=3471 + TAD C0136 / @@2203=1136 + DCA I C0072 / @@2204=3472 + TAD C0142 / @@2205=1142 + DCA L0000 / @@2206=3000 + TAD C0141 / @@2207=1141 + DCA L0001 / @@2210=3001 + TAD D2324 / @@2211=1324 + DCA S0002 / @@2212=3002 +L2213, + CLA CLL CMA / AC = 7777 (-0001) @@2213=7340 + JMP I C0072 / long jump to L7777 @@2214=5472 + NOP / @@2215=7000 + NOP / @@2216=7000 + JMS I C0064 / long call to S3017 @@2217=4464 + SZL / @@2220=7430 + SZA / @@2221=7440 + JMS I C0065 / long call to S3037 @@2222=4465 + SKP / @@2223=7410 + JMS I C0066 / long call to S3027 @@2224=4466 + JMS I C0067 / long call to S3046 @@2225=4467 + JMP L2213 / @@2226=5213 + TAD C0126 / @@2227=1126 + DCA D0154 / @@2230=3154 + JMP I D0154 / long jump to L2004 @@2231=5554 + CLA CLL / AC = 0000 @@2232=7300 + CLA CLL / AC = 0000 @@2233=7300 + TAD C0143 / @@2234=1143 + DCA I C0072 / @@2235=3472 + TAD C0137 / @@2236=1137 + DCA L0000 / @@2237=3000 + TAD C0137 / @@2240=1137 + DCA L0001 / @@2241=3001 + TAD C0151 / @@2242=1151 + DCA S0002 / @@2243=3002 + TAD C2325 / @@2244=1325 + DCA L0003 / @@2245=3003 +L2246, + CLA CLL CMA / AC = 7777 (-0001) @@2246=7340 + DCA I C0071 / @@2247=3471 + CMA / @@2250=7040 + JMP I C0072 / long jump to L7777 @@2251=5472 + NOP / @@2252=7000 + NOP / @@2253=7000 + JMS I C0064 / long call to S3017 @@2254=4464 + SZL / @@2255=7430 + SZA / @@2256=7440 + JMS I C0065 / long call to S3037 @@2257=4465 + SKP / @@2260=7410 + JMS I C0066 / long call to S3027 @@2261=4466 + JMS I C0067 / long call to S3046 @@2262=4467 + JMP L2246 / @@2263=5246 + CLA / @@2264=7200 + TAD C0127 / @@2265=1127 + DCA D0154 / @@2266=3154 + JMP I D0154 / long jump to L2004 @@2267=5554 + CLA CLL / AC = 0000 @@2270=7300 + CLA CLL / AC = 0000 @@2271=7300 + TAD C0144 / @@2272=1144 + DCA I C0072 / @@2273=3472 + TAD C0137 / @@2274=1137 + DCA L0001 / @@2275=3001 + TAD C0151 / @@2276=1151 + DCA S0002 / @@2277=3002 + TAD C2326 / @@2300=1326 + DCA L0003 / @@2301=3003 +L2302, + CLA CLL CMA / AC = 7777 (-0001) @@2302=7340 + DCA L0000 / @@2303=3000 + STA / AC = 7777 (-0001) @@2304=7240 + JMP I C0072 / long jump to L7777 @@2305=5472 + NOP / @@2306=7000 + NOP / @@2307=7000 + JMS I C0064 / long call to S3017 @@2310=4464 + SZL / @@2311=7430 + SZA / @@2312=7440 + JMS I C0065 / long call to S3037 @@2313=4465 + SKP / @@2314=7410 + JMS I C0066 / long call to S3027 @@2315=4466 + JMS I C0067 / long call to S3046 @@2316=4467 + JMP L2302 / @@2317=5302 + CLA / @@2320=7200 + TAD C0130 / @@2321=1130 + DCA D0154 / @@2322=3154 + JMP I D0154 / long jump to L2004 @@2323=5554 +D2324, 2215 / ISZ C2215 +C2325, 2252 / ISZ C2252 +C2326, 2306 / ISZ C2306 + +*2400 +D2400, 7300 / CLA CLL + CLA CLL / AC = 0000 @@2401=7300 + TAD C0145 / @@2402=1145 + DCA I C0072 / @@2403=3472 + TAD C0137 / @@2404=1137 + DCA L0001 / @@2405=3001 + TAD C0151 / @@2406=1151 + DCA S0002 / @@2407=3002 + TAD C2526 / @@2410=1326 + DCA L0003 / @@2411=3003 +L2412, + CLA CLL CMA / AC = 7777 (-0001) @@2412=7340 + DCA AI0 / AUTO INDEX REGISTER @@2413=3010 + CMA / @@2414=7040 + DCA L0000 / @@2415=3000 + CMA / @@2416=7040 + JMP I C0072 / long jump to L7777 @@2417=5472 + NOP / @@2420=7000 + NOP / @@2421=7000 + JMS I C0064 / long call to S3017 @@2422=4464 + SZL / @@2423=7430 + SZA / @@2424=7440 +C2425, 4465 / JMS I C0065 + SKP / @@2426=7410 + JMS I C0066 / long call to S3027 @@2427=4466 + JMS I C0067 / long call to S3046 @@2430=4467 + JMP L2412 / @@2431=5212 + CLA / @@2432=7200 + TAD C0131 / @@2433=1131 + DCA D0154 / @@2434=3154 + JMP I D0154 / long jump to L2004 @@2435=5554 + CLA CLL / AC = 0000 @@2436=7300 + CLA CLL / AC = 0000 @@2437=7300 + TAD C0137 / @@2440=1137 + DCA L0000 / @@2441=3000 + TAD C0137 / @@2442=1137 + DCA L0001 / @@2443=3001 + TAD D0140 / @@2444=1140 + DCA S0002 / @@2445=3002 + TAD C2527 / @@2446=1327 + DCA S0004 / @@2447=3004 +L2450, + CLA CLL / AC = 0000 @@2450=7300 + TAD C0146 / @@2451=1146 + DCA I C0072 / @@2452=3472 + STA / AC = 7777 (-0001) @@2453=7240 + JMP I C0072 / long jump to L7777 @@2454=5472 + NOP / @@2455=7000 + NOP / @@2456=7000 + SZL / @@2457=7430 + SZA / @@2460=7440 + JMS I C0065 / long call to S3037 @@2461=4465 + SKP / @@2462=7410 + JMS I C0066 / long call to S3027 @@2463=4466 + JMS I C0067 / long call to S3046 @@2464=4467 + JMP L2450 / @@2465=5250 + CLA / @@2466=7200 + TAD C0132 / @@2467=1132 + DCA D0154 / @@2470=3154 + JMP I D0154 / long jump to L2004 @@2471=5554 + CLA CLL / AC = 0000 @@2472=7300 + CLA CLL CMA / AC = 7777 (-0001) @@2473=7340 + DCA I C0071 / @@2474=3471 + TAD C0137 / @@2475=1137 + DCA L0000 / @@2476=3000 + TAD C0141 / @@2477=1141 + DCA L0001 / @@2500=3001 + TAD C2530 / @@2501=1330 + DCA S0002 / @@2502=3002 +L2503, + CLA CLL / AC = 0000 @@2503=7300 + TAD C0147 / @@2504=1147 + DCA I C0072 / @@2505=3472 + STA / AC = 7777 (-0001) @@2506=7240 + JMP I C0072 / long jump to L7777 @@2507=5472 + NOP / @@2510=7000 + NOP / @@2511=7000 + JMS I C0064 / long call to S3017 @@2512=4464 + SZL / @@2513=7430 + SZA / @@2514=7440 + JMS I C0065 / long call to S3037 @@2515=4465 + SKP / @@2516=7410 + JMS I C0066 / long call to S3027 @@2517=4466 + JMS I C0067 / long call to S3046 @@2520=4467 + JMP L2503 / @@2521=5303 + CLA / @@2522=7200 + TAD C0133 / @@2523=1133 + DCA D0154 / @@2524=3154 + JMP I D0154 / long jump to L2004 @@2525=5554 +C2526, 2420 / ISZ I D0020 +C2527, 2455 / ISZ I C0055 +C2530, 2510 / ISZ I C0110 + +*2600 +D2600, 7300 / CLA CLL + CLA CLL / AC = 0000 @@2601=7300 + TAD C0150 / @@2602=1150 + DCA I C0072 / @@2603=3472 + TAD C0137 / @@2604=1137 + DCA L0001 / @@2605=3001 + TAD C0151 / @@2606=1151 + DCA S0002 / @@2607=3002 + TAD C2715 / @@2610=1315 + DCA L0003 / @@2611=3003 +L2612, + CLA CLL CMA / AC = 7777 (-0001) @@2612=7340 + DCA AI0 / AUTO INDEX REGISTER @@2613=3010 + CMA / @@2614=7040 + JMP I C0072 / long jump to L7777 @@2615=5472 + NOP / @@2616=7000 + NOP / @@2617=7000 + JMS I C0064 / long call to S3017 @@2620=4464 + SZL / @@2621=7430 + SZA / @@2622=7440 + JMS I C0065 / long call to S3037 @@2623=4465 + SKP / @@2624=7410 + JMS I C0066 / long call to S3027 @@2625=4466 + JMS I C0067 / long call to S3046 @@2626=4467 + JMP L2612 / @@2627=5212 + CLA / @@2630=7200 + TAD C0134 / @@2631=1134 + DCA D0154 / @@2632=3154 + JMP I D0154 / long jump to L2004 @@2633=5554 + CLA CLL / AC = 0000 @@2634=7300 + CLA CLL / AC = 0000 @@2635=7300 + TAD C0137 / @@2636=1137 + DCA L0000 / @@2637=3000 + TAD C0141 / @@2640=1141 + DCA L0001 / @@2641=3001 + TAD C2716 / @@2642=1316 + DCA S0002 / @@2643=3002 +L2644, + CLA CLL / AC = 0000 @@2644=7300 + TAD C0153 / @@2645=1153 + DCA I C0072 / @@2646=3472 + STA / AC = 7777 (-0001) @@2647=7240 + JMP I C0072 / long jump to L7777 @@2650=5472 + NOP / @@2651=7000 + NOP / @@2652=7000 + JMS I C0064 / long call to S3017 @@2653=4464 + SZL / @@2654=7430 + SZA / @@2655=7440 + JMS I C0065 / long call to S3037 @@2656=4465 + SKP / @@2657=7410 + JMS I C0066 / long call to S3027 @@2660=4466 + JMS I C0067 / long call to S3046 @@2661=4467 + JMP L2644 / @@2662=5244 + CLA / @@2663=7200 + TAD C0135 / @@2664=1135 + DCA D0154 / @@2665=3154 + JMP I D0154 / long jump to L2004 @@2666=5554 + CLA CLL / AC = 0000 @@2667=7300 + CLA CLL / AC = 0000 @@2670=7300 + TAD C0137 / @@2671=1137 + DCA I C0072 / @@2672=3472 + TAD C0152 / @@2673=1152 + DCA L0000 / @@2674=3000 + TAD C2717 / @@2675=1317 + DCA L0001 / @@2676=3001 +L2677, + CLA CLL CMA / AC = 7777 (-0001) @@2677=7340 + JMP I C0072 / long jump to L7777 @@2700=5472 + NOP / @@2701=7000 + NOP / @@2702=7000 + JMS I C0064 / long call to S3017 @@2703=4464 + SZL / @@2704=7430 + SZA / @@2705=7440 + JMS I C0065 / long call to S3037 @@2706=4465 + SKP / @@2707=7410 + JMS I C0066 / long call to S3027 @@2710=4466 + JMS I C0067 / long call to S3046 @@2711=4467 + JMP L2677 / @@2712=5277 + JMP I C2714 / long jump to L3200 @@2713=5714 +C2714, +C2714, 3200 / DCA D2600 +C2715, 2616 / ISZ I C2616 +C2716, 2651 / ISZ I C2651 +C2717, 2701 / ISZ I C2701 + +*3000 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S3000 +/ +/ Called from: +/ 4251 4326 4451 4526 +/ Total 0004 (4) calls +//////////////////////////////////////////////////////////////////////////////// +S3000, + 0 / return area + CLA CLL CMA / AC = 7777 (-0001) @@3001=7340 + AND D0040 / @@3002=0040 + CMA / @@3003=7040 + AND D0037 / @@3004=0037 + SZA CLA / @@3005=7640 + JMP I S3000 / return @@3006=5600 + CMA / @@3007=7040 + AND D0037 / @@3010=0037 + CMA / @@3011=7040 + AND D0040 / @@3012=0040 + SZA CLA / @@3013=7640 + JMP I S3000 / return @@3014=5600 + ISZ S3000 / @@3015=2200 + JMP I S3000 / return @@3016=5600 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S3017 +/ +/ Called from: +/ 2027 2062 2113 2217 2254 2310 2422 2512 2620 2653 2703 3436 3645 3661 4241 +/ 4316 4441 4516 +/ Total 0022 (18) calls +//////////////////////////////////////////////////////////////////////////////// +S3017, + 0 / return area + DCA D0025 / @@3020=3025 + SZL / @@3021=7430 + CMA / @@3022=7040 + DCA L0026 / @@3023=3026 +L3024, + CMA / @@3024=7040 + AND D0025 / @@3025=0025 + JMP I S3017 / return @@3026=5617 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S3027 +/ +/ Called from: +/ 2034 2067 2120 2224 2261 2315 2427 2463 2517 2625 2660 2710 +/ Total 0014 (12) calls +//////////////////////////////////////////////////////////////////////////////// +S3027, + 0 / return area + LAS / @@3030=7604 + AND C0103 / @@3031=0103 + SZA CLA / @@3032=7640 + JMP I S3027 / return @@3033=5627 + TAD D0154 / @@3034=1154 + HLT / @@3035=7402 + JMP I S3027 / return @@3036=5627 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S3037 +/ +/ Called from: +/ 2032 2065 2116 2222 2257 2313 2461 2515 2623 2656 2706 +/ Total 0013 (11) calls +//////////////////////////////////////////////////////////////////////////////// +S3037, + 0 / return area + LAS / @@3040=7604 + AND C0104 / @@3041=0104 + SNA / @@3042=7450 + JMS S3056 / @@3043=4256 + ISZ S3037 / @@3044=2237 + JMP I S3037 / return @@3045=5637 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S3046 +/ +/ Called from: +/ 2035 2070 2121 2225 2262 2316 2430 2464 2520 2626 2661 2711 3442 3651 3665 +/ 3675 4253 4330 4453 4530 +/ Total 0024 (20) calls +//////////////////////////////////////////////////////////////////////////////// +S3046, + 0 / return area + LAS / @@3047=7604 + AND C0105 / @@3050=0105 + SNA CLA / @@3051=7650 + JMP L3054 / @@3052=5254 + JMP I S3046 / return @@3053=5646 +L3054, + ISZ S3046 / @@3054=2246 + JMP I S3046 / return @@3055=5646 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S3056 +/ +/ Called from: +/ 3043 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S3056, + 0 / return area + JMS I D0046 / long call to S1600 @@3057=4446 +C3060, 5744 / JMP I C3144 + TAD D0037 / @@3061=1037 + JMS I C3073 / long call to S3227 @@3062=4673 + CLA CLL CMA / AC = 7777 (-0001) @@3063=7340 + AND D0025 / @@3064=0025 + DCA D0037 / @@3065=3037 + AND L0026 / @@3066=0026 + DCA D0040 / @@3067=3040 + JMS I C0060 / long call to S0504 @@3070=4460 + JMS I C0061 / long call to S0523 @@3071=4461 + JMP I S3056 / return @@3072=5656 +C3073, +C3073, 3227 / DCA S3027 + +*3200 +L3200, + CLA CLL / AC = 0000 @@3200=7300 + ISZ D0020 / @@3201=2020 + JMP L3224 / @@3202=5224 + LAS / @@3203=7604 + AND L0115 / @@3204=0115 + SNA CLA / @@3205=7650 + JMP L3221 / @@3206=5221 +L3207, + LAS / @@3207=7604 + AND C0114 / @@3210=0114 + SZA CLA / @@3211=7640 + HLT / @@3212=7402 + LAS / @@3213=7604 + AND C0116 / @@3214=0116 + SZA CLA / @@3215=7640 + JMP L3224 / @@3216=5224 + JMP I C3220 / long jump to L3400 @@3217=5620 +C3220, +C3220, 3400 / DCA I L0000 +L3221, + JMS I D0046 / long call to S1600 @@3221=4446 +C3222, 5732 / JMP I C3332 + JMP L3207 / @@3223=5207 +L3224, + TAD C0122 / @@3224=1122 + DCA D0154 / @@3225=3154 + JMP I D0154 / long jump to L2004 @@3226=5554 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S3227 +/ +/ Called from: +/ 3062 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S3227, + 0 / return area + DCA D0037 / @@3230=3037 + TAD D0037 / @@3231=1037 + AND C0172 / @@3232=0172 + DCA D3264 / @@3233=3264 + TAD D0037 / @@3234=1037 + RTL / @@3235=7006 + RAL / @@3236=7004 + AND C3266 / @@3237=0266 + TAD D3264 / @@3240=1264 + TAD C3267 / @@3241=1267 + DCA D3264 / @@3242=3264 + TAD D0037 / @@3243=1037 + RTR / @@3244=7012 + RTR / @@3245=7012 + RTR / @@3246=7012 + AND C0172 / @@3247=0172 + DCA D3263 / @@3250=3263 + TAD D0037 / @@3251=1037 + RTR / @@3252=7012 + RAR / @@3253=7010 + AND C3266 / @@3254=0266 + TAD D3263 / @@3255=1263 + TAD C3267 / @@3256=1267 + DCA D3263 / @@3257=3263 + JMS I D0046 / long call to S1600 @@3260=4446 + DCA D3262 / @@3261=3262 +D3262, 5627 / JMP I S3227 +D3263, 0000 / AND L0000 +D3264, 0000 / AND L0000 + JMS L0000 / @@3265=4000 +C3266, 0700 / AND I C3300 +C3267, 6060 / 6060 + +*3400 +L3400, +C3400, 7300 / CLA CLL + JMS I C0073 / long call to S3512 @@3401=4473 +L3402, + CLA CLL / AC = 0000 @@3402=7300 + TAD L0041 / @@3403=1041 + TAD D0043 / @@3404=1043 + TAD D0043 / @@3405=1043 + TAD L0041 / @@3406=1041 + TAD L0041 / @@3407=1041 + TAD L0041 / @@3410=1041 + TAD D0043 / @@3411=1043 + TAD D0043 / @@3412=1043 + TAD L0041 / @@3413=1041 + TAD L0041 / @@3414=1041 + TAD D0043 / @@3415=1043 + TAD L0041 / @@3416=1041 + TAD D0043 / @@3417=1043 + TAD D0043 / @@3420=1043 + TAD L0041 / @@3421=1041 + TAD L0041 / @@3422=1041 + TAD D0043 / @@3423=1043 + TAD D0043 / @@3424=1043 + TAD D0043 / @@3425=1043 + TAD L0041 / @@3426=1041 + TAD D0043 / @@3427=1043 + TAD L0041 / @@3430=1041 + TAD L0041 / @@3431=1041 + TAD L0041 / @@3432=1041 + TAD D0043 / @@3433=1043 + TAD D0043 / @@3434=1043 + NOP / @@3435=7000 + JMS I C0064 / long call to S3017 @@3436=4464 + SZL / @@3437=7430 + SZA / @@3440=7440 + JMS I C3446 / long call to S3447 @@3441=4646 + JMS I C0067 / long call to S3046 @@3442=4467 + JMP L3402 / @@3443=5202 + JMP I C3445 / long jump to L3600 @@3444=5645 +C3445, +C3445, 3600 / DCA I L3400 +C3446, +C3446, 3447 / DCA I C0047 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S3447 +/ +/ Called from: +/ 3441 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S3447, + 0 / return area + LAS / @@3450=7604 + AND C0104 / @@3451=0104 + SZA CLA / @@3452=7640 + JMP L3502 / @@3453=5302 + JMS I D0046 / long call to S1600 @@3454=4446 + JMP I C0165 / long jump to L3024 @@3455=5565 + JMS I D0046 / long call to S1600 @@3456=4446 + JMP L3516 / @@3457=5316 + CLA CLL CMA / AC = 7777 (-0001) @@3460=7340 + AND L0041 / @@3461=0041 + DCA D0037 / @@3462=3037 + JMS I C0061 / long call to S0523 @@3463=4461 + CLA CLL CMA / AC = 7777 (-0001) @@3464=7340 + AND D0043 / @@3465=0043 + DCA D0037 / @@3466=3037 + JMS I C0061 / long call to S0523 @@3467=4461 + CLA CLL CMA / AC = 7777 (-0001) @@3470=7340 + AND D0025 / @@3471=0025 + DCA D0037 / @@3472=3037 + CMA / @@3473=7040 + AND L0026 / @@3474=0026 + DCA D0040 / @@3475=3040 + JMS I C0060 / long call to S0504 @@3476=4460 + JMS I C0061 / long call to S0523 @@3477=4461 + JMS I D0046 / long call to S1600 @@3500=4446 + JMP I C3542 / long jump to L0003 @@3501=5742 +L3502, + LAS / @@3502=7604 + AND C0103 / @@3503=0103 + SZA CLA / @@3504=7640 + JMP I S3447 / return @@3505=5647 + CLA CLL / AC = 0000 @@3506=7300 + TAD S3447 / @@3507=1247 + HLT / @@3510=7402 + JMP I S3447 / return @@3511=5647 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S3512 +/ +/ Called from: +/ 3401 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S3512, + 0 / return area + CLA CLL / AC = 0000 @@3513=7300 + TAD L0041 / @@3514=1041 + RAL / @@3515=7004 +L3516, + SZL / @@3516=7430 + TAD C3542 / @@3517=1342 + DCA L0041 / @@3520=3041 + TAD L0041 / @@3521=1041 + CIA / @@3522=7041 + DCA D0043 / @@3523=3043 + CLL / @@3524=7100 + TAD D3541 / @@3525=1341 + RAL / @@3526=7004 + SZL / @@3527=7430 + TAD C3542 / @@3530=1342 + DCA D3541 / @@3531=3341 + SZL / @@3532=7430 + CMA / @@3533=7040 + DCA D0044 / @@3534=3044 + TAD D0044 / @@3535=1044 + CMA / @@3536=7040 + DCA D0045 / @@3537=3045 + JMP I S3512 / return @@3540=5712 +D3541, 0001 / AND L0001 +C3542, +C3542, 0003 / AND L0003 + +*3600 +L3600, + CLA CLL CMA / AC = 7777 (-0001) @@3600=7340 + AND L0041 / @@3601=0041 + DCA D3746 / @@3602=3346 + CMA / @@3603=7040 + AND L0041 / @@3604=0041 + CMA / @@3605=7040 + DCA D3747 / @@3606=3347 + CMA / @@3607=7040 + AND C0103 / @@3610=0103 + DCA D3752 / @@3611=3352 +L3612, + CMA / @@3612=7040 + AND D3752 / @@3613=0352 + CMA / @@3614=7040 + DCA D3753 / @@3615=3353 + CMA / @@3616=7040 + AND D3746 / @@3617=0346 + AND D3752 / @@3620=0352 + SZA / @@3621=7440 + JMP L3632 / @@3622=5232 + CMA / @@3623=7040 + AND D3746 / @@3624=0346 + JMS S3701 / @@3625=4301 + CMA / @@3626=7040 + AND D3747 / @@3627=0347 + DCA D3751 / @@3630=3351 + JMP L3640 / @@3631=5240 +L3632, + STA / AC = 7777 (-0001) @@3632=7240 + AND D3747 / @@3633=0347 + JMS S3715 / @@3634=4315 + CMA / @@3635=7040 + AND D3746 / @@3636=0346 + DCA D3751 / @@3637=3351 +L3640, + CLA CLL CMA / AC = 7777 (-0001) @@3640=7340 + AND D3750 / @@3641=0350 + TAD D3751 / @@3642=1351 + SZL / @@3643=7430 + IAC / @@3644=7001 + JMS I C0064 / long call to S3017 @@3645=4464 + JMS I C0063 / long call to S3730 @@3646=4463 + SKP / @@3647=7410 + JMS I C3756 / long call to S4000 @@3650=4756 + JMS I C0067 / long call to S3046 @@3651=4467 + JMP L3640 / @@3652=5240 + JMP L3654 / @@3653=5254 +L3654, + CLA CLL CMA / AC = 7777 (-0001) @@3654=7340 + AND D3751 / @@3655=0351 + TAD D3750 / @@3656=1350 + SZL / @@3657=7430 + IAC / @@3660=7001 + JMS I C0064 / long call to S3017 @@3661=4464 + JMS I C0063 / long call to S3730 @@3662=4463 + SKP / @@3663=7410 + JMS I C3756 / long call to S4000 @@3664=4756 + JMS I C0067 / long call to S3046 @@3665=4467 + JMP L3654 / @@3666=5254 + CLA CLL CMA / AC = 7777 (-0001) @@3667=7340 + AND D3752 / @@3670=0352 + RAR / @@3671=7010 + DCA D3752 / @@3672=3352 + SNL / @@3673=7420 + JMP L3612 / @@3674=5212 + JMS I C0067 / long call to S3046 @@3675=4467 + JMP L3600 / @@3676=5200 + JMP I C3700 / long jump to L4200 @@3677=5700 +C3700, +C3700, 4200 / JMS L3600 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S3701 +/ +/ Called from: +/ 3625 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S3701, + 0 / return area + AND D3753 / @@3702=0353 + CMA / @@3703=7040 + DCA D3754 / @@3704=3354 + CMA / @@3705=7040 + AND D3747 / @@3706=0347 + AND D3752 / @@3707=0352 + CMA / @@3710=7040 + AND D3754 / @@3711=0354 + CMA / @@3712=7040 + DCA D3750 / @@3713=3350 + JMP I S3701 / return @@3714=5701 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S3715 +/ +/ Called from: +/ 3634 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S3715, + 0 / return area + AND D3752 / @@3716=0352 + CMA / @@3717=7040 + DCA D3754 / @@3720=3354 + CMA / @@3721=7040 + AND D3746 / @@3722=0346 + AND D3753 / @@3723=0353 + CMA / @@3724=7040 + AND D3754 / @@3725=0354 + DCA D3750 / @@3726=3350 + JMP I S3715 / return @@3727=5715 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S3730 +/ +/ Called from: +/ 3646 3662 +/ Total 0002 (2) calls +//////////////////////////////////////////////////////////////////////////////// +S3730, + 0 / return area + CMA / @@3731=7040 + DCA D3755 / @@3732=3355 + CMA / @@3733=7040 + AND D0025 / @@3734=0025 + AND D3753 / @@3735=0353 +D3736, 7440 / SZA + JMP L3744 / @@3737=5344 + CMA / @@3740=7040 + AND D3752 / @@3741=0352 + AND D3755 / @@3742=0355 + SZA / @@3743=7440 +L3744, + ISZ S3730 / @@3744=2330 + JMP I S3730 / return @@3745=5730 +D3746, 0000 / AND L0000 +D3747, 0000 / AND L0000 +D3750, 0000 / AND L0000 +D3751, 0000 / AND L0000 +D3752, 0000 / AND L0000 +D3753, 0000 / AND L0000 +D3754, 0000 / AND L0000 +D3755, 0000 / AND L0000 +C3756, +C3756, 4000 / JMS L0000 + +*4000 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S4000 +/ +/ Called from: +/ 3650 3664 +/ Total 0002 (2) calls +//////////////////////////////////////////////////////////////////////////////// +S4000, + 0 / return area + LAS / @@4001=7604 + AND C0104 / @@4002=0104 + SZA CLA / @@4003=7640 + JMP L4033 / @@4004=5233 +C4005, +C4005, 4446 / JMS I D0046 + JMP I C4005 / long jump to L4446 @@4006=5605 + JMS I D0046 / long call to S1600 @@4007=4446 +C4010, 5364 / JMP C4164 + CLA CLL CMA / AC = 7777 (-0001) @@4011=7340 + AND I C4177 / @@4012=0777 + DCA D0037 / @@4013=3037 + JMS I C0061 / long call to S0523 @@4014=4461 + CMA / @@4015=7040 + AND I C4176 / @@4016=0776 + DCA D0037 / @@4017=3037 + JMS I C0061 / long call to S0523 @@4020=4461 + CMA / @@4021=7040 +C4022, 0775 / AND I C4175 + DCA D0037 / @@4023=3037 +D4024, 4461 / JMS I C0061 + CMA / @@4025=7040 + AND D0025 / @@4026=0025 + DCA D0037 / @@4027=3037 + JMS I C0061 / long call to S0523 @@4030=4461 + JMS I D0046 / long call to S1600 @@4031=4446 +C4032, 5742 / JMP I C4142 +L4033, + LAS / @@4033=7604 + AND C0103 / @@4034=0103 + SZA CLA / @@4035=7640 + JMP I S4000 / return @@4036=5600 + CLA CLL / AC = 0000 @@4037=7300 +C4040, 1200 / TAD S4000 + HLT / @@4041=7402 + JMP I S4000 / return @@4042=5600 + +*4175 +C4175, 3752 / DCA I C4152 +C4176, 3751 / DCA I C4151 +C4177, 3750 / DCA I C4150 + +*4200 +L4200, + CLA CLL / AC = 0000 @@4200=7300 + TAD D0044 / @@4201=1044 + SZA / @@4202=7440 + CLA CML / @@4203=7220 + TAD L0041 / @@4204=1041 + RAR / @@4205=7010 + RAR / @@4206=7010 + RAR / @@4207=7010 + RAR / @@4210=7010 + RAR / @@4211=7010 + RAR / @@4212=7010 + RAR / @@4213=7010 + RAR / @@4214=7010 + RAR / @@4215=7010 + RAR / @@4216=7010 + RAR / @@4217=7010 + RAR / @@4220=7010 + RAR / @@4221=7010 + RAR / @@4222=7010 + RAR / @@4223=7010 + RAR / @@4224=7010 + RAR / @@4225=7010 + RAR / @@4226=7010 + RAR / @@4227=7010 + RAR / @@4230=7010 + RAR / @@4231=7010 + RAR / @@4232=7010 + RAR / @@4233=7010 + RAR / @@4234=7010 + RAR / @@4235=7010 + RAR / @@4236=7010 + NOP / @@4237=7000 + NOP / @@4240=7000 + JMS I C0064 / long call to S3017 @@4241=4464 + TAD D0043 / @@4242=1043 + SZA CLA / @@4243=7640 + JMP L4250 / @@4244=5250 + TAD D0044 / @@4245=1044 + DCA D0037 / @@4246=3037 + TAD L0026 / @@4247=1026 +L4250, + DCA D0040 / @@4250=3040 + JMS I C0062 / long call to S3000 @@4251=4462 + JMS I C4335 / long call to S5000 @@4252=4735 + JMS I C0067 / long call to S3046 @@4253=4467 + JMP L4200 / @@4254=5200 +L4255, + CLA CLL / AC = 0000 @@4255=7300 + TAD D0044 / @@4256=1044 + SZA / @@4257=7440 + CLA CML / @@4260=7220 + TAD L0041 / @@4261=1041 + RAL / @@4262=7004 + RAL / @@4263=7004 + RAL / @@4264=7004 + RAL / @@4265=7004 + RAL / @@4266=7004 + RAL / @@4267=7004 + RAL / @@4270=7004 + RAL / @@4271=7004 + RAL / @@4272=7004 + RAL / @@4273=7004 + RAL / @@4274=7004 + RAL / @@4275=7004 + RAL / @@4276=7004 + RAL / @@4277=7004 + RAL / @@4300=7004 + RAL / @@4301=7004 + RAL / @@4302=7004 + RAL / @@4303=7004 + RAL / @@4304=7004 + RAL / @@4305=7004 + RAL / @@4306=7004 + RAL / @@4307=7004 + RAL / @@4310=7004 + RAL / @@4311=7004 + RAL / @@4312=7004 + RAL / @@4313=7004 + NOP / @@4314=7000 + NOP / @@4315=7000 + JMS I C0064 / long call to S3017 @@4316=4464 + TAD D0043 / @@4317=1043 + SZA / @@4320=7440 + JMP L4325 / @@4321=5325 + TAD D0044 / @@4322=1044 + DCA D0037 / @@4323=3037 + TAD L0026 / @@4324=1026 +L4325, + DCA D0040 / @@4325=3040 + JMS I C0062 / long call to S3000 @@4326=4462 + JMS I C4334 / long call to S5013 @@4327=4734 + JMS I C0067 / long call to S3046 @@4330=4467 + JMP L4255 / @@4331=5255 + JMP I C4333 / long jump to L4400 @@4332=5733 +C4333, +C4333, 4400 / JMS I L0000 +C4334, +C4334, 5013 / JMP AI3 +C4335, +C4335, 5000 / JMP L0000 + +*4400 +L4400, +C4400, 7300 / CLA CLL + TAD D0044 / @@4401=1044 + SZA / @@4402=7440 + CLA CML / @@4403=7220 + TAD L0041 / @@4404=1041 + RTL / @@4405=7006 + RTL / @@4406=7006 + RTL / @@4407=7006 + RTL / @@4410=7006 + RTL / @@4411=7006 + RTL / @@4412=7006 + RTL / @@4413=7006 + RTL / @@4414=7006 + RTL / @@4415=7006 + RTL / @@4416=7006 + RTL / @@4417=7006 + RTL / @@4420=7006 + RTL / @@4421=7006 + RTL / @@4422=7006 + RTL / @@4423=7006 + RTL / @@4424=7006 + RTL / @@4425=7006 + RTL / @@4426=7006 + RTL / @@4427=7006 + RTL / @@4430=7006 + RTL / @@4431=7006 + RTL / @@4432=7006 + RTL / @@4433=7006 + RTL / @@4434=7006 + RTL / @@4435=7006 + RTL / @@4436=7006 + NOP / @@4437=7000 + NOP / @@4440=7000 + JMS I C0064 / long call to S3017 @@4441=4464 + TAD D0043 / @@4442=1043 + SZA / @@4443=7440 + JMP L4450 / @@4444=5250 + TAD D0044 / @@4445=1044 +L4446, + DCA D0037 / @@4446=3037 + TAD L0026 / @@4447=1026 +L4450, + DCA D0040 / @@4450=3040 + JMS I C0062 / long call to S3000 @@4451=4462 + JMS I C4571 / long call to S5041 @@4452=4771 + JMS I C0067 / long call to S3046 @@4453=4467 + JMP L4400 / @@4454=5200 +L4455, + CLA CLL / AC = 0000 @@4455=7300 + TAD D0044 / @@4456=1044 + SZA / @@4457=7440 +L4460, + CLA CML / @@4460=7220 + TAD L0041 / @@4461=1041 + RTR / @@4462=7012 + RTR / @@4463=7012 + RTR / @@4464=7012 + RTR / @@4465=7012 + RTR / @@4466=7012 + RTR / @@4467=7012 + RTR / @@4470=7012 + RTR / @@4471=7012 + RTR / @@4472=7012 + RTR / @@4473=7012 + RTR / @@4474=7012 + RTR / @@4475=7012 + RTR / @@4476=7012 + RTR / @@4477=7012 + RTR / @@4500=7012 + RTR / @@4501=7012 + RTR / @@4502=7012 + RTR / @@4503=7012 + RTR / @@4504=7012 + RTR / @@4505=7012 + RTR / @@4506=7012 + RTR / @@4507=7012 + RTR / @@4510=7012 + RTR / @@4511=7012 + RTR / @@4512=7012 + RTR / @@4513=7012 + NOP / @@4514=7000 + NOP / @@4515=7000 + JMS I C0064 / long call to S3017 @@4516=4464 + TAD D0043 / @@4517=1043 + SZA / @@4520=7440 + JMP L4525 / @@4521=5325 + TAD D0044 / @@4522=1044 + DCA D0037 / @@4523=3037 + TAD L0026 / @@4524=1026 +L4525, + DCA D0040 / @@4525=3040 + JMS I C0062 / long call to S3000 @@4526=4462 + JMS I C4570 / long call to S5026 @@4527=4770 + JMS I C0067 / long call to S3046 @@4530=4467 + JMP L4455 / @@4531=5255 + ISZ D0020 / @@4532=2020 + JMP L4566 / @@4533=5366 + LAS / @@4534=7604 +C4535, +C4535, 0115 / AND L0115 + SNA CLA / @@4536=7650 + JMP L4563 / @@4537=5363 +L4540, + LAS / @@4540=7604 + AND C0114 / @@4541=0114 + SZA CLA / @@4542=7640 + HLT / @@4543=7402 + LAS / @@4544=7604 + AND C0116 / @@4545=0116 + SZA CLA / @@4546=7640 + JMP L4566 / @@4547=5366 +L4550, + LAS / @@4550=7604 + AND C0173 / @@4551=0173 + CLL RAR / @@4552=7110 + RTR / @@4553=7012 + DCA D0175 / @@4554=3175 + LAS / @@4555=7604 + AND C0107 / @@4556=0107 + SZA CLA / @@4557=7640 + JMP I C4572 / long jump to L4600 @@4560=5772 + JMP I C4562 / long jump to L0200 @@4561=5762 +C4562, +C4562, 0200 / AND L4400 +L4563, + JMS I D0046 / long call to S1600 @@4563=4446 + JMP I C4535 / long jump to L0115 @@4564=5735 + JMP L4540 / @@4565=5340 +L4566, + JMP I C4567 / long jump to L3400 @@4566=5767 +C4567, +C4567, 3400 / DCA I L0000 +C4570, +C4570, 5026 / JMP L0026 +C4571, +C4571, 5041 / JMP L0041 +C4572, +C4572, 4600 / JMS I L4400 + +*4600 +L4600, +C4600, 4231 / JMS S4631 + JMS S4664 / @@4601=4264 + CLA CLL CMA RTL / AC = 7775 (-0003) @@4602=7346 + JMS S4741 / @@4603=4341 + JMS S4731 / @@4604=4331 + JMS S4752 / @@4605=4352 + JMS I D0046 / long call to S1600 @@4606=4446 + JMP I C4755 / long jump to L1077 @@4607=5755 + JMS S4760 / @@4610=4360 + JMS S4731 / @@4611=4331 + CLA CLL CMA RAL / AC = 7776 (-0002) @@4612=7344 + JMS S4741 / @@4613=4341 + TAD D0175 / @@4614=1175 + CIA / @@4615=7041 + TAD D0174 / @@4616=1174 + SNA CLA / @@4617=7650 + JMP L4623 / @@4620=5223 + CLA HLT / @@4621=7602 + JMP I C4770 / long jump to L4550 @@4622=5770 +L4623, + TAD D4714 / @@4623=1314 + TAD L0115 / @@4624=1115 + DCA D4626 / @@4625=3226 +D4626, 0000 / AND L0000 + JMP I C4630 / long jump to L0200 @@4627=5630 +C4630, +C4630, 0200 / AND L4600 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S4631 +/ +/ Never called +//////////////////////////////////////////////////////////////////////////////// +S4631, + 0 / return area + CLA CLL / AC = 0000 @@4632=7300 + DCA D0174 / @@4633=3174 + TAD C4771 / @@4634=1371 + DCA D0176 / @@4635=3176 + CDF0 / Change to data field 0. The data fie @@4636=6201 + DCA I C0171 / @@4637=3571 + TAD C4772 / @@4640=1372 +L4641, + TAD C0113 / @@4641=1113 + DCA D4643 / @@4642=3243 +D4643, 0000 / AND L0000 + CLA CLL CMA / AC = 7777 (-0001) @@4644=7340 + DCA I C0171 / @@4645=3571 + TAD I C0171 / @@4646=1571 + SNA CLA / @@4647=7650 + JMP L4655 / @@4650=5255 + ISZ D0174 / @@4651=2174 + TAD D4643 / @@4652=1243 + ISZ D0176 / @@4653=2176 + JMP L4641 / @@4654=5241 +L4655, + CLA CLL / AC = 0000 @@4655=7300 + CDF0 / Change to data field 0. The data fie @@4656=6201 + TAD I C0171 / @@4657=1571 + SNA CLA / @@4660=7650 + JMP I S4631 / return @@4661=5631 + CLA HLT / @@4662=7602 + JMP L4674 / @@4663=5274 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S4664 +/ +/ Called from: +/ 4601 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S4664, + 0 / return area + CLA CLL / AC = 0000 @@4665=7300 + DCA D0176 / @@4666=3176 + RIF / Same as RDF except reads the instruc @@4667=6224 + TAD C0113 / @@4670=1113 + AND C4775 / @@4671=0375 + DCA L4712 / @@4672=3312 + CLA CLL IAC / AC = 0001 @@4673=7301 +L4674, + TAD D0174 / @@4674=1174 + RAL / @@4675=7004 + RTL / @@4676=7006 + CIA / @@4677=7041 + TAD L4712 / @@4700=1312 + SNL CLA / @@4701=7620 + TAD L4712 / @@4702=1312 + TAD C4772 / @@4703=1372 + DCA D4714 / @@4704=3314 + RIF / Same as RDF except reads the instruc @@4705=6224 + TAD C4772 / @@4706=1372 + DCA L4712 / @@4707=3312 + TAD L4712 / @@4710=1312 + DCA D4717 / @@4711=3317 +L4712, +D4712, 0000 / AND L0000 + TAD I D0176 / @@4713=1576 +D4714, 0000 / AND L0000 + DCA I D0176 / @@4715=3576 + TAD I D0176 / @@4716=1576 +D4717, 0000 / AND L0000 + CIA / @@4720=7041 + TAD I D0176 / @@4721=1576 + SNA CLA / @@4722=7650 + JMP L4726 / @@4723=5326 + CLA HLT / @@4724=7602 + JMP L4712 / @@4725=5312 +L4726, + ISZ D0176 / @@4726=2176 + JMP L4712 / @@4727=5312 + JMP I S4664 / return @@4730=5664 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S4731 +/ +/ Called from: +/ 4604 4611 +/ Total 0002 (2) calls +//////////////////////////////////////////////////////////////////////////////// +S4731, + 0 / return area + TAD C4771 / @@4732=1371 + DCA D0176 / @@4733=3176 +L4734, + TAD C4776 / @@4734=1376 + JMS I C0047 / long call to S1652 @@4735=4447 + ISZ D0176 / @@4736=2176 + JMP L4734 / @@4737=5334 + JMP I S4731 / return @@4740=5731 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S4741 +/ +/ Called from: +/ 4603 4613 +/ Total 0002 (2) calls +//////////////////////////////////////////////////////////////////////////////// +S4741, + 0 / return area + DCA D0176 / @@4742=3176 +L4743, + TAD C4774 / @@4743=1374 + JMS I C0047 / long call to S1652 @@4744=4447 + TAD C4773 / @@4745=1373 + JMS I C0047 / long call to S1652 @@4746=4447 + ISZ D0176 / @@4747=2176 + JMP L4743 / @@4750=5343 + JMP I S4741 / return @@4751=5741 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S4752 +/ +/ Called from: +/ 4605 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S4752, + 0 / return area + TAD D0174 / @@4753=1174 + AND C0172 / @@4754=0172 +C4755, +C4755, 1077 / TAD C0077 + JMS I C0047 / long call to S1652 @@4756=4447 + JMP I S4752 / return @@4757=5752 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S4760 +/ +/ Called from: +/ 4610 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S4760, + 0 / return area + TAD D4714 / @@4761=1314 + AND C0173 / @@4762=0173 + RAR / @@4763=7010 + RTR / @@4764=7012 + TAD C0077 / @@4765=1077 + JMS I C0047 / long call to S1652 @@4766=4447 + JMP I S4760 / return @@4767=5760 +C4770, +C4770, 4550 / JMS I C0150 +C4771, 7771 / CLA MQA SCA MQL NMI +C4772, 6201 / CDF0 +C4773, 0212 / AND C4612 +C4774, 0215 / AND C4615 +C4775, 0170 / AND C0170 +C4776, 0252 / AND C4652 + +*5000 +C5000, 0000 / AND L0000 + LAS / @@5001=7604 + AND C0104 / @@5002=0104 + SZA CLA / @@5003=7640 + JMP L5010 / @@5004=5210 + JMS I D0046 / long call to S1600 @@5005=4446 + JMP I C5025 / long jump to L5253 @@5006=5625 + JMS S5064 / @@5007=4264 +L5010, + CLA CLL / AC = 0000 @@5010=7300 + TAD C5000 / @@5011=1200 + JMP L5053 / @@5012=5253 +C5013, 0000 / AND L0000 + LAS / @@5014=7604 + AND C0104 / @@5015=0104 + SZA CLA / @@5016=7640 + JMP L5023 / @@5017=5223 + JMS I D0046 / long call to S1600 @@5020=4446 + JMP I C5044 / long jump to L7640 @@5021=5644 + JMS S5064 / @@5022=4264 +L5023, + CLA CLL / AC = 0000 @@5023=7300 + TAD C5013 / @@5024=1213 +C5025, +C5025, 5253 / JMP L5053 +C5026, 0000 / AND L0000 + LAS / @@5027=7604 + AND C0104 / @@5030=0104 + SZA CLA / @@5031=7640 + JMP L5036 / @@5032=5236 + JMS I D0046 / long call to S1600 @@5033=4446 + JMP I D5063 / long jump to L0000 @@5034=5663 + JMS S5064 / @@5035=4264 +L5036, + CLA CLL / AC = 0000 @@5036=7300 + TAD C5026 / @@5037=1226 + JMP L5053 / @@5040=5253 +C5041, 0000 / AND L0000 + LAS / @@5042=7604 + AND C0104 / @@5043=0104 +C5044, +C5044, 7640 / SZA CLA + JMP L5051 / @@5045=5251 + JMS I D0046 / long call to S1600 @@5046=4446 + JMP I C5102 / long jump to L4460 @@5047=5702 + JMS S5064 / @@5050=4264 +L5051, + CLA CLL / AC = 0000 @@5051=7300 + TAD C5041 / @@5052=1241 +L5053, + DCA D5063 / @@5053=3263 + LAS / @@5054=7604 + AND C0103 / @@5055=0103 + SZA CLA / @@5056=7640 + JMP L5062 / @@5057=5262 + TAD D5063 / @@5060=1263 + HLT / @@5061=7402 +L5062, + JMP I D5063 / long jump to L0000 @@5062=5663 +D5063, 0000 / AND L0000 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S5064 +/ +/ Called from: +/ 5007 5022 5035 5050 +/ Total 0004 (4) calls +//////////////////////////////////////////////////////////////////////////////// +S5064, + 0 / return area + JMS I D0046 / long call to S1600 @@5065=4446 +C5066, 5347 / JMP C5147 + CLA CLL CMA / AC = 7777 (-0001) @@5067=7340 + AND D0044 / @@5070=0044 + DCA D0040 / @@5071=3040 + CMA / @@5072=7040 + AND L0041 / @@5073=0041 + DCA D0037 / @@5074=3037 + JMS I C0060 / long call to S0504 @@5075=4460 + JMS I C0061 / long call to S0523 @@5076=4461 + CMA / @@5077=7040 + AND L0026 / @@5100=0026 + DCA D0040 / @@5101=3040 +C5102, +C5102, 4460 / JMS I C0060 + CMA / @@5103=7040 + AND D0025 / @@5104=0025 + DCA D0037 / @@5105=3037 + JMS I C0061 / long call to S0523 @@5106=4461 + JMS I D0046 / long call to S1600 @@5107=4446 +C5110, 5742 / JMP I C5142 + JMP I S5064 / return @@5111=5664 + +*5200 +C5200, 3736 / DCA I C5336 +D5201, 4040 / JMS D0040 +C5202, 4001 / JMS L0001 + ISZ D5207 / @@5203=2207 +C5204, 6140 / 6140 +D5205, 4040 / JMS D0040 + JMS D0040 / @@5206=4040 +D5207, 4040 / JMS D0040 + JMS D0040 / @@5210=4040 +D5211, 0122 / AND C0122 + AND I C5362 / @@5212=0762 + JMS D0040 / @@5213=4040 + JMS D0040 / @@5214=4040 + JMS D0040 / @@5215=4040 +C5216, 4040 / JMS D0040 + JMS D0023 / @@5217=4023 + TAD L0115 / @@5220=1115 + ISZ I C0114 / @@5221=2514 + AND C0124 / @@5222=0124 + AND I C0104 / @@5223=0504 + JMS D0040 / @@5224=4040 + JMS D0040 / @@5225=4040 + JMS D0040 / @@5226=4040 +C5227, 4001 / JMS L0001 + ISZ D5207 / @@5230=2207 +C5231, 6153 / 6153 + AND C0122 / @@5232=0122 + AND I C5362 / @@5233=0762 + JMS D0040 / @@5234=4040 + JMS D0040 / @@5235=4040 +C5236, 4001 / JMS L0001 + ISZ D5207 / @@5237=2207 +C5240, 6253 / 6253 + AND C0122 / @@5241=0122 + AND I C5361 / @@5242=0761 + DCA I C5336 / @@5243=3736 + AND L0000 / @@5244=0000 + DCA I C5336 / @@5245=3736 + JMS D0040 / @@5246=4040 + JMS D0040 / @@5247=4040 +C5250, 4017 / JMS AI7 + ISZ D5211 / @@5251=2211 + AND I C5311 / @@5252=0711 +L5253, + TAD I D5201 / @@5253=1601 + TAD I D0040 / @@5254=1440 + JMS D0040 / @@5255=4040 + JMS D0040 / @@5256=4040 + JMS D0023 / @@5257=4023 + TAD L0115 / @@5260=1115 + ISZ I C0114 / @@5261=2514 + AND C0124 / @@5262=0124 + AND I C0104 / @@5263=0504 + JMS D0040 / @@5264=4040 + JMS D0040 / @@5265=4040 + JMS D0040 / @@5266=4040 +C5267, 4001 / JMS L0001 + AND C5324 / @@5270=0324 + ISZ I L0101 / @@5271=2501 + TAD I D0037 / @@5272=1437 + DCA I C5200 / @@5273=3600 + DCA I C5336 / @@5274=3736 + ISZ D5201 / @@5275=2201 + TAD I C5204 / @@5276=1604 + AND D0140 / @@5277=0140 + JMS D0040 / @@5300=4040 + JMS D0040 / @@5301=4040 + JMS D0040 / @@5302=4040 +C5303, 4022 / JMS C0022 + AND C0116 / @@5304=0116 + AND I L0003 / @@5305=0403 + JMS D0040 / @@5306=4040 + JMS D0040 / @@5307=4040 + JMS D0040 / @@5310=4040 +C5311, 4040 / JMS D0040 + ISZ D5205 / @@5312=2205 + ISZ D5325 / @@5313=2325 + TAD I D0024 / @@5314=1424 + DCA I C5336 / @@5315=3736 + AND L0000 / @@5316=0000 + DCA I C5336 / @@5317=3736 + ISZ D5201 / @@5320=2201 + TAD I C5204 / @@5321=1604 +C5322, 0140 / AND D0140 + JMS D0040 / @@5323=4040 +C5324, 4040 / JMS D0040 +D5325, 4040 / JMS D0040 + JMS S0002 / @@5326=4002 +C5327, 2017 / ISZ AI7 + ISZ D5340 / @@5330=2340 + JMS D0040 / @@5331=4040 + JMS D0040 / @@5332=4040 + JMS D0040 / @@5333=4040 + JMS D0040 / @@5334=4040 + AND C5216 / @@5335=0216 +C5336, 0507 / AND I C0107 + JMS D0040 / @@5337=4040 +D5340, 4040 / JMS D0040 + JMS D0040 / @@5341=4040 + JMS D0040 / @@5342=4040 +C5343, 4022 / JMS C0022 + AND I C0123 / @@5344=0523 + ISZ I C0114 / @@5345=2514 + ISZ I D0037 / @@5346=2437 + DCA I C5200 / @@5347=3600 + DCA I C5336 / @@5350=3736 + TAD I C5322 / @@5351=1722 + TAD C0107 / @@5352=1107 + TAD C0116 / @@5353=1116 + AND C0114 / @@5354=0114 + JMS D0040 / @@5355=4040 + JMS D0040 / @@5356=4040 + JMS D0040 / @@5357=4040 + AND C0103 / @@5360=0103 +C5361, 2425 / ISZ I D0025 +C5362, 0114 / AND C0114 + DCA I C5336 / @@5363=3736 + AND L0000 / @@5364=0000 + DCA I C5336 / @@5365=3736 + JMS D0040 / @@5366=4040 + JMS D0040 / @@5367=4040 + AND C0122 / @@5370=0122 + AND I C5361 / @@5371=0761 + JMS D0040 / @@5372=4040 + JMS D0040 / @@5373=4040 + JMS D0040 / @@5374=4040 + JMS D0040 / @@5375=4040 +C5376, 4001 / JMS L0001 + ISZ D5207 / @@5377=2207 +C5400, 6240 / 6240 +C5401, 4040 / JMS D0040 + JMS D0040 / @@5402=4040 + JMS D0040 / @@5403=4040 + AND I C0130 / @@5404=0530 +C5405, 2005 / ISZ C0005 + AND C5524 / @@5406=0324 + AND I C0104 / @@5407=0504 + JMS D0040 / @@5410=4040 + JMS D0040 / @@5411=4040 + JMS D0040 / @@5412=4040 + AND C0103 / @@5413=0103 + ISZ I D0025 / @@5414=2425 + AND C0114 / @@5415=0114 + DCA I C5536 / @@5416=3736 + AND L0000 / @@5417=0000 + DCA I C5536 / @@5420=3736 + JMS D0040 / @@5421=4040 + JMS D0040 / @@5422=4040 + JMS D0023 / @@5423=4023 + TAD L0115 / @@5424=1115 + ISZ I C0114 / @@5425=2514 + AND C0124 / @@5426=0124 + AND I C0104 / @@5427=0504 +C5430, 4001 / JMS L0001 + AND I S0004 / @@5431=0404 + JMS D0024 / @@5432=4024 + AND I C0123 / @@5433=0523 + ISZ I D0040 / @@5434=2440 + AND I C5401 / @@5435=0601 + TAD C0114 / @@5436=1114 + AND I C0104 / @@5437=0504 + AND L0000 / @@5440=0000 + DCA I C5536 / @@5441=3736 + JMS D0040 / @@5442=4040 + JMS D0040 / @@5443=4040 + JMS D0023 / @@5444=4023 + TAD L0115 / @@5445=1115 + ISZ I C0114 / @@5446=2514 + AND C0124 / @@5447=0124 + AND I C0104 / @@5450=0504 +C5451, 4022 / JMS C0022 + AND C0114 / @@5452=0114 + JMS D0024 / @@5453=4024 + AND I C0123 / @@5454=0523 + ISZ I D0040 / @@5455=2440 + AND I C5401 / @@5456=0601 + TAD C0114 / @@5457=1114 + AND I C0104 / @@5460=0504 + AND L0000 / @@5461=0000 + DCA I C5536 / @@5462=3736 + JMS D0040 / @@5463=4040 + JMS D0040 / @@5464=4040 + JMS D0023 / @@5465=4023 + TAD L0115 / @@5466=1115 + ISZ I C0114 / @@5467=2514 + AND C0124 / @@5470=0124 + AND I C0104 / @@5471=0504 +C5472, 4022 / JMS C0022 + AND C0122 / @@5473=0122 + JMS D0024 / @@5474=4024 + AND I C0123 / @@5475=0523 + ISZ I D0040 / @@5476=2440 + AND I C5401 / @@5477=0601 + TAD C0114 / @@5500=1114 + AND I C0104 / @@5501=0504 + AND L0000 / @@5502=0000 + DCA I C5536 / @@5503=3736 + JMS D0040 / @@5504=4040 + JMS D0040 / @@5505=4040 + JMS D0023 / @@5506=4023 + TAD L0115 / @@5507=1115 + ISZ I C0114 / @@5510=2514 + AND C0124 / @@5511=0124 + AND I C0104 / @@5512=0504 +C5513, 4022 / JMS C0022 +C5514, 2414 / ISZ I AI4 + JMS D0024 / @@5515=4024 + AND I C0123 / @@5516=0523 + ISZ I D0040 / @@5517=2440 + AND I C5401 / @@5520=0601 + TAD C0114 / @@5521=1114 + AND I C0104 / @@5522=0504 + AND L0000 / @@5523=0000 +C5524, 3736 / DCA I C5536 + JMS D0040 / @@5525=4040 + JMS D0040 / @@5526=4040 +D5527, 4023 / JMS D0023 + TAD L0115 / @@5530=1115 + ISZ I C0114 / @@5531=2514 + AND C0124 / @@5532=0124 + AND I C0104 / @@5533=0504 +C5534, 4022 / JMS C0022 + ISZ I C0022 / @@5535=2422 +C5536, 4024 / JMS D0024 + AND I C0123 / @@5537=0523 + ISZ I D0040 / @@5540=2440 + AND I C5401 / @@5541=0601 + TAD C0114 / @@5542=1114 + AND I C0104 / @@5543=0504 + AND L0000 / @@5544=0000 + DCA I C5536 / @@5545=3736 + JMS D0040 / @@5546=4040 + JMS D0040 / @@5547=4040 + JMS D0023 / @@5550=4023 + TAD L0115 / @@5551=1115 + ISZ I C0114 / @@5552=2514 + AND C0124 / @@5553=0124 + AND I C0104 / @@5554=0504 + JMS S0002 / @@5555=4002 + ISZ D5527 / @@5556=2327 + JMS D0024 / @@5557=4024 + AND I C0123 / @@5560=0523 + ISZ I D0040 / @@5561=2440 + AND I C5401 / @@5562=0601 + TAD C0114 / @@5563=1114 + AND I C0104 / @@5564=0504 + AND L0000 / @@5565=0000 + DCA I C5536 / @@5566=3736 + JMS D0040 / @@5567=4040 + JMS D0040 / @@5570=4040 +C5571, 4022 / JMS C0022 + AND C0116 / @@5572=0116 +C5573, 0417 / AND I AI7 + TAD I D0140 / @@5574=1540 + AND C0104 / @@5575=0104 + AND I D0040 / @@5576=0440 +C5577, 2405 / ISZ I C0005 +C5600, 2324 / ISZ D5724 +D5601, 4061 / JMS C0061 +C5602, 4006 / JMS C0006 +C5603, 0111 / AND C0111 +C5604, 1405 / TAD I C0005 + AND I L0000 / @@5605=0400 + DCA I C5736 / @@5606=3736 + JMS D0040 / @@5607=4040 + JMS D0040 / @@5610=4040 +C5611, 4022 / JMS C0022 + AND C0116 / @@5612=0116 +C5613, 0417 / AND I AI7 + TAD I D0140 / @@5614=1540 + AND C0104 / @@5615=0104 + AND I D0040 / @@5616=0440 +D5617, 2405 / ISZ I C0005 + ISZ D5724 / @@5620=2324 +C5621, 4062 / JMS C0062 +C5622, 4006 / JMS C0006 + AND C0111 / @@5623=0111 +D5624, 1405 / TAD I C0005 + AND I L0000 / @@5625=0400 + DCA I C5736 / @@5626=3736 + JMS D0040 / @@5627=4040 + JMS D0040 / @@5630=4040 +C5631, 4022 / JMS C0022 + AND C0116 / @@5632=0116 +C5633, 0417 / AND I AI7 + TAD I D0140 / @@5634=1540 + ISZ D5601 / @@5635=2201 + ISZ D5640 / @@5636=2240 +D5637, 2405 / ISZ I C0005 +D5640, 2324 / ISZ D5724 +C5641, 4006 / JMS C0006 + AND C0111 / @@5642=0111 +C5643, 1405 / TAD I C0005 + AND I L0000 / @@5644=0400 + DCA I C5736 / @@5645=3736 + JMS D0040 / @@5646=4040 + JMS D0040 / @@5647=4040 +C5650, 4022 / JMS C0022 + AND C0116 / @@5651=0116 +C5652, 0417 / AND I AI7 + TAD I D0140 / @@5653=1540 + ISZ D5601 / @@5654=2201 + TAD I D0040 / @@5655=1440 +C5656, 2405 / ISZ I C0005 + ISZ D5724 / @@5657=2324 +C5660, 4006 / JMS C0006 + AND C0111 / @@5661=0111 +C5662, 1405 / TAD I C0005 + AND I L0000 / @@5663=0400 + DCA I C5736 / @@5664=3736 + JMS D0040 / @@5665=4040 + JMS D0040 / @@5666=4040 +C5667, 4022 / JMS C0022 + AND C0116 / @@5670=0116 +C5671, 0417 / AND I AI7 + TAD I D0140 / @@5672=1540 + ISZ D5624 / @@5673=2224 + TAD I D0040 / @@5674=1440 +C5675, 2405 / ISZ I C0005 + ISZ D5724 / @@5676=2324 +C5677, 4006 / JMS C0006 + AND C0111 / @@5700=0111 +C5701, 1405 / TAD I C0005 + AND I L0000 / @@5702=0400 + DCA I C5736 / @@5703=3736 + JMS D0040 / @@5704=4040 + JMS D0040 / @@5705=4040 +C5706, 4022 / JMS C0022 + AND C0116 / @@5707=0116 +C5710, 0417 / AND I AI7 +D5711, 1540 / TAD I D0140 + ISZ D5624 / @@5712=2224 + ISZ D5640 / @@5713=2240 +C5714, 2405 / ISZ I C0005 +C5715, 2324 / ISZ D5724 +C5716, 4006 / JMS C0006 + AND C0111 / @@5717=0111 +C5720, 1405 / TAD I C0005 + AND I L0000 / @@5721=0400 +C5722, 3736 / DCA I C5736 + ISZ D5711 / @@5723=2311 +D5724, 1501 / TAD I L0101 + AND I L0000 / @@5725=0400 + DCA I C5736 / @@5726=3736 + ISZ D5711 / @@5727=2311 + TAD I C0122 / @@5730=1522 + TAD I D5724 / @@5731=1724 + AND L0000 / @@5732=0000 + DCA I C5736 / @@5733=3736 + AND I C5603 / @@5734=0603 + ISZ I L0000 / @@5735=2400 +C5736, 3736 / DCA I C5736 + ISZ D5601 / @@5737=2201 +D5740, 1604 / TAD I C5604 + TAD I C5715 / @@5741=1715 + AND L0000 / @@5742=0000 + DCA I C5736 / @@5743=3736 + AND L0000 / @@5744=0000 + DCA I C5736 / @@5745=3736 + JMS S0004 / @@5746=4004 + AND C0124 / @@5747=0124 + AND D0140 / @@5750=0140 + AND I C0122 / @@5751=0522 + ISZ D5617 / @@5752=2217 + ISZ D5637 / @@5753=2237 + DCA I C5600 / @@5754=3600 +C5755, 7777 / CLA MQA SCA MQL LSR + +C5756, 4005 / JMS C0005 + DCA D0024 / @@5757=3024 + AND I C0116 / @@5760=0516 +C5761, 0405 / AND I C0005 + AND I D0040 / @@5762=0440 + AND D5601 / @@5763=0201 + TAD I C5613 / @@5764=1613 + ISZ D5740 / @@5765=2340 + TAD I C5706 / @@5766=1706 +C5767, 4015 / JMS AI5 + AND I L0115 / @@5770=0515 + TAD I C5722 / @@5771=1722 + DCA D0140 / @@5772=3140 +C5773, 2417 / ISZ I AI7 + JMS S0002 / @@5774=4002 + AND C0116 / @@5775=0116 + TAD D5740 / @@5776=1340 + AND L0000 / @@5777=0000 + +*7600 + CLA CLL / AC = 0000 @@7600=7300 + TAD C0155 / @@7601=1155 + DCA L7777 / @@7602=3377 + JMP L7777 / @@7603=5377 + +$ diff --git a/PDP8/tests/diags/maindec-8e-d0cc-pb.pdf b/PDP8/tests/diags/maindec-8e-d0cc-pb.pdf new file mode 100644 index 00000000..75faeb2f Binary files /dev/null and b/PDP8/tests/diags/maindec-8e-d0cc-pb.pdf differ diff --git a/PDP8/tests/diags/maindec-8e-d0db-pb.bin b/PDP8/tests/diags/maindec-8e-d0db-pb.bin new file mode 100644 index 00000000..ace7453f Binary files /dev/null and b/PDP8/tests/diags/maindec-8e-d0db-pb.bin differ diff --git a/PDP8/tests/diags/maindec-8e-d0db-pb.pal b/PDP8/tests/diags/maindec-8e-d0db-pb.pal new file mode 100644 index 00000000..dfed8458 --- /dev/null +++ b/PDP8/tests/diags/maindec-8e-d0db-pb.pal @@ -0,0 +1,638 @@ +TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d0db-pb.bin BY D8TAPE" +//////////////////////////////////////////////////////////////////////////////// +/ +/ Automatic Disassembly of maindec-8e-d0db-pb.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 +/ +/ 0663 locations used, 0561 code and 0102 data +//////////////////////////////////////////////////////////////////////////////// + +*0200 + +*0000 +L0000, +D0000, 0000 / AND L0000 +L0001, +D0001, 5001 / JMP L0001 +D0002, 0002 / AND D0002 +D0003, 0003 / AND D0003 + AND D0003 / @@0004=0003 +D0005, 0000 / AND L0000 +D0006, 0000 / AND L0000 +D0007, 0000 / AND L0000 + +*0010 +AI0, 0000 / AUTO-INDEX REGISTER AND L0000 + +*0020 +D0020, 0000 / AND L0000 + +*0200 +L0200, +C0200, 6007 / 6007 +D0201, 1204 / TAD D0204 +D0202, 3201 / DCA D0201 +D0203, 4205 / JMS S0205 +D0204, 5274 / JMP C0274 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0205 +/ +/ Called from: +/ 0255 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S0205, + 0 / return area + TAD C0374 / @@0206=1374 + DCA S0266 / @@0207=3266 + TAD C0374 / @@0210=1374 + DCA D0202 / @@0211=3202 + DCA D0203 / @@0212=3203 + JMS S0225 / @@0213=4225 + JMP I S0205 / return @@0214=5605 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0215 +/ +/ Called from: +/ 0244 0353 +/ Total 0002 (2) calls +//////////////////////////////////////////////////////////////////////////////// +S0215, + 0 / return area + TAD C0374 / @@0216=1374 + DCA S0266 / @@0217=3266 + DCA D0202 / @@0220=3202 + TAD C0374 / @@0221=1374 + DCA D0203 / @@0222=3203 + JMS S0225 / @@0223=4225 + JMP I S0215 / return @@0224=5615 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0225 +/ +/ Called from: +/ 0213 0223 0253 0264 +/ Total 0004 (4) calls +//////////////////////////////////////////////////////////////////////////////// +S0225, + 0 / return area +L0226, + TAD I D0202 / @@0226=1602 + DCA I D0203 / @@0227=3603 + TAD I D0202 / @@0230=1602 + CIA / @@0231=7041 + TAD I D0203 / @@0232=1603 + SZA CLA / @@0233=7640 + HLT / @@0234=7402 + ISZ D0202 / @@0235=2202 + NOP / @@0236=7000 + ISZ D0203 / @@0237=2203 + NOP / @@0240=7000 + ISZ S0266 / @@0241=2266 + JMP L0226 / @@0242=5226 + JMP I S0225 / return @@0243=5625 +L0244, + JMS S0215 / @@0244=4215 + TAD C0373 / @@0245=1373 + DCA S0266 / @@0246=3266 + TAD C0365 / @@0247=1365 + DCA D0202 / @@0250=3202 + TAD C0372 / @@0251=1372 + DCA D0203 / @@0252=3203 + JMS S0225 / @@0253=4225 + JMP I C0372 / long jump to L6600 @@0254=5772 +L0255, + JMS S0205 / @@0255=4205 + TAD C0373 / @@0256=1373 + DCA S0266 / @@0257=3266 + TAD C0372 / @@0260=1372 + DCA D0202 / @@0261=3202 + TAD C0365 / @@0262=1365 + DCA D0203 / @@0263=3203 + JMS S0225 / @@0264=4225 + JMP I C0365 / long jump to L0200 @@0265=5765 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0266 +/ +/ Called from: +/ 0276 0351 0361 +/ Total 0003 (3) calls +//////////////////////////////////////////////////////////////////////////////// +S0266, + 0 / return area + CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@0267=7330 + TAD S0266 / @@0270=1266 + SZL CLA / @@0271=7630 + TAD C0371 / @@0272=1371 + JMP I S0266 / return @@0273=5666 + CLA CLL / AC = 0000 @@0274=7300 + DCA D0202 / @@0275=3202 + JMS S0266 / @@0276=4266 + JMP L0377 / @@0277=5377 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0300 +/ +/ Called from: +/ 0315 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S0300, + 0 / return area + CMA / @@0301=7040 + DCA D0204 / @@0302=3204 + MQA / @@0303=7501 + CMA / @@0304=7040 + MQL / @@0305=7421 + TAD D0204 / @@0306=1204 + MQA / @@0307=7501 + CMA / @@0310=7040 + JMP I S0300 / return @@0311=5700 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0312 +/ +/ Called from: +/ 0326 0346 0357 +/ Total 0003 (3) calls +//////////////////////////////////////////////////////////////////////////////// +S0312, + 0 / return area + MQL / @@0313=7421 + LAS / @@0314=7604 + JMS S0300 / @@0315=4300 + SNA CLA / @@0316=7650 + ISZ S0312 / @@0317=2312 + JMP I S0312 / return @@0320=5712 +C0321, +C0321, 0000 / AND L0000 + ISZ D0202 / @@0322=2202 + JMP I C0321 / long jump to L0000 @@0323=5721 + CLA CLL CML RTR / AC = 2000 (1024) @@0324=7332 + RTR / @@0325=7012 + JMS S0312 / @@0326=4312 + JMP L0336 / @@0327=5336 + TAD C0366 / @@0330=1366 + JMS S0337 / @@0331=4337 + TAD C0367 / @@0332=1367 + JMS S0337 / @@0333=4337 + TAD C0370 / @@0334=1370 + JMS S0337 / @@0335=4337 +L0336, + JMP L0345 / @@0336=5345 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0337 +/ +/ Called from: +/ 0331 0333 0335 +/ Total 0003 (3) calls +//////////////////////////////////////////////////////////////////////////////// +S0337, + 0 / return area + TLS / Load the TTO from the content of AC4 @@0340=6046 +L0341, + TSF / Skip if teleprinter flag is a 1. @@0341=6041 + JMP L0341 / @@0342=5341 + CLA / @@0343=7200 + JMP I S0337 / return @@0344=5737 +L0345, + CLA CLL CML RTR / AC = 2000 (1024) @@0345=7332 + JMS S0312 / @@0346=4312 + SKP / @@0347=7410 + JMP L0355 / @@0350=5355 + JMS S0266 / @@0351=4266 + SNA CLA / @@0352=7650 + JMS S0215 / @@0353=4215 + HLT / @@0354=7402 +L0355, + CLA CLL CML RTR / AC = 2000 (1024) @@0355=7332 + RAR / @@0356=7010 + JMS S0312 / @@0357=4312 + JMP I C0321 / long jump to L0000 @@0360=5721 + JMS S0266 / @@0361=4266 + SNA CLA / @@0362=7650 + JMP L0244 / @@0363=5244 + JMP L0255 / @@0364=5255 +C0365, +C0365, 0200 / AND L0200 +C0366, 0215 / AND S0215 +C0367, 0212 / AND C0212 +C0370, 0301 / AND C0301 +C0371, 6400 / 6400 +C0372, +C0372, 6600 / 6600 +C0373, 7000 / NOP +C0374, 7600 / 7600 + +*0377 +L0377, + NOP / @@0377=7000 + +*0400 + DCA D0437 / @@0400=3237 + TAD C0442 / @@0401=1242 + TAD D0437 / @@0402=1237 + DCA AI0 / AUTO INDEX REGISTER @@0403=3010 + TAD C0443 / @@0404=1243 + TAD D0437 / @@0405=1237 + DCA I AI0 / AUTO INDEX REGISTER @@0406=3410 + TAD C0445 / @@0407=1245 + TAD D0437 / @@0410=1237 + DCA I AI0 / AUTO INDEX REGISTER @@0411=3410 + TAD C0446 / @@0412=1246 + TAD D0437 / @@0413=1237 + DCA I AI0 / AUTO INDEX REGISTER @@0414=3410 + TAD C0447 / @@0415=1247 + TAD D0437 / @@0416=1237 + DCA I AI0 / AUTO INDEX REGISTER @@0417=3410 + TAD C0444 / @@0420=1244 + TAD D0437 / @@0421=1237 + DCA I AI0 / AUTO INDEX REGISTER @@0422=3410 + TAD D0437 / @@0423=1237 + SZA CLA / @@0424=7640 + JMP L0433 / @@0425=5233 + TAD C0440 / @@0426=1240 + DCA I AI0 / AUTO INDEX REGISTER @@0427=3410 + TAD C0450 / @@0430=1250 + DCA I AI0 / AUTO INDEX REGISTER @@0431=3410 + JMP L0577 / @@0432=5377 +L0433, + DCA I AI0 / AUTO INDEX REGISTER @@0433=3410 + TAD C0451 / @@0434=1251 + DCA I AI0 / AUTO INDEX REGISTER @@0435=3410 + JMP L0577 / @@0436=5377 +D0437, 0000 / AND L0000 +C0440, 0200 / AND C0400 + NOP / @@0441=7000 +C0442, 0753 / AND I C0553 +C0443, 1000 / TAD L0000 +C0444, 0321 / AND C0521 +C0445, 0300 / AND C0500 +C0446, 0712 / AND I C0512 +C0447, 0312 / AND C0512 +C0450, 6600 / 6600 +C0451, 1201 / TAD C0401 + +*0577 +L0577, + NOP / @@0577=7000 + +*0600 +L0600, + CLA CLL / AC = 0000 @@0600=7300 + TAD C0755 / @@0601=1355 + DCA L0000 / @@0602=3000 + IAC / @@0603=7001 + JMS I C0757 / long call to S0000 @@0604=4757 + JMP L0624 / @@0605=5224 + TAD C0762 / @@0606=1362 + DCA D0006 / @@0607=3006 + TAD C0761 / @@0610=1361 + DCA D0007 / @@0611=3007 + JMS I C0754 / long call to S0000 @@0612=4754 + DCA D0765 / @@0613=3365 + TAD L0001 / @@0614=1001 + DCA D0763 / @@0615=3363 + TAD D0002 / @@0616=1002 + DCA D0764 / @@0617=3364 + TAD D0003 / @@0620=1003 + DCA D0766 / @@0621=3366 + TAD D0005 / @@0622=1005 + DCA D0767 / @@0623=3367 +L0624, + CLL IAC RAL / @@0624=7105 + JMS I C0757 / long call to S0000 @@0625=4757 + JMP L0634 / @@0626=5234 + TAD D0770 / @@0627=1370 + CLL RAL / @@0630=7104 + SZL / @@0631=7430 + TAD C0774 / @@0632=1374 + DCA D0770 / @@0633=3370 +L0634, + CLA CLL IAC RTL / AC = 0004 @@0634=7307 + JMS I C0757 / long call to S0000 @@0635=4757 + JMP L0644 / @@0636=5244 + TAD D0771 / @@0637=1371 + CLL RAL / @@0640=7104 + SZL / @@0641=7430 + TAD C0774 / @@0642=1374 + DCA D0771 / @@0643=3371 +L0644, + CLA CLL / AC = 0000 @@0644=7300 + TAD D0763 / @@0645=1363 + DCA I D0764 / @@0646=3764 + TAD D0765 / @@0647=1365 + SNA CLA / @@0650=7650 + JMP L0667 / @@0651=5267 + TAD D0766 / @@0652=1366 + TAD C0775 / @@0653=1375 + SZL CLA / @@0654=7630 + JMP L0662 / @@0655=5262 + TAD D0766 / @@0656=1366 + TAD C0776 / @@0657=1376 + SZL CLA / @@0660=7630 + CMA / @@0661=7040 +L0662, + TAD D0767 / @@0662=1367 + DCA I D0766 / @@0663=3766 + TAD D0770 / @@0664=1370 + DCA I D0767 / @@0665=3767 + JMP L0671 / @@0666=5271 +L0667, + TAD D0770 / @@0667=1370 + DCA I D0766 / @@0670=3766 +L0671, + CLA CLL / AC = 0000 @@0671=7300 + TAD D0770 / @@0672=1370 + MQL / @@0673=7421 + TAD D0771 / @@0674=1371 + JMS I C0755 / long call to S0000 @@0675=4755 + DCA D0772 / @@0676=3372 + TAD C0756 / @@0677=1356 + DCA L0000 / @@0700=3000 + TAD D0764 / @@0701=1364 + IAC / @@0702=7001 + SNA / @@0703=7450 + JMP L0600 / @@0704=5200 + DCA D0753 / @@0705=3353 + TAD C0773 / @@0706=1373 + DCA I D0753 / @@0707=3753 + TAD D0771 / @@0710=1371 + JMP I D0764 / long jump to L0000 @@0711=5764 + DCA D0777 / @@0712=3377 + SZL / @@0713=7430 + JMS S0724 / @@0714=4324 + TAD D0772 / @@0715=1372 + CIA / @@0716=7041 + TAD D0777 / @@0717=1377 + SZA CLA / @@0720=7640 + JMS S0724 / @@0721=4324 + JMS I C0760 / long call to S0000 @@0722=4760 + JMP L0600 / @@0723=5200 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0724 +/ +/ Called from: +/ 0714 0721 +/ Total 0002 (2) calls +//////////////////////////////////////////////////////////////////////////////// +S0724, + 0 / return area + CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@0725=7330 + JMS I C0757 / long call to S0000 @@0726=4757 + JMP L0751 / @@0727=5351 + TAD D0770 / @@0730=1370 + HLT / @@0731=7402 + CLA / @@0732=7200 + TAD D0771 / @@0733=1371 + HLT / @@0734=7402 + CLA / @@0735=7200 + TAD L0001 / @@0736=1001 + HLT / @@0737=7402 + CLA / @@0740=7200 + TAD D0764 / @@0741=1364 + HLT / @@0742=7402 + CLA / @@0743=7200 + TAD D0766 / @@0744=1366 + HLT / @@0745=7402 + CLA / @@0746=7200 + TAD D0767 / @@0747=1367 + HLT / @@0750=7402 +L0751, + CLA CLL / AC = 0000 @@0751=7300 + JMP I S0724 / return @@0752=5724 +D0753, 0000 / AND L0000 +C0754, +C0754, 0000 / AND L0000 +C0755, +C0755, 0000 / AND L0000 +C0756, 0000 / AND L0000 +C0757, +C0757, 0000 / AND L0000 +C0760, +C0760, 0000 / AND L0000 +C0761, 0000 / AND L0000 +C0762, 0000 / AND L0000 +D0763, 0000 / AND L0000 +D0764, 0000 / AND L0000 +D0765, 0000 / AND L0000 +D0766, 0000 / AND L0000 +D0767, 0000 / AND L0000 +D0770, 0021 / AND C0021 +D0771, 0037 / AND C0037 +D0772, 0000 / AND L0000 +C0773, 5400 / JMP I L0000 +C0774, 0003 / AND D0003 +C0775, 7760 / SMA SZA SNL CLA +C0776, 7770 / SPA SNA SZL CLA +D0777, 0000 / AND L0000 + +*1000 +C1000, +C1000, 0000 / AND L0000 +L1001, + TAD D1167 / @@1001=1367 + JMS S1140 / @@1002=4340 + DCA D1167 / @@1003=3367 + TAD D1167 / @@1004=1367 + MQL / @@1005=7421 + TAD D0007 / @@1006=1007 + MQA / @@1007=7501 + MQL / @@1010=7421 + TAD C1171 / @@1011=1371 + JMS I L0000 / long call to S0000 @@1012=4400 + DCA L0001 / @@1013=3001 + TAD L0001 / @@1014=1001 + JMS S1154 / @@1015=4354 + DCA D0020 / @@1016=3020 +L1017, + TAD D1172 / @@1017=1372 + JMS S1140 / @@1020=4340 + DCA D1172 / @@1021=3372 + JMS S1145 / @@1022=4345 + TAD D1172 / @@1023=1372 + SNL CLA / @@1024=7620 + JMP L1017 / @@1025=5217 + TAD D1172 / @@1026=1372 + TAD C1173 / @@1027=1373 + SNL CLA / @@1030=7620 + JMP L1046 / @@1031=5246 + TAD D0020 / @@1032=1020 + CIA / @@1033=7041 + TAD D1172 / @@1034=1372 +L1035, + JMS S1161 / @@1035=4361 + SMA CLA / @@1036=7700 + JMP L1017 / @@1037=5217 +L1040, + TAD D0020 / @@1040=1020 + SNA CLA / @@1041=7650 + JMP L1001 / @@1042=5201 + TAD D1172 / @@1043=1372 + DCA D0002 / @@1044=3002 + JMP L1061 / @@1045=5261 +L1046, + TAD L0001 / @@1046=1001 + MQL / @@1047=7421 + TAD C1176 / @@1050=1376 + JMS I L0000 / long call to S0000 @@1051=4400 + SNA CLA / @@1052=7650 + JMP L1040 / @@1053=5240 + TAD D1172 / @@1054=1372 + JMS S1154 / @@1055=4354 + CIA / @@1056=7041 + TAD D0020 / @@1057=1020 + JMP L1035 / @@1060=5235 +L1061, + TAD L0001 / @@1061=1001 + MQL / @@1062=7421 + TAD C1176 / @@1063=1376 + JMS I L0000 / long call to S0000 @@1064=4400 + SNA CLA / @@1065=7650 + JMP L1106 / @@1066=5306 + TAD D0002 / @@1067=1002 + MQL / @@1070=7421 + TAD C1173 / @@1071=1373 + JMS I L0000 / long call to S0000 @@1072=4400 + MQL / @@1073=7421 + TAD D0020 / @@1074=1020 + MQA / @@1075=7501 + DCA D0003 / @@1076=3003 +L1077, + TAD L0001 / @@1077=1001 + MQL / @@1100=7421 + TAD C1175 / @@1101=1375 + JMS I L0000 / long call to S0000 @@1102=4400 + SZA CLA / @@1103=7640 + JMP L1111 / @@1104=5311 + JMP I C1000 / long jump to L0000 @@1105=5600 +L1106, + TAD D0020 / @@1106=1020 + DCA D0003 / @@1107=3003 + JMP L1077 / @@1110=5277 +L1111, + TAD D1177 / @@1111=1377 + JMS S1140 / @@1112=4340 + DCA D1177 / @@1113=3377 + JMS S1145 / @@1114=4345 + TAD D1177 / @@1115=1377 + SNL CLA / @@1116=7620 + JMP L1111 / @@1117=5311 + TAD D0002 / @@1120=1002 + CIA / @@1121=7041 + TAD D1177 / @@1122=1377 + JMS S1161 / @@1123=4361 + SMA CLA / @@1124=7700 + JMP L1111 / @@1125=5311 + TAD D0003 / @@1126=1003 + CIA / @@1127=7041 + TAD D1177 / @@1130=1377 + JMS S1161 / @@1131=4361 + SMA CLA / @@1132=7700 + JMP L1111 / @@1133=5311 + TAD D1177 / @@1134=1377 + DCA D0005 / @@1135=3005 + CMA / @@1136=7040 + JMP I C1000 / long jump to L0000 @@1137=5600 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S1140 +/ +/ Called from: +/ 1002 1020 1112 +/ Total 0003 (3) calls +//////////////////////////////////////////////////////////////////////////////// +S1140, + 0 / return area + CLL RAL / @@1141=7104 + SZL / @@1142=7430 + TAD C1170 / @@1143=1370 + JMP I S1140 / return @@1144=5740 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S1145 +/ +/ Called from: +/ 1022 1114 +/ Total 0002 (2) calls +//////////////////////////////////////////////////////////////////////////////// +S1145, + 0 / return area + TAD D0007 / @@1146=1007 + CLL / @@1147=7100 + SNA CLA / @@1150=7650 + CML / @@1151=7020 + TAD D0006 / @@1152=1006 + JMP I S1145 / return @@1153=5745 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S1154 +/ +/ Called from: +/ 1015 1055 +/ Total 0002 (2) calls +//////////////////////////////////////////////////////////////////////////////// +S1154, + 0 / return area + MQL / @@1155=7421 + TAD C1174 / @@1156=1374 + JMS I L0000 / long call to S0000 @@1157=4400 + JMP I S1154 / return @@1160=5754 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S1161 +/ +/ Called from: +/ 1035 1123 1131 +/ Total 0003 (3) calls +//////////////////////////////////////////////////////////////////////////////// +S1161, + 0 / return area + SMA / @@1162=7500 + CIA / @@1163=7041 + IAC / @@1164=7001 + IAC / @@1165=7001 + JMP I S1161 / return @@1166=5761 +D1167, 0001 / AND L0001 +C1170, 0003 / AND D0003 +C1171, 0777 / AND I D1177 +D1172, 0005 / AND D0005 +C1173, 7600 / 7600 +C1174, 0177 / AND C0177 +C1175, 0400 / AND I L0000 +C1176, 0200 / AND C1000 +D1177, 0015 / AND AI5 + +$ diff --git a/PDP8/tests/diags/maindec-8e-d0db-pb.pdf b/PDP8/tests/diags/maindec-8e-d0db-pb.pdf new file mode 100644 index 00000000..0b65006a Binary files /dev/null and b/PDP8/tests/diags/maindec-8e-d0db-pb.pdf differ diff --git a/PDP8/tests/diags/maindec-8e-d0eb-pb.bin b/PDP8/tests/diags/maindec-8e-d0eb-pb.bin new file mode 100644 index 00000000..3ab7d7e4 Binary files /dev/null and b/PDP8/tests/diags/maindec-8e-d0eb-pb.bin differ diff --git a/PDP8/tests/diags/maindec-8e-d0eb-pb.pal b/PDP8/tests/diags/maindec-8e-d0eb-pb.pal new file mode 100644 index 00000000..3d81fcd8 --- /dev/null +++ b/PDP8/tests/diags/maindec-8e-d0eb-pb.pal @@ -0,0 +1,644 @@ +TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d0eb-pb.bin BY D8TAPE" +//////////////////////////////////////////////////////////////////////////////// +/ +/ Automatic Disassembly of maindec-8e-d0eb-pb.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 +/ +/ 0714 locations used, 0570 code and 0124 data +//////////////////////////////////////////////////////////////////////////////// + +*0200 + +*0000 +L0000, +D0000, 0000 / AND L0000 +L0001, +D0001, 5001 / JMP L0001 +D0002, 0002 / AND D0002 +D0003, 0003 / AND D0003 +D0004, 0000 / AND L0000 + AND L0000 / @@0005=0000 + +*0200 +C0200, 6007 / 6007 + JMP I C0202 / long jump to L6600 @@0201=5602 +C0202, +C0202, 6600 / 6600 + +*6600 +L6600, + CLA CLL / AC = 0000 @@6600=7300 + DCA D6776 / @@6601=3376 +L6602, + LAS / @@6602=7604 + AND C6771 / @@6603=0371 + SZA CLA / @@6604=7640 + JMP L6624 / @@6605=5224 + JMS I C6746 / long call to S7000 @@6606=4746 + DCA D6755 / @@6607=3355 + CMA / @@6610=7040 + AND L0001 / @@6611=0001 + DCA D6753 / @@6612=3353 + CMA / @@6613=7040 + AND D0002 / @@6614=0002 + DCA D6754 / @@6615=3354 + CMA / @@6616=7040 + AND D0003 / @@6617=0003 + DCA D6756 / @@6620=3356 + CMA / @@6621=7040 + AND D0004 / @@6622=0004 + DCA D6757 / @@6623=3357 +L6624, + LAS / @@6624=7604 + AND C6772 / @@6625=0372 + SZA CLA / @@6626=7640 + JMP L6634 / @@6627=5234 + CMA / @@6630=7040 + AND D6760 / @@6631=0360 + JMS I C6752 / long call to S7430 @@6632=4752 + DCA D6760 / @@6633=3360 +L6634, + LAS / @@6634=7604 + AND C6773 / @@6635=0373 + SZA CLA / @@6636=7640 + JMP L6644 / @@6637=5244 + CMA / @@6640=7040 + AND D6761 / @@6641=0361 + JMS I C6752 / long call to S7430 @@6642=4752 + DCA D6761 / @@6643=3361 +L6644, + CLA CLL CMA / AC = 7777 (-0001) @@6644=7340 + AND D6753 / @@6645=0353 + DCA I D6754 / @@6646=3754 + CMA / @@6647=7040 + AND D6755 / @@6650=0355 + SNA CLA / @@6651=7650 + JMP L6702 / @@6652=5302 + CMA / @@6653=7040 + AND D6756 / @@6654=0356 + AND C6767 / @@6655=0367 + SZA CLA / @@6656=7640 + JMP L6676 / @@6657=5276 + CMA / @@6660=7040 + AND D6756 / @@6661=0356 + AND C6775 / @@6662=0375 + SNA CLA / @@6663=7650 + JMP L6676 / @@6664=5276 + CMA / @@6665=7040 + AND D6757 / @@6666=0357 + CIA / @@6667=7041 + CMA / @@6670=7040 + DCA I D6756 / @@6671=3756 +L6672, + CMA / @@6672=7040 + AND D6760 / @@6673=0360 + DCA I D6757 / @@6674=3757 + JMP L6705 / @@6675=5305 +L6676, + CMA / @@6676=7040 + AND D6757 / @@6677=0357 + DCA I D6756 / @@6700=3756 + JMP L6672 / @@6701=5272 +L6702, + CMA / @@6702=7040 + AND D6760 / @@6703=0360 + DCA I D6756 / @@6704=3756 +L6705, + CLA CLL CMA / AC = 7777 (-0001) @@6705=7340 + AND D6760 / @@6706=0360 + MQL / @@6707=7421 + CMA / @@6710=7040 + AND D6761 / @@6711=0361 + JMS I C6751 / long call to S7200 @@6712=4751 + DCA D6763 / @@6713=3363 + RAR / @@6714=7010 + DCA D6762 / @@6715=3362 + CMA / @@6716=7040 + AND C6747 / @@6717=0347 + DCA L0000 / @@6720=3000 + CMA / @@6721=7040 + AND D6754 / @@6722=0354 + IAC / @@6723=7001 + SNA / @@6724=7450 + JMP L6602 / @@6725=5202 + DCA D6745 / @@6726=3345 + CMA / @@6727=7040 + AND C6766 / @@6730=0366 + DCA I D6745 / @@6731=3745 + CLL CMA / @@6732=7140 + AND D6761 / @@6733=0361 + JMP I D6754 / long jump to L0000 @@6734=5754 + DCA D6764 / @@6735=3364 + RAR / @@6736=7010 + DCA D6765 / @@6737=3365 + JMS I C6774 / long call to S7313 @@6740=4774 + ISZ D6776 / @@6741=2376 + JMP L6602 / @@6742=5202 + JMS I C6750 / long call to S7442 @@6743=4750 + JMP L6602 / @@6744=5202 +D6745, 0000 / AND L0000 +C6746, +C6746, 7000 / NOP +C6747, 6735 / 6735 +C6750, +C6750, 7442 / SZA HLT +C6751, +C6751, 7200 / CLA +C6752, +C6752, 7430 / SZL +D6753, 0000 / AND L0000 +D6754, 0000 / AND L0000 +D6755, 0000 / AND L0000 +D6756, 0000 / AND L0000 +D6757, 0000 / AND L0000 +D6760, 0021 / AND C0021 +D6761, 0037 / AND C0037 +D6762, 0000 / AND L0000 +D6763, 0000 / AND L0000 +D6764, 0000 / AND L0000 +D6765, 0000 / AND L0000 +C6766, 5400 / JMP I L0000 +C6767, 7760 / SMA SZA SNL CLA + SPA SNA SZL CLA / @@6770=7770 +C6771, 0001 / AND L0001 +C6772, 0002 / AND D0002 +C6773, 0004 / AND D0004 +C6774, +C6774, 7313 / CLA CLL IAC RTR +C6775, 0010 / AND AI0 +D6776, 0000 / AND L0000 + +*7000 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S7000 +/ +/ Called from: +/ 6606 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S7000, + 0 / return area +L7001, +C7001, 7040 / CMA + AND D7150 / @@7002=0350 + JMS I C7162 / long call to S7430 @@7003=4762 + DCA D7150 / @@7004=3350 + CMA / @@7005=7040 + AND D7150 / @@7006=0350 + MQL / @@7007=7421 + CMA / @@7010=7040 + AND C7165 / @@7011=0365 + MQA / @@7012=7501 + AND C7152 / @@7013=0352 + DCA L0001 / @@7014=3001 + CMA / @@7015=7040 + AND L0001 / @@7016=0001 + AND C7155 / @@7017=0355 + DCA D7161 / @@7020=3361 +L7021, + CMA / @@7021=7040 + AND D7153 / @@7022=0353 + JMS I C7162 / long call to S7430 @@7023=4762 + DCA D7153 / @@7024=3353 + CMA / @@7025=7040 + AND D7153 / @@7026=0353 + JMS I C7177 / long call to S7303 @@7027=4777 + JMP L7021 / @@7030=5221 + CMA / @@7031=7040 + AND D7153 / @@7032=0353 + AND C7154 / @@7033=0354 + SZA CLA / @@7034=7640 + JMP L7044 / @@7035=5244 + CMA / @@7036=7040 + AND D7153 / @@7037=0353 +L7040, + JMS I C7176 / long call to S7474 @@7040=4776 + SMA CLA / @@7041=7700 + JMP L7021 / @@7042=5221 + JMP L7055 / @@7043=5255 +L7044, + CMA / @@7044=7040 + AND L0001 / @@7045=0001 + AND C7157 / @@7046=0357 + SNA CLA / @@7047=7650 + JMP L7055 / @@7050=5255 + CMA / @@7051=7040 + AND D7153 / @@7052=0353 + AND C7155 / @@7053=0355 + JMP L7040 / @@7054=5240 +L7055, + CMA / @@7055=7040 + AND D7161 / @@7056=0361 + SNA CLA / @@7057=7650 + JMP L7001 / @@7060=5201 + CMA / @@7061=7040 + AND D7153 / @@7062=0353 + DCA D0002 / @@7063=3002 + CMA / @@7064=7040 + AND L0001 / @@7065=0001 + AND C7157 / @@7066=0357 + SNA CLA / @@7067=7650 + JMP L7107 / @@7070=5307 + CMA / @@7071=7040 + AND D0002 / @@7072=0002 + AND C7154 / @@7073=0354 + MQL / @@7074=7421 + CMA / @@7075=7040 + AND D7161 / @@7076=0361 + MQA / @@7077=7501 + DCA D0003 / @@7100=3003 +L7101, + CMA / @@7101=7040 + AND L0001 / @@7102=0001 + AND C7156 / @@7103=0356 + SZA CLA / @@7104=7640 + JMP L7113 / @@7105=5313 + JMP I S7000 / return @@7106=5600 +L7107, + CMA / @@7107=7040 + AND D7161 / @@7110=0361 + DCA D0003 / @@7111=3003 + JMP L7101 / @@7112=5301 +L7113, + CMA / @@7113=7040 + AND D7160 / @@7114=0360 + JMS I C7162 / long call to S7430 @@7115=4762 + DCA D7160 / @@7116=3360 + CMA / @@7117=7040 + AND D7160 / @@7120=0360 + JMS I C7177 / long call to S7303 @@7121=4777 + JMP L7113 / @@7122=5313 + CMA / @@7123=7040 + AND D0002 / @@7124=0002 + JMS I C7175 / long call to S7507 @@7125=4775 + SMA CLA / @@7126=7700 + JMP L7113 / @@7127=5313 + CMA / @@7130=7040 + AND D0003 / @@7131=0003 + JMS I C7175 / long call to S7507 @@7132=4775 + SMA CLA / @@7133=7700 + JMP L7113 / @@7134=5313 + CMA / @@7135=7040 + AND D7160 / @@7136=0360 + CIA / @@7137=7041 + CMA / @@7140=7040 + SNA CLA / @@7141=7650 + JMP L7113 / @@7142=5313 + CMA / @@7143=7040 + AND D7160 / @@7144=0360 + DCA D0004 / @@7145=3004 + CMA / @@7146=7040 + JMP I S7000 / return @@7147=5600 +D7150, 0001 / AND L0001 + AND D0003 / @@7151=0003 +C7152, 1777 / TAD I C7177 +D7153, 0005 / AND C0005 +C7154, 7600 / 7600 +C7155, 0177 / AND C0177 +C7156, 0400 / AND I L0000 +C7157, 0200 / AND S7000 +D7160, 0015 / AND AI5 +D7161, 0000 / AND L0000 +C7162, +C7162, 7430 / SZL + CLA / @@7163=7200 +C7164, 1201 / TAD L7001 +C7165, 1000 / TAD L0000 + +*7175 +C7175, +C7175, 7507 / MQA DVI + +C7176, +C7176, 7474 / SNA SZL OSR +C7177, +C7177, 7303 / CLA CLL IAC + +*7200 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S7200 +/ +/ Called from: +/ 6712 7307 7437 7501 7514 +/ Total 0005 (5) calls +//////////////////////////////////////////////////////////////////////////////// +S7200, + 0 / return area + DCA D7344 / @@7201=3344 + MQA / @@7202=7501 + DCA D7343 / @@7203=3343 + CLA CLL CMA / AC = 7777 (-0001) @@7204=7340 + AND D7343 / @@7205=0343 + MQL / @@7206=7421 + CMA / @@7207=7040 + AND D7344 / @@7210=0344 + MQA / @@7211=7501 + DCA D7345 / @@7212=3345 + MQA / @@7213=7501 + CMA / @@7214=7040 + AND D7344 / @@7215=0344 + MQL / @@7216=7421 + CMA / @@7217=7040 + AND D7344 / @@7220=0344 + CMA / @@7221=7040 + AND D7343 / @@7222=0343 + MQA / @@7223=7501 + DCA D7346 / @@7224=3346 + DCA D7347 / @@7225=3347 + CMA / @@7226=7040 + AND D7343 / @@7227=0343 + AND D7344 / @@7230=0344 + SNA / @@7231=7450 + JMP L7274 / @@7232=5274 + MQL / @@7233=7421 +L7234, + MQA MQL / @@7234=7521 + AND D7345 / @@7235=0345 + SNA / @@7236=7450 + JMP L7244 / @@7237=5244 + CLL RAL / @@7240=7104 + MQA MQL / @@7241=7521 + MQA / @@7242=7501 + JMP L7234 / @@7243=5234 +L7244, + MQA / @@7244=7501 + AND D7345 / @@7245=0345 + AND C7350 / @@7246=0350 + SNA / @@7247=7450 + JMP L7253 / @@7250=5253 + DCA D7347 / @@7251=3347 + JMP L7260 / @@7252=5260 +L7253, + CLL CML RAR / @@7253=7130 + AND D7343 / @@7254=0343 + AND D7344 / @@7255=0344 + SZA / @@7256=7440 + DCA D7347 / @@7257=3347 +L7260, + MQA / @@7260=7501 + DCA D7351 / @@7261=3351 + MQA / @@7262=7501 + CMA / @@7263=7040 + AND D7346 / @@7264=0346 + MQL / @@7265=7421 + CMA / @@7266=7040 + AND D7346 / @@7267=0346 + CMA / @@7270=7040 + AND D7351 / @@7271=0351 + MQA / @@7272=7501 + DCA D7346 / @@7273=3346 +L7274, + CLA CLL CMA / AC = 7777 (-0001) @@7274=7340 + AND D7347 / @@7275=0347 + SZA CLA / @@7276=7640 + CML / @@7277=7020 + CMA / @@7300=7040 + AND D7346 / @@7301=0346 + JMP I S7200 / return @@7302=5600 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S7303 +/ +/ Called from: +/ 7027 7121 +/ Total 0002 (2) calls +//////////////////////////////////////////////////////////////////////////////// +S7303, + 0 / return area + MQL / @@7304=7421 + CMA / @@7305=7040 + AND I C7377 / @@7306=0777 + JMS S7200 / @@7307=4200 + SNL CLA / @@7310=7620 + ISZ S7303 / @@7311=2303 + JMP I S7303 / return @@7312=5703 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S7313 +/ +/ Called from: +/ 6740 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S7313, + 0 / return area + CLA CLL CMA / AC = 7777 (-0001) @@7314=7340 + AND I C7376 / @@7315=0776 + SZA CLA / @@7316=7640 + CML / @@7317=7020 + CMA / @@7320=7040 + AND I C7375 / @@7321=0775 + SZA CLA / @@7322=7640 + CML / @@7323=7020 + SZL / @@7324=7430 + JMP L7341 / @@7325=5341 + CLA CLL CMA / AC = 7777 (-0001) @@7326=7340 + AND I C7374 / @@7327=0774 + CMA / @@7330=7040 + AND I C7373 / @@7331=0773 + SZA / @@7332=7440 + JMP L7341 / @@7333=5341 + CMA / @@7334=7040 + AND I C7373 / @@7335=0773 + CMA / @@7336=7040 + AND I C7374 / @@7337=0774 + SZA CLA / @@7340=7640 +L7341, + JMS I C7352 / long call to S7400 @@7341=4752 + JMP I S7313 / return @@7342=5713 +D7343, 0000 / AND L0000 +D7344, 0000 / AND L0000 +D7345, 0000 / AND L0000 +D7346, 0000 / AND L0000 +D7347, 0000 / AND L0000 +C7350, 4000 / JMS L0000 +D7351, 0000 / AND L0000 +C7352, +C7352, 7400 / + +*7373 +C7373, 6763 / 6763 +C7374, 6764 / DTXA +C7375, 6765 / 6765 +C7376, 6762 / DCTA +C7377, 7164 / CLL CMA CML RAL + +*7400 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S7400 +/ +/ Called from: +/ 7341 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S7400, + 0 / return area + LAS / @@7401=7604 + AND C7467 / @@7402=0267 + SZA CLA / @@7403=7640 + JMP I S7400 / return @@7404=5600 + STA / AC = 7777 (-0001) @@7405=7240 + AND I C7577 / @@7406=0777 + HLT / @@7407=7402 + STA / AC = 7777 (-0001) @@7410=7240 + AND I C7576 / @@7411=0776 + HLT / @@7412=7402 + STA / AC = 7777 (-0001) @@7413=7240 + AND I C7575 / @@7414=0775 + HLT / @@7415=7402 + STA / AC = 7777 (-0001) @@7416=7240 + AND I C7574 / @@7417=0774 + HLT / @@7420=7402 + STA / AC = 7777 (-0001) @@7421=7240 + AND I C7573 / @@7422=0773 + HLT / @@7423=7402 + STA / AC = 7777 (-0001) @@7424=7240 + AND I C7572 / @@7425=0772 + HLT / @@7426=7402 + JMP I S7400 / return @@7427=5600 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S7430 +/ +/ Called from: +/ 6632 6642 7003 7023 7115 +/ Total 0005 (5) calls +//////////////////////////////////////////////////////////////////////////////// +S7430, + 0 / return area + CLL RAL / @@7431=7104 + SNL / @@7432=7420 + JMP L7440 / @@7433=5240 + MQL / @@7434=7421 + CMA / @@7435=7040 + AND C7441 / @@7436=0241 + JMS I C7571 / long call to S7200 @@7437=4771 +L7440, + JMP I S7430 / return @@7440=5630 +C7441, 0003 / AND D0003 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S7442 +/ +/ Called from: +/ 6743 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S7442, + 0 / return area + LAS / @@7443=7604 + AND C7470 / @@7444=0270 + SZA CLA / @@7445=7640 + JMP I S7442 / return @@7446=5642 + CMA / @@7447=7040 + AND C7471 / @@7450=0271 + JMS S7461 / @@7451=4261 + CMA / @@7452=7040 + AND C7472 / @@7453=0272 + JMS S7461 / @@7454=4261 + CMA / @@7455=7040 + AND C7473 / @@7456=0273 + JMS S7461 / @@7457=4261 + JMP I S7442 / return @@7460=5642 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S7461 +/ +/ Called from: +/ 7451 7454 7457 +/ Total 0003 (3) calls +//////////////////////////////////////////////////////////////////////////////// +S7461, + 0 / return area + TLS / Load the TTO from the content of AC4 @@7462=6046 +L7463, + TSF / Skip if teleprinter flag is a 1. @@7463=6041 + JMP L7463 / @@7464=5263 + CLA / @@7465=7200 + JMP I S7461 / return @@7466=5661 +C7467, 4000 / JMS L0000 +C7470, 0400 / AND I L0000 +C7471, 0215 / AND C7415 +C7472, 0212 / AND C7412 +C7473, 0324 / AND C7524 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S7474 +/ +/ Called from: +/ 7040 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S7474, + 0 / return area + CIA / @@7475=7041 + MQL / @@7476=7421 + CMA / @@7477=7040 + AND I C7570 / @@7500=0770 + JMS I C7571 / long call to S7200 @@7501=4771 + SMA / @@7502=7500 + CIA / @@7503=7041 + IAC / @@7504=7001 + IAC / @@7505=7001 + JMP I S7474 / return @@7506=5674 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S7507 +/ +/ Called from: +/ 7125 7132 +/ Total 0002 (2) calls +//////////////////////////////////////////////////////////////////////////////// +S7507, + 0 / return area + CIA / @@7510=7041 + MQL / @@7511=7421 + CMA / @@7512=7040 + AND I C7567 / @@7513=0767 + JMS I C7571 / long call to S7200 @@7514=4771 + SMA / @@7515=7500 + CIA / @@7516=7041 + IAC / @@7517=7001 + IAC / @@7520=7001 + JMP I S7507 / return @@7521=5707 + +*7567 +C7567, 7160 / CLL CMA CML +C7570, 7161 / CLL CMA CML IAC +C7571, +C7571, 7200 / CLA +C7572, 6757 / 6757 +C7573, 6756 / 6756 +C7574, 6754 / 6754 +C7575, 6753 / 6753 +C7576, 6761 / DTRA +C7577, 6760 / 6760 + +$ diff --git a/PDP8/tests/diags/maindec-8e-d0eb-pb.pdf b/PDP8/tests/diags/maindec-8e-d0eb-pb.pdf new file mode 100644 index 00000000..da84d6da Binary files /dev/null and b/PDP8/tests/diags/maindec-8e-d0eb-pb.pdf differ diff --git a/PDP8/tests/diags/maindec-8e-d0fc-pb.bin b/PDP8/tests/diags/maindec-8e-d0fc-pb.bin new file mode 100644 index 00000000..5394e372 Binary files /dev/null and b/PDP8/tests/diags/maindec-8e-d0fc-pb.bin differ diff --git a/PDP8/tests/diags/maindec-8e-d0fc-pb.pal b/PDP8/tests/diags/maindec-8e-d0fc-pb.pal new file mode 100644 index 00000000..d0ec4b7d --- /dev/null +++ b/PDP8/tests/diags/maindec-8e-d0fc-pb.pal @@ -0,0 +1,535 @@ +TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d0fc-pb.bin BY D8TAPE" +//////////////////////////////////////////////////////////////////////////////// +/ +/ Automatic Disassembly of maindec-8e-d0fc-pb.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 +/ +/ 0645 locations used, 0506 code and 0137 data +//////////////////////////////////////////////////////////////////////////////// + +*0200 + +*0000 +L0000, +D0000, 0000 / AND L0000 +L0001, +D0001, 5001 / JMP L0001 +D0002, 0002 / AND D0002 +D0003, 0003 / AND D0003 +C0004, 0000 / AND L0000 + AND L0000 / @@0005=0000 +C0006, 0202 / AND D0002 +C0007, +C0007, 0547 / AND I C0147 +AI0, 0007 / AUTO-INDEX REGISTER AND C0007 +AI1, 0000 / AUTO-INDEX REGISTER AND L0000 +AI2, 0000 / AUTO-INDEX REGISTER AND L0000 +AI3, 7401 / AUTO-INDEX REGISTER NOP +AI4, 3607 / AUTO-INDEX REGISTER DCA I C0007 +AI5, 0003 / AUTO-INDEX REGISTER AND D0003 + ISZ I D0021 / @@0016=2421 +AI7, 5116 / AUTO-INDEX REGISTER JMP L0116 +C0020, 5141 / JMP L0141 +D0021, 0000 / AND L0000 +D0022, 0000 / AND L0000 +D0023, 0000 / AND L0000 +D0024, 0000 / AND L0000 +C0025, 0004 / AND C0004 +C0026, +C0026, 0400 / AND I L0000 +C0027, 0200 / AND L0000 +C0030, 0100 / AND C0100 +D0031, 0000 / AND L0000 +C0032, 0257 / AND C0057 +C0033, +C0033, 0201 / AND L0001 + AND C0006 / @@0034=0206 + AND I AI3 / AUTO INDEX REGISTER @@0035=0413 +C0036, 1014 / TAD AI4 +C0037, +C0037, 0600 / AND I L0000 +L0040, +D0040, 4441 / JMS I D0041 +D0041, 0614 / AND I AI4 + AND AI5 / AUTO INDEX REGISTER @@0042=0015 + SZA CLA / @@0043=7640 + JMP I C0026 / long jump to L0400 @@0044=5426 + TAD C0036 / @@0045=1036 + DCA L0165 / @@0046=3165 +L0047, + LAS / @@0047=7604 + AND C0030 / @@0050=0030 + SZA / @@0051=7440 + JMP L0055 / @@0052=5055 + JMS S0164 / @@0053=4164 +C0054, 3022 / DCA D0022 +L0055, + LAS / @@0055=7604 + AND C0027 / @@0056=0027 +C0057, 7640 / SZA CLA + JMP L0065 / @@0060=5065 + JMS S0164 / @@0061=4164 + DCA D0021 / @@0062=3021 + TAD D0021 / @@0063=1021 + JMS S0151 / @@0064=4151 +L0065, + LAS / @@0065=7604 + AND C0026 / @@0066=0026 + SZA CLA / @@0067=7640 + JMP L0075 / @@0070=5075 + JMS S0164 / @@0071=4164 + DCA D0002 / @@0072=3002 + TAD D0002 / @@0073=1002 + JMS S0151 / @@0074=4151 +L0075, + STA / AC = 7777 (-0001) @@0075=7240 + TAD D0002 / @@0076=1002 +C0077, 3011 / DCA AI1 +C0100, 1016 / TAD AI6 + DCA I AI1 / AUTO INDEX REGISTER @@0101=3411 + TAD AI7 / AUTO INDEX REGISTER @@0102=1017 + DCA I AI1 / AUTO INDEX REGISTER @@0103=3411 + TAD C0020 / @@0104=1020 + DCA I AI1 / AUTO INDEX REGISTER @@0105=3411 + TAD D0022 / @@0106=1022 + DCA I D0021 / @@0107=3421 + TAD D0022 / @@0110=1022 +L0111, + DCA D0023 / @@0111=3023 + TAD D0023 / @@0112=1023 + IAC / @@0113=7001 + DCA D0024 / @@0114=3024 + JMP I C0007 / long jump to L0547 @@0115=5407 +L0116, + LAS / @@0116=7604 + RAL / @@0117=7004 + SPA CLA / @@0120=7710 + JMP L0132 / @@0121=5132 + TAD I D0021 / @@0122=1421 + CIA / @@0123=7041 + TAD D0024 / @@0124=1024 + SZA CLA / @@0125=7640 + JMP I C0033 / long jump to L0201 @@0126=5433 + TAD I D0021 / @@0127=1421 + SNA CLA / @@0130=7650 + JMP I C0033 / long jump to L0201 @@0131=5433 +L0132, + LAS / @@0132=7604 + AND C0025 / @@0133=0025 + SNA CLA / @@0134=7650 + JMP L0047 / @@0135=5047 + IAC / @@0136=7001 + TAD D0023 / @@0137=1023 + JMP L0111 / @@0140=5111 +L0141, + LAS / @@0141=7604 + RAL / @@0142=7004 + SPA CLA / @@0143=7710 + JMP L0047 / @@0144=5047 + TAD I D0021 / @@0145=1421 + SZA CLA / @@0146=7640 +C0147, 5434 / JMP I C0034 + JMP L0047 / @@0150=5047 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0151 +/ +/ Called from: +/ 0064 0074 +/ Total 0002 (2) calls +//////////////////////////////////////////////////////////////////////////////// +S0151, + 0 / return area + SPA / @@0152=7510 + JMP L0160 / @@0153=5160 + TAD D0003 / @@0154=1003 + SMA CLA / @@0155=7700 + JMP I S0151 / return @@0156=5551 + JMP L0165 / @@0157=5165 +L0160, + TAD C0006 / @@0160=1006 + SMA CLA / @@0161=7700 + JMP L0165 / @@0162=5165 + JMP I S0151 / return @@0163=5551 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0164 +/ +/ Called from: +/ 0053 0061 0071 +/ Total 0003 (3) calls +//////////////////////////////////////////////////////////////////////////////// +S0164, + 0 / return area +L0165, +D0165, 1014 / TAD AI4 + CLL RAL / @@0166=7104 + SZL / @@0167=7430 + TAD AI5 / AUTO INDEX REGISTER @@0170=1015 + DCA AI4 / AUTO INDEX REGISTER @@0171=3014 + TAD AI4 / AUTO INDEX REGISTER @@0172=1014 + JMP I S0164 / return @@0173=5564 +C0174, 1000 / TAD L0000 +D0175, 0000 / AND L0000 + +*0200 + JMP L0040 / @@0200=5040 +L0201, + TAD C0340 / @@0201=1340 + DCA D0332 / @@0202=3332 + CMA / @@0203=7040 + DCA D0031 / @@0204=3031 + JMP L0210 / @@0205=5210 + TAD C0331 / @@0206=1331 + DCA D0332 / @@0207=3332 +L0210, + TAD D0002 / @@0210=1002 + DCA AI1 / AUTO INDEX REGISTER @@0211=3011 +C0212, 1370 / TAD C0370 + JMS S0342 / @@0213=4342 + TAD D0021 / @@0214=1021 +C0215, 3011 / DCA AI1 + TAD C0371 / @@0216=1371 + JMS S0342 / @@0217=4342 + TAD D0022 / @@0220=1022 + DCA AI1 / AUTO INDEX REGISTER @@0221=3011 + TAD C0372 / @@0222=1372 + JMS S0342 / @@0223=4342 + TAD D0023 / @@0224=1023 + DCA AI1 / AUTO INDEX REGISTER @@0225=3011 + TAD C0373 / @@0226=1373 + JMS S0342 / @@0227=4342 + TAD I D0021 / @@0230=1421 + DCA AI1 / AUTO INDEX REGISTER @@0231=3011 + TAD C0374 / @@0232=1374 + JMS S0342 / @@0233=4342 + IOF / Disable Interrupts @@0234=6002 + TAD C0032 / @@0235=1032 + DCA AI1 / AUTO INDEX REGISTER @@0236=3011 +L0237, + TAD I AI1 / AUTO INDEX REGISTER @@0237=1411 +C0240, 6046 / TLS +L0241, + TSF / Skip if teleprinter flag is a 1. @@0241=6041 + JMP L0241 / @@0242=5241 + TAD AI3 / AUTO INDEX REGISTER @@0243=1013 + SZA CLA / @@0244=7640 + JMP L0237 / @@0245=5237 + TCF / Clear teleprinter flag. @@0246=6042 + ION / Enable Interrupts @@0247=6001 + LAS / @@0250=7604 + SMA CLA / @@0251=7700 + HLT / @@0252=7402 + TAD D0031 / @@0253=1031 + SNA CLA / @@0254=7650 + JMP L0047 / @@0255=5047 + DCA D0031 / @@0256=3031 + JMP L0132 / @@0257=5132 + AND C0306 / @@0260=0306 + AND C0240 / @@0261=0240 + AND L0000 / @@0262=0000 + AND L0000 / @@0263=0000 + AND L0000 / @@0264=0000 + AND L0000 / @@0265=0000 + AND C0240 / @@0266=0240 + AND C0240 / @@0267=0240 + AND C0324 / @@0270=0324 + AND C0240 / @@0271=0240 + AND L0000 / @@0272=0000 + AND L0000 / @@0273=0000 + AND L0000 / @@0274=0000 + AND L0000 / @@0275=0000 + AND C0215 / @@0276=0215 + AND C0212 / @@0277=0212 + AND C0215 / @@0300=0215 + AND C0215 / @@0301=0215 + AND C0317 / @@0302=0317 + AND C0240 / @@0303=0240 + AND L0000 / @@0304=0000 + AND L0000 / @@0305=0000 +C0306, 0000 / AND L0000 + AND L0000 / @@0307=0000 + AND C0240 / @@0310=0240 + AND C0240 / @@0311=0240 + AND C0306 / @@0312=0306 + AND C0240 / @@0313=0240 + AND L0000 / @@0314=0000 + AND L0000 / @@0315=0000 + AND L0000 / @@0316=0000 +C0317, 0000 / AND L0000 + AND C0240 / @@0320=0240 + AND C0240 / @@0321=0240 +C0322, 0322 / AND C0322 +C0323, 0240 / AND C0240 +C0324, 0000 / AND L0000 + AND L0000 / @@0325=0000 + AND L0000 / @@0326=0000 + AND L0000 / @@0327=0000 + AND C0240 / @@0330=0240 +C0331, 0240 / AND C0240 +D0332, 0316 / AND C0316 + AND C0323 / @@0333=0323 + AND C0215 / @@0334=0215 + AND C0212 / @@0335=0212 + AND C0212 / @@0336=0212 +C0337, 0377 / AND C0377 +C0340, 0316 / AND C0316 + AND C0323 / @@0341=0323 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0342 +/ +/ Called from: +/ 0213 0217 0223 0227 0233 +/ Total 0005 (5) calls +//////////////////////////////////////////////////////////////////////////////// +S0342, + 0 / return area + DCA AI2 / AUTO INDEX REGISTER @@0343=3012 + TAD AI1 / AUTO INDEX REGISTER @@0344=1011 + RTL / @@0345=7006 + RTL / @@0346=7006 + JMS S0362 / @@0347=4362 + RTR / @@0350=7012 + RTR / @@0351=7012 + RTR / @@0352=7012 + JMS S0362 / @@0353=4362 + RTR / @@0354=7012 + RAR / @@0355=7010 + JMS S0362 / @@0356=4362 + JMS S0362 / @@0357=4362 + CLA / @@0360=7200 + JMP I S0342 / return @@0361=5742 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0362 +/ +/ Called from: +/ 0347 0353 0356 0357 +/ Total 0004 (4) calls +//////////////////////////////////////////////////////////////////////////////// +S0362, + 0 / return area + AND AI0 / AUTO INDEX REGISTER @@0363=0010 + TAD C0375 / @@0364=1375 + DCA I AI2 / AUTO INDEX REGISTER @@0365=3412 + TAD AI1 / AUTO INDEX REGISTER @@0366=1011 + JMP I S0362 / return @@0367=5762 +C0370, 0261 / AND C0261 +C0371, 0271 / AND C0271 +C0372, 0303 / AND C0303 +C0373, 0313 / AND C0313 +C0374, 0323 / AND C0323 +C0375, 0260 / AND C0260 + +*0400 +L0400, + TAD D0003 / @@0400=1003 + CIA / @@0401=7041 + DCA D0510 / @@0402=3310 + TAD D0003 / @@0403=1003 + CMA / @@0404=7040 + DCA D0511 / @@0405=3311 + TAD C0546 / @@0406=1346 + DCA D0513 / @@0407=3313 + TAD C0514 / @@0410=1314 + DCA L0165 / @@0411=3165 +C0412, 5047 / JMP L0047 + TAD S0164 / @@0413=1164 + CIA / @@0414=7041 +C0415, 1305 / TAD C0505 + SNA CLA / @@0416=7650 + JMP L0503 / @@0417=5303 + TAD S0164 / @@0420=1164 + CIA / @@0421=7041 + TAD C0506 / @@0422=1306 + SNA CLA / @@0423=7650 + JMP L0501 / @@0424=5301 + JMP L0426 / @@0425=5226 +L0426, + TAD I D0513 / @@0426=1713 + DCA D0512 / @@0427=3312 + TAD D0512 / @@0430=1312 + SNA / @@0431=7450 + JMP L0440 / @@0432=5240 + CLA IAC / @@0433=7201 + TAD D0513 / @@0434=1313 + DCA D0513 / @@0435=3313 + TAD D0512 / @@0436=1312 + JMP I S0164 / long jump to L0000 @@0437=5564 +L0440, + TAD C0545 / @@0440=1345 + DCA D0513 / @@0441=3313 + IAC / @@0442=7001 + TAD D0511 / @@0443=1311 + DCA D0511 / @@0444=3311 + TAD D0511 / @@0445=1311 + CIA / @@0446=7041 + TAD D0510 / @@0447=1310 + SZA CLA / @@0450=7640 + JMP L0455 / @@0451=5255 + TAD D0511 / @@0452=1311 + TAD AI5 / AUTO INDEX REGISTER @@0453=1015 + DCA D0511 / @@0454=3311 +L0455, + TAD D0511 / @@0455=1311 + SMA / @@0456=7500 + JMP L0476 / @@0457=5276 + TAD C0006 / @@0460=1006 + SPA CLA / @@0461=7710 + JMP L0476 / @@0462=5276 + CLA IAC / @@0463=7201 + TAD D0510 / @@0464=1310 + DCA D0510 / @@0465=3310 + TAD D0003 / @@0466=1003 + CIA / @@0467=7041 + DCA D0511 / @@0470=3311 + TAD D0510 / @@0471=1310 + TAD C0006 / @@0472=1006 + SPA CLA / @@0473=7710 + JMP L0476 / @@0474=5276 + JMP L0400 / @@0475=5200 +L0476, + CLA / @@0476=7200 + TAD D0512 / @@0477=1312 + JMP I S0164 / long jump to L0000 @@0500=5564 +L0501, + TAD D0511 / @@0501=1311 + JMP I S0164 / long jump to L0000 @@0502=5564 +L0503, +C0503, 1310 / TAD D0510 + JMP I S0164 / long jump to L0000 @@0504=5564 +C0505, 0072 / AND C0072 +C0506, 0062 / AND C0062 + AND C0054 / @@0507=0054 +D0510, 0000 / AND L0000 +D0511, 0000 / AND L0000 +D0512, 0000 / AND L0000 +D0513, 0000 / AND L0000 +C0514, 5435 / JMP I C0035 + SPA SNA SZL CLA OSR HLT / @@0515=7776 +C0516, 7775 / CLA MQA SCA MQL ASR + +C0517, 7773 / CLA MQA SCA MQL SHL + +C0520, 7767 / CLA MQA SCA MQL DVI + +C0521, 7757 / CLA MQA SCA LSR + +C0522, 7737 / CLA MQA MQL LSR + +C0523, 7677 / CLA SCA MQL LSR + +C0524, 7577 / MQA SCA MQL LSR + +C0525, 7377 / CLA CLL CMA CML IAC RTR RTL +C0526, 6777 / 6777 +C0527, 5777 / JMP I C0577 +C0530, 3777 / DCA I C0577 + AND L0001 / @@0531=0001 + AND D0003 / @@0532=0003 + AND C0007 / @@0533=0007 + AND AI7 / AUTO INDEX REGISTER @@0534=0017 + AND C0037 / @@0535=0037 + AND C0077 / @@0536=0077 +C0537, 0177 / AND C0177 +C0540, 0377 / AND C0577 +C0541, 0777 / AND I C0577 +C0542, 1777 / TAD I C0577 +C0543, 3777 / DCA I C0577 + AND L0000 / @@0544=0000 +C0545, 0515 / AND I C0115 +C0546, 0544 / AND I C0144 +L0547, + TAD D0575 / @@0547=1375 + IAC / @@0550=7001 + DCA D0575 / @@0551=3375 + TAD D0575 / @@0552=1375 + SZA CLA / @@0553=7640 + JMP I C0037 / long jump to L0600 @@0554=5437 + TAD D0175 / @@0555=1175 + TAD C0174 / @@0556=1174 + DCA D0175 / @@0557=3175 + TAD D0175 / @@0560=1175 + SZA CLA / @@0561=7640 + JMP I C0037 / long jump to L0600 @@0562=5437 + IOF / Disable Interrupts @@0563=6002 + TAD C0576 / @@0564=1376 + DCA AI1 / AUTO INDEX REGISTER @@0565=3011 + JMP I C0567 / long jump to L7602 @@0566=5767 +C0567, +C0567, 7602 / CLA HLT + AND C0415 / @@0570=0215 + AND C0412 / @@0571=0212 + AND C0506 / @@0572=0306 + AND L0503 / @@0573=0303 +C0574, 0377 / AND C0577 +D0575, 0000 / AND L0000 +C0576, 0567 / AND I C0167 + +*0600 +L0600, + TAD D0021 / @@0600=1021 + CIA / @@0601=7041 + TAD D0002 / @@0602=1002 + SNA / @@0603=7450 + JMP L0055 / @@0604=5055 + IAC / @@0605=7001 + SNA / @@0606=7450 + JMP L0055 / @@0607=5055 + IAC / @@0610=7001 + SNA CLA / @@0611=7650 + JMP L0055 / @@0612=5055 + JMP I D0002 / long jump to L0002 @@0613=5402 +C0614, +C0614, 0000 / AND L0000 + DCA L0000 / @@0615=3000 + TAD C0632 / @@0616=1232 + DCA L0001 / @@0617=3001 + TAD C0633 / @@0620=1233 + DCA D0002 / @@0621=3002 + TAD C0634 / @@0622=1234 + DCA D0003 / @@0623=3003 + TAD C0635 / @@0624=1235 + DCA L0040 / @@0625=3040 + TAD C0636 / @@0626=1236 + DCA D0041 / @@0627=3041 + ION / Enable Interrupts @@0630=6001 + JMP I C0614 / long jump to L0000 @@0631=5614 +C0632, 7402 / HLT +C0633, 0000 / AND L0000 +C0634, 7157 / CLL CMA IAC RTR RTL +C0635, 6001 / ION +C0636, 7604 / LAS + +*7602 +L7602, + TAD I AI1 / AUTO INDEX REGISTER @@7602=1411 + TLS / Load the TTO from the content of AC4 @@7603=6046 +L7604, + TSF / Skip if teleprinter flag is a 1. @@7604=6041 + JMP L7604 / @@7605=5204 + TAD AI3 / AUTO INDEX REGISTER @@7606=1013 + SZA CLA / @@7607=7640 + JMP L7602 / @@7610=5202 + JMP L7617 / @@7611=5217 + +*7617 +L7617, + TCF / Clear teleprinter flag. @@7617=6042 + ION / Enable Interrupts @@7620=6001 + JMP I C0037 / long jump to L0600 @@7621=5437 + +$ diff --git a/PDP8/tests/diags/maindec-8e-d0fc-pb.pdf b/PDP8/tests/diags/maindec-8e-d0fc-pb.pdf new file mode 100644 index 00000000..f12e3c78 Binary files /dev/null and b/PDP8/tests/diags/maindec-8e-d0fc-pb.pdf differ diff --git a/PDP8/tests/diags/maindec-8e-d0gc-pb.bin b/PDP8/tests/diags/maindec-8e-d0gc-pb.bin new file mode 100644 index 00000000..759925c3 Binary files /dev/null and b/PDP8/tests/diags/maindec-8e-d0gc-pb.bin differ diff --git a/PDP8/tests/diags/maindec-8e-d0gc-pb.pal b/PDP8/tests/diags/maindec-8e-d0gc-pb.pal new file mode 100644 index 00000000..485ac626 --- /dev/null +++ b/PDP8/tests/diags/maindec-8e-d0gc-pb.pal @@ -0,0 +1,376 @@ +TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d0gc-pb.bin BY D8TAPE" +//////////////////////////////////////////////////////////////////////////////// +/ +/ Automatic Disassembly of maindec-8e-d0gc-pb.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 +/ +/ 0405 locations used, 0324 code and 0061 data +//////////////////////////////////////////////////////////////////////////////// + +*0200 + +*0000 +L0000, +C0000, 0000 / AND L0000 +L0001, +C0001, 5001 / JMP L0001 +C0002, 0002 / AND C0002 +C0003, 0003 / AND C0003 + AND L0000 / @@0004=0000 + AND L0000 / @@0005=0000 +D0006, 7771 / CLA MQA SCA MQL NMI +C0007, +C0007, 0400 / AND I L0000 +AI0, 0000 / AUTO-INDEX REGISTER AND L0000 +AI1, 0000 / AUTO-INDEX REGISTER AND L0000 +AI2, 0300 / AUTO-INDEX REGISTER AND C0100 +AI3, 0207 / AUTO-INDEX REGISTER AND C0007 +AI4, 0003 / AUTO-INDEX REGISTER AND C0003 + +*0020 +L0020, + TAD C0175 / @@0020=1175 + DCA AI0 / AUTO INDEX REGISTER @@0021=3010 +L0022, + DCA I AI0 / AUTO INDEX REGISTER @@0022=3410 + TAD AI0 / AUTO INDEX REGISTER @@0023=1010 + CIA / @@0024=7041 + TAD C0174 / @@0025=1174 + SZA CLA / @@0026=7640 + JMP L0022 / @@0027=5022 +L0030, + LAS / @@0030=7604 + RTL / @@0031=7006 + SPA / @@0032=7510 + JMP L0052 / @@0033=5052 +L0034, + JMS S0154 / @@0034=4154 + DCA D0167 / @@0035=3167 + TAD D0167 / @@0036=1167 + SPA / @@0037=7510 + JMP L0046 / @@0040=5046 + CIA / @@0041=7041 + TAD C0175 / @@0042=1175 + SPA CLA / @@0043=7710 + JMP L0052 / @@0044=5052 + JMP L0034 / @@0045=5034 +L0046, + CIA / @@0046=7041 + TAD C0174 / @@0047=1174 + SPA CLA / @@0050=7710 + JMP L0034 / @@0051=5034 +L0052, + LAS / @@0052=7604 + RTL / @@0053=7006 + RAL / @@0054=7004 + SPA / @@0055=7510 + JMP L0075 / @@0056=5075 +L0057, + JMS S0154 / @@0057=4154 + DCA D0166 / @@0060=3166 + TAD D0166 / @@0061=1166 + SPA / @@0062=7510 + JMP L0071 / @@0063=5071 + CIA / @@0064=7041 + TAD C0175 / @@0065=1175 + SPA CLA / @@0066=7710 + JMP L0075 / @@0067=5075 + JMP L0057 / @@0070=5057 +L0071, + CIA / @@0071=7041 + TAD C0174 / @@0072=1174 + SPA CLA / @@0073=7710 + JMP L0057 / @@0074=5057 +L0075, + LAS / @@0075=7604 + RTL / @@0076=7006 + RTL / @@0077=7006 +C0100, 7710 / SPA CLA + JMP L0104 / @@0101=5104 + JMS S0154 / @@0102=4154 + DCA D0170 / @@0103=3170 +L0104, + TAD D0167 / @@0104=1167 + CIA / @@0105=7041 + TAD D0166 / @@0106=1166 + SNA / @@0107=7450 + JMP L0030 / @@0110=5030 + CIA / @@0111=7041 + CMA / @@0112=7040 + SNA CLA / @@0113=7650 + JMP L0030 / @@0114=5030 + TAD C0171 / @@0115=1171 + DCA I D0167 / @@0116=3567 + TAD D0167 / @@0117=1167 + IAC / @@0120=7001 + DCA D0173 / @@0121=3173 + TAD C0172 / @@0122=1172 + DCA I D0173 / @@0123=3573 + TAD D0170 / @@0124=1170 + NOP / @@0125=7000 + JMP I D0167 / long jump to L3001 @@0126=5567 + HLT / @@0127=7402 + TAD I D0166 / @@0130=1566 + CIA / @@0131=7041 + TAD D0170 / @@0132=1170 + SZA CLA / @@0133=7640 + JMS I C0177 / long call to S0201 @@0134=4577 + DCA I D0166 / @@0135=3566 + DCA I D0167 / @@0136=3567 + DCA I D0173 / @@0137=3573 + TAD AI1 / AUTO INDEX REGISTER @@0140=1011 + IAC / @@0141=7001 + DCA AI1 / AUTO INDEX REGISTER @@0142=3011 + TAD AI1 / AUTO INDEX REGISTER @@0143=1011 + TAD AI2 / AUTO INDEX REGISTER @@0144=1012 + SZA CLA / @@0145=7640 + JMP L0030 / @@0146=5030 + DCA AI1 / AUTO INDEX REGISTER @@0147=3011 + ISZ D0006 / @@0150=2006 + JMP L0030 / @@0151=5030 + JMS I C0007 / long call to S0400 @@0152=4407 + JMP L0030 / @@0153=5030 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0154 +/ +/ Called from: +/ 0034 0057 0102 +/ Total 0003 (3) calls +//////////////////////////////////////////////////////////////////////////////// +S0154, + 0 / return area + CLA / @@0155=7200 + TAD D0165 / @@0156=1165 + CLL RAL / @@0157=7104 + SZL / @@0160=7430 + TAD AI4 / AUTO INDEX REGISTER @@0161=1014 + DCA D0165 / @@0162=3165 + TAD D0165 / @@0163=1165 + JMP I S0154 / return @@0164=5554 +D0165, 2525 / ISZ I C0125 +D0166, 3000 / DCA L0000 +D0167, 3001 / DCA L0001 +D0170, 2525 / ISZ I C0125 +C0171, 3566 / DCA I D0166 +C0172, 5130 / JMP C0130 +D0173, 3002 / DCA C0002 +C0174, 7600 / 7600 +C0175, 0410 / AND I AI0 +D0176, 0000 / AND L0000 +C0177, +C0177, 0201 / AND L0001 + +*0200 + JMP L0020 / @@0200=5020 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0201 +/ +/ Called from: +/ 0134 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S0201, + 0 / return area + LAS / @@0202=7604 + RAL / @@0203=7004 + SPA CLA / @@0204=7710 + JMP I S0201 / return @@0205=5601 + JMS S0265 / @@0206=4265 + TAD C0175 / @@0207=1175 + DCA AI0 / AUTO INDEX REGISTER @@0210=3010 +L0211, + TAD I AI0 / AUTO INDEX REGISTER @@0211=1410 + SZA CLA / @@0212=7640 + JMS S0233 / @@0213=4233 + TAD AI0 / AUTO INDEX REGISTER @@0214=1010 + CIA / @@0215=7041 + TAD C0174 / @@0216=1174 + SZA CLA / @@0217=7640 + JMP L0211 / @@0220=5211 + TAD C0374 / @@0221=1374 + JMS S0351 / @@0222=4351 + TAD C0375 / @@0223=1375 + JMS S0351 / @@0224=4351 + TAD C0376 / @@0225=1376 + JMS S0351 / @@0226=4351 + LAS / @@0227=7604 + SMA CLA / @@0230=7700 + HLT / @@0231=7402 + JMP I S0201 / return @@0232=5601 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0233 +/ +/ Called from: +/ 0213 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S0233, + 0 / return area + TAD AI0 / AUTO INDEX REGISTER @@0234=1010 + CIA / @@0235=7041 + TAD D0167 / @@0236=1167 + SNA CLA / @@0237=7650 + JMP I S0233 / return @@0240=5633 + TAD AI0 / AUTO INDEX REGISTER @@0241=1010 + CIA / @@0242=7041 + TAD D0173 / @@0243=1173 + SNA CLA / @@0244=7650 + JMP I S0233 / return @@0245=5633 + TAD C0372 / @@0246=1372 + JMS S0351 / @@0247=4351 + TAD AI0 / AUTO INDEX REGISTER @@0250=1010 +C0251, 4310 / JMS L0310 + TAD AI0 / AUTO INDEX REGISTER @@0252=1010 + DCA D0176 / @@0253=3176 + TAD C0373 / @@0254=1373 + JMS S0351 / @@0255=4351 + TAD I D0176 / @@0256=1576 +C0257, 4310 / JMS L0310 + TAD C0375 / @@0260=1375 + JMS S0351 / @@0261=4351 + TAD C0376 / @@0262=1376 + JMS S0351 / @@0263=4351 + JMP I S0233 / return @@0264=5633 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0265 +/ +/ Called from: +/ 0206 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S0265, + 0 / return area + CLA / @@0266=7200 + TAD C0367 / @@0267=1367 + JMS S0351 / @@0270=4351 + TAD D0167 / @@0271=1167 +C0272, 4310 / JMS L0310 + TAD C0371 / @@0273=1371 + JMS S0351 / @@0274=4351 + TAD D0166 / @@0275=1166 +C0276, 4310 / JMS L0310 + TAD C0377 / @@0277=1377 + JMS S0351 / @@0300=4351 + TAD D0170 / @@0301=1170 +C0302, 4310 / JMS L0310 + TAD C0375 / @@0303=1375 + JMS S0351 / @@0304=4351 + TAD C0376 / @@0305=1376 + JMS S0351 / @@0306=4351 + JMP I S0265 / return @@0307=5665 +L0310, +C0310, +C0310, 5310 / JMP L0310 + DCA D0366 / @@0311=3366 + TAD D0366 / @@0312=1366 + RTR / @@0313=7012 + RAR / @@0314=7010 + DCA D0365 / @@0315=3365 + TAD D0365 / @@0316=1365 + RTR / @@0317=7012 + RAR / @@0320=7010 + DCA D0364 / @@0321=3364 + TAD D0364 / @@0322=1364 + RTR / @@0323=7012 + RAR / @@0324=7010 + DCA D0363 / @@0325=3363 + TAD C0370 / @@0326=1370 + JMS S0351 / @@0327=4351 + TAD C0357 / @@0330=1357 + DCA D0360 / @@0331=3360 +L0332, + TAD D0363 / @@0332=1363 + AND C0361 / @@0333=0361 + TAD C0362 / @@0334=1362 + JMS S0351 / @@0335=4351 + TAD D0364 / @@0336=1364 + DCA D0363 / @@0337=3363 + TAD D0365 / @@0340=1365 + DCA D0364 / @@0341=3364 + TAD D0366 / @@0342=1366 + DCA D0365 / @@0343=3365 + ISZ D0360 / @@0344=2360 + JMP L0332 / @@0345=5332 + TAD C0370 / @@0346=1370 + JMS S0351 / @@0347=4351 + JMP I L0310 / long jump to L5310 @@0350=5710 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0351 +/ +/ Called from: +/ 0222 0224 0226 0247 0255 0261 0263 0270 0274 0300 0304 0306 0327 0335 0347 +/ +/ Total 0017 (15) calls +//////////////////////////////////////////////////////////////////////////////// +S0351, + 0 / return area + TLS / Load the TTO from the content of AC4 @@0352=6046 +L0353, + TSF / Skip if teleprinter flag is a 1. @@0353=6041 + JMP L0353 / @@0354=5353 + CLA / @@0355=7200 + JMP I S0351 / return @@0356=5751 +C0357, 7774 / SPA SNA SZL CLA OSR +D0360, 0000 / AND L0000 +C0361, 0007 / AND C0007 +C0362, 0260 / AND C0260 +D0363, 0000 / AND L0000 +D0364, 0000 / AND L0000 +D0365, 0000 / AND L0000 +D0366, 0000 / AND L0000 +C0367, 0306 / AND C0306 +C0370, 0240 / AND C0240 +C0371, 0301 / AND C0301 +C0372, 0314 / AND C0314 +C0373, 0303 / AND C0303 +C0374, 0305 / AND C0305 +C0375, 0215 / AND C0215 +C0376, 0212 / AND C0212 +C0377, 0317 / AND C0317 + +*0400 + +//////////////////////////////////////////////////////////////////////////////// +/ +/ SUBROUTINE: S0400 +/ +/ Called from: +/ 0152 +/ Total 0001 (1) calls +//////////////////////////////////////////////////////////////////////////////// +S0400, + 0 / return area + TAD C0407 / @@0401=1207 + DCA D0006 / @@0402=3006 + TAD AI3 / AUTO INDEX REGISTER @@0403=1013 + TLS / Load the TTO from the content of AC4 @@0404=6046 + CLA / @@0405=7200 + JMP I S0400 / return @@0406=5600 +C0407, 7771 / CLA MQA SCA MQL NMI + +$ diff --git a/PDP8/tests/diags/maindec-8e-d0gc-pb.pdf b/PDP8/tests/diags/maindec-8e-d0gc-pb.pdf new file mode 100644 index 00000000..088ff91f Binary files /dev/null and b/PDP8/tests/diags/maindec-8e-d0gc-pb.pdf differ diff --git a/PDP8/tests/pdp8_test.ini b/PDP8/tests/pdp8_test.ini new file mode 100644 index 00000000..942662e0 --- /dev/null +++ b/PDP8/tests/pdp8_test.ini @@ -0,0 +1,92 @@ +:: pdp8_test.ini +:: +:: Run the paper tape-based diagnostics for the PDP-8 simulator. +:: +:: Maximum memory, extended address element: +set cpu 32k +set cpu eae +:: Script is where the diagnostics ought to reside as well. +cd %~p0 + +:: AND, TAD, Operate and basic MQ instruction test (D0AB) +echof -n "** PDP-8: Basic Instruction Test (1): " +load diags/maindec-8e-d0ab-pb.bin +dep sr 07777 +go -q 200 +if (PC != 0147 || AC != 0) echof "MAINDEC-8/E-D0AB failed."; exit 1 +echof "passed" + +:: Autoindexing, Indirect addressing, and the DCA instruction with +:: "minimal" testing for interrupt, AND, TAD, ISZ, JMS, JMP and +:: processor IOT instructions. +echof -n "** PDP-8: Basic Instruction Test (2): " +load diags/maindec-8e-d0bb-pb.bin +:: Patch address 3740 with HLT, otherwise the test will loop every +:: 1550 iterations and send BEL to the TTY. We really do want the +:: test to halt. +dep 3740 7402 +dep sr 0 +go -q 200 +if (PC != 03741) echof "MAINDEC-8/E-D0BB failed."; exit 1 +echof "passed" + +:: The ADDER test +echof "** PDP-8: Adder tests: " +load diags/maindec-8e-d0cc-pb.bin +:: Patch address 4561 with HLT. Test loops between SIMAD, SIMROT, FCT and +:: RANDOM, ad infinitum. We really want the test to halt. +dep 4561 7402 +:: And ask the tests to be quiet, test extended (banked) memory. +dep sr 0200 +go -q 200 +if (PC != 04622) echof "MAINDEC-8/E-D0CC failed."; exit 1 +echof +echof "** PDP-8: Adder test passed." + +:: Random AND tests +echof -n "** PDP-8: Random AND test: " +load diags/maindec-8e-d0db-pb.bin +:: Halt after one 4096 loop pass, suppress output +dep sr 02400 +go -q 200 +if (PC != 00355) echof "MAINDEC-8/E-D0DB failed."; exit 1 +echof "passed." + +:: Random TAD tests +echof -n "** PDP-8: Random TAD test: " +load diags/maindec-8e-d0eb-pb.bin +:: Patch 6743 with HLT to stop the test after 4096 iterations. Would +:: normally output a "T" until machine halted. +dep 6743 7402 +:: Suppress output +dep sr 00400 +go -q 200 +if (PC != 06744) echof "MAINDEC-8/E-D0EB failed."; exit 1 +echof "passed." + +:: Random ISZ tests +:: Bit more of a challenge: cant just put a HLT instruction to +:: terminate the test loop. And cant squelch the output either. +if (SIM_REGEX_TYPE == "") echof "Missing Regular Expression support - skipping Random ISZ test\n"; goto ISZ_DONE +echof "** PDP-8: Random ISZ test: " +load diags/maindec-8e-d0fc-pb.bin +dep sr 0 +expect -r [25] "\r\nFC" echof; echof "** PDP-8: Random ISZ test: passed." +expect -r "F [0-7]{4}" echof; echof "** PDP-8: Random ISZ test: MAINDEC-8/E-D0FC failed."; exit 1 +go -q 200 +:ISZ_DONE + +:: Random DCA tests +echof -n "** PDP-8: Random DCA test: " +load diags/maindec-8e-d0gc-pb.bin +:: Patch 0404 with HLT to stop the test after 28,328 iterations (one complete pass) +dep 0404 7402 +dep sr 0 +go -q 200 +if (PC != 0405) echof "MAINDEC-8/E-D0GC failed."; exit 1 +echof "passed." + +echof +echof "!! All Tests Passed !!" +echof +exit 0