mirror of
https://github.com/a2-4am/4cade.git
synced 2024-10-14 07:23:41 +00:00
Pest Patrol & Pooyan demo launchers (#408)
* Add files via upload * Add files via upload
This commit is contained in:
parent
89895ea52d
commit
a00bf9a7e0
Binary file not shown.
BIN
res/DEMO/POOYAN
BIN
res/DEMO/POOYAN
Binary file not shown.
@ -113,7 +113,7 @@ NORAD.1=Type(F1),AuxType(0000),Access(C3)
|
||||
NIBBLER=Type(06),AuxType(0300),Access(C3)
|
||||
OM=Type(06),AuxType(08FD),Access(C3)
|
||||
PACMAN=Type(06),AuxType(0300),Access(C3)
|
||||
PEST.PATROL=Type(06),AuxType(0800),Access(C3)
|
||||
PEST.PATROL=Type(06),AuxType(0300),Access(C3)
|
||||
PM=Type(06),AuxType(0300),Access(C3)
|
||||
PIEMAN.1=Type(F1),AuxType(0000),Access(C3)
|
||||
PIEMAN.HI=Type(F1),AuxType(0000),Access(C3)
|
||||
@ -122,7 +122,6 @@ PLASMANIA=Type(06),AuxType(0200),Access(C3)
|
||||
PHASER.FIRE=Type(06),AuxType(9200),Access(C3)
|
||||
PHASER.FIRE.1=Type(F1),AuxType(0000),Access(C3)
|
||||
POOYAN=Type(06),AuxType(0300),Access(C3)
|
||||
POOYAN.1=Type(F1),AuxType(0000),Access(C3)
|
||||
REPTON=Type(06),AuxType(0300),Access(C3)
|
||||
REPTON.1=Type(F1),AuxType(0000),Access(C3)
|
||||
ROBOTRON.2084=Type(06),AuxType(3000),Access(C3)
|
||||
|
55
src/demo/pest.patrol.a
Normal file
55
src/demo/pest.patrol.a
Normal file
@ -0,0 +1,55 @@
|
||||
;license:MIT
|
||||
;(c) 2021 by Frank M.
|
||||
|
||||
!cpu 6502
|
||||
!to "res/DEMO/PEST.PATROL",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 $0837
|
||||
jsr $0800 ; decompress
|
||||
|
||||
ldx #11-1
|
||||
- lda patch, x
|
||||
sta $47BA, x
|
||||
dex
|
||||
bpl - ; exit when user presses a key during main menu
|
||||
|
||||
lda #$4C
|
||||
sta $57C4
|
||||
sta $5589
|
||||
sta $B493
|
||||
lda #0
|
||||
sta $57C4+1
|
||||
sta $5589+1
|
||||
sta $485A ; disable sound
|
||||
sta $48AE ; disable sound
|
||||
lda #1
|
||||
sta $57C4+2
|
||||
sta $5589+2
|
||||
lda #$BD
|
||||
sta $B493+1
|
||||
lda #$47
|
||||
sta $B493+2 ; set exits
|
||||
|
||||
+DISABLE_ACCEL
|
||||
|
||||
jmp $4003
|
||||
|
||||
title !byte x_e-x_b
|
||||
x_b !text "X/PEST.PATROL/PEST.PATROL"
|
||||
x_e
|
||||
|
||||
patch !byte $4C,$00,$01,$AD,$00,$C0,$30,$F8,$4C,$90,$B3
|
||||
|
||||
|
||||
!if * > $3F0 {
|
||||
!error "code is too large, ends at ", *
|
||||
}
|
49
src/demo/pooyan.a
Normal file
49
src/demo/pooyan.a
Normal file
@ -0,0 +1,49 @@
|
||||
;license:MIT
|
||||
;(c) 2021 by Frank M.
|
||||
|
||||
!cpu 6502
|
||||
!to "res/DEMO/POOYAN",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 $203A
|
||||
jsr $2000 ; decompress
|
||||
|
||||
lda #$4C
|
||||
sta $6069
|
||||
sta $60C8
|
||||
sta $60EA
|
||||
sta $7DB5
|
||||
lda #0
|
||||
sta $6069+1
|
||||
sta $60C8+1
|
||||
sta $60EA+1
|
||||
sta $7DB5+1
|
||||
lda #1
|
||||
sta $6069+2
|
||||
sta $60C8+2
|
||||
sta $60EA+2
|
||||
sta $7DB5+2 ; set exits
|
||||
|
||||
lda #$D0
|
||||
sta $A008
|
||||
sta $A025 ; disable sound
|
||||
|
||||
+DISABLE_ACCEL
|
||||
|
||||
jmp $6000
|
||||
|
||||
title !byte x_e-x_b
|
||||
x_b !text "X/POOYAN/POOYAN"
|
||||
x_e
|
||||
|
||||
!if * > $3F0 {
|
||||
!error "code is too large, ends at ", *
|
||||
}
|
Loading…
Reference in New Issue
Block a user