53 lines
471 B
NASM
53 lines
471 B
NASM
pushpc
|
|
|
|
org $87A46E
|
|
JSL CheckBookTriggerSwitch
|
|
BCS +
|
|
skip 15
|
|
+
|
|
|
|
org $8296A8
|
|
JSL FinishPegChange
|
|
|
|
pullpc
|
|
|
|
FinishPegChange:
|
|
LDA.b #$20
|
|
TRB.w $037A
|
|
|
|
STZ.b $B0
|
|
STZ.b $11
|
|
RTL
|
|
|
|
CheckBookTriggerSwitch:
|
|
LDA.l CrystalSwitchBook
|
|
BEQ +
|
|
|
|
LDA.b $10
|
|
CMP.b #$07
|
|
BNE +
|
|
|
|
LDA.l $7EC172
|
|
EOR.b #$01
|
|
STA.l $7EC172
|
|
|
|
LDA.b #$16
|
|
STA.b $11
|
|
|
|
LDA.b #$20
|
|
TSB.w $037A
|
|
|
|
LDA.b #$25
|
|
JSL $8DBB8A
|
|
|
|
SEC
|
|
BRA .done
|
|
|
|
+ CLC
|
|
.done
|
|
; what we wrote over
|
|
LDA.b $3A
|
|
AND.b #$BF
|
|
STA.b $3A
|
|
RTL
|