mirror of
https://github.com/a2-4am/4cade.git
synced 2024-09-26 21:56:44 +00:00
replace Zaxxon with Mockingboard version
This commit is contained in:
parent
53d5627649
commit
b637eb4472
BIN
res/dsk/zaxxon Mockingboard PRODOS (san inc pack).po
Normal file
BIN
res/dsk/zaxxon Mockingboard PRODOS (san inc pack).po
Normal file
Binary file not shown.
Binary file not shown.
@ -1,5 +1,5 @@
|
|||||||
;license:MIT
|
;license:MIT
|
||||||
;(c) 2019 by qkumba
|
;(c) 2020 by qkumba
|
||||||
|
|
||||||
!cpu 6502
|
!cpu 6502
|
||||||
!to "build/PRELAUNCH/ZAXXON",plain
|
!to "build/PRELAUNCH/ZAXXON",plain
|
||||||
@ -7,23 +7,42 @@
|
|||||||
|
|
||||||
!source "src/prelaunch/common.a"
|
!source "src/prelaunch/common.a"
|
||||||
|
|
||||||
+GET_MACHINE_STATUS
|
+READ_RAM2_NO_WRITE
|
||||||
and #CHEATS_ENABLED
|
jsr EnableAccelerator
|
||||||
sta cheat+1
|
lda MachineStatus
|
||||||
lda #<cheat
|
pha
|
||||||
sta $208c
|
lda MockingboardStuff
|
||||||
lda #>cheat
|
pha
|
||||||
sta $208d
|
lda #$60
|
||||||
jmp $2000
|
sta $41C6
|
||||||
|
jsr $4000 ; decompress
|
||||||
|
pla
|
||||||
|
beq @skip_mb
|
||||||
|
pha
|
||||||
|
jsr $D15B ; decompress Mockingboard code
|
||||||
|
tax
|
||||||
|
pla
|
||||||
|
ora #$C0
|
||||||
|
- ldy $70B, x
|
||||||
|
cpy #$C4
|
||||||
|
bne +
|
||||||
|
sta $70B, x
|
||||||
|
+ inx
|
||||||
|
bne -
|
||||||
|
sta $81D
|
||||||
|
|
||||||
cheat
|
@skip_mb
|
||||||
ldy #0 ; SMC
|
pla
|
||||||
|
and #CHEATS_ENABLED
|
||||||
beq +
|
beq +
|
||||||
ldy #$bd
|
ldy #$bd
|
||||||
sty $1a40
|
sty $1a40
|
||||||
sty $1a61
|
sty $1a61
|
||||||
+
|
+ inc $BF87
|
||||||
jmp $200
|
bit $C083
|
||||||
|
jsr DisableAccelerator
|
||||||
|
ldy #0
|
||||||
|
jmp $41D0
|
||||||
|
|
||||||
!if * > $1C0 {
|
!if * > $1C0 {
|
||||||
!error "code is too large, ends at ", *
|
!error "code is too large, ends at ", *
|
||||||
|
Loading…
Reference in New Issue
Block a user