4cade/src/demo/wavy.navy.a

39 lines
780 B
Plaintext

;license:MIT
;(c) 2021 by qkumba
!cpu 6502
!to "res/DEMO/WAVY.NAVY",plain
*=$300
!source "src/constants.a" ; no code in these
!source "src/macros.a"
+READ_RAM2_WRITE_RAM2
jsr EnableAccelerator
+LOAD_FILE_AT wavy_navy, $800
lda #$60
sta $505d
jsr $800 ; decompress
ldx #5
- lda patch, x
sta $09E8, x
sta $1547, x
dex
bpl -
inx
stx $6B22
stx $084C
jsr DisableAccelerator
+READ_ROM_NO_WRITE
jmp $800
wavy_navy
!byte 21
!text "X/WAVY.NAVY/WAVY.NAVY"
patch !byte $AD,$88,$C0,$6C,$FC,$FF
!if * > $3F0 {
!error "code is too large, ends at ", *
}