diff options
Diffstat (limited to 'html/subx/apps/crenshaw2-1.subx.html')
| -rw-r--r-- | html/subx/apps/crenshaw2-1.subx.html | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/html/subx/apps/crenshaw2-1.subx.html b/html/subx/apps/crenshaw2-1.subx.html index f64afa4c..de7cf5c0 100644 --- a/html/subx/apps/crenshaw2-1.subx.html +++ b/html/subx/apps/crenshaw2-1.subx.html @@ -144,7 +144,7 @@ if ('onhashchange' in window) { <span id="L81" class="LineNr"> 81 </span> cd/syscall 0x80/imm8 <span id="L82" class="LineNr"> 82 </span> <span id="L83" class="LineNr"> 83 </span><span class="subxComment"># the main entry point</span> -<span id="L84" class="LineNr"> 84 </span><span class="subxFunction"><a href='crenshaw2-1.subx.html#L84'>compile</a></span>: <span class="subxComment"># in : (address buffered-file), out : fd or (address stream), err : fd or (address stream), ed : (address exit-descriptor) -> <void></span> +<span id="L84" class="LineNr"> 84 </span><span class="subxFunction">compile</span>: <span class="subxComment"># in : (address buffered-file), out : fd or (address stream), err : fd or (address stream), ed : (address exit-descriptor) -> <void></span> <span id="L85" class="LineNr"> 85 </span> <span class="subxS1Comment"># . prolog</span> <span id="L86" class="LineNr"> 86 </span> 55/push-EBP <span id="L87" class="LineNr"> 87 </span> 89/copy 3/mod/direct 5/rm32/EBP <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/ESP <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ESP to EBP</span> @@ -260,7 +260,7 @@ if ('onhashchange' in window) { <span id="L197" class="LineNr">197 </span><span class="subxComment"># Read a single digit into 'out'. Abort if there are none, or if there is no space in 'out'.</span> <span id="L198" class="LineNr">198 </span><span class="subxComment"># Input comes from the global variable 'Look', and we leave the next byte from</span> <span id="L199" class="LineNr">199 </span><span class="subxComment"># 'in' into it on exit.</span> -<span id="L200" class="LineNr">200 </span><span class="subxFunction"><a href='crenshaw2-1.subx.html#L200'>get-num</a></span>: <span class="subxComment"># in : (address buffered-file), out : (address stream), err : fd or (address stream), ed : (address exit-descriptor) -> <void></span> +<span id="L200" class="LineNr">200 </span><span class="subxFunction">get-num</span>: <span class="subxComment"># in : (address buffered-file), out : (address stream), err : fd or (address stream), ed : (address exit-descriptor) -> <void></span> <span id="L201" class="LineNr">201 </span> <span class="subxComment"># pseudocode:</span> <span id="L202" class="LineNr">202 </span> <span class="subxComment"># if !is-digit?(Look) expected(ed, err, "integer")</span> <span id="L203" class="LineNr">203 </span> <span class="subxComment"># if out->write >= out->length</span> @@ -364,7 +364,7 @@ if ('onhashchange' in window) { <span id="L301" class="LineNr">301 </span> 5d/pop-to-EBP <span id="L302" class="LineNr">302 </span> c3/return <span id="L303" class="LineNr">303 </span> -<span id="L304" class="LineNr">304 </span><span class="subxTest"><a href='crenshaw2-1.subx.html#L304'>test-get-num-reads-single-digit</a></span>: +<span id="L304" class="LineNr">304 </span><span class="subxTest">test-get-num-reads-single-digit</span>: <span id="L305" class="LineNr">305 </span> <span class="subxH1Comment"># - check that get-num returns first character if it's a digit</span> <span id="L306" class="LineNr">306 </span> <span class="subxComment"># This test uses exit-descriptors. Use EBP for setting up local variables.</span> <span id="L307" class="LineNr">307 </span> 55/push-EBP @@ -455,7 +455,7 @@ if ('onhashchange' in window) { <span id="L392" class="LineNr">392 </span> 5d/pop-to-EBP <span id="L393" class="LineNr">393 </span> c3/return <span id="L394" class="LineNr">394 </span> -<span id="L395" class="LineNr">395 </span><span class="subxTest"><a href='crenshaw2-1.subx.html#L395'>test-get-num-aborts-on-non-digit-in-Look</a></span>: +<span id="L395" class="LineNr">395 </span><span class="subxTest">test-get-num-aborts-on-non-digit-in-Look</span>: <span id="L396" class="LineNr">396 </span> <span class="subxH1Comment"># - check that get-num returns first character if it's a digit</span> <span id="L397" class="LineNr">397 </span> <span class="subxComment"># This test uses exit-descriptors. Use EBP for setting up local variables.</span> <span id="L398" class="LineNr">398 </span> 55/push-EBP @@ -543,7 +543,7 @@ if ('onhashchange' in window) { <span id="L480" class="LineNr">480 </span><span class="subxComment">## helpers</span> <span id="L481" class="LineNr">481 </span> <span id="L482" class="LineNr">482 </span><span class="subxComment"># write(f, "Error: "+s+" expected\n") then stop(ed, 1)</span> -<span id="L483" class="LineNr">483 </span><span class="subxFunction"><a href='crenshaw2-1.subx.html#L483'>expected</a></span>: <span class="subxComment"># ed : (address exit-descriptor), f : fd or (address stream), s : (address array byte) -> <void></span> +<span id="L483" class="LineNr">483 </span><span class="subxFunction">expected</span>: <span class="subxComment"># ed : (address exit-descriptor), f : fd or (address stream), s : (address array byte) -> <void></span> <span id="L484" class="LineNr">484 </span> <span class="subxS1Comment"># . prolog</span> <span id="L485" class="LineNr">485 </span> 55/push-EBP <span id="L486" class="LineNr">486 </span> 89/copy 3/mod/direct 5/rm32/EBP <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/ESP <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ESP to EBP</span> @@ -593,7 +593,7 @@ if ('onhashchange' in window) { <span id="L530" class="LineNr">530 </span> c3/return <span id="L531" class="LineNr">531 </span> <span id="L532" class="LineNr">532 </span><span class="subxComment"># read a byte from 'f', and save it in 'Look'</span> -<span id="L533" class="LineNr">533 </span><span class="subxFunction"><a href='crenshaw2-1.subx.html#L533'>get-char</a></span>: <span class="subxComment"># f : (address buffered-file) -> <void></span> +<span id="L533" class="LineNr">533 </span><span class="subxFunction">get-char</span>: <span class="subxComment"># f : (address buffered-file) -> <void></span> <span id="L534" class="LineNr">534 </span> <span class="subxS1Comment"># . prolog</span> <span id="L535" class="LineNr">535 </span> 55/push-EBP <span id="L536" class="LineNr">536 </span> 89/copy 3/mod/direct 5/rm32/EBP <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/ESP <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ESP to EBP</span> @@ -616,7 +616,7 @@ if ('onhashchange' in window) { <span id="L553" class="LineNr">553 </span> 5d/pop-to-EBP <span id="L554" class="LineNr">554 </span> c3/return <span id="L555" class="LineNr">555 </span> -<span id="L556" class="LineNr">556 </span><span class="subxFunction"><a href='crenshaw2-1.subx.html#L556'>is-digit?</a></span>: <span class="subxComment"># c : int -> bool/EAX</span> +<span id="L556" class="LineNr">556 </span><span class="subxFunction">is-digit?</span>: <span class="subxComment"># c : int -> bool/EAX</span> <span id="L557" class="LineNr">557 </span> <span class="subxS1Comment"># . prolog</span> <span id="L558" class="LineNr">558 </span> 55/push-EBP <span id="L559" class="LineNr">559 </span> 89/copy 3/mod/direct 5/rm32/EBP <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/ESP <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ESP to EBP</span> @@ -638,10 +638,10 @@ if ('onhashchange' in window) { <span id="L575" class="LineNr">575 </span> <span id="L576" class="LineNr">576 </span>== data <span id="L577" class="LineNr">577 </span> -<span id="L578" class="LineNr">578 </span><span class="SpecialChar"><a href='crenshaw2-1.subx.html#L578'>Look</a></span>: <span class="subxComment"># (char)</span> +<span id="L578" class="LineNr">578 </span><span class="SpecialChar">Look</span>: <span class="subxComment"># (char)</span> <span id="L579" class="LineNr">579 </span> 00 00 00 00 <span class="subxComment"># = 0</span> <span id="L580" class="LineNr">580 </span> -<span id="L581" class="LineNr">581 </span><span class="subxMinorFunction"><a href='crenshaw2-1.subx.html#L581'>_test-output-stream</a></span>: +<span id="L581" class="LineNr">581 </span><span class="subxMinorFunction">_test-output-stream</span>: <span id="L582" class="LineNr">582 </span> <span class="subxComment"># current write index</span> <span id="L583" class="LineNr">583 </span> 00 00 00 00 <span id="L584" class="LineNr">584 </span> <span class="subxComment"># current read index</span> @@ -651,7 +651,7 @@ if ('onhashchange' in window) { <span id="L588" class="LineNr">588 </span> <span class="subxComment"># data</span> <span id="L589" class="LineNr">589 </span> 00 00 00 00 00 00 00 00 <span class="subxComment"># 8 bytes</span> <span id="L590" class="LineNr">590 </span> -<span id="L591" class="LineNr">591 </span><span class="subxMinorFunction"><a href='crenshaw2-1.subx.html#L591'>_test-error-stream</a></span>: +<span id="L591" class="LineNr">591 </span><span class="subxMinorFunction">_test-error-stream</span>: <span id="L592" class="LineNr">592 </span> <span class="subxComment"># current write index</span> <span id="L593" class="LineNr">593 </span> 00 00 00 00 <span id="L594" class="LineNr">594 </span> <span class="subxComment"># current read index</span> |