.title "Quest Forge test" ;12/13/2016 ;Written by BS ;Version 1.0 ;vectors for standard system calls send_byte: .equ 0200h baton: .equ 0203h wr_ppu: .equ 020ch temp1: .equ 00e0h temp1_lo: .equ 00e0h temp1_hi: .equ 00e1h temp2: .equ 00e2h temp2_lo: .equ 00e2h temp2_hi: .equ 00e3h temp3: .equ 00e4h temp3_lo: .equ 00e4h temp3_hi: .equ 00e5h ;plugin header that describes what it does .org 0380h .db "Quest Forge on " .db " Pocketgames board ",0 .fill 0400h-*,00h ;all plugins must reside at 400h start: lda #000h jsr send_byte ; mirroring ; PRG lda #080h jsr send_byte lda #0 jsr send_byte lda #001h jsr send_byte ; magic steps for preparing PRG lda #000h sta 0A000h lda #0C1h sta 06000h lda #080h sta 06001h lda #000h sta 06002h lda #000h sta 06003h lda #006h sta 08000h lda #00Ch sta 08001h lda #007h sta 08000h lda #00Dh sta 08001h lda #0C0h sta 06000h lda #082h sta 06001h lda #000h sta 06002h ;lda #090h lda #010h ; 090h is coolboy lockout? sta 06003h ; dump ldx #080h jsr dump_8000 ; CHR lda #020h jsr send_byte lda #000h jsr send_byte lda #002h jsr send_byte ; magic steps for preparing CHR lda #000h sta 0A000h lda #0C1h sta 06000h lda #080h sta 06001h lda #000h sta 06002h lda #000h sta 06003h lda #006h sta 08000h lda #000h sta 08001h ; dump ldx #020h jsr dump_8000 ; end lda #0 jsr send_byte lda #0 jsr send_byte lda #0 jsr send_byte rts dump_8000: ; X = 256 byte pages to dump lda #000h sta temp1_lo lda #080h sta temp1_hi ldy #0 dump_it: lda (temp1), y jsr send_byte iny bne dump_it jsr baton inc temp1_hi dex bne dump_it rts .fill 0800h-*,0ffh ;fill rest to get 1K of data .end