diff options
Diffstat (limited to 'html/apps/hex.subx.html')
| -rw-r--r-- | html/apps/hex.subx.html | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/html/apps/hex.subx.html b/html/apps/hex.subx.html index 1ea0f352..f9dfea23 100644 --- a/html/apps/hex.subx.html +++ b/html/apps/hex.subx.html @@ -115,7 +115,7 @@ if ('onhashchange' in window) { <span id="L54" class="LineNr"> 54 </span> eb/jump $subx-hex-main:end/disp8 <span id="L55" class="LineNr"> 55 </span><span class="Constant">$subx-hex-main:interactive</span>: <span id="L56" class="LineNr"> 56 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> -<span id="L57" class="LineNr"> 57 </span> <span class="subxComment"># var ed/eax : exit-descriptor</span> +<span id="L57" class="LineNr"> 57 </span> <span class="subxComment"># var ed/eax: exit-descriptor</span> <span id="L58" class="LineNr"> 58 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span> <span id="L59" class="LineNr"> 59 </span> 89/copy 3/mod/direct 0/rm32/eax <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 eax</span> <span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># configure ed to really exit()</span> @@ -138,7 +138,7 @@ if ('onhashchange' in window) { <span id="L77" class="LineNr"> 77 </span> cd/syscall 0x80/imm8 <span id="L78" class="LineNr"> 78 </span> <span id="L79" class="LineNr"> 79 </span><span class="subxComment"># the main entry point</span> -<span id="L80" class="LineNr"> 80 </span><span class="subxFunction">subx-hex</span>: <span class="subxComment"># in : (addr buffered-file), out : (addr buffered-file), err : (addr buffered-file), ed : (addr exit-descriptor)</span> +<span id="L80" class="LineNr"> 80 </span><span class="subxFunction">subx-hex</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file), err: (addr buffered-file), ed: (addr exit-descriptor)</span> <span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># pseudocode:</span> <span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># while true</span> <span id="L83" class="LineNr"> 83 </span> <span class="subxComment"># eax = convert-next-octet(in, err, ed)</span> @@ -196,7 +196,7 @@ if ('onhashchange' in window) { <span id="L135" class="LineNr"> 135 </span><span class="subxComment"># raise an error and abort on all other unexpected bytes</span> <span id="L136" class="LineNr"> 136 </span><span class="subxComment"># return in eax an _octet_ containing the binary value of the two hex characters</span> <span id="L137" class="LineNr"> 137 </span><span class="subxComment"># return Eof on reaching end of file</span> -<span id="L138" class="LineNr"> 138 </span><span class="subxFunction">convert-next-octet</span>: <span class="subxComment"># in : (addr buffered-file), err : (addr buffered-file), ed : (addr exit-descriptor) -> byte-or-Eof/eax</span> +<span id="L138" class="LineNr"> 138 </span><span class="subxFunction">convert-next-octet</span>: <span class="subxComment"># in: (addr buffered-file), err: (addr buffered-file), ed: (addr exit-descriptor) -> byte-or-Eof/eax</span> <span id="L139" class="LineNr"> 139 </span> <span class="subxComment"># pseudocode:</span> <span id="L140" class="LineNr"> 140 </span> <span class="subxComment"># eax = scan-next-byte(in, err, ed)</span> <span id="L141" class="LineNr"> 141 </span> <span class="subxComment"># if (eax == Eof) return</span> @@ -308,7 +308,7 @@ if ('onhashchange' in window) { <span id="L247" class="LineNr"> 247 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L248" class="LineNr"> 248 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L249" class="LineNr"> 249 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'convert-next-octet' below</span> -<span id="L250" class="LineNr"> 250 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span> +<span id="L250" class="LineNr"> 250 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span> <span id="L251" class="LineNr"> 251 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span> <span id="L252" class="LineNr"> 252 </span> 89/copy 3/mod/direct 1/rm32/ecx <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 ecx</span> <span id="L253" class="LineNr"> 253 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span> @@ -398,7 +398,7 @@ if ('onhashchange' in window) { <span id="L337" class="LineNr"> 337 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L338" class="LineNr"> 338 </span> <span class="subxComment"># don't initialize '_test-stream'</span> <span id="L339" class="LineNr"> 339 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'convert-next-octet' below</span> -<span id="L340" class="LineNr"> 340 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span> +<span id="L340" class="LineNr"> 340 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span> <span id="L341" class="LineNr"> 341 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span> <span id="L342" class="LineNr"> 342 </span> 89/copy 3/mod/direct 1/rm32/ecx <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 ecx</span> <span id="L343" class="LineNr"> 343 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span> @@ -496,7 +496,7 @@ if ('onhashchange' in window) { <span id="L435" class="LineNr"> 435 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L436" class="LineNr"> 436 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L437" class="LineNr"> 437 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'convert-next-octet' below</span> -<span id="L438" class="LineNr"> 438 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span> +<span id="L438" class="LineNr"> 438 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span> <span id="L439" class="LineNr"> 439 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span> <span id="L440" class="LineNr"> 440 </span> 89/copy 3/mod/direct 1/rm32/ecx <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 ecx</span> <span id="L441" class="LineNr"> 441 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span> @@ -542,7 +542,7 @@ if ('onhashchange' in window) { <span id="L481" class="LineNr"> 481 </span><span class="subxComment"># return Eof if file ends without finding a hex byte</span> <span id="L482" class="LineNr"> 482 </span><span class="subxComment"># on '#' skip all bytes until newline</span> <span id="L483" class="LineNr"> 483 </span><span class="subxComment"># abort on any other byte</span> -<span id="L484" class="LineNr"> 484 </span><span class="subxFunction">scan-next-byte</span>: <span class="subxComment"># in : (addr buffered-file), err : (addr buffered-file), ed : (addr exit-descriptor) -> byte-or-Eof/eax</span> +<span id="L484" class="LineNr"> 484 </span><span class="subxFunction">scan-next-byte</span>: <span class="subxComment"># in: (addr buffered-file), err: (addr buffered-file), ed: (addr exit-descriptor) -> byte-or-Eof/eax</span> <span id="L485" class="LineNr"> 485 </span> <span class="subxComment"># pseudocode:</span> <span id="L486" class="LineNr"> 486 </span> <span class="subxComment"># while true</span> <span id="L487" class="LineNr"> 487 </span> <span class="subxComment"># eax = read-byte-buffered(in)</span> @@ -665,7 +665,7 @@ if ('onhashchange' in window) { <span id="L604" class="LineNr"> 604 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L605" class="LineNr"> 605 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L606" class="LineNr"> 606 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span> -<span id="L607" class="LineNr"> 607 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span> +<span id="L607" class="LineNr"> 607 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span> <span id="L608" class="LineNr"> 608 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span> <span id="L609" class="LineNr"> 609 </span> 89/copy 3/mod/direct 1/rm32/ecx <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 ecx</span> <span id="L610" class="LineNr"> 610 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span> @@ -763,7 +763,7 @@ if ('onhashchange' in window) { <span id="L702" class="LineNr"> 702 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L703" class="LineNr"> 703 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L704" class="LineNr"> 704 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span> -<span id="L705" class="LineNr"> 705 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span> +<span id="L705" class="LineNr"> 705 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span> <span id="L706" class="LineNr"> 706 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span> <span id="L707" class="LineNr"> 707 </span> 89/copy 3/mod/direct 1/rm32/ecx <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 ecx</span> <span id="L708" class="LineNr"> 708 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span> @@ -869,7 +869,7 @@ if ('onhashchange' in window) { <span id="L808" class="LineNr"> 808 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L809" class="LineNr"> 809 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L810" class="LineNr"> 810 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span> -<span id="L811" class="LineNr"> 811 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span> +<span id="L811" class="LineNr"> 811 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span> <span id="L812" class="LineNr"> 812 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span> <span id="L813" class="LineNr"> 813 </span> 89/copy 3/mod/direct 1/rm32/ecx <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 ecx</span> <span id="L814" class="LineNr"> 814 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span> @@ -975,7 +975,7 @@ if ('onhashchange' in window) { <span id="L914" class="LineNr"> 914 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L915" class="LineNr"> 915 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L916" class="LineNr"> 916 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span> -<span id="L917" class="LineNr"> 917 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span> +<span id="L917" class="LineNr"> 917 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span> <span id="L918" class="LineNr"> 918 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span> <span id="L919" class="LineNr"> 919 </span> 89/copy 3/mod/direct 1/rm32/ecx <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 ecx</span> <span id="L920" class="LineNr"> 920 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span> @@ -1083,7 +1083,7 @@ if ('onhashchange' in window) { <span id="L1022" class="LineNr">1022 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1023" class="LineNr">1023 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1024" class="LineNr">1024 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span> -<span id="L1025" class="LineNr">1025 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span> +<span id="L1025" class="LineNr">1025 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span> <span id="L1026" class="LineNr">1026 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span> <span id="L1027" class="LineNr">1027 </span> 89/copy 3/mod/direct 1/rm32/ecx <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 ecx</span> <span id="L1028" class="LineNr">1028 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span> @@ -1181,7 +1181,7 @@ if ('onhashchange' in window) { <span id="L1120" class="LineNr">1120 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1121" class="LineNr">1121 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1122" class="LineNr">1122 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span> -<span id="L1123" class="LineNr">1123 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span> +<span id="L1123" class="LineNr">1123 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span> <span id="L1124" class="LineNr">1124 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span> <span id="L1125" class="LineNr">1125 </span> 89/copy 3/mod/direct 1/rm32/ecx <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 ecx</span> <span id="L1126" class="LineNr">1126 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span> @@ -1271,7 +1271,7 @@ if ('onhashchange' in window) { <span id="L1210" class="LineNr">1210 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1211" class="LineNr">1211 </span> <span class="subxComment"># leave '_test-stream' empty</span> <span id="L1212" class="LineNr">1212 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span> -<span id="L1213" class="LineNr">1213 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span> +<span id="L1213" class="LineNr">1213 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span> <span id="L1214" class="LineNr">1214 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span> <span id="L1215" class="LineNr">1215 </span> 89/copy 3/mod/direct 1/rm32/ecx <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 ecx</span> <span id="L1216" class="LineNr">1216 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span> @@ -1369,7 +1369,7 @@ if ('onhashchange' in window) { <span id="L1308" class="LineNr">1308 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1309" class="LineNr">1309 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1310" class="LineNr">1310 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span> -<span id="L1311" class="LineNr">1311 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span> +<span id="L1311" class="LineNr">1311 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span> <span id="L1312" class="LineNr">1312 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span> <span id="L1313" class="LineNr">1313 </span> 89/copy 3/mod/direct 1/rm32/ecx <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 ecx</span> <span id="L1314" class="LineNr">1314 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span> @@ -1411,7 +1411,7 @@ if ('onhashchange' in window) { <span id="L1350" class="LineNr">1350 </span> 5d/pop-to-ebp <span id="L1351" class="LineNr">1351 </span> c3/return <span id="L1352" class="LineNr">1352 </span> -<span id="L1353" class="LineNr">1353 </span><span class="subxFunction">skip-until-newline</span>: <span class="subxComment"># in : (addr buffered-file)</span> +<span id="L1353" class="LineNr">1353 </span><span class="subxFunction">skip-until-newline</span>: <span class="subxComment"># in: (addr buffered-file)</span> <span id="L1354" class="LineNr">1354 </span> <span class="subxComment"># pseudocode:</span> <span id="L1355" class="LineNr">1355 </span> <span class="subxComment"># push eax</span> <span id="L1356" class="LineNr">1356 </span> <span class="subxComment"># while true</span> |