mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-01 19: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
|