mirror of
https://github.com/a2-4am/passport.git
synced 2025-01-11 16:30:22 +00:00
23 lines
402 B
Plaintext
Executable File
23 lines
402 B
Plaintext
Executable File
KEY = $C000
|
|
STROBE = $C010
|
|
|
|
!zone {
|
|
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
|
|
}
|