mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 12:38:05 +11:00
0576d2dfa1
* Add files via upload * a monolithic build recipe for ZX Spectrum * emulation and emulated tapes in README.md
16 lines
306 B
NASM
16 lines
306 B
NASM
; the ZX Spectrum BASIC firmware scans the keyboard for ASCII codes on clock interrupts
|
|
; this routine just waits for a key and reads its value
|
|
|
|
k_getc:
|
|
;ei
|
|
push hl
|
|
ld hl, 23611 ; ZXS_FLAGS
|
|
res 5, (hl)
|
|
.loop:
|
|
bit 5, (hl) ; pressed?
|
|
jr z, .loop
|
|
ld hl, 23560 ; ZXS_LASTK
|
|
ld a, (hl)
|
|
pop hl
|
|
ret
|