passport/src/keys.a
2021-07-07 12:01:15 -04:00

26 lines
633 B
Plaintext
Executable File

;-------------------------------
; 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
;-------------------------------
WaitForKey
bit STROBE
- lda KEY
bpl -
bit STROBE
cmp #"*"
bne +
jsr TEXT
jsr PrintByID
!byte s_reset
jmp $FF59
+ cmp #$E1
bcc +
and #$DF ; force uppercase
+ rts