2019-10-01 16:12:03 +00:00
|
|
|
;license:MIT
|
2020-02-28 23:33:10 +00:00
|
|
|
;(c) 2019-2020 by qkumba
|
2019-10-01 16:12:03 +00:00
|
|
|
|
|
|
|
!cpu 6502
|
2021-10-16 01:34:39 +00:00
|
|
|
!to "build/PRELAUNCH.INDEXED/LANCASTER",plain
|
2019-10-01 16:12:03 +00:00
|
|
|
*=$106
|
|
|
|
|
|
|
|
!source "src/prelaunch/common.a"
|
|
|
|
|
2019-10-05 01:34:49 +00:00
|
|
|
lda #<cheat
|
|
|
|
sta $10da
|
|
|
|
lda #>cheat
|
|
|
|
sta $10db
|
|
|
|
jmp $1000
|
2019-10-01 16:12:03 +00:00
|
|
|
|
|
|
|
cheat
|
2020-02-28 23:33:10 +00:00
|
|
|
+GET_MOCKINGBOARD_SLOT_AND_MACHINE_STATUS
|
|
|
|
and #CHEATS_ENABLED
|
|
|
|
beq mbslot
|
2019-10-06 14:39:59 +00:00
|
|
|
; lives in $0ED7
|
2019-10-05 01:34:49 +00:00
|
|
|
lda #$ad
|
|
|
|
sta $1661
|
|
|
|
sta $1476
|
2020-01-29 23:52:33 +00:00
|
|
|
|
|
|
|
mbslot
|
2020-02-28 23:33:10 +00:00
|
|
|
bcs +
|
|
|
|
lda #$60
|
|
|
|
sta $16A1 ; no MB, don't write to random slot
|
|
|
|
sta $671A ; no MB, don't write to random slot
|
2022-10-13 17:44:36 +00:00
|
|
|
lda #$4C
|
|
|
|
sta $67D6 ; no MB, don't write to random slot
|
|
|
|
lda #$48
|
|
|
|
sta $12A5 ; no MB, don't write to random slot
|
2020-02-28 23:33:10 +00:00
|
|
|
bne skipmb
|
|
|
|
+ cpx #$C4
|
|
|
|
beq skipmb
|
|
|
|
stx $6609 ; Replace #$C4 with configured slot
|
2020-01-29 23:52:33 +00:00
|
|
|
txa
|
2020-02-28 23:33:10 +00:00
|
|
|
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 -
|
|
|
|
|
2020-01-29 23:52:33 +00:00
|
|
|
skipmb
|
2019-10-05 01:34:49 +00:00
|
|
|
jmp $1000
|
2019-12-13 05:51:54 +00:00
|
|
|
|
|
|
|
!if * > $1C0 {
|
|
|
|
!error "code is too large, ends at ", *
|
|
|
|
}
|