diff options
Diffstat (limited to 'html/subx/apps/crenshaw2-1b.subx.html')
-rw-r--r-- | html/subx/apps/crenshaw2-1b.subx.html | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/html/subx/apps/crenshaw2-1b.subx.html b/html/subx/apps/crenshaw2-1b.subx.html index 4445c081..b059f0fc 100644 --- a/html/subx/apps/crenshaw2-1b.subx.html +++ b/html/subx/apps/crenshaw2-1b.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-1b.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> @@ -261,7 +261,7 @@ if ('onhashchange' in window) { <span id="L198" class="LineNr">198 </span><span class="subxComment"># no space in 'out'.</span> <span id="L199" class="LineNr">199 </span><span class="subxComment"># Input comes from the global variable 'Look' (first byte) and the argument</span> <span id="L200" class="LineNr">200 </span><span class="subxComment"># 'in' (rest). We leave the next byte from 'in' into 'Look' on exit.</span> -<span id="L201" class="LineNr">201 </span><span class="subxFunction"><a href='crenshaw2-1b.subx.html#L201'>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="L201" class="LineNr">201 </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="L202" class="LineNr">202 </span> <span class="subxComment"># pseudocode:</span> <span id="L203" class="LineNr">203 </span> <span class="subxComment"># if !is-digit?(Look) expected(ed, err, "integer")</span> <span id="L204" class="LineNr">204 </span> <span class="subxComment"># do</span> @@ -381,7 +381,7 @@ if ('onhashchange' in window) { <span id="L318" class="LineNr">318 </span> 5d/pop-to-EBP <span id="L319" class="LineNr">319 </span> c3/return <span id="L320" class="LineNr">320 </span> -<span id="L321" class="LineNr">321 </span><span class="subxTest"><a href='crenshaw2-1b.subx.html#L321'>test-get-num-reads-single-digit</a></span>: +<span id="L321" class="LineNr">321 </span><span class="subxTest">test-get-num-reads-single-digit</span>: <span id="L322" class="LineNr">322 </span> <span class="subxH1Comment"># - check that get-num returns first character if it's a digit</span> <span id="L323" class="LineNr">323 </span> <span class="subxComment"># This test uses exit-descriptors. Use EBP for setting up local variables.</span> <span id="L324" class="LineNr">324 </span> 55/push-EBP @@ -472,7 +472,7 @@ if ('onhashchange' in window) { <span id="L409" class="LineNr">409 </span> 5d/pop-to-EBP <span id="L410" class="LineNr">410 </span> c3/return <span id="L411" class="LineNr">411 </span> -<span id="L412" class="LineNr">412 </span><span class="subxTest"><a href='crenshaw2-1b.subx.html#L412'>test-get-num-aborts-on-non-digit-in-Look</a></span>: +<span id="L412" class="LineNr">412 </span><span class="subxTest">test-get-num-aborts-on-non-digit-in-Look</span>: <span id="L413" class="LineNr">413 </span> <span class="subxH1Comment"># - check that get-num returns first character if it's a digit</span> <span id="L414" class="LineNr">414 </span> <span class="subxComment"># This test uses exit-descriptors. Use EBP for setting up local variables.</span> <span id="L415" class="LineNr">415 </span> 55/push-EBP @@ -557,7 +557,7 @@ if ('onhashchange' in window) { <span id="L494" class="LineNr">494 </span> 5d/pop-to-EBP <span id="L495" class="LineNr">495 </span> c3/return <span id="L496" class="LineNr">496 </span> -<span id="L497" class="LineNr">497 </span><span class="subxTest"><a href='crenshaw2-1b.subx.html#L497'>test-get-num-reads-multiple-digits</a></span>: +<span id="L497" class="LineNr">497 </span><span class="subxTest">test-get-num-reads-multiple-digits</span>: <span id="L498" class="LineNr">498 </span> <span class="subxH1Comment"># - check that get-num returns all initial digits until it encounters a non-digit</span> <span id="L499" class="LineNr">499 </span> <span class="subxComment"># This test uses exit-descriptors. Use EBP for setting up local variables.</span> <span id="L500" class="LineNr">500 </span> 55/push-EBP @@ -648,7 +648,7 @@ if ('onhashchange' in window) { <span id="L585" class="LineNr">585 </span> 5d/pop-to-EBP <span id="L586" class="LineNr">586 </span> c3/return <span id="L587" class="LineNr">587 </span> -<span id="L588" class="LineNr">588 </span><span class="subxTest"><a href='crenshaw2-1b.subx.html#L588'>test-get-num-reads-multiple-digits-followed-by-nondigit</a></span>: +<span id="L588" class="LineNr">588 </span><span class="subxTest">test-get-num-reads-multiple-digits-followed-by-nondigit</span>: <span id="L589" class="LineNr">589 </span> <span class="subxH1Comment"># - check that get-num returns all initial digits until it encounters a non-digit</span> <span id="L590" class="LineNr">590 </span> <span class="subxComment"># This test uses exit-descriptors. Use EBP for setting up local variables.</span> <span id="L591" class="LineNr">591 </span> 55/push-EBP @@ -742,7 +742,7 @@ if ('onhashchange' in window) { <span id="L679" class="LineNr">679 </span><span class="subxComment">## helpers</span> <span id="L680" class="LineNr">680 </span> <span id="L681" class="LineNr">681 </span><span class="subxComment"># write(f, "Error: "+s+" expected\n") then stop(ed, 1)</span> -<span id="L682" class="LineNr">682 </span><span class="subxFunction"><a href='crenshaw2-1b.subx.html#L682'>expected</a></span>: <span class="subxComment"># ed : (address exit-descriptor), f : fd or (address stream), s : (address array byte) -> <void></span> +<span id="L682" class="LineNr">682 </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="L683" class="LineNr">683 </span> <span class="subxS1Comment"># . prolog</span> <span id="L684" class="LineNr">684 </span> 55/push-EBP <span id="L685" class="LineNr">685 </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> @@ -791,7 +791,7 @@ if ('onhashchange' in window) { <span id="L728" class="LineNr">728 </span> c3/return <span id="L729" class="LineNr">729 </span> <span id="L730" class="LineNr">730 </span><span class="subxComment"># read a byte from 'f', and save it in 'Look'</span> -<span id="L731" class="LineNr">731 </span><span class="subxFunction"><a href='crenshaw2-1b.subx.html#L731'>get-char</a></span>: <span class="subxComment"># f : (address buffered-file) -> <void></span> +<span id="L731" class="LineNr">731 </span><span class="subxFunction">get-char</span>: <span class="subxComment"># f : (address buffered-file) -> <void></span> <span id="L732" class="LineNr">732 </span> <span class="subxS1Comment"># . prolog</span> <span id="L733" class="LineNr">733 </span> 55/push-EBP <span id="L734" class="LineNr">734 </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> @@ -813,7 +813,7 @@ if ('onhashchange' in window) { <span id="L750" class="LineNr">750 </span> 5d/pop-to-EBP <span id="L751" class="LineNr">751 </span> c3/return <span id="L752" class="LineNr">752 </span> -<span id="L753" class="LineNr">753 </span><span class="subxFunction"><a href='crenshaw2-1b.subx.html#L753'>is-digit?</a></span>: <span class="subxComment"># c : int -> bool/EAX</span> +<span id="L753" class="LineNr">753 </span><span class="subxFunction">is-digit?</span>: <span class="subxComment"># c : int -> bool/EAX</span> <span id="L754" class="LineNr">754 </span> <span class="subxS1Comment"># . prolog</span> <span id="L755" class="LineNr">755 </span> 55/push-EBP <span id="L756" class="LineNr">756 </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> @@ -835,10 +835,10 @@ if ('onhashchange' in window) { <span id="L772" class="LineNr">772 </span> <span id="L773" class="LineNr">773 </span>== data <span id="L774" class="LineNr">774 </span> -<span id="L775" class="LineNr">775 </span><span class="SpecialChar"><a href='crenshaw2-1b.subx.html#L775'>Look</a></span>: <span class="subxComment"># (char)</span> +<span id="L775" class="LineNr">775 </span><span class="SpecialChar">Look</span>: <span class="subxComment"># (char)</span> <span id="L776" class="LineNr">776 </span> 00 00 00 00 <span class="subxComment"># = 0</span> <span id="L777" class="LineNr">777 </span> -<span id="L778" class="LineNr">778 </span><span class="subxMinorFunction"><a href='crenshaw2-1b.subx.html#L778'>_test-output-stream</a></span>: +<span id="L778" class="LineNr">778 </span><span class="subxMinorFunction">_test-output-stream</span>: <span id="L779" class="LineNr">779 </span> <span class="subxComment"># current write index</span> <span id="L780" class="LineNr">780 </span> 00 00 00 00 <span id="L781" class="LineNr">781 </span> <span class="subxComment"># current read index</span> @@ -848,7 +848,7 @@ if ('onhashchange' in window) { <span id="L785" class="LineNr">785 </span> <span class="subxComment"># data</span> <span id="L786" class="LineNr">786 </span> 00 00 00 00 00 00 00 00 <span class="subxComment"># 8 bytes</span> <span id="L787" class="LineNr">787 </span> -<span id="L788" class="LineNr">788 </span><span class="subxMinorFunction"><a href='crenshaw2-1b.subx.html#L788'>_test-error-stream</a></span>: +<span id="L788" class="LineNr">788 </span><span class="subxMinorFunction">_test-error-stream</span>: <span id="L789" class="LineNr">789 </span> <span class="subxComment"># current write index</span> <span id="L790" class="LineNr">790 </span> 00 00 00 00 <span id="L791" class="LineNr">791 </span> <span class="subxComment"># current read index</span> |