diff --git a/res/DEMO/BORG b/res/DEMO/BORG new file mode 100644 index 000000000..261f6d34f Binary files /dev/null and b/res/DEMO/BORG differ diff --git a/res/DEMO/_FileInformation.txt b/res/DEMO/_FileInformation.txt index 58da37d2d..13114933e 100644 --- a/res/DEMO/_FileInformation.txt +++ b/res/DEMO/_FileInformation.txt @@ -16,6 +16,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) +BORG=Type(06),AuxType(0310),Access(C3) BK=Type(06),AuxType(A800),Access(C3) BU=Type(06),AuxType(0300),Access(C3) BUZZARD.BAIT=Type(06),AuxType(0300),Access(C3) diff --git a/src/demo/borg.a b/src/demo/borg.a new file mode 100644 index 000000000..9b8fc357d --- /dev/null +++ b/src/demo/borg.a @@ -0,0 +1,65 @@ +;license:MIT +;(c) 2021 by Frank M. + +!cpu 6502 +!to "res/DEMO/BORG",plain +*=$310 + + !source "src/constants.a" ; no code in these + !source "src/macros.a" + + +READ_RAM2_WRITE_RAM2 + ;jsr EnableAccelerator ; can't because of animation + +;+LOAD_FILE_KEEP_DIR + ldx #0 ; read to main memory + stx ldrhi + stx ldrlo + +LDADDR title + jsr iLoadFileDirect + + ldx #7-1 ; we also need to copy the length byte +- lda newpath,x + sta $BFD0,x + dex + bpl - + + +READ_ROM_NO_WRITE + + lda #$60 + sta $609E + jsr $6000 ; decompress and show animation + + lda #$4C + sta $8C27 ; exit after 1 cycle + sta $ECA ; exit on keypress 1 (joysticks not polled) + sta $99 + lda #0 + sta $8C27+1 + sta $ECA+1 + lda #1 + sta $8C27+2 + sta $ECA+2 + + ldx #7-1 +- lda patch, x + sta $8C2D, x + dex + bpl - ; exit on keypress 2 + + inc $C9 ; must be non-zero + jmp $EB0 + +patch !byte $30,$F8,$EA,$20,$00,$0F,$60 + +newpath + !byte 6 + !text "X/BORG" + +title !byte x_e-x_b +x_b !text "X/BORG/BORG" +x_e + +!if * > $3F0 { + !error "code is too large, ends at ", * +} diff --git a/src/prelaunch/borg.a b/src/prelaunch/borg.a index 924107123..494320a57 100644 --- a/src/prelaunch/borg.a +++ b/src/prelaunch/borg.a @@ -1,5 +1,5 @@ ;license:MIT -;(c) 2020 by qkumba +;(c) 2020 by qkumba, Frank M. !cpu 6502 !to "build/PRELAUNCH.INDEXED/BORG",plain @@ -7,10 +7,10 @@ !source "src/prelaunch/common.a" - +ENABLE_ACCEL + ;+ENABLE_ACCEL ; can't because of animation lda #$60 sta $609E - jsr $6000 ; decompress + jsr $6000 ; decompress and show animation +GET_MACHINE_STATUS and #CHEATS_ENABLED @@ -19,7 +19,6 @@ sta $11E4 ; patch - don't decrease lives + inc $C9 ; must be non-zero - +DISABLE_ACCEL jmp $EB0 !if * > $1C0 {