ORG $0000 rom: FCC "g GCE 1986" : FDB $80 FDB music ; address of music table FCB $f8, $50 ; h,w of raster message FCB $40, $e8 ; y,x of raster message FCC "ETCH" : FCB $80 FCB $f8, $50 ; h,w of raster message FCB $18, $f8 ; y,x of raster message FCC "A " : FCB $80 FCB $f8, $50 ; h,w of raster message FCB $f0, $e0 ; y,x of raster message FCC "SKETCH" : FCB $80 FCB $00 ; end of header start: BRA L0067 ; 0029: 20 3C L002B: LDB #$14 ; 002B: C6 14 LDY DC8FE ; 002D: 10 BE C8 FE LEAY B,Y ; 0031: 31 A5 L0033: LDA ,-Y ; 0033: A6 A2 STA $03,Y ; 0035: A7 23 DECB ; 0037: 5A BNE L0033 ; 0038: 26 F9 LDA ,X+ ; 003A: A6 80 STA ,Y+ ; 003C: A7 A0 LDA ,X+ ; 003E: A6 80 STA ,Y+ ; 0040: A7 A0 LDA ,X+ ; 0042: A6 80 STA ,Y+ ; 0044: A7 A0 STY DC8FE ; 0046: 10 BF C8 FE RTS ; 004A: 39 L004B: LDA ,X ; 004B: A6 84 BGT L0066 ; 004D: 2E 17 PSHS B ; 004F: 34 04 JSR Intensity_5F ; 0051: BD F2 A5 PULS B ; 0054: 35 04 LDA #$CE ; 0056: 86 CE STA VIA_cntl ; 0058: B7 D0 0C PSHS B ; 005B: 34 04 JSR Draw_VLp_b ; 005D: BD F4 0E PULS B ; 0060: 35 04 LDA ,X+ ; 0062: A6 80 BGT L004B ; 0064: 2E E5 L0066: RTS ; 0066: 39 L0067: LDD #$0300 ; 0067: CC 03 00 STD DC8FE ; 006A: FD C8 FE C8FE:C8FF STD DC8FC ; 006D: FD C8 FC C8FC:C8FD LDA #$01 ; 0070: 86 01 STA Vec_0Ref_Enable ; 0072: B7 C8 24 STA $0300 ; 0075: B7 03 00 WHAT??? STA $0301 ; 0078: B7 03 01 0300 is in cartridge rom space... LDX #D015D ; 007B: 8E 01 5D JSR L002B ; 007E: BD 00 2B JSR L002B ; 0081: BD 00 2B JSR L002B ; 0084: BD 00 2B JSR L002B ; 0087: BD 00 2B JSR L002B ; 008A: BD 00 2B JSR L002B ; 008D: BD 00 2B LDD #$0300 ; 0090: CC 03 00 Is this the same 0300 ref'd above? STD DC8FE ; 0093: FD C8 FE #$0300 -> c8fe:c8ff LDD #$3075 ; 0096: CC 30 75 STD Vec_Rfrsh ; 0099: FD C8 3D SETDP $D0 JSR DP_to_D0 ; 009C: BD F1 AA STD D008:D009 L00A1: JSR Wait_Recal ; 00A1: BD F1 92 LDB #$A0 ; 00A4: C6 A0 LDX #$0300 ; 00A6: 8E 03 00 JSR L004B ; 00A9: BD 00 4B JSR Reset0Ref ; 00AC: BD F3 54 LDU #D0171 ; 00AF: CE 01 71 JSR Print_List_hw ; 00B2: BD F3 85 LDA #$00 ; 00B5: 86 00 STA Vec_Joy_Mux_2_X ; 00B7: B7 C8 21 STA Vec_Joy_Mux_2_Y ; 00BA: B7 C8 22 LDA #$01 ; 00BD: 86 01 STA Vec_Joy_Mux ; 00BF: B7 C8 1F LDA #$03 ; 00C2: 86 03 STA Vec_Joy_Mux_1_Y ; 00C4: B7 C8 20 LDA #$FF ; 00C7: 86 FF STA Vec_Misc_Count ; 00C9: B7 C8 23 LDA #$00 ; 00CC: 86 00 STA Vec_Joy_Resltn ; 00CE: B7 C8 1A JSR Joy_Digital ; 00D1: BD F1 F8 LDA Vec_Joy_1_X ; 00D4: B6 C8 1B LDX DC8FE ; 00D7: BE C8 FE STA $02,X ; 00DA: A7 02 LDA Vec_Joy_1_Y ; 00DC: B6 C8 1C STA $01,X ; 00DF: A7 01 LDA #$FF ; 00E1: 86 FF JSR Read_Btns_Mask ; 00E3: BD F1 B4 LDA Vec_Button_1_1 ; 00E6: B6 C8 12 BNE L013B ; 00E9: 26 50 LDA Vec_Button_1_2 ; 00EB: B6 C8 13 BNE L0115 ; 00EE: 26 25 LDB #$00 ; 00F0: C6 00 LDA Vec_Button_1_3 ; 00F2: B6 C8 14 BNE L00FE ; 00F5: 26 07 LDB #$FF ; 00F7: C6 FF LDA Vec_Button_1_4 ; 00F9: B6 C8 15 BEQ L00A1 ; 00FC: 27 A3 L00FE: LDA Vec_Joy_1_X ; 00FE: B6 C8 1B STA DC8FB ; 0101: B7 C8 FB LDA Vec_Joy_1_Y ; 0104: B6 C8 1C STA DC8FA ; 0107: B7 C8 FA STB DC8F9 ; 010A: F7 C8 F9 LDX #DC8F9 ; 010D: 8E C8 F9 JSR L002B ; 0110: BD 00 2B BRA L00A1 ; 0113: 20 8C L0115: LDB #$14 ; 0115: C6 14 LDY DC8FE ; 0117: 10 BE C8 FE CMPY DC8FC ; 011B: 10 BC C8 FC LBEQ L00A1 ; 011F: 10 27 FF 7E LEAY B,Y ; 0123: 31 A5 L0125: LDA ,-Y ; 0125: A6 A2 STA $01,Y ; 0127: A7 21 DECB ; 0129: 5A BNE L0125 ; 012A: 26 F9 LDA #$01 ; 012C: 86 01 STA ,Y+ ; 012E: A7 A0 STY DC8FE ; 0130: 10 BF C8 FE STY DC8FC ; 0134: 10 BF C8 FC JMP L00A1 ; 0138: 7E 00 A1 L013B: LDB #$16 ; 013B: C6 16 LDY DC8FE ; 013D: 10 BE C8 FE CMPY DC8FC ; 0141: 10 BC C8 FC LBEQ L00A1 ; 0145: 10 27 FF 58 L0149: LDA ,Y+ ; 0149: A6 A0 STA -4,Y ; 014B: A7 3C DECB ; 014D: 5A BNE L0149 ; 014E: 26 F9 LDY DC8FE ; 0150: 10 BE C8 FE LEAY -3,Y ; 0154: 31 3D STY DC8FE ; 0156: 10 BF C8 FE JMP L00A1 ; 015A: 7E 00 A1 D015D: FCB $ff, $00 FCB $00, $00 FCB $0a, $00 FCB $ff, $ec FCB $00, $00 FCB $0a, $f6 FCB $ff, $00 FCB $14, $00 FCB $00, $f6 FCB $01, $01 D0171: ; Print_List_hw FCB $fc, $19, $81, $90 ; height, width, rel y, rel x, string, 0x80 FCC "ERASE" : FCB $80 FCB $fc, $19, $81, $cc FCC "NEW OBJECT" : FCB $80 FCB $fc, $19, $81, $20 FCC "MOVE" : FCB $80 FCB $fc, $19, $81, $48 FCC "LINE" : FCB $80 FCB $00 D019D: FCB $ff, $ff, $ee, $ee, $dd, $dd, $cc, $cc, $bb, $bb, $aa, $aa, $99, $99, $88, $88 music: ; rom header points here FDB D019D FDB $feb6 ;; note ;; duration FCB $09, $0a FCB $0e, $0a FCB $0e, $05 FCB $10, $05 FCB $0e, $05 FCB $0d, $05 FCB $0b, $0a FCB $0b, $0a FCB $0b, $0a FCB $10, $0a FCB $10, $05 FCB $12, $05 FCB $10, $05 FCB $0e, $05 FCB $0d, $0a FCB $09, $0a FCB $09, $0a FCB $12, $0a FCB $12, $05 FCB $13, $05 FCB $12, $05 FCB $10, $05 FCB $0e, $0a FCB $0b, $0a FCB $09, $05 FCB $09, $05 FCB $0b, $0a FCB $10, $0a FCB $0d, $0a FCB $0e, $14 FCB $00, $80 ;; padding? FCB $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ORG $C8FA DC8FA: RMB 2 DC8FC: RMB 2 DC8FE: RMB 2