mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-01 23:20:56 +11:00
11 lines
178 B
NASM
11 lines
178 B
NASM
; kbd - TRS-80 keyboard
|
|
;
|
|
; Implement GetC for TRS-80's keyboard using the system's SVCs.
|
|
|
|
trs80GetC:
|
|
push de ; altered by SVC
|
|
ld a, 0x01 ; @KEY
|
|
rst 0x28 ; --> A
|
|
pop de
|
|
ret
|