mirror of
https://github.com/a2-4am/passport.git
synced 2024-10-05 09:57:10 +00:00
21 lines
387 B
Plaintext
21 lines
387 B
Plaintext
|
KEY = $C000
|
||
|
STROBE = $C010
|
||
|
|
||
|
WaitForKey
|
||
|
bit STROBE
|
||
|
k lda KEY
|
||
|
bpl k
|
||
|
bit STROBE
|
||
|
cmp #"*"
|
||
|
bne noast
|
||
|
jsr TEXT
|
||
|
lda #s_reset
|
||
|
jsr PrintByID
|
||
|
jmp $FF59
|
||
|
noast
|
||
|
cmp #$E1
|
||
|
bcc +
|
||
|
and #$DF ; force uppercase
|
||
|
+
|
||
|
rts
|