convert Conan demo, save 40kb

This commit is contained in:
Peter Ferrie 2022-05-05 13:56:14 -07:00
parent c62201653c
commit b1b5dbcdb5
5 changed files with 64 additions and 2 deletions

Binary file not shown.

Binary file not shown.

View File

@ -25,7 +25,6 @@ CEILING.ZERO.1=Type(F1),AuxType(0000),Access(C3)
CL=Type(06),AuxType(0200),Access(C3)
CHOPLIFTER=Type(06),AuxType(0300),Access(C3)
CONAN=Type(06),AuxType(0300),Access(C3)
CONAN.1=Type(F1),AuxType(0000),Access(C3)
CRIME.WAVE=Type(06),AuxType(BE00),Access(C3)
CYCLOD=Type(06),AuxType(0300),Access(C3)
DIG.DUG=Type(06),AuxType(0300),Access(C3)

63
src/demo/conan.a Normal file
View File

@ -0,0 +1,63 @@
;license:MIT
;(c) 2022 by qkumba
!cpu 6502
!to "res/DEMO/CONAN",plain
*=$200
!source "src/constants.a" ; no code in these
!source "src/macros.a"
+READ_RAM2_WRITE_RAM2
jsr EnableAccelerator
+LOAD_FILE_KEEP_DIR conan, conan_dir_e-conan_dir_b
lda #$60
sta $81E
jsr $800 ; decompress
lda #$60
sta $BD40
jsr $BCCF
lda #$4C
sta $7C2C
jsr $5FF8 ; decompress
sta $80F6
jsr $826
lda #$60
sta $6BA2
jsr $3FFC ; decompress
jsr $BE00 ; decompress more
lda #$60
sta $1094
lda #$6C
sta $BD40
jsr $6BA5
lda #$4C
sta $A4E2
sta $A4D3
ldx #0
stx $A4E3
stx $A4D4
stx $A0D5
inx
stx $A4E4
stx $A4D5
stx $A0D6
lda $C057
lda $C052
lda $C050
+DISABLE_ACCEL
jmp $A000
conan
!byte conan_e-conan_b
conan_b
conan_dir_b
!text "X/CONAN"
conan_dir_e
conan_main
!text "/"
conan_main_b
!text "CONAN"
conan_e
!text ".MAIN"
conan_main_e

View File

@ -430,7 +430,7 @@ traverse
tay
- inx
dey
bmi @go ; no '/', just do the read
beq @go ; no '/', just do the read
lda (namlo), y
cmp #'/'
bne -