From 35c8c8edba84fd5c20f7cabd46d4824a88224f7b Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sat, 4 Sep 2021 14:00:38 -0700 Subject: support arrow keys in apps/ex7.mu --- apps/ex7.mu | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'apps/ex7.mu') diff --git a/apps/ex7.mu b/apps/ex7.mu index 61b9ac20..0f3fd4fe 100644 --- a/apps/ex7.mu +++ b/apps/ex7.mu @@ -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 -- cgit 1.4.1-2-gfad0