TITLE "AUTOMATIC DISASSEMBLY OF maindec-12-d3ac-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-12-d3ac-pb.bin / Generated 2010 02 19 00:10:28 / Generated by d8tape version 0.351 / Visit http://www.pdp12.org/pdp8/software/index.html for updates / / Symbol format: / AIx -- Auto-index variables (address range 001x) / Caaaa -- Constants (non-unique) / Daaaa -- Data (read/write variables) / Kvvvv -- Program-wide unique constants / Laaaa -- Labels for control flow targets / Saaaa -- Subroutines / / Where: / aaaa is the definition address / vvvv is the value of the constant / x is the last digit of the address 001x for auto-index variables / / 5621 locations used, 4242 code and 1357 data //////////////////////////////////////////////////////////////////////////////// *0001 C0001, C0001, 5021 / JMP L0021 C0002, 3000 / DCA L0000 C0003, 7000 / NOP D0004, 0000 / AND L0000 D0005, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0006 / / Called from: / 5636 5701 6002 6167 6323 6746 6773 7022 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S0006, 0 / return area D0007, 0000 / AND L0000 AI0, 0000 / AUTO-INDEX REGISTER AND L0000 L0011, AI1, 0000 / AUTO-INDEX REGISTER AND L0000 AI2, 0000 / AUTO-INDEX REGISTER AND L0000 AI3, 4040 / AUTO-INDEX REGISTER JMS D0040 L0014, AI4, 0017 / AUTO-INDEX REGISTER AND AI7 AI5, 3600 / AUTO-INDEX REGISTER DCA I L0000 AI6, 6400 / AUTO-INDEX REGISTER 6400 AI7, 0013 / AUTO-INDEX REGISTER AND AI3 L0020, C0020, 5177 / JMP L0177 L0021, C0021, C0021, 4700 / JMS I C0100 D0022, 5200 / JMP L0000 C0023, C0023, 5254 / JMP L0054 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0024 / / Called from: / 0235 0260 0371 1304 1556 2074 2125 2157 2444 2764 2765 3107 3342 3364 3454 / 3554 3557 3577 5576 5675 5725 6021 6051 6067 6141 6153 6164 6205 6241 6334 / 6447 6741 7020 / Total 0041 (33) calls //////////////////////////////////////////////////////////////////////////////// S0024, 0 / return area C0025, 7330 / CLA CLL CML RAR L0026, C0026, 6152 / 6152 C0027, 7200 / CLA JMP I S0024 / return @@0030=5424 C0031, 0700 / AND I C0100 C0032, 5400 / JMP I L0000 C0033, 0014 / AND L4 C0034, 1400 / TAD I L0000 C0035, 3700 / DCA I C0100 C0036, 6700 / KCLR C0037, 7400 / D0040, 4420 / JMS I L0020 C0041, 7700 / SMA CLA C0042, C0042, 5221 / JMP L0021 AND C0036 / @@0043=0036 AND L0021 / @@0044=0021 AND C0033 / @@0045=0033 D0046, 0000 / AND L0000 D0047, 0000 / AND L0000 C0050, 7770 / SPA SNA SZL CLA C0051, 2000 / ISZ L0000 L0052, C0052, 7600 / 7600 C0053, 4400 / JMS I L0000 L0054, C0054, 5000 / JMP L0000 C0055, 0240 / AND D0040 C0056, 1026 / TAD L0026 D0057, 0077 / AND C0077 C0060, 0010 / AND AI0 L0061, C0061, 7760 / SMA SZA SNL CLA C0062, 6000 / 6000 C0063, 0004 / AND D0004 C0064, 0400 / AND I L0000 D0065, 1000 / TAD L0000 D0066, 3400 / DCA I L0000 C0067, 0012 / AND AI2 C0070, C0070, 0020 / AND L0020 C0071, 0040 / AND D0040 C0072, 0100 / AND C0100 C0073, 0200 / AND L0000 C0074, 0015 / AND AI5 D0075, 0177 / AND L0177 C0076, 7776 / SPA SNA SZL CLA OSR HLT C0077, 7761 / CLA MQA SCA MQL C0100, 7773 / CLA MQA SCA MQL SHL + C0101, C0101, 5460 / JMP I C0060 C0102, 0706 / AND I D0106 C0103, C0103, 5471 / JMP I C0071 C0104, 0003 / AND C0003 AND C0037 / @@0105=0037 D0106, 5000 / JMP L0000 D0107, 0000 / AND L0000 C0110, 0007 / AND D0007 C0111, C0111, 5467 / JMP I C0067 C0112, C0112, 5470 / JMP I C0070 C0113, C0113, 5421 / JMP I L0021 C0114, C0114, 5433 / JMP I C0033 C0115, 7740 / SMA SZA CLA C0116, 5400 / JMP I L0000 C0117, 5406 / JMP I S0006 D0120, 7777 / CLA MQA SCA MQL LSR + C0121, 0001 / AND C0001 C0122, 0002 / AND C0002 C0123, 0137 / AND C0137 C0124, 0031 / AND C0031 D0125, 0016 / AND AI6 C0126, 0000 / AND L0000 C0127, 4440 / JMS I D0040 D0130, 7774 / SPA SNA SZL CLA OSR AND C0023 / @@0131=0023 C0132, C0132, 6040 / 6040 AND C0060 / @@0133=0060 C0134, 7767 / CLA MQA SCA MQL DVI + C0135, 7765 / CLA MQA SCA MQL MUY + C0136, 7762 / SMA SZA SNL CLA HLT C0137, 0000 / AND L0000 L0140, D0140, 5211 / JMP L1 C0141, 0006 / AND S0006 C0142, C0142, 5447 / JMP I D0047 C0143, 6060 / 6060 C0144, C0144, 5406 / JMP I S0006 C0145, C0145, 2120 / ISZ D0120 C0146, 5252 / JMP L0052 C0147, 4100 / JMS C0100 D0150, 2400 / ISZ I L0000 C0151, 7356 / CLA CLL CMA RTR RTL *0177 L0177, C0177, 4540 / JMS I L0140 DCA D0046 / @@0200=3046 C0201, 1004 / TAD D0004 AND C0071 / @@0202=0071 DCA D0005 / @@0203=3005 TAD D0005 / @@0204=1005 C0205, 6141 / 6141 AND C0001 / @@0206=0001 AND L1 / @@0207=0011 AND L0021 / @@0210=0021 AND C0002 / @@0211=0002 AND C0071 / @@0212=0071 DCA S0006 / @@0213=3006 TAD S0006 / @@0214=1006 CIA / @@0215=7041 TAD D0005 / @@0216=1005 SNA CLA / @@0217=7650 JMS I D0106 / long call to S5000 @@0220=4506 JMS I C0001 / long call to S5021 @@0221=4401 JMP I C0372 / long jump to L1004 @@0222=5772 HLT / @@0223=7402 SKP / @@0224=7410 AND C0201 / @@0225=0201 C0226, 1004 / TAD D0004 AND C0071 / @@0227=0071 DCA D0005 / @@0230=3005 TAD D0005 / @@0231=1005 C0232, 6141 / 6141 AND C0001 / @@0233=0001 AND C0002 / @@0234=0002 JMS S0024 / @@0235=4024 C0236, 6141 / 6141 AND L0021 / @@0237=0021 AND C0002 / @@0240=0002 AND C0071 / @@0241=0071 DCA S0006 / @@0242=3006 TAD S0006 / @@0243=1006 SNA CLA / @@0244=7650 JMS I D0106 / long call to S5000 @@0245=4506 JMS I C0001 / long call to S5021 @@0246=4401 RSF / Skip if reader flag is a 1. @@0247=6011 HLT / @@0250=7402 SKP / @@0251=7410 AND C0226 / @@0252=0226 C0253, 1004 / TAD D0004 AND C0037 / @@0254=0037 DCA D0005 / @@0255=3005 TAD D0005 / @@0256=1005 C0257, 6151 / 6151 JMS S0024 / @@0260=4024 TAD D0004 / @@0261=1004 C0262, 6154 / 6154 CLA CLL / AC = 0000 @@0263=7300 TAD C0002 / @@0264=1002 C0265, 6151 / 6151 CLA / @@0266=7200 C0267, 6154 / 6154 DCA S0006 / @@0270=3006 TAD S0006 / @@0271=1006 CIA / @@0272=7041 TAD D0004 / @@0273=1004 SNA CLA / @@0274=7650 JMS I D0106 / long call to S5000 @@0275=4506 JMS I C0001 / long call to S5021 @@0276=4401 JMP I C0316 / long jump to L7300 @@0277=5716 HLT / @@0300=7402 SKP / @@0301=7410 AND C0253 / @@0302=0253 C0303, 1071 / TAD C0071 C0304, 6141 / 6141 AND C0001 / @@0305=0001 AND C0002 / @@0306=0002 CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@0307=7330 LDAD / (AA05/AA07) The address register in @@0310=6552 C0311, 6150 / 6150 LDAD / (AA05/AA07) The address register in @@0312=6552 C0313, 6150 / 6150 LDAD / (AA05/AA07) The address register in @@0314=6552 C0315, 6150 / 6150 C0316, C0316, 7300 / CLA CLL C0317, 6152 / 6152 C0320, 6141 / 6141 AND L0021 / @@0321=0021 AND C0002 / @@0322=0002 AND C0071 / @@0323=0071 DCA D0005 / @@0324=3005 TAD D0005 / @@0325=1005 CIA / @@0326=7041 TAD C0071 / @@0327=1071 SNA CLA / @@0330=7650 JMS I D0106 / long call to S5000 @@0331=4506 JMS I C0001 / long call to S5021 @@0332=4401 KRS / Read keyboard buffer static. This is @@0333=6034 HLT / @@0334=7402 SKP CLA / @@0335=7610 AND C0303 / @@0336=0303 C0337, 4024 / JMS S0024 TAD C0146 / @@0340=1146 C0341, 6154 / 6154 STA / AC = 7777 (-0001) @@0342=7240 C0343, 6554 / 6554 C0344, 6150 / 6150 C0345, 6554 / 6554 C0346, 6150 / 6150 C0347, 6554 / 6554 C0350, 6150 / 6150 CLA CLL / AC = 0000 @@0351=7300 TAD C0002 / @@0352=1002 C0353, 6151 / 6151 CLA CLL / AC = 0000 @@0354=7300 C0355, 6154 / 6154 C0356, C0356, 3005 / DCA D0005 TAD D0005 / @@0357=1005 CIA / @@0360=7041 TAD C0146 / @@0361=1146 SNA CLA / @@0362=7650 JMS I D0106 / long call to S5000 @@0363=4506 JMS I C0001 / long call to S5021 @@0364=4401 JMP I C0356 / long jump to L3005 @@0365=5756 HLT / @@0366=7402 SKP / @@0367=7410 AND C0337 / @@0370=0337 JMS S0024 / @@0371=4024 C0372, C0372, 1004 / TAD D0004 AND C0037 / @@0373=0037 DAL1 / (AA01A) The character in the accumul @@0374=6551 C0375, 6351 / 6351 DCX / Clear X coordinate buffer @@0376=6051 MKSF / Skip the next instruction if the key @@0377=6111 C0400, 6171 / 6171 C0401, 6141 / 6141 AND C0002 / @@0402=0002 C0403, 6150 / 6150 CLA CLL / AC = 0000 @@0404=7300 C0405, 1004 / TAD D0004 C0406, 6154 / 6154 CLA CLL / AC = 0000 @@0407=7300 TAD C0002 / @@0410=1002 C0411, 6151 / 6151 CLA / @@0412=7200 C0413, 6154 / 6154 DCA D0005 / @@0414=3005 TAD D0005 / @@0415=1005 CIA / @@0416=7041 TAD D0004 / @@0417=1004 SNA CLA / @@0420=7650 JMS I D0106 / long call to S5000 @@0421=4506 JMS I C0001 / long call to S5021 @@0422=4401 JMP I C0541 / long jump to L7300 @@0423=5741 HLT / @@0424=7402 SKP / @@0425=7410 AND C0571 / @@0426=0371 C0427, 6151 / 6151 TAD D0004 / @@0430=1004 DCA D0005 / @@0431=3005 TAD D0005 / @@0432=1005 C0433, 6154 / 6154 CLA CLL / AC = 0000 @@0434=7300 TAD C0002 / @@0435=1002 C0436, 6151 / 6151 CLA CLL / AC = 0000 @@0437=7300 C0440, 6154 / 6154 DCA S0006 / @@0441=3006 TAD S0006 / @@0442=1006 CIA / @@0443=7041 TAD D0005 / @@0444=1005 SNA CLA / @@0445=7650 JMS I D0106 / long call to S5000 @@0446=4506 JMS I C0001 / long call to S5021 @@0447=4401 C0450, 6162 / 6162 HLT / @@0451=7402 SKP CLA / @@0452=7610 AND I C0027 / @@0453=0427 C0454, 6151 / 6151 JMS I C0042 / long call to S5221 @@0455=4442 DCA D0005 / @@0456=3005 TAD D0005 / @@0457=1005 C0460, 6154 / 6154 CLA CLL / AC = 0000 @@0461=7300 TAD C0002 / @@0462=1002 C0463, 6151 / 6151 CLA CLL / AC = 0000 @@0464=7300 C0465, 6154 / 6154 DCA S0006 / @@0466=3006 TAD S0006 / @@0467=1006 CIA / @@0470=7041 TAD D0005 / @@0471=1005 SNA CLA / @@0472=7650 JMS I D0106 / long call to S5000 @@0473=4506 JMS I C0001 / long call to S5021 @@0474=4401 C0475, 6162 / 6162 HLT / @@0476=7402 SKP CLA / @@0477=7610 AND I L0054 / @@0500=0454 TAD C0064 / @@0501=1064 C0502, 6151 / 6151 CLA CLL / AC = 0000 @@0503=7300 TAD D0004 / @@0504=1004 DCA D0005 / @@0505=3005 TAD D0005 / @@0506=1005 C0507, 6154 / 6154 CLA CLL / AC = 0000 @@0510=7300 TAD D0150 / @@0511=1150 C0512, 6151 / 6151 CLA / @@0513=7200 C0514, 6154 / 6154 DCA S0006 / @@0515=3006 TAD S0006 / @@0516=1006 CIA / @@0517=7041 TAD D0005 / @@0520=1005 SNA CLA / @@0521=7650 JMS I D0106 / long call to S5000 @@0522=4506 JMS I C0001 / long call to S5021 @@0523=4401 CECI / All clock control flip-flops are cle @@0524=6137 HLT / @@0525=7402 SKP CLA / @@0526=7610 AND I C0101 / @@0527=0501 TAD C0064 / @@0530=1064 C0531, 6151 / 6151 JMS I C0042 / long call to S5221 @@0532=4442 DCA D0005 / @@0533=3005 TAD D0005 / @@0534=1005 C0535, 6154 / 6154 CLA CLL / AC = 0000 @@0536=7300 TAD D0150 / @@0537=1150 C0540, 6151 / 6151 C0541, C0541, 7300 / CLA CLL C0542, 6154 / 6154 DCA S0006 / @@0543=3006 TAD S0006 / @@0544=1006 CIA / @@0545=7041 TAD D0005 / @@0546=1005 SNA CLA / @@0547=7650 JMS I D0106 / long call to S5000 @@0550=4506 JMS I C0001 / long call to S5021 @@0551=4401 CECI / All clock control flip-flops are cle @@0552=6137 HLT / @@0553=7402 SKP CLA / @@0554=7610 AND I D0130 / @@0555=0530 TAD D0065 / @@0556=1065 C0557, 6151 / 6151 CLA / @@0560=7200 TAD D0004 / @@0561=1004 C0562, 6154 / 6154 CLA / @@0563=7200 C0564, 6141 / 6141 AND C0003 / @@0565=0003 AND C0002 / @@0566=0002 DCA D0005 / @@0567=3005 TAD D0005 / @@0570=1005 C0571, 7041 / CIA TAD D0004 / @@0572=1004 SNA CLA / @@0573=7650 JMS I D0106 / long call to S5000 @@0574=4506 JMS I C0001 / long call to S5021 @@0575=4401 C0576, 6203 / 6203 HLT / @@0577=7402 SKP CLA / @@0600=7610 C0601, 0556 / AND I C0156 C0602, 1065 / TAD D0065 C0603, 6151 / 6151 JMS I C0042 / long call to S5221 @@0604=4442 DCA D0005 / @@0605=3005 TAD D0005 / @@0606=1005 C0607, 6154 / 6154 C0610, 6141 / 6141 AND C0003 / @@0611=0003 AND C0002 / @@0612=0002 DCA S0006 / @@0613=3006 TAD S0006 / @@0614=1006 CIA / @@0615=7041 TAD D0005 / @@0616=1005 SNA CLA / @@0617=7650 JMS I D0106 / long call to S5000 @@0620=4506 JMS I C0001 / long call to S5021 @@0621=4401 C0622, 6203 / 6203 HLT / @@0623=7402 SKP CLA / @@0624=7610 AND I C0602 / @@0625=0602 C0626, 1004 / TAD D0004 C0627, 6141 / 6141 AND C0023 / @@0630=0023 AND C0002 / @@0631=0002 CLA CLL CML RTR / AC = 2000 (1024) @@0632=7332 C0633, 6151 / 6151 CLA / @@0634=7200 C0635, 6154 / 6154 DCA D0005 / @@0636=3005 TAD D0005 / @@0637=1005 CIA / @@0640=7041 TAD D0004 / @@0641=1004 SNA CLA / @@0642=7650 JMS I D0106 / long call to S5000 @@0643=4506 JMS I C0001 / long call to S5021 @@0644=4401 C0645, 6332 / 6332 HLT / @@0646=7402 SKP CLA / @@0647=7610 AND I C0626 / @@0650=0626 C0651, 4442 / JMS I C0042 DCA D0005 / @@0652=3005 TAD D0005 / @@0653=1005 C0654, 6141 / 6141 AND C0023 / @@0655=0023 AND C0002 / @@0656=0002 CLA CLL CML RTR / AC = 2000 (1024) @@0657=7332 C0660, 6151 / 6151 CLA / @@0661=7200 C0662, 6154 / 6154 DCA S0006 / @@0663=3006 TAD S0006 / @@0664=1006 CIA / @@0665=7041 TAD D0005 / @@0666=1005 SNA CLA / @@0667=7650 JMS I D0106 / long call to S5000 @@0670=4506 JMS I C0001 / long call to S5021 @@0671=4401 C0672, 6332 / 6332 C0673, C0673, 7402 / HLT SKP CLA / @@0674=7610 AND I C0651 / @@0675=0651 C0676, 1034 / TAD C0034 C0677, 6151 / 6151 D0700, 7200 / CLA TAD D0004 / @@0701=1004 DCA D0005 / @@0702=3005 TAD D0005 / @@0703=1005 C0704, 6154 / 6154 CLA / @@0705=7200 TAD C0003 / @@0706=1003 C0707, 6151 / 6151 CLA / @@0710=7200 C0711, 6154 / 6154 DCA S0006 / @@0712=3006 TAD S0006 / @@0713=1006 CIA / @@0714=7041 TAD D0005 / @@0715=1005 SNA CLA / @@0716=7650 JMS I D0106 / long call to S5000 @@0717=4506 JMS I C0001 / long call to S5021 @@0720=4401 JMP I C0673 / long jump to L7402 @@0721=5673 HLT / @@0722=7402 SKP CLA / @@0723=7610 AND I C0676 / @@0724=0676 C0725, 1034 / TAD C0034 C0726, 6151 / 6151 JMS I C0042 / long call to S5221 @@0727=4442 DCA D0005 / @@0730=3005 TAD D0005 / @@0731=1005 C0732, 6154 / 6154 CLA / @@0733=7200 TAD C0003 / @@0734=1003 C0735, 6151 / 6151 CLA / @@0736=7200 C0737, 6154 / 6154 DCA S0006 / @@0740=3006 TAD S0006 / @@0741=1006 CIA / @@0742=7041 TAD D0005 / @@0743=1005 SNA CLA / @@0744=7650 JMS I D0106 / long call to S5000 @@0745=4506 JMS I C0001 / long call to S5021 @@0746=4401 JMP I C0673 / long jump to L7402 @@0747=5673 HLT / @@0750=7402 SKP CLA / @@0751=7610 AND I C0725 / @@0752=0725 C0753, 6151 / 6151 TAD D0004 / @@0754=1004 DCA D0005 / @@0755=3005 TAD D0005 / @@0756=1005 C0757, 6154 / 6154 CLA CLL / AC = 0000 @@0760=7300 TAD D0065 / @@0761=1065 C0762, 6152 / 6152 CLA CLL / AC = 0000 @@0763=7300 TAD D0066 / @@0764=1066 C0765, 6151 / 6151 CLA CLL / AC = 0000 @@0766=7300 C0767, 6154 / 6154 DCA S0006 / @@0770=3006 TAD S0006 / @@0771=1006 CIA / @@0772=7041 TAD D0005 / @@0773=1005 SNA CLA / @@0774=7650 JMS I D0106 / long call to S5000 @@0775=4506 JMS I C0001 / long call to S5021 @@0776=4401 RAR / @@0777=7010 HLT / @@1000=7402 SKP CLA / @@1001=7610 AND I C1153 / @@1002=0753 C1003, 6151 / 6151 L1004, C1004, 4442 / JMS I C0042 L1005, C1005, 3005 / DCA D0005 TAD D0005 / @@1006=1005 C1007, 6154 / 6154 CLA CLL / AC = 0000 @@1010=7300 TAD D0065 / @@1011=1065 C1012, 6152 / 6152 JMS I C0042 / long call to S5221 @@1013=4442 C1014, 6154 / 6154 CLA CLL / AC = 0000 @@1015=7300 TAD D0066 / @@1016=1066 C1017, 6151 / 6151 CLA CLL / AC = 0000 @@1020=7300 C1021, 6154 / 6154 DCA S0006 / @@1022=3006 TAD S0006 / @@1023=1006 CIA / @@1024=7041 TAD D0005 / @@1025=1005 SNA CLA / @@1026=7650 JMS I D0106 / long call to S5000 @@1027=4506 JMS I C0001 / long call to S5021 @@1030=4401 RAR / @@1031=7010 HLT / @@1032=7402 SKP CLA / @@1033=7610 C1034, 1003 / TAD C0003 C1035, 6151 / 6151 TAD D0004 / @@1036=1004 DCA D0005 / @@1037=3005 TAD D0005 / @@1040=1005 C1041, 6154 / 6154 CLA CLL / AC = 0000 @@1042=7300 TAD D0065 / @@1043=1065 C1044, 6152 / 6152 CLA CLL CML RTR / AC = 2000 (1024) @@1045=7332 C1046, 6152 / 6152 CLA CLL / AC = 0000 @@1047=7300 TAD D0066 / @@1050=1066 C1051, 6151 / 6151 D1052, 7300 / CLA CLL C1053, 6154 / 6154 AND C0151 / @@1054=0151 DCA S0006 / @@1055=3006 TAD D0005 / @@1056=1005 CLL RAL / @@1057=7104 AND C0151 / @@1060=0151 DCA D0005 / @@1061=3005 TAD S0006 / @@1062=1006 CIA / @@1063=7041 TAD D0005 / @@1064=1005 C1065, 7650 / SNA CLA JMS I D0106 / long call to S5000 @@1066=4506 JMS I C0001 / long call to S5021 @@1067=4401 C1070, 6362 / 6362 HLT / @@1071=7402 SKP CLA / @@1072=7610 TAD C0035 / @@1073=1035 C1074, 6151 / 6151 JMS I C0042 / long call to S5221 @@1075=4442 DCA D0005 / @@1076=3005 TAD D0005 / @@1077=1005 C1100, 6154 / 6154 CLA CLL / AC = 0000 @@1101=7300 TAD D0065 / @@1102=1065 C1103, 6152 / 6152 CLA CLL / AC = 0000 @@1104=7300 C1105, 6151 / 6151 JMS I C0042 / long call to S5221 @@1106=4442 C1107, 6154 / 6154 CLA CLL CML RTR / AC = 2000 (1024) @@1110=7332 C1111, 6152 / 6152 CLA CLL / AC = 0000 @@1112=7300 TAD D0066 / @@1113=1066 C1114, 6151 / 6151 CLA CLL / AC = 0000 @@1115=7300 C1116, 6154 / 6154 AND C0151 / @@1117=0151 DCA S0006 / @@1120=3006 TAD D0005 / @@1121=1005 C1122, 7104 / CLL RAL AND C0151 / @@1123=0151 DCA D0005 / @@1124=3005 TAD S0006 / @@1125=1006 CIA / @@1126=7041 D1127, 1005 / TAD D0005 SNA CLA / @@1130=7650 JMS I D0106 / long call to S5000 @@1131=4506 JMS I C0001 / long call to S5021 @@1132=4401 C1133, 6362 / 6362 HLT / @@1134=7402 SKP CLA / @@1135=7610 TAD C0074 / @@1136=1074 JMP I C1140 / long jump to L1207 @@1137=5740 C1140, C1140, 1207 / TAD C1007 TAD D0004 / @@1141=1004 DCA D0005 / @@1142=3005 TAD D0005 / @@1143=1005 JMS I C0103 / long call to S5471 @@1144=4503 TAD D0066 / @@1145=1066 C1146, 6151 / 6151 CLA CLL / AC = 0000 @@1147=7300 C1150, 6154 / 6154 DCA S0006 / @@1151=3006 TAD S0006 / @@1152=1006 C1153, 7041 / CIA TAD D0005 / @@1154=1005 SNA CLA / @@1155=7650 JMS I D0106 / long call to S5000 @@1156=4506 JMS I C0001 / long call to S5021 @@1157=4401 C1160, 6755 / 6755 HLT / @@1161=7402 SKP CLA / @@1162=7610 TAD C0141 / @@1163=1141 JMS I C0042 / long call to S5221 @@1164=4442 DCA D0005 / @@1165=3005 TAD D0005 / @@1166=1005 JMS I C0103 / long call to S5471 @@1167=4503 TAD D0066 / @@1170=1066 C1171, 6151 / 6151 CLA CLL / AC = 0000 @@1172=7300 C1173, 6154 / 6154 DCA S0006 / @@1174=3006 TAD S0006 / @@1175=1006 CIA / @@1176=7041 TAD D0005 / @@1177=1005 SNA CLA / @@1200=7650 JMS I D0106 / long call to S5000 @@1201=4506 JMS I C0001 / long call to S5021 @@1202=4401 C1203, 6755 / 6755 HLT / @@1204=7402 SKP CLA / @@1205=7610 C1206, 1164 / TAD C0164 L1207, C1207, 4442 / JMS I C0042 DCA AI0 / AUTO INDEX REGISTER @@1210=3010 JMS I C0042 / long call to S5221 @@1211=4442 DCA D0005 / @@1212=3005 C1213, 6151 / 6151 TAD D0005 / @@1214=1005 C1215, 6154 / 6154 CLA / @@1216=7200 TAD D0065 / @@1217=1065 C1220, 6151 / 6151 CLA CLL / AC = 0000 @@1221=7300 TAD AI0 / AUTO INDEX REGISTER @@1222=1010 C1223, 6154 / 6154 CLA / @@1224=7200 TAD C0064 / @@1225=1064 C1226, 6152 / 6152 CLA / @@1227=7200 TAD D0005 / @@1230=1005 TAD AI0 / AUTO INDEX REGISTER @@1231=1010 DCA S0006 / @@1232=3006 C1233, 6141 / 6141 AND C0003 / @@1234=0003 AND C0002 / @@1235=0002 DCA D0007 / @@1236=3007 TAD D0007 / @@1237=1007 CIA / @@1240=7041 TAD S0006 / @@1241=1006 SNA CLA / @@1242=7650 JMS I D0106 / long call to S5000 @@1243=4506 JMS I C0001 / long call to S5021 @@1244=4401 C1245, 6225 / 6225 HLT / @@1246=7402 SKP CLA / @@1247=7610 TAD L1207 / @@1250=1207 C1251, 1004 / TAD D0004 AND C0123 / @@1252=0123 TAD C0071 / @@1253=1071 DCA D0005 / @@1254=3005 TAD D0005 / @@1255=1005 C1256, 6141 / 6141 AND C0001 / @@1257=0001 AND L1 / @@1260=0011 AND L0021 / @@1261=0021 AND C0002 / @@1262=0002 AND D0075 / @@1263=0075 DCA S0006 / @@1264=3006 TAD S0006 / @@1265=1006 CIA / @@1266=7041 TAD D0005 / @@1267=1005 SNA CLA / @@1270=7650 JMS I D0106 / long call to S5000 @@1271=4506 JMS I C0001 / long call to S5021 @@1272=4401 C1273, 6570 / 6570 HLT / @@1274=7402 SKP CLA / @@1275=7610 TAD C1251 / @@1276=1251 C1277, 1123 / TAD C0123 TAD C0071 / @@1300=1071 C1301, 6141 / 6141 AND C0001 / @@1302=0001 AND C0002 / @@1303=0002 JMS S0024 / @@1304=4024 C1305, 6141 / 6141 AND L0021 / @@1306=0021 AND C0002 / @@1307=0002 AND D0075 / @@1310=0075 DCA D0005 / @@1311=3005 TAD D0005 / @@1312=1005 SNA CLA / @@1313=7650 JMS I D0106 / long call to S5000 @@1314=4506 JMS I C0001 / long call to S5021 @@1315=4401 DCEA / Clears the disk extended address and @@1316=6611 HLT / @@1317=7402 SKP CLA / @@1320=7610 TAD C1277 / @@1321=1277 C1322, 1123 / TAD C0123 TAD C0071 / @@1323=1071 C1324, 6141 / 6141 AND C0001 / @@1325=0001 AND L1 / @@1326=0011 AND AI6 / AUTO INDEX REGISTER @@1327=0016 AND I D0047 / @@1330=0447 AND L0021 / @@1331=0021 AND C0002 / @@1332=0002 AND D0075 / @@1333=0075 DCA D0005 / @@1334=3005 TAD D0005 / @@1335=1005 CIA / @@1336=7041 TAD C0123 / @@1337=1123 TAD C0071 / @@1340=1071 SNA CLA / @@1341=7650 JMS I D0106 / long call to S5000 @@1342=4506 JMS I C0001 / long call to S5021 @@1343=4401 C1344, 6630 / 6630 HLT / @@1345=7402 SKP CLA / @@1346=7610 TAD C1322 / @@1347=1322 JMS I C0042 / long call to S5221 @@1350=4442 AND C0123 / @@1351=0123 TAD C0071 / @@1352=1071 DCA D0005 / @@1353=3005 TAD D0005 / @@1354=1005 C1355, 6141 / 6141 AND C0001 / @@1356=0001 AND L0021 / @@1357=0021 AND C0001 / @@1360=0001 AND L0021 / @@1361=0021 AND C0001 / @@1362=0001 AND L0021 / @@1363=0021 AND C0001 / @@1364=0001 AND L0021 / @@1365=0021 AND C0001 / @@1366=0001 AND L0021 / @@1367=0021 AND C0001 / @@1370=0001 AND L0021 / @@1371=0021 AND C0001 / @@1372=0001 AND L0021 / @@1373=0021 AND C0001 / @@1374=0001 AND L0021 / @@1375=0021 AND C0001 / @@1376=0001 AND L0021 / @@1377=0021 AND C0002 / @@1400=0002 AND D0075 / @@1401=0075 DCA S0006 / @@1402=3006 TAD S0006 / @@1403=1006 CIA / @@1404=7041 TAD D0005 / @@1405=1005 SNA CLA / @@1406=7650 JMS I D0106 / long call to S5000 @@1407=4506 JMS I C0001 / long call to S5021 @@1410=4401 C1411, 6570 / 6570 HLT / @@1412=7402 SKP CLA / @@1413=7610 TAD C1550 / @@1414=1350 TAD D0004 / @@1415=1004 AND C0123 / @@1416=0123 TAD C0071 / @@1417=1071 DCA D0005 / @@1420=3005 TAD D0005 / @@1421=1005 C1422, 6141 / 6141 AND C0001 / @@1423=0001 AND C0002 / @@1424=0002 DCA S0006 / @@1425=3006 TAD S0006 / @@1426=1006 CIA / @@1427=7041 TAD D0005 / @@1430=1005 SNA CLA / @@1431=7650 JMS I D0106 / long call to S5000 @@1432=4506 JMS I C0001 / long call to S5021 @@1433=4401 C1434, 6260 / 6260 HLT / @@1435=7402 SKP CLA / @@1436=7610 TAD I AI5 / AUTO INDEX REGISTER @@1437=1415 TAD D0065 / @@1440=1065 C1441, 6151 / 6151 STA / AC = 7777 (-0001) @@1442=7240 C1443, 6154 / 6154 CLA CLL / AC = 0000 @@1444=7300 C1445, 6141 / 6141 AND C0003 / @@1446=0003 AND C0002 / @@1447=0002 DCA D0005 / @@1450=3005 TAD C0053 / @@1451=1053 C1452, 6151 / 6151 CLA CLL / AC = 0000 @@1453=7300 C1454, 6154 / 6154 SPA CLA / @@1455=7710 JMS I D0106 / long call to S5000 @@1456=4506 JMS I C0001 / long call to S5021 @@1457=4401 C1460, 6047 / 6047 HLT / @@1461=7402 SKP / @@1462=7410 TAD I D0040 / @@1463=1440 L1464, CLA CLL CMA CML / @@1464=7360 DCA D0005 / @@1465=3005 TAD D0005 / @@1466=1005 CML RAR / @@1467=7030 SNL / @@1470=7420 JMP L1464 / @@1471=5264 DCA D0005 / @@1472=3005 TAD D0065 / @@1473=1065 C1474, 6151 / 6151 CLA CLL / AC = 0000 @@1475=7300 TAD D0005 / @@1476=1005 C1477, 6154 / 6154 CLA CLL / AC = 0000 @@1500=7300 TAD C0053 / @@1501=1053 C1502, 6151 / 6151 CLA CLL / AC = 0000 @@1503=7300 C1504, 6154 / 6154 SMA CLA / @@1505=7700 JMS I D0106 / long call to S5000 @@1506=4506 JMS I C0001 / long call to S5021 @@1507=4401 C1510, 6047 / 6047 HLT / @@1511=7402 SKP / @@1512=7410 TAD I D0066 / @@1513=1466 L1514, JMS I C0042 / long call to S5221 @@1514=4442 DCA D0005 / @@1515=3005 TAD D0005 / @@1516=1005 CMA / @@1517=7040 SNA CLA / @@1520=7650 JMP L1514 / @@1521=5314 TAD D0065 / @@1522=1065 C1523, 6151 / 6151 CLA CLL / AC = 0000 @@1524=7300 TAD D0005 / @@1525=1005 C1526, 6154 / 6154 CLA CLL / AC = 0000 @@1527=7300 TAD C0053 / @@1530=1053 C1531, 6151 / 6151 CLA CLL / AC = 0000 @@1532=7300 C1533, 6154 / 6154 SMA CLA / @@1534=7700 JMS I D0106 / long call to S5000 @@1535=4506 JMS I C0001 / long call to S5021 @@1536=4401 C1537, 6047 / 6047 HLT / @@1540=7402 SKP / @@1541=7410 TAD I C0114 / @@1542=1514 JMS I D0022 / long call to S5200 @@1543=4422 TAD D0004 / @@1544=1004 AND C0110 / @@1545=0110 DCA D0005 / @@1546=3005 TAD D0005 / @@1547=1005 C1550, 1031 / TAD C0031 DCA D1553 / @@1551=3353 C1552, 6141 / 6141 D1553, 0000 / AND L0000 C1554, 3000 / DCA L0000 AND C0002 / @@1555=0002 JMS S0024 / @@1556=4024 TAD L0054 / @@1557=1054 TAD C0064 / @@1560=1064 C1561, 6151 / 6151 CLA CLL / AC = 0000 @@1562=7300 C1563, 6154 / 6154 AND L0061 / @@1564=0061 DCA S0006 / @@1565=3006 CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@1566=7330 TAD S0006 / @@1567=1006 SNA CLA / @@1570=7650 JMS I D0106 / long call to S5000 @@1571=4506 JMS I C0001 / long call to S5021 @@1572=4401 C1573, 6065 / 6065 HLT / @@1574=7402 SKP / @@1575=7410 TAD I C0143 / @@1576=1543 JMS I D0022 / long call to S5200 @@1577=4422 TAD D0004 / @@1600=1004 AND C0110 / @@1601=0110 DCA D0005 / @@1602=3005 TAD D0005 / @@1603=1005 D1604, 1031 / TAD C0031 DCA D1607 / @@1605=3207 C1606, 6141 / 6141 D1607, 0000 / AND L0000 C1610, 3000 / DCA L0000 AND C0002 / @@1611=0002 CLA CLL / AC = 0000 @@1612=7300 TAD L0054 / @@1613=1054 TAD C0064 / @@1614=1064 C1615, 6151 / 6151 CLA CLL / AC = 0000 @@1616=7300 C1617, 6154 / 6154 AND L0061 / @@1620=0061 DCA S0006 / @@1621=3006 TAD D0005 / @@1622=1005 CMA / @@1623=7040 DCA L1 / @@1624=3011 CLA CLL CML / @@1625=7320 L1626, RAR / @@1626=7010 ISZ L1 / @@1627=2011 JMP L1626 / @@1630=5226 CIA / @@1631=7041 TAD S0006 / @@1632=1006 SNA CLA / @@1633=7650 JMS I D0106 / long call to S5000 @@1634=4506 JMS I C0001 / long call to S5021 @@1635=4401 CMP / (MP8/I) Clear memory parity error fl @@1636=6104 HLT / @@1637=7402 SKP / @@1640=7410 TAD I L0177 / @@1641=1577 C1642, 4422 / JMS I D0022 JMS I C0042 / long call to S5221 @@1643=4442 AND C0110 / @@1644=0110 DCA D0005 / @@1645=3005 TAD D0005 / @@1646=1005 TAD C0031 / @@1647=1031 DCA D1652 / @@1650=3252 C1651, 6141 / 6141 D1652, 0000 / AND L0000 C1653, 3000 / DCA L0000 AND C0002 / @@1654=0002 CLA CLL / AC = 0000 @@1655=7300 TAD L0054 / @@1656=1054 TAD C0064 / @@1657=1064 C1660, 6151 / 6151 CLA CLL / AC = 0000 @@1661=7300 C1662, 6154 / 6154 AND L0061 / @@1663=0061 DCA S0006 / @@1664=3006 TAD D0005 / @@1665=1005 CMA / @@1666=7040 DCA L1 / @@1667=3011 CLA CLL CML / @@1670=7320 L1671, RAR / @@1671=7010 ISZ L1 / @@1672=2011 JMP L1671 / @@1673=5271 CIA / @@1674=7041 TAD S0006 / @@1675=1006 SNA CLA / @@1676=7650 JMS I D0106 / long call to S5000 @@1677=4506 JMS I C0001 / long call to S5021 @@1700=4401 CMP / (MP8/I) Clear memory parity error fl @@1701=6104 HLT / @@1702=7402 SKP / @@1703=7410 C1704, 1642 / TAD I C1642 C1705, 4422 / JMS I D0022 TAD D0004 / @@1706=1004 AND C0070 / @@1707=0070 DCA D0005 / @@1710=3005 TAD D0005 / @@1711=1005 TAD C0031 / @@1712=1031 DCA D1715 / @@1713=3315 C1714, 6141 / 6141 D1715, 0000 / AND L0000 C1716, 3000 / DCA L0000 AND C0002 / @@1717=0002 TAD L0054 / @@1720=1054 TAD C0064 / @@1721=1064 C1722, 6151 / 6151 CLA CLL / AC = 0000 @@1723=7300 C1724, 6154 / 6154 AND C0060 / @@1725=0060 CLL RAL / @@1726=7104 DCA S0006 / @@1727=3006 TAD S0006 / @@1730=1006 CIA / @@1731=7041 TAD D0005 / @@1732=1005 SNA CLA / @@1733=7650 JMS I D0106 / long call to S5000 @@1734=4506 JMS I C0001 / long call to S5021 @@1735=4401 MINS / Skip if the interrupt request is act @@1736=6125 HLT / @@1737=7402 SKP / @@1740=7410 TAD I C1705 / @@1741=1705 C1742, 4024 / JMS S0024 C1743, 6141 / 6141 AND I AI7 / AUTO INDEX REGISTER @@1744=0417 AND AI7 / AUTO INDEX REGISTER @@1745=0017 AND AI7 / AUTO INDEX REGISTER @@1746=0017 AND C0002 / @@1747=0002 SNA CLA / @@1750=7650 CMA / @@1751=7040 C1752, 6141 / 6141 AND I C0037 / @@1753=0437 AND AI7 / AUTO INDEX REGISTER @@1754=0017 AND AI7 / AUTO INDEX REGISTER @@1755=0017 AND C0002 / @@1756=0002 SNA CLA / @@1757=7650 JMS I D0106 / long call to S5000 @@1760=4506 JMS I C0001 / long call to S5021 @@1761=4401 C1762, 6714 / 6714 HLT / @@1763=7402 SKP CLA / @@1764=7610 TAD I C1742 / @@1765=1742 JMP I C1767 / long jump to L2014 @@1766=5767 C1767, C1767, 2014 / ISZ L4 CLA / @@1770=7200 C1771, 6141 / 6141 AND I AI7 / AUTO INDEX REGISTER @@1772=0417 AND AI7 / AUTO INDEX REGISTER @@1773=0017 AND AI7 / AUTO INDEX REGISTER @@1774=0017 AND C0002 / @@1775=0002 SZA CLA / @@1776=7640 CMA / @@1777=7040 C2000, 6141 / 6141 AND I C0037 / @@2001=0437 AND AI7 / AUTO INDEX REGISTER @@2002=0017 AND AI7 / AUTO INDEX REGISTER @@2003=0017 AND C0002 / @@2004=0002 SZA CLA / @@2005=7640 JMS I D0106 / long call to S5000 @@2006=4506 JMS I C0001 / long call to S5021 @@2007=4401 C2010, 6734 / 6734 HLT / @@2011=7402 SKP CLA / @@2012=7610 TAD I C2166 / @@2013=1766 L2014, TAD C0050 / @@2014=1050 DCA D0005 / @@2015=3005 CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@2016=7330 DCA S0006 / @@2017=3006 L2020, TAD D0004 / @@2020=1004 AND C0141 / @@2021=0141 RAR / @@2022=7010 TAD C0060 / @@2023=1060 C2024, 6141 / 6141 AND C0001 / @@2025=0001 AND C0002 / @@2026=0002 CLA CLL / AC = 0000 @@2027=7300 TAD D0004 / @@2030=1004 RTL / @@2031=7006 RAL / @@2032=7004 AND C0060 / @@2033=0060 TAD C0104 / @@2034=1104 JMS I C0142 / long call to S5447 @@2035=4542 TAD L0054 / @@2036=1054 C2037, 6151 / 6151 C2040, 7200 / CLA C2041, 6154 / 6154 CMA / @@2042=7040 AND L0061 / @@2043=0061 DCA D0007 / @@2044=3007 TAD D0007 / @@2045=1007 CIA / @@2046=7041 TAD S0006 / @@2047=1006 SNA CLA / @@2050=7650 JMS I D0106 / long call to S5000 @@2051=4506 JMS I C0001 / long call to S5021 @@2052=4401 TTSL / The contents of AC5-11 are ORed into @@2053=6412 HLT / @@2054=7402 JMP L2065 / @@2055=5265 ISZ D0057 / @@2056=2057 TAD S0006 / @@2057=1006 CLL RAR / @@2060=7110 DCA S0006 / @@2061=3006 ISZ D0005 / @@2062=2005 JMP L2020 / @@2063=5220 JMP L2014 / @@2064=5214 L2065, JMS I D0022 / long call to S5200 @@2065=4422 TAD AI7 / AUTO INDEX REGISTER @@2066=1017 JMS I C0142 / long call to S5447 @@2067=4542 TAD AI7 / AUTO INDEX REGISTER @@2070=1017 C2071, 6141 / 6141 AND C0001 / @@2072=0001 AND C0002 / @@2073=0002 JMS S0024 / @@2074=4024 TAD C0060 / @@2075=1060 C2076, 6141 / 6141 AND C0001 / @@2077=0001 AND C0002 / @@2100=0002 CLA CLL / AC = 0000 @@2101=7300 C2102, 6154 / 6154 AND L0061 / @@2103=0061 DCA D0005 / @@2104=3005 TAD D0005 / @@2105=1005 SPA CLA / @@2106=7710 JMP I C0145 / long jump to L2120 @@2107=5545 TAD AI7 / AUTO INDEX REGISTER @@2110=1017 JMS I C0142 / long call to S5447 @@2111=4542 C2112, 6154 / 6154 AND L0061 / @@2113=0061 DCA D0005 / @@2114=3005 TAD D0005 / @@2115=1005 SMA CLA / @@2116=7700 JMS I D0106 / long call to S5000 @@2117=4506 L2120, JMS I C0001 / long call to S5021 @@2120=4401 C2121, 6425 / 6425 HLT / @@2122=7402 SKP CLA / @@2123=7610 ISZ D0065 / @@2124=2065 JMS S0024 / @@2125=4024 TAD C0072 / @@2126=1072 C2127, 6152 / 6152 CLA / @@2130=7200 TAD D0004 / @@2131=1004 DCA D0005 / @@2132=3005 TAD D0005 / @@2133=1005 CMA / @@2134=7040 JMS I L0021 / long call to S4700 @@2135=4421 TAD D0005 / @@2136=1005 CLL RTR / @@2137=7112 RTR / @@2140=7012 RTR / @@2141=7012 RAR / @@2142=7010 DCA D0005 / @@2143=3005 TAD D0005 / @@2144=1005 CIA / @@2145=7041 TAD D0004 / @@2146=1004 AND L4 / @@2147=0014 SNA CLA / @@2150=7650 JMS I D0106 / long call to S5000 @@2151=4506 JMS I C0001 / long call to S5021 @@2152=4401 C2153, 6277 / 6277 HLT / @@2154=7402 SKP CLA / @@2155=7610 ISZ D0125 / @@2156=2125 JMS S0024 / @@2157=4024 TAD C0070 / @@2160=1070 C2161, 6152 / 6152 CLA / @@2162=7200 TAD D0004 / @@2163=1004 NOP / @@2164=7000 JMS I L0021 / long call to S4700 @@2165=4421 C2166, 1005 / TAD D0005 CLL RTR / @@2167=7112 RTR / @@2170=7012 RTR / @@2171=7012 RAR / @@2172=7010 DCA D0005 / @@2173=3005 TAD D0004 / @@2174=1004 CIA / @@2175=7041 TAD D0005 / @@2176=1005 AND L4 / @@2177=0014 SNA CLA / @@2200=7650 JMS I D0106 / long call to S5000 @@2201=4506 JMS I C0001 / long call to S5021 @@2202=4401 C2203, 6315 / 6315 HLT / @@2204=7402 SKP CLA / @@2205=7610 C2206, 2157 / ISZ C0157 D2207, 1004 / TAD D0004 JMS I L0021 / long call to S4700 @@2210=4421 TAD D0004 / @@2211=1004 AND L4 / @@2212=0014 CIA / @@2213=7041 SZA CLA / @@2214=7640 CLL / @@2215=7100 C2216, C2216, 1005 / TAD D0005 AND C0072 / @@2217=0072 SNA CLA / @@2220=7650 CML / @@2221=7020 SZL / @@2222=7430 JMS I D0106 / long call to S5000 @@2223=4506 JMS I C0001 / long call to S5021 @@2224=4401 C2225, C2225, 5661 / JMP I C2261 HLT / @@2226=7402 SKP CLA / @@2227=7610 ISZ D2207 / @@2230=2207 D2231, 1004 / TAD D0004 JMS I L0021 / long call to S4700 @@2232=4421 TAD D0004 / @@2233=1004 C2234, C2234, 0014 / AND L4 TAD D0120 / @@2235=1120 SZA CLA / @@2236=7640 CLL / @@2237=7100 D2240, 1005 / TAD D0005 AND C0071 / @@2241=0071 SNA CLA / @@2242=7650 C2243, C2243, 7020 / CML SZL / @@2244=7430 JMS I D0106 / long call to S5000 @@2245=4506 JMS I C0001 / long call to S5021 @@2246=4401 JMP I D2207 / long jump to L1004 @@2247=5607 HLT / @@2250=7402 SKP CLA / @@2251=7610 ISZ D2231 / @@2252=2231 D2253, 1004 / TAD D0004 JMS I L0021 / long call to S4700 @@2254=4421 TAD D0004 / @@2255=1004 AND L4 / @@2256=0014 TAD C0076 / @@2257=1076 SZA CLA / @@2260=7640 C2261, C2261, 7100 / CLL TAD D0005 / @@2262=1005 AND C0070 / @@2263=0070 SNA CLA / @@2264=7650 CML / @@2265=7020 SZL / @@2266=7430 JMS I D0106 / long call to S5000 @@2267=4506 JMS I C0001 / long call to S5021 @@2270=4401 JMP I C2216 / long jump to L1005 @@2271=5616 HLT / @@2272=7402 SKP CLA / @@2273=7610 ISZ D2253 / @@2274=2253 D2275, 1004 / TAD D0004 JMS I L0021 / long call to S4700 @@2276=4421 TAD D0004 / @@2277=1004 AND L4 / @@2300=0014 TAD C0134 / @@2301=1134 SZA CLA / @@2302=7640 CLL / @@2303=7100 TAD D0005 / @@2304=1005 AND C0060 / @@2305=0060 SNA CLA / @@2306=7650 CML / @@2307=7020 SZL / @@2310=7430 JMS I D0106 / long call to S5000 @@2311=4506 JMS I C0001 / long call to S5021 @@2312=4401 JMP I C2225 / long jump to L5661 @@2313=5625 HLT / @@2314=7402 SKP CLA / @@2315=7610 ISZ D2275 / @@2316=2275 D2317, 1004 / TAD D0004 JMS I L0021 / long call to S4700 @@2320=4421 TAD D0004 / @@2321=1004 AND L4 / @@2322=0014 TAD C0135 / @@2323=1135 SZA CLA / @@2324=7640 CLL / @@2325=7100 TAD D0005 / @@2326=1005 AND C0063 / @@2327=0063 SNA CLA / @@2330=7650 CML / @@2331=7020 SZL / @@2332=7430 JMS I D0106 / long call to S5000 @@2333=4506 JMS I C0001 / long call to S5021 @@2334=4401 JMP I C2234 / long jump to L0014 @@2335=5634 HLT / @@2336=7402 SKP CLA / @@2337=7610 ISZ D2317 / @@2340=2317 D2341, 1004 / TAD D0004 JMS I L0021 / long call to S4700 @@2342=4421 TAD D0004 / @@2343=1004 AND L4 / @@2344=0014 TAD C0136 / @@2345=1136 SZA CLA / @@2346=7640 CLL / @@2347=7100 TAD D0005 / @@2350=1005 AND C0122 / @@2351=0122 SNA CLA / @@2352=7650 CML / @@2353=7020 SZL / @@2354=7430 JMS I D0106 / long call to S5000 @@2355=4506 JMS I C0001 / long call to S5021 @@2356=4401 JMP I C2243 / long jump to L7020 @@2357=5643 HLT / @@2360=7402 SKP CLA / @@2361=7610 ISZ D2341 / @@2362=2341 TAD D0004 / @@2363=1004 JMS I L0021 / long call to S4700 @@2364=4421 TAD D0004 / @@2365=1004 AND L4 / @@2366=0014 TAD C0077 / @@2367=1077 SZA CLA / @@2370=7640 CLL / @@2371=7100 TAD D0005 / @@2372=1005 AND C0121 / @@2373=0121 SNA CLA / @@2374=7650 CML / @@2375=7020 SZL / @@2376=7430 JMS I D0106 / long call to S5000 @@2377=4506 JMS I C0001 / long call to S5021 @@2400=4401 C2401, 5652 / JMP I C2452 HLT / @@2402=7402 SKP CLA / @@2403=7610 ISZ D2563 / @@2404=2363 JMP I C2406 / long jump to L0177 @@2405=5606 C2406, C2406, 0177 / AND L0177 JMS I D0022 / long call to S5200 @@2407=4422 TAD D0004 / @@2410=1004 AND C0121 / @@2411=0121 DCA D0005 / @@2412=3005 TAD D0005 / @@2413=1005 TAD C0132 / @@2414=1132 C2415, 6151 / 6151 CLA CLL / AC = 0000 @@2416=7300 C2417, 6154 / 6154 RTR / @@2420=7012 RAR / @@2421=7010 C2422, 0121 / AND C0121 DCA S0006 / @@2423=3006 TAD S0006 / @@2424=1006 CIA / @@2425=7041 TAD D0005 / @@2426=1005 SNA CLA / @@2427=7650 JMS I D0106 / long call to S5000 @@2430=4506 JMS I C0001 / long call to S5021 @@2431=4401 TTCR / (Data Communications System 680/I) T @@2432=6471 HLT / @@2433=7402 SKP CLA / @@2434=7610 ISZ I D0007 / @@2435=2407 TAD C0031 / @@2436=1031 DCA D2441 / @@2437=3241 C2440, 6141 / 6141 D2441, 0000 / AND L0000 C2442, 3000 / DCA L0000 AND C0002 / @@2443=0002 JMS S0024 / @@2444=4024 TAD C0062 / @@2445=1062 C2446, 6151 / 6151 CLA / @@2447=7200 C2450, 6154 / 6154 AND C0060 / @@2451=0060 C2452, C2452, 7650 / SNA CLA JMS I D0106 / long call to S5000 @@2453=4506 JMS I C0001 / long call to S5021 @@2454=4401 C2455, 6505 / 6505 HLT / @@2456=7402 SKP CLA / @@2457=7610 ISZ I C0036 / @@2460=2436 TAD D0004 / @@2461=1004 AND C0003 / @@2462=0003 DCA D0005 / @@2463=3005 TAD D0005 / @@2464=1005 IAC / @@2465=7001 JMS I C0101 / long call to S5460 @@2466=4501 TAD C0032 / @@2467=1032 C2470, 6151 / 6151 CLA CLL / AC = 0000 @@2471=7300 C2472, 6154 / 6154 AND C0110 / @@2473=0110 RTR / @@2474=7012 RTR / @@2475=7012 DCA S0006 / @@2476=3006 TAD S0006 / @@2477=1006 CIA / @@2500=7041 TAD D0005 / @@2501=1005 SNA CLA / @@2502=7650 JMS I D0106 / long call to S5000 @@2503=4506 JMS I C0001 / long call to S5021 @@2504=4401 C2505, 6520 / 6520 HLT / @@2506=7402 SKP CLA / @@2507=7610 ISZ I L0061 / @@2510=2461 CLA IAC / @@2511=7201 JMS I C0101 / long call to S5460 @@2512=4501 HLT / @@2513=7402 JMS I C0111 / long call to S5467 @@2514=4511 HLT / @@2515=7402 TAD C0132 / @@2516=1132 C2517, 6151 / 6151 CLA / @@2520=7200 C2521, 6154 / 6154 CMA / @@2522=7040 DCA D0005 / @@2523=3005 TAD D0005 / @@2524=1005 TAD D0004 / @@2525=1004 AND C0110 / @@2526=0110 SNA CLA / @@2527=7650 JMS I D0106 / long call to S5000 @@2530=4506 JMS I C0001 / long call to S5021 @@2531=4401 C2532, 6543 / 6543 HLT / @@2533=7402 SKP CLA / @@2534=7610 ISZ I C0116 / @@2535=2516 CLA IAC / @@2536=7201 JMS I C0101 / long call to S5460 @@2537=4501 HLT / @@2540=7402 JMS I C0111 / long call to S5467 @@2541=4511 HLT / @@2542=7402 HLT / @@2543=7402 TAD C0132 / @@2544=1132 C2545, 6151 / 6151 CLA / @@2546=7200 C2547, 6154 / 6154 AND C0110 / @@2550=0110 DCA D0005 / @@2551=3005 TAD D0005 / @@2552=1005 SNA CLA / @@2553=7650 JMS I D0106 / long call to S5000 @@2554=4506 JMS I C0001 / long call to S5021 @@2555=4401 C2556, 6555 / 6555 HLT / @@2557=7402 SKP CLA / @@2560=7610 ISZ I C0136 / @@2561=2536 HLT / @@2562=7402 D2563, 7330 / CLA CLL CML RAR JMS I C0101 / long call to S5460 @@2564=4501 TAD C0132 / @@2565=1132 C2566, 6151 / 6151 CLA / @@2567=7200 C2570, 6154 / 6154 AND C0060 / @@2571=0060 SNA CLA / @@2572=7650 JMS I D0106 / long call to S5000 @@2573=4506 JMS I C0001 / long call to S5021 @@2574=4401 HLT / @@2575=7402 SKP CLA / @@2576=7610 C2577, 2562 / ISZ I C0162 C2600, 7402 / HLT CLA CLL CML RTR / AC = 2000 (1024) @@2601=7332 JMS I C0101 / long call to S5460 @@2602=4501 TAD C0132 / @@2603=1132 C2604, 6151 / 6151 CLA / @@2605=7200 C2606, 6154 / 6154 AND C0060 / @@2607=0060 SNA CLA / @@2610=7650 JMS I D0106 / long call to S5000 @@2611=4506 JMS I C0001 / long call to S5021 @@2612=4401 HLT / @@2613=7402 SKP CLA / @@2614=7610 ISZ I C2600 / @@2615=2600 C2616, 7402 / HLT CLA CLL CML RTR / AC = 2000 (1024) @@2617=7332 RAR / @@2620=7010 C2621, 4532 / JMS I C0132 C2622, 6151 / 6151 CLA / @@2623=7200 C2624, 6154 / 6154 AND C0060 / @@2625=0060 SNA CLA / @@2626=7650 JMS I D0106 / long call to S5000 @@2627=4506 JMS I C0001 / long call to S5021 @@2630=4401 HLT / @@2631=7402 SKP CLA / @@2632=7610 ISZ I C2616 / @@2633=2616 C2634, 7402 / HLT CLA IAC / @@2635=7201 JMS I C0101 / long call to S5460 @@2636=4501 HLT / @@2637=7402 JMS I C0111 / long call to S5467 @@2640=4511 HLT / @@2641=7402 TAD C0132 / @@2642=1132 C2643, 6151 / 6151 CLA / @@2644=7200 C2645, 6154 / 6154 AND C0060 / @@2646=0060 SNA CLA / @@2647=7650 JMS I D0106 / long call to S5000 @@2650=4506 JMS I C0001 / long call to S5021 @@2651=4401 HLT / @@2652=7402 SKP CLA / @@2653=7610 ISZ I C2634 / @@2654=2634 C2655, 7402 / HLT CLA IAC / @@2656=7201 JMS I C0101 / long call to S5460 @@2657=4501 HLT / @@2660=7402 JMS I C0111 / long call to S5467 @@2661=4511 HLT / @@2662=7402 TAD C0132 / @@2663=1132 C2664, 6151 / 6151 C2665, 6151 / 6151 CLA / @@2666=7200 C2667, 6154 / 6154 AND C0060 / @@2670=0060 SNA CLA / @@2671=7650 JMS I D0106 / long call to S5000 @@2672=4506 JMS I C0001 / long call to S5021 @@2673=4401 HLT / @@2674=7402 SKP CLA / @@2675=7610 ISZ I C2655 / @@2676=2655 C2677, 7402 / HLT CLA IAC / @@2700=7201 JMS I C0101 / long call to S5460 @@2701=4501 HLT / @@2702=7402 JMS I C0111 / long call to S5467 @@2703=4511 HLT / @@2704=7402 TAD C0132 / @@2705=1132 C2706, 6151 / 6151 C2707, 6151 / 6151 C2710, 6151 / 6151 C2711, 6151 / 6151 CLA / @@2712=7200 C2713, 6154 / 6154 AND C0060 / @@2714=0060 SNA CLA / @@2715=7650 JMS I D0106 / long call to S5000 @@2716=4506 JMS I C0001 / long call to S5021 @@2717=4401 HLT / @@2720=7402 SKP CLA / @@2721=7610 ISZ I C2677 / @@2722=2677 HLT / @@2723=7402 TAD C0053 / @@2724=1053 C2725, 6151 / 6151 CLA / @@2726=7200 C2727, 6154 / 6154 AND C0035 / @@2730=0035 DCA D0005 / @@2731=3005 TAD D0005 / @@2732=1005 TAD C0062 / @@2733=1062 SNA CLA / @@2734=7650 JMS I D0106 / long call to S5000 @@2735=4506 JMS I C0001 / long call to S5021 @@2736=4401 C2737, 6442 / 6442 HLT / @@2740=7402 SKP / @@2741=7410 ISZ I C2743 / @@2742=2743 C2743, 1127 / TAD C0127 C2744, 6151 / 6151 CLA / @@2745=7200 C2746, 6154 / 6154 AND C0035 / @@2747=0035 DCA D0005 / @@2750=3005 TAD D0005 / @@2751=1005 TAD C0003 / @@2752=1003 SNA CLA / @@2753=7650 JMS I D0106 / long call to S5000 @@2754=4506 JMS I C0001 / long call to S5021 @@2755=4401 C2756, 6457 / 6457 HLT / @@2757=7402 SKP / @@2760=7410 ISZ I C2762 / @@2761=2762 C2762, 4024 / JMS S0024 C2763, 5176 / JMP C0176 JMS S0024 / @@2764=4024 JMS S0024 / @@2765=4024 TAD C0053 / @@2766=1053 C2767, 6151 / 6151 CLA / @@2770=7200 C2771, 6154 / 6154 AND C0035 / @@2772=0035 DCA D0005 / @@2773=3005 TAD D0005 / @@2774=1005 TAD C0062 / @@2775=1062 SNA CLA / @@2776=7650 JMS I D0106 / long call to S5000 @@2777=4506 D3000, 4401 / JMS I C0001 JMP I C0132 / long jump to L6040 @@3001=5532 HLT / @@3002=7402 SKP / @@3003=7410 ISZ I C3165 / @@3004=2765 L3005, TAD C0127 / @@3005=1127 C3006, 6151 / 6151 CLA / @@3007=7200 C3010, 6154 / 6154 AND C0035 / @@3011=0035 DCA D0005 / @@3012=3005 TAD D0005 / @@3013=1005 TAD C0062 / @@3014=1062 SNA CLA / @@3015=7650 JMS I D0106 / long call to S5000 @@3016=4506 JMS I C0001 / long call to S5021 @@3017=4401 JMP I C0144 / long jump to L5406 @@3020=5544 HLT / @@3021=7402 SKP / @@3022=7410 DCA D0005 / @@3023=3005 HLT / @@3024=7402 HLT / @@3025=7402 HLT / @@3026=7402 TAD C0127 / @@3027=1127 C3030, 6151 / 6151 CLA / @@3031=7200 C3032, 6154 / 6154 AND C0035 / @@3033=0035 DCA D0005 / @@3034=3005 TAD D0005 / @@3035=1005 TAD C0037 / @@3036=1037 SNA CLA / @@3037=7650 JMS I D0106 / long call to S5000 @@3040=4506 JMS I C0001 / long call to S5021 @@3041=4401 C3042, 5555 / JMP I C0155 HLT / @@3043=7402 SKP CLA / @@3044=7610 DCA S0024 / @@3045=3024 HLT / @@3046=7402 HLT / @@3047=7402 TAD C0127 / @@3050=1127 C3051, 6151 / 6151 CLA / @@3052=7200 C3053, 6154 / 6154 AND C0035 / @@3054=0035 DCA D0005 / @@3055=3005 TAD D0005 / @@3056=1005 TAD C0003 / @@3057=1003 SNA CLA / @@3060=7650 JMS I D0106 / long call to S5000 @@3061=4506 JMS I C0001 / long call to S5021 @@3062=4401 HLT / @@3063=7402 SKP CLA / @@3064=7610 DCA D0046 / @@3065=3046 HLT / @@3066=7402 HLT / @@3067=7402 TAD C0127 / @@3070=1127 C3071, 6151 / 6151 CLA / @@3072=7200 C3073, 6154 / 6154 AND C0035 / @@3074=0035 DCA D0005 / @@3075=3005 TAD D0005 / @@3076=1005 TAD C0037 / @@3077=1037 SNA CLA / @@3100=7650 JMS I D0106 / long call to S5000 @@3101=4506 JMS I C0001 / long call to S5021 @@3102=4401 HLT / @@3103=7402 SKP CLA / @@3104=7610 DCA D0066 / @@3105=3066 HLT / @@3106=7402 JMS S0024 / @@3107=4024 HLT / @@3110=7402 HLT / @@3111=7402 TAD C0127 / @@3112=1127 C3113, 6151 / 6151 CLA / @@3114=7200 C3115, 6154 / 6154 AND C0036 / @@3116=0036 DCA D0005 / @@3117=3005 TAD D0005 / @@3120=1005 TAD C0037 / @@3121=1037 SNA CLA / @@3122=7650 JMS I D0106 / long call to S5000 @@3123=4506 JMS I D0106 / long call to S5000 @@3124=4506 HLT / @@3125=7402 SKP CLA / @@3126=7610 DCA D0106 / @@3127=3106 JMS I C0112 / long call to S5470 @@3130=4512 HLT / @@3131=7402 TAD C0127 / @@3132=1127 C3133, 6151 / 6151 CLA / @@3134=7200 C3135, 6154 / 6154 AND C0036 / @@3136=0036 DCA D0005 / @@3137=3005 TAD D0005 / @@3140=1005 TAD C0037 / @@3141=1037 SNA CLA / @@3142=7650 JMS I D0106 / long call to S5000 @@3143=4506 JMS I C0001 / long call to S5021 @@3144=4401 HLT / @@3145=7402 SKP CLA / @@3146=7610 DCA D0130 / @@3147=3130 TAD C0060 / @@3150=1060 C3151, 6152 / 6152 CLA / @@3152=7200 TAD D0040 / @@3153=1040 C3154, 6151 / 6151 CLA / @@3155=7200 TAD C0127 / @@3156=1127 C3157, 6151 / 6151 CLA / @@3160=7200 C3161, 6154 / 6154 AND C0036 / @@3162=0036 DCA D0005 / @@3163=3005 TAD D0005 / @@3164=1005 C3165, 1052 / TAD L0052 SNA CLA / @@3166=7650 JMS I D0106 / long call to S5000 @@3167=4506 JMS I C0001 / long call to S5021 @@3170=4401 HLT / @@3171=7402 SKP CLA / @@3172=7610 DCA D0150 / @@3173=3150 HLT / @@3174=7402 CLA / @@3175=7200 C3176, 6154 / 6154 AND C0036 / @@3177=0036 DCA D0005 / @@3200=3005 TAD D0005 / @@3201=1005 TAD C0062 / @@3202=1062 SNA CLA / @@3203=7650 JMS I D0106 / long call to S5000 @@3204=4506 JMS I C0001 / long call to S5021 @@3205=4401 HLT / @@3206=7402 SKP CLA / @@3207=7610 C3210, 3174 / DCA C0174 D3211, 4512 / JMS I C0112 TAD C0127 / @@3212=1127 C3213, 6151 / 6151 CLA / @@3214=7200 C3215, 6154 / 6154 AND C0036 / @@3216=0036 DCA D0005 / @@3217=3005 TAD D0005 / @@3220=1005 TAD C0037 / @@3221=1037 SNA CLA / @@3222=7650 JMS I D0106 / long call to S5000 @@3223=4506 JMS I C0001 / long call to S5021 @@3224=4401 HLT / @@3225=7402 SKP CLA / @@3226=7610 DCA D3211 / @@3227=3211 D3230, 7402 / HLT TAD C0127 / @@3231=1127 C3232, 6151 / 6151 CLA / @@3233=7200 C3234, 6154 / 6154 AND C0036 / @@3235=0036 DCA D0005 / @@3236=3005 TAD D0005 / @@3237=1005 TAD L0052 / @@3240=1052 SNA CLA / @@3241=7650 JMS I D0106 / long call to S5000 @@3242=4506 JMS I C0001 / long call to S5021 @@3243=4401 HLT / @@3244=7402 SKP CLA / @@3245=7610 DCA D3230 / @@3246=3230 D3247, 1127 / TAD C0127 C3250, 6151 / 6151 CLA / @@3251=7200 C3252, 6154 / 6154 AND C0036 / @@3253=0036 DCA D0005 / @@3254=3005 TAD D0005 / @@3255=1005 TAD C0037 / @@3256=1037 SNA CLA / @@3257=7650 JMS I D0106 / long call to S5000 @@3260=4506 JMS I C0001 / long call to S5021 @@3261=4401 HLT / @@3262=7402 SKP CLA / @@3263=7610 DCA D3247 / @@3264=3247 D3265, 7402 / HLT JMS I C0111 / long call to S5467 @@3266=4511 HLT / @@3267=7402 CLA / @@3270=7200 C3271, 6154 / 6154 AND C0036 / @@3272=0036 DCA D0005 / @@3273=3005 TAD D0005 / @@3274=1005 TAD L0052 / @@3275=1052 SNA CLA / @@3276=7650 JMS I D0106 / long call to S5000 @@3277=4506 JMS I C0001 / long call to S5021 @@3300=4401 HLT / @@3301=7402 SKP CLA / @@3302=7610 DCA D3265 / @@3303=3265 D3304, 1127 / TAD C0127 C3305, 6151 / 6151 CLA / @@3306=7200 C3307, 6154 / 6154 AND C0036 / @@3310=0036 DCA D0005 / @@3311=3005 TAD D0005 / @@3312=1005 TAD C0062 / @@3313=1062 SNA CLA / @@3314=7650 JMS I D0106 / long call to S5000 @@3315=4506 JMS I C0001 / long call to S5021 @@3316=4401 HLT / @@3317=7402 SKP / @@3320=7410 DCA D3304 / @@3321=3304 D3322, 4511 / JMS I C0111 TAD C0127 / @@3323=1127 C3324, 6151 / 6151 CLA / @@3325=7200 C3326, 6154 / 6154 AND C0036 / @@3327=0036 DCA D0005 / @@3330=3005 TAD D0005 / @@3331=1005 TAD L0052 / @@3332=1052 SNA CLA / @@3333=7650 JMS I D0106 / long call to S5000 @@3334=4506 JMS I C0001 / long call to S5021 @@3335=4401 HLT / @@3336=7402 SKP CLA / @@3337=7610 DCA D3322 / @@3340=3322 D3341, 7402 / HLT JMS S0024 / @@3342=4024 HLT / @@3343=7402 JMS I C0111 / long call to S5467 @@3344=4511 TAD C0127 / @@3345=1127 C3346, 6151 / 6151 CLA / @@3347=7200 C3350, 6154 / 6154 AND C0036 / @@3351=0036 DCA D0005 / @@3352=3005 TAD D0005 / @@3353=1005 TAD C0041 / @@3354=1041 SNA CLA / @@3355=7650 JMS I D0106 / long call to S5000 @@3356=4506 JMS I C0001 / long call to S5021 @@3357=4401 HLT / @@3360=7402 SKP CLA / @@3361=7610 DCA D3341 / @@3362=3341 HLT / @@3363=7402 JMS S0024 / @@3364=4024 JMS I C0111 / long call to S5467 @@3365=4511 HLT / @@3366=7402 TAD D0040 / @@3367=1040 C3370, 6151 / 6151 CLA / @@3371=7200 C3372, 6154 / 6154 AND C0036 / @@3373=0036 DCA D0005 / @@3374=3005 TAD D0005 / @@3375=1005 TAD C0062 / @@3376=1062 SNA CLA / @@3377=7650 JMS I D0106 / long call to S5000 @@3400=4506 JMS I C0001 / long call to S5021 @@3401=4401 HLT / @@3402=7402 SKP CLA / @@3403=7610 DCA D3563 / @@3404=3363 C3405, 4526 / JMS I C0126 HLT / @@3406=7402 HLT / @@3407=7402 TAD C0127 / @@3410=1127 C3411, 6151 / 6151 CLA / @@3412=7200 C3413, 6154 / 6154 AND C0036 / @@3414=0036 DCA D0005 / @@3415=3005 TAD D0005 / @@3416=1005 TAD C0041 / @@3417=1041 SNA CLA / @@3420=7650 JMS I D0106 / long call to S5000 @@3421=4506 JMS I C0001 / long call to S5021 @@3422=4401 HLT / @@3423=7402 SKP CLA / @@3424=7610 DCA I D0005 / @@3425=3405 JMS I C0001 / long call to S5021 @@3426=4401 HLT / @@3427=7402 SKP / @@3430=7410 JMS I C0113 / long call to S5421 @@3431=4513 HLT / @@3432=7402 HLT / @@3433=7402 TAD C0127 / @@3434=1127 C3435, 6151 / 6151 CLA / @@3436=7200 C3437, 6154 / 6154 AND C0036 / @@3440=0036 DCA D0005 / @@3441=3005 TAD D0005 / @@3442=1005 TAD C0062 / @@3443=1062 SNA CLA / @@3444=7650 JMS I D0106 / long call to S5000 @@3445=4506 JMS I C0001 / long call to S5021 @@3446=4401 C3447, 5570 / JMP I C0170 HLT / @@3450=7402 SKP / @@3451=7410 DCA I C0031 / @@3452=3431 JMS I C0144 / long call to S5406 @@3453=4544 JMS S0024 / @@3454=4024 C3455, 6154 / 6154 AND C0060 / @@3456=0060 SNA CLA / @@3457=7650 JMP L3473 / @@3460=5273 L3461, C3461, 6154 / 6154 AND C0060 / @@3462=0060 SZA CLA / @@3463=7640 JMP L3472 / @@3464=5272 ISZ S0006 / @@3465=2006 L3466, JMP L3461 / @@3466=5261 ISZ D0005 / @@3467=2005 JMP L3466 / @@3470=5266 SKP / @@3471=7410 L3472, JMS I D0106 / long call to S5000 @@3472=4506 L3473, JMS I C0001 / long call to S5021 @@3473=4401 C3474, 6677 / 6677 HLT / @@3475=7402 SKP CLA / @@3476=7610 DCA I C0053 / @@3477=3453 JMS I C0144 / long call to S5406 @@3500=4544 TAD C0070 / @@3501=1070 C3502, 6152 / 6152 CLA / @@3503=7200 C3504, 6154 / 6154 AND C0060 / @@3505=0060 SNA CLA / @@3506=7650 JMP L3522 / @@3507=5322 L3510, C3510, 6154 / 6154 AND C0060 / @@3511=0060 SNA CLA / @@3512=7650 JMP L3521 / @@3513=5321 ISZ S0006 / @@3514=2006 L3515, JMP L3510 / @@3515=5310 ISZ D0005 / @@3516=2005 JMP L3515 / @@3517=5315 SKP / @@3520=7410 L3521, JMS I D0106 / long call to S5000 @@3521=4506 L3522, JMS I C0001 / long call to S5021 @@3522=4401 LCF / Clear line printer done and error fl @@3523=6662 HLT / @@3524=7402 SKP CLA / @@3525=7610 DCA I C0100 / @@3526=3500 JMS I C0144 / long call to S5406 @@3527=4544 C3530, 6154 / 6154 AND C0060 / @@3531=0060 SNA CLA / @@3532=7650 JMP L3546 / @@3533=5346 L3534, C3534, 6154 / 6154 AND C0060 / @@3535=0060 SZA CLA / @@3536=7640 JMP L3545 / @@3537=5345 ISZ S0006 / @@3540=2006 L3541, JMP L3534 / @@3541=5334 ISZ D0005 / @@3542=2005 JMP L3541 / @@3543=5341 SKP / @@3544=7410 L3545, JMS I D0106 / long call to S5000 @@3545=4506 L3546, JMS I C0001 / long call to S5021 @@3546=4401 C3547, 6646 / 6646 HLT / @@3550=7402 SKP CLA / @@3551=7610 DCA I C0127 / @@3552=3527 JMS I C0144 / long call to S5406 @@3553=4544 JMS S0024 / @@3554=4024 TAD C0102 / @@3555=1102 JMS I C0114 / long call to S5433 @@3556=4514 JMS S0024 / @@3557=4024 TAD L0054 / @@3560=1054 C3561, 6151 / 6151 L3562, CLA CLL / AC = 0000 @@3562=7300 D3563, 2005 / ISZ D0005 L3564, JMP L3562 / @@3564=5362 ISZ S0006 / @@3565=2006 JMP L3564 / @@3566=5364 C3567, 6154 / 6154 AND C0060 / @@3570=0060 SNA CLA / @@3571=7650 JMS I D0106 / long call to S5000 @@3572=4506 JMS I C0001 / long call to S5021 @@3573=4401 HLT / @@3574=7402 SKP CLA / @@3575=7610 C3576, 3553 / DCA I C0153 JMS S0024 / @@3577=4024 D3600, 1070 / TAD C0070 C3601, 6152 / 6152 CLA / @@3602=7200 TAD C0062 / @@3603=1062 C3604, 6151 / 6151 CLA / @@3605=7200 C3606, 6154 / 6154 AND C0034 / @@3607=0034 SNA CLA / @@3610=7650 JMS I D0106 / long call to S5000 @@3611=4506 JMS I C0001 / long call to S5021 @@3612=4401 HLT / @@3613=7402 SKP CLA / @@3614=7610 DCA I L0177 / @@3615=3577 C3616, 6151 / 6151 TAD C0146 / @@3617=1146 C3620, 6154 / 6154 CLA / @@3621=7200 TAD C0060 / @@3622=1060 C3623, 6152 / 6152 CLA / @@3624=7200 TAD C0070 / @@3625=1070 C3626, 6152 / 6152 CLA / @@3627=7200 TAD C0071 / @@3630=1071 C3631, 6152 / 6152 CLA / @@3632=7200 TAD C0002 / @@3633=1002 C3634, 6151 / 6151 CLA / @@3635=7200 C3636, 6154 / 6154 CIA / @@3637=7041 TAD C0146 / @@3640=1146 TAD D0065 / @@3641=1065 C3642, 6151 / 6151 CLA / @@3643=7200 TAD D0004 / @@3644=1004 AND C0104 / @@3645=0104 C3646, 6154 / 6154 DCA D0005 / @@3647=3005 C3650, 6152 / 6152 C3651, 6151 / 6151 CLA / @@3652=7200 C3653, 6154 / 6154 DCA S0006 / @@3654=3006 TAD S0006 / @@3655=1006 CIA / @@3656=7041 TAD D0004 / @@3657=1004 AND C0104 / @@3660=0104 SNA CLA / @@3661=7650 JMS I D0106 / long call to S5000 @@3662=4506 JMS I C0001 / long call to S5021 @@3663=4401 HLT / @@3664=7402 C3665, 7651 / CLA SCA NMI C3666, 6151 / 6151 CLA CLL / AC = 0000 @@3667=7300 TAD D0004 / @@3670=1004 C3671, 6154 / 6154 DCA D0004 / @@3672=3004 TAD D0004 / @@3673=1004 CIA / @@3674=7041 TAD D0004 / @@3675=1004 SNA CLA / @@3676=7650 JMS I D0106 / long call to S5000 @@3677=4506 JMS I C0001 / long call to S5021 @@3700=4401 C3701, 6533 / 6533 HLT / @@3702=7402 SKP CLA / @@3703=7610 DCA I C3666 / @@3704=3666 *4700 L4700, //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4700 / / Called from: / 2135 2165 2210 2232 2254 2276 2320 2342 2364 / Total 0011 (9) calls //////////////////////////////////////////////////////////////////////////////// S4700, 0 / return area CLL RAR / @@4701=7110 DCA D0107 / @@4702=3107 JMS I D0022 / long call to S5200 @@4703=4422 TAD C0100 / @@4704=1100 DCA D0007 / @@4705=3007 L4706, TAD D0107 / @@4706=1107 AND C0060 / @@4707=0060 DCA S0024 / @@4710=3024 TAD S0024 / @@4711=1024 CMA / @@4712=7040 AND C0070 / @@4713=0070 TAD S0024 / @@4714=1024 C4715, 6151 / 6151 CLA / @@4716=7200 TAD D0107 / @@4717=1107 RAL / @@4720=7004 DCA D0107 / @@4721=3107 ISZ D0007 / @@4722=2007 JMP L4706 / @@4723=5306 CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@4724=7330 C4725, 6151 / 6151 CLA / @@4726=7200 C4727, 6154 / 6154 DCA D0005 / @@4730=3005 JMP I S4700 / return @@4731=5700 *5000 D5000, 0000 / AND L0000 JMS I D0022 / long call to S5200 @@5001=4422 CLA CLL IAC RTL / AC = 0004 @@5002=7307 TAD D5000 / @@5003=1200 DCA D5000 / @@5004=3200 TAD I D5000 / @@5005=1600 DCA S5021 / @@5006=3221 ISZ D0004 / @@5007=2004 JMP I S5021 / long jump to L0000 @@5010=5621 LAS / @@5011=7604 AND C0064 / @@5012=0064 SZA CLA / @@5013=7640 JMP I S5021 / long jump to L0000 @@5014=5621 CMA / @@5015=7040 TAD D5000 / @@5016=1200 DCA D5000 / @@5017=3200 JMP I D5000 / long jump to L0000 @@5020=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5021 / / Called from: / 0221 0246 0276 0332 0364 0422 0447 0474 0523 0551 0575 0621 0644 0671 0720 / 0746 0776 1030 1067 1132 1157 1202 1244 1272 1315 1343 1410 1433 1457 1507 / 1536 1572 1635 1700 1735 1761 2007 2052 2120 2152 2202 2224 2246 2270 2312 / 2334 2356 2400 2431 2454 2504 2531 2555 2574 2612 2630 2651 2673 2717 2736 / 2755 3017 3041 3062 3102 3144 3170 3205 3224 3243 3261 3300 3316 3335 3357 / 3401 3422 3426 3446 3473 3522 3546 3573 3612 3663 3700 / Total 0126 (86) calls //////////////////////////////////////////////////////////////////////////////// S5021, 0 / return area LAS / @@5022=7604 RAL / @@5023=7004 SMA CLA / @@5024=7700 JMP L5054 / @@5025=5254 JMS I L0140 / long call to S5211 @@5026=4540 L5027, TAD S5021 / @@5027=1221 CIA / @@5030=7041 DCA D0046 / @@5031=3046 ISZ S5021 / @@5032=2221 LAS / @@5033=7604 SMA CLA / @@5034=7700 JMP I S5021 / return @@5035=5621 ISZ S5021 / @@5036=2221 ISZ S5021 / @@5037=2221 TAD I S5021 / @@5040=1621 DCA D5000 / @@5041=3200 LAS / @@5042=7604 RTL / @@5043=7006 SPA CLA / @@5044=7710 JMP I D5000 / long jump to L0000 @@5045=5600 ISZ D0004 / @@5046=2004 JMP I D5000 / long jump to L0000 @@5047=5600 CMA / @@5050=7040 TAD S5021 / @@5051=1221 DCA S5021 / @@5052=3221 JMP I S5021 / return @@5053=5621 L5054, STA / AC = 7777 (-0001) @@5054=7240 TAD I S5021 / @@5055=1621 DCA AI2 / AUTO INDEX REGISTER @@5056=3012 TAD S5021 / @@5057=1221 TAD D0046 / @@5060=1046 SNA CLA / @@5061=7650 JMP L5162 / @@5062=5362 L5063, TAD I AI2 / AUTO INDEX REGISTER @@5063=1412 DCA D5000 / @@5064=3200 TAD D5000 / @@5065=1200 SNA / @@5066=7450 JMP L5027 / @@5067=5227 CMA / @@5070=7040 SNA / @@5071=7450 JMP L5120 / @@5072=5320 CMA / @@5073=7040 CLL RTR / @@5074=7112 RTR / @@5075=7012 RTR / @@5076=7012 JMS S5103 / @@5077=4303 TAD D5000 / @@5100=1200 JMS S5103 / @@5101=4303 JMP L5063 / @@5102=5263 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5103 / / Called from: / 5077 5101 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S5103, 0 / return area AND D0057 / @@5104=0057 DCA D0047 / @@5105=3047 TAD D0047 / @@5106=1047 SNA CLA / @@5107=7650 JMS S5153 / @@5110=4353 TAD D0047 / @@5111=1047 TAD C0115 / @@5112=1115 SPA / @@5113=7510 TAD C0072 / @@5114=1072 TAD C0055 / @@5115=1055 JMS I C0023 / long call to S5254 @@5116=4423 JMP I S5103 / return @@5117=5703 L5120, TAD I AI2 / AUTO INDEX REGISTER @@5120=1412 DCA D5000 / @@5121=3200 TAD D5000 / @@5122=1200 SNA CLA / @@5123=7650 JMP L5027 / @@5124=5227 TAD I D5000 / @@5125=1600 JMS S5132 / @@5126=4332 TAD C0055 / @@5127=1055 JMS I C0023 / long call to S5254 @@5130=4423 JMP L5120 / @@5131=5320 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5132 / / Called from: / 5126 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S5132, 0 / return area DCA S5103 / @@5133=3303 TAD D0130 / @@5134=1130 DCA D0047 / @@5135=3047 L5136, TAD C0056 / @@5136=1056 L5137, DCA S5153 / @@5137=3353 TAD S5103 / @@5140=1303 RAL / @@5141=7004 DCA S5103 / @@5142=3303 TAD S5153 / @@5143=1353 RAL / @@5144=7004 SNL / @@5145=7420 JMP L5137 / @@5146=5337 JMS I C0023 / long call to S5254 @@5147=4423 ISZ D0047 / @@5150=2047 JMP L5136 / @@5151=5336 JMP I S5132 / return @@5152=5732 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5153 / / Called from: / 5110 5170 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S5153, 0 / return area TAD C0074 / @@5154=1074 JMS I C0023 / long call to S5254 @@5155=4423 TAD C0067 / @@5156=1067 JMS I C0023 / long call to S5254 @@5157=4423 TAD D0075 / @@5160=1075 JMP I S5153 / return @@5161=5753 L5162, TAD I AI2 / AUTO INDEX REGISTER @@5162=1412 SNA / @@5163=7450 JMP L5027 / @@5164=5227 CMA / @@5165=7040 SZA CLA / @@5166=7640 JMP L5162 / @@5167=5362 JMS S5153 / @@5170=4353 CLA CLL / AC = 0000 @@5171=7300 JMP L5120 / @@5172=5320 *5200 C5200, C5200, 0000 / AND L0000 CLA / @@5201=7200 TAD C0071 / @@5202=1071 TAD C0060 / @@5203=1060 C5204, 6141 / 6141 AND C0001 / @@5205=0001 AND C0002 / @@5206=0002 CLA / @@5207=7200 JMP I C5200 / long jump to L0000 @@5210=5600 C5211, C5211, 0000 / AND L0000 LAS / @@5212=7604 AND C0072 / @@5213=0072 SZA CLA / @@5214=7640 JMP I C5211 / long jump to L0000 @@5215=5611 TAD C0110 / @@5216=1110 JMS I C0023 / long call to S5254 @@5217=4423 JMP I C5211 / long jump to L0000 @@5220=5611 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5221 / / Called from: / 0455 0532 0604 0727 1013 1075 1106 1164 1211 1350 1514 1643 / Total 0014 (12) calls //////////////////////////////////////////////////////////////////////////////// S5221, 0 / return area TAD D5251 / @@5222=1251 TAD D5252 / @@5223=1252 TAD D5253 / @@5224=1253 TAD C0146 / @@5225=1146 DCA D5251 / @@5226=3251 RAL / @@5227=7004 TAD D5251 / @@5230=1251 TAD D5252 / @@5231=1252 TAD D5253 / @@5232=1253 TAD C0146 / @@5233=1146 DCA D5252 / @@5234=3252 RAL / @@5235=7004 TAD D5251 / @@5236=1251 TAD D5252 / @@5237=1252 TAD D5253 / @@5240=1253 TAD C0146 / @@5241=1146 DCA D5253 / @@5242=3253 RAL / @@5243=7004 TAD D5251 / @@5244=1251 DCA D5251 / @@5245=3251 TAD D5252 / @@5246=1252 TAD D5253 / @@5247=1253 JMP I S5221 / return @@5250=5621 D5251, 7601 / CLA D5252, 3542 / DCA I C0142 D5253, 3755 / DCA I C5355 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5254 / / Called from: / 5116 5130 5147 5155 5157 5217 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S5254, 0 / return area TLS / Load the TTO from the content of AC4 @@5255=6046 L5256, TSF / Skip if teleprinter flag is a 1. @@5256=6041 JMP L5256 / @@5257=5256 CLA CLL / AC = 0000 @@5260=7300 JMP I S5254 / return @@5261=5654 *5400 D5400, 0000 / AND L0000 CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@5401=7330 C5402, 6151 / 6151 D5403, 7200 / CLA C5404, 6154 / 6154 JMP I D5400 / long jump to L0000 @@5405=5600 L5406, //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5406 / / Called from: / 3453 3500 3527 3553 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S5406, 0 / return area STA / AC = 7777 (-0001) @@5407=7240 DCA D0004 / @@5410=3004 TAD C5420 / @@5411=1220 DCA D0005 / @@5412=3005 DCA S0006 / @@5413=3006 C5414, 1053 / TAD C0053 C5415, 6151 / 6151 CLA / @@5416=7200 JMP I S5406 / return @@5417=5606 C5420, 7760 / SMA SZA SNL CLA //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5421 / / Called from: / 3431 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S5421, 0 / return area CLA / @@5422=7200 TAD C0060 / @@5423=1060 C5424, 6141 / 6141 AND C0001 / @@5425=0001 AND I C5523 / @@5426=0723 C5427, 3000 / DCA L0000 AND C0002 / @@5430=0002 CLA / @@5431=7200 JMP I S5421 / return @@5432=5621 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5433 / / Called from: / 3556 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S5433, 0 / return area TAD C0031 / @@5434=1031 DCA D5442 / @@5435=3242 TAD C0060 / @@5436=1060 C5437, 6141 / 6141 L5440, AND C0001 / @@5440=0001 AND L1 / @@5441=0011 D5442, 0000 / AND L0000 C5443, 3000 / DCA L0000 AND C0002 / @@5444=0002 CLA / @@5445=7200 JMP I S5433 / return @@5446=5633 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5447 / / Called from: / 2035 2067 2111 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S5447, 0 / return area TAD C0031 / @@5450=1031 DCA D5453 / @@5451=3253 C5452, 6141 / 6141 D5453, 0000 / AND L0000 C5454, 3000 / DCA L0000 AND C0002 / @@5455=0002 CLA / @@5456=7200 JMP I S5447 / return @@5457=5647 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5460 / / Called from: / 2466 2512 2537 2564 2602 2636 2657 2701 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S5460, 0 / return area DCA D5464 / @@5461=3264 C5462, 6141 / 6141 AND I C5503 / @@5463=0703 D5464, 0000 / AND L0000 AND C0002 / @@5465=0002 JMP I S5460 / return @@5466=5660 C5467, 0000 / AND L0000 C5470, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5471 / / Called from: / 1144 1167 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S5471, 0 / return area CLL CMA / @@5472=7140 DCA L1 / @@5473=3011 TAD D0130 / @@5474=1130 DCA S5447 / @@5475=3247 JMS I D0022 / long call to S5200 @@5476=4422 L5477, TAD L1 / @@5477=1011 AND C0121 / @@5500=0121 DCA AI0 / AUTO INDEX REGISTER @@5501=3010 TAD L1 / @@5502=1011 C5503, 7112 / CLL RTR RAR / @@5504=7010 DCA D0007 / @@5505=3007 TAD D0007 / @@5506=1007 AND C0122 / @@5507=0122 TAD AI0 / AUTO INDEX REGISTER @@5510=1010 DCA AI0 / AUTO INDEX REGISTER @@5511=3010 TAD D0007 / @@5512=1007 CLL RTR / @@5513=7112 RAR / @@5514=7010 DCA D0007 / @@5515=3007 TAD D0007 / @@5516=1007 AND C0063 / @@5517=0063 TAD AI0 / AUTO INDEX REGISTER @@5520=1010 TAD C0051 / @@5521=1051 C5522, 6152 / 6152 C5523, 7300 / CLA CLL TAD L1 / @@5524=1011 CLL RAR / @@5525=7110 DCA L1 / @@5526=3011 ISZ S5447 / @@5527=2247 JMP L5477 / @@5530=5277 JMP I S5471 / return @@5531=5671 AND S0024 / @@5532=0024 AND D0120 / @@5533=0120 AND I L0140 / @@5534=0540 ISZ D0022 / @@5535=2022 AND I C0123 / @@5536=0523 AND I C0124 / @@5537=0524 C5540, 4000 / JMS L0000 C5541, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@5542=0005 C5543, 0000 / AND L0000 AND L1 / @@5544=0011 AND I L4 / @@5545=0414 C5546, 0552 / AND I C0152 TAD C0104 / @@5547=1104 TAD I D0005 / @@5550=1405 C5551, 4000 / JMS L0000 C5552, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@5553=0005 C5554, 0000 / AND L0000 AND C0023 / @@5555=0023 AND I C0101 / @@5556=0501 ISZ D5403 / @@5557=2203 TAD D0040 / @@5560=1040 JMP L5440 / @@5561=5240 AND C5414 / @@5562=0214 TAD I C5503 / @@5563=1703 TAD C5540 / @@5564=1340 C5565, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@5566=0005 C5567, 0000 / AND L0000 AND AI5 / AUTO INDEX REGISTER @@5570=0015 ISZ I C0002 / @@5571=2402 JMS L1 / @@5572=4011 JMP L0061 / @@5573=5061 JMP L0140 / @@5574=5140 AND C5415 / @@5575=0215 JMS S0024 / @@5576=4024 ISZ I C0062 / @@5577=2462 D5600, 4023 / JMS C0023 AND I C0101 / @@5601=0501 ISZ D5603 / @@5602=2203 D5603, 1040 / TAD D0040 C5604, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@5605=0005 C5606, 0000 / AND L0000 AND L4 / @@5607=0014 ISZ I C5716 / @@5610=2716 C5611, 4003 / JMS C0003 TAD I C0100 / @@5612=1500 C5613, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@5614=0005 C5615, 0000 / AND L0000 AND L4 / @@5616=0014 ISZ I C5716 / @@5617=2716 JMS D0007 / @@5620=4007 TAD I C0100 / @@5621=1500 C5622, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@5623=0005 C5624, 0000 / AND L0000 AND L4 / @@5625=0014 ISZ I C5716 / @@5626=2716 JMS D0004 / @@5627=4004 TAD I C0100 / @@5630=1500 C5631, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@5632=0005 C5633, 0000 / AND L0000 AND L4 / @@5634=0014 ISZ I C5716 / @@5635=2716 JMS S0006 / @@5636=4006 TAD I C0100 / @@5637=1500 D5640, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@5641=0005 C5642, 0000 / AND L0000 AND L4 / @@5643=0014 ISZ I C5716 / @@5644=2716 C5645, 4001 / JMS C0001 TAD I C0100 / @@5646=1500 C5647, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@5650=0005 C5651, 0000 / AND L0000 AND L4 / @@5652=0014 ISZ I C5716 / @@5653=2716 JMS L1 / @@5654=4011 TAD I C0100 / @@5655=1500 C5656, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@5657=0005 C5660, 0000 / AND L0000 L5661, AND L4 / @@5661=0014 ISZ I C5716 / @@5662=2716 JMS D0005 / @@5663=4005 TAD I C0100 / @@5664=1500 C5665, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@5666=0005 C5667, 0000 / AND L0000 HLT / @@5670=7402 AND D0005 / @@5671=0005 C5672, 0000 / AND L0000 AND L4 / @@5673=0014 ISZ I D0022 / @@5674=2422 JMS S0024 / @@5675=4024 TAD I C0101 / @@5676=1501 C5677, 4001 / JMS C0001 AND C5740 / @@5700=0340 JMS S0006 / @@5701=4006 AND C0111 / @@5702=0111 TAD I D0005 / @@5703=1405 AND I D0040 / @@5704=0440 AND C0001 / @@5705=0001 AND C5740 / @@5706=0340 C5707, 4040 / JMS D0040 ISZ I AI5 / AUTO INDEX REGISTER @@5710=2415 AND C0100 / @@5711=0100 C5712, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@5713=0005 AND S0006 / @@5714=0006 C5715, 0000 / AND L0000 C5716, 0014 / AND L4 C5717, 2415 / ISZ I AI5 ISZ D5640 / @@5720=2240 TAD I C0101 / @@5721=1501 TAD C0116 / @@5722=1116 ISZ I D0040 / @@5723=2440 TAD C0122 / @@5724=1122 JMS S0024 / @@5725=4024 AND D0120 / @@5726=0120 AND I L0140 / @@5727=0540 ISZ D0022 / @@5730=2022 AND I C0123 / @@5731=0523 AND I C0124 / @@5732=0524 C5733, 4000 / JMS L0000 C5734, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@5735=0005 AND D0004 / @@5736=0004 AND S0006 / @@5737=0006 C5740, 0000 / AND L0000 AND L4 / @@5741=0014 ISZ I AI5 / AUTO INDEX REGISTER @@5742=2415 ISZ D5640 / @@5743=2240 TAD C0117 / @@5744=1117 ISZ I D0040 / @@5745=2440 AND I D0005 / @@5746=0405 AND C5717 / @@5747=0317 AND I D0005 / @@5750=0405 ISZ D5600 / @@5751=2200 C5752, 7777 / CLA MQA SCA MQL LSR + AND D0004 / @@5753=0004 AND D0005 / @@5754=0005 C5755, 0000 / AND L0000 AND L4 / @@5756=0014 ISZ I AI5 / AUTO INDEX REGISTER @@5757=2415 ISZ D5640 / @@5760=2240 TAD C0117 / @@5761=1117 ISZ I D0040 / @@5762=2440 LSD / Skip if the printer done flag is a 1 @@5763=6661 UPDT / (AA05/AA07) The contents of the inpu @@5764=6564 C5765, 4000 / JMS L0000 C5766, 7777 / CLA MQA SCA MQL LSR + AND C0146 / @@5767=0146 AND D0005 / @@5770=0005 C5771, 0000 / AND L0000 AND L4 / @@5772=0014 ISZ I AI5 / AUTO INDEX REGISTER @@5773=2415 ISZ D5640 / @@5774=2240 TAD I C0101 / @@5775=1501 TAD C0116 / @@5776=1116 ISZ I D0040 / @@5777=2440 D6000, 1517 / TAD I C0117 C6001, 0405 / AND I D0005 JMS S0006 / @@6002=4006 TAD I AI7 / AUTO INDEX REGISTER @@6003=1417 C6004, 2000 / ISZ L0000 D6005, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6006=0005 AND S0006 / @@6007=0006 C6010, 0000 / AND L0000 AND L4 / @@6011=0014 ISZ I AI5 / AUTO INDEX REGISTER @@6012=2415 ISZ L6040 / @@6013=2240 TAD I C0101 / @@6014=1501 TAD C0116 / @@6015=1116 C6016, 2440 / ISZ I D0040 TAD I C0117 / @@6017=1517 AND I D0005 / @@6020=0405 JMS S0024 / @@6021=4024 AND D0120 / @@6022=0120 C6023, 0540 / AND I L0140 ISZ D0022 / @@6024=2022 AND I C0123 / @@6025=0523 AND I C0124 / @@6026=0524 C6027, 4000 / JMS L0000 C6030, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6031=0005 AND S0006 / @@6032=0006 C6033, 0000 / AND L0000 AND L4 / @@6034=0014 ISZ I AI5 / AUTO INDEX REGISTER @@6035=2415 ISZ L6040 / @@6036=2240 TAD C0117 / @@6037=1117 L6040, D6040, 2440 / ISZ I D0040 LSD / Skip if the printer done flag is a 1 @@6041=6661 LDAR / (AA05/AA07) The buffer (input buffer @@6042=6562 C6043, 4000 / JMS L0000 C6044, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6045=0005 C6046, 0000 / AND L0000 AND L4 / @@6047=0014 TAD C0116 / @@6050=1116 JMS S0024 / @@6051=4024 AND C0103 / @@6052=0103 JMS D0005 / @@6053=4005 ISZ L0140 / @@6054=2140 C6055, 6767 / 6767 C6056, 6767 / 6767 C6057, 4050 / JMS C0050 C6060, 2401 / ISZ I C0001 AND C6175 / @@6061=0375 C6062, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6063=0005 C6064, 0000 / AND L0000 AND L4 / @@6065=0014 TAD C0116 / @@6066=1116 JMS S0024 / @@6067=4024 TAD C0116 / @@6070=1116 ISZ L6040 / @@6071=2240 ISZ I C0001 / @@6072=2401 ISZ D0005 / @@6073=2005 C6074, 4020 / JMS L0020 ISZ D6005 / @@6075=2205 ISZ D6105 / @@6076=2305 C6077, 2400 / ISZ I L0000 C6100, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6101=0005 AND S0006 / @@6102=0006 C6103, 0000 / AND L0000 AND L4 / @@6104=0014 D6105, 1116 / TAD C0116 JMS L1 / @@6106=4011 TAD I C6023 / @@6107=1623 ISZ I D0022 / @@6110=2422 ISZ I C0103 / @@6111=2503 ISZ I L1 / @@6112=2411 TAD I C6116 / @@6113=1716 JMS D0004 / @@6114=4004 AND I C0103 / @@6115=0503 C6116, 1704 / TAD I C6104 AND I C0122 / @@6117=0522 C6120, 4000 / JMS L0000 C6121, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6122=0005 AND S0006 / @@6123=0006 C6124, 0000 / AND L0000 AND L4 / @@6125=0014 TAD C0116 / @@6126=1116 JMS L1 / @@6127=4011 C6130, 4002 / JMS C0002 TAD C0124 / @@6131=1124 C6132, 4000 / JMS L0000 C6133, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6134=0005 AND S0006 / @@6135=0006 C6136, 0000 / AND L0000 AND L4 / @@6137=0014 C6140, 2422 / ISZ I D0022 JMS S0024 / @@6141=4024 AND C6016 / @@6142=0216 C6143, 4001 / JMS C0001 AND C6140 / @@6144=0340 AND I C6001 / @@6145=0601 TAD C0114 / @@6146=1114 AND I C0104 / @@6147=0504 C6150, 4000 / JMS L0000 D6151, 0103 / AND C0103 C6152, 4040 / JMS D0040 JMS S0024 / @@6153=4024 AND C6016 / @@6154=0216 C6155, 4000 / JMS L0000 C6156, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6157=0005 AND S0006 / @@6160=0006 C6161, 0000 / AND L0000 AND L4 / @@6162=0014 ISZ I D0022 / @@6163=2422 JMS S0024 / @@6164=4024 AND L6040 / @@6165=0240 AND C0103 / @@6166=0103 JMS S0006 / @@6167=4006 AND C0111 / @@6170=0111 TAD I D0005 / @@6171=1405 C6172, 0400 / AND I L0000 AND C0103 / @@6173=0103 C6174, 4040 / JMS D0040 C6175, 4024 / JMS S0024 AND D6000 / @@6176=0200 C6177, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6200=0005 C6201, 0006 / AND S0006 D6202, 0000 / AND L0000 AND L4 / @@6203=0014 C6204, 2422 / ISZ I D0022 JMS S0024 / @@6205=4024 AND C0103 / @@6206=0103 C6207, 4001 / JMS C0001 AND D6340 / @@6210=0340 AND I C6201 / @@6211=0601 TAD C0114 / @@6212=1114 AND I C0104 / @@6213=0504 AND C0001 / @@6214=0001 AND D6340 / @@6215=0340 C6216, 4040 / JMS D0040 ISZ I C0001 / @@6217=2401 AND C6300 / @@6220=0300 C6221, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6222=0005 AND S0006 / @@6223=0006 C6224, 0000 / AND L0000 AND S0024 / @@6225=0024 AND C6240 / @@6226=0240 ISZ I C0001 / @@6227=2401 AND D6340 / @@6230=0340 AND C0104 / @@6231=0104 AND I D0040 / @@6232=0440 AND I C6201 / @@6233=0601 TAD C0114 / @@6234=1114 AND I C0104 / @@6235=0504 C6236, 4000 / JMS L0000 ISZ I C0002 / @@6237=2402 C6240, 4040 / JMS D0040 JMS S0024 / @@6241=4024 AND C0103 / @@6242=0103 C6243, 4040 / JMS D0040 AND I C6317 / @@6244=0717 TAD I C6304 / @@6245=1704 C6246, 4001 / JMS C0001 AND C6324 / @@6247=0324 ISZ I C0101 / @@6250=2501 C6251, 1400 / TAD I L0000 C6252, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6253=0005 AND S0006 / @@6254=0006 AND AI0 / AUTO INDEX REGISTER @@6255=0010 AND D0007 / @@6256=0007 C6257, 0000 / AND L0000 AND L4 / @@6260=0014 AND C6330 / @@6261=0330 C6262, 4001 / JMS C0001 TAD I C6330 / @@6263=1730 JMS D0004 / @@6264=4004 TAD C0123 / @@6265=1123 ISZ I C0025 / @@6266=2425 ISZ D6202 / @@6267=2202 ISZ D6340 / @@6270=2340 AND C0103 / @@6271=0103 C6272, 4000 / JMS L0000 C6273, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6274=0005 AND S0006 / @@6275=0006 C6276, 0000 / AND L0000 AND AI5 / AUTO INDEX REGISTER @@6277=0015 C6300, 1340 / TAD D6340 ISZ I C6311 / @@6301=2711 C6302, 1604 / TAD I C6204 JMS D0004 / @@6303=4004 C6304, 1122 / TAD C0122 D6305, 4002 / JMS C0002 TAD C6327 / @@6306=1327 AND I D0040 / @@6307=0440 C6310, 7777 / CLA MQA SCA MQL LSR + C6311, 0004 / AND D0004 AND D0005 / @@6312=0005 AND S0006 / @@6313=0006 C6314, 0000 / AND L0000 AND AI5 / AUTO INDEX REGISTER @@6315=0015 TAD D6340 / @@6316=1340 C6317, 2711 / ISZ I C6311 TAD I C6204 / @@6320=1604 JMS D0004 / @@6321=4004 TAD C0122 / @@6322=1122 JMS S0006 / @@6323=4006 C6324, 2704 / ISZ I C6304 C6325, 4040 / JMS D0040 C6326, 7777 / CLA MQA SCA MQL LSR + C6327, 0004 / AND D0004 C6330, 0005 / AND D0005 C6331, 0000 / AND L0000 AND L4 / @@6332=0014 ISZ I D0022 / @@6333=2422 JMS S0024 / @@6334=4024 TAD I C0101 / @@6335=1501 C6336, 4023 / JMS C0023 AND I C0124 / @@6337=0524 D6340, 2520 / ISZ I D0120 C6341, 4001 / JMS C0001 AND D6340 / @@6342=0340 AND I C6201 / @@6343=0601 TAD C0114 / @@6344=1114 AND I C0104 / @@6345=0504 AND C0001 / @@6346=0001 AND D6340 / @@6347=0340 C6350, 4040 / JMS D0040 ISZ I AI5 / AUTO INDEX REGISTER @@6351=2415 AND L0140 / @@6352=0140 ISZ D6305 / @@6353=2305 ISZ I C0025 / @@6354=2425 C6355, 2000 / ISZ L0000 C6356, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6357=0005 AND S0006 / @@6360=0006 C6361, 0000 / AND L0000 AND L4 / @@6362=0014 ISZ I D0022 / @@6363=2422 C6364, 4022 / JMS D0022 ISZ I C6302 / @@6365=2702 C6366, 4023 / JMS C0023 TAD L1 / @@6367=1011 AND I C6224 / @@6370=0624 C6371, 4000 / JMS L0000 C6372, 7777 / CLA MQA SCA MQL LSR + AND S0006 / @@6373=0006 AND D0005 / @@6374=0005 C6375, 0000 / AND L0000 AND C0023 / @@6376=0023 AND I C0101 / @@6377=0501 C6400, 2203 / ISZ D6403 TAD D0040 / @@6401=1040 ISZ I AI7 / AUTO INDEX REGISTER @@6402=2417 D6403, 4002 / JMS C0002 TAD I AI7 / AUTO INDEX REGISTER @@6404=1417 D6405, 0313 / AND C6513 C6406, 4000 / JMS L0000 C6407, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6410=0005 C6411, 0000 / AND L0000 AND C0025 / @@6412=0025 TAD I C6411 / @@6413=1611 ISZ I D0040 / @@6414=2440 ISZ D6505 / @@6415=2305 TAD I D0005 / @@6416=1405 AND C6524 / @@6417=0324 D6420, 4000 / JMS L0000 C6421, 7777 / CLA MQA SCA MQL LSR + AND S0006 / @@6422=0006 AND D0007 / @@6423=0007 C6424, 0000 / AND L0000 AND C0025 / @@6425=0025 TAD I C6411 / @@6426=1611 ISZ I D0040 / @@6427=2440 ISZ D6505 / @@6430=2305 TAD I D0005 / @@6431=1405 AND C6524 / @@6432=0324 C6433, 4020 / JMS L0020 ISZ D6405 / @@6434=2205 ISZ D6505 / @@6435=2305 C6436, 2400 / ISZ I L0000 C6437, 7777 / CLA MQA SCA MQL LSR + D6440, 0005 / AND D0005 C6441, 0000 / AND L0000 AND AI5 / AUTO INDEX REGISTER @@6442=0015 ISZ I L0020 / @@6443=2420 C6444, 4023 / JMS C0023 AND I C0124 / @@6445=0524 ISZ I D0120 / @@6446=2520 JMS S0024 / @@6447=4024 TAD I D6540 / @@6450=1740 TAD C0104 / @@6451=1104 TAD I D0005 / @@6452=1405 C6453, 4000 / JMS L0000 C6454, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6455=0005 C6456, 0000 / AND L0000 AND L1 / @@6457=0011 AND I L4 / @@6460=0414 C6461, 0552 / AND I C0152 ISZ D6505 / @@6462=2305 AND C0122 / @@6463=0122 AND C6510 / @@6464=0310 C6465, 4000 / JMS L0000 C6466, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6467=0005 C6470, 0000 / AND L0000 AND D0007 / @@6471=0007 ISZ D6475 / @@6472=2275 AND I C6520 / @@6473=0720 AND D6540 / @@6474=0340 D6475, 1116 / TAD C0116 ISZ D6440 / @@6476=2240 C6477, 6161 / 6161 C6500, 4000 / JMS L0000 C6501, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6502=0005 AND S0006 / @@6503=0006 C6504, 0000 / AND L0000 D6505, 0014 / AND L4 AND I C6520 / @@6506=0720 JMS D0007 / @@6507=4007 C6510, 2075 / ISZ D0075 AND I C6520 / @@6511=0720 AND D6540 / @@6512=0340 C6513, 2022 / ISZ D0022 AND I C0123 / @@6514=0523 AND I C0124 / @@6515=0524 C6516, 4000 / JMS L0000 C6517, 0000 / AND L0000 C6520, 0014 / AND L4 AND I C6520 / @@6521=0720 JMS D0007 / @@6522=4007 ISZ D6420 / @@6523=2220 C6524, 4004 / JMS D0004 C6525, 0124 / AND C0124 AND C0100 / @@6526=0100 C6527, 7777 / CLA MQA SCA MQL LSR + C6530, 0005 / AND D0005 AND S0006 / @@6531=0006 C6532, 0000 / AND L0000 AND AI5 / AUTO INDEX REGISTER @@6533=0015 AND D6440 / @@6534=0240 ISZ I C0002 / @@6535=2402 TAD I C6400 / @@6536=1600 C6537, 7777 / CLA MQA SCA MQL LSR + D6540, 0004 / AND D0004 AND D0005 / @@6541=0005 C6542, 0000 / AND L0000 AND L4 / @@6543=0014 AND I C6520 / @@6544=0720 C6545, 4003 / JMS C0003 TAD I C6525 / @@6546=1725 TAD I C6424 / @@6547=1624 C6550, 4000 / JMS L0000 C6551, 7777 / CLA MQA SCA MQL LSR + AND D0004 / @@6552=0004 AND D0005 / @@6553=0005 C6554, 0000 / AND L0000 AND L4 / @@6555=0014 AND I C6520 / @@6556=0720 C6557, 4015 / JMS AI5 ISZ I L0020 / @@6560=2420 C6561, 4023 / JMS C0023 AND I C0124 / @@6562=0524 ISZ I D0120 / @@6563=2520 C6564, 4000 / JMS L0000 C6565, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6566=0005 C6567, 0000 / AND L0000 AND L4 / @@6570=0014 AND C6530 / @@6571=0330 JMS D0005 / @@6572=4005 DCA S0024 / @@6573=3024 AND I C0116 / @@6574=0516 AND I D0040 / @@6575=0440 TAD I C6520 / @@6576=1720 ISZ D6540 / @@6577=2340 D6600, 0401 / AND I C0001 C6601, 2401 / ISZ I C0001 C6602, 4030 / JMS C0030 AND I D6605 / @@6603=0605 D6604, 2200 / ISZ D6600 D6605, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6606=0005 AND S0006 / @@6607=0006 C6610, 0000 / AND L0000 AND L4 / @@6611=0014 AND C6730 / @@6612=0330 JMS D0005 / @@6613=4005 DCA S0024 / @@6614=3024 AND I C0116 / @@6615=0516 AND I D0040 / @@6616=0440 TAD I C6720 / @@6617=1720 ISZ D6740 / @@6620=2340 ISZ D0022 / @@6621=2022 AND I C0123 / @@6622=0523 AND I C0124 / @@6623=0524 C6624, 4000 / JMS L0000 C6625, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6626=0005 D6627, 0000 / AND L0000 AND L4 / @@6630=0014 AND C6730 / @@6631=0330 C6632, 4014 / JMS L4 TAD I C6701 / @@6633=1701 AND I D0040 / @@6634=0440 AND I D0130 / @@6635=0530 ISZ I D0040 / @@6636=2440 TAD I C6720 / @@6637=1720 D6640, 4022 / JMS D0022 AND I D0107 / @@6641=0507 C6642, 4000 / JMS L0000 C6643, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@6644=0005 C6645, 0000 / AND L0000 AND C0001 / @@6646=0001 AND C6711 / @@6647=0311 C6650, 2040 / ISZ D0040 AND I D0005 / @@6651=0405 TAD I C0001 / @@6652=1401 DCA L0140 / @@6653=3140 TAD I C0117 / @@6654=1517 ISZ I L1 / @@6655=2411 TAD I C6716 / @@6656=1716 C6657, 4050 / JMS C0050 C6660, 6151 / 6151 C6661, 0000 / AND L0000 AND C0001 / @@6662=0001 AND C6711 / @@6663=0311 ISZ D0040 / @@6664=2040 AND I D0005 / @@6665=0405 TAD I C0001 / @@6666=1401 DCA L0140 / @@6667=3140 AND I L1 / @@6670=0411 ISZ D6605 / @@6671=2205 AND C6724 / @@6672=0324 TAD C0117 / @@6673=1117 TAD I C6650 / @@6674=1650 C6675, 6050 / 6050 C6676, 0000 / AND L0000 AND C0001 / @@6677=0001 D6700, 0311 / AND C6711 C6701, 2040 / ISZ D0040 AND I D0005 / @@6702=0405 TAD I C0001 / @@6703=1401 DCA L0140 / @@6704=3140 AND I L1 / @@6705=0411 ISZ D6605 / @@6706=2205 AND C6724 / @@6707=0324 TAD C0117 / @@6710=1117 C6711, 1650 / TAD I C6650 C6712, 6150 / 6150 C6713, 0000 / AND L0000 AND C0023 / @@6714=0023 ISZ I C0027 / @@6715=2427 C6716, 4017 / JMS AI7 C6717, 2240 / ISZ D6640 C6720, 2401 / ISZ I C0001 ISZ D0005 / @@6721=2005 C6722, 4027 / JMS C0027 TAD I C6722 / @@6723=1722 C6724, 0440 / AND I D0040 AND I C6601 / @@6725=0601 TAD C0114 / @@6726=1114 AND I C0104 / @@6727=0504 C6730, 4024 / JMS S0024 ISZ D0075 / @@6731=2075 C6732, 6140 / 6140 C6733, 0000 / AND L0000 AND C0023 / @@6734=0023 ISZ I C0027 / @@6735=2427 C6736, 4062 / JMS C0062 C6737, 6040 / 6040 D6740, 1722 / TAD I C6722 JMS S0024 / @@6741=4024 AND D0120 / @@6742=0120 AND I L0140 / @@6743=0540 ISZ I C6717 / @@6744=2717 ISZ D6604 / @@6745=2204 JMS S0006 / @@6746=4006 AND C0111 / @@6747=0111 TAD I D0005 / @@6750=1405 AND I D0040 / @@6751=0440 ISZ I L0020 / @@6752=2420 SMA SZA SNL / @@6753=7560 C6754, 0000 / AND L0000 AND L4 / @@6755=0014 ISZ I D0022 / @@6756=2422 C6757, 4001 / JMS C0001 AND D6740 / @@6760=0340 ISZ D6627 / @@6761=2227 AND D6640 / @@6762=0240 JMP L0026 / @@6763=5026 TAD C0101 / @@6764=1101 C6765, 4015 / JMS AI5 AND C0111 / @@6766=0111 TAD I C6624 / @@6767=1624 JMS D0007 / @@6770=4007 AND C0124 / @@6771=0124 AND I C0151 / @@6772=0551 JMS S0006 / @@6773=4006 AND C0111 / @@6774=0111 TAD I D0005 / @@6775=1405 C6776, 0400 / AND I L0000 AND C0103 / @@6777=0103 C7000, 4040 / JMS D0040 C7001, 4022 / JMS D0022 C7002, 2702 / ISZ I C7102 C7003, 4000 / JMS L0000 C7004, 7777 / CLA MQA SCA MQL LSR + AND D0005 / @@7005=0005 AND S0006 / @@7006=0006 C7007, 0000 / AND L0000 AND L4 / @@7010=0014 ISZ I D0022 / @@7011=2422 C7012, 4001 / JMS C0001 C7013, 0340 / AND C7140 ISZ D7027 / @@7014=2227 C7015, 0240 / AND C7040 JMP L0026 / @@7016=5026 TAD C0101 / @@7017=1101 L7020, JMS S0024 / @@7020=4024 C7021, 0251 / AND C7051 JMS S0006 / @@7022=4006 AND C0111 / @@7023=0111 TAD I D0005 / @@7024=1405 C7025, 0400 / AND I L0000 AND C0103 / @@7026=0103 D7027, 4040 / JMS D0040 C7030, 4022 / JMS D0022 C7031, 2702 / ISZ I C7102 C7032, 4000 / JMS L0000 $