mirror of
https://github.com/a2-4am/4cade.git
synced 2024-06-27 18:29:31 +00:00
33 lines
828 B
Plaintext
33 lines
828 B
Plaintext
;license:MIT
|
|
;(c) 2019 by 4am
|
|
|
|
!cpu 6502
|
|
!to "build/PRELAUNCH/SERPENTINE",plain
|
|
*=$106
|
|
|
|
!source "src/prelaunch/common.a"
|
|
|
|
+GET_MACHINE_STATUS
|
|
and #CHEATS_ENABLED
|
|
sta cheat
|
|
ldx #$0E ; copy patch code to zero page (stack will be destroyed by the time we need to patch)
|
|
- lda patch,x
|
|
sta $F1,x
|
|
dex
|
|
bpl -
|
|
lda #$F1 ; call patch instead of $222
|
|
sta $8BE3
|
|
lda #$00
|
|
sta $8BE4
|
|
jmp $43F5 ; decompress and show title
|
|
patch
|
|
jsr $0100 ; decompress
|
|
cheat=*+1
|
|
lda #0 ; SMC
|
|
beq +
|
|
; lives in $D8 (capped at 3)
|
|
lda #$A5
|
|
sta $868F ; patch - don't decrease lives
|
|
+
|
|
jmp $0800
|