2021-01-14 00:57:04 +00:00
|
|
|
# Cursor-based motions.
|
|
|
|
#
|
|
|
|
# To build a disk image:
|
2021-04-17 03:26:42 +00:00
|
|
|
# ./translate ex7.mu # emits code.img
|
2021-01-14 00:57:04 +00:00
|
|
|
# To run:
|
2021-04-17 03:26:42 +00:00
|
|
|
# qemu-system-i386 code.img
|
2021-01-14 00:57:04 +00:00
|
|
|
# Or:
|
2021-04-17 03:26:42 +00:00
|
|
|
# bochs -f bochsrc # bochsrc loads code.img
|
2021-01-14 00:57:04 +00:00
|
|
|
#
|
|
|
|
# Expected output: an interactive game a bit like "snakes". Try pressing h, j,
|
|
|
|
# k, l.
|
|
|
|
|
2021-03-28 00:47:23 +00:00
|
|
|
fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) {
|
2021-01-23 06:16:59 +00:00
|
|
|
var space/eax: grapheme <- copy 0x20
|
2021-03-27 05:47:44 +00:00
|
|
|
set-cursor-position screen, 0, 0
|
2021-01-14 00:57:04 +00:00
|
|
|
{
|
2021-03-27 05:47:44 +00:00
|
|
|
draw-cursor screen, space
|
|
|
|
var key/eax: byte <- read-key keyboard
|
2021-01-23 06:16:59 +00:00
|
|
|
{
|
2021-02-07 08:17:17 +00:00
|
|
|
compare key, 0x68/h
|
2021-01-23 06:16:59 +00:00
|
|
|
break-if-!=
|
2021-03-27 05:47:44 +00:00
|
|
|
draw-code-point-at-cursor screen, 0x2d/dash, 0x31/fg, 0/bg
|
2021-02-10 04:53:47 +00:00
|
|
|
move-cursor-left 0
|
2021-01-23 06:16:59 +00:00
|
|
|
}
|
|
|
|
{
|
2021-02-07 08:17:17 +00:00
|
|
|
compare key, 0x6a/j
|
2021-01-23 06:16:59 +00:00
|
|
|
break-if-!=
|
2021-03-27 05:47:44 +00:00
|
|
|
draw-code-point-at-cursor screen, 0x7c/vertical-bar, 0x31/fg, 0/bg
|
2021-02-10 04:53:47 +00:00
|
|
|
move-cursor-down 0
|
2021-01-23 06:16:59 +00:00
|
|
|
}
|
|
|
|
{
|
2021-02-07 08:17:17 +00:00
|
|
|
compare key, 0x6b/k
|
2021-01-23 06:16:59 +00:00
|
|
|
break-if-!=
|
2021-03-27 05:47:44 +00:00
|
|
|
draw-code-point-at-cursor screen, 0x7c/vertical-bar, 0x31/fg, 0/bg
|
2021-02-10 04:53:47 +00:00
|
|
|
move-cursor-up 0
|
2021-01-23 06:16:59 +00:00
|
|
|
}
|
|
|
|
{
|
2021-02-07 08:17:17 +00:00
|
|
|
compare key, 0x6c/l
|
2021-01-23 06:16:59 +00:00
|
|
|
break-if-!=
|
2021-02-11 06:34:08 +00:00
|
|
|
var g/eax: code-point <- copy 0x2d/dash
|
2021-03-27 05:47:44 +00:00
|
|
|
draw-code-point-at-cursor screen, 0x2d/dash, 0x31/fg, 0/bg
|
2021-02-10 04:53:47 +00:00
|
|
|
move-cursor-right 0
|
2021-01-23 06:16:59 +00:00
|
|
|
}
|
|
|
|
loop
|
2021-01-14 00:57:04 +00:00
|
|
|
}
|
|
|
|
}
|