mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-08-24 17:29:39 +00:00
38 lines
395 B
ArmAsm
38 lines
395 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
|
||
|
; beq no_escape
|
||
|
|
||
|
done_keyloop:
|
||
|
|
||
|
; and #$7f
|
||
|
; cmp #27
|
||
|
; bne no_escape
|
||
|
|
||
|
; inc ESC_PRESSED
|
||
|
;no_escape:
|
||
|
|
||
|
bit KEYRESET
|
||
|
|
||
|
rts
|
||
|
|
||
|
|
||
|
|
||
|
|