From 132d72d28a63e58ec7f5e6fc955be140ee5844b0 Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Mon, 11 Oct 2021 21:35:16 -0700 Subject: . --- html/apps/rpn.mu.html | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'html/apps/rpn.mu.html') diff --git a/html/apps/rpn.mu.html b/html/apps/rpn.mu.html index 8b34a5c3..e7c85c30 100644 --- a/html/apps/rpn.mu.html +++ b/html/apps/rpn.mu.html @@ -77,7 +77,7 @@ if ('onhashchange' in window) { 15 # 16 # Error handling is non-existent. This is just a prototype. 17 - 18 fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) { + 18 fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) { 19 var in-storage: (stream byte 0x80) 20 var in/esi: (addr stream byte) <- address in-storage 21 var y/ecx: int <- copy 0 @@ -85,11 +85,11 @@ if ('onhashchange' in window) { 23 # read-eval-print loop 24 { 25 # print prompt - 26 var x/eax: int <- draw-text-rightward screen, "> ", 0/x, 0x80/xmax, y, 3/fg/cyan, 0/bg + 26 var x/eax: int <- draw-text-rightward screen, "> ", 0/x, 0x80/xmax, y, 3/fg/cyan, 0/bg 27 # read line from keyboard 28 clear-stream in 29 { - 30 draw-cursor screen, space + 30 draw-cursor screen, space 31 var key/eax: byte <- read-key keyboard 32 compare key, 0xa/newline 33 break-if-= @@ -98,16 +98,16 @@ if ('onhashchange' in window) { 36 var key2/eax: int <- copy key 37 append-byte in, key2 38 var c/eax: code-point <- copy key2 - 39 draw-code-point-at-cursor-over-full-screen screen, c, 0xf/fg, 0/bg + 39 draw-code-point-at-cursor-over-full-screen screen, c, 0xf/fg, 0/bg 40 loop 41 } 42 # clear cursor - 43 draw-code-point-at-cursor-over-full-screen screen, space, 3/fg/never-used, 0/bg + 43 draw-code-point-at-cursor-over-full-screen screen, space, 3/fg/never-used, 0/bg 44 # parse and eval 45 var out/eax: int <- simplify in 46 # print 47 y <- increment - 48 out, y <- draw-int32-decimal-wrapping-right-then-down screen, out, 0/xmin, y, 0x80/xmax, 0x30/ymax, 0/x, y, 7/fg, 0/bg + 48 out, y <- draw-int32-decimal-wrapping-right-then-down screen, out, 0/xmin, y, 0x80/xmax, 0x30/ymax, 0/x, y, 7/fg, 0/bg 49 # newline 50 y <- increment 51 # -- cgit 1.4.1-2-gfad0