1
0
mirror of https://github.com/KarolS/millfork.git synced 2024-12-22 16:31:02 +00:00
millfork/include/z1013/kernal.mfk
2020-09-29 22:57:27 +02:00

45 lines
652 B
Plaintext

#pragma zilog_syntax
import default_readword
array __readline_out[33]
const pointer readline_out = __readline_out.addr
asm pointer readline() {
rst $20
[$10]
ld hl, ($16)
ld de, readline_out
ld bc, $20
ldir
ld b, $20
ld hl, readline_out+31
ld a, 32
.loop:
cp (hl)
jr nz, .found
dec hl
djnz .loop
.found:
inc hl
ld (hl), nullchar
ld hl, readline_out
ret
}
inline asm void putchar(byte register(a) char) {
rst $20
[0]
? ret
}
inline void new_line() {
putchar(13)
}
asm void __init() {
// printing $0c clears the screen
ld a,$c
rst $20
[0]
}