diff options
| author | Kartik Agaram <vc@akkartik.com> | 2021-03-23 17:31:08 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2021-03-23 17:31:08 -0700 |
| commit | 3350c34a74844e21ea69077e01efff3bae64bdcd (patch) | |
| tree | fa06ba58542297d1cff6b78958d4547a40a25d21 /html/123slice.subx.html | |
| parent | 62a244211024a8367332541c571621883c05bcce (diff) | |
| download | mu-3350c34a74844e21ea69077e01efff3bae64bdcd.tar.gz | |
.
Diffstat (limited to 'html/123slice.subx.html')
| -rw-r--r-- | html/123slice.subx.html | 581 |
1 files changed, 215 insertions, 366 deletions
diff --git a/html/123slice.subx.html b/html/123slice.subx.html index 3fed457f..ce8848e1 100644 --- a/html/123slice.subx.html +++ b/html/123slice.subx.html @@ -14,16 +14,16 @@ 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; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Folded { color: #080808; background-color: #949494; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -112,7 +112,7 @@ if ('onhashchange' in window) { <span id="L51" class="LineNr"> 51 </span> 68/push 1/imm32 <span id="L52" class="LineNr"> 52 </span> 50/push-eax <span id="L53" class="LineNr"> 53 </span> <span class="subxS2Comment"># . . call</span> -<span id="L54" class="LineNr"> 54 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L54" class="LineNr"> 54 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L55" class="LineNr"> 55 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L56" class="LineNr"> 56 </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="L57" class="LineNr"> 57 </span> <span class="subxS1Comment"># . epilogue</span> @@ -141,7 +141,7 @@ if ('onhashchange' in window) { <span id="L80" class="LineNr"> 80 </span> 68/push 0/imm32 <span id="L81" class="LineNr"> 81 </span> 50/push-eax <span id="L82" class="LineNr"> 82 </span> <span class="subxS2Comment"># . . call</span> -<span id="L83" class="LineNr"> 83 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L83" class="LineNr"> 83 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L84" class="LineNr"> 84 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L85" class="LineNr"> 85 </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="L86" class="LineNr"> 86 </span> <span class="subxS1Comment"># . epilogue</span> @@ -170,7 +170,7 @@ if ('onhashchange' in window) { <span id="L109" class="LineNr"> 109 </span> 68/push 1/imm32 <span id="L110" class="LineNr"> 110 </span> 50/push-eax <span id="L111" class="LineNr"> 111 </span> <span class="subxS2Comment"># . . call</span> -<span id="L112" class="LineNr"> 112 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L112" class="LineNr"> 112 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L113" class="LineNr"> 113 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L114" class="LineNr"> 114 </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="L115" class="LineNr"> 115 </span> <span class="subxS1Comment"># . epilogue</span> @@ -295,7 +295,7 @@ if ('onhashchange' in window) { <span id="L234" class="LineNr"> 234 </span> 68/push 1/imm32 <span id="L235" class="LineNr"> 235 </span> 50/push-eax <span id="L236" class="LineNr"> 236 </span> <span class="subxS2Comment"># . . call</span> -<span id="L237" class="LineNr"> 237 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L237" class="LineNr"> 237 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L238" class="LineNr"> 238 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L239" class="LineNr"> 239 </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="L240" class="LineNr"> 240 </span> <span class="subxS1Comment"># . epilogue</span> @@ -331,7 +331,7 @@ if ('onhashchange' in window) { <span id="L270" class="LineNr"> 270 </span> 68/push 0/imm32 <span id="L271" class="LineNr"> 271 </span> 50/push-eax <span id="L272" class="LineNr"> 272 </span> <span class="subxS2Comment"># . . call</span> -<span id="L273" class="LineNr"> 273 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L273" class="LineNr"> 273 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L274" class="LineNr"> 274 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L275" class="LineNr"> 275 </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="L276" class="LineNr"> 276 </span> <span class="subxS1Comment"># . epilogue</span> @@ -367,7 +367,7 @@ if ('onhashchange' in window) { <span id="L306" class="LineNr"> 306 </span> 68/push 0/imm32 <span id="L307" class="LineNr"> 307 </span> 50/push-eax <span id="L308" class="LineNr"> 308 </span> <span class="subxS2Comment"># . . call</span> -<span id="L309" class="LineNr"> 309 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L309" class="LineNr"> 309 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L310" class="LineNr"> 310 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L311" class="LineNr"> 311 </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="L312" class="LineNr"> 312 </span> <span class="subxS1Comment"># . epilogue</span> @@ -403,7 +403,7 @@ if ('onhashchange' in window) { <span id="L342" class="LineNr"> 342 </span> 68/push 0/imm32 <span id="L343" class="LineNr"> 343 </span> 50/push-eax <span id="L344" class="LineNr"> 344 </span> <span class="subxS2Comment"># . . call</span> -<span id="L345" class="LineNr"> 345 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L345" class="LineNr"> 345 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L346" class="LineNr"> 346 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L347" class="LineNr"> 347 </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="L348" class="LineNr"> 348 </span> <span class="subxS1Comment"># . epilogue</span> @@ -434,7 +434,7 @@ if ('onhashchange' in window) { <span id="L373" class="LineNr"> 373 </span> 68/push 0/imm32 <span id="L374" class="LineNr"> 374 </span> 50/push-eax <span id="L375" class="LineNr"> 375 </span> <span class="subxS2Comment"># . . call</span> -<span id="L376" class="LineNr"> 376 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L376" class="LineNr"> 376 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L377" class="LineNr"> 377 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L378" class="LineNr"> 378 </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="L379" class="LineNr"> 379 </span> <span class="subxS1Comment"># . epilogue</span> @@ -470,7 +470,7 @@ if ('onhashchange' in window) { <span id="L409" class="LineNr"> 409 </span> 68/push 0/imm32 <span id="L410" class="LineNr"> 410 </span> 50/push-eax <span id="L411" class="LineNr"> 411 </span> <span class="subxS2Comment"># . . call</span> -<span id="L412" class="LineNr"> 412 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L412" class="LineNr"> 412 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L413" class="LineNr"> 413 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L414" class="LineNr"> 414 </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="L415" class="LineNr"> 415 </span> <span class="subxS1Comment"># . epilogue</span> @@ -501,7 +501,7 @@ if ('onhashchange' in window) { <span id="L440" class="LineNr"> 440 </span> 68/push 1/imm32 <span id="L441" class="LineNr"> 441 </span> 50/push-eax <span id="L442" class="LineNr"> 442 </span> <span class="subxS2Comment"># . . call</span> -<span id="L443" class="LineNr"> 443 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L443" class="LineNr"> 443 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L444" class="LineNr"> 444 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L445" class="LineNr"> 445 </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="L446" class="LineNr"> 446 </span> <span class="subxS1Comment"># . epilogue</span> @@ -537,7 +537,7 @@ if ('onhashchange' in window) { <span id="L476" class="LineNr"> 476 </span> 68/push 0/imm32 <span id="L477" class="LineNr"> 477 </span> 50/push-eax <span id="L478" class="LineNr"> 478 </span> <span class="subxS2Comment"># . . call</span> -<span id="L479" class="LineNr"> 479 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L479" class="LineNr"> 479 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L480" class="LineNr"> 480 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L481" class="LineNr"> 481 </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="L482" class="LineNr"> 482 </span> <span class="subxS1Comment"># . epilogue</span> @@ -661,7 +661,7 @@ if ('onhashchange' in window) { <span id="L600" class="LineNr"> 600 </span> 68/push 1/imm32 <span id="L601" class="LineNr"> 601 </span> 50/push-eax <span id="L602" class="LineNr"> 602 </span> <span class="subxS2Comment"># . . call</span> -<span id="L603" class="LineNr"> 603 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L603" class="LineNr"> 603 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L604" class="LineNr"> 604 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L605" class="LineNr"> 605 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L606" class="LineNr"> 606 </span> <span class="subxS1Comment"># . epilogue</span> @@ -697,7 +697,7 @@ if ('onhashchange' in window) { <span id="L636" class="LineNr"> 636 </span> 68/push 1/imm32 <span id="L637" class="LineNr"> 637 </span> 50/push-eax <span id="L638" class="LineNr"> 638 </span> <span class="subxS2Comment"># . . call</span> -<span id="L639" class="LineNr"> 639 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L639" class="LineNr"> 639 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L640" class="LineNr"> 640 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L641" class="LineNr"> 641 </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="L642" class="LineNr"> 642 </span> <span class="subxS1Comment"># . epilogue</span> @@ -733,7 +733,7 @@ if ('onhashchange' in window) { <span id="L672" class="LineNr"> 672 </span> 68/push 1/imm32 <span id="L673" class="LineNr"> 673 </span> 50/push-eax <span id="L674" class="LineNr"> 674 </span> <span class="subxS2Comment"># . . call</span> -<span id="L675" class="LineNr"> 675 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L675" class="LineNr"> 675 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L676" class="LineNr"> 676 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L677" class="LineNr"> 677 </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="L678" class="LineNr"> 678 </span> <span class="subxS1Comment"># . epilogue</span> @@ -769,7 +769,7 @@ if ('onhashchange' in window) { <span id="L708" class="LineNr"> 708 </span> 68/push 1/imm32 <span id="L709" class="LineNr"> 709 </span> 50/push-eax <span id="L710" class="LineNr"> 710 </span> <span class="subxS2Comment"># . . call</span> -<span id="L711" class="LineNr"> 711 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L711" class="LineNr"> 711 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L712" class="LineNr"> 712 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L713" class="LineNr"> 713 </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="L714" class="LineNr"> 714 </span> <span class="subxS1Comment"># . epilogue</span> @@ -805,7 +805,7 @@ if ('onhashchange' in window) { <span id="L744" class="LineNr"> 744 </span> 68/push 0/imm32 <span id="L745" class="LineNr"> 745 </span> 50/push-eax <span id="L746" class="LineNr"> 746 </span> <span class="subxS2Comment"># . . call</span> -<span id="L747" class="LineNr"> 747 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L747" class="LineNr"> 747 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L748" class="LineNr"> 748 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L749" class="LineNr"> 749 </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="L750" class="LineNr"> 750 </span> <span class="subxS1Comment"># . epilogue</span> @@ -841,7 +841,7 @@ if ('onhashchange' in window) { <span id="L780" class="LineNr"> 780 </span> 68/push 0/imm32 <span id="L781" class="LineNr"> 781 </span> 50/push-eax <span id="L782" class="LineNr"> 782 </span> <span class="subxS2Comment"># . . call</span> -<span id="L783" class="LineNr"> 783 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L783" class="LineNr"> 783 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L784" class="LineNr"> 784 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L785" class="LineNr"> 785 </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="L786" class="LineNr"> 786 </span> <span class="subxS1Comment"># . epilogue</span> @@ -880,7 +880,7 @@ if ('onhashchange' in window) { <span id="L819" class="LineNr"> 819 </span> 73/jump-if-addr>= $write-slice:loop-end/disp8 <span id="L820" class="LineNr"> 820 </span> <span class="subxComment"># if (out->write >= out->size) abort</span> <span id="L821" class="LineNr"> 821 </span> 39/compare 3/mod/direct 3/rm32/ebx <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 ebx with edx</span> -<span id="L822" class="LineNr"> 822 </span> 7d/jump-if->= $write-slice:abort/disp8 +<span id="L822" class="LineNr"> 822 </span> 7d/jump-if->= $write-slice:<a href='501draw-text.mu.html#L459'>abort</a>/disp8 <span id="L823" class="LineNr"> 823 </span> <span class="subxComment"># out->data[out->write] = *in</span> <span id="L824" class="LineNr"> 824 </span> <span class="subxS1Comment"># . AL = *in</span> <span id="L825" class="LineNr"> 825 </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> @@ -908,352 +908,201 @@ if ('onhashchange' in window) { <span id="L847" class="LineNr"> 847 </span> 5d/pop-to-ebp <span id="L848" class="LineNr"> 848 </span> c3/return <span id="L849" class="LineNr"> 849 </span> -<span id="L850" class="LineNr"> 850 </span><span class="Constant">$write-slice:abort</span>: -<span id="L851" class="LineNr"> 851 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L852" class="LineNr"> 852 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L853" class="LineNr"> 853 </span> 68/push <span class="Constant">"write-slice: out of space"</span>/imm32 -<span id="L854" class="LineNr"> 854 </span> 68/push 2/imm32/stderr -<span id="L855" class="LineNr"> 855 </span> <span class="subxS2Comment"># . . call</span> -<span id="L856" class="LineNr"> 856 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L857" class="LineNr"> 857 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L858" class="LineNr"> 858 </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="L859" class="LineNr"> 859 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L860" class="LineNr"> 860 </span> bb/copy-to-ebx 1/imm32 -<span id="L861" class="LineNr"> 861 </span> e8/call syscall_exit/disp32 -<span id="L862" class="LineNr"> 862 </span> <span class="subxComment"># never gets here</span> -<span id="L863" class="LineNr"> 863 </span> -<span id="L864" class="LineNr"> 864 </span><span class="subxTest">test-write-slice</span>: -<span id="L865" class="LineNr"> 865 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L866" class="LineNr"> 866 </span> 55/push-ebp -<span id="L867" class="LineNr"> 867 </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="L868" class="LineNr"> 868 </span> <span class="subxComment"># setup</span> -<span id="L869" class="LineNr"> 869 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L870" class="LineNr"> 870 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L871" class="LineNr"> 871 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L872" class="LineNr"> 872 </span> <span class="subxS2Comment"># . . call</span> -<span id="L873" class="LineNr"> 873 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L874" class="LineNr"> 874 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L875" class="LineNr"> 875 </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="L876" class="LineNr"> 876 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> -<span id="L877" class="LineNr"> 877 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 -<span id="L878" class="LineNr"> 878 </span> 8b/copy 0/mod/indirect 0/rm32/eax <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"># copy *eax to ecx</span> -<span id="L879" class="LineNr"> 879 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L880" class="LineNr"> 880 </span> 05/add-to-eax 4/imm32 -<span id="L881" class="LineNr"> 881 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L882" class="LineNr"> 882 </span> 51/push-ecx -<span id="L883" class="LineNr"> 883 </span> 50/push-eax -<span id="L884" class="LineNr"> 884 </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="L885" class="LineNr"> 885 </span> <span class="subxComment"># write-slice(_test-stream, slice)</span> -<span id="L886" class="LineNr"> 886 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L887" class="LineNr"> 887 </span> 51/push-ecx -<span id="L888" class="LineNr"> 888 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L889" class="LineNr"> 889 </span> <span class="subxS2Comment"># . . call</span> -<span id="L890" class="LineNr"> 890 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 -<span id="L891" class="LineNr"> 891 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L892" class="LineNr"> 892 </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="L893" class="LineNr"> 893 </span> <span class="subxComment"># check-stream-equal(_test-stream, "Abc", msg)</span> -<span id="L894" class="LineNr"> 894 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L895" class="LineNr"> 895 </span> 68/push <span class="Constant">"F - test-write-slice"</span>/imm32 -<span id="L896" class="LineNr"> 896 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L897" class="LineNr"> 897 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L898" class="LineNr"> 898 </span> <span class="subxS2Comment"># . . call</span> -<span id="L899" class="LineNr"> 899 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L900" class="LineNr"> 900 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L901" class="LineNr"> 901 </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="L902" class="LineNr"> 902 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L903" class="LineNr"> 903 </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="L904" class="LineNr"> 904 </span> 5d/pop-to-ebp -<span id="L905" class="LineNr"> 905 </span> c3/return -<span id="L906" class="LineNr"> 906 </span> -<span id="L907" class="LineNr"> 907 </span><span class="subxComment"># write a slice to a buffered-file</span> -<span id="L908" class="LineNr"> 908 </span><span class="subxFunction">write-slice-buffered</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr slice)</span> -<span id="L909" class="LineNr"> 909 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L910" class="LineNr"> 910 </span> 55/push-ebp -<span id="L911" class="LineNr"> 911 </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="L912" class="LineNr"> 912 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L913" class="LineNr"> 913 </span> 50/push-eax -<span id="L914" class="LineNr"> 914 </span> 51/push-ecx -<span id="L915" class="LineNr"> 915 </span> 52/push-edx -<span id="L916" class="LineNr"> 916 </span> 53/push-ebx -<span id="L917" class="LineNr"> 917 </span> 56/push-esi -<span id="L918" class="LineNr"> 918 </span> 57/push-edi -<span id="L919" class="LineNr"> 919 </span> <span class="subxComment"># esi = s</span> -<span id="L920" class="LineNr"> 920 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> -<span id="L921" class="LineNr"> 921 </span> <span class="subxComment"># var curr/ecx: (addr byte) = s->start</span> -<span id="L922" class="LineNr"> 922 </span> 8b/copy 0/mod/indirect 6/rm32/esi <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"># copy *esi to ecx</span> -<span id="L923" class="LineNr"> 923 </span> <span class="subxComment"># var max/esi: (addr byte) = s->end</span> -<span id="L924" class="LineNr"> 924 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to esi</span> -<span id="L925" class="LineNr"> 925 </span> <span class="subxComment"># edi = out</span> -<span id="L926" class="LineNr"> 926 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <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="L927" class="LineNr"> 927 </span> <span class="subxComment"># edx = out->size</span> -<span id="L928" class="LineNr"> 928 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+12) to edx</span> -<span id="L929" class="LineNr"> 929 </span> <span class="subxComment"># ebx = out->write</span> -<span id="L930" class="LineNr"> 930 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to ebx</span> -<span id="L931" class="LineNr"> 931 </span><span class="Constant">$write-slice-buffered:loop</span>: -<span id="L932" class="LineNr"> 932 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L933" class="LineNr"> 933 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with esi</span> -<span id="L934" class="LineNr"> 934 </span> 73/jump-if-addr>= $write-slice-buffered:loop-end/disp8 -<span id="L935" class="LineNr"> 935 </span> <span class="subxComment"># if (out->write >= out->size) flush and clear out's stream</span> -<span id="L936" class="LineNr"> 936 </span> 39/compare 3/mod/direct 3/rm32/ebx <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 ebx with edx</span> -<span id="L937" class="LineNr"> 937 </span> 7c/jump-if-< $write-slice-buffered:to-stream/disp8 -<span id="L938" class="LineNr"> 938 </span> <span class="subxS1Comment"># . persist out->write</span> -<span id="L939" class="LineNr"> 939 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *(edi+4)</span> -<span id="L940" class="LineNr"> 940 </span> <span class="subxS1Comment"># . flush(out)</span> -<span id="L941" class="LineNr"> 941 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L942" class="LineNr"> 942 </span> 57/push-edi -<span id="L943" class="LineNr"> 943 </span> <span class="subxS2Comment"># . . call</span> -<span id="L944" class="LineNr"> 944 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L945" class="LineNr"> 945 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L946" class="LineNr"> 946 </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="L947" class="LineNr"> 947 </span> <span class="subxS1Comment"># . clear-stream(stream = out+4)</span> -<span id="L948" class="LineNr"> 948 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L949" class="LineNr"> 949 </span> 8d/copy-address 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 edi+4 to eax</span> -<span id="L950" class="LineNr"> 950 </span> 50/push-eax -<span id="L951" class="LineNr"> 951 </span> <span class="subxS2Comment"># . . call</span> -<span id="L952" class="LineNr"> 952 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L953" class="LineNr"> 953 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L954" class="LineNr"> 954 </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="L955" class="LineNr"> 955 </span> <span class="subxS1Comment"># . out->write must now be 0; update its cache at ebx</span> -<span id="L956" class="LineNr"> 956 </span> 31/xor 3/mod/direct 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"># clear ebx</span> -<span id="L957" class="LineNr"> 957 </span><span class="Constant">$write-slice-buffered:to-stream</span>: -<span id="L958" class="LineNr"> 958 </span> <span class="subxComment"># out->data[out->write] = *in</span> -<span id="L959" class="LineNr"> 959 </span> <span class="subxS1Comment"># . AL = *in</span> -<span id="L960" class="LineNr"> 960 </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="L961" class="LineNr"> 961 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L962" class="LineNr"> 962 </span> <span class="subxS1Comment"># . out->data[out->write] = AL</span> -<span id="L963" class="LineNr"> 963 </span> 88/copy-byte 1/mod/*+disp8 4/rm32/sib 7/base/edi 3/index/ebx <span class="Normal"> . </span> 0/r32/AL 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy AL to *(edi+ebx+16)</span> -<span id="L964" class="LineNr"> 964 </span> <span class="subxComment"># ++out->write</span> -<span id="L965" class="LineNr"> 965 </span> 43/increment-ebx -<span id="L966" class="LineNr"> 966 </span> <span class="subxComment"># ++in</span> -<span id="L967" class="LineNr"> 967 </span> 41/increment-ecx -<span id="L968" class="LineNr"> 968 </span> eb/jump $write-slice-buffered:<span class="Constant">loop</span>/disp8 -<span id="L969" class="LineNr"> 969 </span><span class="Constant">$write-slice-buffered:loop-end</span>: -<span id="L970" class="LineNr"> 970 </span> <span class="subxComment"># persist necessary variables from registers</span> -<span id="L971" class="LineNr"> 971 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *(edi+4)</span> -<span id="L972" class="LineNr"> 972 </span><span class="Constant">$write-slice-buffered:end</span>: -<span id="L973" class="LineNr"> 973 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L974" class="LineNr"> 974 </span> 5f/pop-to-edi -<span id="L975" class="LineNr"> 975 </span> 5e/pop-to-esi -<span id="L976" class="LineNr"> 976 </span> 5b/pop-to-ebx -<span id="L977" class="LineNr"> 977 </span> 5a/pop-to-edx -<span id="L978" class="LineNr"> 978 </span> 59/pop-to-ecx -<span id="L979" class="LineNr"> 979 </span> 58/pop-to-eax -<span id="L980" class="LineNr"> 980 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L981" class="LineNr"> 981 </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="L982" class="LineNr"> 982 </span> 5d/pop-to-ebp -<span id="L983" class="LineNr"> 983 </span> c3/return -<span id="L984" class="LineNr"> 984 </span> -<span id="L985" class="LineNr"> 985 </span><span class="subxTest">test-write-slice-buffered</span>: -<span id="L986" class="LineNr"> 986 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L987" class="LineNr"> 987 </span> 55/push-ebp -<span id="L988" class="LineNr"> 988 </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="L989" class="LineNr"> 989 </span> <span class="subxComment"># setup</span> -<span id="L990" class="LineNr"> 990 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L991" class="LineNr"> 991 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L992" class="LineNr"> 992 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L993" class="LineNr"> 993 </span> <span class="subxS2Comment"># . . call</span> -<span id="L994" class="LineNr"> 994 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L995" class="LineNr"> 995 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L996" class="LineNr"> 996 </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="L997" class="LineNr"> 997 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> -<span id="L998" class="LineNr"> 998 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L999" class="LineNr"> 999 </span> 68/push $_test-buffered-file->buffer/imm32 -<span id="L1000" class="LineNr">1000 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1001" class="LineNr">1001 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1002" class="LineNr">1002 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1003" class="LineNr">1003 </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="L1004" class="LineNr">1004 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> -<span id="L1005" class="LineNr">1005 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 -<span id="L1006" class="LineNr">1006 </span> 8b/copy 0/mod/indirect 0/rm32/eax <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"># copy *eax to ecx</span> -<span id="L1007" class="LineNr">1007 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L1008" class="LineNr">1008 </span> 05/add-to-eax 4/imm32 -<span id="L1009" class="LineNr">1009 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L1010" class="LineNr">1010 </span> 51/push-ecx -<span id="L1011" class="LineNr">1011 </span> 50/push-eax -<span id="L1012" class="LineNr">1012 </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="L1013" class="LineNr">1013 </span> <span class="subxComment"># write-slice-buffered(_test-buffered-file, slice)</span> -<span id="L1014" class="LineNr">1014 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1015" class="LineNr">1015 </span> 51/push-ecx -<span id="L1016" class="LineNr">1016 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L1017" class="LineNr">1017 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1018" class="LineNr">1018 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 -<span id="L1019" class="LineNr">1019 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1020" class="LineNr">1020 </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="L1021" class="LineNr">1021 </span> <span class="subxComment"># flush(_test-buffered-file)</span> -<span id="L1022" class="LineNr">1022 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1023" class="LineNr">1023 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L1024" class="LineNr">1024 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1025" class="LineNr">1025 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1026" class="LineNr">1026 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1027" class="LineNr">1027 </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="L1028" class="LineNr">1028 </span> <span class="subxComment"># check-stream-equal(_test-stream, "Abc", msg)</span> -<span id="L1029" class="LineNr">1029 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1030" class="LineNr">1030 </span> 68/push <span class="Constant">"F - test-write-slice-buffered"</span>/imm32 -<span id="L1031" class="LineNr">1031 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L1032" class="LineNr">1032 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L1033" class="LineNr">1033 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1034" class="LineNr">1034 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L1035" class="LineNr">1035 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1036" class="LineNr">1036 </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="L1037" class="LineNr">1037 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1038" class="LineNr">1038 </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="L1039" class="LineNr">1039 </span> 5d/pop-to-ebp -<span id="L1040" class="LineNr">1040 </span> c3/return -<span id="L1041" class="LineNr">1041 </span> -<span id="L1042" class="LineNr">1042 </span><span class="subxComment"># copy a slice into a new (dynamically allocated) string</span> -<span id="L1043" class="LineNr">1043 </span><span class="subxFunction">slice-to-string</span>: <span class="subxComment"># ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte)</span> -<span id="L1044" class="LineNr">1044 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1045" class="LineNr">1045 </span> 55/push-ebp -<span id="L1046" class="LineNr">1046 </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="L1047" class="LineNr">1047 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L850" class="LineNr"> 850 </span><span class="Constant">$write-slice:<a href='501draw-text.mu.html#L459'>abort</a></span>: +<span id="L851" class="LineNr"> 851 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"write-slice: out of space"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L852" class="LineNr"> 852 </span> { +<span id="L853" class="LineNr"> 853 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L854" class="LineNr"> 854 </span> } +<span id="L855" class="LineNr"> 855 </span> <span class="subxComment"># never gets here</span> +<span id="L856" class="LineNr"> 856 </span> +<span id="L857" class="LineNr"> 857 </span><span class="subxTest">test-write-slice</span>: +<span id="L858" class="LineNr"> 858 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L859" class="LineNr"> 859 </span> 55/push-ebp +<span id="L860" class="LineNr"> 860 </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="L861" class="LineNr"> 861 </span> <span class="subxComment"># setup</span> +<span id="L862" class="LineNr"> 862 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L863" class="LineNr"> 863 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L864" class="LineNr"> 864 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L865" class="LineNr"> 865 </span> <span class="subxS2Comment"># . . call</span> +<span id="L866" class="LineNr"> 866 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L867" class="LineNr"> 867 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L868" class="LineNr"> 868 </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="L869" class="LineNr"> 869 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> +<span id="L870" class="LineNr"> 870 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 +<span id="L871" class="LineNr"> 871 </span> 8b/copy 0/mod/indirect 0/rm32/eax <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"># copy *eax to ecx</span> +<span id="L872" class="LineNr"> 872 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L873" class="LineNr"> 873 </span> 05/add-to-eax 4/imm32 +<span id="L874" class="LineNr"> 874 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L875" class="LineNr"> 875 </span> 51/push-ecx +<span id="L876" class="LineNr"> 876 </span> 50/push-eax +<span id="L877" class="LineNr"> 877 </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="L878" class="LineNr"> 878 </span> <span class="subxComment"># write-slice(_test-stream, slice)</span> +<span id="L879" class="LineNr"> 879 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L880" class="LineNr"> 880 </span> 51/push-ecx +<span id="L881" class="LineNr"> 881 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L882" class="LineNr"> 882 </span> <span class="subxS2Comment"># . . call</span> +<span id="L883" class="LineNr"> 883 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 +<span id="L884" class="LineNr"> 884 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L885" class="LineNr"> 885 </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="L886" class="LineNr"> 886 </span> <span class="subxComment"># check-stream-equal(_test-stream, "Abc", msg)</span> +<span id="L887" class="LineNr"> 887 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L888" class="LineNr"> 888 </span> 68/push <span class="Constant">"F - test-write-slice"</span>/imm32 +<span id="L889" class="LineNr"> 889 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L890" class="LineNr"> 890 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L891" class="LineNr"> 891 </span> <span class="subxS2Comment"># . . call</span> +<span id="L892" class="LineNr"> 892 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L893" class="LineNr"> 893 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L894" class="LineNr"> 894 </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="L895" class="LineNr"> 895 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L896" class="LineNr"> 896 </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="L897" class="LineNr"> 897 </span> 5d/pop-to-ebp +<span id="L898" class="LineNr"> 898 </span> c3/return +<span id="L899" class="LineNr"> 899 </span> +<span id="L900" class="LineNr"> 900 </span><span class="subxComment"># copy a slice into a new (dynamically allocated) string</span> +<span id="L901" class="LineNr"> 901 </span><span class="subxFunction">slice-to-string</span>: <span class="subxComment"># ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte)</span> +<span id="L902" class="LineNr"> 902 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L903" class="LineNr"> 903 </span> 55/push-ebp +<span id="L904" class="LineNr"> 904 </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="L905" class="LineNr"> 905 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L906" class="LineNr"> 906 </span> 50/push-eax +<span id="L907" class="LineNr"> 907 </span> 51/push-ecx +<span id="L908" class="LineNr"> 908 </span> 52/push-edx +<span id="L909" class="LineNr"> 909 </span> 53/push-ebx +<span id="L910" class="LineNr"> 910 </span> 56/push-esi +<span id="L911" class="LineNr"> 911 </span> <span class="subxComment"># esi = in</span> +<span id="L912" class="LineNr"> 912 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> +<span id="L913" class="LineNr"> 913 </span> <span class="subxComment"># var curr/edx: (addr byte) = in->start</span> +<span id="L914" class="LineNr"> 914 </span> 8b/copy 0/mod/indirect 6/rm32/esi <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"># copy *esi to edx</span> +<span id="L915" class="LineNr"> 915 </span> <span class="subxComment"># var max/ebx: (addr byte) = in->end</span> +<span id="L916" class="LineNr"> 916 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ebx</span> +<span id="L917" class="LineNr"> 917 </span> <span class="subxComment"># var size/ecx: int = max - curr + 4 # total size of output string (including the initial 'size' field)</span> +<span id="L918" class="LineNr"> 918 </span> 89/copy 3/mod/direct 1/rm32/ecx <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 ecx</span> +<span id="L919" class="LineNr"> 919 </span> 29/subtract 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"># subtract edx from ecx</span> +<span id="L920" class="LineNr"> 920 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <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 ecx</span> +<span id="L921" class="LineNr"> 921 </span> <span class="subxComment"># allocate(ad, size, out)</span> +<span id="L922" class="LineNr"> 922 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L923" class="LineNr"> 923 </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> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L924" class="LineNr"> 924 </span> 51/push-ecx +<span id="L925" class="LineNr"> 925 </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="L926" class="LineNr"> 926 </span> <span class="subxS2Comment"># . . call</span> +<span id="L927" class="LineNr"> 927 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 +<span id="L928" class="LineNr"> 928 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L929" class="LineNr"> 929 </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="L930" class="LineNr"> 930 </span> <span class="subxComment"># eax = out->payload</span> +<span id="L931" class="LineNr"> 931 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L932" class="LineNr"> 932 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <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+4) to eax</span> +<span id="L933" class="LineNr"> 933 </span> <span class="subxComment"># skip payload->allocid</span> +<span id="L934" class="LineNr"> 934 </span> 05/add-to-eax 4/imm32 +<span id="L935" class="LineNr"> 935 </span> <span class="subxComment"># if (eax == 0) abort</span> +<span id="L936" class="LineNr"> 936 </span> 3d/compare-eax-and 0/imm32 +<span id="L937" class="LineNr"> 937 </span> 74/jump-if-= $slice-to-string:<a href='501draw-text.mu.html#L459'>abort</a>/disp8 +<span id="L938" class="LineNr"> 938 </span> <span class="subxComment"># out->size = size-4</span> +<span id="L939" class="LineNr"> 939 </span> 89/copy 0/mod/indirect 0/rm32/eax <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"># copy ecx to *eax</span> +<span id="L940" class="LineNr"> 940 </span> 81 5/subop/subtract 0/mod/indirect 0/rm32/eax <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"># subtract 4 from *eax</span> +<span id="L941" class="LineNr"> 941 </span> <span class="subxComment"># save out</span> +<span id="L942" class="LineNr"> 942 </span> 50/push-eax +<span id="L943" class="LineNr"> 943 </span><span class="Constant">$slice-to-string:initialize</span>: +<span id="L944" class="LineNr"> 944 </span> <span class="subxComment"># eax = _append-4(eax+4, eax+size, curr, max) # clobbering ecx</span> +<span id="L945" class="LineNr"> 945 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L946" class="LineNr"> 946 </span> 53/push-ebx +<span id="L947" class="LineNr"> 947 </span> 52/push-edx +<span id="L948" class="LineNr"> 948 </span> <span class="subxS2Comment"># . . push eax+size (clobbering ecx)</span> +<span id="L949" class="LineNr"> 949 </span> 01/add 3/mod/direct 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"># add eax to ecx</span> +<span id="L950" class="LineNr"> 950 </span> 51/push-ecx +<span id="L951" class="LineNr"> 951 </span> <span class="subxS2Comment"># . . push eax+4 (clobbering eax)</span> +<span id="L952" class="LineNr"> 952 </span> 81 0/subop/add 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> 4/imm32 <span class="subxComment"># add to eax</span> +<span id="L953" class="LineNr"> 953 </span> 50/push-eax +<span id="L954" class="LineNr"> 954 </span> <span class="subxS2Comment"># . . call</span> +<span id="L955" class="LineNr"> 955 </span> e8/call <a href='108write.subx.html#L171'>_append-4</a>/disp32 +<span id="L956" class="LineNr"> 956 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L957" class="LineNr"> 957 </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> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L958" class="LineNr"> 958 </span> <span class="subxComment"># restore out (assumes _append-4 can't error)</span> +<span id="L959" class="LineNr"> 959 </span> 58/pop-to-eax +<span id="L960" class="LineNr"> 960 </span><span class="Constant">$slice-to-string:end</span>: +<span id="L961" class="LineNr"> 961 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L962" class="LineNr"> 962 </span> 5e/pop-to-esi +<span id="L963" class="LineNr"> 963 </span> 5b/pop-to-ebx +<span id="L964" class="LineNr"> 964 </span> 5a/pop-to-edx +<span id="L965" class="LineNr"> 965 </span> 59/pop-to-ecx +<span id="L966" class="LineNr"> 966 </span> 58/pop-to-eax +<span id="L967" class="LineNr"> 967 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L968" class="LineNr"> 968 </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="L969" class="LineNr"> 969 </span> 5d/pop-to-ebp +<span id="L970" class="LineNr"> 970 </span> c3/return +<span id="L971" class="LineNr"> 971 </span> +<span id="L972" class="LineNr"> 972 </span><span class="Constant">$slice-to-string:<a href='501draw-text.mu.html#L459'>abort</a></span>: +<span id="L973" class="LineNr"> 973 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"slice-to-string: out of space\n"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L974" class="LineNr"> 974 </span> { +<span id="L975" class="LineNr"> 975 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L976" class="LineNr"> 976 </span> } +<span id="L977" class="LineNr"> 977 </span> <span class="subxComment"># never gets here</span> +<span id="L978" class="LineNr"> 978 </span> +<span id="L979" class="LineNr"> 979 </span><span class="subxTest">test-slice-to-string</span>: +<span id="L980" class="LineNr"> 980 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L981" class="LineNr"> 981 </span> 55/push-ebp +<span id="L982" class="LineNr"> 982 </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="L983" class="LineNr"> 983 </span> <span class="subxComment"># var ad/edx: allocation-descriptor containing 16 bytes</span> +<span id="L984" class="LineNr"> 984 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> +<span id="L985" class="LineNr"> 985 </span> 89/<- %ecx 4/r32/esp +<span id="L986" class="LineNr"> 986 </span> 81 5/subop/subtract %esp 0x10/imm32 +<span id="L987" class="LineNr"> 987 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 0x10</span> +<span id="L988" class="LineNr"> 988 </span> 89/<- %edx 4/r32/esp +<span id="L989" class="LineNr"> 989 </span> <span class="subxS1Comment"># . ad = {start, end}</span> +<span id="L990" class="LineNr"> 990 </span> 51/push-ecx +<span id="L991" class="LineNr"> 991 </span> 52/push-edx +<span id="L992" class="LineNr"> 992 </span> 89/copy 3/mod/direct 2/rm32/edx <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 edx</span> +<span id="L993" class="LineNr"> 993 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> +<span id="L994" class="LineNr"> 994 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 +<span id="L995" class="LineNr"> 995 </span> 8b/copy 0/mod/indirect 0/rm32/eax <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"># copy *eax to ecx</span> +<span id="L996" class="LineNr"> 996 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L997" class="LineNr"> 997 </span> 05/add-to-eax 4/imm32 +<span id="L998" class="LineNr"> 998 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L999" class="LineNr"> 999 </span> 51/push-ecx +<span id="L1000" class="LineNr">1000 </span> 50/push-eax +<span id="L1001" class="LineNr">1001 </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="L1002" class="LineNr">1002 </span> <span class="subxComment"># var h/ebx: (handle array byte)</span> +<span id="L1003" class="LineNr">1003 </span> 68/push 0/imm32 +<span id="L1004" class="LineNr">1004 </span> 68/push 0/imm32 +<span id="L1005" class="LineNr">1005 </span> 89/copy 3/mod/direct 3/rm32/ebx <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 ebx</span> +<span id="L1006" class="LineNr">1006 </span> <span class="subxComment"># slice-to-string(ad, slice, h)</span> +<span id="L1007" class="LineNr">1007 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1008" class="LineNr">1008 </span> 53/push-ebx +<span id="L1009" class="LineNr">1009 </span> 51/push-ecx +<span id="L1010" class="LineNr">1010 </span> 52/push-edx +<span id="L1011" class="LineNr">1011 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1012" class="LineNr">1012 </span> e8/call <a href='123slice.subx.html#L901'>slice-to-string</a>/disp32 +<span id="L1013" class="LineNr">1013 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1014" class="LineNr">1014 </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="L1015" class="LineNr">1015 </span> <span class="subxComment"># eax = h->payload</span> +<span id="L1016" class="LineNr">1016 </span> 8b/copy 1/mod/*+disp8 3/rm32/ebx <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 *(ebx+4) to eax</span> +<span id="L1017" class="LineNr">1017 </span> <span class="subxComment"># skip payload->allocid</span> +<span id="L1018" class="LineNr">1018 </span> 05/add-to-eax 4/imm32 +<span id="L1019" class="Folded">1019 </span><span class="Folded">+-- 26 lines: #? # dump eax ---------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1045" class="LineNr">1045 </span> <span class="subxComment"># eax = string-equal?(eax, "Abc")</span> +<span id="L1046" class="LineNr">1046 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1047" class="LineNr">1047 </span> 68/push <span class="Constant">"Abc"</span>/imm32 <span id="L1048" class="LineNr">1048 </span> 50/push-eax -<span id="L1049" class="LineNr">1049 </span> 51/push-ecx -<span id="L1050" class="LineNr">1050 </span> 52/push-edx -<span id="L1051" class="LineNr">1051 </span> 53/push-ebx -<span id="L1052" class="LineNr">1052 </span> 56/push-esi -<span id="L1053" class="LineNr">1053 </span> <span class="subxComment"># esi = in</span> -<span id="L1054" class="LineNr">1054 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> -<span id="L1055" class="LineNr">1055 </span> <span class="subxComment"># var curr/edx: (addr byte) = in->start</span> -<span id="L1056" class="LineNr">1056 </span> 8b/copy 0/mod/indirect 6/rm32/esi <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"># copy *esi to edx</span> -<span id="L1057" class="LineNr">1057 </span> <span class="subxComment"># var max/ebx: (addr byte) = in->end</span> -<span id="L1058" class="LineNr">1058 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ebx</span> -<span id="L1059" class="LineNr">1059 </span> <span class="subxComment"># var size/ecx: int = max - curr + 4 # total size of output string (including the initial 'size' field)</span> -<span id="L1060" class="LineNr">1060 </span> 89/copy 3/mod/direct 1/rm32/ecx <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 ecx</span> -<span id="L1061" class="LineNr">1061 </span> 29/subtract 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"># subtract edx from ecx</span> -<span id="L1062" class="LineNr">1062 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <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 ecx</span> -<span id="L1063" class="LineNr">1063 </span> <span class="subxComment"># allocate(ad, size, out)</span> -<span id="L1064" class="LineNr">1064 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1065" class="LineNr">1065 </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> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L1066" class="LineNr">1066 </span> 51/push-ecx -<span id="L1067" class="LineNr">1067 </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="L1068" class="LineNr">1068 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1069" class="LineNr">1069 </span> e8/call <a href='120allocate.subx.html#L66'>allocate</a>/disp32 -<span id="L1070" class="LineNr">1070 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1071" class="LineNr">1071 </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="L1072" class="LineNr">1072 </span> <span class="subxComment"># eax = out->payload</span> -<span id="L1073" class="LineNr">1073 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L1074" class="LineNr">1074 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <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+4) to eax</span> -<span id="L1075" class="LineNr">1075 </span> <span class="subxComment"># skip payload->allocid</span> -<span id="L1076" class="LineNr">1076 </span> 05/add-to-eax 4/imm32 -<span id="L1077" class="LineNr">1077 </span> <span class="subxComment"># if (eax == 0) abort</span> -<span id="L1078" class="LineNr">1078 </span> 3d/compare-eax-and 0/imm32 -<span id="L1079" class="LineNr">1079 </span> 74/jump-if-= $slice-to-string:abort/disp8 -<span id="L1080" class="LineNr">1080 </span> <span class="subxComment"># out->size = size-4</span> -<span id="L1081" class="LineNr">1081 </span> 89/copy 0/mod/indirect 0/rm32/eax <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"># copy ecx to *eax</span> -<span id="L1082" class="LineNr">1082 </span> 81 5/subop/subtract 0/mod/indirect 0/rm32/eax <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"># subtract 4 from *eax</span> -<span id="L1083" class="LineNr">1083 </span> <span class="subxComment"># save out</span> -<span id="L1084" class="LineNr">1084 </span> 50/push-eax -<span id="L1085" class="LineNr">1085 </span><span class="Constant">$slice-to-string:initialize</span>: -<span id="L1086" class="LineNr">1086 </span> <span class="subxComment"># eax = _append-4(eax+4, eax+size, curr, max) # clobbering ecx</span> -<span id="L1087" class="LineNr">1087 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1088" class="LineNr">1088 </span> 53/push-ebx -<span id="L1089" class="LineNr">1089 </span> 52/push-edx -<span id="L1090" class="LineNr">1090 </span> <span class="subxS2Comment"># . . push eax+size (clobbering ecx)</span> -<span id="L1091" class="LineNr">1091 </span> 01/add 3/mod/direct 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"># add eax to ecx</span> -<span id="L1092" class="LineNr">1092 </span> 51/push-ecx -<span id="L1093" class="LineNr">1093 </span> <span class="subxS2Comment"># . . push eax+4 (clobbering eax)</span> -<span id="L1094" class="LineNr">1094 </span> 81 0/subop/add 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> 4/imm32 <span class="subxComment"># add to eax</span> -<span id="L1095" class="LineNr">1095 </span> 50/push-eax -<span id="L1096" class="LineNr">1096 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1097" class="LineNr">1097 </span> e8/call <a href='107trace.subx.html#L897'>_append-4</a>/disp32 -<span id="L1098" class="LineNr">1098 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1099" class="LineNr">1099 </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> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L1100" class="LineNr">1100 </span> <span class="subxComment"># restore out (assumes _append-4 can't error)</span> -<span id="L1101" class="LineNr">1101 </span> 58/pop-to-eax -<span id="L1102" class="LineNr">1102 </span><span class="Constant">$slice-to-string:end</span>: -<span id="L1103" class="LineNr">1103 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1104" class="LineNr">1104 </span> 5e/pop-to-esi -<span id="L1105" class="LineNr">1105 </span> 5b/pop-to-ebx -<span id="L1106" class="LineNr">1106 </span> 5a/pop-to-edx -<span id="L1107" class="LineNr">1107 </span> 59/pop-to-ecx -<span id="L1108" class="LineNr">1108 </span> 58/pop-to-eax -<span id="L1109" class="LineNr">1109 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1110" class="LineNr">1110 </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="L1111" class="LineNr">1111 </span> 5d/pop-to-ebp -<span id="L1112" class="LineNr">1112 </span> c3/return -<span id="L1113" class="LineNr">1113 </span> -<span id="L1114" class="LineNr">1114 </span><span class="Constant">$slice-to-string:abort</span>: -<span id="L1115" class="LineNr">1115 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L1116" class="LineNr">1116 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1117" class="LineNr">1117 </span> 68/push <span class="Constant">"slice-to-string: out of space\n"</span>/imm32 -<span id="L1118" class="LineNr">1118 </span> 68/push 2/imm32/stderr -<span id="L1119" class="LineNr">1119 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1120" class="LineNr">1120 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L1121" class="LineNr">1121 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1122" class="LineNr">1122 </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="L1123" class="LineNr">1123 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L1124" class="LineNr">1124 </span> bb/copy-to-ebx 1/imm32 -<span id="L1125" class="LineNr">1125 </span> e8/call syscall_exit/disp32 -<span id="L1126" class="LineNr">1126 </span> <span class="subxComment"># never gets here</span> -<span id="L1127" class="LineNr">1127 </span> -<span id="L1128" class="LineNr">1128 </span><span class="subxTest">test-slice-to-string</span>: -<span id="L1129" class="LineNr">1129 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1130" class="LineNr">1130 </span> 55/push-ebp -<span id="L1131" class="LineNr">1131 </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="L1132" class="LineNr">1132 </span> <span class="subxComment"># var heap/edx: allocation-descriptor</span> -<span id="L1133" class="LineNr">1133 </span> 68/push 0/imm32/limit -<span id="L1134" class="LineNr">1134 </span> 68/push 0/imm32/curr -<span id="L1135" class="LineNr">1135 </span> 89/copy 3/mod/direct 2/rm32/edx <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 edx</span> -<span id="L1136" class="LineNr">1136 </span> <span class="subxComment"># heap = new-segment(512)</span> -<span id="L1137" class="LineNr">1137 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1138" class="LineNr">1138 </span> 52/push-edx -<span id="L1139" class="LineNr">1139 </span> 68/push 0x200/imm32 -<span id="L1140" class="LineNr">1140 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1141" class="LineNr">1141 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 -<span id="L1142" class="LineNr">1142 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1143" class="LineNr">1143 </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="L1144" class="LineNr">1144 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> -<span id="L1145" class="LineNr">1145 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 -<span id="L1146" class="LineNr">1146 </span> 8b/copy 0/mod/indirect 0/rm32/eax <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"># copy *eax to ecx</span> -<span id="L1147" class="LineNr">1147 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L1148" class="LineNr">1148 </span> 05/add-to-eax 4/imm32 -<span id="L1149" class="LineNr">1149 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L1150" class="LineNr">1150 </span> 51/push-ecx -<span id="L1151" class="LineNr">1151 </span> 50/push-eax -<span id="L1152" class="LineNr">1152 </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="L1153" class="LineNr">1153 </span> <span class="subxComment"># var h/ebx: (handle array byte)</span> -<span id="L1154" class="LineNr">1154 </span> 68/push 0/imm32 -<span id="L1155" class="LineNr">1155 </span> 68/push 0/imm32 -<span id="L1156" class="LineNr">1156 </span> 89/copy 3/mod/direct 3/rm32/ebx <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 ebx</span> -<span id="L1157" class="LineNr">1157 </span> <span class="subxComment"># slice-to-string(heap, slice, h)</span> -<span id="L1158" class="LineNr">1158 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1159" class="LineNr">1159 </span> 53/push-ebx -<span id="L1160" class="LineNr">1160 </span> 51/push-ecx -<span id="L1161" class="LineNr">1161 </span> 52/push-edx -<span id="L1162" class="LineNr">1162 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1163" class="LineNr">1163 </span> e8/call <a href='123slice.subx.html#L1043'>slice-to-string</a>/disp32 -<span id="L1164" class="LineNr">1164 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1165" class="LineNr">1165 </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="L1166" class="LineNr">1166 </span> <span class="subxComment"># eax = h->payload</span> -<span id="L1167" class="LineNr">1167 </span> 8b/copy 1/mod/*+disp8 3/rm32/ebx <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 *(ebx+4) to eax</span> -<span id="L1168" class="LineNr">1168 </span> <span class="subxComment"># skip payload->allocid</span> -<span id="L1169" class="LineNr">1169 </span> 05/add-to-eax 4/imm32 -<span id="L1170" class="Folded">1170 </span><span class="Folded">+-- 26 lines: #? # dump eax ---------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1196" class="LineNr">1196 </span> <span class="subxComment"># eax = string-equal?(eax, "Abc")</span> -<span id="L1197" class="LineNr">1197 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1198" class="LineNr">1198 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L1199" class="LineNr">1199 </span> 50/push-eax -<span id="L1200" class="LineNr">1200 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1201" class="LineNr">1201 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 -<span id="L1202" class="LineNr">1202 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1203" class="LineNr">1203 </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="L1204" class="LineNr">1204 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L1205" class="LineNr">1205 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1206" class="LineNr">1206 </span> 68/push <span class="Constant">"F - test-slice-to-string"</span>/imm32 -<span id="L1207" class="LineNr">1207 </span> 68/push 1/imm32/true -<span id="L1208" class="LineNr">1208 </span> 50/push-eax -<span id="L1209" class="LineNr">1209 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1210" class="LineNr">1210 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1211" class="LineNr">1211 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1212" class="LineNr">1212 </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="L1213" class="LineNr">1213 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L1214" class="LineNr">1214 </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> 0x18/imm32 <span class="subxComment"># add to esp</span> -<span id="L1215" class="LineNr">1215 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1216" class="LineNr">1216 </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="L1217" class="LineNr">1217 </span> 5d/pop-to-ebp -<span id="L1218" class="LineNr">1218 </span> c3/return -<span id="L1219" class="LineNr">1219 </span> -<span id="L1220" class="LineNr">1220 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L1049" class="LineNr">1049 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1050" class="LineNr">1050 </span> e8/call <a href='105string-equal.subx.html#L8'>string-equal?</a>/disp32 +<span id="L1051" class="LineNr">1051 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1052" class="LineNr">1052 </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="L1053" class="LineNr">1053 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L1054" class="LineNr">1054 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1055" class="LineNr">1055 </span> 68/push <span class="Constant">"F - test-slice-to-string"</span>/imm32 +<span id="L1056" class="LineNr">1056 </span> 68/push 1/imm32/true +<span id="L1057" class="LineNr">1057 </span> 50/push-eax +<span id="L1058" class="LineNr">1058 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1059" class="LineNr">1059 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1060" class="LineNr">1060 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1061" class="LineNr">1061 </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="L1062" class="LineNr">1062 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L1063" class="LineNr">1063 </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> 0x18/imm32 <span class="subxComment"># add to esp</span> +<span id="L1064" class="LineNr">1064 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1065" class="LineNr">1065 </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="L1066" class="LineNr">1066 </span> 5d/pop-to-ebp +<span id="L1067" class="LineNr">1067 </span> c3/return +<span id="L1068" class="LineNr">1068 </span> +<span id="L1069" class="LineNr">1069 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> |