mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-29 00:31:52 +00:00
b1238af49d
this will probably upset people
28 lines
305 B
ArmAsm
28 lines
305 B
ArmAsm
;====================================
|
|
; 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
|
|
|