lda $18
and #$10  ; R
beq TestL

; R
lda #$3f
sta $7b
rtl

TestL:
lda $18
and #$20  ; L
beq Done

; L
lda #$c1
sta $7b
Done:
rtl

back to listings