4cade/src/prelaunch/plasmania.a

48 lines
1.0 KiB
Plaintext
Executable File

;license:MIT
;(c) 2019-2020 by qkumba/Frank M.
!cpu 6502
!to "build/PRELAUNCH.INDEXED/PLASMANIA",plain
*=$106
!source "src/prelaunch/common.a"
+ENABLE_ACCEL
+USES_TEXT_PAGE_2
lda #>(callback1-1)
sta $84E
lda #<(callback1-1)
sta $851
jmp $800
callback2
php
sei
jsr $72ED
plp
rts
callback1
lda #<callback2
sta $7353
lda #>callback2
sta $7354
lda #$4C
sta $6F31 ; patch - fix bug causing stack overflow
sta $8E99 ; patch - fix bug causing stack overflow
sta $8E9A ; patch - fix bug causing stack overflow
+READ_RAM2_NO_WRITE
lda MachineStatus
and #CHEATS_ENABLED
beq +
lda #$a5
sta $92D7 ; patch - don't decrease lives
+
jsr DisableAccelerator
+READ_ROM_NO_WRITE
jmp $6000
!if * > $1C0 {
!error "code is too large, ends at ", *
}