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 ; P=$C ; 01D0: 5D JNC ; 01D1: 07 LDA #$700 ; 01D2: C2 LDI $2 ; 01D3: E8 SUB [i] ; 01D4: 5D JNC ; L020F P=$C ; 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 ; P=$C ; 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: ; ASSERT: P=$C ; 020F: 00 CLR ; 0210: 20 3F ADD #$3F ; 0212: B7 CMP $7 ; 0213: E9 AND [i] ; 0214: 22 ADD #$2 ; 0215: E6 STA [i] ; Ram[0xC7] = (Ram[0xC7]&0x3F)+2 ; 0216: 02 LDA #$200 ; 0217: 20 74 ADD #$74 ; &L0274 - data ; 0219: 67 ADD $7 ; 021A: D5 STA $5 ; Ram[0xC5] = &L0274 + Ram[0xC7] ; 021B: 21 ADD #$1 ; 021C: E2 XLT ; 021D: 5F NOP ; A = Rom[Ram[0xC5]+1] ; 021E: 30 80 SUB #$80 ; A = A - 0x80 ; 0220: EC LSL ; 0221: EC LSL ; 0222: EC LSL ; A = A << 3 ; 0223: D6 STA $6 ; Ram[0xC6] = A ; 0224: A5 LDA $5 ; 0225: E2 XLT ; 0226: 5F NOP ; A = Rom[Ram[0xC5]] ; 0227: 30 80 SUB #$80 ; A = A - 0x80 ; 0229: EC LSL ; 022A: EC LSL ; 022B: EC LSL ; A = A << 3 ; 022C: E6 STA [i] ; Ram[0xC5] = A ; 022D: A0 LDA $0 ; 022E: 21 ADD #$1 ; 022F: E6 STA [i] ; Ram[0xC0] = Ram[0xC0]+1 ; 0230: E2 XLT ; 0231: 5F NOP ; A = Rom[Ram[0xC0]] ; 0232: E7 ADD [i] ; A = A + Ram[0xC0] ; 0233: E2 XLT ; A = Rom[A] ; 0234: 5F NOP ; 0235: E7 ADD [i] ; 0236: D3 STA $3 ; Ram[0xC3] = A + Ram[0xC0] ; 0237: 00 CLR ; 0238: 20 7F ADD #$7F ; 023A: E9 AND [i] ; 023B: E6 STA [i] ; A = Ram[0xC3] = Ram[0xC3] & 0x7F ; 023C: EB LSR ; A = A >> 1 ; 023D: 43 42 LDJ &L0243 ; 023F: 5E JA0 ; if (A&1 != 0) goto L0243 ; 0240: 00 CLR ; 0241: E8 SUB [i] ; 0242: E6 STA [i] ; Ram[0xC3] = -Ram[0xC3] 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: b0 b0 be dc 04 ae 61 24 61 dc fc 97 80 24 80 dc 04 80 fc dc be 24 23 24 23 dc fc 80 9f 24 dd dc 04 52 42 dc dd 24 04 3b fc 52 04 dc 42 24 9f dc fc 69 04 97 fc ae 04 69 fc c5 04 24 fc 24 04 c5 fc 3b ; 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 ; ---------------------------------------------------------------- ; vector DATA block L03CD: ; shields pattern! c0 a0 e0 80 80 20 20 80 40 a0 80 60 c0 20 e0 40 80 a0 20 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, or code? L0617: ; this is the cross-hair cursor! 9e 80 ff 94 76 94 8a ff 8a 94 76 94 ff 80 9e 80 62 ff 8a 6c 76 6c ff 6c 76 6c 8a ff 7b 8a 85 8a ff 8a 85 8a 7b ff 85 76 7b 76 ff 76 7b 76 85 ff ff ; end of data 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: e2 ff 0d ca 30 09 36 20 23 c3 26 09 0e 04 fe 2e c2 4b 09 21 65 00 cd d7 0b fe 0d ca 4b 09 77 23 0d ca a5 0b c3 3a 09 0d ca 55 09 36 20 23 c3 4b 09 36 00 c3 fe 06 cd 41 08 cd 57 08 da fe 06 0a 03 77 23 c3 5d 09 21 65 00 7e fe 48 c0 23 7e fe 45 c0 23 7e fe 58 c9 eb 2a 81 0f 7d 93 7c 9a eb c9 cd 7b 09 d0 22 81 0f c9 e5 21 00 00 cd 7b 09 e1 c9 cd 8a 0c 21 00 00 ca a6 09 3d c2 a5 0b cd 60 0c e5 cd 6b 07 fe ff ca a5 0b cd 6a 09 ca db 09 e1 11 00 01 19 e5 11 5c 00 0e 14 cd a2 06 e1 b7 c2 40 0a 11 80 00 0e 80 1a 13 77 23 0d c2 cd 09 cd 85 09 c3 ba 09 cd 6e 0b fe 1a ca a5 0b de 3a c2 db 09 57 e1 e5 cd 20 0a 5f cd 20 0a f5 cd 20 0a c1 4f 09 7b b7 c2 06 0a 60 69 22 b3 0f c3 40 0a cd 20 0a cd 20 0a 77 23 1d c2 09 0a cd 20 0a f5 cd 85 09 f1 c2 a5 0b c3 db 09 c5 e5 d5 cd 6e 0b cd 53 0c 07 07 07 07 e6 f0 f5 cd 6e 0b cd 53 0c c1 b0 47 d1 82 57 78 e1 c1 c9 0e 0c cd a2 06 21 69 0a 7e b7 ca 54 0a cd c1 0b 23 c3 48 0a cd 0f 0c 2a 81 0f cd 28 0c cd bf 0b 2a b3 0f cd 28 0c c3 fe 06 EQUS "\r\nNEXT PC" EQUB 0 cd 8a 0c 3d c2 a5 0b cd 60 0c cd 0f 0c e5 cd 28 0c cd bf 0b e1 7e e5 cd ff 0b cd bf 0b cd b0 0b cd d7 0b e1 fe 0d ca b5 0a fe 2e ca fe 06 e5 cd 8d 0c 3d c2 a5 0b cd 60 0c 7c b7 c2 a5 0b 7d e1 77 23 c3 7e 0a af c3 bf 0a 3e ff 32 46 0f cd 8a 0c 21 00 00 ca d8 0a 3d c2 a5 0b cd 60 0c 7d b4 ca a5 0b 2b 22 47 0f cd 3e 0d c3 85 08 cd d7 0b fe 0d c2 ef 0a cd 3e 0d c3 fe 06 01 0b 00 21 ad 0d be ca 02 0b 23 04 0d c2 f5 0a c3 a5 0b cd d7 0b fe 0d c2 a5 0b c5 cd 0f 0c cd 14 0d cd bf 0b cd b0 0b cd 8a 0c b7 ca fe 06 3d c2 a5 0b cd 60 0c c1 78 fe 05 d2 53 0b 7c b7 c2 a5 0b 7d fe 02 d2 a5 0b cd dd 0c 67 41 3e fe cd 4d 0b a4 41 67 7d cd 4d 0b b4 12 c3 fe 06 05 c8 07 c3 4d 0b c2 63 0b 7c b7 c2 a5 0b 7d 21 ae 0f 77 c3 fe 06 e5 cd fb 0c d1 73 23 72 c3 fe 06 e5 d5 c5 3a 5b 00 e6 7f ca 8e 0b 16 00 5f 21 80 00 19 7e fe 1a ca a0 0b 21 5b 00 34 b7 c3 a1 0b 0e 14 11 5c 00 cd a2 06 b7 c2 a0 0b 32 5b 00 c3 79 0b 37 c1 d1 e1 c9 cd 0f 0c 3e 3f cd c1 0b c3 fe 06 0e 0a 11 5f 0f cd a2 06 21 61 0f 22 5d 0f c9 3e 20 e5 d5 c5 5f 0e 02 cd a2 06 c1 d1 e1 c9 fe 7f c8 fe 61 d8 e6 5f c9 e5 21 60 0f 7e b7 3e 0d ca ee 0b 35 2a 5d 0f 7e 23 22 5d 0f cd ce 0b e1 c9 fe 0a d2 fa 0b c6 30 c3 c1 0b c6 37 c3 c1 0b f5 ; 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 VECTOR DATA L1481: b1 04 6c 82 94 6c 82 c6 62 8c c6 62 8c 94 62 74 58 80 74 3a 9e 74 58 94 82 94 9e 8c 94 9e 8c c6 94 82 c6 80 82 a8 6c 82 6c 80 82 58 94 82 6c ff 01 12 23 30 04 45 56 67 78 89 9a a7 7b b0 0c c4 cd d5 de e6 e7 ff ee 04 80 80 62 3a 64 c6 6c 7c c6 94 7c c6 c6 64 c6 6c 80 4e 80 80 3a 94 80 4e 80 94 4e 80 6c 4e 76 86 c6 8a 86 c6 ff 01 12 23 34 40 05 56 67 70 08 86 69 90 02 2a ab b3 30 0a b0 ff 27 05 80 78 62 9e 78 80 80 78 9e 62 78 80 80 8a 80 80 8a c6 80 9e c6 9e 6e c6 b2 64 c6 62 6e c6 4e 64 c6 ff 01 12 23 30 04 42 25 56 62 27 78 82 29 9a a2 34 41 ff 5d 05 80 80 80 44 86 be 6c 76 be 94 76 be bc 86 be 80 6c 6c 6c 80 58 70 86 62 94 80 58 90 86 62 80 80 44 ff 01 12 23 34 40 02 25 53 30 06 67 70 05 56 68 80 09 98 85 5a a6 79 8a ff ; 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] ; print high digits of score: ; 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] ; print low digit of score: ; 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 ; print shields value number in center of screen ; 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 ; display number of ships that have got by you (top right hand side) ; 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 ; cannot see what this does (removing it seems to make no difference) ; 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 ; can't see what this one does either ; 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 ; print the number of credits we have available (done after inserting coin) ; 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 ; This is vector data. The first block for sure contains the drawing ; of the words "tail gunner" which rotate during the intro screen. L1A1B: ; outer rectangle 47 9b 80 b9 9b 80 b9 65 80 47 65 80 ; inner rectangle 3f a3 80 c1 a3 80 c1 5d 80 3f 5d 80 ff L1A34: ff 01 12 23 30 45 56 67 74 ff ; TAIL GUNNER 5d 95 80 6d 95 80 65 95 80 65 83 80 71 83 80 77 95 80 7d 83 80 74 8c 80 7a 8c 80 89 83 80 89 95 80 95 95 80 95 83 80 a1 83 80 a7 7d 80 a7 6b 80 ff ff 01 23 45 56 78 9a bc cd ef ff L1A7A: a7 7d 80 b3 7d 80 b3 74 80 b0 74 80 b3 6b 80 a7 74 80 a1 6b 80 95 6b 80 95 7d 80 a1 7d 80 9b 74 80 95 74 80 8f 7d 80 8f 6b 80 83 7d 80 83 6b 80 ff ff 01 12 34 25 67 78 89 ab cd de ef ff L1AB8: 7d 7d 80 7d 6b 80 71 7d 80 71 6b 80 6b 7d 80 6b 6b 80 5f 6b 80 5f 7d 80 5c 72 80 56 72 80 59 72 80 59 6b 80 4d 6b 80 4d 7d 80 59 7d 80 ff ff 01 12 23 45 56 67 89 ab bc cd de ff ; end of data block ; General printing routine. RETURN ADDRESS IS IN Ram[0x00] ; Handles strings and binary integers. ; Address of string is 1 greater than Ram[0x05] ; I suspect $3 and $4 are X and Y? L1AF3: ; Start with X and Y ; 1AF3: A3 LDA $3 ; 1AF4: 57 USB ; 1AF5: A4 LDA $4 ; and let's just move there, and forget about them after that... 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 ; moved to correct position to print ; 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 ; 1C29 is nowhere significant in the rom ; 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 ; nibble*2, to index pairs of bytes ; 1B8A: 0B LDA #$B00 ; 1B8B: 20 D2 ADD #$D2 ; &L1BD2 X/Y table for char segments ; 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: ; These are the X/Y coordinates of the points from the grid scheme below 00 00 ; 0 04 00 ; 1 08 00 ; 2 0c 00 ; 3 10 00 ; 4 00 0c ; 5 04 0c ; 6 08 0c ; 7 0c 0c ; 8 10 0c ; 9 00 18 ; A 04 18 ; B 08 18 ; C 0c 18 ; D 10 18 ; E L1BF0: 74 L1BF1: ; This is a great encoding scheme. Each nibble is a whole x/y co-ord. ; This is the grid... ; ; ; A B C D E ; ; ; 5 6 7 8 9 ; ; ; 0 1 2 3 4 ; ; ; You simply join the dots to form a letter. Each byte is treated ; as 'move to the first co-ord and draw a line to the second' ; I have no idea why the strange ordering... ; SCORE / HIGH SCORE / PUSH START / CREDITS / 0123456789 ; Missing: I = 1, 4, CDFHLPQU - maybe F/L/Q/U aren't needed, but the rest are ; so where are 14CDHP ??? ae e4 40 0a ff /* 0 */ ae e9 95 50 04 ff /* 2 */ 04 79 4e ea ff /* 3 */ 04 49 95 5a ae ff /* 5 */ 59 94 40 0a ff /* 6 */ 2e ea ff /* 7 */ /* 8 = B */ 04 ae 59 e4 a0 ff /* A */ ea a5 59 e4 ff /* 9 */ 69 04 4e ea b1 ff /* B */ 40 0a 57 ae ff /* E */ 79 94 40 0a ae ff /* G */ 50 03 3d be ff /* J */ 0a e5 54 ff /* K */ 0a a7 7e e4 ff /* M */ 0a a4 4e ff /* N */ 48 59 9e ea a0 ff /* R */ /* S = 5 */ ae c2 ff /* T */ a2 2e ff /* V */ a1 17 73 3e ff /* W */ 0e a4 ff /* X */ 27 7a 7e ff /* Y */ ae e0 04 ff /* Z */ 01 54 06 0c 26 11 17 1c 1f 25 20 2a 37 2b 30 31 35 21 54 3b 40 03 44 49 01 4e 00 4d 11 53 02 56 59 5e 61 65 68 8e 0c a2 0c b6 0c d4 0c f2 0c 2e 0d 06 0d 42 0d 00 e0 80 e0 20 80 20 20 80 21 00 0c 00 f4 f4 00 0c f4 00 ff e5 e5 a0 e5 1b a0 17 00 a0 25 0e f2 00 0e 0e 00 f5 00 00 ff 00 00 c0 00 29 c0 00 d7 c0 17 00 f5 80 00 0b 80 00 ea 80 16 00 00 00 08 00 00 f8 00 00 ff 00 21 a0 00 00 a0 00 df a0 17 f5 00 70 0b 00 70 00 00 70 17 f8 f8 00 08 f8 00 00 08 00 ff 00 18 c0 db db c0 25 db c0 11 ec ec a0 14 ec a0 00 18 a0 11 14 ec 80 00 18 80 ec ec 80 11 00 0c 60 f6 f6 60 0a f6 60 11 f8 f8 40 08 f8 40 00 08 40 11 08 f8 00 00 08 00 f8 f8 00 ff 00 18 c0 d7 d7 c0 29 d7 c0 11 14 ec a0 00 18 a0 ec ec a0 11 ec ec 80 14 ec 80 00 18 80 11 00 0c 60 f6 f6 60 0a f6 60 11 08 f8 40 00 0a 40 f8 f8 40 11 f8 f8 00 08 f8 00 00 08 00 ff e2 ff ; Code *MAY* begin again at 1D6C to 1DAA inclusive??? L1D6C: d2 80 0d 2a 00 20 1a 93 eb 90 eb 91 eb 92 eb 94 eb 94 00 20 14 93 eb 90 eb 91 eb 92 eb 94 eb 94 00 20 1c 93 eb 90 eb 91 eb 92 eb 94 eb 94 00 20 18 93 eb 90 eb 91 eb 92 eb 94 eb 94 45 00 58 ; 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.$..