mirror of https://github.com/a2-4am/4cade.git
71 lines
1.6 KiB
Plaintext
71 lines
1.6 KiB
Plaintext
;license:MIT
|
|
;(c) 2021-2022 by Frank M., qkumba
|
|
|
|
!cpu 6502
|
|
!to "build/DEMO/APPLE.INVADER#060200",plain
|
|
*=$200
|
|
|
|
!source "src/constants.a" ; no code in these
|
|
!source "src/macros.a"
|
|
|
|
+GAME_REQUIRES_JOYSTICK
|
|
|
|
lda $7fe
|
|
pha
|
|
+ENABLE_ACCEL_LC
|
|
pla
|
|
sta $7fe ; overwritten by GS acceleration
|
|
|
|
+LOAD_XSINGLE title
|
|
|
|
lda #$60
|
|
sta $6020
|
|
jsr $6002 ; decompress
|
|
|
|
ldx #$D8 ; move location from $3F2 to $3D8
|
|
stx $1113 ; (program uses reset vector for storage)
|
|
stx $1245
|
|
stx $4A2C
|
|
stx $4A34
|
|
stx $4A41
|
|
stx $5A9C
|
|
stx $5AA4
|
|
stx $5AB1
|
|
stx $5A9C
|
|
inx ; move location from $3F3 to $3D9
|
|
stx $1FA0
|
|
stx $4A31
|
|
stx $4F4D
|
|
stx $5AA1
|
|
inx ; move location from $3F4 to $3DA
|
|
stx $11AF
|
|
stx $1824
|
|
stx $19DF
|
|
stx $1DE8
|
|
stx $1E5A ; reset vector fix
|
|
|
|
lda #$4C
|
|
sta $46C0
|
|
ldx #0
|
|
stx $46C0+1
|
|
stx $4A96 ; (moved to $1E37+1)
|
|
inx
|
|
stx $46C0+2 ; exit on keypress
|
|
stx $4A9B ; exit at end of demo loop (moved to $1E37+2)
|
|
|
|
lda $7fe
|
|
pha
|
|
+DISABLE_ACCEL
|
|
pla
|
|
sta $7fe ; overwritten by GS acceleration
|
|
|
|
jmp $5F00
|
|
|
|
title !byte x_e-x_b
|
|
x_b !text "APPLE.INVADER"
|
|
x_e
|
|
|
|
!if * > $300 {
|
|
!error "code is too large, ends at ", *
|
|
}
|