mirror of https://github.com/a2-4am/4cade.git
43 lines
905 B
Plaintext
43 lines
905 B
Plaintext
;license:MIT
|
|
;(c) 2021 by qkumba
|
|
|
|
!cpu 6502
|
|
!to "build/PRELAUNCH.INDEXED/ARGOS",plain
|
|
*=$106
|
|
|
|
!source "src/prelaunch/common.a"
|
|
|
|
+ENABLE_ACCEL
|
|
lda #$60
|
|
sta $852
|
|
jsr $800 ; load "DOS"
|
|
lda #<callback
|
|
sta $B64F
|
|
lda #>callback
|
|
sta $B650
|
|
+DISABLE_ACCEL
|
|
jmp $300
|
|
|
|
callback
|
|
+ENABLE_ACCEL
|
|
jsr $B65A ; decompress
|
|
+READ_RAM2_NO_WRITE
|
|
lda MachineStatus
|
|
and #CHEATS_ENABLED
|
|
beq ++
|
|
lda $B75A
|
|
cmp #'3'
|
|
bne +
|
|
lda #$ad
|
|
sta $67E5 ; patch - don't decrease lives
|
|
bne ++
|
|
+
|
|
cmp #'5'
|
|
bne ++
|
|
lda #$ad
|
|
sta $F97 ; patch - don't decrease energy
|
|
++
|
|
jsr DisableAccelerator
|
|
+READ_ROM_NO_WRITE
|
|
rts
|