L0000: 0000: 57 USB 0001: 00 CLR 0002: 0F LDA #$F00 0003: 20 01 ADD #$01 0005: 48 00 LDJ &L0008 0007: 80 LDP #$0 L0008: 0008: D0 STA $0 0009: C0 LDI $0 000A: 57 USB 000B: E6 STA [i] 000C: 21 ADD #$1 000D: 5D JNC ; L0008 000E: D0 STA $0 000F: 00 CLR 0010: 21 ADD #$1 0011: 95 OUT $5 0012: 44 09 LDJ &L0904 0014: 58 JMP ; Returns to L0026 ; data block ? L0015: 00000010: f5 79 cd 8f 06 f1 c9 fe 20 c8 fe : .y...... .. 00000020: 09 c8 fe 2c c8 fe : ...,.. L0026: 0026: 09 LDA #$900 0027: 20 1C ADD #$1C ; &L091C - address of shields init 0029: E7 ADD [i] 002A: E2 XLT ; get actual shield init value 002B: 5F NOP 002C: E6 STA [i] 002D: 02 LDA #$200 002E: 20 D3 ADD #$D3 0030: 88 LDP #$8 0031: D3 STA $3 0032: 82 LDP #$2 0033: D2 STA $2 0034: D3 STA $3 0035: 00 CLR 0036: DC STA $C 0037: DD STA $D 0038: 00 CLR 0039: 86 LDP #$6 003A: D2 STA $2 003B: D0 STA $0 003C: DA STA $A 003D: DC STA $C 003E: D9 STA $9 003F: 21 ADD #$1 0040: D1 STA $1 0041: 17 INP $7 0042: 21 ADD #$1 0043: 48 50 LDJ &L0058 0045: 5C JEQ 0046: 40 00 LDJ &L1000 0048: 82 LDP #$2 0049: 50 JPPB ; goto L1000 L004A: 004A: 20 1F ADD #$1F 004C: B3 CMP $3 004D: 46 50 LDJ &L0056 004F: 5D JNC 0050: EA LDA [i] 0051: 21 ADD #$1 0052: E6 STA [i] 0053: 48 50 LDJ &L0058 0055: 58 JMP L0056: 0056: 00 CLR 0057: E6 STA [i] ; I THINK THIS IS THE MAIN POLLING LOOP. Lots of functions return to here. L0058: 0058: 5F NOP 0059: 5F NOP 005A: 57 USB 005B: 03 LDA #$300 005C: EE ASRD 005D: 02 LDA #$200 005E: 40 60 LDJ &L0060 L0060: 0060: 5A JDR 0061: F0 VIN 0062: 00 CLR 0063: 30 12 SUB #$12 L0065: 0065: 21 ADD #$1 0066: 45 60 LDJ &L0065 0068: 5D JNC 0069: 00 CLR 006A: 2B ADD #$B 006B: 57 USB 006C: 00 CLR 006D: E4 LLT 006E: E5 WAI L006F: 006F: E5 WAI L0070: 0070: 21 ADD #$1 0071: F7 AWD [i] 0072: 00 CLR 0073: 86 LDP #$6 0074: B9 CMP $9 0075: 4E B0 LDJ &L00BE 0077: 5D JNC 0078: 00 CLR 0079: 20 1E ADD #$1E 007B: 93 OUT $3 007C: EB LSR 007D: 90 OUT $0 007E: EB LSR 007F: 91 OUT $1 0080: EB LSR 0081: 92 OUT $2 0082: EB LSR 0083: 94 OUT $4 0084: EB LSR 0085: 94 OUT $4 0086: 00 CLR 0087: 20 1A ADD #$1A 0089: 93 OUT $3 008A: EB LSR 008B: 90 OUT $0 008C: EB LSR 008D: 91 OUT $1 008E: EB LSR 008F: 92 OUT $2 0090: EB LSR 0091: 94 OUT $4 0092: EB LSR 0093: 94 OUT $4 0094: 00 CLR 0095: 20 18 ADD #$18 0097: 93 OUT $3 0098: EB LSR 0099: 90 OUT $0 009A: EB LSR 009B: 91 OUT $1 009C: EB LSR 009D: 92 OUT $2 009E: EB LSR 009F: 94 OUT $4 00A0: EB LSR 00A1: 94 OUT $4 00A2: 00 CLR 00A3: 20 16 ADD #$16 00A5: 93 OUT $3 00A6: EB LSR 00A7: 90 OUT $0 00A8: EB LSR 00A9: 91 OUT $1 00AA: EB LSR 00AB: 92 OUT $2 00AC: EB LSR 00AD: 94 OUT $4 00AE: EB LSR 00AF: 94 OUT $4 00B0: 00 CLR 00B1: 20 14 ADD #$14 00B3: 93 OUT $3 00B4: EB LSR 00B5: 90 OUT $0 00B6: EB LSR 00B7: 91 OUT $1 00B8: EB LSR 00B9: 92 OUT $2 00BA: EB LSR 00BB: 94 OUT $4 00BC: EB LSR 00BD: 94 OUT $4 L00BE: 00BE: 00 CLR 00BF: 20 17 ADD #$17 00C1: 83 LDP #$3 00C2: B7 CMP $7 00C3: 4F D0 LDJ &L00DF 00C5: 5D JNC 00C6: 01 LDA #$100 00C7: 20 15 ADD #$15 00C9: B3 CMP $3 00CA: 42 E0 LDJ &L00E2 00CC: 5D JNC 00CD: 00 CLR 00CE: B0 CMP $0 00CF: 5C JEQ ; L00E2 00D0: 86 LDP #$6 00D1: A9 LDA $9 00D2: 4F D0 LDJ &L00DF 00D4: 5C JEQ 00D5: 31 SUB #$1 00D6: E6 STA [i] 00D7: 00 CLR 00D8: 2F ADD #$F 00D9: 87 LDP #$7 00DA: D2 STA $2 00DB: 87 LDP #$7 00DC: A3 LDA $3 00DD: 21 ADD #$1 00DE: E6 STA [i] L00DF: 00DF: 00 CLR 00E0: 83 LDP #$3 00E1: D0 STA $0 L00E2: 00E2: 00 CLR 00E3: 20 17 ADD #$17 00E5: 84 LDP #$4 00E6: B7 CMP $7 00E7: 43 01 LDJ &L0103 00E9: 5D JNC 00EA: 01 LDA #$100 00EB: 20 15 ADD #$15 00ED: B3 CMP $3 00EE: 46 01 LDJ &L0106 00F0: 5D JNC 00F1: 00 CLR 00F2: B0 CMP $0 00F3: 5C JEQ ; L0106 00F4: 86 LDP #$6 00F5: A9 LDA $9 00F6: 43 01 LDJ &L0103 00F8: 5C JEQ 00F9: 31 SUB #$1 00FA: E6 STA [i] 00FB: 00 CLR 00FC: 2F ADD #$F 00FD: 87 LDP #$7 00FE: D2 STA $2 00FF: 87 LDP #$7 0100: A3 LDA $3 0101: 21 ADD #$1 0102: E6 STA [i] L0103: 0103: 00 CLR 0104: 84 LDP #$4 0105: D0 STA $0 L0106: 0106: 00 CLR 0107: 20 17 ADD #$17 0109: 85 LDP #$5 010A: B7 CMP $7 010B: 47 21 LDJ &L0127 010D: 5D JNC 010E: 01 LDA #$100 010F: 20 15 ADD #$15 0111: B3 CMP $3 0112: 4A 21 LDJ &L012A 0114: 5D JNC 0115: 00 CLR 0116: B0 CMP $0 0117: 5C JEQ ; L012A 0118: 86 LDP #$6 0119: A9 LDA $9 011A: 47 21 LDJ &L0127 011C: 5C JEQ 011D: 31 SUB #$1 011E: E6 STA [i] 011F: 00 CLR 0120: 2F ADD #$F 0121: 87 LDP #$7 0122: D2 STA $2 0123: 87 LDP #$7 0124: A3 LDA $3 0125: 21 ADD #$1 0126: E6 STA [i] L0127: 0127: 00 CLR 0128: 85 LDP #$5 0129: D0 STA $0 L012A: 012A: 87 LDP #$7 012B: A3 LDA $3 012C: 00 CLR 012D: 4E 31 LDJ &L013E 012F: 5B JLT 0130: 00 CLR 0131: 20 14 ADD #$14 0133: 93 OUT $3 0134: EB LSR 0135: 90 OUT $0 0136: EB LSR 0137: 91 OUT $1 0138: EB LSR 0139: 92 OUT $2 013A: EB LSR 013B: 94 OUT $4 013C: EB LSR 013D: 94 OUT $4 L013E: 013E: 40 41 LDJ &L0140 L0140: 0140: 5A JDR 0141: 00 CLR 0142: 96 OUT $6 0143: 00 CLR 0144: 20 A0 ADD #$A0 0146: 8C LDP #$C 0147: D1 STA $1 L0148: 0148: A1 LDA $1 0149: 21 ADD #$1 014A: D2 STA $2 L014B: 014B: 04 LDA #$400 014C: 28 ADD #$8 014D: C1 LDI $1 014E: E8 SUB [i] 014F: ED ASR 0150: ED ASR 0151: ED ASR 0152: ED ASR 0153: ED ASR 0154: D5 STA $5 0155: 57 USB 0156: 03 LDA #$300 0157: EE ASRD 0158: 02 LDA #$200 0159: 4B 51 LDJ &L015B L015B: 015B: 5A JDR 015C: F0 VIN 015D: 08 LDA #$800 015E: A5 LDA $5 015F: 44 61 LDJ &L0164 0161: 5B JLT 0162: 00 CLR 0163: E8 SUB [i] L0164: 0164: D8 STA $8 0165: EB LSR 0166: EB LSR 0167: 87 LDP #$7 0168: D0 STA $0 0169: 00 CLR 016A: 24 ADD #$4 016B: 87 LDP #$7 016C: B3 CMP $3 016D: 4B 81 LDJ &L018B 016F: 5B JLT 0170: 57 USB 0171: 00 CLR 0172: 57 USB 0173: E8 SUB [i] 0174: EE ASRD 0175: 57 USB 0176: 31 SUB #$1 0177: 8C LDP #$C 0178: A5 LDA $5 0179: 22 ADD #$2 017A: ED ASR 017B: ED ASR 017C: 87 LDP #$7 017D: D4 STA $4 017E: 00 CLR 017F: 41 81 LDJ &L0181 L0181: 0181: E7 ADD [i] 0182: 57 USB 0183: 21 ADD #$1 0184: 5D JNC ; L0181 0185: 8C LDP #$C 0186: 65 ADD $5 0187: E6 STA [i] 0188: 00 CLR 0189: 21 ADD #$1 018A: 96 OUT $6 L018B: 018B: 8C LDP #$C 018C: A5 LDA $5 018D: C1 LDI $1 018E: E7 ADD [i] 018F: E6 STA [i] 0190: 03 LDA #$300 0191: 28 ADD #$8 0192: C2 LDI $2 0193: E8 SUB [i] 0194: ED ASR 0195: ED ASR 0196: ED ASR 0197: ED ASR 0198: ED ASR 0199: D6 STA $6 019A: 08 LDA #$800 019B: EA LDA [i] 019C: 41 A1 LDJ &L01A1 019E: 5B JLT 019F: 00 CLR 01A0: E8 SUB [i] L01A1: 01A1: D9 STA $9 01A2: EB LSR 01A3: EB LSR 01A4: 87 LDP #$7 01A5: 60 ADD $0 01A6: E6 STA [i] 01A7: 00 CLR 01A8: 24 ADD #$4 01A9: 87 LDP #$7 01AA: B3 CMP $3 01AB: 46 C1 LDJ &L01C6 01AD: 5B JLT 01AE: 57 USB 01AF: 00 CLR 01B0: 57 USB 01B1: E8 SUB [i] 01B2: EE ASRD 01B3: 57 USB 01B4: 31 SUB #$1 01B5: 8C LDP #$C 01B6: A6 LDA $6 01B7: 22 ADD #$2 01B8: ED ASR 01B9: ED ASR 01BA: 87 LDP #$7 01BB: D4 STA $4 01BC: 00 CLR 01BD: 4F B1 LDJ &L01BF L01BF: 01BF: E7 ADD [i] 01C0: 57 USB 01C1: 21 ADD #$1 01C2: 5D JNC ; L01BF 01C3: 8C LDP #$C 01C4: 66 ADD $6 01C5: E6 STA [i] L01C6: 01C6: 8C LDP #$C 01C7: A6 LDA $6 01C8: C2 LDI $2 01C9: E7 ADD [i] 01CA: E6 STA [i] 01CB: 09 LDA #$900 01CC: C1 LDI $1 01CD: E8 SUB [i] 01CE: 4F 02 LDJ &L020F 01D0: 5D JNC 01D1: 07 LDA #$700 01D2: C2 LDI $2 01D3: E8 SUB [i] 01D4: 5D JNC ; L020F 01D5: A8 LDA $8 01D6: 34 SUB #$4 01D7: 4F D1 LDJ &L01DF 01D9: 5B JLT 01DA: A9 LDA $9 01DB: 35 SUB #$5 01DC: 4F 02 LDJ &L020F 01DE: 5D JNC L01DF: 01DF: C2 LDI $2 01E0: 57 USB 01E1: EA LDA [i] 01E2: EE ASRD 01E3: C1 LDI $1 01E4: EA LDA [i] 01E5: ED ASR 01E6: F0 VIN 01E7: 00 CLR 01E8: 30 4E SUB #$4E L01EA: 01EA: 21 ADD #$1 01EB: 4A E1 LDJ &L01EA 01ED: 5D JNC 01EE: 02 LDA #$200 01EF: 20 66 ADD #$66 ; &L0266 - data 01F1: 87 LDP #$7 01F2: 60 ADD $0 01F3: E2 XLT 01F4: 5F NOP 01F5: EC LSL 01F6: 57 USB 01F7: 00 CLR 01F8: E4 LLT 01F9: 8C LDP #$C 01FA: C2 LDI $2 01FB: 57 USB 01FC: EA LDA [i] 01FD: EE ASRD 01FE: C1 LDI $1 01FF: EA LDA [i] 0200: ED ASR 0201: E0 VDR 0202: A1 LDA $1 0203: 22 ADD #$2 0204: E6 STA [i] 0205: 00 CLR 0206: 20 C0 ADD #$C0 0208: EA LDA [i] 0209: 48 41 LDJ &L0148 020B: 5B JLT 020C: 46 B8 LDJ &L08B6 020E: 58 JMP L020F: 020F: 00 CLR 0210: 20 3F ADD #$3F 0212: B7 CMP $7 0213: E9 AND [i] 0214: 22 ADD #$2 0215: E6 STA [i] 0216: 02 LDA #$200 0217: 20 74 ADD #$74 ; &L0274 - data 0219: 67 ADD $7 021A: D5 STA $5 021B: 21 ADD #$1 021C: E2 XLT 021D: 5F NOP 021E: 30 80 SUB #$80 0220: EC LSL 0221: EC LSL 0222: EC LSL 0223: D6 STA $6 0224: A5 LDA $5 0225: E2 XLT 0226: 5F NOP 0227: 30 80 SUB #$80 0229: EC LSL 022A: EC LSL 022B: EC LSL 022C: E6 STA [i] 022D: A0 LDA $0 022E: 21 ADD #$1 022F: E6 STA [i] 0230: E2 XLT 0231: 5F NOP 0232: E7 ADD [i] 0233: E2 XLT 0234: 5F NOP 0235: E7 ADD [i] 0236: D3 STA $3 0237: 00 CLR 0238: 20 7F ADD #$7F 023A: E9 AND [i] 023B: E6 STA [i] 023C: EB LSR 023D: 43 42 LDJ &L0243 023F: 5E JA0 0240: 00 CLR 0241: E8 SUB [i] 0242: E6 STA [i] L0243: 0243: 04 LDA #$400 0244: E7 ADD [i] 0245: 65 ADD $5 0246: C1 LDI $1 0247: E6 STA [i] 0248: A0 LDA $0 0249: 21 ADD #$1 024A: E6 STA [i] 024B: E2 XLT 024C: 5F NOP 024D: E7 ADD [i] 024E: E2 XLT 024F: 5F NOP 0250: E7 ADD [i] 0251: D3 STA $3 0252: 00 CLR 0253: 20 7F ADD #$7F 0255: E9 AND [i] 0256: E6 STA [i] 0257: EB LSR 0258: 4E 52 LDJ &L025E 025A: 5E JA0 025B: 00 CLR 025C: E8 SUB [i] 025D: E6 STA [i] L025E: 025E: 03 LDA #$300 025F: E7 ADD [i] 0260: 66 ADD $6 0261: C2 LDI $2 0262: E6 STA [i] 0263: 4B 41 LDJ &L014B 0265: 58 JMP ; -------------------------------------------------------------- ; data L0266: 00000260: 01 01 02 04 08 10 20 40 60 70 : ...... @`p 00000270: 80 90 a0 b0 : .... L0274: 00000270: b0 b0 be dc 04 ae 61 24 61 dc fc 97 : ......a$a... 00000280: 80 24 80 dc 04 80 fc dc be 24 23 24 23 dc fc 80 : .$.......$#$#... 00000290: 9f 24 dd dc 04 52 42 dc dd 24 04 3b fc 52 04 dc : .$...RB..$.;.R.. 000002a0: 42 24 9f dc fc 69 04 97 fc ae 04 69 fc c5 04 24 : B$...i.....i...$ 000002b0: fc 24 04 c5 fc 3b : .$...;.0.L.[.".M ; end of data ; ------------------------------------------------------------------------ L02B6: 02B6: EA LDA [i] 02B7: 30 1F SUB #$1F 02B9: 4C D2 LDJ &L02DC 02BB: 5B JLT 02BC: 00 CLR 02BD: 22 ADD #$2 02BE: BD CMP $D 02BF: 4D E8 LDJ &L08ED 02C1: 5B JLT 02C2: 25 ADD #$5 02C3: BD CMP $D 02C4: 5D JNC ; L08ED 02C5: 1F INP $F 02C6: 21 ADD #$1 02C7: 87 LDP #$7 02C8: D5 STA $5 02C9: 00 CLR 02CA: 21 ADD #$1 02CB: E9 AND [i] 02CC: 20 1E ADD #$1E 02CE: 93 OUT $3 02CF: EB LSR 02D0: 90 OUT $0 02D1: EB LSR 02D2: 91 OUT $1 02D3: EB LSR 02D4: 92 OUT $2 02D5: EB LSR 02D6: 94 OUT $4 02D7: EB LSR 02D8: 94 OUT $4 02D9: 4B F8 LDJ &L08FB 02DB: 58 JMP L02DC: 02DC: 00 CLR 02DD: E6 STA [i] L02DE: 02DE: 00 CLR 02DF: 87 LDP #$7 02E0: B3 CMP $3 02E1: 4D E2 LDJ &L02ED 02E3: 5D JNC 02E4: 03 LDA #$300 02E5: 20 08 ADD #$08 ; L0308 in first rom is return addr 02E7: 81 LDP #$1 02E8: DF STA $F ; Ram[0x1f] has return addr?? 02E9: 40 CD LDJ &L1DC0 02EB: 82 LDP #$2 02EC: 50 JPPB ; goto L1DC0 L02ED: 02ED: 00 CLR 02EE: 86 LDP #$6 02EF: D2 STA $2 02F0: D0 STA $0 02F1: 25 ADD #$5 02F2: 87 LDP #$7 02F3: B3 CMP $3 02F4: 4A 40 LDJ &L004A 02F6: 5D JNC 02F7: 00 CLR 02F8: 20 15 ADD #$15 02FA: 93 OUT $3 02FB: EB LSR 02FC: 90 OUT $0 02FD: EB LSR 02FE: 91 OUT $1 02FF: EB LSR 0300: 92 OUT $2 0301: EB LSR 0302: 94 OUT $4 0303: EB LSR 0304: 94 OUT $4 0305: 00 CLR 0306: 25 ADD #$5 0307: 58 JMP ; L004A L0308: 0308: 5F NOP 0309: 00 CLR 030A: 83 LDP #$3 030B: B7 CMP $7 030C: 49 13 LDJ &L0319 030E: 5D JNC 030F: AD LDA $D 0310: 5C JEQ 0311: 63 ADD $3 0312: E6 STA [i] 0313: 0F LDA #$F00 0314: B3 CMP $3 0315: 5B JLT 0316: 00 CLR 0317: D0 STA $0 0318: DD STA $D L0319: 0319: 00 CLR 031A: 84 LDP #$4 031B: B7 CMP $7 031C: 49 23 LDJ &L0329 031E: 5D JNC 031F: AD LDA $D 0320: 5C JEQ ; L0329 0321: 63 ADD $3 0322: E6 STA [i] 0323: 0F LDA #$F00 0324: B3 CMP $3 0325: 5B JLT ; L0329 0326: 00 CLR 0327: D0 STA $0 0328: DD STA $D L0329: 0329: 00 CLR 032A: 85 LDP #$5 032B: B7 CMP $7 032C: 49 33 LDJ &L0339 032E: 5D JNC 032F: AD LDA $D 0330: 5C JEQ ; L0339 0331: 63 ADD $3 0332: E6 STA [i] 0333: 0F LDA #$F00 0334: B3 CMP $3 0335: 5B JLT ; L0339 0336: 00 CLR 0337: D0 STA $0 0338: DD STA $D L0339: 0339: 00 CLR 033A: 86 LDP #$6 033B: B9 CMP $9 033C: 4F 68 LDJ &L086F 033E: 5C JEQ 033F: 16 INP $6 0340: 21 ADD #$1 0341: 4F 68 LDJ &L086F 0343: 5C JEQ 0344: 00 CLR 0345: 88 LDP #$8 0346: B1 CMP $1 0347: 5C JEQ ; L086F 0348: A0 LDA $0 0349: 21 ADD #$1 034A: E6 STA [i] 034B: 38 SUB #$8 034C: 47 73 LDJ &L0377 034E: 5D JNC 034F: 00 CLR 0350: E6 STA [i] 0351: A1 LDA $1 0352: 00 CLR 0353: 43 73 LDJ &L0373 0355: 5C JEQ 0356: 20 FF ADD #$FF 0358: E9 AND [i] 0359: 00 CLR 035A: 4D 63 LDJ &L036D 035C: 5C JEQ 035D: 2F ADD #$F 035E: E9 AND [i] 035F: 00 CLR 0360: 48 63 LDJ &L0368 0362: 5C JEQ 0363: EA LDA [i] 0364: 31 SUB #$1 0365: 46 73 LDJ &L0376 0367: 58 JMP L0368: 0368: EA LDA [i] 0369: 37 SUB #$7 036A: 46 73 LDJ &L0376 036C: 58 JMP L036D: 036D: EA LDA [i] 036E: 30 67 SUB #$67 0370: 46 73 LDJ &L0376 0372: 58 JMP L0373: 0373: 09 LDA #$900 0374: 20 99 ADD #$99 L0376: 0376: E6 STA [i] L0377: 0377: 57 USB 0378: 03 LDA #$300 0379: EE ASRD 037A: 81 LDP #$1 037B: 57 USB 037C: D1 STA $1 037D: 02 LDA #$200 037E: D0 STA $0 037F: 41 83 LDJ &L0381 L0381: 0381: 5A JDR 0382: F0 VIN 0383: 00 CLR 0384: 30 43 SUB #$43 L0386: 0386: 21 ADD #$1 0387: 46 83 LDJ &L0386 0389: 5D JNC 038A: 03 LDA #$300 038B: 20 CB ADD #$CB 038D: D6 STA $6 038E: 00 CLR 038F: 20 FF ADD #$FF 0391: D8 STA $8 L0392: 0392: A0 LDA $0 0393: 57 USB 0394: A1 LDA $1 0395: F0 VIN 0396: A6 LDA $6 0397: 22 ADD #$2 0398: E6 STA [i] 0399: E2 XLT 039A: 5F NOP 039B: B8 CMP $8 039C: 46 E3 LDJ &L03E6 039E: 5C JEQ 039F: EC LSL 03A0: EC LSL 03A1: 70 SUB $0 03A2: D3 STA $3 03A3: A6 LDA $6 03A4: 21 ADD #$1 03A5: E2 XLT 03A6: 5F NOP 03A7: EC LSL 03A8: EC LSL 03A9: 71 SUB $1 03AA: D4 STA $4 03AB: A3 LDA $3 03AC: 57 USB 03AD: A4 LDA $4 03AE: E4 LLT 03AF: 60 ADD $0 03B0: 57 USB 03B1: 61 ADD $1 03B2: E0 VDR 03B3: A3 LDA $3 03B4: 60 ADD $0 03B5: E6 STA [i] 03B6: A4 LDA $4 03B7: 61 ADD $1 03B8: E6 STA [i] 03B9: 88 LDP #$8 03BA: B3 CMP $3 03BB: 4D B3 LDJ &L03BD L03BD: 03BD: 00 CLR 03BE: 57 USB 03BF: EA LDA [i] 03C0: EE ASRD 03C1: EE ASRD 03C2: E7 ADD [i] 03C3: EC LSL 03C4: E7 ADD [i] 03C5: EB LSR 03C6: E6 STA [i] 03C7: 96 OUT $6 03C8: 5A JDR ; L03BD 03C9: 81 LDP #$1 03CA: 42 93 LDJ &L0392 03CC: 58 JMP ; ---------------------------------------------------------------- ; Data block? L03CD: 000003c0: c0 a0 e0 : ... 000003d0: 80 80 20 20 80 40 a0 80 60 c0 20 e0 40 80 a0 20 : .. .@..`. .@.. 000003e0: 40 40 20 80 60 ff : @@ .`. ; end of data ; ---------------------------------------------------------------- L03E6: 03E6: 00 CLR 03E7: 20 19 ADD #$19 03E9: 93 OUT $3 03EA: EB LSR 03EB: 90 OUT $0 03EC: EB LSR 03ED: 91 OUT $1 03EE: EB LSR 03EF: 92 OUT $2 03F0: EB LSR 03F1: 94 OUT $4 03F2: EB LSR 03F3: 94 OUT $4 03F4: 00 CLR 03F5: 20 16 ADD #$16 03F7: 93 OUT $3 03F8: EB LSR 03F9: 90 OUT $0 03FA: EB LSR 03FB: 91 OUT $1 03FC: EB LSR 03FD: 92 OUT $2 03FE: EB LSR 03FF: 94 OUT $4 0400: EB LSR 0401: 94 OUT $4 0402: 00 CLR 0403: 86 LDP #$6 0404: B9 CMP $9 0405: 4E 54 LDJ &L045E 0407: 5C JEQ 0408: 83 LDP #$3 0409: B0 CMP $0 040A: 44 24 LDJ &L0424 040C: 5C JEQ 040D: BD CMP $D 040E: 5D JNC ; L0424 040F: 02 LDA #$200 0410: B3 CMP $3 0411: 5D JNC ; L0424 0412: 00 CLR 0413: 20 4D ADD #$4D 0415: DD STA $D 0416: 00 CLR 0417: 20 17 ADD #$17 0419: 93 OUT $3 041A: EB LSR 041B: 90 OUT $0 041C: EB LSR 041D: 91 OUT $1 041E: EB LSR 041F: 92 OUT $2 0420: EB LSR 0421: 94 OUT $4 0422: EB LSR 0423: 94 OUT $4 L0424: 0424: 00 CLR 0425: 84 LDP #$4 0426: B0 CMP $0 0427: 41 44 LDJ &L0441 0429: 5C JEQ 042A: BD CMP $D 042B: 5D JNC ; L0441 042C: 02 LDA #$200 042D: B3 CMP $3 042E: 5D JNC ; L0441 042F: 00 CLR 0430: 20 4D ADD #$4D 0432: DD STA $D 0433: 00 CLR 0434: 20 17 ADD #$17 0436: 93 OUT $3 0437: EB LSR 0438: 90 OUT $0 0439: EB LSR 043A: 91 OUT $1 043B: EB LSR 043C: 92 OUT $2 043D: EB LSR 043E: 94 OUT $4 043F: EB LSR 0440: 94 OUT $4 L0441: 0441: 00 CLR 0442: 85 LDP #$5 0443: B0 CMP $0 0444: 4E 54 LDJ &L045E 0446: 5C JEQ 0447: BD CMP $D 0448: 5D JNC ; L045E 0449: 02 LDA #$200 044A: B3 CMP $3 044B: 5D JNC ; L045E 044C: 00 CLR 044D: 20 4D ADD #$4D 044F: DD STA $D 0450: 00 CLR 0451: 20 17 ADD #$17 0453: 93 OUT $3 0454: EB LSR 0455: 90 OUT $0 0456: EB LSR 0457: 91 OUT $1 0458: EB LSR 0459: 92 OUT $2 045A: EB LSR 045B: 94 OUT $4 045C: EB LSR 045D: 94 OUT $4 L045E: 045E: 00 CLR 045F: 86 LDP #$6 0460: B9 CMP $9 0461: 46 85 LDJ &L0586 0463: 5C JEQ 0464: 1E INP $E 0465: 00 CLR 0466: 47 D4 LDJ &L04D7 0468: 5C JEQ 0469: 82 LDP #$2 046A: 00 CLR 046B: 97 OUT $7 046C: 4E 64 LDJ &L046E L046E: 046E: 5A JDR 046F: AA LDA $A 0470: D8 STA $8 0471: 04 LDA #$400 0472: 20 78 ADD #$78 0474: DD STA $D 0475: 45 94 LDJ &L0495 0477: 58 JMP 0478: A8 LDA $8 0479: DA STA $A 047A: 08 LDA #$800 047B: E7 ADD [i] 047C: ED ASR 047D: ED ASR 047E: DC STA $C 047F: 00 CLR 0480: 21 ADD #$1 0481: 97 OUT $7 0482: AB LDA $B 0483: D8 STA $8 0484: 04 LDA #$400 0485: 20 8B ADD #$8B ; &L048B 0487: DD STA $D 0488: 45 94 LDJ &L0495 048A: 58 JMP L048B: 048B: A8 LDA $8 048C: DB STA $B 048D: 08 LDA #$800 048E: E7 ADD [i] 048F: ED ASR 0490: ED ASR 0491: DD STA $D 0492: 4D 15 LDJ &L051D 0494: 58 JMP L0495: 0495: 08 LDA #$800 0496: 82 LDP #$2 0497: DF STA $F 0498: EB LSR 0499: DE STA $E 049A: 4C 94 LDJ &L049C L049C: 049C: 5A JDR L049D: 049D: 08 LDA #$800 049E: 6F ADD $F 049F: F0 VIN 04A0: 00 CLR 04A1: 57 USB 04A2: 01 LDA #$100 04A3: E4 LLT 04A4: 00 CLR 04A5: 30 11 SUB #$11 L04A7: 04A7: 21 ADD #$1 04A8: 47 A4 LDJ &L04A7 04AA: 5D JNC 04AB: AF LDA $F 04AC: 43 B4 LDJ &L04B3 04AE: 59 JMI 04AF: 6E ADD $E 04B0: 44 B4 LDJ &L04B4 04B2: 58 JMP L04B3: 04B3: 7E SUB $E L04B4: 04B4: DF STA $F 04B5: 00 CLR 04B6: 22 ADD #$2 04B7: BE CMP $E 04B8: 41 C4 LDJ &L04C1 04BA: 5C JEQ 04BB: EA LDA [i] 04BC: EB LSR 04BD: E6 STA [i] 04BE: 4D 94 LDJ &L049D 04C0: 58 JMP L04C1: 04C1: AF LDA $F 04C2: 78 SUB $8 04C3: DE STA $E 04C4: 08 LDA #$800 04C5: BE CMP $E 04C6: 4C C4 LDJ &L04CC 04C8: 5B JLT 04C9: 00 CLR 04CA: 7E SUB $E 04CB: E6 STA [i] L04CC: 04CC: 00 CLR 04CD: 27 ADD #$7 04CE: BE CMP $E 04CF: 44 D4 LDJ &L04D4 04D1: 5B JLT 04D2: AF LDA $F 04D3: D8 STA $8 L04D4: 04D4: BD CMP $D 04D5: E1 LDJ [i] 04D6: 58 JMP L04D7: 04D7: 11 INP $1 04D8: 82 LDP #$2 04D9: DF STA $F 04DA: 12 INP $2 04DB: E8 SUB [i] 04DC: EC LSL 04DD: EC LSL 04DE: EC LSL 04DF: EC LSL 04E0: 6A ADD $A 04E1: E6 STA [i] 04E2: 02 LDA #$200 04E3: BA CMP $A 04E4: 46 F4 LDJ &L04F6 04E6: 5B JLT 04E7: 0E LDA #$E00 04E8: BA CMP $A 04E9: 5D JNC ; L04F6 04EA: 08 LDA #$800 04EB: BA CMP $A 04EC: 44 F4 LDJ &L04F4 04EE: 5B JLT 04EF: 0E LDA #$E00 04F0: E6 STA [i] 04F1: 46 F4 LDJ &L04F6 04F3: 58 JMP L04F4: 04F4: 02 LDA #$200 04F5: E6 STA [i] L04F6: 04F6: EA LDA [i] 04F7: DC STA $C 04F8: 13 INP $3 04F9: 82 LDP #$2 04FA: DF STA $F 04FB: 14 INP $4 04FC: E8 SUB [i] 04FD: EC LSL 04FE: EC LSL 04FF: EC LSL 0500: EC LSL 0501: 6B ADD $B 0502: E6 STA [i] 0503: 03 LDA #$300 0504: EB LSR 0505: BB CMP $B 0506: 4B 15 LDJ &L051B 0508: 5B JLT 0509: 0D LDA #$D00 050A: ED ASR 050B: BB CMP $B 050C: 5D JNC 050D: 08 LDA #$800 050E: BB CMP $B 050F: 48 15 LDJ &L0518 0511: 5B JLT 0512: 0D LDA #$D00 0513: ED ASR 0514: E6 STA [i] 0515: 4B 15 LDJ &L051B 0517: 58 JMP L0518: 0518: 03 LDA #$300 0519: EB LSR 051A: E6 STA [i] L051B: 051B: EA LDA [i] 051C: DD STA $D L051D: 051D: 01 LDA #$100 051E: 20 A4 ADD #$A4 0520: BC CMP $C 0521: 47 35 LDJ &L0537 0523: 5B JLT 0524: 08 LDA #$800 0525: BC CMP $C 0526: 43 35 LDJ &L0533 0528: 5B JLT 0529: 0E LDA #$E00 052A: 20 84 ADD #$84 052C: BC CMP $C 052D: 46 35 LDJ &L0536 052F: 5B JLT 0530: 47 35 LDJ &L0537 0532: 58 JMP L0533: 0533: 01 LDA #$100 0534: 20 A4 ADD #$A4 L0536: 0536: DC STA $C L0537: 0537: 01 LDA #$100 0538: 20 2C ADD #$2C 053A: BD CMP $D 053B: 41 55 LDJ &L0551 053D: 5B JLT 053E: 08 LDA #$800 053F: BD CMP $D 0540: 4D 45 LDJ &L054D 0542: 5B JLT 0543: 0E LDA #$E00 0544: 20 D4 ADD #$D4 0546: BD CMP $D 0547: 40 55 LDJ &L0550 0549: 5B JLT 054A: 41 55 LDJ &L0551 054C: 58 JMP L054D: 054D: 01 LDA #$100 054E: 20 2C ADD #$2C L0550: 0550: DD STA $D L0551: 0551: 03 LDA #$300 0552: EB LSR 0553: 6D ADD $D 0554: 86 LDP #$6 0555: D4 STA $4 0556: 57 USB 0557: EA LDA [i] 0558: 02 LDA #$200 0559: 82 LDP #$2 055A: 6C ADD $C 055B: 86 LDP #$6 055C: D3 STA $3 055D: 30 1E SUB #$1E L055F: 055F: 4F 55 LDJ &L055F 0561: 5A JDR 0562: F0 VIN 0563: 00 CLR 0564: 96 OUT $6 0565: 15 INP $5 0566: 86 LDP #$6 0567: DF STA $F 0568: 00 CLR 0569: B0 CMP $0 056A: 43 75 LDJ &L0573 056C: 5C JEQ 056D: EA LDA [i] 056E: 31 SUB #$1 056F: E6 STA [i] 0570: 44 85 LDJ &L0584 0572: 58 JMP L0573: 0573: BF CMP $F 0574: 44 85 LDJ &L0584 0576: 5D JNC 0577: 16 INP $6 0578: 00 CLR 0579: 5C JEQ ; L0584 057A: AF LDA $F 057B: B1 CMP $1 057C: 44 85 LDJ &L0584 ; Redundant! 057E: 5C JEQ 057F: 00 CLR 0580: 29 ADD #$9 0581: D2 STA $2 0582: 23 ADD #$3 0583: D0 STA $0 L0584: 0584: AF LDA $F 0585: D1 STA $1 L0586: 0586: 00 CLR 0587: 83 LDP #$3 0588: B0 CMP $0 0589: 4F A5 LDJ &L05AF 058B: 5C JEQ 058C: B7 CMP $7 058D: 49 95 LDJ &L0599 058F: 5D JNC 0590: BD CMP $D 0591: 5C JEQ ; L0599 0592: D6 STA $6 0593: A4 LDA $4 0594: 21 ADD #$1 0595: E6 STA [i] 0596: A5 LDA $5 0597: 22 ADD #$2 0598: E6 STA [i] L0599: 0599: 00 CLR 059A: 22 ADD #$2 059B: B7 CMP $7 059C: 4C A5 LDJ &L05AC 059E: 5D JNC 059F: 05 LDA #$500 05A0: 20 B6 ADD #$B6 05A2: 80 LDP #$0 05A3: D0 STA $0 05A4: 00 CLR 05A5: 20 31 ADD #$31 05A7: 81 LDP #$1 05A8: D9 STA $9 05A9: 40 0C LDJ &L0C00 05AB: 58 JMP L05AC: 05AC: A7 LDA $7 05AD: 21 ADD #$1 05AE: E6 STA [i] L05AF: 05AF: 00 CLR 05B0: 30 64 SUB #$64 L05B2: 05B2: 21 ADD #$1 05B3: 42 B5 LDJ &L05B2 05B5: 5D JNC ; Timing loop? L05B6: 05B6: 00 CLR 05B7: 86 LDP #$6 05B8: B9 CMP $9 05B9: 48 46 LDJ &L0648 05BB: 5C JEQ 05BC: 86 LDP #$6 05BD: A3 LDA $3 05BE: 81 LDP #$1 05BF: D0 STA $0 05C0: 30 1E SUB #$1E 05C2: D3 STA $3 05C3: 86 LDP #$6 05C4: A4 LDA $4 05C5: 81 LDP #$1 05C6: D1 STA $1 05C7: D4 STA $4 05C8: 06 LDA #$600 05C9: 20 15 ADD #$15 05CB: D6 STA $6 05CC: 00 CLR 05CD: 20 FF ADD #$FF 05CF: D8 STA $8 L05D0: ; comes from below, not just here 05D0: 40 D5 LDJ &L05D0 05D2: 5A JDR 05D3: A3 LDA $3 05D4: 57 USB 05D5: A4 LDA $4 05D6: F0 VIN 05D7: A6 LDA $6 05D8: 22 ADD #$2 05D9: E6 STA [i] 05DA: E2 XLT 05DB: 5F NOP 05DC: B8 CMP $8 05DD: 4F F5 LDJ &L05FF 05DF: 5C JEQ 05E0: 30 80 SUB #$80 05E2: 73 SUB $3 05E3: 60 ADD $0 05E4: DC STA $C 05E5: A6 LDA $6 05E6: 21 ADD #$1 05E7: E2 XLT 05E8: 5F NOP 05E9: 30 80 SUB #$80 05EB: 74 SUB $4 05EC: 61 ADD $1 05ED: DD STA $D 05EE: AC LDA $C 05EF: 57 USB 05F0: AD LDA $D 05F1: E4 LLT 05F2: 63 ADD $3 05F3: 57 USB 05F4: 64 ADD $4 05F5: E0 VDR 05F6: AC LDA $C 05F7: 63 ADD $3 05F8: E6 STA [i] 05F9: AD LDA $D 05FA: 64 ADD $4 05FB: E6 STA [i] 05FC: 40 D5 LDJ &L05D0 05FE: 58 JMP L05FF: 05FF: A6 LDA $6 0600: 21 ADD #$1 0601: E6 STA [i] 0602: E2 XLT 0603: 5F NOP 0604: B8 CMP $8 0605: 48 46 LDJ &L0648 0607: 5C JEQ 0608: 30 80 SUB #$80 060A: 60 ADD $0 060B: D3 STA $3 060C: A6 LDA $6 060D: 21 ADD #$1 060E: E2 XLT 060F: 5F NOP 0610: 30 80 SUB #$80 0612: 61 ADD $1 0613: D4 STA $4 0614: 40 D5 LDJ &L05D0 0616: 58 JMP ; Data block? 0617: 9E OUT $E 0618: 80 LDP #$0 0619: FF LSLD 061A: 94 OUT $4 061B: 76 SUB $6 061C: 94 OUT $4 061D: 8A LDP #$A 061E: FF LSLD 061F: 8A LDP #$A 0620: 94 OUT $4 0621: 76 SUB $6 0622: 94 OUT $4 0623: FF LSLD 0624: 80 LDP #$0 0625: 9E OUT $E 0626: 80 LDP #$0 0627: 62 ADD $2 0628: FF LSLD 0629: 8A LDP #$A 062A: 6C ADD $C 062B: 76 SUB $6 062C: 6C ADD $C 062D: FF LSLD 062E: 6C ADD $C 062F: 76 SUB $6 0630: 6C ADD $C 0631: 8A LDP #$A 0632: FF LSLD 0633: 7B SUB $B 0634: 8A LDP #$A 0635: 85 LDP #$5 0636: 8A LDP #$A 0637: FF LSLD 0638: 8A LDP #$A 0639: 85 LDP #$5 063A: 8A LDP #$A 063B: 7B SUB $B 063C: FF LSLD 063D: 85 LDP #$5 063E: 76 SUB $6 063F: 7B SUB $B 0640: 76 SUB $6 0641: FF LSLD 0642: 76 SUB $6 0643: 7B SUB $B 0644: 76 SUB $6 0645: 85 LDP #$5 0646: FF LSLD 0647: FF LSLD L0648: 0648: 00 CLR 0649: 86 LDP #$6 064A: B2 CMP $2 064B: 49 B6 LDJ &L06B9 064D: 5C JEQ 064E: 18 INP $8 064F: 00 CLR 0650: 4D 56 LDJ &L065D 0652: 5C JEQ 0653: 00 CLR 0654: 26 ADD #$6 0655: EA LDA [i] 0656: 5B JLT ; L065D 0657: 00 CLR 0658: 21 ADD #$1 0659: E9 AND [i] 065A: 4F 56 LDJ &L065F 065C: 58 JMP L065D: 065D: 00 CLR 065E: 21 ADD #$1 L065F: 065F: 20 1A ADD #$1A 0661: 93 OUT $3 0662: EB LSR 0663: 90 OUT $0 0664: EB LSR 0665: 91 OUT $1 0666: EB LSR 0667: 92 OUT $2 0668: EB LSR 0669: 94 OUT $4 066A: EB LSR 066B: 94 OUT $4 066C: A2 LDA $2 066D: 57 USB 066E: 00 CLR 066F: B3 CMP $3 0670: E3 MUL [i] 0671: E3 MUL [i] 0672: E3 MUL [i] 0673: E3 MUL [i] 0674: EE ASRD 0675: 57 USB 0676: D5 STA $5 0677: A3 LDA $3 0678: 75 SUB $5 0679: 80 LDP #$0 067A: DA STA $A 067B: 57 USB 067C: 00 CLR 067D: 86 LDP #$6 067E: A2 LDA $2 067F: 86 LDP #$6 0680: B4 CMP $4 0681: E3 MUL [i] 0682: E3 MUL [i] 0683: E3 MUL [i] 0684: E3 MUL [i] 0685: EE ASRD 0686: 57 USB 0687: D6 STA $6 0688: A4 LDA $4 0689: 76 SUB $6 068A: 80 LDP #$0 068B: DB STA $B 068C: 57 USB 068D: EA LDA [i] 068E: AA LDA $A 068F: 41 96 LDJ &L0691 L0691: 0691: 5A JDR 0692: F0 VIN L0693: 0693: 00 CLR 0694: 84 LDP #$4 0695: B0 CMP $0 0696: 4D C6 LDJ &L06CD 0698: 5C JEQ 0699: B7 CMP $7 069A: 46 A6 LDJ &L06A6 069C: 5D JNC 069D: BD CMP $D 069E: 5C JEQ ; L06A6 069F: D6 STA $6 06A0: A4 LDA $4 06A1: 22 ADD #$2 06A2: E6 STA [i] 06A3: A5 LDA $5 06A4: 31 SUB #$1 06A5: E6 STA [i] L06A6: 06A6: 00 CLR 06A7: 22 ADD #$2 06A8: B7 CMP $7 06A9: 4A C6 LDJ &L06CA 06AB: 5D JNC 06AC: 06 LDA #$600 06AD: 20 D4 ADD #$D4 06AF: 80 LDP #$0 06B0: D0 STA $0 ; Ram[0x00] = &L06D4; 06B1: 00 CLR 06B2: 20 41 ADD #$41 06B4: 81 LDP #$1 06B5: D9 STA $9 ; Ram[0x19] = 0x41; 06B6: 40 0C LDJ &L0C00 06B8: 58 JMP L06B9: 06B9: 00 CLR 06BA: 20 1A ADD #$1A 06BC: 93 OUT $3 06BD: EB LSR 06BE: 90 OUT $0 06BF: EB LSR 06C0: 91 OUT $1 06C1: EB LSR 06C2: 92 OUT $2 06C3: EB LSR 06C4: 94 OUT $4 06C5: EB LSR 06C6: 94 OUT $4 06C7: 43 96 LDJ &L0693 06C9: 58 JMP L06CA: 06CA: A7 LDA $7 06CB: 21 ADD #$1 06CC: E6 STA [i] L06CD: 06CD: 00 CLR 06CE: 30 64 SUB #$64 L06D0: 06D0: 21 ADD #$1 06D1: 40 D6 LDJ &L06D0 06D3: 5D JNC L06D4: 06D4: 00 CLR 06D5: 86 LDP #$6 06D6: B2 CMP $2 06D7: 4D B7 LDJ &L07BD 06D9: 5C JEQ 06DA: 1D INP $D 06DB: 21 ADD #$1 06DC: 44 27 LDJ &L0724 06DE: 5C JEQ 06DF: 96 OUT $6 06E0: 0F LDA #$F00 06E1: 20 C0 ADD #$C0 06E3: 80 LDP #$0 06E4: D5 STA $5 06E5: 57 USB 06E6: 00 CLR 06E7: 86 LDP #$6 06E8: A2 LDA $2 06E9: 80 LDP #$0 06EA: B5 CMP $5 06EB: E3 MUL [i] 06EC: E3 MUL [i] 06ED: E3 MUL [i] 06EE: E3 MUL [i] 06EF: EE ASRD 06F0: 57 USB 06F1: 6A ADD $A 06F2: 57 USB 06F3: D5 STA $5 06F4: AB LDA $B 06F5: D6 STA $6 06F6: 57 USB 06F7: EA LDA [i] 06F8: A5 LDA $5 06F9: F0 VIN 06FA: 86 LDP #$6 06FB: 73 SUB $3 06FC: ED ASR 06FD: 80 LDP #$0 06FE: D7 STA $7 06FF: 08 LDA #$800 0700: EA LDA [i] 0701: 46 07 LDJ &L0706 0703: 5B JLT 0704: 00 CLR 0705: E8 SUB [i] L0706: 0706: DE STA $E 0707: A6 LDA $6 0708: 86 LDP #$6 0709: 74 SUB $4 070A: ED ASR 070B: 80 LDP #$0 070C: D8 STA $8 070D: 57 USB 070E: EA LDA [i] 070F: 08 LDA #$800 0710: EA LDA [i] 0711: 46 17 LDJ &L0716 0713: 5B JLT 0714: 00 CLR 0715: E8 SUB [i] L0716: 0716: 6E ADD $E 0717: 33 SUB #$3 0718: 44 A7 LDJ &L07A4 071A: 5D JNC 071B: A7 LDA $7 071C: E4 LLT 071D: 65 ADD $5 071E: 57 USB 071F: 66 ADD $6 0720: E0 VDR 0721: 44 A7 LDJ &L07A4 0723: 58 JMP L0724: 0724: 00 CLR 0725: 21 ADD #$1 0726: 96 OUT $6 0727: 80 LDP #$0 0728: AA LDA $A 0729: 86 LDP #$6 072A: 73 SUB $3 072B: ED ASR 072C: 80 LDP #$0 072D: D7 STA $7 072E: AB LDA $B 072F: 86 LDP #$6 0730: 74 SUB $4 0731: ED ASR 0732: 80 LDP #$0 0733: D8 STA $8 0734: A7 LDA $7 0735: ED ASR 0736: ED ASR 0737: DE STA $E 0738: 07 LDA #$700 0739: 20 A4 ADD #$A4 ; return to A = &L07A4 ; after dropping through the ; inline subroutine below... L073B: ; SUBROUTINE ENTRY POINT ; return address is in A 073B: D1 STA $1 073C: AA LDA $A 073D: D2 STA $2 073E: AB LDA $B 073F: D3 STA $3 0740: 68 ADD $8 0741: D9 STA $9 0742: AA LDA $A 0743: 67 ADD $7 0744: 6E ADD $E 0745: D4 STA $4 0746: 07 LDA #$700 0747: 20 81 ADD #$81 ; A = &L0781; Call the in-line ; subroutine below, then 'return' to ; L0781 - messy! L0749: ; SUBROUTINE. RETURN ADDRESS IS IN A 0749: DC STA $C ; ram[0x?c] = return address; 074A: A2 LDA $2 074B: 57 USB 074C: A3 LDA $3 074D: 4F 47 LDJ &L074F L074F: 074F: 5A JDR 0750: F0 VIN 0751: 00 CLR 0752: 30 0B SUB #$0B L0754: 0754: 21 ADD #$1 0755: 44 57 LDJ &L0754 0757: 5D JNC ; Timing loop? 0758: A9 LDA $9 0759: 73 SUB $3 075A: DD STA $D 075B: 57 USB 075C: EA LDA [i] 075D: 08 LDA #$800 075E: EA LDA [i] ; is this a code bug? 075F: 44 67 LDJ &L0764 0761: 5B JLT 0762: 00 CLR 0763: E8 SUB [i] L0764: 0764: E6 STA [i] 0765: A4 LDA $4 0766: 72 SUB $2 0767: DF STA $F 0768: 08 LDA #$800 0769: EA LDA [i] 076A: 4F 67 LDJ &L076F 076C: 5B JLT 076D: 00 CLR 076E: E8 SUB [i] L076F: 076F: 6D ADD $D 0770: 33 SUB #$3 0771: 4A 77 LDJ &L077A 0773: 5D JNC 0774: AF LDA $F 0775: E4 LLT 0776: 62 ADD $2 0777: 57 USB 0778: 63 ADD $3 0779: E0 VDR L077A: 077A: A4 LDA $4 077B: D2 STA $2 077C: A9 LDA $9 077D: D3 STA $3 077E: BC CMP $C 077F: E1 LDJ [i] 0780: 58 JMP ; RETURN FROM SUBROUTINE ; WARNING - THIS IS DEAD CODE IN THE MACHINE TRANSLATED VERSION L0781: 0781: A7 LDA $7 0782: ED ASR 0783: 6A ADD $A 0784: D4 STA $4 0785: A8 LDA $8 0786: ED ASR 0787: 6B ADD $B 0788: D9 STA $9 0789: 07 LDA #$700 078A: 20 8F ADD #$8F ; A = &L078F - set up return address 078C: 49 47 LDJ &L0749 078E: 58 JMP ; JSR ... ; WARNING: CODE BLOCK NOT REACHED IN MACHINE TRANSLATED VERSION!??? L078F: 078F: AA LDA $A 0790: 67 ADD $7 0791: 7E SUB $E 0792: D4 STA $4 0793: A8 LDA $8 0794: 6B ADD $B 0795: D9 STA $9 0796: 07 LDA #$700 0797: 20 9C ADD #$9C ; A = &L079C 0799: 49 47 LDJ &L0749 079B: 58 JMP ; JSR L079C L079C: ; return from subroutine to here 079C: AA LDA $A 079D: D4 STA $4 079E: AB LDA $B 079F: D9 STA $9 07A0: A1 LDA $1 07A1: 49 47 LDJ &L0749 07A3: 58 JMP L07A4: 07A4: 04 LDA #$400 07A5: 86 LDP #$6 07A6: 73 SUB $3 07A7: D5 STA $5 07A8: 57 USB 07A9: 00 CLR 07AA: A2 LDA $2 07AB: B5 CMP $5 07AC: E3 MUL [i] 07AD: E3 MUL [i] 07AE: E3 MUL [i] 07AF: E3 MUL [i] 07B0: EE ASRD 07B1: 57 USB 07B2: D5 STA $5 07B3: EA LDA [i] 07B4: 63 ADD $3 07B5: 80 LDP #$0 07B6: DA STA $A 07B7: 57 USB 07B8: AB LDA $B 07B9: 4B B7 LDJ &L07BB L07BB: 07BB: 5A JDR 07BC: F0 VIN L07BD: 07BD: 00 CLR 07BE: 85 LDP #$5 07BF: B0 CMP $0 07C0: 46 E7 LDJ &L07E6 07C2: 5C JEQ 07C3: B7 CMP $7 07C4: 40 D7 LDJ &L07D0 07C6: 5D JNC 07C7: BD CMP $D 07C8: 5C JEQ ; L07D0 07C9: D6 STA $6 07CA: A4 LDA $4 07CB: 32 SUB #$2 07CC: E6 STA [i] 07CD: A5 LDA $5 07CE: 21 ADD #$1 07CF: E6 STA [i] L07D0: 07D0: 00 CLR 07D1: 22 ADD #$2 07D2: B7 CMP $7 07D3: 43 E7 LDJ &L07E3 07D5: 5D JNC 07D6: 07 LDA #$700 07D7: 20 ED ADD #$ED 07D9: 80 LDP #$0 07DA: D0 STA $0 07DB: 00 CLR 07DC: 20 51 ADD #$51 07DE: 81 LDP #$1 07DF: D9 STA $9 07E0: 40 0C LDJ &L0C00 07E2: 58 JMP L07E3: ; Enters here with P=5 07E3: A7 LDA $7 07E4: 21 ADD #$1 07E5: E6 STA [i] ; Ram[0x57] += 1 L07E6: 07E6: 00 CLR 07E7: 30 64 SUB #$64 L07E9: 07E9: 21 ADD #$1 07EA: 49 E7 LDJ &L07E9 07EC: 5D JNC ; Timing loop? L07ED: 07ED: 00 CLR 07EE: 86 LDP #$6 07EF: B2 CMP $2 07F0: 45 58 LDJ &L0855 07F2: 5C JEQ 07F3: 1D INP $D 07F4: 21 ADD #$1 07F5: 4E 38 LDJ &L083E 07F7: 5C JEQ 07F8: 00 CLR 07F9: 20 40 ADD #$40 07FB: 80 LDP #$0 07FC: D5 STA $5 07FD: 57 USB 07FE: 00 CLR 07FF: 86 LDP #$6 0800: A2 LDA $2 0801: 80 LDP #$0 0802: B5 CMP $5 0803: E3 MUL [i] 0804: E3 MUL [i] 0805: E3 MUL [i] 0806: E3 MUL [i] 0807: EE ASRD 0808: 57 USB 0809: 6A ADD $A 080A: 57 USB 080B: D5 STA $5 080C: AB LDA $B 080D: D6 STA $6 080E: 57 USB 080F: EA LDA [i] 0810: A5 LDA $5 0811: F0 VIN 0812: 80 LDP #$0 0813: A5 LDA $5 0814: 86 LDP #$6 0815: 73 SUB $3 0816: ED ASR 0817: 80 LDP #$0 0818: D7 STA $7 0819: 08 LDA #$800 081A: EA LDA [i] 081B: 40 28 LDJ &L0820 081D: 5B JLT 081E: 00 CLR 081F: E8 SUB [i] L0820: 0820: DE STA $E 0821: A6 LDA $6 0822: 86 LDP #$6 0823: 74 SUB $4 0824: ED ASR 0825: 80 LDP #$0 0826: D8 STA $8 0827: 57 USB 0828: EA LDA [i] 0829: 08 LDA #$800 082A: EA LDA [i] 082B: 40 38 LDJ &L0830 082D: 5B JLT 082E: 00 CLR 082F: E8 SUB [i] L0830: 0830: 6E ADD $E 0831: 33 SUB #$3 0832: 45 58 LDJ &L0855 0834: 5D JNC 0835: A7 LDA $7 0836: E4 LLT 0837: 65 ADD $5 0838: 57 USB 0839: 66 ADD $6 083A: E0 VDR 083B: 45 58 LDJ &L0855 083D: 58 JMP L083E: 083E: 80 LDP #$0 083F: AA LDA $A 0840: 86 LDP #$6 0841: 73 SUB $3 0842: ED ASR 0843: 80 LDP #$0 0844: D7 STA $7 0845: AB LDA $B 0846: 86 LDP #$6 0847: 74 SUB $4 0848: ED ASR 0849: 80 LDP #$0 084A: D8 STA $8 084B: A7 LDA $7 084C: ED ASR 084D: ED ASR 084E: DE STA $E 084F: 08 LDA #$800 0850: 20 55 ADD #$55 ; A = &L0855 - return address 0852: 4B 37 LDJ &L073B 0854: 58 JMP ; JSR L073B ... L0855: ; return here... ; also many other places jump to here 0855: 00 CLR 0856: 86 LDP #$6 0857: A2 LDA $2 0858: 4D 58 LDJ &L085D 085A: 5C JEQ 085B: 31 SUB #$1 085C: E6 STA [i] L085D: 085D: 00 CLR 085E: 86 LDP #$6 085F: B9 CMP $9 0860: 4D E8 LDJ &L08ED 0862: 5C JEQ 0863: 22 ADD #$2 0864: 83 LDP #$3 0865: B7 CMP $7 0866: 4E 88 LDJ &L088E 0868: 5B JLT 0869: 25 ADD #$5 086A: B7 CMP $7 086B: 5D JNC 086C: 48 98 LDJ &L0898 086E: 58 JMP L086F: 086F: 00 CLR 0870: 20 18 ADD #$18 0872: 93 OUT $3 0873: EB LSR 0874: 90 OUT $0 0875: EB LSR 0876: 91 OUT $1 0877: EB LSR 0878: 92 OUT $2 0879: EB LSR 087A: 94 OUT $4 087B: EB LSR 087C: 94 OUT $4 087D: 00 CLR 087E: 20 16 ADD #$16 0880: 93 OUT $3 0881: EB LSR 0882: 90 OUT $0 0883: EB LSR 0884: 91 OUT $1 0885: EB LSR 0886: 92 OUT $2 0887: EB LSR 0888: 94 OUT $4 0889: EB LSR 088A: 94 OUT $4 088B: 4E 54 LDJ &L045E 088D: 58 JMP L088E: 088E: 00 CLR 088F: 22 ADD #$2 0890: 84 LDP #$4 0891: B7 CMP $7 0892: 49 A8 LDJ &L08A9 0894: 5B JLT 0895: 25 ADD #$5 0896: B7 CMP $7 0897: 5D JNC ; L08A9 L0898: 0898: 00 CLR 0899: 20 1F ADD #$1F 089B: 93 OUT $3 089C: EB LSR 089D: 90 OUT $0 089E: EB LSR 089F: 91 OUT $1 08A0: EB LSR 08A1: 92 OUT $2 08A2: EB LSR 08A3: 94 OUT $4 08A4: EB LSR 08A5: 94 OUT $4 08A6: 4B F8 LDJ &L08FB 08A8: 58 JMP L08A9: 08A9: 00 CLR 08AA: 22 ADD #$2 08AB: 85 LDP #$5 08AC: B7 CMP $7 08AD: 4D E8 LDJ &L08ED 08AF: 5B JLT 08B0: 25 ADD #$5 08B1: B7 CMP $7 08B2: 5D JNC ; L08ED 08B3: 48 98 LDJ &L0898 08B5: 58 JMP L08B6: 08B6: 5F NOP 08B7: 00 CLR 08B8: 87 LDP #$7 08B9: BA CMP $A 08BA: 4D E8 LDJ &L08ED 08BC: 5D JNC 08BD: 83 LDP #$3 08BE: B0 CMP $0 08BF: 48 03 LDJ &L0308 08C1: 5D JNC 08C2: 84 LDP #$4 08C3: B0 CMP $0 08C4: 5D JNC ; L0308 08C5: 85 LDP #$5 08C6: B0 CMP $0 08C7: 5D JNC ; L0308 08C8: 87 LDP #$7 08C9: BD CMP $D 08CA: 46 B2 LDJ &L02B6 08CC: 5D JNC 08CD: 86 LDP #$6 08CE: B9 CMP $9 08CF: 4E D2 LDJ &L02DE 08D1: 5D JNC 08D2: 00 CLR 08D3: 20 14 ADD #$14 08D5: 93 OUT $3 08D6: EB LSR 08D7: 90 OUT $0 08D8: EB LSR 08D9: 91 OUT $1 08DA: EB LSR 08DB: 92 OUT $2 08DC: EB LSR 08DD: 94 OUT $4 08DE: EB LSR 08DF: 94 OUT $4 08E0: 00 CLR 08E1: 87 LDP #$7 08E2: D3 STA $3 08E3: 0F LDA #$F00 08E4: 87 LDP #$7 08E5: DE STA $E 08E6: 00 CLR 08E7: 20 10 ADD #$10 08E9: DC STA $C 08EA: 00 CLR 08EB: 21 ADD #$1 08EC: DD STA $D L08ED: 08ED: 00 CLR 08EE: 20 1E ADD #$1E 08F0: 93 OUT $3 08F1: EB LSR 08F2: 90 OUT $0 08F3: EB LSR 08F4: 91 OUT $1 08F5: EB LSR 08F6: 92 OUT $2 08F7: EB LSR 08F8: 94 OUT $4 08F9: EB LSR 08FA: 94 OUT $4 L08FB: 08FB: 06 LDA #$600 08FC: 20 00 ADD #$00 ; hah! must be a loadaddr macro 08FE: 80 LDP #$0 08FF: D0 STA $0 0900: 40 80 LDJ &L1080 0902: 82 LDP #$2 0903: 50 JPPB ; goto L1080; L0904: ; This is only called in one place ; and it's not obvious why this ; isn't inline just before L0015 0904: 57 USB 0905: 11 INP $1 0906: 57 USB 0907: EC LSL 0908: 88 LDP #$8 0909: 57 USB 090A: D2 STA $2 090B: 57 USB 090C: 14 INP $4 090D: 57 USB 090E: E7 ADD [i] 090F: 57 USB 0910: EC LSL 0911: 57 USB 0912: E6 STA [i] 0913: 57 USB 0914: 15 INP $5 0915: 57 USB 0916: E7 ADD [i] 0917: 57 USB 0918: E6 STA [i] 0919: 46 20 LDJ &L0026 091B: 58 JMP ; ------------------------------------------------------------------ ; DATA - VERY HIGH PROB OF IT BEING VECTOR DATA L091C: ; first little block is shield strength for initialisation from DIPs 00000910: 15 20 30 40 : . 0@ 00000920: 50 60 70 80 : P`p. L0924: 00000920: e2 ff 0d ca 30 09 36 20 23 c3 26 09 : ....0.6 #.&. 00000930: 0e 04 fe 2e c2 4b 09 21 65 00 cd d7 0b fe 0d ca : .....K.!e....... 00000940: 4b 09 77 23 0d ca a5 0b c3 3a 09 0d ca 55 09 36 : K.w#.....:...U.6 00000950: 20 23 c3 4b 09 36 00 c3 fe 06 cd 41 08 cd 57 08 : #.K.6.....A..W. 00000960: da fe 06 0a 03 77 23 c3 5d 09 21 65 00 7e fe 48 : .....w#.].!e.~.H 00000970: c0 23 7e fe 45 c0 23 7e fe 58 c9 eb 2a 81 0f 7d : .#~.E.#~.X..*..} 00000980: 93 7c 9a eb c9 cd 7b 09 d0 22 81 0f c9 e5 21 00 : .|....{.."....!. 00000990: 00 cd 7b 09 e1 c9 cd 8a 0c 21 00 00 ca a6 09 3d : ..{......!.....= 000009a0: c2 a5 0b cd 60 0c e5 cd 6b 07 fe ff ca a5 0b cd : ....`...k....... 000009b0: 6a 09 ca db 09 e1 11 00 01 19 e5 11 5c 00 0e 14 : j...........\... 000009c0: cd a2 06 e1 b7 c2 40 0a 11 80 00 0e 80 1a 13 77 : ......@........w 000009d0: 23 0d c2 cd 09 cd 85 09 c3 ba 09 cd 6e 0b fe 1a : #...........n... 000009e0: ca a5 0b de 3a c2 db 09 57 e1 e5 cd 20 0a 5f cd : ....:...W... ._. 000009f0: 20 0a f5 cd 20 0a c1 4f 09 7b b7 c2 06 0a 60 69 : ... ..O.{....`i 00000a00: 22 b3 0f c3 40 0a cd 20 0a cd 20 0a 77 23 1d c2 : "...@.. .. .w#.. 00000a10: 09 0a cd 20 0a f5 cd 85 09 f1 c2 a5 0b c3 db 09 : ... ............ 00000a20: c5 e5 d5 cd 6e 0b cd 53 0c 07 07 07 07 e6 f0 f5 : ....n..S........ 00000a30: cd 6e 0b cd 53 0c c1 b0 47 d1 82 57 78 e1 c1 c9 : .n..S...G..Wx... 00000a40: 0e 0c cd a2 06 21 69 0a 7e b7 ca 54 0a cd c1 0b : .....!i.~..T.... 00000a50: 23 c3 48 0a cd 0f 0c 2a 81 0f cd 28 0c cd bf 0b : #.H....*...(.... 00000a60: 2a b3 0f cd 28 0c c3 fe 06 0d 0a 4e 45 58 54 20 : *...(......NEXT 00000a70: 20 50 43 00 cd 8a 0c 3d c2 a5 0b cd 60 0c cd 0f : PC....=....`... 00000a80: 0c e5 cd 28 0c cd bf 0b e1 7e e5 cd ff 0b cd bf : ...(.....~...... 00000a90: 0b cd b0 0b cd d7 0b e1 fe 0d ca b5 0a fe 2e ca : ................ 00000aa0: fe 06 e5 cd 8d 0c 3d c2 a5 0b cd 60 0c 7c b7 c2 : ......=....`.|.. 00000ab0: a5 0b 7d e1 77 23 c3 7e 0a af c3 bf 0a 3e ff 32 : ..}.w#.~.....>.2 00000ac0: 46 0f cd 8a 0c 21 00 00 ca d8 0a 3d c2 a5 0b cd : F....!.....=.... 00000ad0: 60 0c 7d b4 ca a5 0b 2b 22 47 0f cd 3e 0d c3 85 : `.}....+"G..>... 00000ae0: 08 cd d7 0b fe 0d c2 ef 0a cd 3e 0d c3 fe 06 01 : ..........>..... 00000af0: 0b 00 21 ad 0d be ca 02 0b 23 04 0d c2 f5 0a c3 : ..!......#...... 00000b00: a5 0b cd d7 0b fe 0d c2 a5 0b c5 cd 0f 0c cd 14 : ................ 00000b10: 0d cd bf 0b cd b0 0b cd 8a 0c b7 ca fe 06 3d c2 : ..............=. 00000b20: a5 0b cd 60 0c c1 78 fe 05 d2 53 0b 7c b7 c2 a5 : ...`..x...S.|... 00000b30: 0b 7d fe 02 d2 a5 0b cd dd 0c 67 41 3e fe cd 4d : .}........gA>..M 00000b40: 0b a4 41 67 7d cd 4d 0b b4 12 c3 fe 06 05 c8 07 : ..Ag}.M......... 00000b50: c3 4d 0b c2 63 0b 7c b7 c2 a5 0b 7d 21 ae 0f 77 : .M..c.|....}!..w 00000b60: c3 fe 06 e5 cd fb 0c d1 73 23 72 c3 fe 06 e5 d5 : ........s#r..... 00000b70: c5 3a 5b 00 e6 7f ca 8e 0b 16 00 5f 21 80 00 19 : .:[........_!... 00000b80: 7e fe 1a ca a0 0b 21 5b 00 34 b7 c3 a1 0b 0e 14 : ~.....![.4...... 00000b90: 11 5c 00 cd a2 06 b7 c2 a0 0b 32 5b 00 c3 79 0b : .\........2[..y. 00000ba0: 37 c1 d1 e1 c9 cd 0f 0c 3e 3f cd c1 0b c3 fe 06 : 7.......>?...... 00000bb0: 0e 0a 11 5f 0f cd a2 06 21 61 0f 22 5d 0f c9 3e : ..._....!a."]..> 00000bc0: 20 e5 d5 c5 5f 0e 02 cd a2 06 c1 d1 e1 c9 fe 7f : ..._........... 00000bd0: c8 fe 61 d8 e6 5f c9 e5 21 60 0f 7e b7 3e 0d ca : ..a.._..!`.~.>.. 00000be0: ee 0b 35 2a 5d 0f 7e 23 22 5d 0f cd ce 0b e1 c9 : ..5*].~#"]...... 00000bf0: fe 0a d2 fa 0b c6 30 c3 c1 0b c6 37 c3 c1 0b f5 : ......0....7.... ; End of data block ; ------------------------------------------------------------------ L0C00: 0C00: 81 LDP #$1 0C01: C9 LDI $9 0C02: EA LDA [i] 0C03: D0 STA $0 0C04: A9 LDA $9 0C05: 21 ADD #$1 0C06: E6 STA [i] 0C07: C9 LDI $9 0C08: EA LDA [i] 0C09: D1 STA $1 0C0A: A9 LDA $9 0C0B: 21 ADD #$1 0C0C: E6 STA [i] 0C0D: C9 LDI $9 0C0E: EA LDA [i] 0C0F: D2 STA $2 0C10: A9 LDA $9 0C11: 21 ADD #$1 0C12: E6 STA [i] 0C13: C9 LDI $9 0C14: EA LDA [i] 0C15: D3 STA $3 0C16: A9 LDA $9 0C17: 21 ADD #$1 0C18: E6 STA [i] 0C19: C9 LDI $9 0C1A: EA LDA [i] 0C1B: D4 STA $4 0C1C: A9 LDA $9 0C1D: 21 ADD #$1 0C1E: E6 STA [i] 0C1F: C9 LDI $9 0C20: EA LDA [i] 0C21: D5 STA $5 0C22: A9 LDA $9 0C23: 22 ADD #$2 0C24: E6 STA [i] 0C25: C9 LDI $9 0C26: EA LDA [i] 0C27: DA STA $A 0C28: 70 SUB $0 0C29: ED ASR 0C2A: ED ASR 0C2B: ED ASR 0C2C: ED ASR 0C2D: D6 STA $6 0C2E: 00 CLR 0C2F: 20 1E ADD #$1E 0C31: B6 CMP $6 0C32: 48 4C LDJ &L0C48 0C34: 5B JLT 0C35: 08 LDA #$800 0C36: B6 CMP $6 0C37: 44 4C LDJ &L0C44 0C39: 5B JLT 0C3A: 00 CLR 0C3B: 30 1E SUB #$1E 0C3D: B6 CMP $6 0C3E: 47 4C LDJ &L0C47 0C40: 5B JLT 0C41: 48 4C LDJ &L0C48 0C43: 58 JMP L0C44: 0C44: 00 CLR 0C45: 20 1E ADD #$1E L0C47: 0C47: D6 STA $6 L0C48: 0C48: A9 LDA $9 0C49: 21 ADD #$1 0C4A: E6 STA [i] 0C4B: C9 LDI $9 0C4C: EA LDA [i] 0C4D: DB STA $B 0C4E: 71 SUB $1 0C4F: ED ASR 0C50: ED ASR 0C51: ED ASR 0C52: ED ASR 0C53: D7 STA $7 0C54: 00 CLR 0C55: 20 1E ADD #$1E 0C57: B7 CMP $7 0C58: 4E 6C LDJ &L0C6E 0C5A: 5B JLT 0C5B: 08 LDA #$800 0C5C: B7 CMP $7 0C5D: 4A 6C LDJ &L0C6A 0C5F: 5B JLT 0C60: 00 CLR 0C61: 30 1E SUB #$1E 0C63: B7 CMP $7 0C64: 4D 6C LDJ &L0C6D 0C66: 5B JLT 0C67: 4E 6C LDJ &L0C6E 0C69: 58 JMP L0C6A: 0C6A: 00 CLR 0C6B: 20 1E ADD #$1E L0C6D: 0C6D: D7 STA $7 L0C6E: 0C6E: A9 LDA $9 0C6F: 21 ADD #$1 0C70: E6 STA [i] 0C71: C9 LDI $9 0C72: EA LDA [i] 0C73: B2 CMP $2 0C74: 41 8C LDJ &L0C81 0C76: 5D JNC 0C77: 00 CLR 0C78: 20 40 ADD #$40 0C7A: 76 SUB $6 0C7B: E6 STA [i] 0C7C: 00 CLR 0C7D: 20 40 ADD #$40 0C7F: 77 SUB $7 0C80: E6 STA [i] L0C81: 0C81: A9 LDA $9 0C82: 36 SUB #$6 0C83: E6 STA [i] 0C84: A6 LDA $6 0C85: 73 SUB $3 0C86: DE STA $E 0C87: 00 CLR 0C88: 20 7F ADD #$7F 0C8A: E9 AND [i] 0C8B: E6 STA [i] 0C8C: 00 CLR 0C8D: BE CMP $E 0C8E: 4E 9C LDJ &L0C9E 0C90: 5C JEQ 0C91: 20 40 ADD #$40 0C93: BE CMP $E 0C94: 4C 9C LDJ &L0C9C 0C96: 5B JLT 0C97: 00 CLR 0C98: 31 SUB #$1 0C99: 4E 9C LDJ &L0C9E 0C9B: 58 JMP L0C9C: 0C9C: 00 CLR 0C9D: 21 ADD #$1 L0C9E: 0C9E: 63 ADD $3 0C9F: DE STA $E 0CA0: C9 LDI $9 0CA1: E6 STA [i] 0CA2: 0C LDA #$C00 0CA3: 20 A9 ADD #$A9 ; A = &L0CA9 0CA5: DF STA $F 0CA6: 4B EE LDJ &L0EEB 0CA8: 58 JMP ; JSR L0EEB L0CA9: ; Return here; also jumps to here 0CA9: AA LDA $A 0CAA: DC STA $C 0CAB: AB LDA $B 0CAC: DD STA $D 0CAD: A9 LDA $9 0CAE: 21 ADD #$1 0CAF: E6 STA [i] 0CB0: A7 LDA $7 0CB1: 74 SUB $4 0CB2: DE STA $E 0CB3: 00 CLR 0CB4: 20 7F ADD #$7F 0CB6: E9 AND [i] 0CB7: E6 STA [i] 0CB8: 00 CLR 0CB9: BE CMP $E 0CBA: 4A CC LDJ &L0CCA 0CBC: 5C JEQ 0CBD: 20 40 ADD #$40 0CBF: BE CMP $E 0CC0: 48 CC LDJ &L0CC8 0CC2: 5B JLT 0CC3: 00 CLR 0CC4: 31 SUB #$1 0CC5: 4A CC LDJ &L0CCA 0CC7: 58 JMP L0CC8: 0CC8: 00 CLR 0CC9: 21 ADD #$1 L0CCA: 0CCA: 64 ADD $4 0CCB: DE STA $E 0CCC: C9 LDI $9 0CCD: E6 STA [i] 0CCE: 0C LDA #$C00 0CCF: 20 D5 ADD #$D5 0CD1: DF STA $F ; return address = &L0CD5 0CD2: 4B EE LDJ &L0EEB 0CD4: 58 JMP ; JSR L0EEB L0CD5: 0CD5: 57 USB 0CD6: 00 CLR 0CD7: 08 LDA #$800 0CD8: AC LDA $C 0CD9: 4E DC LDJ &L0CDE 0CDB: 5B JLT 0CDC: 00 CLR 0CDD: E8 SUB [i] L0CDE: 0CDE: BB CMP $B 0CDF: E3 MUL [i] 0CE0: E3 MUL [i] 0CE1: E3 MUL [i] 0CE2: E3 MUL [i] 0CE3: E3 MUL [i] 0CE4: E3 MUL [i] 0CE5: E3 MUL [i] 0CE6: E3 MUL [i] 0CE7: E3 MUL [i] 0CE8: 08 LDA #$800 0CE9: BC CMP $C 0CEA: 57 USB 0CEB: D3 STA $3 0CEC: 42 FC LDJ &L0CF2 0CEE: 5B JLT 0CEF: 00 CLR 0CF0: 73 SUB $3 0CF1: E6 STA [i] L0CF2: 0CF2: 57 USB 0CF3: 00 CLR 0CF4: 08 LDA #$800 0CF5: A3 LDA $3 0CF6: 4B FC LDJ &L0CFB 0CF8: 5B JLT 0CF9: 00 CLR 0CFA: E8 SUB [i] L0CFB: 0CFB: B5 CMP $5 ; I = 0x15 0CFC: E3 MUL [i] 0CFD: E3 MUL [i] 0CFE: E3 MUL [i] 0CFF: E3 MUL [i] 0D00: E3 MUL [i] 0D01: E3 MUL [i] 0D02: E3 MUL [i] 0D03: E3 MUL [i] 0D04: E3 MUL [i] 0D05: 08 LDA #$800 0D06: B3 CMP $3 0D07: 57 USB 0D08: D3 STA $3 0D09: 4F 0D LDJ &L0D0F 0D0B: 5B JLT 0D0C: 00 CLR 0D0D: 73 SUB $3 0D0E: E6 STA [i] L0D0F: 0D0F: 57 USB 0D10: 00 CLR 0D11: 08 LDA #$800 0D12: AA LDA $A 0D13: 48 1D LDJ &L0D18 0D15: 5B JLT 0D16: 00 CLR 0D17: E8 SUB [i] L0D18: 0D18: B5 CMP $5 ; I = 0x15 0D19: E3 MUL [i] 0D1A: E3 MUL [i] 0D1B: E3 MUL [i] 0D1C: E3 MUL [i] 0D1D: E3 MUL [i] 0D1E: E3 MUL [i] 0D1F: E3 MUL [i] 0D20: E3 MUL [i] 0D21: E3 MUL [i] 0D22: 08 LDA #$800 0D23: BA CMP $A 0D24: 57 USB 0D25: D4 STA $4 0D26: 4C 2D LDJ &L0D2C 0D28: 5B JLT 0D29: 00 CLR 0D2A: 74 SUB $4 0D2B: E6 STA [i] L0D2C: 0D2C: 57 USB 0D2D: 00 CLR 0D2E: 08 LDA #$800 0D2F: AD LDA $D 0D30: 45 3D LDJ &L0D35 0D32: 5B JLT 0D33: 00 CLR 0D34: E8 SUB [i] L0D35: 0D35: BB CMP $B ; i = 0x1d 0D36: E3 MUL [i] 0D37: E3 MUL [i] 0D38: E3 MUL [i] 0D39: E3 MUL [i] 0D3A: E3 MUL [i] 0D3B: E3 MUL [i] 0D3C: E3 MUL [i] 0D3D: E3 MUL [i] 0D3E: E3 MUL [i] 0D3F: 08 LDA #$800 0D40: BD CMP $D 0D41: 57 USB 0D42: DF STA $F 0D43: 49 4D LDJ &L0D49 0D45: 5B JLT 0D46: 00 CLR 0D47: 7F SUB $F 0D48: E6 STA [i] L0D49: 0D49: 57 USB 0D4A: 00 CLR 0D4B: 08 LDA #$800 0D4C: AF LDA $F 0D4D: 42 5D LDJ &L0D52 0D4F: 5B JLT 0D50: 00 CLR 0D51: E8 SUB [i] L0D52: 0D52: B5 CMP $5 ; i = 0x15 0D53: E3 MUL [i] 0D54: E3 MUL [i] 0D55: E3 MUL [i] 0D56: E3 MUL [i] 0D57: E3 MUL [i] 0D58: E3 MUL [i] 0D59: E3 MUL [i] 0D5A: E3 MUL [i] 0D5B: E3 MUL [i] 0D5C: 08 LDA #$800 0D5D: BF CMP $F 0D5E: 57 USB 0D5F: D5 STA $5 0D60: 46 6D LDJ &L0D66 0D62: 5B JLT 0D63: 00 CLR 0D64: 75 SUB $5 0D65: E6 STA [i] L0D66: 0D66: A9 LDA $9 0D67: 34 SUB #$4 0D68: E6 STA [i] 0D69: A3 LDA $3 0D6A: C9 LDI $9 0D6B: E7 ADD [i] 0D6C: E6 STA [i] 0D6D: D0 STA $0 0D6E: A9 LDA $9 0D6F: 21 ADD #$1 0D70: E6 STA [i] 0D71: A4 LDA $4 0D72: C9 LDI $9 0D73: E7 ADD [i] 0D74: E6 STA [i] 0D75: D1 STA $1 0D76: A9 LDA $9 0D77: 21 ADD #$1 0D78: E6 STA [i] 0D79: 00 CLR 0D7A: 75 SUB $5 0D7B: C9 LDI $9 0D7C: E7 ADD [i] 0D7D: E6 STA [i] 0D7E: D2 STA $2 0D7F: A9 LDA $9 0D80: 29 ADD #$9 0D81: E6 STA [i] 0D82: 81 LDP #$1 0D83: A2 LDA $2 0D84: EB LSR 0D85: 80 LDP #$0 0D86: D9 STA $9 0D87: 81 LDP #$1 0D88: A0 LDA $0 0D89: 80 LDP #$0 0D8A: D5 STA $5 0D8B: 81 LDP #$1 0D8C: A1 LDA $1 0D8D: 80 LDP #$0 0D8E: D6 STA $6 0D8F: 02 LDA #$200 0D90: DD STA $D 0D91: 00 CLR 0D92: D4 STA $4 L0D93: 0D93: AD LDA $D 0D94: B9 CMP $9 0D95: 43 0E LDJ &L0E03 0D97: 5B JLT 0D98: 57 USB 0D99: 00 CLR 0D9A: EF LSLD 0D9B: 57 USB 0D9C: 21 ADD #$1 0D9D: E8 SUB [i] 0D9E: 44 AD LDJ &L0DA4 0DA0: 5B JLT 0DA1: E7 ADD [i] 0DA2: 57 USB 0DA3: 31 SUB #$1 L0DA4: 0DA4: EF LSLD 0DA5: 57 USB 0DA6: 21 ADD #$1 0DA7: E8 SUB [i] 0DA8: 4E AD LDJ &L0DAE 0DAA: 5B JLT 0DAB: E7 ADD [i] 0DAC: 57 USB 0DAD: 31 SUB #$1 L0DAE: 0DAE: EF LSLD 0DAF: 57 USB 0DB0: 21 ADD #$1 0DB1: E8 SUB [i] 0DB2: 48 BD LDJ &L0DB8 0DB4: 5B JLT 0DB5: E7 ADD [i] 0DB6: 57 USB 0DB7: 31 SUB #$1 L0DB8: 0DB8: EF LSLD 0DB9: 57 USB 0DBA: 21 ADD #$1 0DBB: E8 SUB [i] 0DBC: 42 CD LDJ &L0DC2 0DBE: 5B JLT 0DBF: E7 ADD [i] 0DC0: 57 USB 0DC1: 31 SUB #$1 L0DC2: 0DC2: EF LSLD 0DC3: 57 USB 0DC4: 21 ADD #$1 0DC5: E8 SUB [i] 0DC6: 4C CD LDJ &L0DCC 0DC8: 5B JLT 0DC9: E7 ADD [i] 0DCA: 57 USB 0DCB: 31 SUB #$1 L0DCC: 0DCC: EF LSLD 0DCD: 57 USB 0DCE: 21 ADD #$1 0DCF: E8 SUB [i] 0DD0: 46 DD LDJ &L0DD6 0DD2: 5B JLT 0DD3: E7 ADD [i] 0DD4: 57 USB 0DD5: 31 SUB #$1 L0DD6: 0DD6: EF LSLD 0DD7: 57 USB 0DD8: 21 ADD #$1 0DD9: E8 SUB [i] 0DDA: 40 ED LDJ &L0DE0 0DDC: 5B JLT 0DDD: E7 ADD [i] 0DDE: 57 USB 0DDF: 31 SUB #$1 L0DE0: 0DE0: EF LSLD 0DE1: 57 USB 0DE2: 21 ADD #$1 0DE3: E8 SUB [i] 0DE4: 4A ED LDJ &L0DEA 0DE6: 5B JLT 0DE7: E7 ADD [i] 0DE8: 57 USB 0DE9: 31 SUB #$1 L0DEA: 0DEA: EF LSLD 0DEB: 57 USB 0DEC: 21 ADD #$1 0DED: E8 SUB [i] 0DEE: 44 FD LDJ &L0DF4 0DF0: 5B JLT 0DF1: E7 ADD [i] 0DF2: 57 USB 0DF3: 31 SUB #$1 0DF4: EF LSLD 0DF5: 57 USB 0DF6: 21 ADD #$1 0DF7: E8 SUB [i] 0DF8: 4E FD LDJ &L0DFE 0DFA: 5B JLT 0DFB: E7 ADD [i] 0DFC: 57 USB 0DFD: 31 SUB #$1 L0DFE: 0DFE: 57 USB 0DFF: D9 STA $9 0E00: 4B 0E LDJ &L0E0B 0E02: 58 JMP ; strangely ex-bedded little piece of code here...? L0E03: 0E03: E8 SUB [i] 0E04: DD STA $D 0E05: A4 LDA $4 0E06: 21 ADD #$1 0E07: E6 STA [i] 0E08: 43 9D LDJ &L0D93 0E0A: 58 JMP L0E0B: 0E0B: 57 USB 0E0C: 00 CLR 0E0D: 08 LDA #$800 0E0E: A5 LDA $5 0E0F: 44 1E LDJ &L0E14 0E11: 5B JLT 0E12: 00 CLR 0E13: E8 SUB [i] 0E14: B9 CMP $9 ; I = 0x09 (P is always 0 on entry) 0E15: E3 MUL [i] 0E16: E3 MUL [i] 0E17: E3 MUL [i] 0E18: E3 MUL [i] 0E19: E3 MUL [i] 0E1A: E3 MUL [i] 0E1B: E3 MUL [i] 0E1C: E3 MUL [i] 0E1D: E3 MUL [i] 0E1E: E3 MUL [i] 0E1F: E3 MUL [i] 0E20: 57 USB 0E21: D7 STA $7 0E22: 08 LDA #$800 0E23: B5 CMP $5 0E24: 4A 2E LDJ &L0E2A 0E26: 5B JLT 0E27: 00 CLR 0E28: 77 SUB $7 0E29: E6 STA [i] L0E2A: 0E2A: 57 USB 0E2B: 00 CLR 0E2C: 08 LDA #$800 0E2D: A6 LDA $6 0E2E: 43 3E LDJ &L0E33 0E30: 5B JLT 0E31: 00 CLR 0E32: E8 SUB [i] L0E33: 0E33: B9 CMP $9 ; I = 0x09 0E34: E3 MUL [i] 0E35: E3 MUL [i] 0E36: E3 MUL [i] 0E37: E3 MUL [i] 0E38: E3 MUL [i] 0E39: E3 MUL [i] 0E3A: E3 MUL [i] 0E3B: E3 MUL [i] 0E3C: E3 MUL [i] 0E3D: E3 MUL [i] 0E3E: E3 MUL [i] 0E3F: 57 USB 0E40: D8 STA $8 0E41: 08 LDA #$800 0E42: B6 CMP $6 0E43: 49 4E LDJ &L0E49 0E45: 5B JLT 0E46: 00 CLR 0E47: 78 SUB $8 0E48: E6 STA [i] L0E49: 0E49: 57 USB 0E4A: 00 CLR 0E4B: 57 USB 0E4C: 74 SUB $4 0E4D: 4B 5E LDJ &L0E5B 0E4F: 5C JEQ 0E50: 42 5E LDJ &L0E52 L0E52: 0E52: A5 LDA $5 0E53: 67 ADD $7 0E54: E6 STA [i] 0E55: A6 LDA $6 0E56: 68 ADD $8 0E57: E6 STA [i] 0E58: 57 USB 0E59: 21 ADD #$1 0E5A: 5D JNC ; L0E52 L0E5B: 0E5B: 03 LDA #$300 0E5C: EB LSR 0E5D: 68 ADD $8 0E5E: 81 LDP #$1 0E5F: C9 LDI $9 0E60: E6 STA [i] 0E61: A9 LDA $9 0E62: 31 SUB #$1 0E63: E6 STA [i] 0E64: 02 LDA #$200 0E65: 80 LDP #$0 0E66: 67 ADD $7 0E67: 81 LDP #$1 0E68: C9 LDI $9 0E69: E6 STA [i] 0E6A: 00 CLR 0E6B: 86 LDP #$6 0E6C: B2 CMP $2 0E6D: 47 EE LDJ &L0EE7 0E6F: 5C JEQ 0E70: 23 ADD #$3 0E71: B2 CMP $2 0E72: 5D JNC ; L0EE7 0E73: 02 LDA #$200 0E74: 81 LDP #$1 0E75: B2 CMP $2 0E76: 5B JLT ; L0EE7 0E77: 00 CLR 0E78: E8 SUB [i] 0E79: EB LSR 0E7A: EB LSR 0E7B: EB LSR 0E7C: EB LSR 0E7D: EB LSR 0E7E: EB LSR 0E7F: EB LSR 0E80: 20 16 ADD #$16 0E82: 80 LDP #$0 0E83: D9 STA $9 0E84: 82 LDP #$2 0E85: AC LDA $C 0E86: 80 LDP #$0 0E87: 77 SUB $7 0E88: E6 STA [i] 0E89: 08 LDA #$800 0E8A: EA LDA [i] 0E8B: 40 9E LDJ &L0E90 0E8D: 5B JLT 0E8E: 00 CLR 0E8F: E8 SUB [i] L0E90: 0E90: 79 SUB $9 0E91: 47 EE LDJ &L0EE7 0E93: 5B JLT 0E94: 82 LDP #$2 0E95: AD LDA $D 0E96: 80 LDP #$0 0E97: 78 SUB $8 0E98: E6 STA [i] 0E99: 08 LDA #$800 0E9A: A8 LDA $8 0E9B: 40 AE LDJ &L0EA0 0E9D: 5B JLT 0E9E: 00 CLR 0E9F: E8 SUB [i] L0EA0: 0EA0: 79 SUB $9 0EA1: 47 EE LDJ &L0EE7 0EA3: 5B JLT 0EA4: 81 LDP #$1 0EA5: A9 LDA $9 0EA6: 34 SUB #$4 0EA7: E6 STA [i] 0EA8: 00 CLR 0EA9: 23 ADD #$3 0EAA: C9 LDI $9 0EAB: E6 STA [i] L0EAC: 0EAC: 00 CLR 0EAD: 86 LDP #$6 0EAE: DF STA $F 0EAF: 2F ADD #$F 0EB0: 87 LDP #$7 0EB1: D1 STA $1 0EB2: 82 LDP #$2 0EB3: B4 CMP $4 0EB4: E9 AND [i] 0EB5: 86 LDP #$6 0EB6: 6B ADD $B 0EB7: E6 STA [i] 0EB8: 3A SUB #$A 0EB9: 40 CE LDJ &L0EC0 0EBB: 5D JNC 0EBC: E6 STA [i] 0EBD: 00 CLR 0EBE: 21 ADD #$1 0EBF: DF STA $F L0EC0: 0EC0: 82 LDP #$2 0EC1: A4 LDA $4 0EC2: EB LSR 0EC3: EB LSR 0EC4: EB LSR 0EC5: EB LSR 0EC6: 86 LDP #$6 0EC7: 6F ADD $F 0EC8: 6A ADD $A 0EC9: E6 STA [i] 0ECA: 00 CLR 0ECB: 2F ADD #$F 0ECC: E9 AND [i] 0ECD: 3A SUB #$A 0ECE: 4F DE LDJ &L0EDF 0ED0: 5D JNC 0ED1: EA LDA [i] 0ED2: 26 ADD #$6 0ED3: E6 STA [i] 0ED4: 00 CLR 0ED5: 20 F0 ADD #$F0 0ED7: E9 AND [i] 0ED8: 30 A0 SUB #$A0 0EDA: 5D JNC ; L0EDF 0EDB: EA LDA [i] 0EDC: 20 60 ADD #$60 0EDE: E6 STA [i] L0EDF: 0EDF: 82 LDP #$2 0EE0: A9 LDA $9 0EE1: 21 ADD #$1 0EE2: E6 STA [i] 0EE3: 33 SUB #$3 0EE4: 4C AE LDJ &L0EAC 0EE6: 5C JEQ L0EE7: 0EE7: 80 LDP #$0 0EE8: B0 CMP $0 0EE9: E1 LDJ [i] 0EEA: 58 JMP ; SUBROUTINE. RETURN ADDRESS STORED AT Ram[0x0f] 0EEB: 00 CLR 0EEC: 20 7F ADD #$7F 0EEE: BE CMP $E 0EEF: E9 AND [i] 0EF0: E6 STA [i] 0EF1: 0F LDA #$F00 0EF2: 20 6C ADD #$6C 0EF4: DA STA $A 0EF5: 00 CLR 0EF6: 20 20 ADD #$20 0EF8: BE CMP $E 0EF9: 45 1F LDJ &L0F15 0EFB: 5B JLT 0EFC: EC LSL 0EFD: BE CMP $E 0EFE: 41 2F LDJ &L0F21 0F00: 5B JLT 0F01: 20 20 ADD #$20 0F03: BE CMP $E 0F04: 45 3F LDJ &L0F35 0F06: 5B JLT 0F07: AA LDA $A 0F08: 6E ADD $E 0F09: 30 80 SUB #$80 0F0B: E2 XLT 0F0C: 5F NOP 0F0D: DB STA $B 0F0E: AA LDA $A 0F0F: 20 60 ADD #$60 0F11: 7E SUB $E 0F12: 43 4F LDJ &L0F43 0F14: 58 JMP L0F15: 0F15: AA LDA $A 0F16: 7E SUB $E 0F17: E2 XLT 0F18: 5F NOP 0F19: DB STA $B 0F1A: 0F LDA #$F00 0F1B: 20 4C ADD #$4C 0F1D: 6E ADD $E 0F1E: 4F 2F LDJ &L0F2F 0F20: 58 JMP L0F21: 0F21: AA LDA $A 0F22: 6E ADD $E 0F23: 30 40 SUB #$40 0F25: E2 XLT 0F26: 5F NOP 0F27: DB STA $B 0F28: 00 CLR 0F29: E8 SUB [i] 0F2A: E6 STA [i] 0F2B: AA LDA $A 0F2C: 20 20 ADD #$20 0F2E: 7E SUB $E L0F2F: 0F2F: E2 XLT 0F30: 5F NOP 0F31: DA STA $A 0F32: 49 4F LDJ &L0F49 0F34: 58 JMP L0F35: 0F35: AA LDA $A 0F36: 20 40 ADD #$40 0F38: 7E SUB $E 0F39: E2 XLT 0F3A: 5F NOP 0F3B: DB STA $B 0F3C: 00 CLR 0F3D: E8 SUB [i] 0F3E: E6 STA [i] 0F3F: AA LDA $A 0F40: 6E ADD $E 0F41: 30 60 SUB #$60 L0F43: 0F43: E2 XLT 0F44: 5F NOP 0F45: DA STA $A 0F46: 00 CLR 0F47: E8 SUB [i] 0F48: E6 STA [i] L0F49: 0F49: BF CMP $F 0F4A: E1 LDJ [i] 0F4B: 58 JMP ; ----------------------------------------------------------------- ; THIS IS MOST LIKELY DATA, BUT COULD JUST BE LEFT-OVER EPROM SPACE L0F4C: 00000f40: 00 0d 19 25 : ...% 00000f50: 32 3e 4a 56 62 6d 78 83 8e 98 a2 ab b4 bd c5 cd : 2>JVbmx......... 00000f60: d4 db e1 e7 ec f0 f4 f7 fa fc fe ff ff e2 ff e0 : ................ 00000f70: 07 3a cb 1c fe ff c2 7f 18 01 cd 03 cd ae 08 01 : .:.............. 00000f80: b5 1d cd 2b 15 01 47 1c cd 12 08 01 47 1c c5 1e : ...+..G.....G... 00000f90: 10 01 57 1c cd 06 09 01 eb 03 cd 2b 15 01 47 1c : ..W........+..G. 00000fa0: cd 55 08 c9 0e 07 21 1f 1c cd a9 1b 3e ff cd 80 : .U....!.....>... 00000fb0: 1b 2b eb 21 1b 00 20 90 00 40 00 08 21 10 92 10 : .+.!.. ..@..!... 00000fc0: 21 12 42 48 00 09 10 02 40 00 10 40 08 08 41 02 : !.BH....@..@..A. 00000fd0: 00 82 42 48 09 09 20 42 21 01 20 08 22 12 11 10 : ..BH.. B!. ."... 00000fe0: 10 88 42 48 49 24 24 92 42 49 24 42 49 20 84 24 : ..BHI$$.BI$BI .$ 00000ff0: 84 10 92 09 10 92 48 49 09 20 82 44 04 24 90 90 : ......HI. .D.$.. ; end of 1st rom bank ; ----------------------------------------------------------------- ; Second bank L1000: 1000: 5F NOP 1001: 5F NOP 1002: 40 7D LDJ &L1D70 1004: 58 JMP L1005: 1005: E5 WAI 1006: E5 WAI 1007: 00 CLR 1008: 96 OUT $6 1009: 81 LDP #$1 100A: D0 STA $0 100B: D1 STA $1 100C: F7 AWD [i] 100D: 57 USB 100E: 03 LDA #$300 100F: EE ASRD 1010: 02 LDA #$200 1011: F0 VIN 1012: 00 CLR 1013: 30 38 SUB #$38 L1015: 1015: 21 ADD #$1 1016: 45 10 LDJ &L1015 1018: 5D JNC 1019: 01 LDA #$100 101A: D2 STA $2 101B: 00 CLR 101C: DC STA $C 101D: DA STA $A 101E: 20 FF ADD #$FF 1020: DD STA $D 1021: DB STA $B 1022: 00 CLR 1023: 20 31 ADD #$31 1025: D6 STA $6 1026: 20 2E ADD #$2E 1028: D7 STA $7 1029: 00 CLR 102A: 20 05 ADD #$05 102C: 82 LDP #$2 102D: DF STA $F 102E: 48 21 LDJ &L1128 1030: 58 JMP ; ALMOST CERTAINLY DATA L1031: 00001030: 80 dc 80 80 80 80 78 78 80 08 78 80 04 80 80 : ......xx..x.... 00001040: 78 28 80 80 24 80 88 78 80 f8 78 80 fc 80 80 a0 : x(..$..x..x..... 00001050: 60 80 a8 58 80 a8 a8 80 58 a8 80 58 58 80 ff 23 : `..X....X..XX..# 00001060: 41 25 61 78 91 7a bc cd d0 01 1d de eb ff e2 ff : A%ax.z.......... 00001070: d6 30 : .0 ; End of data ; --------------------------------------------------------------- L1072: 1072: EA LDA [i] 1073: 00 CLR 1074: 96 OUT $6 1075: 48 21 LDJ &L1128 1077: 5C JEQ 1078: 21 ADD #$1 1079: 96 OUT $6 107A: 58 JMP ; L1128 107B: 18 INP $8 107C: 05 LDA #$500 107D: CD LDI $D 107E: 98 OUT $8 107F: 06 LDA #$600 L1080: 1080: 5F NOP 1081: 00 CLR 1082: 83 LDP #$3 1083: B0 CMP $0 1084: 44 90 LDJ &L1094 1086: 5C JEQ 1087: 00 CLR 1088: 20 3B ADD #$3B 108A: 81 LDP #$1 108B: D9 STA $9 108C: 00 CLR 108D: 20 94 ADD #$94 108F: 82 LDP #$2 1090: DF STA $F 1091: 47 B0 LDJ &L10B7 1093: 58 JMP L1094: 1094: 00 CLR 1095: 84 LDP #$4 1096: B0 CMP $0 1097: 47 A0 LDJ &L10A7 1099: 5C JEQ 109A: 00 CLR 109B: 20 4B ADD #$4B 109D: 81 LDP #$1 109E: D9 STA $9 109F: 00 CLR 10A0: 20 A7 ADD #$A7 10A2: 82 LDP #$2 10A3: DF STA $F 10A4: 47 B0 LDJ &L10B7 10A6: 58 JMP L10A7: 10A7: 00 CLR 10A8: 85 LDP #$5 10A9: B0 CMP $0 10AA: 4D 74 LDJ &L147D 10AC: 5C JEQ 10AD: 00 CLR 10AE: 20 5B ADD #$5B 10B0: 81 LDP #$1 10B1: D9 STA $9 10B2: 04 LDA #$400 10B3: 20 7D ADD #$7D 10B5: 82 LDP #$2 10B6: DF STA $F L10B7: 10B7: 81 LDP #$1 10B8: C9 LDI $9 10B9: EA LDA [i] 10BA: 82 LDP #$2 10BB: D6 STA $6 10BC: 81 LDP #$1 10BD: D3 STA $3 10BE: 04 LDA #$400 10BF: B3 CMP $3 10C0: 49 74 LDJ &L1479 10C2: 5D JNC 10C3: A9 LDA $9 10C4: 21 ADD #$1 10C5: E6 STA [i] 10C6: C9 LDI $9 10C7: EA LDA [i] 10C8: 82 LDP #$2 10C9: D7 STA $7 10CA: 57 USB 10CB: EA LDA [i] 10CC: 03 LDA #$300 10CD: B7 CMP $7 10CE: 5D JNC ; L1479 10CF: 81 LDP #$1 10D0: A3 LDA $3 10D1: 43 D0 LDJ &L10D3 L10D3: 10D3: 5A JDR 10D4: F0 VIN 10D5: A9 LDA $9 10D6: 3C SUB #$C 10D7: E6 STA [i] 10D8: C9 LDI $9 10D9: EA LDA [i] 10DA: D7 STA $7 10DB: 22 ADD #$2 10DC: D6 STA $6 10DD: 31 SUB #$1 10DE: E2 XLT 10DF: 5F NOP 10E0: DF STA $F 10E1: 57 USB 10E2: EA LDA [i] 10E3: A7 LDA $7 10E4: E2 XLT 10E5: 5F NOP 10E6: E6 STA [i] 10E7: 00 CLR 10E8: EE ASRD 10E9: EE ASRD 10EA: EE ASRD 10EB: EE ASRD 10EC: E7 ADD [i] 10ED: E6 STA [i] 10EE: A9 LDA $9 10EF: 21 ADD #$1 10F0: E6 STA [i] 10F1: C9 LDI $9 10F2: EA LDA [i] 10F3: D0 STA $0 10F4: A9 LDA $9 10F5: 21 ADD #$1 10F6: E6 STA [i] 10F7: C9 LDI $9 10F8: EA LDA [i] 10F9: D1 STA $1 10FA: A9 LDA $9 10FB: 21 ADD #$1 10FC: E6 STA [i] 10FD: C9 LDI $9 10FE: EA LDA [i] 10FF: D2 STA $2 1100: A9 LDA $9 1101: 21 ADD #$1 1102: E6 STA [i] 1103: C9 LDI $9 1104: EA LDA [i] 1105: DE STA $E 1106: 01 LDA #$100 1107: 20 0D ADD #$0D 1109: DF STA $F 110A: 45 75 LDJ &L1575 110C: 58 JMP L110D: 110D: AA LDA $A 110E: DC STA $C 110F: AB LDA $B 1110: DD STA $D 1111: A9 LDA $9 1112: 21 ADD #$1 1113: E6 STA [i] 1114: C9 LDI $9 1115: EA LDA [i] 1116: DE STA $E 1117: 01 LDA #$100 1118: 20 1E ADD #$1E 111A: DF STA $F 111B: 45 75 LDJ &L1575 111D: 58 JMP L111E: 111E: A9 LDA $9 111F: 22 ADD #$2 1120: E6 STA [i] 1121: C9 LDI $9 1122: EA LDA [i] 1123: D9 STA $9 1124: EB LSR 1125: 42 70 LDJ &L1072 1127: 58 JMP L1128: 1128: 00 CLR 1129: 20 FF ADD #$FF 112B: 81 LDP #$1 112C: D8 STA $8 112D: A6 LDA $6 112E: 33 SUB #$3 112F: E6 STA [i] 1130: 00 CLR 1131: 32 SUB #$2 1132: 80 LDP #$0 1133: D3 STA $3 L1134: 1134: 80 LDP #$0 1135: A3 LDA $3 1136: EB LSR 1137: 4C 93 LDJ &L139C 1139: 5E JA0 113A: 81 LDP #$1 113B: A6 LDA $6 113C: 23 ADD #$3 113D: E6 STA [i] 113E: E2 XLT 113F: 5F NOP 1140: B8 CMP $8 1141: 41 74 LDJ &L1471 1143: 5C JEQ 1144: 30 80 SUB #$80 1146: EC LSL 1147: EC LSL 1148: D3 STA $3 1149: A6 LDA $6 114A: 21 ADD #$1 114B: E2 XLT 114C: 5F NOP 114D: 30 80 SUB #$80 114F: EC LSL 1150: EC LSL 1151: D4 STA $4 1152: A6 LDA $6 1153: 22 ADD #$2 1154: E2 XLT 1155: 5F NOP 1156: 30 80 SUB #$80 1158: EC LSL 1159: EC LSL 115A: D5 STA $5 115B: 80 LDP #$0 115C: A3 LDA $3 115D: 22 ADD #$2 115E: E6 STA [i] 115F: 81 LDP #$1 1160: A3 LDA $3 1161: ED ASR 1162: E6 STA [i] 1163: A4 LDA $4 1164: ED ASR 1165: E6 STA [i] 1166: AC LDA $C 1167: 6D ADD $D 1168: DF STA $F 1169: 57 USB 116A: 00 CLR 116B: 08 LDA #$800 116C: AF LDA $F 116D: 42 71 LDJ &L1172 116F: 5B JLT 1170: 00 CLR 1171: E8 SUB [i] L1172: 1172: B3 CMP $3 1173: E3 MUL [i] 1174: E3 MUL [i] 1175: E3 MUL [i] 1176: E3 MUL [i] 1177: E3 MUL [i] 1178: E3 MUL [i] 1179: E3 MUL [i] 117A: E3 MUL [i] 117B: E3 MUL [i] 117C: 08 LDA #$800 117D: BF CMP $F 117E: 57 USB 117F: DF STA $F 1180: 46 81 LDJ &L1186 1182: 5B JLT 1183: 00 CLR 1184: 7F SUB $F 1185: E6 STA [i] L1186: 1186: A4 LDA $4 1187: 63 ADD $3 1188: E6 STA [i] 1189: 74 SUB $4 118A: E8 SUB [i] 118B: E6 STA [i] 118C: 57 USB 118D: 00 CLR 118E: 08 LDA #$800 118F: AC LDA $C 1190: 45 91 LDJ &L1195 1192: 5B JLT 1193: 00 CLR 1194: E8 SUB [i] L1195: 1195: B3 CMP $3 1196: E3 MUL [i] 1197: E3 MUL [i] 1198: E3 MUL [i] 1199: E3 MUL [i] 119A: E3 MUL [i] 119B: E3 MUL [i] 119C: E3 MUL [i] 119D: E3 MUL [i] 119E: E3 MUL [i] 119F: 08 LDA #$800 11A0: BC CMP $C 11A1: 57 USB 11A2: D3 STA $3 11A3: 49 A1 LDJ &L11A9 11A5: 5B JLT 11A6: 00 CLR 11A7: 73 SUB $3 11A8: E6 STA [i] L11A9: 11A9: 57 USB 11AA: 00 CLR 11AB: 08 LDA #$800 11AC: AD LDA $D 11AD: 42 B1 LDJ &L11B2 11AF: 5B JLT 11B0: 00 CLR 11B1: E8 SUB [i] L11B2: 11B2: B4 CMP $4 11B3: E3 MUL [i] 11B4: E3 MUL [i] 11B5: E3 MUL [i] 11B6: E3 MUL [i] 11B7: E3 MUL [i] 11B8: E3 MUL [i] 11B9: E3 MUL [i] 11BA: E3 MUL [i] 11BB: E3 MUL [i] 11BC: 08 LDA #$800 11BD: BD CMP $D 11BE: 57 USB 11BF: D4 STA $4 11C0: 46 C1 LDJ &L11C6 11C2: 5B JLT 11C3: 00 CLR 11C4: 74 SUB $4 11C5: E6 STA [i] L11C6: 11C6: AF LDA $F 11C7: 73 SUB $3 11C8: EC LSL 11C9: E6 STA [i] 11CA: AF LDA $F 11CB: 74 SUB $4 11CC: EC LSL 11CD: E6 STA [i] 11CE: A4 LDA $4 11CF: ED ASR 11D0: E6 STA [i] 11D1: A5 LDA $5 11D2: ED ASR 11D3: E6 STA [i] 11D4: AA LDA $A 11D5: 6B ADD $B 11D6: DF STA $F 11D7: 57 USB 11D8: 00 CLR 11D9: 08 LDA #$800 11DA: AF LDA $F 11DB: 40 E1 LDJ &L11E0 11DD: 5B JLT 11DE: 00 CLR 11DF: E8 SUB [i] L11E0: 11E0: B4 CMP $4 11E1: E3 MUL [i] 11E2: E3 MUL [i] 11E3: E3 MUL [i] 11E4: E3 MUL [i] 11E5: E3 MUL [i] 11E6: E3 MUL [i] 11E7: E3 MUL [i] 11E8: E3 MUL [i] 11E9: E3 MUL [i] 11EA: 08 LDA #$800 11EB: BF CMP $F 11EC: 57 USB 11ED: DF STA $F 11EE: 44 F1 LDJ &L11F4 11F0: 5B JLT 11F1: 00 CLR 11F2: 7F SUB $F 11F3: E6 STA [i] L11F4: 11F4: A5 LDA $5 11F5: 64 ADD $4 11F6: E6 STA [i] 11F7: 75 SUB $5 11F8: E8 SUB [i] 11F9: E6 STA [i] 11FA: 57 USB 11FB: 00 CLR 11FC: 08 LDA #$800 11FD: AA LDA $A 11FE: 43 02 LDJ &L1203 1200: 5B JLT 1201: 00 CLR 1202: E8 SUB [i] L1203: 1203: B4 CMP $4 1204: E3 MUL [i] 1205: E3 MUL [i] 1206: E3 MUL [i] 1207: E3 MUL [i] 1208: E3 MUL [i] 1209: E3 MUL [i] 120A: E3 MUL [i] 120B: E3 MUL [i] 120C: E3 MUL [i] 120D: 08 LDA #$800 120E: BA CMP $A 120F: 57 USB 1210: D4 STA $4 1211: 47 12 LDJ &L1217 1213: 5B JLT 1214: 00 CLR 1215: 74 SUB $4 1216: E6 STA [i] L1217: 1217: 57 USB 1218: 00 CLR 1219: 08 LDA #$800 121A: AB LDA $B 121B: 40 22 LDJ &L1220 121D: 5B JLT 121E: 00 CLR 121F: E8 SUB [i] L1220: 1220: B5 CMP $5 1221: E3 MUL [i] 1222: E3 MUL [i] 1223: E3 MUL [i] 1224: E3 MUL [i] 1225: E3 MUL [i] 1226: E3 MUL [i] 1227: E3 MUL [i] 1228: E3 MUL [i] 1229: E3 MUL [i] 122A: 08 LDA #$800 122B: BB CMP $B 122C: 57 USB 122D: D5 STA $5 122E: 44 32 LDJ &L1234 1230: 5B JLT 1231: 00 CLR 1232: 75 SUB $5 1233: E6 STA [i] L1234: 1234: AF LDA $F 1235: 74 SUB $4 1236: EC LSL 1237: E6 STA [i] 1238: AF LDA $F 1239: 75 SUB $5 123A: EC LSL 123B: E6 STA [i] 123C: A3 LDA $3 123D: ED ASR 123E: E6 STA [i] 123F: A5 LDA $5 1240: ED ASR 1241: E6 STA [i] 1242: AC LDA $C 1243: 6D ADD $D 1244: DF STA $F 1245: 57 USB 1246: 00 CLR 1247: 08 LDA #$800 1248: AF LDA $F 1249: 4E 42 LDJ &L124E 124B: 5B JLT 124C: 00 CLR 124D: E8 SUB [i] L124E: 124E: B3 CMP $3 124F: E3 MUL [i] 1250: E3 MUL [i] 1251: E3 MUL [i] 1252: E3 MUL [i] 1253: E3 MUL [i] 1254: E3 MUL [i] 1255: E3 MUL [i] 1256: E3 MUL [i] 1257: E3 MUL [i] 1258: 08 LDA #$800 1259: BF CMP $F 125A: 57 USB 125B: DF STA $F 125C: 42 62 LDJ &L1262 125E: 5B JLT 125F: 00 CLR 1260: 7F SUB $F 1261: E6 STA [i] L1262: 1262: A5 LDA $5 1263: 63 ADD $3 1264: E6 STA [i] 1265: 75 SUB $5 1266: E8 SUB [i] 1267: E6 STA [i] 1268: 57 USB 1269: 00 CLR 126A: 08 LDA #$800 126B: AC LDA $C 126C: 41 72 LDJ &L1271 126E: 5B JLT 126F: 00 CLR 1270: E8 SUB [i] L1271: 1271: B3 CMP $3 1272: E3 MUL [i] 1273: E3 MUL [i] 1274: E3 MUL [i] 1275: E3 MUL [i] 1276: E3 MUL [i] 1277: E3 MUL [i] 1278: E3 MUL [i] 1279: E3 MUL [i] 127A: E3 MUL [i] 127B: 08 LDA #$800 127C: BC CMP $C 127D: 57 USB 127E: D3 STA $3 127F: 45 82 LDJ &L1285 1281: 5B JLT 1282: 00 CLR 1283: 73 SUB $3 1284: E6 STA [i] L1285: 1285: 57 USB 1286: 00 CLR 1287: 08 LDA #$800 1288: AD LDA $D 1289: 4E 82 LDJ &L128E 128B: 5B JLT 128C: 00 CLR 128D: E8 SUB [i] L128E: 128E: B5 CMP $5 128F: E3 MUL [i] 1290: E3 MUL [i] 1291: E3 MUL [i] 1292: E3 MUL [i] 1293: E3 MUL [i] 1294: E3 MUL [i] 1295: E3 MUL [i] 1296: E3 MUL [i] 1297: E3 MUL [i] 1298: 08 LDA #$800 1299: BD CMP $D 129A: 57 USB 129B: D5 STA $5 129C: 42 A2 LDJ &L12A2 129E: 5B JLT 129F: 00 CLR 12A0: 75 SUB $5 12A1: E6 STA [i] L12A2: 12A2: AF LDA $F 12A3: 73 SUB $3 12A4: EC LSL 12A5: E6 STA [i] 12A6: AF LDA $F 12A7: 75 SUB $5 12A8: EC LSL 12A9: E6 STA [i] 12AA: A3 LDA $3 12AB: ED ASR 12AC: ED ASR 12AD: 60 ADD $0 12AE: 80 LDP #$0 12AF: D5 STA $5 12B0: 81 LDP #$1 12B1: A4 LDA $4 12B2: ED ASR 12B3: ED ASR 12B4: 61 ADD $1 12B5: 80 LDP #$0 12B6: D6 STA $6 12B7: 81 LDP #$1 12B8: A5 LDA $5 12B9: ED ASR 12BA: ED ASR 12BB: 62 ADD $2 12BC: EB LSR 12BD: 80 LDP #$0 12BE: D9 STA $9 12BF: 02 LDA #$200 12C0: DD STA $D 12C1: 00 CLR 12C2: D4 STA $4 L12C3: 12C3: AD LDA $D 12C4: B9 CMP $9 12C5: 43 33 LDJ &L1333 12C7: 5B JLT 12C8: 57 USB 12C9: 00 CLR 12CA: EF LSLD 12CB: 57 USB 12CC: 21 ADD #$1 12CD: E8 SUB [i] 12CE: 44 D2 LDJ &L12D4 12D0: 5B JLT 12D1: E7 ADD [i] 12D2: 57 USB 12D3: 31 SUB #$1 L12D4: 12D4: EF LSLD 12D5: 57 USB 12D6: 21 ADD #$1 12D7: E8 SUB [i] 12D8: 4E D2 LDJ &L12DE 12DA: 5B JLT 12DB: E7 ADD [i] 12DC: 57 USB 12DD: 31 SUB #$1 L12DE: 12DE: EF LSLD 12DF: 57 USB 12E0: 21 ADD #$1 12E1: E8 SUB [i] 12E2: 48 E2 LDJ &L12E8 12E4: 5B JLT 12E5: E7 ADD [i] 12E6: 57 USB 12E7: 31 SUB #$1 L12E8: 12E8: EF LSLD 12E9: 57 USB 12EA: 21 ADD #$1 12EB: E8 SUB [i] 12EC: 42 F2 LDJ &L12F2 12EE: 5B JLT 12EF: E7 ADD [i] 12F0: 57 USB 12F1: 31 SUB #$1 L12F2: 12F2: EF LSLD 12F3: 57 USB 12F4: 21 ADD #$1 12F5: E8 SUB [i] 12F6: 4C F2 LDJ &L12FC 12F8: 5B JLT 12F9: E7 ADD [i] 12FA: 57 USB 12FB: 31 SUB #$1 L12FC: 12FC: EF LSLD 12FD: 57 USB 12FE: 21 ADD #$1 12FF: E8 SUB [i] 1300: 46 03 LDJ &L1306 1302: 5B JLT 1303: E7 ADD [i] 1304: 57 USB 1305: 31 SUB #$1 L1306: 1306: EF LSLD 1307: 57 USB 1308: 21 ADD #$1 1309: E8 SUB [i] 130A: 40 13 LDJ &L1310 130C: 5B JLT 130D: E7 ADD [i] 130E: 57 USB 130F: 31 SUB #$1 L1310: 1310: EF LSLD 1311: 57 USB 1312: 21 ADD #$1 1313: E8 SUB [i] 1314: 4A 13 LDJ &L131A 1316: 5B JLT 1317: E7 ADD [i] 1318: 57 USB 1319: 31 SUB #$1 L131A: 131A: EF LSLD 131B: 57 USB 131C: 21 ADD #$1 131D: E8 SUB [i] 131E: 44 23 LDJ &L1324 1320: 5B JLT 1321: E7 ADD [i] 1322: 57 USB 1323: 31 SUB #$1 L1324: 1324: EF LSLD 1325: 57 USB 1326: 21 ADD #$1 1327: E8 SUB [i] 1328: 4E 23 LDJ &L132E 132A: 5B JLT 132B: E7 ADD [i] 132C: 57 USB 132D: 31 SUB #$1 L132E: 132E: 57 USB 132F: D9 STA $9 1330: 4B 33 LDJ &L133B 1332: 58 JMP L1333: 1333: E8 SUB [i] 1334: DD STA $D 1335: A4 LDA $4 1336: 21 ADD #$1 1337: E6 STA [i] 1338: 43 C2 LDJ &L12C3 133A: 58 JMP L133B: 133B: 57 USB 133C: 00 CLR 133D: 08 LDA #$800 133E: A5 LDA $5 133F: 44 43 LDJ &L1344 1341: 5B JLT 1342: 00 CLR 1343: E8 SUB [i] L1344: 1344: B9 CMP $9 1345: E3 MUL [i] 1346: E3 MUL [i] 1347: E3 MUL [i] 1348: E3 MUL [i] 1349: E3 MUL [i] 134A: E3 MUL [i] 134B: E3 MUL [i] 134C: E3 MUL [i] 134D: E3 MUL [i] 134E: E3 MUL [i] 134F: E3 MUL [i] 1350: 57 USB 1351: D7 STA $7 1352: 08 LDA #$800 1353: B5 CMP $5 1354: 4A 53 LDJ &L135A 1356: 5B JLT 1357: 00 CLR 1358: 77 SUB $7 1359: E6 STA [i] L135A: 135A: 57 USB 135B: 00 CLR 135C: 08 LDA #$800 135D: A6 LDA $6 135E: 43 63 LDJ &L1363 1360: 5B JLT 1361: 00 CLR 1362: E8 SUB [i] L1363: 1363: B9 CMP $9 1364: E3 MUL [i] 1365: E3 MUL [i] 1366: E3 MUL [i] 1367: E3 MUL [i] 1368: E3 MUL [i] 1369: E3 MUL [i] 136A: E3 MUL [i] 136B: E3 MUL [i] 136C: E3 MUL [i] 136D: E3 MUL [i] 136E: E3 MUL [i] 136F: 57 USB 1370: D8 STA $8 1371: 08 LDA #$800 1372: B6 CMP $6 1373: 49 73 LDJ &L1379 1375: 5B JLT 1376: 00 CLR 1377: 78 SUB $8 1378: E6 STA [i] L1379: 1379: 57 USB 137A: 00 CLR 137B: 57 USB 137C: 74 SUB $4 137D: 4B 83 LDJ &L138B 137F: 5C JEQ 1380: 42 83 LDJ &L1382 L1382: 1382: A5 LDA $5 1383: 67 ADD $7 1384: E6 STA [i] 1385: A6 LDA $6 1386: 68 ADD $8 1387: E6 STA [i] 1388: 57 USB 1389: 21 ADD #$1 138A: 5D JNC ; L1382 L138B: 138B: A3 LDA $3 138C: 20 E0 ADD #$E0 138E: DE STA $E 138F: 21 ADD #$1 1390: DF STA $F 1391: 02 LDA #$200 1392: 67 ADD $7 1393: E6 STA [i] 1394: CE LDI $E 1395: E6 STA [i] 1396: 03 LDA #$300 1397: EB LSR 1398: 68 ADD $8 1399: E6 STA [i] 139A: CF LDI $F 139B: E6 STA [i] L139C: 139C: 81 LDP #$1 139D: A7 LDA $7 139E: E2 XLT 139F: 5F NOP 13A0: B8 CMP $8 13A1: 49 74 LDJ &L1479 13A3: 5C JEQ 13A4: 44 31 LDJ &L1134 13A6: 5A JDR 13A7: 80 LDP #$0 13A8: DB STA $B 13A9: EB LSR 13AA: EB LSR 13AB: EB LSR 13AC: EB LSR 13AD: EC LSL 13AE: B3 CMP $3 13AF: 5B JLT ; L1134? (or L1479?) 13B0: DA STA $A 13B1: 00 CLR 13B2: 2F ADD #$F 13B3: BB CMP $B 13B4: E9 AND [i] 13B5: EC LSL 13B6: E6 STA [i] 13B7: B3 CMP $3 13B8: 5B JLT ; L1134 ... 13B9: AA LDA $A 13BA: 20 E0 ADD #$E0 13BC: DE STA $E 13BD: 21 ADD #$1 13BE: DF STA $F 13BF: CF LDI $F 13C0: EA LDA [i] 13C1: D6 STA $6 13C2: 03 LDA #$300 13C3: B6 CMP $6 13C4: 44 54 LDJ &L1454 13C6: 5D JNC 13C7: CE LDI $E 13C8: EA LDA [i] 13C9: D5 STA $5 13CA: 04 LDA #$400 13CB: B5 CMP $5 13CC: 5D JNC ; L1454 13CD: AB LDA $B 13CE: 20 E0 ADD #$E0 13D0: DE STA $E 13D1: 21 ADD #$1 13D2: DF STA $F 13D3: CF LDI $F 13D4: EA LDA [i] 13D5: D8 STA $8 13D6: 03 LDA #$300 13D7: B8 CMP $8 13D8: 5D JNC ; L1454 13D9: CE LDI $E 13DA: EA LDA [i] 13DB: D7 STA $7 13DC: 04 LDA #$400 13DD: B7 CMP $7 13DE: 5D JNC ; L1454 13DF: A8 LDA $8 13E0: 76 SUB $6 13E1: D8 STA $8 13E2: A7 LDA $7 13E3: 75 SUB $5 13E4: D7 STA $7 13E5: 00 CLR 13E6: 22 ADD #$2 13E7: 81 LDP #$1 13E8: B9 CMP $9 13E9: 4E 14 LDJ &L141E 13EB: 5B JLT 13EC: 80 LDP #$0 13ED: A5 LDA $5 13EE: 82 LDP #$2 13EF: 76 SUB $6 13F0: EC LSL 13F1: EC LSL 13F2: 80 LDP #$0 13F3: DC STA $C 13F4: 57 USB 13F5: 00 CLR 13F6: 81 LDP #$1 13F7: A9 LDA $9 13F8: 80 LDP #$0 13F9: BC CMP $C 13FA: E3 MUL [i] 13FB: E3 MUL [i] 13FC: E3 MUL [i] 13FD: E3 MUL [i] 13FE: E3 MUL [i] 13FF: 82 LDP #$2 1400: 57 USB 1401: 66 ADD $6 1402: 80 LDP #$0 1403: 57 USB 1404: D5 STA $5 1405: 80 LDP #$0 1406: A6 LDA $6 1407: 82 LDP #$2 1408: 77 SUB $7 1409: EC LSL 140A: EC LSL 140B: 80 LDP #$0 140C: DC STA $C 140D: 57 USB 140E: 00 CLR 140F: 81 LDP #$1 1410: A9 LDA $9 1411: 80 LDP #$0 1412: BC CMP $C 1413: E3 MUL [i] 1414: E3 MUL [i] 1415: E3 MUL [i] 1416: E3 MUL [i] 1417: E3 MUL [i] 1418: 82 LDP #$2 1419: 57 USB 141A: 67 ADD $7 141B: 80 LDP #$0 141C: 57 USB 141D: D6 STA $6 L141E: 141E: 80 LDP #$0 141F: A5 LDA $5 1420: 57 USB 1421: A6 LDA $6 L1422: 1422: 42 24 LDJ &L1422 1424: 5A JDR 1425: F0 VIN 1426: 08 LDA #$800 1427: A7 LDA $7 1428: 4D 24 LDJ &L142D 142A: 5B JLT 142B: 00 CLR 142C: E8 SUB [i] L142D: 142D: DC STA $C 142E: DE STA $E 142F: 08 LDA #$800 1430: A8 LDA $8 1431: 46 34 LDJ &L1436 1433: 5B JLT 1434: 00 CLR 1435: E8 SUB [i] L1436: 1436: DF STA $F 1437: 6E ADD $E 1438: E6 STA [i] 1439: 33 SUB #$3 143A: 44 54 LDJ &L1454 143C: 5D JNC 143D: 00 CLR 143E: 30 08 SUB #$08 L1440: 1440: 21 ADD #$1 1441: 40 44 LDJ &L1440 1443: 5D JNC ; timing loop? 1444: 02 LDA #$200 1445: 37 SUB #$7 1446: BF CMP $F 1447: 4B 54 LDJ &L145B 1449: 5D JNC 144A: BC CMP $C 144B: 5D JNC ; L145B 144C: A7 LDA $7 144D: 57 USB 144E: A8 LDA $8 144F: E4 LLT 1450: 65 ADD $5 1451: 57 USB 1452: 66 ADD $6 1453: E0 VDR L1454: 1454: 81 LDP #$1 1455: A7 LDA $7 1456: 21 ADD #$1 1457: E6 STA [i] 1458: 4C 93 LDJ &L139C 145A: 58 JMP L145B: 145B: 57 USB 145C: A8 LDA $8 145D: EE ASRD 145E: 57 USB 145F: E6 STA [i] 1460: A7 LDA $7 1461: ED ASR 1462: E6 STA [i] 1463: E4 LLT 1464: 65 ADD $5 1465: 57 USB 1466: 66 ADD $6 1467: E0 VDR 1468: A8 LDA $8 1469: 66 ADD $6 146A: E6 STA [i] 146B: A7 LDA $7 146C: 65 ADD $5 146D: E6 STA [i] 146E: 4E 14 LDJ &L141E 1470: 58 JMP L1471: 1471: 80 LDP #$0 1472: A3 LDA $3 1473: 21 ADD #$1 1474: E6 STA [i] 1475: 81 LDP #$1 1476: 4C 93 LDJ &L139C 1478: 58 JMP L1479: 1479: 82 LDP #$2 147A: BF CMP $F 147B: E1 LDJ [i] 147C: 58 JMP ; RETURN FROM SUBROUTINE goto Ram[0x2f] L147D: 147D: 80 LDP #$0 147E: B0 CMP $0 147F: E1 LDJ [i] 1480: 58 JMP ; RETURN FROM SUBROUTINE goto Ram[0x00] ; ------------------------------------------------------------------------- ; PROBABLY DATA L1481: 00001480: b1 04 6c 82 94 6c 82 c6 62 8c c6 62 8c 94 62 : ..l..l..b..b..b 00001490: 74 58 80 74 3a 9e 74 58 94 82 94 9e 8c 94 9e 8c : tX.t:.tX........ 000014a0: c6 94 82 c6 80 82 a8 6c 82 6c 80 82 58 94 82 6c : .......l.l..X..l 000014b0: ff 01 12 23 30 04 45 56 67 78 89 9a a7 7b b0 0c : ...#0.EVgx...{.. 000014c0: c4 cd d5 de e6 e7 ff ee 04 80 80 62 3a 64 c6 6c : ...........b:d.l 000014d0: 7c c6 94 7c c6 c6 64 c6 6c 80 4e 80 80 3a 94 80 : |..|..d.l.N..:.. 000014e0: 4e 80 94 4e 80 6c 4e 76 86 c6 8a 86 c6 ff 01 12 : N..N.lNv........ 000014f0: 23 34 40 05 56 67 70 08 86 69 90 02 2a ab b3 30 : #4@.Vgp..i..*..0 00001500: 0a b0 ff 27 05 80 78 62 9e 78 80 80 78 9e 62 78 : ...'..xb.x..x.bx 00001510: 80 80 8a 80 80 8a c6 80 9e c6 9e 6e c6 b2 64 c6 : ...........n..d. 00001520: 62 6e c6 4e 64 c6 ff 01 12 23 30 04 42 25 56 62 : bn.Nd....#0.B%Vb 00001530: 27 78 82 29 9a a2 34 41 ff 5d 05 80 80 80 44 86 : 'x.)..4A.]....D. 00001540: be 6c 76 be 94 76 be bc 86 be 80 6c 6c 6c 80 58 : .lv..v.....lll.X 00001550: 70 86 62 94 80 58 90 86 62 80 80 44 ff 01 12 23 : p.b..X..b..D...# 00001560: 34 40 02 25 53 30 06 67 70 05 56 68 80 09 98 85 : 4@.%S0.gp.Vh.... 00001570: 5a a6 79 8a ff : Z.y.. ; end of data ; ------------------------------------------------------------------------- L1575: 1575: 00 CLR 1576: 20 7F ADD #$7F 1578: BE CMP $E 1579: E9 AND [i] 157A: E6 STA [i] 157B: 05 LDA #$500 157C: 20 F6 ADD #$F6 ; may be &L15F6 in data below? 157E: DA STA $A 157F: 00 CLR 1580: 20 20 ADD #$20 1582: BE CMP $E 1583: 4F 95 LDJ &L159F 1585: 5B JLT 1586: EC LSL 1587: BE CMP $E 1588: 4B A5 LDJ &L15AB 158A: 5B JLT 158B: 20 20 ADD #$20 158D: BE CMP $E 158E: 4F B5 LDJ &L15BF 1590: 5B JLT 1591: AA LDA $A 1592: 6E ADD $E 1593: 30 80 SUB #$80 1595: E2 XLT 1596: 5F NOP 1597: DB STA $B 1598: AA LDA $A 1599: 20 60 ADD #$60 159B: 7E SUB $E 159C: 4D C5 LDJ &L15CD 159E: 58 JMP L159F: 159F: AA LDA $A 15A0: 7E SUB $E 15A1: E2 XLT 15A2: 5F NOP 15A3: DB STA $B 15A4: 05 LDA #$500 15A5: 20 D6 ADD #$D6 15A7: 6E ADD $E ; appears to index rom? 15A8: 49 B5 LDJ &L15B9 15AA: 58 JMP L15AB: 15AB: AA LDA $A 15AC: 6E ADD $E 15AD: 30 40 SUB #$40 15AF: E2 XLT 15B0: 5F NOP 15B1: DB STA $B 15B2: 00 CLR 15B3: E8 SUB [i] 15B4: E6 STA [i] 15B5: AA LDA $A 15B6: 20 20 ADD #$20 15B8: 7E SUB $E L15B9: 15B9: E2 XLT 15BA: 5F NOP 15BB: DA STA $A 15BC: 43 D5 LDJ &L15D3 15BE: 58 JMP L15BF: 15BF: AA LDA $A 15C0: 20 40 ADD #$40 15C2: 7E SUB $E 15C3: E2 XLT 15C4: 5F NOP 15C5: DB STA $B 15C6: 00 CLR 15C7: E8 SUB [i] 15C8: E6 STA [i] 15C9: AA LDA $A 15CA: 6E ADD $E 15CB: 30 60 SUB #$60 L15CD: 15CD: E2 XLT 15CE: 5F NOP 15CF: DA STA $A 15D0: 00 CLR 15D1: E8 SUB [i] 15D2: E6 STA [i] 15D3: BF CMP $F 15D4: E1 LDJ [i] 15D5: 58 JMP ; RETURN FROM SUBROUTINE goto Ram[0x1f] ; --------------------------------------------------------------------------- ; DATA BLOCK (or messed up code, or empty gap in eprom before ORG $1600) 000015d0: 00 0d 19 25 32 3e 4a 56 62 6d : .....X...%2>JVbm 000015e0: 78 83 8e 98 a2 ab b4 bd c5 cd d4 db e1 e7 ec f0 : x............... 000015f0: f4 f7 fa fc fe ff ff e2 ff 20 53 42 42 20 41 4e : ......... SBB AN ; end of data block ; ---------------------------------------------------------------------- 1600: 5F NOP 1601: 57 USB 1602: 02 LDA #$200 1603: 57 USB 1604: 20 76 ADD #$76 1606: 00 CLR 1607: 20 A0 ADD #$A0 1609: 4B 06 LDJ &L160B L160B: 160B: 5A JDR 160C: F0 VIN 160D: 00 CLR 160E: 30 38 SUB #$38 L1610: 1610: 21 ADD #$1 1611: 40 16 LDJ &L1610 1613: 5D JNC 1614: 00 CLR 1615: 86 LDP #$6 1616: B9 CMP $9 1617: 4A 36 LDJ &L163A 1619: 5D JNC 161A: 96 OUT $6 161B: 00 CLR 161C: 20 96 ADD #$96 161E: 80 LDP #$0 161F: D3 STA $3 1620: 02 LDA #$200 1621: 20 8A ADD #$8A 1623: D4 STA $4 1624: 00 CLR 1625: 20 11 ADD #$11 1627: DE STA $E 1628: 00 CLR 1629: DF STA $F 162A: 06 LDA #$600 162B: 20 33 ADD #$33 ; Index the "SCORE" string??? 162D: D5 STA $5 162E: 20 07 ADD #$07 1630: D0 STA $0 1631: 43 FA LDJ &L1AF3 1633: 58 JMP ; ---------------------------------------------------------------------- ; DATA L1634: ; 00001630: 53 43 4f 52 45 ff : SCORE. EQUS "SCORE" EQUB $FF ; ---------------------------------------------------------------------- L163A: 163A: 00 CLR 163B: 87 LDP #$7 163C: A1 LDA $1 163D: 44 46 LDJ &L1644 163F: 5C JEQ 1640: 31 SUB #$1 1641: E6 STA [i] 1642: 00 CLR 1643: 21 ADD #$1 L1644: 1644: 96 OUT $6 1645: 00 CLR 1646: 20 10 ADD #$10 1648: 93 OUT $3 1649: EB LSR 164A: 90 OUT $0 164B: EB LSR 164C: 91 OUT $1 164D: EB LSR 164E: 92 OUT $2 164F: EB LSR 1650: 94 OUT $4 1651: EB LSR 1652: 94 OUT $4 1653: 00 CLR 1654: 20 A0 ADD #$A0 1656: 80 LDP #$0 1657: D3 STA $3 1658: 02 LDA #$200 1659: 20 58 ADD #$58 165B: D4 STA $4 165C: 00 CLR 165D: 20 07 ADD #$07 165F: DE STA $E 1660: 00 CLR 1661: 23 ADD #$3 1662: DF STA $F 1663: 20 01 ADD #$01 1665: D2 STA $2 1666: 00 CLR 1667: 20 6A ADD #$6A 1669: D5 STA $5 166A: 06 LDA #$600 166B: 20 71 ADD #$71 166D: D0 STA $0 ; Save &L1671 in Ram[0] 166E: 43 FA LDJ &L1AF3 1670: 58 JMP ; JSR L1AF3 L1671: ; return from subroutine to here 1671: 00 CLR 1672: 20 B8 ADD #$B8 1674: 80 LDP #$0 1675: D3 STA $3 1676: 02 LDA #$200 1677: 20 58 ADD #$58 1679: D4 STA $4 167A: 00 CLR 167B: 20 07 ADD #$07 167D: DE STA $E 167E: 00 CLR 167F: 23 ADD #$3 1680: DF STA $F 1681: 20 01 ADD #$01 1683: D2 STA $2 1684: 00 CLR 1685: 20 6B ADD #$6B 1687: D5 STA $5 1688: 06 LDA #$600 1689: 20 8F ADD #$8F 168B: D0 STA $0 ; save return address (L168F) in Ram[0] 168C: 43 FA LDJ &L1AF3 168E: 58 JMP ; JS L1AF3 L168F: ; return from subroutine 168F: 00 CLR 1690: 82 LDP #$2 1691: A0 LDA $0 1692: 4A 96 LDJ &L169A 1694: 5C JEQ 1695: 31 SUB #$1 1696: E6 STA [i] 1697: 44 07 LDJ &L1704 1699: 58 JMP L169A: 169A: A5 LDA $5 169B: 83 LDP #$3 169C: DF STA $F 169D: 23 ADD #$3 169E: 84 LDP #$4 169F: DF STA $F 16A0: 23 ADD #$3 16A1: 85 LDP #$5 16A2: DF STA $F 16A3: 24 ADD #$4 16A4: 82 LDP #$2 16A5: D5 STA $5 16A6: 31 SUB #$1 16A7: E2 XLT 16A8: 5F NOP 16A9: D0 STA $0 16AA: 30 FF SUB #$FF 16AC: 43 B6 LDJ &L16B3 16AE: 5D JNC 16AF: 02 LDA #$200 16B0: 20 FF ADD #$FF 16B2: E6 STA [i] L16B3: 16B3: 83 LDP #$3 16B4: AF LDA $F 16B5: E2 XLT 16B6: 5F NOP 16B7: EC LSL 16B8: EC LSL 16B9: EC LSL 16BA: EC LSL 16BB: D8 STA $8 16BC: AF LDA $F 16BD: 21 ADD #$1 16BE: E2 XLT 16BF: 5F NOP 16C0: EC LSL 16C1: EC LSL 16C2: EC LSL 16C3: EC LSL 16C4: D9 STA $9 16C5: AF LDA $F 16C6: 22 ADD #$2 16C7: E2 XLT 16C8: 5F NOP 16C9: EC LSL 16CA: EC LSL 16CB: EC LSL 16CC: EC LSL 16CD: DA STA $A 16CE: 84 LDP #$4 16CF: AF LDA $F 16D0: E2 XLT 16D1: 5F NOP 16D2: EC LSL 16D3: EC LSL 16D4: EC LSL 16D5: EC LSL 16D6: D8 STA $8 16D7: AF LDA $F 16D8: 21 ADD #$1 16D9: E2 XLT 16DA: 5F NOP 16DB: EC LSL 16DC: EC LSL 16DD: EC LSL 16DE: EC LSL 16DF: D9 STA $9 16E0: AF LDA $F 16E1: 22 ADD #$2 16E2: E2 XLT 16E3: 5F NOP 16E4: EC LSL 16E5: EC LSL 16E6: EC LSL 16E7: EC LSL 16E8: DA STA $A 16E9: 85 LDP #$5 16EA: AF LDA $F 16EB: E2 XLT 16EC: 5F NOP 16ED: EC LSL 16EE: EC LSL 16EF: EC LSL 16F0: EC LSL 16F1: D8 STA $8 16F2: AF LDA $F 16F3: 21 ADD #$1 16F4: E2 XLT 16F5: 5F NOP 16F6: EC LSL 16F7: EC LSL 16F8: EC LSL 16F9: EC LSL 16FA: D9 STA $9 16FB: AF LDA $F 16FC: 22 ADD #$2 16FD: E2 XLT 16FE: 5F NOP 16FF: EC LSL 1700: EC LSL 1701: EC LSL 1702: EC LSL 1703: DA STA $A L1704: 1704: 88 LDP #$8 1705: A9 LDA $9 1706: 87 LDP #$7 1707: DA STA $A 1708: 08 LDA #$800 1709: 87 LDP #$7 170A: D8 STA $8 170B: 57 USB 170C: 17 INP $7 170D: 00 CLR 170E: 21 ADD #$1 170F: 95 OUT $5 1710: EE ASRD 1711: 95 OUT $5 1712: B8 CMP $8 1713: 4E 27 LDJ &L172E 1715: 5C JEQ 1716: 00 CLR 1717: 21 ADD #$1 1718: E6 STA [i] 1719: 57 USB 171A: 10 INP $0 171B: 57 USB 171C: B8 CMP $8 171D: 4B 27 LDJ &L172B 171F: 5C JEQ 1720: A9 LDA $9 1721: 21 ADD #$1 1722: E6 STA [i] 1723: 00 CLR 1724: 21 ADD #$1 1725: B9 CMP $9 1726: 4E 27 LDJ &L172E 1728: 5C JEQ 1729: 00 CLR 172A: E6 STA [i] L172B: 172B: AA LDA $A 172C: 21 ADD #$1 172D: E6 STA [i] L172E: 172E: 87 LDP #$7 172F: AA LDA $A 1730: 88 LDP #$8 1731: D9 STA $9 1732: 00 CLR 1733: 87 LDP #$7 1734: DA STA $A 1735: 86 LDP #$6 1736: B9 CMP $9 1737: 49 B7 LDJ &L17B9 1739: 5C JEQ 173A: 96 OUT $6 173B: 88 LDP #$8 173C: A1 LDA $1 173D: 49 47 LDJ &L1749 173F: 5C JEQ 1740: 3A SUB #$A 1741: 5B JLT ; L1749 1742: AB LDA $B 1743: 21 ADD #$1 1744: E6 STA [i] 1745: EB LSR 1746: EB LSR 1747: EB LSR 1748: 96 OUT $6 L1749: 1749: 01 LDA #$100 174A: 20 CC ADD #$CC 174C: 80 LDP #$0 174D: D3 STA $3 174E: 02 LDA #$200 174F: 20 8A ADD #$8A 1751: D4 STA $4 1752: 00 CLR 1753: 20 21 ADD #$21 1755: DE STA $E 1756: 00 CLR 1757: 23 ADD #$3 1758: DF STA $F 1759: 20 01 ADD #$01 175B: D2 STA $2 175C: 00 CLR 175D: 20 81 ADD #$81 175F: D5 STA $5 1760: 07 LDA #$700 1761: 20 67 ADD #$67 ; Ram[0x00] = &L1767; 1763: D0 STA $0 1764: 43 FA LDJ &L1AF3 1766: 58 JMP ; JSR L1AF4 L1767: 1767: 00 CLR 1768: 87 LDP #$7 1769: A2 LDA $2 176A: 41 77 LDJ &L1771 176C: 5C JEQ 176D: 31 SUB #$1 176E: E6 STA [i] 176F: 00 CLR 1770: 21 ADD #$1 L1771: 1771: 96 OUT $6 1772: 00 CLR 1773: 2A ADD #$A 1774: 86 LDP #$6 1775: 79 SUB $9 1776: E6 STA [i] 1777: 39 SUB #$9 1778: 44 87 LDJ &L1784 177A: 5D JNC 177B: 87 LDP #$7 177C: AB LDA $B 177D: 21 ADD #$1 177E: E6 STA [i] 177F: EB LSR 1780: EB LSR 1781: EB LSR 1782: 21 ADD #$1 1783: 96 OUT $6 L1784: 1784: 03 LDA #$300 1785: 20 20 ADD #$20 1787: 80 LDP #$0 1788: D3 STA $3 1789: 02 LDA #$200 178A: 20 58 ADD #$58 178C: D4 STA $4 178D: 00 CLR 178E: 20 21 ADD #$21 1790: DE STA $E 1791: 00 CLR 1792: 23 ADD #$3 1793: DF STA $F 1794: 20 01 ADD #$01 1796: D2 STA $2 1797: 00 CLR 1798: 20 69 ADD #$69 179A: D5 STA $5 179B: 07 LDA #$700 179C: 20 A2 ADD #$A2 179E: D0 STA $0 ; Ram[0x00] = &L17A2; 179F: 43 FA LDJ &L1AF3 17A1: 58 JMP ; JSR L1AF3 L17A2: ; return to here 17A2: 00 CLR 17A3: 2A ADD #$A 17A4: 86 LDP #$6 17A5: 79 SUB $9 17A6: E6 STA [i] 17A7: 00 CLR 17A8: 20 1D ADD #$1D 17AA: 93 OUT $3 17AB: EB LSR 17AC: 90 OUT $0 17AD: EB LSR 17AE: 91 OUT $1 17AF: EB LSR 17B0: 92 OUT $2 17B1: EB LSR 17B2: 94 OUT $4 17B3: EB LSR 17B4: 94 OUT $4 17B5: 48 50 LDJ &L1058 17B7: 81 LDP #$1 17B8: 50 JPPB ; goto L0058 ; -------------------------------------------------------------------------- L17B9: 17B9: 86 LDP #$6 17BA: AA LDA $A 17BB: BC CMP $C 17BC: 4B C7 LDJ &L17CB 17BE: 5D JNC 17BF: 45 C7 LDJ &L17C5 17C1: 5C JEQ 17C2: E6 STA [i] 17C3: AB LDA $B 17C4: DD STA $D L17C5: 17C5: AB LDA $B 17C6: BD CMP $D 17C7: 4B C7 LDJ &L17CB 17C9: 5D JNC 17CA: E6 STA [i] L17CB: 17CB: 5A JDR ; L17CB 17CC: 57 USB 17CD: 02 LDA #$200 17CE: 57 USB 17CF: 20 76 ADD #$76 17D1: 02 LDA #$200 17D2: 20 DA ADD #$DA 17D4: F0 VIN 17D5: 00 CLR 17D6: 96 OUT $6 17D7: 21 ADD #$1 17D8: 86 LDP #$6 17D9: D1 STA $1 17DA: 00 CLR 17DB: D2 STA $2 17DC: D0 STA $0 17DD: 00 CLR 17DE: 20 1C ADD #$1C 17E0: 93 OUT $3 17E1: EB LSR 17E2: 90 OUT $0 17E3: EB LSR 17E4: 91 OUT $1 17E5: EB LSR 17E6: 92 OUT $2 17E7: EB LSR 17E8: 94 OUT $4 17E9: EB LSR 17EA: 94 OUT $4 17EB: 02 LDA #$200 17EC: 20 BC ADD #$BC 17EE: 80 LDP #$0 17EF: D3 STA $3 17F0: 02 LDA #$200 17F1: 20 8A ADD #$8A 17F3: D4 STA $4 17F4: 00 CLR 17F5: 20 21 ADD #$21 17F7: DE STA $E 17F8: 00 CLR 17F9: DF STA $F 17FA: 08 LDA #$800 17FB: 20 03 ADD #$03 17FD: D5 STA $5 17FE: 20 0C ADD #$0C ; NON-STANDARD RETURN ADDRESS L180F 1800: D0 STA $0 ; CALCULATED THE HARD WAY! 1801: 43 FA LDJ &L1AF3 1803: 58 JMP ; ------------------------------------------------------------------------ ; data 00001800: 48 49 47 48 5b 53 43 4f 52 45 ff : HIGH[SCORE. EQUS "HIGH[SCORE" EQUB $FF ; ------------------------------------------------------------------------ L180F: 180F: 02 LDA #$200 1810: 20 F8 ADD #$F8 1812: 80 LDP #$0 1813: D3 STA $3 1814: 02 LDA #$200 1815: 20 58 ADD #$58 1817: D4 STA $4 1818: 00 CLR 1819: 20 07 ADD #$07 181B: DE STA $E 181C: 00 CLR 181D: 23 ADD #$3 181E: DF STA $F 181F: 20 01 ADD #$01 1821: D2 STA $2 1822: 00 CLR 1823: 20 6C ADD #$6C 1825: D5 STA $5 1826: 08 LDA #$800 1827: 20 2D ADD #$2D ; return address = &L182D 1829: D0 STA $0 182A: 43 FA LDJ &L1AF3 182C: 58 JMP ; JSR L1AF3 L182D: ; return to here 182D: 03 LDA #$300 182E: 20 10 ADD #$10 1830: 80 LDP #$0 1831: D3 STA $3 1832: 02 LDA #$200 1833: 20 58 ADD #$58 1835: D4 STA $4 1836: 00 CLR 1837: 20 07 ADD #$07 1839: DE STA $E 183A: 00 CLR 183B: 23 ADD #$3 183C: DF STA $F 183D: 20 01 ADD #$01 183F: D2 STA $2 1840: 00 CLR 1841: 20 6D ADD #$6D 1843: D5 STA $5 1844: 08 LDA #$800 1845: 20 4B ADD #$4B ; &L184B 1847: D0 STA $0 1848: 43 FA LDJ &L1AF3 184A: 58 JMP ; JSR L1AF3 L184B: 184B: 00 CLR 184C: 88 LDP #$8 184D: B9 CMP $9 184E: 4C 59 LDJ &L195C 1850: 5C JEQ 1851: 00 CLR 1852: 96 OUT $6 1853: 21 ADD #$1 1854: 87 LDP #$7 1855: DA STA $A 1856: F7 AWD [i] 1857: 01 LDA #$100 1858: 20 90 ADD #$90 185A: 80 LDP #$0 185B: D3 STA $3 ; param 185C: 00 CLR 185D: 20 32 ADD #$32 185F: D4 STA $4 ; param 1860: 00 CLR 1861: 20 4D ADD #$4D 1863: DE STA $E ; param 1864: 00 CLR 1865: DF STA $F ; param 1866: 08 LDA #$800 1867: 20 6F ADD #$6F 1869: D5 STA $5 ; param 186A: 20 09 ADD #$09 ; &L1878, the hard way 186C: D0 STA $0 ; return address 186D: 43 FA LDJ &L1AF3 186F: 58 JMP ; JSR draw text, skip inline data EQUS "CREDITS" EQUB $FF L1878: 1878: 88 LDP #$8 1879: A9 LDA $9 187A: DC STA $C 187B: 39 SUB #$9 187C: 42 88 LDJ &L1882 187E: 5D JNC 187F: 00 CLR 1880: 29 ADD #$9 1881: E6 STA [i] L1882: 1882: 02 LDA #$200 1883: 20 58 ADD #$58 1885: 80 LDP #$0 1886: D3 STA $3 1887: 00 CLR 1888: 20 32 ADD #$32 188A: D4 STA $4 188B: 00 CLR 188C: 20 0B ADD #$0B 188E: DE STA $E 188F: 00 CLR 1890: 23 ADD #$3 1891: DF STA $F 1892: 20 01 ADD #$01 1894: D2 STA $2 1895: 00 CLR 1896: 20 8C ADD #$8C 1898: D5 STA $5 ; address of the string param? 1899: 08 LDA #$800 189A: 20 A0 ADD #$A0 ; return address = &L18A0 189C: D0 STA $0 189D: 43 FA LDJ &L1AF3 189F: 58 JMP ; JSR L1AF3 L18A0: ; return from subroutine 18A0: 00 CLR 18A1: 20 1E ADD #$1E 18A3: 93 OUT $3 18A4: EB LSR 18A5: 90 OUT $0 18A6: EB LSR 18A7: 91 OUT $1 18A8: EB LSR 18A9: 92 OUT $2 18AA: EB LSR 18AB: 94 OUT $4 18AC: EB LSR 18AD: 94 OUT $4 18AE: 00 CLR 18AF: 20 1A ADD #$1A 18B1: 93 OUT $3 18B2: EB LSR 18B3: 90 OUT $0 18B4: EB LSR 18B5: 91 OUT $1 18B6: EB LSR 18B7: 92 OUT $2 18B8: EB LSR 18B9: 94 OUT $4 18BA: EB LSR 18BB: 94 OUT $4 18BC: 00 CLR 18BD: 20 14 ADD #$14 18BF: 93 OUT $3 18C0: EB LSR 18C1: 90 OUT $0 18C2: EB LSR 18C3: 91 OUT $1 18C4: EB LSR 18C5: 92 OUT $2 18C6: EB LSR 18C7: 94 OUT $4 18C8: EB LSR 18C9: 94 OUT $4 18CA: 00 CLR 18CB: 20 16 ADD #$16 18CD: 93 OUT $3 18CE: EB LSR 18CF: 90 OUT $0 18D0: EB LSR 18D1: 91 OUT $1 18D2: EB LSR 18D3: 92 OUT $2 18D4: EB LSR 18D5: 94 OUT $4 18D6: EB LSR 18D7: 94 OUT $4 18D8: 00 CLR 18D9: 20 18 ADD #$18 18DB: 93 OUT $3 18DC: EB LSR 18DD: 90 OUT $0 18DE: EB LSR 18DF: 91 OUT $1 18E0: EB LSR 18E1: 92 OUT $2 18E2: EB LSR 18E3: 94 OUT $4 18E4: EB LSR 18E5: 94 OUT $4 18E6: 87 LDP #$7 18E7: AB LDA $B 18E8: 21 ADD #$1 18E9: E6 STA [i] 18EA: 00 CLR 18EB: 28 ADD #$8 18EC: E9 AND [i] 18ED: EB LSR 18EE: EB LSR 18EF: EB LSR 18F0: 96 OUT $6 18F1: 20 12 ADD #$12 18F3: 93 OUT $3 18F4: EB LSR 18F5: 90 OUT $0 18F6: EB LSR 18F7: 91 OUT $1 18F8: EB LSR 18F9: 92 OUT $2 18FA: EB LSR 18FB: 94 OUT $4 18FC: EB LSR 18FD: 94 OUT $4 18FE: F7 AWD [i] 18FF: 01 LDA #$100 1900: 20 90 ADD #$90 1902: 80 LDP #$0 1903: D3 STA $3 1904: 01 LDA #$100 1905: 20 90 ADD #$90 1907: D4 STA $4 1908: 00 CLR 1909: 20 2C ADD #$2C 190B: DE STA $E 190C: 00 CLR 190D: DF STA $F 190E: 09 LDA #$900 190F: 20 17 ADD #$17 ; &L1917 1911: D5 STA $5 ; param address-1 1912: 20 0C ADD #$0C 1914: D0 STA $0 ; return address 1915: 43 FA LDJ &L1AF3 L1917: 1917: 58 JMP EQUS "PUSH[START" EQUB $FF L1923: 1923: 17 INP $7 1924: 21 ADD #$1 1925: 43 C9 LDJ &L19C3 1927: 5C JEQ 1928: 88 LDP #$8 1929: A9 LDA $9 192A: 31 SUB #$1 192B: E6 STA [i] 192C: 00 CLR 192D: 20 12 ADD #$12 192F: 93 OUT $3 1930: EB LSR 1931: 90 OUT $0 1932: EB LSR 1933: 91 OUT $1 1934: EB LSR 1935: 92 OUT $2 1936: EB LSR 1937: 94 OUT $4 1938: EB LSR 1939: 94 OUT $4 193A: 00 CLR 193B: 82 LDP #$2 193C: DA STA $A 193D: DB STA $B 193E: 87 LDP #$7 193F: DA STA $A 1940: DD STA $D 1941: 86 LDP #$6 1942: DA STA $A 1943: DB STA $B 1944: 83 LDP #$3 1945: D0 STA $0 1946: 84 LDP #$4 1947: D0 STA $0 1948: 85 LDP #$5 1949: D0 STA $0 194A: 87 LDP #$7 194B: DB STA $B 194C: 88 LDP #$8 194D: D0 STA $0 194E: A2 LDA $2 194F: D1 STA $1 1950: 00 CLR 1951: 2A ADD #$A 1952: 86 LDP #$6 1953: D9 STA $9 1954: 88 LDP #$8 1955: AA LDA $A 1956: 21 ADD #$1 1957: E6 STA [i] 1958: 48 50 LDJ &L0058 195A: 81 LDP #$1 195B: 50 JPPB ; goto L0058 ; ----------------------------------------------------------------------- L195C: 195C: 00 CLR 195D: 20 12 ADD #$12 195F: 93 OUT $3 1960: EB LSR 1961: 90 OUT $0 1962: EB LSR 1963: 91 OUT $1 1964: EB LSR 1965: 92 OUT $2 1966: EB LSR 1967: 94 OUT $4 1968: EB LSR 1969: 94 OUT $4 196A: 00 CLR 196B: 87 LDP #$7 196C: AD LDA $D 196D: 43 C9 LDJ &L19C3 196F: 5C JEQ 1970: EB LSR 1971: EB LSR 1972: 96 OUT $6 1973: 00 CLR 1974: 81 LDP #$1 1975: D9 STA $9 1976: D0 STA $0 1977: D1 STA $1 1978: DC STA $C 1979: 20 FF ADD #$FF 197B: DD STA $D 197C: 00 CLR 197D: 22 ADD #$2 197E: 87 LDP #$7 197F: BD CMP $D 1980: 42 B9 LDJ &L19B2 1982: 5D JNC 1983: AC LDA $C 1984: 33 SUB #$3 1985: E6 STA [i] 1986: 81 LDP #$1 1987: DE STA $E 1988: 09 LDA #$900 1989: 20 8F ADD #$8F ; &L198F 198B: DF STA $F 198C: 45 75 LDJ &L1575 198E: 58 JMP L198F: 198F: 02 LDA #$200 1990: 87 LDP #$7 1991: BE CMP $E 1992: 48 99 LDJ &L1998 1994: 5D JNC 1995: 00 CLR 1996: 23 ADD #$3 1997: DD STA $D L1998: 1998: AE LDA $E 1999: 3B SUB #$B 199A: E6 STA [i] 199B: 81 LDP #$1 199C: D2 STA $2 L199D: 199D: 09 LDA #$900 199E: 20 C3 ADD #$C3 ; &L19C3 19A0: 80 LDP #$0 19A1: D0 STA $0 19A2: 57 USB 19A3: 03 LDA #$300 19A4: EE ASRD 19A5: 57 USB 19A6: 20 32 ADD #$32 19A8: 02 LDA #$200 19A9: 30 32 SUB #$32 19AB: 4D A9 LDJ &L19AD L19AD: 19AD: 5A JDR 19AE: F0 VIN 19AF: 47 C9 LDJ &L19C7 19B1: 58 JMP L19B2: 19B2: EA LDA [i] 19B3: 21 ADD #$1 19B4: E6 STA [i] 19B5: AE LDA $E 19B6: 81 LDP #$1 19B7: D2 STA $2 19B8: 87 LDP #$7 19B9: AC LDA $C 19BA: 81 LDP #$1 19BB: DE STA $E 19BC: 09 LDA #$900 19BD: 20 9D ADD #$9D ; &L199D 19BF: DF STA $F 19C0: 45 75 LDJ &L1575 19C2: 58 JMP L19C3: 19C3: 48 50 LDJ &L0058 19C5: 81 LDP #$1 19C6: 50 JPPB ; goto L0058 ; -------------------------------------------------------------- L19C7: 19C7: 0A LDA #$A00 19C8: 20 1B ADD #$1B ; &L1A0B 19CA: 81 LDP #$1 19CB: D6 STA $6 19CC: 20 1A ADD #$1A 19CE: D7 STA $7 19CF: 09 LDA #$900 19D0: 20 D7 ADD #$D7 ; &L19D7 19D2: 82 LDP #$2 19D3: DF STA $F 19D4: 48 21 LDJ &L1128 19D6: 58 JMP L19D7: 19D7: 00 CLR 19D8: 20 7F ADD #$7F 19DA: 87 LDP #$7 19DB: BC CMP $C 19DC: E9 AND [i] 19DD: E6 STA [i] 19DE: 30 20 SUB #$20 19E0: 4B E9 LDJ &L19EB 19E2: 5D JNC 19E3: 00 CLR 19E4: 20 60 ADD #$60 19E6: BC CMP $C 19E7: 5D JNC 19E8: 4D 74 LDJ &L147D 19EA: 58 JMP L19EB: 19EB: 0A LDA #$A00 19EC: 20 3E ADD #$3E ; &L1A3E 19EE: 81 LDP #$1 19EF: D6 STA $6 19F0: 20 32 ADD #$32 19F2: D7 STA $7 19F3: 09 LDA #$900 19F4: 20 FB ADD #$FB ; &L19FB 19F6: 82 LDP #$2 19F7: DF STA $F 19F8: 48 21 LDJ &L1128 19FA: 58 JMP L19FB: 19FB: 0A LDA #$A00 19FC: 20 7A ADD #$7A ; &L1A7A 19FE: 81 LDP #$1 19FF: D6 STA $6 1A00: 20 32 ADD #$32 1A02: D7 STA $7 1A03: 0A LDA #$A00 1A04: 20 0B ADD #$0B ; &L1A0B 1A06: 82 LDP #$2 1A07: DF STA $F 1A08: 48 21 LDJ &L1128 1A0A: 58 JMP L1A0B: 1A0B: 0A LDA #$A00 1A0C: 20 B8 ADD #$B8 ; &L1AB8 1A0E: 81 LDP #$1 1A0F: D6 STA $6 1A10: 20 2F ADD #$2F 1A12: D7 STA $7 1A13: 04 LDA #$400 1A14: 20 7D ADD #$7D ; &L147D (RTS via Ram[0x00] 1A16: 82 LDP #$2 1A17: DF STA $F 1A18: 48 21 LDJ &L1128 1A1A: 58 JMP ; ---------------------------------------------------------------- ; DATA BLOCK ; a guess: these may be vectors for drawing - possibly text? L1A1B: 00001a10: 47 9b 80 b9 9b : G.... 00001a20: 80 b9 65 80 47 65 80 3f a3 80 c1 a3 80 c1 5d 80 : ..e.Ge.?......]. 00001a30: 3f 5d 80 ff ff 01 12 23 30 45 : ?].....#0E L1A3A: 56 67 74 ff 5d 95 : Vgt.]. 00001a40: 80 6d 95 80 65 95 80 65 83 80 71 83 80 77 95 80 : .m..e..e..q..w.. 00001a50: 7d 83 80 74 8c 80 7a 8c 80 89 83 80 89 95 80 95 : }..t..z......... 00001a60: 95 80 95 83 80 a1 83 80 a7 7d 80 a7 6b 80 ff ff : .........}..k... 00001a70: 01 23 45 56 78 9a bc cd ef ff : .#EVx..... L1A7A: a7 7d 80 b3 7d 80 : .}..}. 00001a80: b3 74 80 b0 74 80 b3 6b 80 a7 74 80 a1 6b 80 95 : .t..t..k..t..k.. 00001a90: 6b 80 95 7d 80 a1 7d 80 9b 74 80 95 74 80 8f 7d : k..}..}..t..t..} 00001aa0: 80 8f 6b 80 83 7d 80 83 6b 80 ff ff 01 12 34 25 : ..k..}..k.....4% 00001ab0: 67 78 89 ab cd de ef ff : gx...... L1AB8: 7d 7d 80 7d 6b 80 71 7d : }}.}k.q} 00001ac0: 80 71 6b 80 6b 7d 80 6b 6b 80 5f 6b 80 5f 7d 80 : .qk.k}.kk._k._}. 00001ad0: 5c 72 80 56 72 80 59 72 80 59 6b 80 4d 6b 80 4d : \r.Vr.Yr.Yk.Mk.M 00001ae0: 7d 80 59 7d 80 ff ff 01 12 23 45 56 67 89 ab bc : }.Y}.....#EVg... 00001af0: cd de ff : ... ; end of data block ; Print Text SUBROUTINE. RETURN ADDRESS IS IN Ram[0x00] ; Address of string is 1 greater than Ram[0x05] ; I suspect $3 and $4 are X and Y? 1AF3: A3 LDA $3 1AF4: 57 USB 1AF5: A4 LDA $4 L1AF6: 1AF6: 46 FA LDJ &L1AF6 1AF8: 5A JDR 1AF9: F0 VIN 1AFA: 00 CLR 1AFB: 7E SUB $E 1AFC: 31 SUB #$1 L1AFD: 1AFD: 21 ADD #$1 1AFE: 4D FA LDJ &L1AFD 1B00: 5D JNC ; timing loop 1B01: DE STA $E 1B02: 20 18 ADD #$18 1B04: D6 STA $6 1B05: 00 CLR 1B06: 20 FF ADD #$FF 1B08: D1 STA $1 L1B09: 1B09: 00 CLR 1B0A: BF CMP $F 1B0B: 41 2B LDJ &L1B21 1B0D: 5D JNC 1B0E: A5 LDA $5 1B0F: 21 ADD #$1 1B10: E6 STA [i] 1B11: E2 XLT 1B12: 5F NOP L1B13: 1B13: D7 STA $7 1B14: B1 CMP $1 1B15: 4B 6B LDJ &L1B6B 1B17: 5C JEQ 1B18: 30 40 SUB #$40 1B1A: 4E 6B LDJ &L1B6E 1B1C: 5D JNC 1B1D: 20 39 ADD #$39 1B1F: D7 STA $7 1B20: 58 JMP ; L1B6E L1B21: 1B21: A2 LDA $2 1B22: 31 SUB #$1 1B23: 4B 6B LDJ &L1B6B 1B25: 5C JEQ 1B26: E6 STA [i] 1B27: C5 LDI $5 1B28: EA LDA [i] 1B29: D7 STA $7 1B2A: AF LDA $F 1B2B: 31 SUB #$1 1B2C: E6 STA [i] 1B2D: 43 6B LDJ &L1B63 1B2F: 5C JEQ 1B30: 31 SUB #$1 1B31: 4C 3B LDJ &L1B3C 1B33: 5C JEQ 1B34: A7 LDA $7 1B35: EB LSR 1B36: EB LSR 1B37: EB LSR 1B38: EB LSR 1B39: 4D 3B LDJ &L1B3D 1B3B: 58 JMP L1B3C: 1B3C: A7 LDA $7 L1B3D: 1B3D: EB LSR 1B3E: EB LSR 1B3F: EB LSR 1B40: EB LSR 1B41: E6 STA [i] L1B42: 1B42: 00 CLR 1B43: 2F ADD #$F 1B44: B7 CMP $7 1B45: E9 AND [i] 1B46: E6 STA [i] 1B47: AE LDA $E 1B48: EB LSR 1B49: 42 5B LDJ &L1B52 1B4B: 5E JA0 1B4C: B7 CMP $7 1B4D: 48 5B LDJ &L1B58 1B4F: 5C JEQ 1B50: 21 ADD #$1 1B51: DE STA $E L1B52: 1B52: A7 LDA $7 1B53: 20 30 ADD #$30 1B55: 43 1B LDJ &L1B13 1B57: 58 JMP L1B58: 1B58: A2 LDA $2 1B59: 31 SUB #$1 1B5A: 42 5B LDJ &L1B52 1B5C: 5C JEQ 1B5D: 00 CLR 1B5E: 20 5B ADD #$5B 1B60: 43 1B LDJ &L1B13 1B62: 58 JMP L1B63: 1B63: 23 ADD #$3 1B64: DF STA $F 1B65: A5 LDA $5 1B66: 21 ADD #$1 1B67: E6 STA [i] 1B68: 42 4B LDJ &L1B42 1B6A: 58 JMP L1B6B: 1B6B: B0 CMP $0 1B6C: E1 LDJ [i] 1B6D: 58 JMP ; return from subroutine via Ram[0x00] L1B6E: 1B6E: 0C LDA #$C00 1B6F: 20 29 ADD #$29 ; &L1C29 1B71: 67 ADD $7 ; + offset 1B72: E2 XLT ; index into rom 1B73: 5F NOP 1B74: E6 STA [i] 1B75: 0B LDA #$B00 1B76: 20 EF ADD #$EF ; &L1BEF (in middle of data) 1B78: E7 ADD [i] 1B79: E6 STA [i] L1B7A: 1B7A: A7 LDA $7 1B7B: 21 ADD #$1 1B7C: E6 STA [i] 1B7D: E2 XLT 1B7E: 5F NOP 1B7F: B1 CMP $1 1B80: 41 CB LDJ &L1BC1 1B82: 5C JEQ 1B83: DD STA $D 1B84: EB LSR 1B85: EB LSR 1B86: EB LSR 1B87: EB LSR 1B88: EC LSL 1B89: DC STA $C 1B8A: 0B LDA #$B00 1B8B: 20 D2 ADD #$D2 ; &L1BD2 (data) 1B8D: E7 ADD [i] 1B8E: E6 STA [i] 1B8F: 21 ADD #$1 1B90: E2 XLT 1B91: 5F NOP 1B92: 64 ADD $4 1B93: D9 STA $9 1B94: AC LDA $C 1B95: E2 XLT 1B96: 5F NOP 1B97: 63 ADD $3 1B98: D8 STA $8 1B99: 57 USB 1B9A: A9 LDA $9 L1B9B: 1B9B: 4B 9B LDJ &L1B9B 1B9D: 5A JDR 1B9E: F0 VIN 1B9F: 00 CLR 1BA0: 2F ADD #$F 1BA1: BD CMP $D 1BA2: E9 AND [i] 1BA3: EC LSL 1BA4: E6 STA [i] 1BA5: 0B LDA #$B00 1BA6: 20 D2 ADD #$D2 ; &L1BD2 1BA8: E7 ADD [i] 1BA9: E6 STA [i] 1BAA: 21 ADD #$1 1BAB: E2 XLT 1BAC: 5F NOP 1BAD: 64 ADD $4 1BAE: 79 SUB $9 1BAF: DB STA $B 1BB0: AD LDA $D 1BB1: E2 XLT 1BB2: 5F NOP 1BB3: 63 ADD $3 1BB4: 78 SUB $8 1BB5: DA STA $A 1BB6: AA LDA $A 1BB7: 57 USB 1BB8: AB LDA $B 1BB9: E4 LLT 1BBA: 68 ADD $8 1BBB: 57 USB 1BBC: 69 ADD $9 1BBD: E0 VDR 1BBE: 4A 7B LDJ &L1B7A 1BC0: 58 JMP 1BC1: 00 CLR 1BC2: 29 ADD #$9 1BC3: 64 ADD $4 1BC4: D9 STA $9 1BC5: A6 LDA $6 1BC6: 63 ADD $3 1BC7: E6 STA [i] 1BC8: 23 ADD #$3 1BC9: 57 USB 1BCA: A9 LDA $9 L1BCB: 1BCB: 4B CB LDJ &L1BCB 1BCD: 5A JDR 1BCE: F0 VIN 1BCF: 49 0B LDJ &L1B09 1BD1: 58 JMP ; -------------------------------------------------------------- ; data L1BD2: 00001bd0: 00 00 04 00 08 00 0c 00 10 00 00 0c 04 0c : .............. 00001be0: 08 0c 0c 0c 10 0c 00 18 04 18 08 18 0c 18 10 : ............... L1BEF: 00001be0: 18 : . 00001bf0: 74 ae e4 40 0a ff ae e9 95 50 04 ff 04 79 4e ea : t..@.....P...yN. 00001c00: ff 04 49 95 5a ae ff 59 94 40 0a ff 2e ea ff 04 : ..I.Z..Y.@...... 00001c10: ae 59 e4 a0 ff ea a5 59 e4 ff 69 04 4e ea b1 ff : .Y.....Y..i.N... 00001c20: 40 0a 57 ae ff 79 94 40 0a ae ff 50 03 3d be ff : @.W..y.@...P.=.. 00001c30: 0a e5 54 ff 0a a7 7e e4 ff 0a a4 4e ff 48 59 9e : ..T...~....N.HY. 00001c40: ea a0 ff ae c2 ff a2 2e ff a1 17 73 3e ff 0e a4 : ...........s>... 00001c50: ff 27 7a 7e ff ae e0 04 ff 01 54 06 0c 26 11 17 : .'z~......T..&.. 00001c60: 1c 1f 25 20 2a 37 2b 30 31 35 21 54 3b 40 03 44 : ..% *7+015!T;@.D 00001c70: 49 01 4e 00 4d 11 53 02 56 59 5e 61 65 68 8e 0c : I.N.M.S.VY^aeh.. 00001c80: a2 0c b6 0c d4 0c f2 0c 2e 0d 06 0d 42 0d 00 e0 : ............B... 00001c90: 80 e0 20 80 20 20 80 21 00 0c 00 f4 f4 00 0c f4 : .. . .!........ 00001ca0: 00 ff e5 e5 a0 e5 1b a0 17 00 a0 25 0e f2 00 0e : ...........%.... 00001cb0: 0e 00 f5 00 00 ff 00 00 c0 00 29 c0 00 d7 c0 17 : ..........)..... 00001cc0: 00 f5 80 00 0b 80 00 ea 80 16 00 00 00 08 00 00 : ................ 00001cd0: f8 00 00 ff 00 21 a0 00 00 a0 00 df a0 17 f5 00 : .....!.......... 00001ce0: 70 0b 00 70 00 00 70 17 f8 f8 00 08 f8 00 00 08 : p..p..p......... 00001cf0: 00 ff 00 18 c0 db db c0 25 db c0 11 ec ec a0 14 : ........%....... 00001d00: ec a0 00 18 a0 11 14 ec 80 00 : .......... L1D0A: 00001d00: 18 80 ec ec 80 11 : ...... 00001d10: 00 0c 60 f6 f6 60 0a f6 60 11 f8 f8 40 08 f8 40 : ..`..`..`...@..@ 00001d20: 00 08 40 11 08 f8 00 00 08 00 f8 f8 00 ff 00 18 : ..@............. 00001d30: c0 d7 d7 c0 29 d7 c0 11 14 ec a0 00 18 a0 ec ec : ....)........... 00001d40: a0 11 ec ec 80 14 ec 80 00 18 80 11 00 0c 60 f6 : ..............`. 00001d50: f6 60 0a f6 60 11 08 f8 40 00 0a 40 f8 f8 40 11 : .`..`...@..@..@. 00001d60: f8 f8 00 08 f8 00 00 08 00 ff e2 ff : ............ ; Code *MAY* begin again at 1D6C to 1DAA inclusive??? L1D6C: 00001d60: d2 80 0d 2a : ...* 00001d70: 00 20 1a 93 eb 90 eb 91 eb 92 eb 94 eb 94 00 20 : . ............. 00001d80: 14 93 eb 90 eb 91 eb 92 eb 94 eb 94 00 20 1c 93 : ............. .. 00001d90: eb 90 eb 91 eb 92 eb 94 eb 94 00 20 18 93 eb 90 : ........... .... 00001da0: eb 91 eb 92 eb 94 eb 94 45 00 58 : ........E.X ; this would appear to be code, but I don't have a reference to it... 1D6C: D2 STA $2 ; maybe starts here? L1D6D: 1D6D: 80 LDP #$0 1D6E: 0D LDA #$D00 1D6F: 2A ADD #$A 1D70: 00 CLR 1D71: 20 1A ADD #$1A 1D73: 93 OUT $3 1D74: EB LSR 1D75: 90 OUT $0 1D76: EB LSR 1D77: 91 OUT $1 1D78: EB LSR 1D79: 92 OUT $2 1D7A: EB LSR 1D7B: 94 OUT $4 1D7C: EB LSR 1D7D: 94 OUT $4 1D7E: 00 CLR 1D7F: 20 14 ADD #$14 1D81: 93 OUT $3 1D82: EB LSR 1D83: 90 OUT $0 1D84: EB LSR 1D85: 91 OUT $1 1D86: EB LSR 1D87: 92 OUT $2 1D88: EB LSR 1D89: 94 OUT $4 1D8A: EB LSR 1D8B: 94 OUT $4 1D8C: 00 CLR 1D8D: 20 1C ADD #$1C 1D8F: 93 OUT $3 1D90: EB LSR 1D91: 90 OUT $0 1D92: EB LSR 1D93: 91 OUT $1 1D94: EB LSR 1D95: 92 OUT $2 1D96: EB LSR 1D97: 94 OUT $4 1D98: EB LSR 1D99: 94 OUT $4 1D9A: 00 CLR 1D9B: 20 18 ADD #$18 1D9D: 93 OUT $3 1D9E: EB LSR 1D9F: 90 OUT $0 1DA0: EB LSR 1DA1: 91 OUT $1 1DA2: EB LSR 1DA3: 92 OUT $2 1DA4: EB LSR 1DA5: 94 OUT $4 1DA6: EB LSR 1DA7: 94 OUT $4 1DA8: 45 00 LDJ &L1005 1DAA: 58 JMP L1DAB: 00001da0: e2 ff 43 5a 4d : ..CZM 00001db0: 45 49 41 42 44 48 53 50 f6 f4 fc fa fe 01 07 08 : EIABDHSP........ ; end of data ; --------------------------------------------------------------- ; FROM HERE UNTIL THE END OF THE ROM IS ONE HUGE PROCEDURE CALLED FROM 02EC ; I don't think it is called from anywhere else. L1DC0: 1DC0: 5F NOP 1DC1: 00 CLR 1DC2: 86 LDP #$6 1DC3: B9 CMP $9 1DC4: 45 DD LDJ &L1DD5 1DC6: 5C JEQ 1DC7: 00 CLR 1DC8: 20 11 ADD #$11 1DCA: 93 OUT $3 1DCB: EB LSR 1DCC: 90 OUT $0 1DCD: EB LSR 1DCE: 91 OUT $1 1DCF: EB LSR 1DD0: 92 OUT $2 1DD1: EB LSR 1DD2: 94 OUT $4 1DD3: EB LSR 1DD4: 94 OUT $4 L1DD5: 1DD5: 00 CLR 1DD6: 82 LDP #$2 1DD7: D9 STA $9 1DD8: 87 LDP #$7 1DD9: D3 STA $3 1DDA: 83 LDP #$3 1DDB: D7 STA $7 1DDC: D9 STA $9 1DDD: DD STA $D 1DDE: 84 LDP #$4 1DDF: D7 STA $7 1DE0: D9 STA $9 1DE1: DD STA $D 1DE2: 85 LDP #$5 1DE3: D7 STA $7 1DE4: D9 STA $9 1DE5: DD STA $D 1DE6: 0F LDA #$F00 1DE7: 83 LDP #$3 1DE8: D3 STA $3 1DE9: 84 LDP #$4 1DEA: D3 STA $3 1DEB: 85 LDP #$5 1DEC: D3 STA $3 1DED: 82 LDP #$2 1DEE: 57 USB 1DEF: A3 LDA $3 1DF0: 00 CLR 1DF1: EE ASRD 1DF2: EE ASRD 1DF3: EE ASRD 1DF4: 62 ADD $2 1DF5: 57 USB 1DF6: EA LDA [i] 1DF7: E6 STA [i] 1DF8: 02 LDA #$200 1DF9: E9 AND [i] 1DFA: EC LSL 1DFB: E6 STA [i] 1DFC: 57 USB 1DFD: E7 ADD [i] 1DFE: A3 LDA $3 1DFF: EE ASRD 1E00: E6 STA [i] 1E01: 57 USB 1E02: D2 STA $2 1E03: 00 CLR 1E04: 20 FF ADD #$FF 1E06: 82 LDP #$2 1E07: B3 CMP $3 1E08: E9 AND [i] 1E09: 20 FF ADD #$FF 1E0B: 85 LDP #$5 1E0C: D8 STA $8 1E0D: 00 CLR 1E0E: 83 LDP #$3 1E0F: D8 STA $8 1E10: 85 LDP #$5 1E11: 78 SUB $8 1E12: 84 LDP #$4 1E13: D8 STA $8 1E14: 0C LDA #$C00 1E15: DA STA $A 1E16: 85 LDP #$5 1E17: DA STA $A 1E18: 83 LDP #$3 1E19: DA STA $A 1E1A: 82 LDP #$2 1E1B: A2 LDA $2 1E1C: EB LSR 1E1D: EB LSR 1E1E: EB LSR 1E1F: 4D 9E LDJ &L1E9D 1E21: 5E JA0 1E22: EB LSR 1E23: 5E JA0 ; L1E9D 1E24: 82 LDP #$2 1E25: A3 LDA $3 1E26: ED ASR 1E27: 4B 5E LDJ &L1E5B 1E29: 5E JA0 1E2A: 83 LDP #$3 1E2B: D2 STA $2 1E2C: ED ASR 1E2D: E7 ADD [i] 1E2E: E6 STA [i] 1E2F: 30 7F SUB #$7F 1E31: 84 LDP #$4 1E32: D2 STA $2 1E33: 20 FE ADD #$FE 1E35: 85 LDP #$5 1E36: D2 STA $2 1E37: ED ASR 1E38: ED ASR 1E39: ED ASR 1E3A: ED ASR 1E3B: ED ASR 1E3C: ED ASR 1E3D: ED ASR 1E3E: D5 STA $5 1E3F: 00 CLR 1E40: E8 SUB [i] 1E41: E6 STA [i] 1E42: 84 LDP #$4 1E43: D5 STA $5 1E44: 83 LDP #$3 1E45: D5 STA $5 1E46: 08 LDA #$800 1E47: 82 LDP #$2 1E48: B3 CMP $3 1E49: 48 8E LDJ &L1E88 1E4B: 5B JLT 1E4C: 09 LDA #$900 1E4D: 83 LDP #$3 1E4E: D1 STA $1 1E4F: 20 FF ADD #$FF 1E51: 84 LDP #$4 1E52: D1 STA $1 1E53: 85 LDP #$5 1E54: D1 STA $1 1E55: 00 CLR 1E56: 20 20 ADD #$20 1E58: 44 9E LDJ &L1E94 1E5A: 58 JMP L1E5B: 1E5B: 83 LDP #$3 1E5C: D1 STA $1 1E5D: 30 7F SUB #$7F 1E5F: 84 LDP #$4 1E60: D1 STA $1 1E61: 20 FE ADD #$FE 1E63: 85 LDP #$5 1E64: D1 STA $1 1E65: ED ASR 1E66: ED ASR 1E67: ED ASR 1E68: ED ASR 1E69: ED ASR 1E6A: ED ASR 1E6B: ED ASR 1E6C: D4 STA $4 1E6D: 00 CLR 1E6E: E8 SUB [i] 1E6F: E6 STA [i] 1E70: 84 LDP #$4 1E71: D4 STA $4 1E72: 83 LDP #$3 1E73: D4 STA $4 1E74: 07 LDA #$700 1E75: 84 LDP #$4 1E76: D2 STA $2 1E77: 85 LDP #$5 1E78: D2 STA $2 1E79: 30 FF SUB #$FF 1E7B: 83 LDP #$3 1E7C: D2 STA $2 1E7D: 0F LDA #$F00 1E7E: 20 E0 ADD #$E0 ; is this the address of data in rom? 1E80: D5 STA $5 1E81: 85 LDP #$5 1E82: D5 STA $5 1E83: 84 LDP #$4 1E84: D5 STA $5 1E85: 4A 9E LDJ &L1E9A 1E87: 58 JMP L1E88: 1E88: 07 LDA #$700 1E89: 83 LDP #$3 1E8A: D1 STA $1 1E8B: 30 FF SUB #$FF 1E8D: 84 LDP #$4 1E8E: D1 STA $1 1E8F: 85 LDP #$5 1E90: D1 STA $1 1E91: 0F LDA #$F00 1E92: 20 E0 ADD #$E0 ; &L1FE0? L1E94: 1E94: 83 LDP #$3 1E95: D4 STA $4 1E96: 84 LDP #$4 1E97: D4 STA $4 1E98: 85 LDP #$5 1E99: D4 STA $4 L1E9A: 1E9A: 48 FE LDJ &L1EF8 1E9C: 58 JMP L1E9D: 1E9D: 82 LDP #$2 1E9E: A3 LDA $3 1E9F: ED ASR 1EA0: 84 LDP #$4 1EA1: D2 STA $2 1EA2: ED ASR 1EA3: E7 ADD [i] 1EA4: E6 STA [i] 1EA5: ED ASR 1EA6: ED ASR 1EA7: ED ASR 1EA8: ED ASR 1EA9: ED ASR 1EAA: ED ASR 1EAB: ED ASR 1EAC: D5 STA $5 1EAD: 00 CLR 1EAE: E8 SUB [i] 1EAF: E6 STA [i] 1EB0: 09 LDA #$900 1EB1: D1 STA $1 1EB2: 00 CLR 1EB3: 20 18 ADD #$18 1EB5: D4 STA $4 1EB6: 07 LDA #$700 1EB7: 83 LDP #$3 1EB8: D2 STA $2 1EB9: 85 LDP #$5 1EBA: D1 STA $1 1EBB: 0F LDA #$F00 1EBC: 20 E8 ADD #$E8 ; &L1FE8 ? 1EBE: D4 STA $4 1EBF: 83 LDP #$3 1EC0: D5 STA $5 1EC1: 82 LDP #$2 1EC2: A2 LDA $2 1EC3: EC LSL 1EC4: EC LSL 1EC5: ED ASR 1EC6: 83 LDP #$3 1EC7: D1 STA $1 1EC8: ED ASR 1EC9: ED ASR 1ECA: ED ASR 1ECB: ED ASR 1ECC: ED ASR 1ECD: ED ASR 1ECE: ED ASR 1ECF: D4 STA $4 1ED0: 82 LDP #$2 1ED1: 57 USB 1ED2: A3 LDA $3 1ED3: 00 CLR 1ED4: EE ASRD 1ED5: EE ASRD 1ED6: EE ASRD 1ED7: 62 ADD $2 1ED8: 57 USB 1ED9: EA LDA [i] 1EDA: E6 STA [i] 1EDB: 02 LDA #$200 1EDC: E9 AND [i] 1EDD: EC LSL 1EDE: E6 STA [i] 1EDF: 57 USB 1EE0: E7 ADD [i] 1EE1: A3 LDA $3 1EE2: EE ASRD 1EE3: E6 STA [i] 1EE4: 57 USB 1EE5: D2 STA $2 1EE6: A3 LDA $3 1EE7: ED ASR 1EE8: 85 LDP #$5 1EE9: D2 STA $2 1EEA: ED ASR 1EEB: E7 ADD [i] 1EEC: E6 STA [i] 1EED: ED ASR 1EEE: ED ASR 1EEF: ED ASR 1EF0: ED ASR 1EF1: ED ASR 1EF2: ED ASR 1EF3: ED ASR 1EF4: D5 STA $5 1EF5: 00 CLR 1EF6: E8 SUB [i] 1EF7: E6 STA [i] L1EF8: 1EF8: 00 CLR 1EF9: 20 20 ADD #$20 1EFB: 82 LDP #$2 1EFC: DE STA $E 1EFD: 86 LDP #$6 1EFE: BA CMP $A 1EFF: 48 4F LDJ &L1F48 1F01: 5B JLT 1F02: 02 LDA #$200 1F03: BA CMP $A 1F04: 4E 3F LDJ &L1F3E 1F06: 5B JLT 1F07: EC LSL 1F08: BA CMP $A 1F09: 40 3F LDJ &L1F30 1F0B: 5B JLT 1F0C: 06 LDA #$600 1F0D: BA CMP $A 1F0E: 41 2F LDJ &L1F21 1F10: 5B JLT 1F11: 00 CLR 1F12: 20 3C ADD #$3C 1F14: 82 LDP #$2 1F15: DE STA $E 1F16: 86 LDP #$6 1F17: AA LDA $A 1F18: EB LSR 1F19: EB LSR 1F1A: EB LSR 1F1B: EB LSR 1F1C: 30 60 SUB #$60 1F1E: 41 4F LDJ &L1F41 1F20: 58 JMP L1F21: 1F21: 00 CLR 1F22: 20 38 ADD #$38 1F24: 82 LDP #$2 1F25: DE STA $E 1F26: 86 LDP #$6 1F27: AA LDA $A 1F28: EB LSR 1F29: EB LSR 1F2A: EB LSR 1F2B: 30 80 SUB #$80 1F2D: 41 4F LDJ &L1F41 1F2F: 58 JMP L1F30: 1F30: 00 CLR 1F31: 20 30 ADD #$30 1F33: 82 LDP #$2 1F34: DE STA $E 1F35: 86 LDP #$6 1F36: AA LDA $A 1F37: EB LSR 1F38: EB LSR 1F39: 30 80 SUB #$80 1F3B: 41 4F LDJ &L1F41 1F3D: 58 JMP L1F3E: 1F3E: 86 LDP #$6 1F3F: AA LDA $A 1F40: EB LSR L1F41: 1F41: EB LSR 1F42: EB LSR 1F43: EB LSR 1F44: EB LSR 1F45: 82 LDP #$2 1F46: 6E ADD $E 1F47: E6 STA [i] L1F48: 1F48: 82 LDP #$2 1F49: A3 LDA $3 1F4A: EB LSR 1F4B: 4C 6F LDJ &L1F6C 1F4D: 5E JA0 1F4E: EB LSR 1F4F: 4F 5F LDJ &L1F5F 1F51: 5E JA0 1F52: 00 CLR 1F53: 20 23 ADD #$23 1F55: D4 STA $4 1F56: AE LDA $E 1F57: 2C ADD #$C 1F58: E6 STA [i] 1F59: 05 LDA #$500 1F5A: 20 39 ADD #$39 ; &L1539 ??? 1F5C: 43 8F LDJ &L1F83 1F5E: 58 JMP L1F5F: 1F5F: 00 CLR 1F60: 20 17 ADD #$17 1F62: D4 STA $4 1F63: AE LDA $E 1F64: 28 ADD #$8 1F65: E6 STA [i] 1F66: 05 LDA #$500 1F67: 20 03 ADD #$03 1F69: 43 8F LDJ &L1F83 1F6B: 58 JMP L1F6C: 1F6C: EB LSR 1F6D: 4D 7F LDJ &L1F7D 1F6F: 5E JA0 1F70: 00 CLR 1F71: 20 11 ADD #$11 1F73: D4 STA $4 1F74: AE LDA $E 1F75: 24 ADD #$4 1F76: E6 STA [i] 1F77: 04 LDA #$400 1F78: 20 C7 ADD #$C7 1F7A: 43 8F LDJ &L1F83 1F7C: 58 JMP L1F7D: 1F7D: 00 CLR 1F7E: 27 ADD #$7 1F7F: D4 STA $4 1F80: 04 LDA #$400 1F81: 20 81 ADD #$81 L1F83: 1F83: 83 LDP #$3 1F84: D0 STA $0 1F85: 84 LDP #$4 1F86: D0 STA $0 1F87: 85 LDP #$5 1F88: D0 STA $0 1F89: 00 CLR 1F8A: 86 LDP #$6 1F8B: B9 CMP $9 1F8C: 49 9F LDJ &L1F99 1F8E: 5C JEQ 1F8F: 20 10 ADD #$10 1F91: 86 LDP #$6 1F92: BA CMP $A 1F93: 5D JNC ; L1F99 1F94: EA LDA [i] 1F95: EC LSL 1F96: 2F ADD #$F 1F97: 82 LDP #$2 1F98: DE STA $E L1F99: ; Could data in Ram[0x2?] through Ram[0x5?] ; be the data for the 4 ships??? 1F99: 82 LDP #$2 1F9A: AE LDA $E 1F9B: 83 LDP #$3 1F9C: D6 STA $6 1F9D: 84 LDP #$4 1F9E: D6 STA $6 1F9F: 85 LDP #$5 1FA0: D6 STA $6 1FA1: 0C LDA #$C00 1FA2: 20 7E ADD #$7E 1FA4: 82 LDP #$2 1FA5: DE STA $E 1FA6: 00 CLR 1FA7: 27 ADD #$7 1FA8: 82 LDP #$2 1FA9: B2 CMP $2 1FAA: E9 AND [i] 1FAB: EC LSL 1FAC: 82 LDP #$2 1FAD: 6E ADD $E 1FAE: E6 STA [i] 1FAF: 21 ADD #$1 1FB0: E2 XLT 1FB1: 5F NOP 1FB2: D5 STA $5 1FB3: 57 USB 1FB4: EA LDA [i] 1FB5: AE LDA $E 1FB6: E2 XLT 1FB7: 5F NOP 1FB8: E6 STA [i] 1FB9: 00 CLR 1FBA: EE ASRD 1FBB: EE ASRD 1FBC: EE ASRD 1FBD: EE ASRD 1FBE: E7 ADD [i] 1FBF: D5 STA $5 1FC0: 00 CLR 1FC1: 27 ADD #$7 1FC2: D0 STA $0 1FC3: 81 LDP #$1 1FC4: BF CMP $F L1FC5: ; this is the end of a HUGE procedure at L1DC0 which was originally called ; from the first rom bank, and had the return address stored in Ram[0x1f] ; if I remember rightly. It is called fom 02EC (and possibly other ; places?) and the 1FC5: E1 LDJ [i] 1FC6: 81 LDP #$1 1FC7: 50 JPPB ; RETURN TO OTHER ROM BANK ; END OF PROGRAM! ; ---------------------------------------------------------------- ; left-over rom space, or perhaps data... L1FC8: 00001fc0: e2 ff 10 40 08 08 41 02 : .'.....P...@..A. 00001fd0: 00 82 42 48 09 09 20 42 21 01 20 08 22 12 11 10 : ..BH.. B!. ."... L1FE0: 00001fe0: 10 88 42 48 49 24 24 92 : BI$BI .$ L1FE8: 42 49 24 42 49 20 84 24 : ..BHI$$. 00001ff0: 84 10 92 09 10 92 48 49 09 20 82 44 04 24 90 90 : ......HI. .D.$..