mirror of https://github.com/a2-4am/passport.git
26 lines
633 B
Plaintext
Executable File
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
|