avoid extra keypress in scroll

This commit is contained in:
Peter Ferrie 2021-06-07 14:27:54 -07:00
parent 3129a8d4e2
commit e4f6ed2a26

View File

@ -241,22 +241,23 @@ CheckLogKeys
cpy #$D4 cpy #$D4
bne .skipkey bne .skipkey
cpx #0 cpx #0
beq .nolog bne .skipkey
.nolog
rts
.checkkey .checkkey
jsr WaitForKey jsr WaitForKey
.skipkey .skipkey
cmp #k_left
beq .checkup
cmp #k_up cmp #k_up
beq .checkup beq .checkup
cmp #k_right cmp #k_right
beq .checkdown beq .checkdown
cmp #k_down cmp #k_down
beq .checkdown beq .checkdown
.nolog cmp #k_left
rts bne .nolog
.checkup .checkup
lda .startline1+2 lda .startline1+2