From 947c639ec646b67d1e434759a80eebfffedafe8d Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 24 Sep 2017 23:25:42 -0700 Subject: 4005 https://www.reddit.com/r/ProgrammingLanguages/comments/727va7/a_comparison_of_lisps/dnh2q6u --- html/nqueens.mu.html | 202 ++++++++++++++++++++++++++------------------------- nqueens.mu | 4 + 2 files changed, 107 insertions(+), 99 deletions(-) diff --git a/html/nqueens.mu.html b/html/nqueens.mu.html index 0e10c100..6180c160 100644 --- a/html/nqueens.mu.html +++ b/html/nqueens.mu.html @@ -59,105 +59,109 @@ if ('onhashchange' in window) { 
- 1 # http://rosettacode.org/wiki/N-queens_problem
- 2 # port of the Arc solution at http://arclanguage.org/item?id=19743
- 3 # run with tracing turned on:
- 4 #   ./mu --trace nqueens.mu
- 5 
- 6 container square [
- 7   rank:num
- 8   file:num
- 9 ]
-10 
-11 def nqueens n:num, queens:&:list:square -> result:num, queens:&:list:square [
-12   local-scope
-13   load-ingredients
-14   # if 'queens' is already long enough, print it and return
-15   added-so-far:num <- length queens
-16   {
-17   ¦ done?:bool <- greater-or-equal added-so-far, n
-18   ¦ break-unless done?
-19   ¦ stash queens
-20   ¦ return 1
-21   }
-22   # still work to do
-23   next-rank:num <- copy 0
-24   {
-25   ¦ break-unless queens
-26   ¦ first:square <- first queens
-27   ¦ existing-rank:num <- get first, rank:offset
-28   ¦ next-rank <- add existing-rank, 1
-29   }
-30   result <- copy 0
-31   next-file:num <- copy 0
-32   {
-33   ¦ done?:bool <- greater-or-equal next-file, n
-34   ¦ break-if done?
-35   ¦ curr:square <- merge next-rank, next-file
-36   ¦ {
-37   ¦ ¦ curr-conflicts?:bool <- conflict? curr, queens
-38   ¦ ¦ break-if curr-conflicts?
-39   ¦ ¦ queens:&:list:square <- push curr, queens
-40   ¦ ¦ sub-result:num <- nqueens n, queens
-41   ¦ ¦ result <- add result, sub-result
-42   ¦ ¦ queens <- rest queens
-43   ¦ }
-44   ¦ next-file <- add next-file, 1
-45   ¦ loop
-46   }
-47 ]
-48 
-49 def conflict? curr:square, queens:&:list:square -> result:bool [
-50   local-scope
-51   load-ingredients
-52   result1:bool <- conflicting-file? curr, queens
-53   return-if result1, result1
-54   result2:bool <- conflicting-diagonal? curr, queens
-55   return result2
-56 ]
-57 
-58 def conflicting-file? curr:square, queens:&:list:square -> result:bool [
-59   local-scope
-60   load-ingredients
-61   curr-file:num <- get curr, file:offset
-62   {
-63   ¦ break-unless queens
-64   ¦ q:square <- first queens
-65   ¦ qfile:num <- get q, file:offset
-66   ¦ file-match?:bool <- equal curr-file, qfile
-67   ¦ return-if file-match?, 1/conflict-found
-68   ¦ queens <- rest queens
-69   ¦ loop
-70   }
-71   return 0/no-conflict-found
-72 ]
-73 
-74 def conflicting-diagonal? curr:square, queens:&:list:square -> result:bool [
-75   local-scope
-76   load-ingredients
-77   curr-rank:num <- get curr, rank:offset
-78   curr-file:num <- get curr, file:offset
-79   {
-80   ¦ break-unless queens
-81   ¦ q:square <- first queens
-82   ¦ qrank:num <- get q, rank:offset
-83   ¦ qfile:num <- get q, file:offset
-84   ¦ rank-delta:num <- subtract qrank, curr-rank
-85   ¦ file-delta:num <- subtract qfile, curr-file
-86   ¦ rank-delta <- abs rank-delta
-87   ¦ file-delta <- abs file-delta
-88   ¦ diagonal-match?:bool <- equal rank-delta, file-delta
-89   ¦ return-if diagonal-match?, 1/conflict-found
-90   ¦ queens <- rest queens
-91   ¦ loop
-92   }
-93   return 0/no-conflict-found
-94 ]
-95 
-96 def main [
-97   nqueens 4
-98   $dump-trace [app]
-99 ]
+  1 # http://rosettacode.org/wiki/N-queens_problem
+  2 # port of the Arc solution at http://arclanguage.org/item?id=19743
+  3 # run with tracing turned on:
+  4 #   ./mu --trace nqueens.mu
+  5 
+  6 container square [
+  7   rank:num
+  8   file:num
+  9 ]
+ 10 
+ 11 def nqueens n:num, queens:&:list:square -> result:num, queens:&:list:square [
+ 12   local-scope
+ 13   load-ingredients
+ 14   # if 'queens' is already long enough, print it and return
+ 15   added-so-far:num <- length queens
+ 16   {
+ 17   ¦ done?:bool <- greater-or-equal added-so-far, n
+ 18   ¦ break-unless done?
+ 19   ¦ stash queens
+ 20   ¦ return 1
+ 21   }
+ 22   # still work to do
+ 23   next-rank:num <- copy 0
+ 24   {
+ 25   ¦ break-unless queens
+ 26   ¦ first:square <- first queens
+ 27   ¦ existing-rank:num <- get first, rank:offset
+ 28   ¦ next-rank <- add existing-rank, 1
+ 29   }
+ 30   result <- copy 0
+ 31   next-file:num <- copy 0
+ 32   {
+ 33   ¦ done?:bool <- greater-or-equal next-file, n
+ 34   ¦ break-if done?
+ 35   ¦ curr:square <- merge next-rank, next-file
+ 36   ¦ {
+ 37   ¦ ¦ curr-conflicts?:bool <- conflict? curr, queens
+ 38   ¦ ¦ break-if curr-conflicts?
+ 39   ¦ ¦ queens:&:list:square <- push curr, queens
+ 40   ¦ ¦ sub-result:num <- nqueens n, queens
+ 41   ¦ ¦ result <- add result, sub-result
+ 42   ¦ ¦ queens <- rest queens
+ 43   ¦ }
+ 44   ¦ next-file <- add next-file, 1
+ 45   ¦ loop
+ 46   }
+ 47 ]
+ 48 
+ 49 # check if putting a queen on 'curr' conflicts with any of the existing
+ 50 # queens
+ 51 # assumes that 'curr' is on a non-conflicting rank, and checks for conflict
+ 52 # only in files and diagonals
+ 53 def conflict? curr:square, queens:&:list:square -> result:bool [
+ 54   local-scope
+ 55   load-ingredients
+ 56   result1:bool <- conflicting-file? curr, queens
+ 57   return-if result1, result1
+ 58   result2:bool <- conflicting-diagonal? curr, queens
+ 59   return result2
+ 60 ]
+ 61 
+ 62 def conflicting-file? curr:square, queens:&:list:square -> result:bool [
+ 63   local-scope
+ 64   load-ingredients
+ 65   curr-file:num <- get curr, file:offset
+ 66   {
+ 67   ¦ break-unless queens
+ 68   ¦ q:square <- first queens
+ 69   ¦ qfile:num <- get q, file:offset
+ 70   ¦ file-match?:bool <- equal curr-file, qfile
+ 71   ¦ return-if file-match?, 1/conflict-found
+ 72   ¦ queens <- rest queens
+ 73   ¦ loop
+ 74   }
+ 75   return 0/no-conflict-found
+ 76 ]
+ 77 
+ 78 def conflicting-diagonal? curr:square, queens:&:list:square -> result:bool [
+ 79   local-scope
+ 80   load-ingredients
+ 81   curr-rank:num <- get curr, rank:offset
+ 82   curr-file:num <- get curr, file:offset
+ 83   {
+ 84   ¦ break-unless queens
+ 85   ¦ q:square <- first queens
+ 86   ¦ qrank:num <- get q, rank:offset
+ 87   ¦ qfile:num <- get q, file:offset
+ 88   ¦ rank-delta:num <- subtract qrank, curr-rank
+ 89   ¦ file-delta:num <- subtract qfile, curr-file
+ 90   ¦ rank-delta <- abs rank-delta
+ 91   ¦ file-delta <- abs file-delta
+ 92   ¦ diagonal-match?:bool <- equal rank-delta, file-delta
+ 93   ¦ return-if diagonal-match?, 1/conflict-found
+ 94   ¦ queens <- rest queens
+ 95   ¦ loop
+ 96   }
+ 97   return 0/no-conflict-found
+ 98 ]
+ 99 
+100 def main [
+101   nqueens 4
+102   $dump-trace [app]
+103 ]
diff --git a/nqueens.mu b/nqueens.mu index 95955784..87ce90b6 100644 --- a/nqueens.mu +++ b/nqueens.mu @@ -46,6 +46,10 @@ def nqueens n:num, queens:&:list:square -> result:num, queens:&:list:square [ } ] +# check if putting a queen on 'curr' conflicts with any of the existing +# queens +# assumes that 'curr' is on a non-conflicting rank, and checks for conflict +# only in files and diagonals def conflict? curr:square, queens:&:list:square -> result:bool [ local-scope load-ingredients -- cgit 1.4.1-2-gfad0 hlight .s { color: #dd2200; background-color: #fff0f0 } /* Literal.String */ .highlight .na { color: #336699 } /* Name.Attribute */ .highlight .nb { color: #003388 } /* Name.Builtin */ .highlight .nc { color: #bb0066; font-weight: bold } /* Name.Class */ .highlight .no { color: #003366; font-weight: bold } /* Name.Constant */ .highlight .nd { color: #555555 } /* Name.Decorator */ .highlight .ne { color: #bb0066; font-weight: bold } /* Name.Exception */ .highlight .nf { color: #0066bb; font-weight: bold } /* Name.Function */ .highlight .nl { color: #336699; font-style: italic } /* Name.Label */ .highlight .nn { color: #bb0066; font-weight: bold } /* Name.Namespace */ .highlight .py { color: #336699; font-weight: bold } /* Name.Property */ .highlight .nt { color: #bb0066; font-weight: bold } /* Name.Tag */ .highlight .nv { color: #336699 } /* Name.Variable */ .highlight .ow { color: #008800 } /* Operator.Word */ .highlight .w { color: #bbbbbb } /* Text.Whitespace */ .highlight .mb { color: #0000DD; font-weight: bold } /* Literal.Number.Bin */ .highlight .mf { color: #0000DD; font-weight: bold } /* Literal.Number.Float */ .highlight .mh { color: #0000DD; font-weight: bold } /* Literal.Number.Hex */ .highlight .mi { color: #0000DD; font-weight: bold } /* Literal.Number.Integer */ .highlight .mo { color: #0000DD; font-weight: bold } /* Literal.Number.Oct */ .highlight .sa { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Affix */ .highlight .sb { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Backtick */ .highlight .sc { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Char */ .highlight .dl { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Delimiter */ .highlight .sd { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Doc */ .highlight .s2 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Double */ .highlight .se { color: #0044dd; background-color: #fff0f0 } /* Literal.String.Escape */ .highlight .sh { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Heredoc */ .highlight .si { color: #3333bb; background-color: #fff0f0 } /* Literal.String.Interpol */ .highlight .sx { color: #22bb22; background-color: #f0fff0 } /* Literal.String.Other */ .highlight .sr { color: #008800; background-color: #fff0ff } /* Literal.String.Regex */ .highlight .s1 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Single */ .highlight .ss { color: #aa6600; background-color: #fff0f0 } /* Literal.String.Symbol */ .highlight .bp { color: #003388 } /* Name.Builtin.Pseudo */ .highlight .fm { color: #0066bb; font-weight: bold } /* Name.Function.Magic */ .highlight .vc { color: #336699 } /* Name.Variable.Class */ .highlight .vg { color: #dd7700 } /* Name.Variable.Global */ .highlight .vi { color: #3333bb } /* Name.Variable.Instance */ .highlight .vm { color: #336699 } /* Name.Variable.Magic */ .highlight .il { color: #0000DD; font-weight: bold } /* Literal.Number.Integer.Long */
<!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 - apps/ex7.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,no_foldcolumn,expand_tabs,line_ids,prevent_copy=">
<meta name="colorscheme" content="minimal-light">
<style type="text/css">
<!--
pre { 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; }
.LineNr { }
.subxS1Comment { color: #0000af; }
.SpecialChar { color: #d70000; }
.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; }
-->
</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/apps/ex7.subx'>https://github.com/akkartik/mu/blob/master/apps/ex7.subx</a>
<pre id='vimCodeElement'>
<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Example showing file syscalls.</span>
<span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span>
<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># Create a file, open it for writing, write a character to it, close it, open</span>
<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># it for reading, read a character from it, close it, delete it, and return</span>
<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># the character read.</span>
<span id="L6" class="LineNr"> 6 </span><span class="subxComment">#</span>
<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># To run:</span>
<span id="L8" class="LineNr"> 8 </span><span class="subxComment">#   $ ./bootstrap translate init.linux apps/ex7.subx -o apps/ex7</span>
<span id="L9" class="LineNr"> 9 </span><span class="subxComment">#   $ ./bootstrap run apps/ex7</span>
<span id="L10" class="LineNr">10 </span><span class="subxComment"># Expected result:</span>
<span id="L11" class="LineNr">11 </span><span class="subxComment">#   $ echo $?</span>
<span id="L12" class="LineNr">12 </span><span class="subxComment">#   97</span>
<span id="L13" class="LineNr">13 </span>
<span id="L14" class="LineNr">14 </span>== code
<span id="L15" class="LineNr">15 </span><span class="subxComment">#   instruction                     effective address                                                   register    displacement    immediate</span>
<span id="L16" class="LineNr">16 </span><span class="subxS1Comment"># . op          subop               mod             rm32          base        index         scale       r32</span>
<span id="L17" class="LineNr">17 </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="L18" class="LineNr">18 </span>
<span id="L19" class="LineNr">19 </span><span class="SpecialChar">Entry</span>:
<span id="L20" class="LineNr">20 </span>    <span class="subxComment"># creat(Filename)</span>
<span id="L21" class="LineNr">21 </span>    bb/copy-to-ebx  <span class="SpecialChar"><a href='ex7.subx.html#L94'>Filename</a></span>/imm32
<span id="L22" class="LineNr">22 </span>    b9/copy-to-ecx  0x180/imm32/fixed-perms
<span id="L23" class="LineNr">23 </span>    e8/call  syscall_creat/disp32
<span id="L24" class="LineNr">24 </span>
<span id="L25" class="LineNr">25 </span>    <span class="subxComment"># stream = open(Filename, O_WRONLY, 0)  # we can't use 'fd' because it looks like a hex byte</span>
<span id="L26" class="LineNr">26 </span>    bb/copy-to-ebx  <span class="SpecialChar"><a href='ex7.subx.html#L94'>Filename</a></span>/imm32
<span id="L27" class="LineNr">27 </span>    b9/copy-to-ecx  1/imm32/wronly
<span id="L28" class="LineNr">28 </span>    ba/copy-to-edx  0x180/imm32/fixed-perms
<span id="L29" class="LineNr">29 </span>    e8/call  syscall_open/disp32
<span id="L30" class="LineNr">30 </span>    <span class="subxComment"># save stream</span>
<span id="L31" class="LineNr">31 </span>    bb/copy-to-ebx  <span class="SpecialChar"><a href='ex7.subx.html#L88'>Stream</a></span>/imm32
<span id="L32" class="LineNr">32 </span>    89/copy                         0/mod/indirect  3/rm32/ebx   <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 *ebx</span>
<span id="L33" class="LineNr">33 </span>
<span id="L34" class="LineNr">34 </span>    <span class="subxComment"># write(Stream, &quot;a&quot;, 1)</span>
<span id="L35" class="LineNr">35 </span>    <span class="subxS1Comment"># . load stream</span>
<span id="L36" class="LineNr">36 </span>    bb/copy-to-ebx  <span class="SpecialChar"><a href='ex7.subx.html#L88'>Stream</a></span>/imm32
<span id="L37" class="LineNr">37 </span>    8b/copy                         0/mod/indirect  3/rm32/ebx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          3/r32/ebx  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy *ebx to ebx</span>
<span id="L38" class="LineNr">38 </span>    <span class="subxS1Comment"># .</span>
<span id="L39" class="LineNr">39 </span>    b9/copy-to-ecx  <span class="SpecialChar"><a href='ex7.subx.html#L90'>A</a></span>/imm32
<span id="L40" class="LineNr">40 </span>    ba/copy-to-edx  1/imm32/size
<span id="L41" class="LineNr">41 </span>    e8/call  syscall_write/disp32
<span id="L42" class="LineNr">42 </span>
<span id="L43" class="LineNr">43 </span>    <span class="subxComment"># close(Stream)</span>
<span id="L44" class="LineNr">44 </span>    <span class="subxS1Comment"># . load stream</span>
<span id="L45" class="LineNr">45 </span>    bb/copy-to-ebx  <span class="SpecialChar"><a href='ex7.subx.html#L88'>Stream</a></span>/imm32
<span id="L46" class="LineNr">46 </span>    8b/copy                         0/mod/indirect  3/rm32/ebx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          3/r32/ebx  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy *ebx to ebx</span>
<span id="L47" class="LineNr">47 </span>    <span class="subxS1Comment"># .</span>
<span id="L48" class="LineNr">48 </span>    e8/call  syscall_close/disp32
<span id="L49" class="LineNr">49 </span>
<span id="L50" class="LineNr">50 </span>    <span class="subxComment"># stream = open(Filename, O_RDONLY, 0)</span>
<span id="L51" class="LineNr">51 </span>    bb/copy-to-ebx  <span class="SpecialChar"><a href='ex7.subx.html#L94'>Filename</a></span>/imm32
<span id="L52" class="LineNr">52 </span>    b9/copy-to-ecx  0/imm32/rdonly
<span id="L53" class="LineNr">53 </span>    ba/copy-to-edx  0x180/imm32/fixed-perms
<span id="L54" class="LineNr">54 </span>    e8/call  syscall_open/disp32
<span id="L55" class="LineNr">55 </span>    <span class="subxS1Comment"># . save Stream</span>
<span id="L56" class="LineNr">56 </span>    bb/copy-to-ebx  <span class="SpecialChar"><a href='ex7.subx.html#L88'>Stream</a></span>/imm32
<span id="L57" class="LineNr">57 </span>    89/copy                         0/mod/indirect  3/rm32/ebx   <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 *ebx</span>
<span id="L58" class="LineNr">58 </span>
<span id="L59" class="LineNr">59 </span>    <span class="subxComment"># read(Stream, B, 1)</span>
<span id="L60" class="LineNr">60 </span>    <span class="subxS1Comment"># . load stream</span>
<span id="L61" class="LineNr">61 </span>    bb/copy-to-ebx  <span class="SpecialChar"><a href='ex7.subx.html#L88'>Stream</a></span>/imm32
<span id="L62" class="LineNr">62 </span>    8b/copy                         0/mod/indirect  3/rm32/ebx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          3/r32/ebx  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy *ebx to ebx</span>
<span id="L63" class="LineNr">63 </span>    <span class="subxS1Comment"># .</span>
<span id="L64" class="LineNr">64 </span>    b9/copy-to-ecx  <span class="SpecialChar"><a href='ex7.subx.html#L92'>B</a></span>/imm32
<span id="L65" class="LineNr">65 </span>    ba/copy-to-edx  1/imm32/size
<span id="L66" class="LineNr">66 </span>    e8/call  syscall_read/disp32
<span id="L67" class="LineNr">67 </span>
<span id="L68" class="LineNr">68 </span>    <span class="subxComment"># close(Stream)</span>
<span id="L69" class="LineNr">69 </span>    <span class="subxS1Comment"># . load stream</span>
<span id="L70" class="LineNr">70 </span>    bb/copy-to-ebx  <span class="SpecialChar"><a href='ex7.subx.html#L88'>Stream</a></span>/imm32
<span id="L71" class="LineNr">71 </span>    8b/copy                         0/mod/indirect  3/rm32/ebx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          3/r32/ebx  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy *ebx to ebx</span>
<span id="L72" class="LineNr">72 </span>    <span class="subxComment">#</span>
<span id="L73" class="LineNr">73 </span>    e8/call  syscall_close/disp32
<span id="L74" class="LineNr">74 </span>
<span id="L75" class="LineNr">75 </span>    <span class="subxComment"># unlink(filename)</span>
<span id="L76" class="LineNr">76 </span>    bb/copy-to-ebx  <span class="SpecialChar"><a href='ex7.subx.html#L94'>Filename</a></span>/imm32
<span id="L77" class="LineNr">77 </span>    e8/call  syscall_unlink/disp32
<span id="L78" class="LineNr">78 </span>
<span id="L79" class="LineNr">79 </span>    <span class="subxComment"># exit(b)</span>
<span id="L80" class="LineNr">80 </span>    <span class="subxS1Comment"># . load b</span>
<span id="L81" class="LineNr">81 </span>    bb/copy-to-ebx  <span class="SpecialChar"><a href='ex7.subx.html#L92'>B</a></span>/imm32
<span id="L82" class="LineNr">82 </span>    8b/copy                         0/mod/indirect  3/rm32/ebx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          3/r32/ebx  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy *ebx to ebx</span>
<span id="L83" class="LineNr">83 </span>    <span class="subxComment">#</span>
<span id="L84" class="LineNr">84 </span>    e8/call  syscall_exit/disp32
<span id="L85" class="LineNr">85 </span>
<span id="L86" class="LineNr">86 </span>== data
<span id="L87" class="LineNr">87 </span>
<span id="L88" class="LineNr">88 </span><span class="SpecialChar">Stream</span>:
<span id="L89" class="LineNr">89 </span>    0/imm32
<span id="L90" class="LineNr">90 </span><span class="SpecialChar">A</span>:
<span id="L91" class="LineNr">91 </span>    61/imm32/A
<span id="L92" class="LineNr">92 </span><span class="SpecialChar">B</span>:
<span id="L93" class="LineNr">93 </span>    0/imm32
<span id="L94" class="LineNr">94 </span><span class="SpecialChar">Filename</span>:
<span id="L95" class="LineNr">95 </span>    2e 66 6f 6f 00 00 00 00
<span id="L96" class="LineNr">96 </span><span class="subxComment">#   .  f  o  o  null</span>
<span id="L97" class="LineNr">97 </span>
<span id="L98" class="LineNr">98 </span><span class="subxS2Comment"># . . vim&#0058;nowrap:textwidth=0</span>
</pre>
</body>
</html>
<!-- vim: set foldmethod=manual : -->