lda $100
cmp #$14
bne done

lda #$00
sta $db0

lda $13
and #$07
bne done

lda $dae
and #$0f

bit $13
bpl +

cmp #$0f
bcs done
inc $dae
done:
rtl

+
cmp #$00
beq done
dec $dae
rtl

back to listings