LDA $1DFB
CMP #$0E
BEQ NormalCode
LDA #$01
STA $7FB501
NormalCode:
LDA $14AD
CMP #$01
BEQ SetOneCheck
STZ $14AD
Next:
LDA $13CC
CMP #$01
BNE Exit
LDA $14AD
BNE Cancel
LDA #$21
STA $14AD
BRA Exit
Cancel:
LDA $7FB501
BNE SetOne
SetZero:
STZ $14AD
Exit:
RTL
SetOneCheck:
LDA $7FB501
BEQ SetZero
SetOne:
LDA #$01
STA $14AD
LDA #$00
STA $7FB501
RTL

back to listings