ableos/sysdata/programs/tetris/src/main.hb

15 lines
364 B
Plaintext
Raw Normal View History

.{memory, log, string, buffer} := @use("../../../libraries/stn/src/lib.hb")
main := fn(): void {
storage := @as(u8, 0)
output_buffer := memory.request_page(1)
input_buffer := buffer.search("XKeyboard\0")
loop {
buffer.recv(input_buffer, &storage, 1)
if storage != 0 {
log.info(string.display_int(storage, output_buffer))
storage = 0
}
}
return
}