From 8aeb85f04ee68b960a6d326aca1a17dec2f6d019 Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Mon, 9 Dec 2019 01:26:58 -0800 Subject: 5806 --- html/apps/mulisp.subx.html | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'html/apps/mulisp.subx.html') diff --git a/html/apps/mulisp.subx.html b/html/apps/mulisp.subx.html index 0d1936cd..17c2e7c3 100644 --- a/html/apps/mulisp.subx.html +++ b/html/apps/mulisp.subx.html @@ -78,7 +78,7 @@ if ('onhashchange' in window) { 20 81 7/subop/compare *ebp 1/imm32 21 7e/jump-if-lesser-or-equal break/disp8 22 # if (argv[1] != "test")) break - 23 (kernel-string-equal? *(ebp+8) "test") # => eax + 23 (kernel-string-equal? *(ebp+8) "test") # => eax 24 3d/compare-eax-and 0/imm32 25 74/jump-if-equal break/disp8 26 # @@ -139,12 +139,12 @@ if ('onhashchange' in window) { 81 # . save registers 82 50/push-eax 83 { - 84 (lisp-read Stdin) # => eax : (address cell) + 84 (lisp-read Stdin) # => eax : (handle cell) 85 # if (eax == 0) break 86 3d/compare-eax-and 0/imm32 87 74/jump-if-equal break/disp8 88 # - 89 (lisp-eval %eax) # => eax : (address cell) + 89 (lisp-eval %eax) # => eax : (handle cell) 90 (lisp-print Stdout %eax) 91 eb/jump loop/disp8 92 } @@ -162,13 +162,13 @@ if ('onhashchange' in window) { 104 # arrays start with '[' 105 # symbols start with anything else but quote, backquote, unquote or splice 106 # only one s-expression per line -107 lisp-read: # in : (address buffered-file) -> eax : (address cell) +107 lisp-read: # in : (address buffered-file) -> eax : (handle cell) 108 # . prologue 109 55/push-ebp 110 89/<- %ebp 4/r32/esp 111 # . save registers 112 51/push-ecx -113 # var s/ecx : (stream byte 512) +113 # var s/ecx : (ref stream byte 512) 114 81 5/subop/subtract %esp 0x200/imm32 115 68/push 0x200/imm32/size 116 68/push 0/imm32/read @@ -200,14 +200,14 @@ if ('onhashchange' in window) { 142 5d/pop-to-ebp 143 c3/return 144 -145 # lisp-read: in : (address buffered-file) -> (address cell) +145 # lisp-read: in : (address buffered-file) -> (handle cell) 146 # token tmp = next-mulisp-token(in) 147 # if is-int(tmp) return cell(tmp) 148 # if is-string(tmp) return cell(tmp) 149 # if is-pair(tmp) ... 150 # if is-array(tmp) ... 151 -152 next-mulisp-token: # in : (address buffered-file), line : (address stream), result : (address slice) +152 next-mulisp-token: # in : (address buffered-file), line : (address stream byte), result : (address slice) 153 # pseudocode: 154 # if (line->read >= line->write) 155 # read-line-buffered(in, line) @@ -252,11 +252,11 @@ if ('onhashchange' in window) { 194 5d/pop-to-ebp 195 c3/return 196 -197 new-int-cell: # in : (address slice) -> eax : (address cell) +197 new-int-cell: # in : (address slice) -> eax : (handle cell) 198 -199 new-string-cell: # in : (address slice) -> eax : (address cell) +199 new-string-cell: # in : (address slice) -> eax : (handle cell) 200 -201 lisp-eval: # in : (address cell) -> eax : (address cell) +201 lisp-eval: # in : (address cell) -> eax : (handle cell) 202 # . prologue 203 55/push-ebp 204 89/<- %ebp 4/r32/esp -- cgit 1.4.1-2-gfad0