dos33fsprogs/duke/wait_a_bit.s

28 lines
305 B
ArmAsm
Raw Normal View History

2020-12-14 00:49:00 +00:00
;====================================
; wait for keypress or a few seconds
;====================================
wait_a_bit:
bit KEYRESET
tax
keyloop:
lda #200 ; delay a bit
jsr WAIT
lda KEYPRESS
bmi done_keyloop
; bmi keypress_exit
dex
bne keyloop
done_keyloop:
bit KEYRESET
rts