summary refs log tree commit diff stats
path: root/LICENSE
blob: ec27f618489481e0490f4078a962236eff3c5168 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Copyright (c) 2018-2019 Drew DeVault

Permission is hereby granted, free of charge, to any person obtaining a copy of
this software and associated documentation files (the "Software"), to deal in
the Software without restriction, including without limitation the rights to
use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
of the Software, and to permit persons to whom the Software is furnished to do
so, subject to the following conditions:

The above copyright notice and this permission notice shall be included in all
copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
SOFTWARE.
a> 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
<!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 - 129emit-hex.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 { }
.subxTest { color: #5f8700; }
.subxS1Comment { color: #0000af; }
.subxFunction { color: #af5f00; text-decoration: underline; }
.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/main/129emit-hex.subx'>https://github.com/akkartik/mu/blob/main/129emit-hex.subx</a>
<pre id='vimCodeElement'>
<span id="L1" class="LineNr">  1 </span>== code
<span id="L2" class="LineNr">  2 </span><span class="subxComment">#   instruction                     effective address                                                   register    displacement    immediate</span>
<span id="L3" class="LineNr">  3 </span><span class="subxS1Comment"># . op          subop               mod             rm32          base        index         scale       r32</span>
<span id="L4" class="LineNr">  4 </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="L5" class="LineNr">  5 </span>
<span id="L6" class="LineNr">  6 </span><span class="subxComment"># print 'n' in hex in 'width' bytes in lower-endian order, with a space after every byte</span>
<span id="L7" class="LineNr">  7 </span><span class="subxFunction">emit-hex</span>:  <span class="subxComment"># out: (addr buffered-file), n: int, width: int</span>
<span id="L8" class="LineNr">  8 </span>    <span class="subxS1Comment"># . prologue</span>
<span id="L9" class="LineNr">  9 </span>    55/push-ebp
<span id="L10" class="LineNr"> 10 </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="L11" class="LineNr"> 11 </span>    <span class="subxS1Comment"># . save registers</span>
<span id="L12" class="LineNr"> 12 </span>    50/push-eax
<span id="L13" class="LineNr"> 13 </span>    51/push-ecx
<span id="L14" class="LineNr"> 14 </span>    52/push-edx
<span id="L15" class="LineNr"> 15 </span>    53/push-ebx
<span id="L16" class="LineNr"> 16 </span>    57/push-edi
<span id="L17" class="LineNr"> 17 </span>    <span class="subxComment"># edi = out</span>
<span id="L18" class="LineNr"> 18 </span>    8b/copy                         1/mod/*+disp8   5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          7/r32/edi   8/disp8        <span class="Normal"> . </span>                <span class="subxComment"># copy *(ebp+8) to edi</span>
<span id="L19" class="LineNr"> 19 </span>    <span class="subxComment"># ebx = n</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>          3/r32/ebx   0xc/disp8      <span class="Normal"> . </span>                <span class="subxComment"># copy *(ebp+12) to ebx</span>
<span id="L21" class="LineNr"> 21 </span>    <span class="subxComment"># edx = width</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>          2/r32/edx   0x10/disp8     <span class="Normal"> . </span>                <span class="subxComment"># copy *(ebp+16) to edx</span>
<span id="L23" class="LineNr"> 23 </span>    <span class="subxComment"># var curr/ecx: int = 0</span>
<span id="L24" class="LineNr"> 24 </span>    31/xor                          3/mod/direct    1/rm32/ecx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          1/r32/ecx  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># clear ecx</span>
<span id="L25" class="LineNr"> 25 </span><span class="Constant">$emit-hex:loop</span>:
<span id="L26" class="LineNr"> 26 </span>    <span class="subxComment"># if (curr &gt;= width) break</span>
<span id="L27" class="LineNr"> 27 </span>    39/compare                      3/mod/direct    1/rm32/ecx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          2/r32/edx  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># compare ecx with edx</span>
<span id="L28" class="LineNr"> 28 </span>    7d/jump-if-&gt;=  $emit-hex:end/disp8
<span id="L29" class="LineNr"> 29 </span>    <span class="subxComment"># write-byte-hex-buffered(out, ebx)  # only BL used</span>
<span id="L30" class="LineNr"> 30 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L31" class="LineNr"> 31 </span>    53/push-ebx
<span id="L32" class="LineNr"> 32 </span>    57/push-edi
<span id="L33" class="LineNr"> 33 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L34" class="LineNr"> 34 </span>    e8/call  <a href='117write-int-hex.subx.html#L93'>write-byte-hex-buffered</a>/disp32
<span id="L35" class="LineNr"> 35 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L36" class="LineNr"> 36 </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="L37" class="LineNr"> 37 </span>    <span class="subxComment"># write-byte-buffered(out, ' ')</span>
<span id="L38" class="LineNr"> 38 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L39" class="LineNr"> 39 </span>    68/push  0x20/imm32/space
<span id="L40" class="LineNr"> 40 </span>    57/push-edi
<span id="L41" class="LineNr"> 41 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L42" class="LineNr"> 42 </span>    e8/call  <a href='115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32
<span id="L43" class="LineNr"> 43 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L44" class="LineNr"> 44 </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="L45" class="LineNr"> 45 </span>    <span class="subxComment"># ebx = ebx &gt;&gt; 8</span>
<span id="L46" class="LineNr"> 46 </span>    c1/shift    5/subop/logic-right 3/mod/direct    3/rm32/ebx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              8/imm8            <span class="subxComment"># shift ebx right by 8 bits, while padding zeroes</span>
<span id="L47" class="LineNr"> 47 </span><span class="Constant">$emit-hex:continue</span>:
<span id="L48" class="LineNr"> 48 </span>    <span class="subxComment"># ++curr</span>
<span id="L49" class="LineNr"> 49 </span>    41/increment-ecx
<span id="L50" class="LineNr"> 50 </span>    eb/jump  $emit-hex:<span class="Constant">loop</span>/disp8
<span id="L51" class="LineNr"> 51 </span><span class="Constant">$emit-hex:end</span>:
<span id="L52" class="LineNr"> 52 </span>    <span class="subxS1Comment"># . restore registers</span>
<span id="L53" class="LineNr"> 53 </span>    5f/pop-to-edi
<span id="L54" class="LineNr"> 54 </span>    5b/pop-to-ebx
<span id="L55" class="LineNr"> 55 </span>    5a/pop-to-edx
<span id="L56" class="LineNr"> 56 </span>    59/pop-to-ecx
<span id="L57" class="LineNr"> 57 </span>    58/pop-to-eax
<span id="L58" class="LineNr"> 58 </span>    <span class="subxS1Comment"># . epilogue</span>
<span id="L59" class="LineNr"> 59 </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="L60" class="LineNr"> 60 </span>    5d/pop-to-ebp
<span id="L61" class="LineNr"> 61 </span>    c3/return
<span id="L62" class="LineNr"> 62 </span>
<span id="L63" class="LineNr"> 63 </span><span class="subxTest">test-emit-hex-single-byte</span>:
<span id="L64" class="LineNr"> 64 </span>    <span class="subxComment"># setup</span>
<span id="L65" class="LineNr"> 65 </span>    <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span>
<span id="L66" class="LineNr"> 66 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L67" class="LineNr"> 67 </span>    68/push  <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32
<span id="L68" class="LineNr"> 68 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L69" class="LineNr"> 69 </span>    e8/call  <a href='106stream.subx.html#L17'>clear-stream</a>/disp32
<span id="L70" class="LineNr"> 70 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L71" class="LineNr"> 71 </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="L72" class="LineNr"> 72 </span>    <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file-&gt;buffer)</span>
<span id="L73" class="LineNr"> 73 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L74" class="LineNr"> 74 </span>    68/push  $_test-output-buffered-file-&gt;buffer/imm32
<span id="L75" class="LineNr"> 75 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L76" class="LineNr"> 76 </span>    e8/call  <a href='106stream.subx.html#L17'>clear-stream</a>/disp32
<span id="L77" class="LineNr"> 77 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L78" class="LineNr"> 78 </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="L79" class="LineNr"> 79 </span>    <span class="subxComment"># emit-hex(_test-output-buffered-file, 0xab, 1)</span>
<span id="L80" class="LineNr"> 80 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L81" class="LineNr"> 81 </span>    68/push  1/imm32
<span id="L82" class="LineNr"> 82 </span>    68/push  0xab/imm32
<span id="L83" class="LineNr"> 83 </span>    68/push  <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32
<span id="L84" class="LineNr"> 84 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L85" class="LineNr"> 85 </span>    e8/call  <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32
<span id="L86" class="LineNr"> 86 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L87" class="LineNr"> 87 </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="L88" class="LineNr"> 88 </span>    <span class="subxComment"># flush(_test-output-buffered-file)</span>
<span id="L89" class="LineNr"> 89 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L90" class="LineNr"> 90 </span>    68/push  <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32
<span id="L91" class="LineNr"> 91 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L92" class="LineNr"> 92 </span>    e8/call  <a href='115write-byte.subx.html#L81'>flush</a>/disp32
<span id="L93" class="LineNr"> 93 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L94" class="LineNr"> 94 </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="L95" class="LineNr"> 95 </span>    <span class="subxComment"># check-ints-equal(*_test-output-stream-&gt;data, 'ab ', msg)</span>
<span id="L96" class="LineNr"> 96 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L97" class="LineNr"> 97 </span>    68/push  <span class="Constant">&quot;F - test-emit-hex-single-byte&quot;</span>/imm32
<span id="L98" class="LineNr"> 98 </span>    68/push  0x206261/imm32
<span id="L99" class="LineNr"> 99 </span>    <span class="subxS2Comment"># . . push *_test-output-stream-&gt;data</span>
<span id="L100" class="LineNr">100 </span>    b8/copy-to-eax  <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32
<span id="L101" class="LineNr">101 </span>    ff          6/subop/push        1/mod/*+disp8   0/rm32/eax   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>          0xc/disp8      <span class="Normal"> . </span>                <span class="subxComment"># push *(eax+12)</span>
<span id="L102" class="LineNr">102 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L103" class="LineNr">103 </span>    e8/call  <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32
<span id="L104" class="LineNr">104 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L105" class="LineNr">105 </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="L106" class="LineNr">106 </span>    <span class="subxS1Comment"># . end</span>
<span id="L107" class="LineNr">107 </span>    c3/return
<span id="L108" class="LineNr">108 </span>
<span id="L109" class="LineNr">109 </span><span class="subxTest">test-emit-hex-multiple-byte</span>:
<span id="L110" class="LineNr">110 </span>    <span class="subxComment"># setup</span>
<span id="L111" class="LineNr">111 </span>    <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span>
<span id="L112" class="LineNr">112 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L113" class="LineNr">113 </span>    68/push  <a href='115write-byte.subx.html#L285'>_test-output-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='106stream.subx.html#L17'>clear-stream</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>              4/imm32           <span class="subxComment"># add to esp</span>
<span id="L118" class="LineNr">118 </span>    <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file-&gt;buffer)</span>
<span id="L119" class="LineNr">119 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L120" class="LineNr">120 </span>    68/push  $_test-output-buffered-file-&gt;buffer/imm32
<span id="L121" class="LineNr">121 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L122" class="LineNr">122 </span>    e8/call  <a href='106stream.subx.html#L17'>clear-stream</a>/disp32
<span id="L123" class="LineNr">123 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L124" class="LineNr">124 </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="L125" class="LineNr">125 </span>    <span class="subxComment"># emit-hex(_test-output-buffered-file, 0x1234, 2)</span>
<span id="L126" class="LineNr">126 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L127" class="LineNr">127 </span>    68/push  2/imm32
<span id="L128" class="LineNr">128 </span>    68/push  0x1234/imm32
<span id="L129" class="LineNr">129 </span>    68/push  <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32
<span id="L130" class="LineNr">130 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L131" class="LineNr">131 </span>    e8/call  <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32
<span id="L132" class="LineNr">132 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L133" class="LineNr">133 </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="L134" class="LineNr">134 </span>    <span class="subxComment"># flush(_test-output-buffered-file)</span>
<span id="L135" class="LineNr">135 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L136" class="LineNr">136 </span>    68/push  <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32
<span id="L137" class="LineNr">137 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L138" class="LineNr">138 </span>    e8/call  <a href='115write-byte.subx.html#L81'>flush</a>/disp32
<span id="L139" class="LineNr">139 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L140" class="LineNr">140 </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="L141" class="LineNr">141 </span>    <span class="subxComment"># check-stream-equal(_test-output-stream, &quot;34 12 &quot;, msg)</span>
<span id="L142" class="LineNr">142 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L143" class="LineNr">143 </span>    68/push  <span class="Constant">&quot;F - <a href='129emit-hex.subx.html#L109'>test-emit-hex-multiple-byte</a>/1&quot;</span>/imm32
<span id="L144" class="LineNr">144 </span>    68/push  <span class="Constant">&quot;34 12 &quot;</span>/imm32
<span id="L145" class="LineNr">145 </span>    68/push  <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32
<span id="L146" class="LineNr">146 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L147" class="LineNr">147 </span>    e8/call  <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32
<span id="L148" class="LineNr">148 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L149" class="LineNr">149 </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="L150" class="LineNr">150 </span>    <span class="subxS1Comment"># . end</span>
<span id="L151" class="LineNr">151 </span>    c3/return
<span id="L152" class="LineNr">152 </span>
<span id="L153" class="LineNr">153 </span><span class="subxTest">test-emit-hex-zero-pad</span>:
<span id="L154" class="LineNr">154 </span>    <span class="subxComment"># setup</span>
<span id="L155" class="LineNr">155 </span>    <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span>
<span id="L156" class="LineNr">156 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L157" class="LineNr">157 </span>    68/push  <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32
<span id="L158" class="LineNr">158 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L159" class="LineNr">159 </span>    e8/call  <a href='106stream.subx.html#L17'>clear-stream</a>/disp32
<span id="L160" class="LineNr">160 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L161" class="LineNr">161 </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="L162" class="LineNr">162 </span>    <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file-&gt;buffer)</span>
<span id="L163" class="LineNr">163 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L164" class="LineNr">164 </span>    68/push  $_test-output-buffered-file-&gt;buffer/imm32
<span id="L165" class="LineNr">165 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L166" class="LineNr">166 </span>    e8/call  <a href='106stream.subx.html#L17'>clear-stream</a>/disp32
<span id="L167" class="LineNr">167 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L168" class="LineNr">168 </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="L169" class="LineNr">169 </span>    <span class="subxComment"># emit-hex(_test-output-buffered-file, 0xab, 2)</span>
<span id="L170" class="LineNr">170 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L171" class="LineNr">171 </span>    68/push  2/imm32
<span id="L172" class="LineNr">172 </span>    68/push  0xab/imm32
<span id="L173" class="LineNr">173 </span>    68/push  <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32
<span id="L174" class="LineNr">174 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L175" class="LineNr">175 </span>    e8/call  <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32
<span id="L176" class="LineNr">176 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L177" class="LineNr">177 </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="L178" class="LineNr">178 </span>    <span class="subxComment"># flush(_test-output-buffered-file)</span>
<span id="L179" class="LineNr">179 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L180" class="LineNr">180 </span>    68/push  <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32
<span id="L181" class="LineNr">181 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L182" class="LineNr">182 </span>    e8/call  <a href='115write-byte.subx.html#L81'>flush</a>/disp32
<span id="L183" class="LineNr">183 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L184" class="LineNr">184 </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="L185" class="LineNr">185 </span>    <span class="subxComment"># check(_test-output-stream-&gt;data == 'ab 00 ')</span>
<span id="L186" class="LineNr">186 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L187" class="LineNr">187 </span>    68/push  <span class="Constant">&quot;F - <a href='129emit-hex.subx.html#L153'>test-emit-hex-zero-pad</a>/1&quot;</span>/imm32
<span id="L188" class="LineNr">188 </span>    68/push  <span class="Constant">&quot;ab 00 &quot;</span>/imm32
<span id="L189" class="LineNr">189 </span>    68/push  <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32
<span id="L190" class="LineNr">190 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L191" class="LineNr">191 </span>    e8/call  <a href='109stream-equal.subx.html#L194'>check-stream-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="subxS1Comment"># . end</span>
<span id="L195" class="LineNr">195 </span>    c3/return
<span id="L196" class="LineNr">196 </span>
<span id="L197" class="LineNr">197 </span><span class="subxTest">test-emit-hex-negative</span>:
<span id="L198" class="LineNr">198 </span>    <span class="subxComment"># setup</span>
<span id="L199" class="LineNr">199 </span>    <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span>
<span id="L200" class="LineNr">200 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L201" class="LineNr">201 </span>    68/push  <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32
<span id="L202" class="LineNr">202 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L203" class="LineNr">203 </span>    e8/call  <a href='106stream.subx.html#L17'>clear-stream</a>/disp32
<span id="L204" class="LineNr">204 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L205" class="LineNr">205 </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="L206" class="LineNr">206 </span>    <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file-&gt;buffer)</span>
<span id="L207" class="LineNr">207 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L208" class="LineNr">208 </span>    68/push  $_test-output-buffered-file-&gt;buffer/imm32
<span id="L209" class="LineNr">209 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L210" class="LineNr">210 </span>    e8/call  <a href='106stream.subx.html#L17'>clear-stream</a>/disp32
<span id="L211" class="LineNr">211 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L212" class="LineNr">212 </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="L213" class="LineNr">213 </span>    <span class="subxComment"># emit-hex(_test-output-buffered-file, -1, 2)</span>
<span id="L214" class="LineNr">214 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L215" class="LineNr">215 </span>    68/push  2/imm32
<span id="L216" class="LineNr">216 </span>    68/push  -1/imm32
<span id="L217" class="LineNr">217 </span>    68/push  <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32
<span id="L218" class="LineNr">218 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L219" class="LineNr">219 </span>    e8/call  <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32
<span id="L220" class="LineNr">220 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L221" class="LineNr">221 </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="L222" class="LineNr">222 </span>    <span class="subxComment"># flush(_test-output-buffered-file)</span>
<span id="L223" class="LineNr">223 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L224" class="LineNr">224 </span>    68/push  <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32
<span id="L225" class="LineNr">225 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L226" class="LineNr">226 </span>    e8/call  <a href='115write-byte.subx.html#L81'>flush</a>/disp32
<span id="L227" class="LineNr">227 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L228" class="LineNr">228 </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="L229" class="LineNr">229 </span>    <span class="subxComment"># check-stream-equal(_test-output-stream == &quot;ff ff &quot;)</span>
<span id="L230" class="LineNr">230 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L231" class="LineNr">231 </span>    68/push  <span class="Constant">&quot;F - <a href='129emit-hex.subx.html#L197'>test-emit-hex-negative</a>/1&quot;</span>/imm32
<span id="L232" class="LineNr">232 </span>    68/push  <span class="Constant">&quot;ff ff &quot;</span>/imm32
<span id="L233" class="LineNr">233 </span>    68/push  <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32
<span id="L234" class="LineNr">234 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L235" class="LineNr">235 </span>    e8/call  <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32
<span id="L236" class="LineNr">236 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L237" class="LineNr">237 </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="L238" class="LineNr">238 </span>    <span class="subxS1Comment"># . end</span>
<span id="L239" class="LineNr">239 </span>    c3/return
<span id="L240" class="LineNr">240 </span>
<span id="L241" class="LineNr">241 </span><span class="subxS2Comment"># . . vim&#0058;nowrap:textwidth=0</span>
</pre>
</body>
</html>
<!-- vim: set foldmethod=manual : -->