Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-11-27 08:50:01 +00:00
Code Issues Projects Releases Wiki Activity

Demo launchers (#414)

Browse Source 
* Add files via upload

* Delete BURGERTIME.1

* Delete BURGERTIME.2

* Delete BURGERTIME.3

* Delete BURGERTIME.4

* Delete BURGERTIME.5

* Delete DUNG.BEETLES.1

* Delete VINDICATOR.1

* Add files via upload

* Add files via upload
This commit is contained in:
frankmilliron 2021-10-31 15:20:30 -07:00 committed by GitHub
parent 380a8ce7ba
commit ac465e3633
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
17 changed files with 297 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
res/DEMO/BU
View File

Binary file not shown.

BIN
res/DEMO/BURGERTIME.1
View File

Binary file not shown.

BIN
res/DEMO/BURGERTIME.2
View File

Binary file not shown.

BIN
res/DEMO/BURGERTIME.3
View File

Binary file not shown.

BIN
res/DEMO/BURGERTIME.4
View File

Binary file not shown.

BIN
res/DEMO/BURGERTIME.5
View File

Binary file not shown.

BIN
res/DEMO/DUNG.BEETLES
View File

Binary file not shown.

BIN
res/DEMO/DUNG.BEETLES.1
View File

Binary file not shown.

BIN
res/DEMO/HIGH.RISE
View File

Binary file not shown.

BIN
res/DEMO/VINDICATOR
View File

Binary file not shown.

BIN
res/DEMO/VINDICATOR.1
View File

Binary file not shown.

11
res/DEMO/_FileInformation.txt
View File

@ -15,12 +15,7 @@ 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)
BU=Type(06),AuxType(3E97),Access(C3)
BURGERTIME.1=Type(F1),AuxType(A402),Access(C3)
BURGERTIME.2=Type(F1),AuxType(6400),Access(C3)
BURGERTIME.3=Type(F1),AuxType(2000),Access(C3)
BURGERTIME.4=Type(F1),AuxType(0C00),Access(C3)
BURGERTIME.5=Type(F1),AuxType(6000),Access(C3)
BU=Type(06),AuxType(0300),Access(C3)
BUZZARD.BAIT=Type(06),AuxType(0300),Access(C3)
CB=Type(06),AuxType(3000),Access(C3)
CANNONBALL.BL.1=Type(F1),AuxType(0000),Access(C3)
@ -45,7 +40,6 @@ DIG.DUG=Type(06),AuxType(0300),Access(C3)
DINO.EGGS=Type(06),AuxType(0300),Access(C3)
DINO.EGGS.1=Type(F1),AuxType(0000),Access(C3)
DUNG.BEETLES=Type(06),AuxType(0300),Access(C3)
DUNG.BEETLES.1=Type(F1),AuxType(0000),Access(C3)
FALCONS=Type(06),AuxType(B000),Access(C3)
FIREBIRD=Type(06),AuxType(0300),Access(C3)
FIREBIRD.1=Type(F1),AuxType(0000),Access(C3)
@ -74,7 +68,7 @@ GUMBALL.F=Type(F1),AuxType(6000),Access(C3)
GUMBALL.I=Type(F1),AuxType(0800),Access(C3)
GUMBALL.M=Type(F1),AuxType(6000),Access(C3)
HARD.HAT.MACK=Type(06),AuxType(0200),Access(C3)
HIGH.RISE=Type(06),AuxType(3FCB),Access(C3)
HIGH.RISE=Type(06),AuxType(0300),Access(C3)
JUNGLE.HUNT=Type(06),AuxType(0300),Access(C3)
JUNGLE.HUNT.1=Type(F1),AuxType(0000),Access(C3)
JUNGLE.HUNT.A=Type(F1),AuxType(7700),Access(C3)
@ -164,4 +158,3 @@ WARP.DESTROYER=Type(06),AuxType(0300),Access(C3)
WARP.DESTROY.1=Type(F1),AuxType(0000),Access(C3)
WAVY.NAVY=Type(06),AuxType(0300),Access(C3)
VINDICATOR=Type(06),AuxType(0300),Access(C3)
VINDICATOR.1=Type(F1),AuxType(0000),Access(C3)

88
src/demo/burgertime.a Normal file
View File

@ -0,0 +1,88 @@
;license:MIT
;(c) 2021 by Frank M.
!cpu 6502
!to "res/DEMO/BU",plain
*=$300
!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 $3ec9
sta $3f09
jsr $3e97 ; decompress
jsr DisableAccelerator
+READ_ROM_NO_WRITE
lda #$4C
sta $653F
lda #$8D
sta $653F+1
lda #$65
sta $653F+2 ; skip joystick/keyboard selection
lda #$b1
sta $646b
jsr $6400
+ENABLE_ACCEL
jsr $811
lda #0
sta $A30A
lda #1
sta $A30F ; reset vector patch
lda #$4C
sta $9FD3
sta $9FCF
sta $A497 ; set exits
lda #0
sta $9FD3+1
sta $9FCF+1
sta $A497+1
sta $A15B
sta $A16A
sta $A17B
sta $A1D0 ; disable sound
lda #1
sta $9FD3+2
sta $9FCF+2
sta $A497+2
+DISABLE_ACCEL
jmp $a300
newpath
!byte 4
!text "X/BU"
title !byte x_e-x_b
x_b !text "X/BU/BU"
x_e
!if * > $3F0 {
!error "code is too large, ends at ", *
}

66
src/demo/dung.beetles.a Normal file
View File

@ -0,0 +1,66 @@
;license:MIT
;(c) 2021 by Frank M.
!cpu 6502
!to "res/DEMO/DUNG.BEETLES",plain
*=$300
!source "src/constants.a" ; no code in these
!source "src/macros.a"
+READ_RAM2_WRITE_RAM2
jsr EnableAccelerator
+LOAD_FILE_AT title, $00
lda #$60
sta $603A
jsr $6000 ; decompress
lda #1
sta $083E ; reset vector patch
lda #$4C
sta $847
lda #0
sta $848
lda #$96 ; patch $847 - JMP ($3F2)
sta $849 ; to JMP $9600
lda #$60
sta $847
jsr $800 ; memory move
ldx #6-1
- lda patch, x
sta $9B93, x
dex
bpl - ; disable button support on title screen
lda #$4C
sta $9B7D
sta $97D5
lda #0
sta $9B7D+1
sta $97D5+1
lda #1
sta $9B7D+2
sta $97D5+2 ; set exits
lda #$D0
sta $1C17
sta $12CE
sta $9B4D
sta $9B56 ; disable sound
+DISABLE_ACCEL
jmp $9600
patch !byte $A9,$01,$EA,$EA,$EA,$EA
title !byte x_e-x_b
x_b !text "X/DUNG.BEETLES/DUNG.BEETLES"
x_e
!if * > $3F0 {
!error "code is too large, ends at ", *
}

44
src/demo/high.rise.a Normal file
View File

@ -0,0 +1,44 @@
;license:MIT
;(c) 2021 by Frank M.
!cpu 6502
!to "res/DEMO/HIGH.RISE",plain
*=$300
!source "src/constants.a" ; no code in these
!source "src/macros.a"
+READ_RAM2_WRITE_RAM2
jsr EnableAccelerator
+LOAD_FILE_AT title, $00
lda #$60
sta $0836
jsr $0800 ; decompress
lda #$2C
sta $44AA
sta $44AD
sta $44B0 ; reset vector fix
lda #$4C
sta $455D
sta $4695
lda #0
sta $455D+1
sta $4695+1
lda #1
sta $455D+2
sta $4695+2 ; set exits
+DISABLE_ACCEL
jmp $449A
title !byte x_e-x_b
x_b !text "X/HIGH.RISE/HIGH.RISE"
x_e
!if * > $3F0 {
!error "code is too large, ends at ", *
}

70
src/demo/vindicator.a Normal file
View File

@ -0,0 +1,70 @@
;license:MIT
;(c) 2021 by Frank M.
!cpu 6502
!to "res/DEMO/VINDICATOR",plain
*=$300
!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 #13-1 ; we also need to copy the length byte
- lda newpath,x
sta $BFD0,x
dex
bpl -
lda #$60
sta $1867
jsr $180F ; decompress
+NEW_RESET_VECTOR $BFF0
lda #$F0
sta $4001
lda #$BF
sta $400F ; reset vector fix
lda #$60 ; annunciator fix - kills Gizmo/joyport support
sta $5B77 ; but fixes ][+ 80-col softswitch
sta $5B43 ; and //c+ coloring
lda #$4C
sta $56D9
sta $4902
lda #0
sta $56D9+1
sta $4902+1
lda #1
sta $56D9+2
sta $4902+2 ; set exits
lda #$D0
sta $441F
sta $5E25
sta $5DDC ; disable sound
+DISABLE_ACCEL
jmp $4000
newpath
!byte 12
!text "X/VINDICATOR"
title !byte x_e-x_b
x_b !text "X/VINDICATOR/VINDICATOR"
x_e
!if * > $3F0 {
!error "code is too large, ends at ", *
}

27
src/prelaunch/high.rise.a Normal file
View File

@ -0,0 +1,27 @@
;license:MIT
;(c) 2021 by Frank M.
!cpu 6502
!to "build/PRELAUNCH.INDEXED/HIGH.RISE",plain
*=$106
!source "src/prelaunch/common.a"
+ENABLE_ACCEL
lda #$60
sta $0836
jsr $0800 ; decompress
lda #$2C
sta $44AA
sta $44AD
sta $44B0 ; reset vector fix
+DISABLE_ACCEL
jmp $449A
!if * > $1C0 {
!error "code is too large, ends at ", *
}