50 lines
1.1 KiB
Forth
50 lines
1.1 KiB
Forth
# Cursor-based motions.
|
|
#
|
|
# To build a disk image:
|
|
# ./translate_mu_baremetal baremetal/ex7.mu # emits disk.img
|
|
# To run:
|
|
# qemu-system-i386 disk.img
|
|
# Or:
|
|
# bochs -f baremetal/boot.bochsrc # boot.bochsrc loads disk.img
|
|
#
|
|
# Expected output: an interactive game a bit like "snakes". Try pressing h, j,
|
|
# k, l.
|
|
|
|
fn main {
|
|
var space/eax: grapheme <- copy 0x20
|
|
set-cursor-position 0, 0, 0
|
|
{
|
|
show-cursor 0, space
|
|
var key/eax: byte <- read-key 0
|
|
{
|
|
compare key, 0x68 # 'h'
|
|
break-if-!=
|
|
var g/eax: grapheme <- copy 0x2d # '-'
|
|
draw-grapheme-at-cursor 0, g, 0x31
|
|
cursor-left 0
|
|
}
|
|
{
|
|
compare key, 0x6a # 'j'
|
|
break-if-!=
|
|
var g/eax: grapheme <- copy 0x7c # '|'
|
|
draw-grapheme-at-cursor 0, g, 0x31
|
|
cursor-down 0
|
|
}
|
|
{
|
|
compare key, 0x6b # 'k'
|
|
break-if-!=
|
|
var g/eax: grapheme <- copy 0x7c # '|'
|
|
draw-grapheme-at-cursor 0, g, 0x31
|
|
cursor-up 0
|
|
}
|
|
{
|
|
compare key, 0x6c # 'l'
|
|
break-if-!=
|
|
var g/eax: grapheme <- copy 0x2d # '-'
|
|
draw-grapheme-at-cursor 0, g, 0x31
|
|
cursor-right 0
|
|
}
|
|
loop
|
|
}
|
|
}
|