dos33fsprogs/games/peasant/wait_a_bit.s
2021-08-12 15:41:39 -04:00

27 lines
307 B
ArmAsm

;====================================
; wait for keypress or a few seconds
;====================================
; A is length to wait
wait_a_bit:
bit KEYRESET
tax
keyloop:
lda #200 ; delay a bit
jsr WAIT
lda KEYPRESS
bmi done_keyloop
dex
bne keyloop
done_keyloop:
bit KEYRESET
rts