init:
REP #$20
LDA #$0D00
STZ $1446
STZ $144E
STZ $144A
SEP #$20
STZ $1413
RTL

main:
LDA $9D
ORA $13D4
BNE .return
LDA #$02
STA $56
REP #$20
LDA $144A
CMP #$0400
BEQ +
INC A
+
STA $144A

LDA $1452
AND #$00FF
CLC
ADC $144A
STA $1452
AND #$FF00
BPL +
ORA #$00FF
+
XBA
CLC
ADC $1466
STA $1466

LDA $17BD
AND #$00FF
CMP #$0080
BCC +
ORA #$FF00
+
CLC
ADC $1466
STA $1466
.return
SEP #$20
RTL

back to listings