2021-07-07 16:01:15 +00:00
|
|
|
;-------------------------------
|
|
|
|
|
; WaitForKey
|
|
|
|
|
; wait forever for a key
|
|
|
|
|
; if the key pressed is '*', break to the monitor
|
|
|
|
|
; with a message on how to get back
|
|
|
|
|
;
|
|
|
|
|
; in: none
|
|
|
|
|
; out: A = uppercase version of key pressed
|
|
|
|
|
; other flags and registers clobbered
|
|
|
|
|
;-------------------------------
|
2017-01-08 03:35:35 +00:00
|
|
|
WaitForKey
|
|
|
|
|
bit STROBE
|
2021-04-20 04:27:11 +00:00
|
|
|
- lda KEY
|
|
|
|
|
bpl -
|
2017-01-08 03:35:35 +00:00
|
|
|
bit STROBE
|
|
|
|
|
cmp #"*"
|
2021-04-20 04:27:11 +00:00
|
|
|
bne +
|
2017-01-08 03:35:35 +00:00
|
|
|
jsr TEXT
|
|
|
|
|
jsr PrintByID
|
2021-06-13 02:07:26 +00:00
|
|
|
!byte s_reset
|
2017-01-08 03:35:35 +00:00
|
|
|
jmp $FF59
|
2021-04-20 04:27:11 +00:00
|
|
|
+ cmp #$E1
|
2017-01-08 03:35:35 +00:00
|
|
|
bcc +
|
|
|
|
|
and #$DF ; force uppercase
|
2021-04-20 04:27:11 +00:00
|
|
|
+ rts
|
