LRControl:
STZ $7B : STZ $7D
LDA $16
AND #$03
BEQ +
CMP #$01 : BEQ .right
REP #$20
LDA $94
SEC : SBC #$0010
STA $94
SEP #$20
BRA +
.right
REP #$20
LDA $94
SEC : SBC #$FFF0
STA $94
SEP #$20
+

; test
LDA $16
AND #$0C
BEQ +
CMP #$08 : BEQ .up
REP #$20
LDA $96
SEC : SBC #$FFF0
STA $96
SEP #$20
BRA +
.up
REP #$20
LDA $96
SEC : SBC #$0010
STA $96
SEP #$20
+
RTL

back to listings