2021-01-14 00:57:04 +00:00
|
|
|
# Cursor-based motions.
|
|
|
|
#
|
|
|
|
# To build a disk image:
|
2021-07-16 15:09:42 +00:00
|
|
|
# ./translate apps/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
|
|
|
#
|
|
|
|
# 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-03-27 05:47:44 +00:00
|
|
|
set-cursor-position screen, 0, 0
|
2021-01-14 00:57:04 +00:00
|
|
|
{
|
2021-09-04 20:57:20 +00:00
|
|
|
draw-cursor screen, 0x20/space
|
2021-03-27 05:47:44 +00:00
|
|
|
var key/eax: byte <- read-key keyboard
|
2021-01-23 06:16:59 +00:00
|
|
|
{
|
2021-09-04 21:00:38 +00:00
|
|
|
compare key, 0x80/left-arrow
|
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-09-04 21:00:38 +00:00
|
|
|
compare key, 0x81/down-arrow
|
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-09-04 21:00:38 +00:00
|
|
|
compare key, 0x82/up-arrow
|
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-09-04 21:00:38 +00:00
|
|
|
compare key, 0x83/right-arrow
|
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
|
|
|
}
|
|
|
|
}
|