support arrow keys in apps/ex7.mu

This commit is contained in:
Kartik K. Agaram 2021-09-04 14:00:38 -07:00
parent cfdee0a6fa
commit 35c8c8edba
1 changed files with 4 additions and 4 deletions

View File

@ -14,25 +14,25 @@ fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk)
draw-cursor screen, 0x20/space
var key/eax: byte <- read-key keyboard
{
compare key, 0x68/h
compare key, 0x80/left-arrow
break-if-!=
draw-code-point-at-cursor screen, 0x2d/dash, 0x31/fg, 0/bg
move-cursor-left 0
}
{
compare key, 0x6a/j
compare key, 0x81/down-arrow
break-if-!=
draw-code-point-at-cursor screen, 0x7c/vertical-bar, 0x31/fg, 0/bg
move-cursor-down 0
}
{
compare key, 0x6b/k
compare key, 0x82/up-arrow
break-if-!=
draw-code-point-at-cursor screen, 0x7c/vertical-bar, 0x31/fg, 0/bg
move-cursor-up 0
}
{
compare key, 0x6c/l
compare key, 0x83/right-arrow
break-if-!=
var g/eax: code-point <- copy 0x2d/dash
draw-code-point-at-cursor screen, 0x2d/dash, 0x31/fg, 0/bg