4cade/src/prelaunch/lancaster.a

57 lines
1.3 KiB
Plaintext

;license:MIT
;(c) 2019-2020 by qkumba
!cpu 6502
!to "build/PRELAUNCH.INDEXED/LANCASTER",plain
*=$106
!source "src/prelaunch/common.a"
lda #<cheat
sta $10da
lda #>cheat
sta $10db
jmp $1000
cheat
+GET_MOCKINGBOARD_SLOT_AND_MACHINE_STATUS
and #CHEATS_ENABLED
beq mbslot
; lives in $0ED7
lda #$ad
sta $1661
sta $1476
mbslot
bcs +
lda #$60
sta $16A1 ; no MB, don't write to random slot
sta $671A ; no MB, don't write to random slot
lda #$4C
sta $67D6 ; no MB, don't write to random slot
lda #$48
sta $12A5 ; no MB, don't write to random slot
bne skipmb
+ cpx #$C4
beq skipmb
stx $6609 ; Replace #$C4 with configured slot
txa
ldy #00
- ldx $16AD,Y ; Find #$C4s
cpx #$C4
bne +
sta $16AD,Y ; Replace #$C4 with configured slot
+ ldx $6720,Y ; Find #$C4s
cpx #$C4
bne +
sta $6720,Y ; Replace #$C4 with configured slot
+ iny
bne -
skipmb
jmp $1000
!if * > $1C0 {
!error "code is too large, ends at ", *
}