mirror of https://github.com/a2-4am/4cade.git
65 lines
1.3 KiB
Plaintext
65 lines
1.3 KiB
Plaintext
;license:MIT
|
|
;(c) 2019-2020, 2022 by 4am and qkumba
|
|
|
|
!cpu 6502
|
|
!to "build/PRELAUNCH.INDEXED/LADY.TUT",plain
|
|
*=$106
|
|
|
|
!source "src/prelaunch/common.a"
|
|
|
|
ldx #(end_patch-patch-1) ; copy patch code to zero page (stack will be destroyed by the time we need to patch)
|
|
- lda patch,x
|
|
sta $200,x
|
|
dex
|
|
bpl -
|
|
ldx #5
|
|
- lda $100,x
|
|
sta $2C0,x
|
|
dex
|
|
bpl -
|
|
lda #$00
|
|
sta $084F
|
|
lda #$02
|
|
sta $0850
|
|
jmp $0800 ; decompress
|
|
patch
|
|
+READ_RAM2_NO_WRITE
|
|
lda MachineStatus
|
|
and #CHEATS_ENABLED
|
|
beq +
|
|
; lives in $07
|
|
lda #$A5
|
|
sta $76AC ; patch - don't decrease lives
|
|
+
|
|
lda #$C0
|
|
sta $8461
|
|
lda #2
|
|
sta $8468 ; reset vector
|
|
lda #$2C
|
|
sta $84B7
|
|
lda #$00
|
|
sta $84BE
|
|
sta $84C5
|
|
dec $84C9
|
|
|
|
lda MockingboardStuff
|
|
beq +
|
|
asl
|
|
ror $AD
|
|
lsr
|
|
and #7
|
|
ora #$C0
|
|
sta $AC
|
|
lda #$4B
|
|
sta $84CB
|
|
lda #$85
|
|
sta $84CC
|
|
+
|
|
+READ_ROM_NO_WRITE
|
|
jmp $8460
|
|
end_patch
|
|
|
|
!if * > $1C0 {
|
|
!error "code is too large, ends at ", *
|
|
}
|