about summary refs log tree commit diff stats
path: root/apps
diff options
context:
space:
mode:
Diffstat (limited to 'apps')
-rw-r--r--apps/browse.mu4
-rw-r--r--apps/parse-int.mu4
-rw-r--r--apps/print-file.mu4
3 files changed, 6 insertions, 6 deletions
diff --git a/apps/browse.mu b/apps/browse.mu
index 5681060f..2bb020c9 100644
--- a/apps/browse.mu
+++ b/apps/browse.mu
@@ -6,7 +6,7 @@
 #
 # Press 'q' to quit. All other keys scroll down.
 
-fn main args-on-stack: (addr array (addr array byte)) -> exit-status/ebx: int {
+fn main args-on-stack: (addr array addr array byte) -> exit-status/ebx: int {
   # var file/esi: (addr buffered-file) = open args-on-stack[1] for reading {{{
   var file/esi: (addr buffered-file) <- copy 0
   {
@@ -16,7 +16,7 @@ fn main args-on-stack: (addr array (addr array byte)) -> exit-status/ebx: int {
       # var filename/ecx: (addr array byte) = args-on-stack[1] {{{
       var filename/ecx: (addr array byte) <- copy 0
       {
-        var args/eax: (addr array (addr array byte)) <- copy args-on-stack
+        var args/eax: (addr array addr array byte) <- copy args-on-stack
         var tmp/eax: (addr addr array byte) <- index args, 1
         filename <- copy *tmp
       }
diff --git a/apps/parse-int.mu b/apps/parse-int.mu
index 8ad6074f..65ee4da1 100644
--- a/apps/parse-int.mu
+++ b/apps/parse-int.mu
@@ -6,10 +6,10 @@
 #   $ echo $?
 #   123
 
-fn main _args: (addr array (addr array byte)) -> exit-status/ebx: int {
+fn main _args: (addr array addr array byte) -> exit-status/ebx: int {
 $main-body: {
   # if no args, print a message and exit
-  var args/esi: (addr array (addr array byte)) <- copy _args
+  var args/esi: (addr array addr array byte) <- copy _args
   var n/ecx: int <- length args
   compare n, 1
   {
diff --git a/apps/print-file.mu b/apps/print-file.mu
index 7cd51bdc..c8c487b2 100644
--- a/apps/print-file.mu
+++ b/apps/print-file.mu
@@ -7,8 +7,8 @@
 #   $ ./a.elf x
 #   abc
 
-fn main _args: (addr array (addr array byte)) -> exit-status/ebx: int {
-  var args/eax: (addr array (addr array byte)) <- copy _args
+fn main _args: (addr array addr array byte) -> exit-status/ebx: int {
+  var args/eax: (addr array addr array byte) <- copy _args
 $main-body: {
     var n/ecx: int <- length args
     compare n, 1
'>197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<title>Mu - 127next-word.subx</title>
<meta name="Generator" content="Vim/8.1">
<meta name="plugin-version" content="vim8.1_v1">
<meta name="syntax" content="none">
<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=">
<meta name="colorscheme" content="minimal-light">
<style type="text/css">
<!--
pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; }
body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; }
a { color:inherit; }
* { font-size:12pt; font-size: 1em; }
.subxComment { color: #005faf; }
.subxS2Comment { color: #8a8a8a; }
.subxTest { color: #5f8700; }
.subxFunction { color: #af5f00; text-decoration: underline; }
.LineNr { }
.subxS1Comment { color: #0000af; }
.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; }
.Constant { color: #008787; }
-->
</style>

<script type='text/javascript'>
<!--

/* function to open any folds containing a jumped-to line before jumping to it */
function JumpToLine()
{
  var lineNum;
  lineNum = window.location.hash;
  lineNum = lineNum.substr(1); /* strip off '#' */

  if (lineNum.indexOf('L') == -1) {
    lineNum = 'L'+lineNum;
  }
  var lineElem = document.getElementById(lineNum);
  /* Always jump to new location even if the line was hidden inside a fold, or
   * we corrected the raw number to a line ID.
   */
  if (lineElem) {
    lineElem.scrollIntoView(true);
  }
  return true;
}
if ('onhashchange' in window) {
  window.onhashchange = JumpToLine;
}

-->
</script>
</head>
<body onload='JumpToLine();'>
<a href='https://github.com/akkartik/mu/blob/master/127next-word.subx'>https://github.com/akkartik/mu/blob/master/127next-word.subx</a>
<pre id='vimCodeElement'>
<span id="L1" class="LineNr">  1 </span><span class="subxComment"># Tokenize by whitespace.</span>
<span id="L2" class="LineNr">  2 </span>
<span id="L3" class="LineNr">  3 </span>== code
<span id="L4" class="LineNr">  4 </span><span class="subxComment">#   instruction                     effective address                                                   register    displacement    immediate</span>
<span id="L5" class="LineNr">  5 </span><span class="subxS1Comment"># . op          subop               mod             rm32          base        index         scale       r32</span>
<span id="L6" class="LineNr">  6 </span><span class="subxS1Comment"># . 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes</span>
<span id="L7" class="LineNr">  7 </span>
<span id="L8" class="LineNr">  8 </span><span class="subxComment"># (re)compute the bounds of the next word in the line</span>
<span id="L9" class="LineNr">  9 </span><span class="subxComment"># return empty string on reaching end of file</span>
<span id="L10" class="LineNr"> 10 </span><span class="subxFunction">next-word</span>:  <span class="subxComment"># line: (addr stream byte), out: (addr slice)</span>
<span id="L11" class="LineNr"> 11 </span>    <span class="subxS1Comment"># . prologue</span>
<span id="L12" class="LineNr"> 12 </span>    55/push-ebp
<span id="L13" class="LineNr"> 13 </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>
<span id="L14" class="LineNr"> 14 </span>    <span class="subxS1Comment"># . save registers</span>
<span id="L15" class="LineNr"> 15 </span>    50/push-eax
<span id="L16" class="LineNr"> 16 </span>    51/push-ecx
<span id="L17" class="LineNr"> 17 </span>    56/push-esi
<span id="L18" class="LineNr"> 18 </span>    57/push-edi
<span id="L19" class="LineNr"> 19 </span>    <span class="subxComment"># esi = line</span>
<span id="L20" class="LineNr"> 20 </span>    8b/copy                         1/mod/*+disp8   5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          6/r32/esi   8/disp8        <span class="Normal"> . </span>                <span class="subxComment"># copy *(ebp+8) to esi</span>
<span id="L21" class="LineNr"> 21 </span>    <span class="subxComment"># edi = out</span>
<span id="L22" class="LineNr"> 22 </span>    8b/copy                         1/mod/*+disp8   5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          7/r32/edi   0xc/disp8      <span class="Normal"> . </span>                <span class="subxComment"># copy *(ebp+12) to edi</span>
<span id="L23" class="LineNr"> 23 </span>    <span class="subxComment"># skip-chars-matching(line, ' ')</span>
<span id="L24" class="LineNr"> 24 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L25" class="LineNr"> 25 </span>    68/push  0x20/imm32/space
<span id="L26" class="LineNr"> 26 </span>    ff          6/subop/push        1/mod/*+disp8   5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>          8/disp8        <span class="Normal"> . </span>                <span class="subxComment"># push *(ebp+8)</span>
<span id="L27" class="LineNr"> 27 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L28" class="LineNr"> 28 </span>    e8/call  <a href='124next-token.subx.html#L341'>skip-chars-matching</a>/disp32
<span id="L29" class="LineNr"> 29 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L30" class="LineNr"> 30 </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="L31" class="LineNr"> 31 </span><span class="Constant">$next-word:check0</span>:
<span id="L32" class="LineNr"> 32 </span>    <span class="subxComment"># if (line-&gt;read &gt;= line-&gt;write) clear out and return</span>
<span id="L33" class="LineNr"> 33 </span>    <span class="subxS1Comment"># . eax = line-&gt;read</span>
<span id="L34" class="LineNr"> 34 </span>    8b/copy                         1/mod/*+disp8   6/rm32/esi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/eax   4/disp8        <span class="Normal"> . </span>                <span class="subxComment"># copy *(esi+4) to eax</span>
<span id="L35" class="LineNr"> 35 </span>    <span class="subxS1Comment"># . if (eax &lt; line-&gt;write) goto next check</span>
<span id="L36" class="LineNr"> 36 </span>    3b/compare                      0/mod/indirect  6/rm32/esi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/eax  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># compare eax with *esi</span>
<span id="L37" class="LineNr"> 37 </span>    7c/jump-if-&lt;  $next-word:check-for-comment/disp8
<span id="L38" class="LineNr"> 38 </span>    <span class="subxS1Comment"># . return out</span>
<span id="L39" class="LineNr"> 39 </span>    c7          0/subop/copy        0/mod/direct    7/rm32/edi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              0/imm32           <span class="subxComment"># copy to *edi</span>
<span id="L40" class="LineNr"> 40 </span>    c7          0/subop/copy        1/mod/*+disp8   7/rm32/edi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>          4/disp8         0/imm32           <span class="subxComment"># copy to *(edi+4)</span>
<span id="L41" class="LineNr"> 41 </span>    eb/jump  $next-word:end/disp8
<span id="L42" class="LineNr"> 42 </span><span class="Constant">$next-word:check-for-comment</span>:
<span id="L43" class="LineNr"> 43 </span>    <span class="subxComment"># out-&gt;start = &amp;line-&gt;data[line-&gt;read]</span>
<span id="L44" class="LineNr"> 44 </span>    8b/copy                         1/mod/*+disp8   6/rm32/esi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          1/r32/ecx   4/disp8        <span class="Normal"> . </span>                <span class="subxComment"># copy *(esi+4) to ecx</span>
<span id="L45" class="LineNr"> 45 </span>    8d/copy-address                 1/mod/*+disp8   4/rm32/sib    6/base/esi  1/index/ecx  <span class="Normal"> . </span>          0/r32/eax   0xc/disp8      <span class="Normal"> . </span>                <span class="subxComment"># copy esi+ecx+12 to eax</span>
<span id="L46" class="LineNr"> 46 </span>    89/copy                         0/mod/indirect  7/rm32/edi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/eax  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy eax to *edi</span>
<span id="L47" class="LineNr"> 47 </span>    <span class="subxComment"># if (line-&gt;data[line-&gt;read] == '#') out-&gt;end = &amp;line-&gt;data[line-&gt;write]), skip rest of stream and return</span>
<span id="L48" class="LineNr"> 48 </span>    <span class="subxS1Comment"># . eax = line-&gt;data[line-&gt;read]</span>
<span id="L49" class="LineNr"> 49 </span>    31/xor                          3/mod/direct    0/rm32/eax   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/eax  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># clear eax</span>
<span id="L50" class="LineNr"> 50 </span>    8a/copy-byte                    1/mod/*+disp8   4/rm32/sib    6/base/esi  1/index/ecx  <span class="Normal"> . </span>          0/r32/AL    0xc/disp8      <span class="Normal"> . </span>                <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span>
<span id="L51" class="LineNr"> 51 </span>    <span class="subxS1Comment"># . compare</span>
<span id="L52" class="LineNr"> 52 </span>    3d/compare-eax-and  0x23/imm32/pound
<span id="L53" class="LineNr"> 53 </span>    75/jump-if-!=  $next-word:regular-word/disp8
<span id="L54" class="LineNr"> 54 </span><span class="Constant">$next-word:comment</span>:
<span id="L55" class="LineNr"> 55 </span>    <span class="subxS1Comment"># . out-&gt;end = &amp;line-&gt;data[line-&gt;write]</span>
<span id="L56" class="LineNr"> 56 </span>    8b/copy                         0/mod/indirect  6/rm32/esi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/eax  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy *esi to eax</span>
<span id="L57" class="LineNr"> 57 </span>    8d/copy-address                 1/mod/*+disp8   4/rm32/sib    6/base/esi  0/index/eax  <span class="Normal"> . </span>          0/r32/eax   0xc/disp8      <span class="Normal"> . </span>                <span class="subxComment"># copy esi+eax+12 to eax</span>
<span id="L58" class="LineNr"> 58 </span>    89/copy                         1/mod/*+disp8   7/rm32/edi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/eax   4/disp8        <span class="Normal"> . </span>                <span class="subxComment"># copy eax to *(edi+4)</span>
<span id="L59" class="LineNr"> 59 </span>    <span class="subxS1Comment"># . line-&gt;read = line-&gt;write</span>
<span id="L60" class="LineNr"> 60 </span>    89/copy                         1/mod/*+disp8   6/rm32/esi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/eax   4/disp8        <span class="Normal"> . </span>                <span class="subxComment"># copy eax to *(esi+4)</span>
<span id="L61" class="LineNr"> 61 </span>    <span class="subxS1Comment"># . return</span>
<span id="L62" class="LineNr"> 62 </span>    eb/jump  $next-word:end/disp8
<span id="L63" class="LineNr"> 63 </span><span class="Constant">$next-word:regular-word</span>:
<span id="L64" class="LineNr"> 64 </span>    <span class="subxComment"># otherwise skip-chars-not-matching-whitespace(line)  # including trailing newline</span>
<span id="L65" class="LineNr"> 65 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L66" class="LineNr"> 66 </span>    ff          6/subop/push        1/mod/*+disp8   5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>          8/disp8        <span class="Normal"> . </span>                <span class="subxComment"># push *(ebp+8)</span>
<span id="L67" class="LineNr"> 67 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L68" class="LineNr"> 68 </span>    e8/call  <a href='124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a>/disp32
<span id="L69" class="LineNr"> 69 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L70" class="LineNr"> 70 </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="L71" class="LineNr"> 71 </span>    <span class="subxComment"># out-&gt;end = &amp;line-&gt;data[line-&gt;read]</span>
<span id="L72" class="LineNr"> 72 </span>    8b/copy                         1/mod/*+disp8   6/rm32/esi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          1/r32/ecx   4/disp8        <span class="Normal"> . </span>                <span class="subxComment"># copy *(esi+4) to ecx</span>
<span id="L73" class="LineNr"> 73 </span>    8d/copy-address                 1/mod/*+disp8   4/rm32/sib    6/base/esi  1/index/ecx  <span class="Normal"> . </span>          0/r32/eax   0xc/disp8      <span class="Normal"> . </span>                <span class="subxComment"># copy esi+ecx+12 to eax</span>
<span id="L74" class="LineNr"> 74 </span>    89/copy                         1/mod/*+disp8   7/rm32/edi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/eax   4/disp8        <span class="Normal"> . </span>                <span class="subxComment"># copy eax to *(edi+4)</span>
<span id="L75" class="LineNr"> 75 </span><span class="Constant">$next-word:end</span>:
<span id="L76" class="LineNr"> 76 </span>    <span class="subxS1Comment"># . restore registers</span>
<span id="L77" class="LineNr"> 77 </span>    5f/pop-to-edi
<span id="L78" class="LineNr"> 78 </span>    5e/pop-to-esi
<span id="L79" class="LineNr"> 79 </span>    59/pop-to-ecx
<span id="L80" class="LineNr"> 80 </span>    58/pop-to-eax
<span id="L81" class="LineNr"> 81 </span>    <span class="subxS1Comment"># . epilogue</span>
<span id="L82" class="LineNr"> 82 </span>    89/copy                         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          5/r32/ebp  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy ebp to esp</span>
<span id="L83" class="LineNr"> 83 </span>    5d/pop-to-ebp
<span id="L84" class="LineNr"> 84 </span>    c3/return
<span id="L85" class="LineNr"> 85 </span>
<span id="L86" class="LineNr"> 86 </span><span class="subxTest">test-next-word</span>:
<span id="L87" class="LineNr"> 87 </span>    <span class="subxS1Comment"># . prologue</span>
<span id="L88" class="LineNr"> 88 </span>    55/push-ebp
<span id="L89" class="LineNr"> 89 </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>
<span id="L90" class="LineNr"> 90 </span>    <span class="subxComment"># setup</span>
<span id="L91" class="LineNr"> 91 </span>    <span class="subxS1Comment"># . clear-stream(_test-stream)</span>
<span id="L92" class="LineNr"> 92 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L93" class="LineNr"> 93 </span>    68/push  <a href='108write.subx.html#L148'>_test-stream</a>/imm32
<span id="L94" class="LineNr"> 94 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L95" class="LineNr"> 95 </span>    e8/call  <a href='106stream.subx.html#L17'>clear-stream</a>/disp32
<span id="L96" class="LineNr"> 96 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L97" class="LineNr"> 97 </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="L98" class="LineNr"> 98 </span>    <span class="subxComment"># var slice/ecx: slice</span>
<span id="L99" class="LineNr"> 99 </span>    68/push  0/imm32/end
<span id="L100" class="LineNr">100 </span>    68/push  0/imm32/start
<span id="L101" class="LineNr">101 </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="L102" class="LineNr">102 </span>    <span class="subxComment"># write(_test-stream, &quot;  ab&quot;)</span>
<span id="L103" class="LineNr">103 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L104" class="LineNr">104 </span>    68/push  <span class="Constant">&quot;  ab&quot;</span>/imm32
<span id="L105" class="LineNr">105 </span>    68/push  <a href='108write.subx.html#L148'>_test-stream</a>/imm32
<span id="L106" class="LineNr">106 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L107" class="LineNr">107 </span>    e8/call  <a href='108write.subx.html#L24'>write</a>/disp32
<span id="L108" class="LineNr">108 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L109" class="LineNr">109 </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="L110" class="LineNr">110 </span>    <span class="subxComment"># next-word(_test-stream, slice)</span>
<span id="L111" class="LineNr">111 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L112" class="LineNr">112 </span>    51/push-ecx
<span id="L113" class="LineNr">113 </span>    68/push  <a href='108write.subx.html#L148'>_test-stream</a>/imm32
<span id="L114" class="LineNr">114 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L115" class="LineNr">115 </span>    e8/call  <a href='127next-word.subx.html#L10'>next-word</a>/disp32
<span id="L116" class="LineNr">116 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L117" class="LineNr">117 </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="L118" class="LineNr">118 </span>    <span class="subxComment"># check-ints-equal(slice-&gt;start - _test-stream-&gt;data, 2, msg)</span>
<span id="L119" class="LineNr">119 </span>    <span class="subxS1Comment"># . check-ints-equal(slice-&gt;start - _test-stream, 14, msg)</span>
<span id="L120" class="LineNr">120 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L121" class="LineNr">121 </span>    68/push  <span class="Constant">&quot;F - <a href='127next-word.subx.html#L86'>test-next-word</a>: start&quot;</span>/imm32
<span id="L122" class="LineNr">122 </span>    68/push  0xe/imm32
<span id="L123" class="LineNr">123 </span>    <span class="subxS2Comment"># . . push slice-&gt;start - _test-stream</span>
<span id="L124" class="LineNr">124 </span>    8b/copy                         0/mod/indirect  1/rm32/ecx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/eax  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy *ecx to eax</span>
<span id="L125" class="LineNr">125 </span>    81          5/subop/subtract    3/mod/direct    0/rm32/eax   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              <a href='108write.subx.html#L148'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span>
<span id="L126" class="LineNr">126 </span>    50/push-eax
<span id="L127" class="LineNr">127 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L128" class="LineNr">128 </span>    e8/call  <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32
<span id="L129" class="LineNr">129 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L130" class="LineNr">130 </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>              0xc/imm32         <span class="subxComment"># add to esp</span>
<span id="L131" class="LineNr">131 </span>    <span class="subxComment"># check-ints-equal(slice-&gt;end - _test-stream-&gt;data, 4, msg)</span>
<span id="L132" class="LineNr">132 </span>    <span class="subxS1Comment"># . check-ints-equal(slice-&gt;end - _test-stream, 16, msg)</span>
<span id="L133" class="LineNr">133 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L134" class="LineNr">134 </span>    68/push  <span class="Constant">&quot;F - <a href='127next-word.subx.html#L86'>test-next-word</a>: end&quot;</span>/imm32
<span id="L135" class="LineNr">135 </span>    68/push  0x10/imm32
<span id="L136" class="LineNr">136 </span>    <span class="subxS2Comment"># . . push slice-&gt;end - _test-stream</span>
<span id="L137" class="LineNr">137 </span>    8b/copy                         1/mod/*+disp8   1/rm32/ecx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/eax   4/disp8        <span class="Normal"> . </span>                <span class="subxComment"># copy *(ecx+4) to eax</span>
<span id="L138" class="LineNr">138 </span>    81          5/subop/subtract    3/mod/direct    0/rm32/eax   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              <a href='108write.subx.html#L148'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span>
<span id="L139" class="LineNr">139 </span>    50/push-eax
<span id="L140" class="LineNr">140 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L141" class="LineNr">141 </span>    e8/call  <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32
<span id="L142" class="LineNr">142 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L143" class="LineNr">143 </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>              0xc/imm32         <span class="subxComment"># add to esp</span>
<span id="L144" class="LineNr">144 </span>    <span class="subxS1Comment"># . epilogue</span>
<span id="L145" class="LineNr">145 </span>    89/copy                         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          5/r32/ebp  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy ebp to esp</span>
<span id="L146" class="LineNr">146 </span>    5d/pop-to-ebp
<span id="L147" class="LineNr">147 </span>    c3/return
<span id="L148" class="LineNr">148 </span>
<span id="L149" class="LineNr">149 </span><span class="subxTest">test-next-word-returns-whole-comment</span>:
<span id="L150" class="LineNr">150 </span>    <span class="subxS1Comment"># . prologue</span>
<span id="L151" class="LineNr">151 </span>    55/push-ebp
<span id="L152" class="LineNr">152 </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>
<span id="L153" class="LineNr">153 </span>    <span class="subxComment"># setup</span>
<span id="L154" class="LineNr">154 </span>    <span class="subxS1Comment"># . clear-stream(_test-stream)</span>
<span id="L155" class="LineNr">155 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L156" class="LineNr">156 </span>    68/push  <a href='108write.subx.html#L148'>_test-stream</a>/imm32
<span id="L157" class="LineNr">157 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L158" class="LineNr">158 </span>    e8/call  <a href='106stream.subx.html#L17'>clear-stream</a>/disp32
<span id="L159" class="LineNr">159 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L160" class="LineNr">160 </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="L161" class="LineNr">161 </span>    <span class="subxComment"># var slice/ecx: slice</span>
<span id="L162" class="LineNr">162 </span>    68/push  0/imm32/end
<span id="L163" class="LineNr">163 </span>    68/push  0/imm32/start
<span id="L164" class="LineNr">164 </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="L165" class="LineNr">165 </span>    <span class="subxComment"># write(_test-stream, &quot;  # a&quot;)</span>
<span id="L166" class="LineNr">166 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L167" class="LineNr">167 </span>    68/push  <span class="Constant">&quot;  # a&quot;</span>/imm32
<span id="L168" class="LineNr">168 </span>    68/push  <a href='108write.subx.html#L148'>_test-stream</a>/imm32
<span id="L169" class="LineNr">169 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L170" class="LineNr">170 </span>    e8/call  <a href='108write.subx.html#L24'>write</a>/disp32
<span id="L171" class="LineNr">171 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L172" class="LineNr">172 </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="L173" class="LineNr">173 </span>    <span class="subxComment"># next-word(_test-stream, slice)</span>
<span id="L174" class="LineNr">174 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L175" class="LineNr">175 </span>    51/push-ecx
<span id="L176" class="LineNr">176 </span>    68/push  <a href='108write.subx.html#L148'>_test-stream</a>/imm32
<span id="L177" class="LineNr">177 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L178" class="LineNr">178 </span>    e8/call  <a href='127next-word.subx.html#L10'>next-word</a>/disp32
<span id="L179" class="LineNr">179 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L180" class="LineNr">180 </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="L181" class="LineNr">181 </span>    <span class="subxComment"># check-ints-equal(slice-&gt;start - _test-stream-&gt;data, 2, msg)</span>
<span id="L182" class="LineNr">182 </span>    <span class="subxS1Comment"># . check-ints-equal(slice-&gt;start - _test-stream, 14, msg)</span>
<span id="L183" class="LineNr">183 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L184" class="LineNr">184 </span>    68/push  <span class="Constant">&quot;F - <a href='127next-word.subx.html#L149'>test-next-word-returns-whole-comment</a>: start&quot;</span>/imm32
<span id="L185" class="LineNr">185 </span>    68/push  0xe/imm32
<span id="L186" class="LineNr">186 </span>    <span class="subxS2Comment"># . . push slice-&gt;start - _test-stream</span>
<span id="L187" class="LineNr">187 </span>    8b/copy                         0/mod/indirect  1/rm32/ecx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/eax  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy *ecx to eax</span>
<span id="L188" class="LineNr">188 </span>    81          5/subop/subtract    3/mod/direct    0/rm32/eax   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              <a href='108write.subx.html#L148'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span>
<span id="L189" class="LineNr">189 </span>    50/push-eax
<span id="L190" class="LineNr">190 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L191" class="LineNr">191 </span>    e8/call  <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32
<span id="L192" class="LineNr">192 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L193" class="LineNr">193 </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>              0xc/imm32         <span class="subxComment"># add to esp</span>
<span id="L194" class="LineNr">194 </span>    <span class="subxComment"># check-ints-equal(slice-&gt;end - _test-stream-&gt;data, 5, msg)</span>
<span id="L195" class="LineNr">195 </span>    <span class="subxS1Comment"># . check-ints-equal(slice-&gt;end - _test-stream, 17, msg)</span>
<span id="L196" class="LineNr">196 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L197" class="LineNr">197 </span>    68/push  <span class="Constant">&quot;F - <a href='127next-word.subx.html#L149'>test-next-word-returns-whole-comment</a>: end&quot;</span>/imm32
<span id="L198" class="LineNr">198 </span>    68/push  0x11/imm32
<span id="L199" class="LineNr">199 </span>    <span class="subxS2Comment"># . . push slice-&gt;end - _test-stream</span>
<span id="L200" class="LineNr">200 </span>    8b/copy                         1/mod/*+disp8   1/rm32/ecx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/eax   4/disp8        <span class="Normal"> . </span>                <span class="subxComment"># copy *(ecx+4) to eax</span>
<span id="L201" class="LineNr">201 </span>    81          5/subop/subtract    3/mod/direct    0/rm32/eax   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              <a href='108write.subx.html#L148'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span>
<span id="L202" class="LineNr">202 </span>    50/push-eax
<span id="L203" class="LineNr">203 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L204" class="LineNr">204 </span>    e8/call  <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32
<span id="L205" class="LineNr">205 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L206" class="LineNr">206 </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>              0xc/imm32         <span class="subxComment"># add to esp</span>
<span id="L207" class="LineNr">207 </span>    <span class="subxS1Comment"># . epilogue</span>
<span id="L208" class="LineNr">208 </span>    89/copy                         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          5/r32/ebp  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy ebp to esp</span>
<span id="L209" class="LineNr">209 </span>    5d/pop-to-ebp
<span id="L210" class="LineNr">210 </span>    c3/return
<span id="L211" class="LineNr">211 </span>
<span id="L212" class="LineNr">212 </span><span class="subxTest">test-next-word-returns-empty-string-on-eof</span>:
<span id="L213" class="LineNr">213 </span>    <span class="subxS1Comment"># . prologue</span>
<span id="L214" class="LineNr">214 </span>    55/push-ebp
<span id="L215" class="LineNr">215 </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>
<span id="L216" class="LineNr">216 </span>    <span class="subxComment"># setup</span>
<span id="L217" class="LineNr">217 </span>    <span class="subxS1Comment"># . clear-stream(_test-stream)</span>
<span id="L218" class="LineNr">218 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L219" class="LineNr">219 </span>    68/push  <a href='108write.subx.html#L148'>_test-stream</a>/imm32
<span id="L220" class="LineNr">220 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L221" class="LineNr">221 </span>    e8/call  <a href='106stream.subx.html#L17'>clear-stream</a>/disp32
<span id="L222" class="LineNr">222 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L223" class="LineNr">223 </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="L224" class="LineNr">224 </span>    <span class="subxComment"># var slice/ecx: slice</span>
<span id="L225" class="LineNr">225 </span>    68/push  0/imm32/end
<span id="L226" class="LineNr">226 </span>    68/push  0/imm32/start
<span id="L227" class="LineNr">227 </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="L228" class="LineNr">228 </span>    <span class="subxComment"># write nothing to _test-stream</span>
<span id="L229" class="LineNr">229 </span>    <span class="subxComment"># next-word(_test-stream, slice)</span>
<span id="L230" class="LineNr">230 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L231" class="LineNr">231 </span>    51/push-ecx
<span id="L232" class="LineNr">232 </span>    68/push  <a href='108write.subx.html#L148'>_test-stream</a>/imm32
<span id="L233" class="LineNr">233 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L234" class="LineNr">234 </span>    e8/call  <a href='127next-word.subx.html#L10'>next-word</a>/disp32
<span id="L235" class="LineNr">235 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L236" class="LineNr">236 </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="L237" class="LineNr">237 </span>    <span class="subxComment"># check-ints-equal(slice-&gt;end - slice-&gt;start, 0, msg)</span>
<span id="L238" class="LineNr">238 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L239" class="LineNr">239 </span>    68/push  <span class="Constant">&quot;F - test-next-word-returns-empty-string-on-eof&quot;</span>/imm32
<span id="L240" class="LineNr">240 </span>    68/push  0/imm32
<span id="L241" class="LineNr">241 </span>    <span class="subxS2Comment"># . . push slice-&gt;end - slice-&gt;start</span>
<span id="L242" class="LineNr">242 </span>    8b/copy                         1/mod/*+disp8   1/rm32/ecx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/eax   4/disp8        <span class="Normal"> . </span>                <span class="subxComment"># copy *(ecx+4) to eax</span>
<span id="L243" class="LineNr">243 </span>    2b/subtract                     0/mod/indirect  1/rm32/ecx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/eax  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># subtract *ecx from eax</span>
<span id="L244" class="LineNr">244 </span>    50/push-eax
<span id="L245" class="LineNr">245 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L246" class="LineNr">246 </span>    e8/call  <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32
<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>              0xc/imm32         <span class="subxComment"># add to esp</span>
<span id="L249" class="LineNr">249 </span>    <span class="subxS1Comment"># . epilogue</span>
<span id="L250" class="LineNr">250 </span>    89/copy                         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          5/r32/ebp  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy ebp to esp</span>
<span id="L251" class="LineNr">251 </span>    5d/pop-to-ebp
<span id="L252" class="LineNr">252 </span>    c3/return
</pre>
</body>
</html>
<!-- vim: set foldmethod=manual : -->