convert Laser Bounce demo, save 23kb

This commit is contained in:
Peter Ferrie 2022-07-19 16:22:13 -07:00
parent f1a034e309
commit 770b282c93
4 changed files with 61 additions and 1 deletions

Binary file not shown.

Binary file not shown.

View File

@ -49,7 +49,6 @@ KARATEKA.1=Type(F1),AuxType(0000),Access(C3)
LABYRINTH=Type(06),AuxType(0310),Access(C3) LABYRINTH=Type(06),AuxType(0310),Access(C3)
LADY.TUT=Type(06),AuxType(0200),Access(C3) LADY.TUT=Type(06),AuxType(0200),Access(C3)
LASER.BOUNCE=Type(06),AuxType(0300),Access(C3) LASER.BOUNCE=Type(06),AuxType(0300),Access(C3)
LASER.BOUNCE.1=Type(F1),AuxType(0000),Access(C3)
LAZER.SILK=Type(06),AuxType(0300),Access(C3) LAZER.SILK=Type(06),AuxType(0300),Access(C3)
LODE.RUNNER=Type(06),AuxType(0200),Access(C3) LODE.RUNNER=Type(06),AuxType(0200),Access(C3)
LOST.TOMB=Type(06),AuxType(0300),Access(C3) LOST.TOMB=Type(06),AuxType(0300),Access(C3)

61
src/demo/laser.bounce.a Normal file
View File

@ -0,0 +1,61 @@
;license:MIT
;(c) 2022 by qkumba
!cpu 6502
!to "res/DEMO/LASER.BOUNCE",plain
*=$300
!source "src/constants.a" ; no code in these
!source "src/macros.a"
+READ_RAM2_WRITE_RAM2
jsr EnableAccelerator
+LOAD_FILE_AT title, $3E69
lda #$2C
sta $3ECB
lsr $3ECF
lda #$60
sta $3F06
jsr $3E69 ; decompress
sta $743F
sta $7425
sta $888C
lda #$CE
sta $6006
lda #<counter
sta $6007
lda #>counter
sta $6008
lda #$4C
sta $600B
sta $6E41
sta $6E98
ldx #0
stx $600C
stx $6E42
stx $6E99
inx
stx $600D
stx $6E43
stx $6E9A
lda #4
sta $6E2B
lda #$30
sta $6E95
stx $6E96
asl
sta $6E97
sta $6ECC
jsr DisableAccelerator
+READ_ROM_NO_WRITE
jmp $6000
counter !byte 3
title !byte x_e-x_b
x_b !text "X/LASER.BOUNCE/LASER.BOUNCE"
x_e
!if * > $3F0 {
!error "code is too large, ends at ", *
}