diff --git a/res/DEMO/BK b/res/DEMO/BK index 4d6ba2f75..6ea91b0e6 100755 Binary files a/res/DEMO/BK and b/res/DEMO/BK differ diff --git a/res/DEMO/KAMUNGAS.1 b/res/DEMO/KAMUNGAS.1 deleted file mode 100755 index 5a6779ae4..000000000 Binary files a/res/DEMO/KAMUNGAS.1 and /dev/null differ diff --git a/res/DEMO/KAMUNGAS.HI b/res/DEMO/KAMUNGAS.HI deleted file mode 100755 index c87aafd3f..000000000 Binary files a/res/DEMO/KAMUNGAS.HI and /dev/null differ diff --git a/res/DEMO/_FileInformation.txt b/res/DEMO/_FileInformation.txt index 34e401b86..e6c252853 100644 --- a/res/DEMO/_FileInformation.txt +++ b/res/DEMO/_FileInformation.txt @@ -14,7 +14,7 @@ BEER.RUN=Type(06),AuxType(0300),Access(C3) BELLHOP=Type(06),AuxType(3FFD),Access(C3) BB=Type(06),AuxType(0300),Access(C3) BOLO=Type(06),AuxType(0300),Access(C3) -BK=Type(06),AuxType(0300),Access(C3) +BK=Type(06),AuxType(A800),Access(C3) BU=Type(06),AuxType(0300),Access(C3) BUZZARD.BAIT=Type(06),AuxType(0300),Access(C3) CB=Type(06),AuxType(3000),Access(C3) @@ -78,8 +78,6 @@ JUNGLE.HUNT.H=Type(F1),AuxType(7700),Access(C3) JUNGLE.HUNT.J=Type(F1),AuxType(0000),Access(C3) KARATEKA=Type(06),AuxType(0300),Access(C3) KARATEKA.1=Type(F1),AuxType(0000),Access(C3) -KAMUNGAS.1=Type(F1),AuxType(0000),Access(C3) -KAMUNGAS.HI=Type(F1),AuxType(0000),Access(C3) LABYRINTH=Type(06),AuxType(0310),Access(C3) LADY.TUT=Type(06),AuxType(0300),Access(C3) LADY.TUT.1=Type(F1),AuxType(0000),Access(C3) diff --git a/src/demo/bouncing.kmngas.a b/src/demo/bouncing.kmngas.a new file mode 100644 index 000000000..aa0f047ec --- /dev/null +++ b/src/demo/bouncing.kmngas.a @@ -0,0 +1,82 @@ +;license:MIT +;(c) 2021 by Frank M. + +!cpu 6502 +!to "res/DEMO/BK",plain +*=$A800 + + !source "src/constants.a" ; no code in these + !source "src/macros.a" + + +READ_RAM2_WRITE_RAM2 + jsr EnableAccelerator + +;+LOAD_FILE_KEEP_DIR + ldx #0 ; read to main memory + stx ldrhi + stx ldrlo + +LDADDR title + jsr iLoadFileDirect + + ldx #5-1 ; we also need to copy the length byte +- lda newpath,x + sta $BFD0,x + dex + bpl - + + lda #$60 + sta $52DB + jsr $527C ; decompress 1 + + lda #$4C + sta $1B50 + lda #0 + sta $1B50+1 + lda #1 + sta $1B50+2 ; set exit + + lda #$D0 + sta $1D00 + sta $1D09 + sta $1BB6 ; disable sound + + +DISABLE_ACCEL + + jsr $8d4 ; show title + + lda #$60 + sta $BD40 + jsr $BD20 ; decompress 2 + + lda #$4C + sta $7215 + jsr $7200 ; setup for second title + + +RESET_AND_IRQ_VECTOR $100 + + lda #$4C + sta $7513 + sta $73BA + sta $7242 + lda #0 + sta $7513+1 + sta $73BA+1 + sta $7242+1 + lda #1 + sta $7513+2 + sta $73BA+2 + sta $7242+2 ; set exits + + jmp $7218 ; show second title + +newpath + !byte 4 + !text "X/BK" + +title !byte x_e-x_b +x_b !text "X/BK/BK" +x_e + +!if * > $A900 { + !error "code is too large, ends at ", * +}