lda $19
clc
adc #$01
cmp #$04
bcc +
lda #$00
+
sta $19
rtl

back to listings