5925
This commit is contained in:
Kartik Agaram
parent
71eb22a5bf
commit
2104d1a75b
|
|
@ -70,7 +70,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L11" class="LineNr">11 </span> b8/copy-to-eax 1/imm32/exit
|
||||
<span id="L12" class="LineNr">12 </span> cd/syscall 0x80/imm8
|
||||
<span id="L13" class="LineNr">13 </span>
|
||||
<span id="L14" class="LineNr">14 </span><span class="subxMinorFunction">_write</span>: <span class="subxComment"># fd : int, s : (addr array byte)</span>
|
||||
<span id="L14" class="LineNr">14 </span><span class="subxMinorFunction">_write</span>: <span class="subxComment"># fd: int, s: (addr array byte)</span>
|
||||
<span id="L15" class="LineNr">15 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L16" class="LineNr">16 </span> 55/push-ebp
|
||||
<span id="L17" class="LineNr">17 </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>
|
||||
|
|
@ -80,12 +80,12 @@ if ('onhashchange' in window) {
|
|||
<span id="L21" class="LineNr">21 </span> 52/push-edx
|
||||
<span id="L22" class="LineNr">22 </span> 53/push-ebx
|
||||
<span id="L23" class="LineNr">23 </span> <span class="subxComment"># syscall(write, fd, (data) s+4, (size) *s)</span>
|
||||
<span id="L24" class="LineNr">24 </span> <span class="subxS1Comment"># . fd : ebx</span>
|
||||
<span id="L24" class="LineNr">24 </span> <span class="subxS1Comment"># . ebx = fd</span>
|
||||
<span id="L25" class="LineNr">25 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ebx</span>
|
||||
<span id="L26" class="LineNr">26 </span> <span class="subxS1Comment"># . data : ecx = s+4</span>
|
||||
<span id="L26" class="LineNr">26 </span> <span class="subxS1Comment"># . var data/ecx: (addr byte) = s+4</span>
|
||||
<span id="L27" class="LineNr">27 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span>
|
||||
<span id="L28" class="LineNr">28 </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="L29" class="LineNr">29 </span> <span class="subxS1Comment"># . size : edx = *s</span>
|
||||
<span id="L29" class="LineNr">29 </span> <span class="subxS1Comment"># . var size/edx: int = *s</span>
|
||||
<span id="L30" class="LineNr">30 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <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 *(ebp+12) to edx</span>
|
||||
<span id="L31" class="LineNr">31 </span> 8b/copy 0/mod/indirect 2/rm32/edx <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 *edx to edx</span>
|
||||
<span id="L32" class="LineNr">32 </span> <span class="subxS1Comment"># . syscall</span>
|
||||
|
|
|
|||
|
|
@ -80,7 +80,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L21" class="LineNr"> 21 </span> cd/syscall 0x80/imm8
|
||||
<span id="L22" class="LineNr"> 22 </span>
|
||||
<span id="L23" class="LineNr"> 23 </span><span class="subxComment"># print msg to stderr if a != b, otherwise print "."</span>
|
||||
<span id="L24" class="LineNr"> 24 </span><span class="subxFunction">check-ints-equal</span>: <span class="subxComment"># a : int, b : int, msg : (addr array byte)</span>
|
||||
<span id="L24" class="LineNr"> 24 </span><span class="subxFunction">check-ints-equal</span>: <span class="subxComment"># a: int, b: int, msg: (addr array byte)</span>
|
||||
<span id="L25" class="LineNr"> 25 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L26" class="LineNr"> 26 </span> 55/push-ebp
|
||||
<span id="L27" class="LineNr"> 27 </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>
|
||||
|
|
@ -140,7 +140,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L81" class="LineNr"> 81 </span><span class="subxComment"># length-prefixed string containing just a single newline</span>
|
||||
<span id="L82" class="LineNr"> 82 </span><span class="subxComment"># convenient to have when printing messages and so on</span>
|
||||
<span id="L83" class="LineNr"> 83 </span><span class="SpecialChar">Newline</span>: <span class="subxComment"># (array byte)</span>
|
||||
<span id="L84" class="LineNr"> 84 </span> <span class="subxComment"># size : int</span>
|
||||
<span id="L84" class="LineNr"> 84 </span> <span class="subxComment"># size: int</span>
|
||||
<span id="L85" class="LineNr"> 85 </span> 1/imm32
|
||||
<span id="L86" class="LineNr"> 86 </span> <span class="subxComment"># data</span>
|
||||
<span id="L87" class="LineNr"> 87 </span> 0a/newline
|
||||
|
|
@ -151,14 +151,14 @@ if ('onhashchange' in window) {
|
|||
<span id="L92" class="LineNr"> 92 </span>
|
||||
<span id="L93" class="LineNr"> 93 </span><span class="subxComment"># length-prefixed string containing just a single space</span>
|
||||
<span id="L94" class="LineNr"> 94 </span><span class="SpecialChar">Space</span>: <span class="subxComment"># (array byte)</span>
|
||||
<span id="L95" class="LineNr"> 95 </span> <span class="subxComment"># size : int</span>
|
||||
<span id="L95" class="LineNr"> 95 </span> <span class="subxComment"># size: int</span>
|
||||
<span id="L96" class="LineNr"> 96 </span> 1/imm32
|
||||
<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># data</span>
|
||||
<span id="L98" class="LineNr"> 98 </span> 20/space
|
||||
<span id="L99" class="LineNr"> 99 </span>
|
||||
<span id="L100" class="LineNr">100 </span><span class="subxComment"># length-prefixed string containing just a single slash</span>
|
||||
<span id="L101" class="LineNr">101 </span><span class="SpecialChar">Slash</span>: <span class="subxComment"># (array byte)</span>
|
||||
<span id="L102" class="LineNr">102 </span> <span class="subxComment"># size : int</span>
|
||||
<span id="L102" class="LineNr">102 </span> <span class="subxComment"># size: int</span>
|
||||
<span id="L103" class="LineNr">103 </span> 1/imm32
|
||||
<span id="L104" class="LineNr">104 </span> <span class="subxComment"># data</span>
|
||||
<span id="L105" class="LineNr">105 </span> 2f/slash
|
||||
|
|
|
|||
|
|
@ -92,7 +92,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L30" class="LineNr"> 30 </span>
|
||||
<span id="L31" class="LineNr"> 31 </span><span class="subxComment"># compare a null-terminated ascii string with a more idiomatic length-prefixed byte array</span>
|
||||
<span id="L32" class="LineNr"> 32 </span><span class="subxComment"># reason for the name: the only place we should have null-terminated ascii strings is from commandline args</span>
|
||||
<span id="L33" class="LineNr"> 33 </span><span class="subxFunction">kernel-string-equal?</span>: <span class="subxComment"># s : (addr kernel-string), benchmark : (addr array byte) -> eax : boolean</span>
|
||||
<span id="L33" class="LineNr"> 33 </span><span class="subxFunction">kernel-string-equal?</span>: <span class="subxComment"># s: (addr kernel-string), benchmark: (addr array byte) -> eax: boolean</span>
|
||||
<span id="L34" class="LineNr"> 34 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L35" class="LineNr"> 35 </span> <span class="subxComment"># n = benchmark->length</span>
|
||||
<span id="L36" class="LineNr"> 36 </span> <span class="subxComment"># s1 = s</span>
|
||||
|
|
@ -123,19 +123,19 @@ if ('onhashchange' in window) {
|
|||
<span id="L61" class="LineNr"> 61 </span> 53/push-ebx
|
||||
<span id="L62" class="LineNr"> 62 </span> 56/push-esi
|
||||
<span id="L63" class="LineNr"> 63 </span> 57/push-edi
|
||||
<span id="L64" class="LineNr"> 64 </span> <span class="subxComment"># var s1/edi : (addr byte) = s</span>
|
||||
<span id="L64" class="LineNr"> 64 </span> <span class="subxComment"># var s1/edi: (addr byte) = s</span>
|
||||
<span id="L65" class="LineNr"> 65 </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="L66" class="LineNr"> 66 </span> <span class="subxComment"># var n/edx : int = benchmark->length</span>
|
||||
<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># var n/edx: int = benchmark->length</span>
|
||||
<span id="L67" class="LineNr"> 67 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <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 *(ebp+12) to edx</span>
|
||||
<span id="L68" class="LineNr"> 68 </span> 8b/copy 0/mod/indirect 2/rm32/edx <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 *edx to edx</span>
|
||||
<span id="L69" class="LineNr"> 69 </span> <span class="subxComment"># var s2/esi : (addr byte) = benchmark->data</span>
|
||||
<span id="L69" class="LineNr"> 69 </span> <span class="subxComment"># var s2/esi: (addr byte) = benchmark->data</span>
|
||||
<span id="L70" class="LineNr"> 70 </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="L71" class="LineNr"> 71 </span> 81 0/subop/add 3/mod/direct 6/rm32/esi <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 esi</span>
|
||||
<span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># var i/ecx : int = 0</span>
|
||||
<span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># var i/ecx: int = 0</span>
|
||||
<span id="L73" class="LineNr"> 73 </span> b9/copy-to-ecx 0/imm32/exit
|
||||
<span id="L74" class="LineNr"> 74 </span> <span class="subxComment"># var c1/eax : byte = 0</span>
|
||||
<span id="L74" class="LineNr"> 74 </span> <span class="subxComment"># var c1/eax: byte = 0</span>
|
||||
<span id="L75" class="LineNr"> 75 </span> b8/copy-to-eax 0/imm32
|
||||
<span id="L76" class="LineNr"> 76 </span> <span class="subxComment"># var c2/ebx : byte = 0</span>
|
||||
<span id="L76" class="LineNr"> 76 </span> <span class="subxComment"># var c2/ebx: byte = 0</span>
|
||||
<span id="L77" class="LineNr"> 77 </span> bb/copy-to-ebx 0/imm32
|
||||
<span id="L78" class="LineNr"> 78 </span><span class="Constant">$kernel-string-equal?:loop</span>:
|
||||
<span id="L79" class="LineNr"> 79 </span> <span class="subxComment"># if (i >= n) break</span>
|
||||
|
|
|
|||
|
|
@ -65,8 +65,8 @@ if ('onhashchange' in window) {
|
|||
<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># Currently an allocation descriptor consists of just the bounds of the pool of</span>
|
||||
<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># available memory:</span>
|
||||
<span id="L7" class="LineNr"> 7 </span><span class="subxComment">#</span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># curr : address</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># end : address</span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># curr: address</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># end: address</span>
|
||||
<span id="L10" class="LineNr">10 </span><span class="subxComment">#</span>
|
||||
<span id="L11" class="LineNr">11 </span><span class="subxComment"># This isn't enough information to reclaim individual allocations. We can't</span>
|
||||
<span id="L12" class="LineNr">12 </span><span class="subxComment"># support arbitrary reclamation yet.</span>
|
||||
|
|
@ -77,7 +77,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L17" class="LineNr">17 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span>
|
||||
<span id="L18" class="LineNr">18 </span>
|
||||
<span id="L19" class="LineNr">19 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># manual test</span>
|
||||
<span id="L20" class="LineNr">20 </span> <span class="subxComment"># var ad/ecx : allocation-descriptor</span>
|
||||
<span id="L20" class="LineNr">20 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor</span>
|
||||
<span id="L21" class="LineNr">21 </span> 68/push 0/imm32/limit
|
||||
<span id="L22" class="LineNr">22 </span> 68/push 0/imm32/curr
|
||||
<span id="L23" class="LineNr">23 </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>
|
||||
|
|
@ -89,7 +89,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L29" class="LineNr">29 </span> e8/call <a href='053new-segment.subx.html#L41'>new-segment</a>/disp32
|
||||
<span id="L30" class="LineNr">30 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L31" class="LineNr">31 </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="L32" class="LineNr">32 </span> <span class="subxComment"># var eax : (addr _) = ad->curr</span>
|
||||
<span id="L32" class="LineNr">32 </span> <span class="subxComment"># var eax: (addr _) = ad->curr</span>
|
||||
<span id="L33" class="LineNr">33 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span>
|
||||
<span id="L34" class="LineNr">34 </span> <span class="subxComment"># write to *eax to check that we have access to the newly-allocated segment</span>
|
||||
<span id="L35" class="LineNr">35 </span> c7 0/subop/copy 0/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> 0x34/imm32 <span class="subxComment"># copy to *eax</span>
|
||||
|
|
@ -98,7 +98,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L38" class="LineNr">38 </span> b8/copy-to-eax 1/imm32/exit
|
||||
<span id="L39" class="LineNr">39 </span> cd/syscall 0x80/imm8
|
||||
<span id="L40" class="LineNr">40 </span>
|
||||
<span id="L41" class="LineNr">41 </span><span class="subxFunction">new-segment</span>: <span class="subxComment"># len : int, ad : allocation-descriptor</span>
|
||||
<span id="L41" class="LineNr">41 </span><span class="subxFunction">new-segment</span>: <span class="subxComment"># len: int, ad: (addr allocation-descriptor)</span>
|
||||
<span id="L42" class="LineNr">42 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L43" class="LineNr">43 </span> 55/push-ebp
|
||||
<span id="L44" class="LineNr">44 </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>
|
||||
|
|
@ -115,9 +115,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L55" class="LineNr">55 </span> <span class="subxComment"># copy {eax, eax+len} to *ad</span>
|
||||
<span id="L56" class="LineNr">56 </span> <span class="subxS1Comment"># . ebx = ad</span>
|
||||
<span id="L57" class="LineNr">57 </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="L58" class="LineNr">58 </span> <span class="subxS1Comment"># . *ebx = eax</span>
|
||||
<span id="L58" class="LineNr">58 </span> <span class="subxS1Comment"># . ad->curr = eax</span>
|
||||
<span id="L59" class="LineNr">59 </span> 89/copy 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *ebx</span>
|
||||
<span id="L60" class="LineNr">60 </span> <span class="subxS1Comment"># . *(ebx+4) = eax+len</span>
|
||||
<span id="L60" class="LineNr">60 </span> <span class="subxS1Comment"># . ad->end = eax+len</span>
|
||||
<span id="L61" class="LineNr">61 </span> 03/add 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># add *(ebp+8) to eax</span>
|
||||
<span id="L62" class="LineNr">62 </span> 89/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 eax to *(ebx+4)</span>
|
||||
<span id="L63" class="LineNr">63 </span><span class="Constant">$new-segment:end</span>:
|
||||
|
|
|
|||
|
|
@ -75,7 +75,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L13" class="LineNr"> 13 </span> b8/copy-to-eax 1/imm32/exit
|
||||
<span id="L14" class="LineNr"> 14 </span> cd/syscall 0x80/imm8
|
||||
<span id="L15" class="LineNr"> 15 </span>
|
||||
<span id="L16" class="LineNr"> 16 </span><span class="subxFunction">string-equal?</span>: <span class="subxComment"># s : (addr array byte), benchmark : (addr array byte) -> eax : boolean</span>
|
||||
<span id="L16" class="LineNr"> 16 </span><span class="subxFunction">string-equal?</span>: <span class="subxComment"># s: (addr array byte), benchmark: (addr array byte) -> eax: boolean</span>
|
||||
<span id="L17" class="LineNr"> 17 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L18" class="LineNr"> 18 </span> <span class="subxComment"># if (s->length != benchmark->length) return false</span>
|
||||
<span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># currs = s->data</span>
|
||||
|
|
@ -113,15 +113,15 @@ if ('onhashchange' in window) {
|
|||
<span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># if (ecx != benchmark->length) return false</span>
|
||||
<span id="L52" class="LineNr"> 52 </span> 39/compare 0/mod/indirect 7/rm32/edi <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"># compare *edi and ecx</span>
|
||||
<span id="L53" class="LineNr"> 53 </span> 75/jump-if-!= $string-equal?:false/disp8
|
||||
<span id="L54" class="LineNr"> 54 </span> <span class="subxComment"># var currs/esi : (addr byte) = s->data</span>
|
||||
<span id="L54" class="LineNr"> 54 </span> <span class="subxComment"># var currs/esi: (addr byte) = s->data</span>
|
||||
<span id="L55" class="LineNr"> 55 </span> 81 0/subop/add 3/mod/direct 6/rm32/esi <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 esi</span>
|
||||
<span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># var maxs/ecx : (addr byte) = &s->data[s->length]</span>
|
||||
<span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># var maxs/ecx: (addr byte) = &s->data[s->length]</span>
|
||||
<span id="L57" class="LineNr"> 57 </span> 01/add 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"># add esi to ecx</span>
|
||||
<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># var currb/edi : (addr byte) = benchmark->data</span>
|
||||
<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># var currb/edi: (addr byte) = benchmark->data</span>
|
||||
<span id="L59" class="LineNr"> 59 </span> 81 0/subop/add 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to edi</span>
|
||||
<span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># var c1/eax : byte = 0</span>
|
||||
<span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># var c1/eax: byte = 0</span>
|
||||
<span id="L61" class="LineNr"> 61 </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="L62" class="LineNr"> 62 </span> <span class="subxComment"># var c2/edx : byte = 0</span>
|
||||
<span id="L62" class="LineNr"> 62 </span> <span class="subxComment"># var c2/edx: byte = 0</span>
|
||||
<span id="L63" class="LineNr"> 63 </span> 31/xor 3/mod/direct 2/rm32/edx <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"># clear edx</span>
|
||||
<span id="L64" class="LineNr"> 64 </span><span class="Constant">$string-equal?:loop</span>:
|
||||
<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># if (currs >= maxs) return true</span>
|
||||
|
|
@ -238,13 +238,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L176" class="LineNr">176 </span> c3/return
|
||||
<span id="L177" class="LineNr">177 </span>
|
||||
<span id="L178" class="LineNr">178 </span><span class="subxComment"># helper for later tests</span>
|
||||
<span id="L179" class="LineNr">179 </span><span class="subxFunction">check-strings-equal</span>: <span class="subxComment"># s : (addr array byte), expected : (addr array byte), msg : (addr array byte)</span>
|
||||
<span id="L179" class="LineNr">179 </span><span class="subxFunction">check-strings-equal</span>: <span class="subxComment"># s: (addr array byte), expected: (addr array byte), msg: (addr array byte)</span>
|
||||
<span id="L180" class="LineNr">180 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L181" class="LineNr">181 </span> 55/push-ebp
|
||||
<span id="L182" class="LineNr">182 </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="L183" class="LineNr">183 </span> <span class="subxS1Comment"># . save registers</span>
|
||||
<span id="L184" class="LineNr">184 </span> 50/push-eax
|
||||
<span id="L185" class="LineNr">185 </span> <span class="subxComment"># var eax : boolean = string-equal?(s, expected)</span>
|
||||
<span id="L185" class="LineNr">185 </span> <span class="subxComment"># var eax: boolean = string-equal?(s, expected)</span>
|
||||
<span id="L186" class="LineNr">186 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
<span id="L187" class="LineNr">187 </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> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span>
|
||||
<span id="L188" class="LineNr">188 </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>
|
||||
|
|
|
|||
|
|
@ -59,9 +59,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># streams: data structure for operating on arrays in a stateful manner</span>
|
||||
<span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span>
|
||||
<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># A stream looks like this:</span>
|
||||
<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># write : int # index at which writes go</span>
|
||||
<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># read : int # index that we've read until</span>
|
||||
<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># data : (array byte) # prefixed by length as usual</span>
|
||||
<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># write: int # index at which writes go</span>
|
||||
<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># read: int # index that we've read until</span>
|
||||
<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># data: (array byte) # prefixed by length as usual</span>
|
||||
<span id="L7" class="LineNr"> 7 </span><span class="subxComment">#</span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># some primitives for operating on streams:</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># - clear-stream (clears everything but the data length)</span>
|
||||
|
|
@ -72,7 +72,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L14" class="LineNr">14 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span>
|
||||
<span id="L15" class="LineNr">15 </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="L16" class="LineNr">16 </span>
|
||||
<span id="L17" class="LineNr">17 </span><span class="subxFunction">clear-stream</span>: <span class="subxComment"># f : (addr stream byte)</span>
|
||||
<span id="L17" class="LineNr">17 </span><span class="subxFunction">clear-stream</span>: <span class="subxComment"># f: (addr stream byte)</span>
|
||||
<span id="L18" class="LineNr">18 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L19" class="LineNr">19 </span> 55/push-ebp
|
||||
<span id="L20" class="LineNr">20 </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>
|
||||
|
|
@ -81,15 +81,15 @@ if ('onhashchange' in window) {
|
|||
<span id="L23" class="LineNr">23 </span> 51/push-ecx
|
||||
<span id="L24" class="LineNr">24 </span> <span class="subxComment"># eax = f</span>
|
||||
<span id="L25" class="LineNr">25 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span>
|
||||
<span id="L26" class="LineNr">26 </span> <span class="subxComment"># var count/ecx : int = f->length</span>
|
||||
<span id="L26" class="LineNr">26 </span> <span class="subxComment"># var count/ecx: int = f->length</span>
|
||||
<span id="L27" class="LineNr">27 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+8) to ecx</span>
|
||||
<span id="L28" class="LineNr">28 </span> <span class="subxComment"># var max/ecx : (addr byte) = &f->data[f->length]</span>
|
||||
<span id="L28" class="LineNr">28 </span> <span class="subxComment"># var max/ecx: (addr byte) = &f->data[f->length]</span>
|
||||
<span id="L29" class="LineNr">29 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+12 to ecx</span>
|
||||
<span id="L30" class="LineNr">30 </span> <span class="subxComment"># f->write = 0</span>
|
||||
<span id="L31" class="LineNr">31 </span> c7 0/subop/copy 0/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> 0/imm32 <span class="subxComment"># copy to *eax</span>
|
||||
<span id="L32" class="LineNr">32 </span> <span class="subxComment"># f->read = 0</span>
|
||||
<span id="L33" class="LineNr">33 </span> c7 0/subop/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 0/imm32 <span class="subxComment"># copy to *(eax+4)</span>
|
||||
<span id="L34" class="LineNr">34 </span> <span class="subxComment"># var curr/eax : (addr byte) = f->data</span>
|
||||
<span id="L34" class="LineNr">34 </span> <span class="subxComment"># var curr/eax: (addr byte) = f->data</span>
|
||||
<span id="L35" class="LineNr">35 </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> 0xc/imm32 <span class="subxComment"># add to eax</span>
|
||||
<span id="L36" class="LineNr">36 </span><span class="Constant">$clear-stream:loop</span>:
|
||||
<span id="L37" class="LineNr">37 </span> <span class="subxComment"># if (curr >= max) break</span>
|
||||
|
|
@ -109,7 +109,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L51" class="LineNr">51 </span> 5d/pop-to-ebp
|
||||
<span id="L52" class="LineNr">52 </span> c3/return
|
||||
<span id="L53" class="LineNr">53 </span>
|
||||
<span id="L54" class="LineNr">54 </span><span class="subxFunction">rewind-stream</span>: <span class="subxComment"># f : (addr stream byte)</span>
|
||||
<span id="L54" class="LineNr">54 </span><span class="subxFunction">rewind-stream</span>: <span class="subxComment"># f: (addr stream byte)</span>
|
||||
<span id="L55" class="LineNr">55 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L56" class="LineNr">56 </span> 55/push-ebp
|
||||
<span id="L57" class="LineNr">57 </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>
|
||||
|
|
|
|||
|
|
@ -64,9 +64,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># primitives for emitting traces to a 'trace' stream, and for tests to make assertions on its contents</span>
|
||||
<span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span>
|
||||
<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># A trace stream looks like a regular stream:</span>
|
||||
<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># write : int # index at which writes go</span>
|
||||
<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># read : int # index that we've read until</span>
|
||||
<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># data : (array byte) # prefixed by length as usual</span>
|
||||
<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># write: int # index at which writes go</span>
|
||||
<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># read: int # index that we've read until</span>
|
||||
<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># data: (array byte) # prefixed by length as usual</span>
|
||||
<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># Usually the trace stream will be in a separate segment set aside for the purpose.</span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxComment">#</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># primitives for operating on traces (arguments in quotes):</span>
|
||||
|
|
@ -108,7 +108,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L45" class="LineNr"> 45 </span>
|
||||
<span id="L46" class="LineNr"> 46 </span><span class="subxComment"># Allocate a new segment for the trace stream, initialize its length, and save its address to Trace-stream.</span>
|
||||
<span id="L47" class="LineNr"> 47 </span><span class="subxComment"># The Trace-stream segment will consist of variable-length lines separated by newlines (0x0a)</span>
|
||||
<span id="L48" class="LineNr"> 48 </span><span class="subxFunction">initialize-trace-stream</span>: <span class="subxComment"># n : int</span>
|
||||
<span id="L48" class="LineNr"> 48 </span><span class="subxFunction">initialize-trace-stream</span>: <span class="subxComment"># n: int</span>
|
||||
<span id="L49" class="LineNr"> 49 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L50" class="LineNr"> 50 </span> 55/push-ebp
|
||||
<span id="L51" class="LineNr"> 51 </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>
|
||||
|
|
@ -146,7 +146,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L83" class="LineNr"> 83 </span>
|
||||
<span id="L84" class="LineNr"> 84 </span><span class="subxComment"># Append a string to the given trace stream.</span>
|
||||
<span id="L85" class="LineNr"> 85 </span><span class="subxComment"># Silently give up if it's already full. Or truncate the string if there isn't enough room.</span>
|
||||
<span id="L86" class="LineNr"> 86 </span><span class="subxFunction">trace</span>: <span class="subxComment"># line : (addr array byte)</span>
|
||||
<span id="L86" class="LineNr"> 86 </span><span class="subxFunction">trace</span>: <span class="subxComment"># line: (addr array byte)</span>
|
||||
<span id="L87" class="LineNr"> 87 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L88" class="LineNr"> 88 </span> 55/push-ebp
|
||||
<span id="L89" class="LineNr"> 89 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span>
|
||||
|
|
@ -157,13 +157,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L94" class="LineNr"> 94 </span> 53/push-ebx
|
||||
<span id="L95" class="LineNr"> 95 </span> 56/push-esi
|
||||
<span id="L96" class="LineNr"> 96 </span> 57/push-edi
|
||||
<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># var edi : (addr stream byte) = *Trace-stream</span>
|
||||
<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># var edi: (addr stream byte) = *Trace-stream</span>
|
||||
<span id="L98" class="LineNr"> 98 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="SpecialChar"><a href='056trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to edi</span>
|
||||
<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># esi = line</span>
|
||||
<span id="L100" class="LineNr">100 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L101" class="LineNr">101 </span> <span class="subxComment"># var ecx : int = t->write</span>
|
||||
<span id="L101" class="LineNr">101 </span> <span class="subxComment"># var ecx: int = t->write</span>
|
||||
<span id="L102" class="LineNr">102 </span> 8b/copy 0/mod/indirect 7/rm32/edi <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 *edi to ecx</span>
|
||||
<span id="L103" class="LineNr">103 </span> <span class="subxComment"># var edx : int = t->length</span>
|
||||
<span id="L103" class="LineNr">103 </span> <span class="subxComment"># var edx: int = t->length</span>
|
||||
<span id="L104" class="LineNr">104 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+8) to edx</span>
|
||||
<span id="L105" class="LineNr">105 </span> <span class="subxComment"># eax = _append-3(&t->data[t->write], &t->data[t->length], line)</span>
|
||||
<span id="L106" class="LineNr">106 </span> <span class="subxS2Comment"># . . push line</span>
|
||||
|
|
@ -313,7 +313,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L250" class="LineNr">250 </span> <span class="subxComment"># end</span>
|
||||
<span id="L251" class="LineNr">251 </span> c3/return
|
||||
<span id="L252" class="LineNr">252 </span>
|
||||
<span id="L253" class="LineNr">253 </span><span class="subxFunction">check-trace-contains</span>: <span class="subxComment"># line : (addr string), msg : (addr string)</span>
|
||||
<span id="L253" class="LineNr">253 </span><span class="subxFunction">check-trace-contains</span>: <span class="subxComment"># line: (addr string), msg: (addr string)</span>
|
||||
<span id="L254" class="LineNr">254 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L255" class="LineNr">255 </span> 55/push-ebp
|
||||
<span id="L256" class="LineNr">256 </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>
|
||||
|
|
@ -338,7 +338,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L275" class="LineNr">275 </span> 5d/pop-to-ebp
|
||||
<span id="L276" class="LineNr">276 </span> c3/return
|
||||
<span id="L277" class="LineNr">277 </span>
|
||||
<span id="L278" class="LineNr">278 </span><span class="subxFunction">check-trace-scans-to</span>: <span class="subxComment"># line : (addr string), msg : (addr string)</span>
|
||||
<span id="L278" class="LineNr">278 </span><span class="subxFunction">check-trace-scans-to</span>: <span class="subxComment"># line: (addr string), msg: (addr string)</span>
|
||||
<span id="L279" class="LineNr">279 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L280" class="LineNr">280 </span> 55/push-ebp
|
||||
<span id="L281" class="LineNr">281 </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>
|
||||
|
|
@ -369,7 +369,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L306" class="LineNr">306 </span> c3/return
|
||||
<span id="L307" class="LineNr">307 </span>
|
||||
<span id="L308" class="LineNr">308 </span><span class="subxComment"># Start scanning from Trace-stream->read for 'line'. If found, update Trace-stream->read and return true.</span>
|
||||
<span id="L309" class="LineNr">309 </span><span class="subxFunction">trace-scan</span>: <span class="subxComment"># line : (addr array byte) -> result/eax : boolean</span>
|
||||
<span id="L309" class="LineNr">309 </span><span class="subxFunction">trace-scan</span>: <span class="subxComment"># line: (addr array byte) -> result/eax: boolean</span>
|
||||
<span id="L310" class="LineNr">310 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L311" class="LineNr">311 </span> <span class="subxComment"># push Trace-stream->read</span>
|
||||
<span id="L312" class="LineNr">312 </span> <span class="subxComment"># while true:</span>
|
||||
|
|
@ -621,7 +621,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L558" class="LineNr">558 </span> <span class="subxS1Comment"># . end</span>
|
||||
<span id="L559" class="LineNr">559 </span> c3/return
|
||||
<span id="L560" class="LineNr">560 </span>
|
||||
<span id="L561" class="LineNr">561 </span><span class="subxFunction">next-line-matches?</span>: <span class="subxComment"># t : (addr stream byte), line : (addr array byte) -> result/eax : boolean</span>
|
||||
<span id="L561" class="LineNr">561 </span><span class="subxFunction">next-line-matches?</span>: <span class="subxComment"># t: (addr stream byte), line: (addr array byte) -> result/eax: boolean</span>
|
||||
<span id="L562" class="LineNr">562 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L563" class="LineNr">563 </span> <span class="subxComment"># while true:</span>
|
||||
<span id="L564" class="LineNr">564 </span> <span class="subxComment"># if (currl >= maxl) break</span>
|
||||
|
|
@ -642,24 +642,24 @@ if ('onhashchange' in window) {
|
|||
<span id="L579" class="LineNr">579 </span> 57/push-edi
|
||||
<span id="L580" class="LineNr">580 </span> <span class="subxComment"># edx = line</span>
|
||||
<span id="L581" class="LineNr">581 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span>
|
||||
<span id="L582" class="LineNr">582 </span> <span class="subxComment"># var currl/esi : (addr byte) = line->data</span>
|
||||
<span id="L582" class="LineNr">582 </span> <span class="subxComment"># var currl/esi: (addr byte) = line->data</span>
|
||||
<span id="L583" class="LineNr">583 </span> <span class="subxS1Comment"># . esi = line/edx->data</span>
|
||||
<span id="L584" class="LineNr">584 </span> 8d/copy-address 1/mod/*+disp8 2/rm32/edx <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 edx+4 to esi</span>
|
||||
<span id="L585" class="LineNr">585 </span> <span class="subxComment"># var maxl/ecx : (addr byte) = &line->data[line->size]</span>
|
||||
<span id="L585" class="LineNr">585 </span> <span class="subxComment"># var maxl/ecx: (addr byte) = &line->data[line->size]</span>
|
||||
<span id="L586" class="LineNr">586 </span> <span class="subxS1Comment"># . eax = line/edx->size</span>
|
||||
<span id="L587" class="LineNr">587 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to eax</span>
|
||||
<span id="L588" class="LineNr">588 </span> <span class="subxS1Comment"># . maxl = &line->data[line->size]</span>
|
||||
<span id="L589" class="LineNr">589 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edx+eax to ecx</span>
|
||||
<span id="L590" class="LineNr">590 </span> <span class="subxComment"># edi = t</span>
|
||||
<span id="L591" class="LineNr">591 </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="L592" class="LineNr">592 </span> <span class="subxComment"># var ebx : (addr byte) = t->data</span>
|
||||
<span id="L592" class="LineNr">592 </span> <span class="subxComment"># var ebx: (addr byte) = t->data</span>
|
||||
<span id="L593" class="LineNr">593 </span> 8d/copy-address 1/mod/*+disp8 7/rm32/edi <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 edi+12 to ebx</span>
|
||||
<span id="L594" class="LineNr">594 </span> <span class="subxComment"># var maxt/edx : (addr byte) = &t->data[t->write]</span>
|
||||
<span id="L594" class="LineNr">594 </span> <span class="subxComment"># var maxt/edx: (addr byte) = &t->data[t->write]</span>
|
||||
<span id="L595" class="LineNr">595 </span> <span class="subxS1Comment"># . eax = t->write</span>
|
||||
<span id="L596" class="LineNr">596 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to eax</span>
|
||||
<span id="L597" class="LineNr">597 </span> <span class="subxS1Comment"># . maxt = &t->data[t->write]</span>
|
||||
<span id="L598" class="LineNr">598 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 3/base/ebx 0/index/eax <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx+eax to edx</span>
|
||||
<span id="L599" class="LineNr">599 </span> <span class="subxComment"># var currt/edi : (addr byte) = &t->data[t->read]</span>
|
||||
<span id="L599" class="LineNr">599 </span> <span class="subxComment"># var currt/edi: (addr byte) = &t->data[t->read]</span>
|
||||
<span id="L600" class="LineNr">600 </span> <span class="subxS1Comment"># . eax = t/edi->read</span>
|
||||
<span id="L601" class="LineNr">601 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <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="L602" class="LineNr">602 </span> <span class="subxS1Comment"># . currt = &t->data[t->read]</span>
|
||||
|
|
@ -676,9 +676,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L613" class="LineNr">613 </span> <span class="subxComment"># if (*currt != *currl) return false</span>
|
||||
<span id="L614" class="LineNr">614 </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="L615" class="LineNr">615 </span> 31/xor 3/mod/direct 3/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span>
|
||||
<span id="L616" class="LineNr">616 </span> <span class="subxS1Comment"># . eax : byte = *currt</span>
|
||||
<span id="L616" class="LineNr">616 </span> <span class="subxS1Comment"># . eax: byte = *currt</span>
|
||||
<span id="L617" class="LineNr">617 </span> 8a/copy-byte 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to eax</span>
|
||||
<span id="L618" class="LineNr">618 </span> <span class="subxS1Comment"># . ebx : byte = *currl</span>
|
||||
<span id="L618" class="LineNr">618 </span> <span class="subxS1Comment"># . ebx: byte = *currl</span>
|
||||
<span id="L619" class="LineNr">619 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ebx</span>
|
||||
<span id="L620" class="LineNr">620 </span> <span class="subxS1Comment"># . eax >= ebx</span>
|
||||
<span id="L621" class="LineNr">621 </span> 39/compare 3/mod/direct 0/rm32/eax <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"># compare eax and ebx</span>
|
||||
|
|
@ -693,7 +693,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L630" class="LineNr">630 </span><span class="Constant">$next-line-matches?:break</span>:
|
||||
<span id="L631" class="LineNr">631 </span> <span class="subxComment"># return *currt == '\n'</span>
|
||||
<span id="L632" class="LineNr">632 </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="L633" class="LineNr">633 </span> <span class="subxS1Comment"># . eax : byte = *currt</span>
|
||||
<span id="L633" class="LineNr">633 </span> <span class="subxS1Comment"># . eax: byte = *currt</span>
|
||||
<span id="L634" class="LineNr">634 </span> 8a/copy-byte 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to eax</span>
|
||||
<span id="L635" class="LineNr">635 </span> 3d/compare-eax-and 0xa/imm32/newline
|
||||
<span id="L636" class="LineNr">636 </span> <span class="subxS1Comment"># . eax = false</span>
|
||||
|
|
@ -797,7 +797,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L734" class="LineNr">734 </span> c3/return
|
||||
<span id="L735" class="LineNr">735 </span>
|
||||
<span id="L736" class="LineNr">736 </span><span class="subxComment"># move t->read to _after_ next newline</span>
|
||||
<span id="L737" class="LineNr">737 </span><span class="subxFunction">skip-next-line</span>: <span class="subxComment"># t : (addr stream byte)</span>
|
||||
<span id="L737" class="LineNr">737 </span><span class="subxFunction">skip-next-line</span>: <span class="subxComment"># t: (addr stream byte)</span>
|
||||
<span id="L738" class="LineNr">738 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L739" class="LineNr">739 </span> <span class="subxComment"># max = &t->data[t->write]</span>
|
||||
<span id="L740" class="LineNr">740 </span> <span class="subxComment"># i = t->read</span>
|
||||
|
|
@ -823,13 +823,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L760" class="LineNr">760 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <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 ecx+12 to edx</span>
|
||||
<span id="L761" class="LineNr">761 </span> <span class="subxComment"># eax = t->write</span>
|
||||
<span id="L762" class="LineNr">762 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span>
|
||||
<span id="L763" class="LineNr">763 </span> <span class="subxComment"># var max/ebx : (addr byte) = &t->data[t->write]</span>
|
||||
<span id="L763" class="LineNr">763 </span> <span class="subxComment"># var max/ebx: (addr byte) = &t->data[t->write]</span>
|
||||
<span id="L764" class="LineNr">764 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 2/base/edx 0/index/eax <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edx+eax to ebx</span>
|
||||
<span id="L765" class="LineNr">765 </span> <span class="subxComment"># eax = t->read</span>
|
||||
<span id="L766" class="LineNr">766 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span>
|
||||
<span id="L767" class="LineNr">767 </span> <span class="subxComment"># var curr/ecx : (addr byte) = &t->data[t->read]</span>
|
||||
<span id="L767" class="LineNr">767 </span> <span class="subxComment"># var curr/ecx: (addr byte) = &t->data[t->read]</span>
|
||||
<span id="L768" class="LineNr">768 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 2/base/edx 0/index/eax <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edx+eax to ecx</span>
|
||||
<span id="L769" class="LineNr">769 </span> <span class="subxComment"># var i/edx : int = t->read</span>
|
||||
<span id="L769" class="LineNr">769 </span> <span class="subxComment"># var i/edx: int = t->read</span>
|
||||
<span id="L770" class="LineNr">770 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span>
|
||||
<span id="L771" class="LineNr">771 </span><span class="Constant">$skip-next-line:loop</span>:
|
||||
<span id="L772" class="LineNr">772 </span> <span class="subxComment"># if (curr >= max) break</span>
|
||||
|
|
@ -925,7 +925,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L862" class="LineNr">862 </span><span class="subxH1Comment"># - helpers</span>
|
||||
<span id="L863" class="LineNr">863 </span>
|
||||
<span id="L864" class="LineNr">864 </span><span class="subxComment"># 3-argument variant of _append</span>
|
||||
<span id="L865" class="LineNr">865 </span><span class="subxMinorFunction">_append-3</span>: <span class="subxComment"># out : (addr byte), outend : (addr byte), s : (addr array byte) -> num_bytes_appended/eax</span>
|
||||
<span id="L865" class="LineNr">865 </span><span class="subxMinorFunction">_append-3</span>: <span class="subxComment"># out: (addr byte), outend: (addr byte), s: (addr array byte) -> num_bytes_appended/eax</span>
|
||||
<span id="L866" class="LineNr">866 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L867" class="LineNr">867 </span> 55/push-ebp
|
||||
<span id="L868" class="LineNr">868 </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>
|
||||
|
|
@ -957,7 +957,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L894" class="LineNr">894 </span> c3/return
|
||||
<span id="L895" class="LineNr">895 </span>
|
||||
<span id="L896" class="LineNr">896 </span><span class="subxComment"># 4-argument variant of _append</span>
|
||||
<span id="L897" class="LineNr">897 </span><span class="subxMinorFunction">_append-4</span>: <span class="subxComment"># out : (addr byte), outend : (addr byte), in : (addr byte), inend : (addr byte) -> num_bytes_appended/eax : int</span>
|
||||
<span id="L897" class="LineNr">897 </span><span class="subxMinorFunction">_append-4</span>: <span class="subxComment"># out: (addr byte), outend: (addr byte), in: (addr byte), inend: (addr byte) -> num_bytes_appended/eax: int</span>
|
||||
<span id="L898" class="LineNr">898 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L899" class="LineNr">899 </span> 55/push-ebp
|
||||
<span id="L900" class="LineNr">900 </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>
|
||||
|
|
|
|||
|
|
@ -81,7 +81,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L21" class="LineNr"> 21 </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="L22" class="LineNr"> 22 </span>
|
||||
<span id="L23" class="LineNr"> 23 </span><span class="subxComment"># TODO: come up with a way to signal when a write to disk fails</span>
|
||||
<span id="L24" class="LineNr"> 24 </span><span class="subxFunction">write</span>: <span class="subxComment"># f : fd or (addr stream byte), s : (addr array byte)</span>
|
||||
<span id="L24" class="LineNr"> 24 </span><span class="subxFunction">write</span>: <span class="subxComment"># f: fd or (addr stream byte), s: (addr array byte)</span>
|
||||
<span id="L25" class="LineNr"> 25 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L26" class="LineNr"> 26 </span> 55/push-ebp
|
||||
<span id="L27" class="LineNr"> 27 </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>
|
||||
|
|
|
|||
|
|
@ -65,7 +65,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span>
|
||||
<span id="L7" class="LineNr"> 7 </span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># compare all the data in a stream (ignoring the read pointer)</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">stream-data-equal?</span>: <span class="subxComment"># f : (addr stream byte), s : (addr array byte) -> eax : boolean</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">stream-data-equal?</span>: <span class="subxComment"># f: (addr stream byte), s: (addr array byte) -> eax: boolean</span>
|
||||
<span id="L10" class="LineNr"> 10 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L11" class="LineNr"> 11 </span> 55/push-ebp
|
||||
<span id="L12" class="LineNr"> 12 </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>
|
||||
|
|
@ -78,9 +78,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L19" class="LineNr"> 19 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L20" class="LineNr"> 20 </span> <span class="subxComment"># eax = f->write</span>
|
||||
<span id="L21" class="LineNr"> 21 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span>
|
||||
<span id="L22" class="LineNr"> 22 </span> <span class="subxComment"># var maxf/edx : (addr byte) = &f->data[f->write]</span>
|
||||
<span id="L22" class="LineNr"> 22 </span> <span class="subxComment"># var maxf/edx: (addr byte) = &f->data[f->write]</span>
|
||||
<span id="L23" class="LineNr"> 23 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to edx</span>
|
||||
<span id="L24" class="LineNr"> 24 </span> <span class="subxComment"># var currf/esi : (addr byte) = f->data</span>
|
||||
<span id="L24" class="LineNr"> 24 </span> <span class="subxComment"># var currf/esi: (addr byte) = f->data</span>
|
||||
<span id="L25" class="LineNr"> 25 </span> 81 0/subop/add 3/mod/direct 6/rm32/esi <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 esi</span>
|
||||
<span id="L26" class="LineNr"> 26 </span> <span class="subxComment"># edi = s</span>
|
||||
<span id="L27" class="LineNr"> 27 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span>
|
||||
|
|
@ -88,11 +88,11 @@ if ('onhashchange' in window) {
|
|||
<span id="L29" class="LineNr"> 29 </span> <span class="subxComment"># if (f->write != s->length) return false</span>
|
||||
<span id="L30" class="LineNr"> 30 </span> 39/compare 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare *edi and eax</span>
|
||||
<span id="L31" class="LineNr"> 31 </span> 75/jump-if-!= $stream-data-equal?:false/disp8
|
||||
<span id="L32" class="LineNr"> 32 </span> <span class="subxComment"># var currs/edi : (addr byte) = s->data</span>
|
||||
<span id="L32" class="LineNr"> 32 </span> <span class="subxComment"># var currs/edi: (addr byte) = s->data</span>
|
||||
<span id="L33" class="LineNr"> 33 </span> 81 0/subop/add 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to edi</span>
|
||||
<span id="L34" class="LineNr"> 34 </span> <span class="subxComment"># var eax : byte = 0</span>
|
||||
<span id="L34" class="LineNr"> 34 </span> <span class="subxComment"># var eax: byte = 0</span>
|
||||
<span id="L35" class="LineNr"> 35 </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="L36" class="LineNr"> 36 </span> <span class="subxComment"># var ecx : byte = 0</span>
|
||||
<span id="L36" class="LineNr"> 36 </span> <span class="subxComment"># var ecx: byte = 0</span>
|
||||
<span id="L37" class="LineNr"> 37 </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="L38" class="LineNr"> 38 </span><span class="Constant">$stream-data-equal?:loop</span>:
|
||||
<span id="L39" class="LineNr"> 39 </span> <span class="subxComment"># if (currf >= maxf) return true</span>
|
||||
|
|
@ -250,7 +250,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L191" class="LineNr">191 </span> c3/return
|
||||
<span id="L192" class="LineNr">192 </span>
|
||||
<span id="L193" class="LineNr">193 </span><span class="subxComment"># helper for later tests</span>
|
||||
<span id="L194" class="LineNr">194 </span><span class="subxFunction">check-stream-equal</span>: <span class="subxComment"># f : (addr stream byte), s : (addr array byte), msg : (addr array byte)</span>
|
||||
<span id="L194" class="LineNr">194 </span><span class="subxFunction">check-stream-equal</span>: <span class="subxComment"># f: (addr stream byte), s: (addr array byte), msg: (addr array byte)</span>
|
||||
<span id="L195" class="LineNr">195 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L196" class="LineNr">196 </span> 55/push-ebp
|
||||
<span id="L197" class="LineNr">197 </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>
|
||||
|
|
@ -286,10 +286,10 @@ if ('onhashchange' in window) {
|
|||
<span id="L227" class="LineNr">227 </span><span class="subxComment"># on success, set f->read to after the next newline</span>
|
||||
<span id="L228" class="LineNr">228 </span><span class="subxComment"># on failure, leave f->read unmodified</span>
|
||||
<span id="L229" class="LineNr">229 </span><span class="subxComment"># this function is usually used only in tests, so we repeatedly write f->read</span>
|
||||
<span id="L230" class="LineNr">230 </span><span class="subxFunction">next-stream-line-equal?</span>: <span class="subxComment"># f : (addr stream byte), s : (addr array byte) -> eax : boolean</span>
|
||||
<span id="L230" class="LineNr">230 </span><span class="subxFunction">next-stream-line-equal?</span>: <span class="subxComment"># f: (addr stream byte), s: (addr array byte) -> eax: boolean</span>
|
||||
<span id="L231" class="LineNr">231 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L232" class="LineNr">232 </span> <span class="subxComment"># currf = f->read # bound: f->write</span>
|
||||
<span id="L233" class="LineNr">233 </span> <span class="subxComment"># currs = 0 # bound : s->length</span>
|
||||
<span id="L233" class="LineNr">233 </span> <span class="subxComment"># currs = 0 # bound: s->length</span>
|
||||
<span id="L234" class="LineNr">234 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L235" class="LineNr">235 </span> <span class="subxComment"># if currf >= f->write</span>
|
||||
<span id="L236" class="LineNr">236 </span> <span class="subxComment"># return currs >= s->length</span>
|
||||
|
|
@ -303,7 +303,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L244" class="LineNr">244 </span> <span class="subxComment">#</span>
|
||||
<span id="L245" class="LineNr">245 </span> <span class="subxComment"># collapsing the two branches that can return true:</span>
|
||||
<span id="L246" class="LineNr">246 </span> <span class="subxComment"># currf = f->read # bound: f->write</span>
|
||||
<span id="L247" class="LineNr">247 </span> <span class="subxComment"># currs = 0 # bound : s->length</span>
|
||||
<span id="L247" class="LineNr">247 </span> <span class="subxComment"># currs = 0 # bound: s->length</span>
|
||||
<span id="L248" class="LineNr">248 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L249" class="LineNr">249 </span> <span class="subxComment"># if (currf >= f->write) break</span>
|
||||
<span id="L250" class="LineNr">250 </span> <span class="subxComment"># if (f[currf] == '\n') break</span>
|
||||
|
|
@ -333,15 +333,15 @@ if ('onhashchange' in window) {
|
|||
<span id="L274" class="LineNr">274 </span> 57/push-edi
|
||||
<span id="L275" class="LineNr">275 </span> <span class="subxComment"># esi = f</span>
|
||||
<span id="L276" class="LineNr">276 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L277" class="LineNr">277 </span> <span class="subxComment"># var currf/ecx : int = f->read</span>
|
||||
<span id="L277" class="LineNr">277 </span> <span class="subxComment"># var currf/ecx: int = f->read</span>
|
||||
<span id="L278" class="LineNr">278 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span>
|
||||
<span id="L279" class="LineNr">279 </span> <span class="subxComment"># edi = s</span>
|
||||
<span id="L280" class="LineNr">280 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span>
|
||||
<span id="L281" class="LineNr">281 </span> <span class="subxComment"># var currs/edx : int = 0</span>
|
||||
<span id="L281" class="LineNr">281 </span> <span class="subxComment"># var currs/edx: int = 0</span>
|
||||
<span id="L282" class="LineNr">282 </span> 31/xor 3/mod/direct 2/rm32/edx <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"># clear edx</span>
|
||||
<span id="L283" class="LineNr">283 </span> <span class="subxComment"># var c1/eax : byte = 0</span>
|
||||
<span id="L283" class="LineNr">283 </span> <span class="subxComment"># var c1/eax: byte = 0</span>
|
||||
<span id="L284" class="LineNr">284 </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="L285" class="LineNr">285 </span> <span class="subxComment"># var c2/ebx : byte = 0</span>
|
||||
<span id="L285" class="LineNr">285 </span> <span class="subxComment"># var c2/ebx: byte = 0</span>
|
||||
<span id="L286" class="LineNr">286 </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="L287" class="LineNr">287 </span><span class="Constant">$next-stream-line-equal?:loop</span>:
|
||||
<span id="L288" class="LineNr">288 </span> <span class="subxComment"># if (currf >= f->write) break</span>
|
||||
|
|
|
|||
|
|
@ -77,8 +77,8 @@ if ('onhashchange' in window) {
|
|||
<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># input target with an output status parameter into a type called 'exit-descriptor'.</span>
|
||||
<span id="L17" class="LineNr"> 17 </span><span class="subxComment">#</span>
|
||||
<span id="L18" class="LineNr"> 18 </span><span class="subxComment"># So the exit-descriptor looks like this:</span>
|
||||
<span id="L19" class="LineNr"> 19 </span><span class="subxComment"># target : address # return address for 'stop' to unwind to</span>
|
||||
<span id="L20" class="LineNr"> 20 </span><span class="subxComment"># value : int # exit status stop was called with</span>
|
||||
<span id="L19" class="LineNr"> 19 </span><span class="subxComment"># target: address # return address for 'stop' to unwind to</span>
|
||||
<span id="L20" class="LineNr"> 20 </span><span class="subxComment"># value: int # exit status stop was called with</span>
|
||||
<span id="L21" class="LineNr"> 21 </span><span class="subxComment">#</span>
|
||||
<span id="L22" class="LineNr"> 22 </span><span class="subxComment"># 'stop' thus takes two parameters: an exit-descriptor and the exit status.</span>
|
||||
<span id="L23" class="LineNr"> 23 </span><span class="subxComment">#</span>
|
||||
|
|
@ -102,7 +102,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L41" class="LineNr"> 41 </span><span class="subxComment"># the stack.</span>
|
||||
<span id="L42" class="LineNr"> 42 </span><span class="subxComment"># Ugly that we need to know the size of args. Don't allocate variables between</span>
|
||||
<span id="L43" class="LineNr"> 43 </span><span class="subxComment"># tailor-exit-descriptor and the call it's for.</span>
|
||||
<span id="L44" class="LineNr"> 44 </span><span class="subxFunction">tailor-exit-descriptor</span>: <span class="subxComment"># ed : (addr exit-descriptor), nbytes : int</span>
|
||||
<span id="L44" class="LineNr"> 44 </span><span class="subxFunction">tailor-exit-descriptor</span>: <span class="subxComment"># ed: (addr exit-descriptor), nbytes: int</span>
|
||||
<span id="L45" class="LineNr"> 45 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L46" class="LineNr"> 46 </span> 55/push-ebp
|
||||
<span id="L47" class="LineNr"> 47 </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>
|
||||
|
|
@ -150,7 +150,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L89" class="LineNr"> 89 </span> 5d/pop-to-ebp
|
||||
<span id="L90" class="LineNr"> 90 </span> c3/return
|
||||
<span id="L91" class="LineNr"> 91 </span>
|
||||
<span id="L92" class="LineNr"> 92 </span><span class="subxFunction">stop</span>: <span class="subxComment"># ed : (addr exit-descriptor), value : int</span>
|
||||
<span id="L92" class="LineNr"> 92 </span><span class="subxFunction">stop</span>: <span class="subxComment"># ed: (addr exit-descriptor), value: int</span>
|
||||
<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># no prologue; one way or another, we're going to clobber registers</span>
|
||||
<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># eax = ed</span>
|
||||
<span id="L95" class="LineNr"> 95 </span> 8b/copy 1/mod/*+disp8 4/rm32/sib 4/base/esp 4/index/none <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esp+4) to eax</span>
|
||||
|
|
@ -184,7 +184,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L123" class="LineNr">123 </span> <span class="subxComment"># Make room for an exit descriptor on the stack. That's almost always the</span>
|
||||
<span id="L124" class="LineNr">124 </span> <span class="subxComment"># right place for it, available only as long as it's legal to use. Once this</span>
|
||||
<span id="L125" class="LineNr">125 </span> <span class="subxComment"># containing function returns we'll need a new exit descriptor.</span>
|
||||
<span id="L126" class="LineNr">126 </span> <span class="subxComment"># var ed/eax : exit-descriptor</span>
|
||||
<span id="L126" class="LineNr">126 </span> <span class="subxComment"># var ed/eax: exit-descriptor</span>
|
||||
<span id="L127" class="LineNr">127 </span> 68/push 0/imm32
|
||||
<span id="L128" class="LineNr">128 </span> 68/push 0/imm32
|
||||
<span id="L129" class="LineNr">129 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span>
|
||||
|
|
@ -222,7 +222,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L161" class="LineNr">161 </span> 5d/pop-to-ebp
|
||||
<span id="L162" class="LineNr">162 </span> c3/return
|
||||
<span id="L163" class="LineNr">163 </span>
|
||||
<span id="L164" class="LineNr">164 </span><span class="subxMinorFunction">_test-stop-1</span>: <span class="subxComment"># ed : (addr exit-descriptor)</span>
|
||||
<span id="L164" class="LineNr">164 </span><span class="subxMinorFunction">_test-stop-1</span>: <span class="subxComment"># ed: (addr exit-descriptor)</span>
|
||||
<span id="L165" class="LineNr">165 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L166" class="LineNr">166 </span> 55/push-ebp
|
||||
<span id="L167" class="LineNr">167 </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>
|
||||
|
|
@ -249,7 +249,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L188" class="LineNr">188 </span> 5d/pop-to-ebp
|
||||
<span id="L189" class="LineNr">189 </span> c3/return
|
||||
<span id="L190" class="LineNr">190 </span>
|
||||
<span id="L191" class="LineNr">191 </span><span class="subxMinorFunction">_test-stop-2</span>: <span class="subxComment"># ed : (addr exit-descriptor)</span>
|
||||
<span id="L191" class="LineNr">191 </span><span class="subxMinorFunction">_test-stop-2</span>: <span class="subxComment"># ed: (addr exit-descriptor)</span>
|
||||
<span id="L192" class="LineNr">192 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L193" class="LineNr">193 </span> 55/push-ebp
|
||||
<span id="L194" class="LineNr">194 </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>
|
||||
|
|
|
|||
|
|
@ -106,7 +106,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L45" class="LineNr"> 45 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span>
|
||||
<span id="L46" class="LineNr"> 46 </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="L47" class="LineNr"> 47 </span>
|
||||
<span id="L48" class="LineNr"> 48 </span><span class="subxFunction">read</span>: <span class="subxComment"># f : fd or (addr stream byte), s : (addr stream byte) -> num-bytes-read/eax : int</span>
|
||||
<span id="L48" class="LineNr"> 48 </span><span class="subxFunction">read</span>: <span class="subxComment"># f: fd or (addr stream byte), s: (addr stream byte) -> num-bytes-read/eax: int</span>
|
||||
<span id="L49" class="LineNr"> 49 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L50" class="LineNr"> 50 </span> 55/push-ebp
|
||||
<span id="L51" class="LineNr"> 51 </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>
|
||||
|
|
@ -171,7 +171,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L110" class="LineNr">110 </span><span class="subxComment"># '_buffer' is like '_append', but silently stops instead of aborting when it runs out of space</span>
|
||||
<span id="L111" class="LineNr">111 </span>
|
||||
<span id="L112" class="LineNr">112 </span><span class="subxComment"># 3-argument variant of _buffer</span>
|
||||
<span id="L113" class="LineNr">113 </span><span class="subxMinorFunction">_buffer-3</span>: <span class="subxComment"># out : address, outend : address, s : (array byte) -> num_bytes_buffered/eax</span>
|
||||
<span id="L113" class="LineNr">113 </span><span class="subxMinorFunction">_buffer-3</span>: <span class="subxComment"># out: address, outend: address, s: (array byte) -> num_bytes_buffered/eax</span>
|
||||
<span id="L114" class="LineNr">114 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L115" class="LineNr">115 </span> 55/push-ebp
|
||||
<span id="L116" class="LineNr">116 </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>
|
||||
|
|
@ -203,7 +203,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L142" class="LineNr">142 </span> c3/return
|
||||
<span id="L143" class="LineNr">143 </span>
|
||||
<span id="L144" class="LineNr">144 </span><span class="subxComment"># 4-argument variant of _buffer</span>
|
||||
<span id="L145" class="LineNr">145 </span><span class="subxMinorFunction">_buffer-4</span>: <span class="subxComment"># out : address, outend : address, in : address, inend : address -> num_bytes_buffered/eax</span>
|
||||
<span id="L145" class="LineNr">145 </span><span class="subxMinorFunction">_buffer-4</span>: <span class="subxComment"># out: address, outend: address, in: address, inend: address -> num_bytes_buffered/eax</span>
|
||||
<span id="L146" class="LineNr">146 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L147" class="LineNr">147 </span> 55/push-ebp
|
||||
<span id="L148" class="LineNr">148 </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>
|
||||
|
|
@ -256,7 +256,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L195" class="LineNr">195 </span><span class="subxComment"># Unclear how I'd use it, though. Callers seem to need the check anyway.</span>
|
||||
<span id="L196" class="LineNr">196 </span><span class="subxComment"># Maybe a better helper would be 'empty-stream?'</span>
|
||||
<span id="L197" class="LineNr">197 </span>
|
||||
<span id="L198" class="LineNr">198 </span><span class="subxMinorFunction">_read</span>: <span class="subxComment"># fd : int, s : (addr stream byte) -> num-bytes-read/eax : int</span>
|
||||
<span id="L198" class="LineNr">198 </span><span class="subxMinorFunction">_read</span>: <span class="subxComment"># fd: int, s: (addr stream byte) -> num-bytes-read/eax: int</span>
|
||||
<span id="L199" class="LineNr">199 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L200" class="LineNr">200 </span> 55/push-ebp
|
||||
<span id="L201" class="LineNr">201 </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>
|
||||
|
|
@ -272,11 +272,11 @@ if ('onhashchange' in window) {
|
|||
<span id="L211" class="LineNr">211 </span> <span class="subxComment"># edx = s->length</span>
|
||||
<span id="L212" class="LineNr">212 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to edx</span>
|
||||
<span id="L213" class="LineNr">213 </span> <span class="subxComment"># syscall(read, fd, &s->data[s->write], s->length - s->write)</span>
|
||||
<span id="L214" class="LineNr">214 </span> <span class="subxS2Comment"># . . fd : ebx</span>
|
||||
<span id="L214" class="LineNr">214 </span> <span class="subxS2Comment"># . . fd: ebx</span>
|
||||
<span id="L215" class="LineNr">215 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ebx</span>
|
||||
<span id="L216" class="LineNr">216 </span> <span class="subxS2Comment"># . . data : ecx = &s->data[s->write]</span>
|
||||
<span id="L216" class="LineNr">216 </span> <span class="subxS2Comment"># . . data: ecx = &s->data[s->write]</span>
|
||||
<span id="L217" class="LineNr">217 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to ecx</span>
|
||||
<span id="L218" class="LineNr">218 </span> <span class="subxS2Comment"># . . size : edx = s->length - s->write</span>
|
||||
<span id="L218" class="LineNr">218 </span> <span class="subxS2Comment"># . . size: edx = s->length - s->write</span>
|
||||
<span id="L219" class="LineNr">219 </span> 29/subtract 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from edx</span>
|
||||
<span id="L220" class="LineNr">220 </span> <span class="subxS2Comment"># . . syscall</span>
|
||||
<span id="L221" class="LineNr">221 </span> b8/copy-to-eax 3/imm32/read
|
||||
|
|
|
|||
|
|
@ -97,7 +97,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L35" class="LineNr"> 35 </span>
|
||||
<span id="L36" class="LineNr"> 36 </span><span class="subxComment"># return next byte value in eax, with top 3 bytes cleared.</span>
|
||||
<span id="L37" class="LineNr"> 37 </span><span class="subxComment"># On reaching end of file, return 0xffffffff (Eof).</span>
|
||||
<span id="L38" class="LineNr"> 38 </span><span class="subxFunction">read-byte-buffered</span>: <span class="subxComment"># f : (addr buffered-file) -> byte-or-Eof/eax</span>
|
||||
<span id="L38" class="LineNr"> 38 </span><span class="subxFunction">read-byte-buffered</span>: <span class="subxComment"># f: (addr buffered-file) -> byte-or-Eof/eax</span>
|
||||
<span id="L39" class="LineNr"> 39 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L40" class="LineNr"> 40 </span> 55/push-ebp
|
||||
<span id="L41" class="LineNr"> 41 </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>
|
||||
|
|
|
|||
|
|
@ -76,7 +76,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L15" class="LineNr"> 15 </span><span class="CommentedCode">#? b8/copy-to-eax 1/imm32/exit</span>
|
||||
<span id="L16" class="LineNr"> 16 </span><span class="CommentedCode">#? cd/syscall 0x80/imm8</span>
|
||||
<span id="L17" class="LineNr"> 17 </span>
|
||||
<span id="L18" class="LineNr"> 18 </span><span class="subxFunction">write-stream</span>: <span class="subxComment"># f : fd or (addr stream byte), s : (addr stream byte)</span>
|
||||
<span id="L18" class="LineNr"> 18 </span><span class="subxFunction">write-stream</span>: <span class="subxComment"># f: fd or (addr stream byte), s: (addr stream byte)</span>
|
||||
<span id="L19" class="LineNr"> 19 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L20" class="LineNr"> 20 </span> 55/push-ebp
|
||||
<span id="L21" class="LineNr"> 21 </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>
|
||||
|
|
@ -136,7 +136,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L75" class="LineNr"> 75 </span> 5d/pop-to-ebp
|
||||
<span id="L76" class="LineNr"> 76 </span> c3/return
|
||||
<span id="L77" class="LineNr"> 77 </span>
|
||||
<span id="L78" class="LineNr"> 78 </span><span class="subxMinorFunction">_write-stream</span>: <span class="subxComment"># fd : int, s : (addr stream byte)</span>
|
||||
<span id="L78" class="LineNr"> 78 </span><span class="subxMinorFunction">_write-stream</span>: <span class="subxComment"># fd: int, s: (addr stream byte)</span>
|
||||
<span id="L79" class="LineNr"> 79 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L80" class="LineNr"> 80 </span> 55/push-ebp
|
||||
<span id="L81" class="LineNr"> 81 </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>
|
||||
|
|
@ -154,11 +154,11 @@ if ('onhashchange' in window) {
|
|||
<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># edx = s->write</span>
|
||||
<span id="L94" class="LineNr"> 94 </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="L95" class="LineNr"> 95 </span> <span class="subxComment"># syscall(write, fd, &s->data[s->read], s->write - s->read)</span>
|
||||
<span id="L96" class="LineNr"> 96 </span> <span class="subxS2Comment"># . . fd : ebx</span>
|
||||
<span id="L96" class="LineNr"> 96 </span> <span class="subxS2Comment"># . . fd: ebx</span>
|
||||
<span id="L97" class="LineNr"> 97 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ebx</span>
|
||||
<span id="L98" class="LineNr"> 98 </span> <span class="subxS2Comment"># . . data : ecx = &s->data[s->read]</span>
|
||||
<span id="L98" class="LineNr"> 98 </span> <span class="subxS2Comment"># . . data: ecx = &s->data[s->read]</span>
|
||||
<span id="L99" class="LineNr"> 99 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 7/index/edi <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+edi+12 to ecx</span>
|
||||
<span id="L100" class="LineNr">100 </span> <span class="subxS2Comment"># . . size : edx = s->write - s->read</span>
|
||||
<span id="L100" class="LineNr">100 </span> <span class="subxS2Comment"># . . size: edx = s->write - s->read</span>
|
||||
<span id="L101" class="LineNr">101 </span> 29/subtract 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract edi from edx</span>
|
||||
<span id="L102" class="LineNr">102 </span> <span class="subxS2Comment"># . . syscall</span>
|
||||
<span id="L103" class="LineNr">103 </span> b8/copy-to-eax 4/imm32/write
|
||||
|
|
|
|||
|
|
@ -65,7 +65,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span>
|
||||
<span id="L7" class="LineNr"> 7 </span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># write(out, "Error: "+msg+"\n") then stop(ed, 1)</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">error</span>: <span class="subxComment"># ed : (addr exit-descriptor), out : fd or (addr stream byte), msg : (addr array byte)</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">error</span>: <span class="subxComment"># ed: (addr exit-descriptor), out: fd or (addr stream byte), msg: (addr array byte)</span>
|
||||
<span id="L10" class="LineNr">10 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L11" class="LineNr">11 </span> 55/push-ebp
|
||||
<span id="L12" class="LineNr">12 </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>
|
||||
|
|
|
|||
|
|
@ -92,7 +92,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L30" class="LineNr"> 30 </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="L31" class="LineNr"> 31 </span>
|
||||
<span id="L32" class="LineNr"> 32 </span><span class="subxComment"># Write lower byte of 'n' to 'f'.</span>
|
||||
<span id="L33" class="LineNr"> 33 </span><span class="subxFunction">write-byte-buffered</span>: <span class="subxComment"># f : (addr buffered-file), n : int</span>
|
||||
<span id="L33" class="LineNr"> 33 </span><span class="subxFunction">write-byte-buffered</span>: <span class="subxComment"># f: (addr buffered-file), n: int</span>
|
||||
<span id="L34" class="LineNr"> 34 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L35" class="LineNr"> 35 </span> 55/push-ebp
|
||||
<span id="L36" class="LineNr"> 36 </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>
|
||||
|
|
@ -140,7 +140,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L78" class="LineNr"> 78 </span> 5d/pop-to-ebp
|
||||
<span id="L79" class="LineNr"> 79 </span> c3/return
|
||||
<span id="L80" class="LineNr"> 80 </span>
|
||||
<span id="L81" class="LineNr"> 81 </span><span class="subxFunction">flush</span>: <span class="subxComment"># f : (addr buffered-file)</span>
|
||||
<span id="L81" class="LineNr"> 81 </span><span class="subxFunction">flush</span>: <span class="subxComment"># f: (addr buffered-file)</span>
|
||||
<span id="L82" class="LineNr"> 82 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L83" class="LineNr"> 83 </span> 55/push-ebp
|
||||
<span id="L84" class="LineNr"> 84 </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>
|
||||
|
|
@ -267,7 +267,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L205" class="LineNr">205 </span><span class="subxH1Comment"># - variant without buffering</span>
|
||||
<span id="L206" class="LineNr">206 </span>
|
||||
<span id="L207" class="LineNr">207 </span><span class="subxComment"># Write lower byte of 'n' to 'f'.</span>
|
||||
<span id="L208" class="LineNr">208 </span><span class="subxFunction">append-byte</span>: <span class="subxComment"># f : (addr stream byte), n : int</span>
|
||||
<span id="L208" class="LineNr">208 </span><span class="subxFunction">append-byte</span>: <span class="subxComment"># f: (addr stream byte), n: int</span>
|
||||
<span id="L209" class="LineNr">209 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L210" class="LineNr">210 </span> 55/push-ebp
|
||||
<span id="L211" class="LineNr">211 </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>
|
||||
|
|
|
|||
|
|
@ -66,7 +66,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span>
|
||||
<span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span>
|
||||
<span id="L7" class="LineNr"> 7 </span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">write-buffered</span>: <span class="subxComment"># f : (addr buffered-file), msg : (addr array byte)</span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">write-buffered</span>: <span class="subxComment"># f: (addr buffered-file), msg: (addr array byte)</span>
|
||||
<span id="L9" class="LineNr"> 9 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L10" class="LineNr"> 10 </span> <span class="subxComment"># in = msg->data</span>
|
||||
<span id="L11" class="LineNr"> 11 </span> <span class="subxComment"># inend = &msg->data[msg->length]</span>
|
||||
|
|
@ -99,9 +99,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L38" class="LineNr"> 38 </span> 57/push-edi
|
||||
<span id="L39" class="LineNr"> 39 </span> <span class="subxComment"># eax = msg</span>
|
||||
<span id="L40" class="LineNr"> 40 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span>
|
||||
<span id="L41" class="LineNr"> 41 </span> <span class="subxComment"># var in/esi : (addr byte) = msg->data</span>
|
||||
<span id="L41" class="LineNr"> 41 </span> <span class="subxComment"># var in/esi: (addr byte) = msg->data</span>
|
||||
<span id="L42" class="LineNr"> 42 </span> 8d/copy-address 1/mod/*+disp8 0/rm32/eax <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 eax+4 to esi</span>
|
||||
<span id="L43" class="LineNr"> 43 </span> <span class="subxComment"># var inend/ecx : (addr byte) = &msg->data[msg->length]</span>
|
||||
<span id="L43" class="LineNr"> 43 </span> <span class="subxComment"># var inend/ecx: (addr byte) = &msg->data[msg->length]</span>
|
||||
<span id="L44" class="LineNr"> 44 </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="L45" class="LineNr"> 45 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx to ecx</span>
|
||||
<span id="L46" class="LineNr"> 46 </span> <span class="subxComment"># edi = f</span>
|
||||
|
|
|
|||
|
|
@ -67,7 +67,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span>
|
||||
<span id="L7" class="LineNr"> 7 </span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># convert the lowest nibble of eax to ascii and return it in the lowest byte of eax</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">to-hex-char</span>: <span class="subxComment"># in/eax : int -> out/eax : int</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">to-hex-char</span>: <span class="subxComment"># in/eax: int -> out/eax: int</span>
|
||||
<span id="L10" class="LineNr"> 10 </span> <span class="subxComment"># no error checking; accepts argument in eax</span>
|
||||
<span id="L11" class="LineNr"> 11 </span> <span class="subxComment"># if (eax <= 9) return eax + '0'</span>
|
||||
<span id="L12" class="LineNr"> 12 </span> 3d/compare-eax-with 0x9/imm32/9
|
||||
|
|
@ -79,7 +79,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L18" class="LineNr"> 18 </span> 05/add-to-eax 0x57/imm32/a-10
|
||||
<span id="L19" class="LineNr"> 19 </span> c3/return
|
||||
<span id="L20" class="LineNr"> 20 </span>
|
||||
<span id="L21" class="LineNr"> 21 </span><span class="subxFunction">append-byte-hex</span>: <span class="subxComment"># f : (addr stream byte), n : int</span>
|
||||
<span id="L21" class="LineNr"> 21 </span><span class="subxFunction">append-byte-hex</span>: <span class="subxComment"># f: (addr stream byte), n: int</span>
|
||||
<span id="L22" class="LineNr"> 22 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L23" class="LineNr"> 23 </span> 55/push-ebp
|
||||
<span id="L24" class="LineNr"> 24 </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>
|
||||
|
|
@ -151,7 +151,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L90" class="LineNr"> 90 </span> c3/return
|
||||
<span id="L91" class="LineNr"> 91 </span>
|
||||
<span id="L92" class="LineNr"> 92 </span><span class="subxComment"># print the hex representation for the lowest byte of a number</span>
|
||||
<span id="L93" class="LineNr"> 93 </span><span class="subxFunction">print-byte-buffered</span>: <span class="subxComment"># f : (addr buffered-file), n : int</span>
|
||||
<span id="L93" class="LineNr"> 93 </span><span class="subxFunction">print-byte-buffered</span>: <span class="subxComment"># f: (addr buffered-file), n: int</span>
|
||||
<span id="L94" class="LineNr"> 94 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L95" class="LineNr"> 95 </span> 55/push-ebp
|
||||
<span id="L96" class="LineNr"> 96 </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>
|
||||
|
|
@ -236,7 +236,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L175" class="LineNr">175 </span> <span class="subxS1Comment"># . end</span>
|
||||
<span id="L176" class="LineNr">176 </span> c3/return
|
||||
<span id="L177" class="LineNr">177 </span>
|
||||
<span id="L178" class="LineNr">178 </span><span class="subxFunction">print-int32</span>: <span class="subxComment"># f : (addr stream byte), n : int</span>
|
||||
<span id="L178" class="LineNr">178 </span><span class="subxFunction">print-int32</span>: <span class="subxComment"># f: (addr stream byte), n: int</span>
|
||||
<span id="L179" class="LineNr">179 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L180" class="LineNr">180 </span> <span class="subxComment"># write(f, "0x")</span>
|
||||
<span id="L181" class="LineNr">181 </span> <span class="subxComment"># ecx = 28</span>
|
||||
|
|
@ -324,7 +324,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L263" class="LineNr">263 </span> <span class="subxS1Comment"># . end</span>
|
||||
<span id="L264" class="LineNr">264 </span> c3/return
|
||||
<span id="L265" class="LineNr">265 </span>
|
||||
<span id="L266" class="LineNr">266 </span><span class="subxFunction">print-int32-buffered</span>: <span class="subxComment"># f : (addr buffered-file), n : int</span>
|
||||
<span id="L266" class="LineNr">266 </span><span class="subxFunction">print-int32-buffered</span>: <span class="subxComment"># f: (addr buffered-file), n: int</span>
|
||||
<span id="L267" class="LineNr">267 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L268" class="LineNr">268 </span> <span class="subxComment"># write-buffered(f, "0x")</span>
|
||||
<span id="L269" class="LineNr">269 </span> <span class="subxComment"># ecx = 28</span>
|
||||
|
|
|
|||
|
|
@ -66,7 +66,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span>
|
||||
<span id="L7" class="LineNr"> 7 </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="L8" class="LineNr"> 8 </span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">is-hex-int?</span>: <span class="subxComment"># in : (addr slice) -> eax : boolean</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">is-hex-int?</span>: <span class="subxComment"># in: (addr slice) -> eax: boolean</span>
|
||||
<span id="L10" class="LineNr"> 10 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L11" class="LineNr"> 11 </span> 55/push-ebp
|
||||
<span id="L12" class="LineNr"> 12 </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>
|
||||
|
|
@ -78,7 +78,7 @@ if ('onhashchange' in window) {
|
|||
<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> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span>
|
||||
<span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># edx = s->end</span>
|
||||
<span id="L20" class="LineNr"> 20 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span>
|
||||
<span id="L21" class="LineNr"> 21 </span> <span class="subxComment"># var curr/ecx : (addr byte) = s->start</span>
|
||||
<span id="L21" class="LineNr"> 21 </span> <span class="subxComment"># var curr/ecx: (addr byte) = s->start</span>
|
||||
<span id="L22" class="LineNr"> 22 </span> 8b/copy 0/mod/indirect 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"># copy *ecx to ecx</span>
|
||||
<span id="L23" class="LineNr"> 23 </span> <span class="subxComment"># if s is empty return false</span>
|
||||
<span id="L24" class="LineNr"> 24 </span> b8/copy-to-eax 0/imm32/false
|
||||
|
|
@ -116,7 +116,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># if (curr >= in->end) return true</span>
|
||||
<span id="L57" class="LineNr"> 57 </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="L58" class="LineNr"> 58 </span> 73/jump-if-addr>= $is-hex-int?:true/disp8
|
||||
<span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># var eax : boolean = is-hex-digit?(*curr)</span>
|
||||
<span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># var eax: boolean = is-hex-digit?(*curr)</span>
|
||||
<span id="L60" class="LineNr"> 60 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
<span id="L61" class="LineNr"> 61 </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="L62" class="LineNr"> 62 </span> 50/push-eax
|
||||
|
|
@ -153,7 +153,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L93" class="LineNr"> 93 </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="L94" class="LineNr"> 94 </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="L95" class="LineNr"> 95 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L96" class="LineNr"> 96 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L96" class="LineNr"> 96 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L97" class="LineNr"> 97 </span> 51/push-ecx
|
||||
<span id="L98" class="LineNr"> 98 </span> 50/push-eax
|
||||
<span id="L99" class="LineNr"> 99 </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>
|
||||
|
|
@ -187,7 +187,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L127" class="LineNr">127 </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="L128" class="LineNr">128 </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="L129" class="LineNr">129 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L130" class="LineNr">130 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L130" class="LineNr">130 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L131" class="LineNr">131 </span> 51/push-ecx
|
||||
<span id="L132" class="LineNr">132 </span> 50/push-eax
|
||||
<span id="L133" class="LineNr">133 </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>
|
||||
|
|
@ -221,7 +221,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L161" class="LineNr">161 </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="L162" class="LineNr">162 </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="L163" class="LineNr">163 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L164" class="LineNr">164 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L164" class="LineNr">164 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L165" class="LineNr">165 </span> 51/push-ecx
|
||||
<span id="L166" class="LineNr">166 </span> 50/push-eax
|
||||
<span id="L167" class="LineNr">167 </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>
|
||||
|
|
@ -255,7 +255,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L195" class="LineNr">195 </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="L196" class="LineNr">196 </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="L197" class="LineNr">197 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L198" class="LineNr">198 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L198" class="LineNr">198 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L199" class="LineNr">199 </span> 51/push-ecx
|
||||
<span id="L200" class="LineNr">200 </span> 50/push-eax
|
||||
<span id="L201" class="LineNr">201 </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>
|
||||
|
|
@ -284,7 +284,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L224" class="LineNr">224 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L225" class="LineNr">225 </span> 55/push-ebp
|
||||
<span id="L226" class="LineNr">226 </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="L227" class="LineNr">227 </span> <span class="subxComment"># var slice/ecx : slice = ""</span>
|
||||
<span id="L227" class="LineNr">227 </span> <span class="subxComment"># var slice/ecx: slice = ""</span>
|
||||
<span id="L228" class="LineNr">228 </span> 68/push 0/imm32
|
||||
<span id="L229" class="LineNr">229 </span> 68/push 0/imm32
|
||||
<span id="L230" class="LineNr">230 </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>
|
||||
|
|
@ -318,7 +318,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L258" class="LineNr">258 </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="L259" class="LineNr">259 </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="L260" class="LineNr">260 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L261" class="LineNr">261 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L261" class="LineNr">261 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L262" class="LineNr">262 </span> 51/push-ecx
|
||||
<span id="L263" class="LineNr">263 </span> 50/push-eax
|
||||
<span id="L264" class="LineNr">264 </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>
|
||||
|
|
@ -352,7 +352,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L292" class="LineNr">292 </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="L293" class="LineNr">293 </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="L294" class="LineNr">294 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L295" class="LineNr">295 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L295" class="LineNr">295 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L296" class="LineNr">296 </span> 51/push-ecx
|
||||
<span id="L297" class="LineNr">297 </span> 50/push-eax
|
||||
<span id="L298" class="LineNr">298 </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>
|
||||
|
|
@ -386,7 +386,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L326" class="LineNr">326 </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="L327" class="LineNr">327 </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="L328" class="LineNr">328 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L329" class="LineNr">329 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L329" class="LineNr">329 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L330" class="LineNr">330 </span> 51/push-ecx
|
||||
<span id="L331" class="LineNr">331 </span> 50/push-eax
|
||||
<span id="L332" class="LineNr">332 </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>
|
||||
|
|
@ -411,7 +411,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L351" class="LineNr">351 </span> 5d/pop-to-ebp
|
||||
<span id="L352" class="LineNr">352 </span> c3/return
|
||||
<span id="L353" class="LineNr">353 </span>
|
||||
<span id="L354" class="LineNr">354 </span><span class="subxFunction">parse-hex-int</span>: <span class="subxComment"># in : (addr slice) -> result/eax : int</span>
|
||||
<span id="L354" class="LineNr">354 </span><span class="subxFunction">parse-hex-int</span>: <span class="subxComment"># in: (addr slice) -> result/eax: int</span>
|
||||
<span id="L355" class="LineNr">355 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L356" class="LineNr">356 </span> 55/push-ebp
|
||||
<span id="L357" class="LineNr">357 </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>
|
||||
|
|
@ -420,15 +420,15 @@ if ('onhashchange' in window) {
|
|||
<span id="L360" class="LineNr">360 </span> 52/push-edx
|
||||
<span id="L361" class="LineNr">361 </span> 53/push-ebx
|
||||
<span id="L362" class="LineNr">362 </span> 56/push-esi
|
||||
<span id="L363" class="LineNr">363 </span> <span class="subxComment"># var result/ebx : int = 0</span>
|
||||
<span id="L363" class="LineNr">363 </span> <span class="subxComment"># var result/ebx: int = 0</span>
|
||||
<span id="L364" class="LineNr">364 </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="L365" class="LineNr">365 </span> <span class="subxComment"># ecx = in</span>
|
||||
<span id="L366" class="LineNr">366 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span>
|
||||
<span id="L367" class="LineNr">367 </span> <span class="subxComment"># edx = in->end</span>
|
||||
<span id="L368" class="LineNr">368 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span>
|
||||
<span id="L369" class="LineNr">369 </span> <span class="subxComment"># var curr/ecx : (addr byte) = in->start</span>
|
||||
<span id="L369" class="LineNr">369 </span> <span class="subxComment"># var curr/ecx: (addr byte) = in->start</span>
|
||||
<span id="L370" class="LineNr">370 </span> 8b/copy 0/mod/indirect 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"># copy *ecx to ecx</span>
|
||||
<span id="L371" class="LineNr">371 </span> <span class="subxComment"># var negate?/esi : boolean = false</span>
|
||||
<span id="L371" class="LineNr">371 </span> <span class="subxComment"># var negate?/esi: boolean = false</span>
|
||||
<span id="L372" class="LineNr">372 </span> 31/xor 3/mod/direct 6/rm32/esi <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"># clear esi</span>
|
||||
<span id="L373" class="LineNr">373 </span><span class="Constant">$parse-hex-int:negative</span>:
|
||||
<span id="L374" class="LineNr">374 </span> <span class="subxComment"># if (*curr == '-') ++curr, negate = true</span>
|
||||
|
|
@ -463,7 +463,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L403" class="LineNr">403 </span> <span class="subxComment"># if (curr >= in->end) break</span>
|
||||
<span id="L404" class="LineNr">404 </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="L405" class="LineNr">405 </span> 73/jump-if-addr>= $parse-hex-int:negate/disp8
|
||||
<span id="L406" class="LineNr">406 </span> <span class="subxComment"># var eax : int = from-hex-char(*curr)</span>
|
||||
<span id="L406" class="LineNr">406 </span> <span class="subxComment"># var eax: int = from-hex-char(*curr)</span>
|
||||
<span id="L407" class="LineNr">407 </span> <span class="subxS2Comment"># . . copy arg to eax</span>
|
||||
<span id="L408" class="LineNr">408 </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="L409" class="LineNr">409 </span> <span class="subxS2Comment"># . . call</span>
|
||||
|
|
@ -502,7 +502,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L442" class="LineNr">442 </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="L443" class="LineNr">443 </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="L444" class="LineNr">444 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L445" class="LineNr">445 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L445" class="LineNr">445 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L446" class="LineNr">446 </span> 51/push-ecx
|
||||
<span id="L447" class="LineNr">447 </span> 50/push-eax
|
||||
<span id="L448" class="LineNr">448 </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>
|
||||
|
|
@ -536,7 +536,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L476" class="LineNr">476 </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="L477" class="LineNr">477 </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="L478" class="LineNr">478 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L479" class="LineNr">479 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L479" class="LineNr">479 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L480" class="LineNr">480 </span> 51/push-ecx
|
||||
<span id="L481" class="LineNr">481 </span> 50/push-eax
|
||||
<span id="L482" class="LineNr">482 </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>
|
||||
|
|
@ -570,7 +570,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L510" class="LineNr">510 </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="L511" class="LineNr">511 </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="L512" class="LineNr">512 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L513" class="LineNr">513 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L513" class="LineNr">513 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L514" class="LineNr">514 </span> 51/push-ecx
|
||||
<span id="L515" class="LineNr">515 </span> 50/push-eax
|
||||
<span id="L516" class="LineNr">516 </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>
|
||||
|
|
@ -604,7 +604,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L544" class="LineNr">544 </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="L545" class="LineNr">545 </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="L546" class="LineNr">546 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L547" class="LineNr">547 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L547" class="LineNr">547 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L548" class="LineNr">548 </span> 51/push-ecx
|
||||
<span id="L549" class="LineNr">549 </span> 50/push-eax
|
||||
<span id="L550" class="LineNr">550 </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>
|
||||
|
|
@ -638,7 +638,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L578" class="LineNr">578 </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="L579" class="LineNr">579 </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="L580" class="LineNr">580 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L581" class="LineNr">581 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L581" class="LineNr">581 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L582" class="LineNr">582 </span> 51/push-ecx
|
||||
<span id="L583" class="LineNr">583 </span> 50/push-eax
|
||||
<span id="L584" class="LineNr">584 </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>
|
||||
|
|
@ -672,7 +672,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L612" class="LineNr">612 </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="L613" class="LineNr">613 </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="L614" class="LineNr">614 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L615" class="LineNr">615 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L615" class="LineNr">615 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L616" class="LineNr">616 </span> 51/push-ecx
|
||||
<span id="L617" class="LineNr">617 </span> 50/push-eax
|
||||
<span id="L618" class="LineNr">618 </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>
|
||||
|
|
@ -697,7 +697,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L637" class="LineNr">637 </span> 5d/pop-to-ebp
|
||||
<span id="L638" class="LineNr">638 </span> c3/return
|
||||
<span id="L639" class="LineNr">639 </span>
|
||||
<span id="L640" class="LineNr">640 </span><span class="subxFunction">is-hex-digit?</span>: <span class="subxComment"># c : byte -> eax : boolean</span>
|
||||
<span id="L640" class="LineNr">640 </span><span class="subxFunction">is-hex-digit?</span>: <span class="subxComment"># c: byte -> eax: boolean</span>
|
||||
<span id="L641" class="LineNr">641 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L642" class="LineNr">642 </span> 55/push-ebp
|
||||
<span id="L643" class="LineNr">643 </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>
|
||||
|
|
@ -860,7 +860,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L800" class="LineNr">800 </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="L801" class="LineNr">801 </span> c3/return
|
||||
<span id="L802" class="LineNr">802 </span>
|
||||
<span id="L803" class="LineNr">803 </span><span class="subxFunction">from-hex-char</span>: <span class="subxComment"># in/eax : byte -> out/eax : nibble</span>
|
||||
<span id="L803" class="LineNr">803 </span><span class="subxFunction">from-hex-char</span>: <span class="subxComment"># in/eax: byte -> out/eax: nibble</span>
|
||||
<span id="L804" class="LineNr">804 </span><span class="Constant">$from-hex-char:check0</span>:
|
||||
<span id="L805" class="LineNr">805 </span> <span class="subxComment"># if (eax < '0') goto abort</span>
|
||||
<span id="L806" class="LineNr">806 </span> 3d/compare-eax-with 0x30/imm32/0
|
||||
|
|
|
|||
|
|
@ -66,7 +66,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span>
|
||||
<span id="L7" class="LineNr"> 7 </span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="CommentedCode">#? Entry: # manual test</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="CommentedCode">#? # . var ed/eax : exit-descriptor</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="CommentedCode">#? # . var ed/eax: exit-descriptor</span>
|
||||
<span id="L10" class="LineNr">10 </span><span class="CommentedCode">#? 81 5/subop/subtract 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # subtract from esp</span>
|
||||
<span id="L11" class="LineNr">11 </span><span class="CommentedCode">#? 89/copy 3/mod/direct 0/rm32/eax . . . 4/r32/esp . . # copy esp to eax</span>
|
||||
<span id="L12" class="LineNr">12 </span><span class="CommentedCode">#? # . configure ed to really exit()</span>
|
||||
|
|
@ -84,7 +84,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L24" class="LineNr">24 </span><span class="CommentedCode">#? cd/syscall 0x80/imm8</span>
|
||||
<span id="L25" class="LineNr">25 </span>
|
||||
<span id="L26" class="LineNr">26 </span><span class="subxComment"># write(out, "Error: "+msg+": "+byte) then stop(ed, 1)</span>
|
||||
<span id="L27" class="LineNr">27 </span><span class="subxFunction">error-byte</span>: <span class="subxComment"># ed : (addr exit-descriptor), out : (addr buffered-file), msg : (addr array byte), n : byte</span>
|
||||
<span id="L27" class="LineNr">27 </span><span class="subxFunction">error-byte</span>: <span class="subxComment"># ed: (addr exit-descriptor), out: (addr buffered-file), msg: (addr array byte), n: byte</span>
|
||||
<span id="L28" class="LineNr">28 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L29" class="LineNr">29 </span> 55/push-ebp
|
||||
<span id="L30" class="LineNr">30 </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>
|
||||
|
|
|
|||
|
|
@ -117,7 +117,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L56" class="LineNr"> 56 </span>
|
||||
<span id="L57" class="LineNr"> 57 </span><span class="subxComment"># Claim the next 'n' bytes of memory starting at ad->curr and update ad->curr.</span>
|
||||
<span id="L58" class="LineNr"> 58 </span><span class="subxComment"># Abort if there isn't enough memory in 'ad'.</span>
|
||||
<span id="L59" class="LineNr"> 59 </span><span class="subxFunction">allocate</span>: <span class="subxComment"># ad : (addr allocation-descriptor), n : int -> address-or-null/eax : (addr _)</span>
|
||||
<span id="L59" class="LineNr"> 59 </span><span class="subxFunction">allocate</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int -> address-or-null/eax: (addr _)</span>
|
||||
<span id="L60" class="LineNr"> 60 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L61" class="LineNr"> 61 </span> 55/push-ebp
|
||||
<span id="L62" class="LineNr"> 62 </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>
|
||||
|
|
@ -165,11 +165,11 @@ if ('onhashchange' in window) {
|
|||
<span id="L104" class="LineNr">104 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L105" class="LineNr">105 </span> 55/push-ebp
|
||||
<span id="L106" class="LineNr">106 </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="L107" class="LineNr">107 </span> <span class="subxComment"># var ad/ecx : allocation-descriptor = {11, 15}</span>
|
||||
<span id="L107" class="LineNr">107 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor = {11, 15}</span>
|
||||
<span id="L108" class="LineNr">108 </span> 68/push 0xf/imm32/limit
|
||||
<span id="L109" class="LineNr">109 </span> 68/push 0xb/imm32/curr
|
||||
<span id="L110" class="LineNr">110 </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="L111" class="LineNr">111 </span> <span class="subxComment"># var eax : (handle byte) = allocate(ad, 3)</span>
|
||||
<span id="L111" class="LineNr">111 </span> <span class="subxComment"># var eax: (handle byte) = allocate(ad, 3)</span>
|
||||
<span id="L112" class="LineNr">112 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
<span id="L113" class="LineNr">113 </span> 68/push 3/imm32
|
||||
<span id="L114" class="LineNr">114 </span> 51/push-ecx
|
||||
|
|
@ -204,11 +204,11 @@ if ('onhashchange' in window) {
|
|||
<span id="L143" class="LineNr">143 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L144" class="LineNr">144 </span> 55/push-ebp
|
||||
<span id="L145" class="LineNr">145 </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="L146" class="LineNr">146 </span> <span class="subxComment"># var ad/ecx : allocation-descriptor = {11, 15}</span>
|
||||
<span id="L146" class="LineNr">146 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor = {11, 15}</span>
|
||||
<span id="L147" class="LineNr">147 </span> 68/push 0xf/imm32/limit
|
||||
<span id="L148" class="LineNr">148 </span> 68/push 0xb/imm32/curr
|
||||
<span id="L149" class="LineNr">149 </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="L150" class="LineNr">150 </span> <span class="subxComment"># var eax : (handle byte) = allocate(ad, 6)</span>
|
||||
<span id="L150" class="LineNr">150 </span> <span class="subxComment"># var eax: (handle byte) = allocate(ad, 6)</span>
|
||||
<span id="L151" class="LineNr">151 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
<span id="L152" class="LineNr">152 </span> 68/push 6/imm32
|
||||
<span id="L153" class="LineNr">153 </span> 51/push-ecx
|
||||
|
|
@ -241,7 +241,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L180" class="LineNr">180 </span> c3/return
|
||||
<span id="L181" class="LineNr">181 </span>
|
||||
<span id="L182" class="LineNr">182 </span><span class="subxComment"># helper: create a nested allocation descriptor (useful for tests)</span>
|
||||
<span id="L183" class="LineNr">183 </span><span class="subxFunction">allocate-region</span>: <span class="subxComment"># ad : (addr allocation-descriptor), n : int -> new-ad : (handle allocation-descriptor)</span>
|
||||
<span id="L183" class="LineNr">183 </span><span class="subxFunction">allocate-region</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int -> new-ad: (handle allocation-descriptor)</span>
|
||||
<span id="L184" class="LineNr">184 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L185" class="LineNr">185 </span> 55/push-ebp
|
||||
<span id="L186" class="LineNr">186 </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>
|
||||
|
|
|
|||
|
|
@ -64,13 +64,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span>
|
||||
<span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span>
|
||||
<span id="L7" class="LineNr"> 7 </span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">new-stream</span>: <span class="subxComment"># ad : (addr allocation-descriptor), length : int, elemsize : int -> address/eax : (handle stream _)</span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">new-stream</span>: <span class="subxComment"># ad: (addr allocation-descriptor), length: int, elemsize: int -> address/eax: (handle stream _)</span>
|
||||
<span id="L9" class="LineNr"> 9 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L10" class="LineNr"> 10 </span> 55/push-ebp
|
||||
<span id="L11" class="LineNr"> 11 </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="L12" class="LineNr"> 12 </span> <span class="subxS1Comment"># . save registers</span>
|
||||
<span id="L13" class="LineNr"> 13 </span> 52/push-edx
|
||||
<span id="L14" class="LineNr"> 14 </span> <span class="subxComment"># var n/eax : int = elemsize * length + 12 (for read, write and length)</span>
|
||||
<span id="L14" class="LineNr"> 14 </span> <span class="subxComment"># var n/eax: int = elemsize * length + 12 (for read, write and length)</span>
|
||||
<span id="L15" class="LineNr"> 15 </span> <span class="subxS1Comment"># . eax = elemsize</span>
|
||||
<span id="L16" class="LineNr"> 16 </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="L17" class="LineNr"> 17 </span> <span class="subxS1Comment"># . eax *= length</span>
|
||||
|
|
@ -83,7 +83,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L24" class="LineNr"> 24 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span>
|
||||
<span id="L25" class="LineNr"> 25 </span> <span class="subxS1Comment"># . eax += 12</span>
|
||||
<span id="L26" class="LineNr"> 26 </span> 05/add-to-eax 0xc/imm32
|
||||
<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># var eax : (handle stream _) = allocate(ad, n)</span>
|
||||
<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># var eax: (handle stream _) = allocate(ad, n)</span>
|
||||
<span id="L28" class="LineNr"> 28 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
<span id="L29" class="LineNr"> 29 </span> 50/push-eax
|
||||
<span id="L30" class="LineNr"> 30 </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>
|
||||
|
|
@ -127,7 +127,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L68" class="LineNr"> 68 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L69" class="LineNr"> 69 </span> 55/push-ebp
|
||||
<span id="L70" class="LineNr"> 70 </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="L71" class="LineNr"> 71 </span> <span class="subxComment"># var heap/ecx : allocation-descriptor</span>
|
||||
<span id="L71" class="LineNr"> 71 </span> <span class="subxComment"># var heap/ecx: allocation-descriptor</span>
|
||||
<span id="L72" class="LineNr"> 72 </span> 68/push 0/imm32/limit
|
||||
<span id="L73" class="LineNr"> 73 </span> 68/push 0/imm32/curr
|
||||
<span id="L74" class="LineNr"> 74 </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>
|
||||
|
|
@ -141,7 +141,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L82" class="LineNr"> 82 </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="L83" class="LineNr"> 83 </span> <span class="subxComment"># var start/edx = ad->curr</span>
|
||||
<span id="L84" class="LineNr"> 84 </span> 8b/copy 0/mod/indirect 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"># copy *ecx to edx</span>
|
||||
<span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># var eax : (handle stream byte) = new-stream(heap, 3, 2)</span>
|
||||
<span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># var eax: (handle stream byte) = new-stream(heap, 3, 2)</span>
|
||||
<span id="L86" class="LineNr"> 86 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
<span id="L87" class="LineNr"> 87 </span> 68/push 2/imm32
|
||||
<span id="L88" class="LineNr"> 88 </span> 68/push 3/imm32
|
||||
|
|
|
|||
|
|
@ -66,7 +66,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># read bytes from 'f' until (and including) a newline and store them into 's'</span>
|
||||
<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># 's' fails to grow if and only if no data found</span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># just abort if 's' is too small</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">read-line-buffered</span>: <span class="subxComment"># f : (addr buffered-file), s : (addr stream byte)</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">read-line-buffered</span>: <span class="subxComment"># f: (addr buffered-file), s: (addr stream byte)</span>
|
||||
<span id="L10" class="LineNr"> 10 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L11" class="LineNr"> 11 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L12" class="LineNr"> 12 </span> <span class="subxComment"># if (s->write >= s->length) abort</span>
|
||||
|
|
@ -276,7 +276,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L216" class="LineNr">216 </span><span class="subxComment"># read bytes from 'f' until (and including) a newline and store them into 's'</span>
|
||||
<span id="L217" class="LineNr">217 </span><span class="subxComment"># 's' fails to grow if and only if no data found</span>
|
||||
<span id="L218" class="LineNr">218 </span><span class="subxComment"># just abort if 's' is too small</span>
|
||||
<span id="L219" class="LineNr">219 </span><span class="subxFunction">read-line</span>: <span class="subxComment"># f : (addr stream byte), s : (addr stream byte)</span>
|
||||
<span id="L219" class="LineNr">219 </span><span class="subxFunction">read-line</span>: <span class="subxComment"># f: (addr stream byte), s: (addr stream byte)</span>
|
||||
<span id="L220" class="LineNr">220 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L221" class="LineNr">221 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L222" class="LineNr">222 </span> <span class="subxComment"># if (s->write >= s->length) abort</span>
|
||||
|
|
|
|||
|
|
@ -67,7 +67,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span>
|
||||
<span id="L7" class="LineNr"> 7 </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="L8" class="LineNr"> 8 </span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">slice-empty?</span>: <span class="subxComment"># s : (addr slice) -> eax : boolean</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">slice-empty?</span>: <span class="subxComment"># s: (addr slice) -> eax: boolean</span>
|
||||
<span id="L10" class="LineNr"> 10 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L11" class="LineNr"> 11 </span> 55/push-ebp
|
||||
<span id="L12" class="LineNr"> 12 </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>
|
||||
|
|
@ -95,7 +95,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L34" class="LineNr"> 34 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L35" class="LineNr"> 35 </span> 55/push-ebp
|
||||
<span id="L36" class="LineNr"> 36 </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="L37" class="LineNr"> 37 </span> <span class="subxComment"># var slice/ecx : slice = {34, 34}</span>
|
||||
<span id="L37" class="LineNr"> 37 </span> <span class="subxComment"># var slice/ecx: slice = {34, 34}</span>
|
||||
<span id="L38" class="LineNr"> 38 </span> 68/push 34/imm32/end
|
||||
<span id="L39" class="LineNr"> 39 </span> 68/push 34/imm32/start
|
||||
<span id="L40" class="LineNr"> 40 </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>
|
||||
|
|
@ -124,7 +124,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L63" class="LineNr"> 63 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L64" class="LineNr"> 64 </span> 55/push-ebp
|
||||
<span id="L65" class="LineNr"> 65 </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="L66" class="LineNr"> 66 </span> <span class="subxComment"># var slice/ecx : slice = {32, 34}</span>
|
||||
<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># var slice/ecx: slice = {32, 34}</span>
|
||||
<span id="L67" class="LineNr"> 67 </span> 68/push 34/imm32/end
|
||||
<span id="L68" class="LineNr"> 68 </span> 68/push 32/imm32/start
|
||||
<span id="L69" class="LineNr"> 69 </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>
|
||||
|
|
@ -153,7 +153,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L92" class="LineNr"> 92 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L93" class="LineNr"> 93 </span> 55/push-ebp
|
||||
<span id="L94" class="LineNr"> 94 </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="L95" class="LineNr"> 95 </span> <span class="subxComment"># var slice/ecx : slice = {34, 32}</span>
|
||||
<span id="L95" class="LineNr"> 95 </span> <span class="subxComment"># var slice/ecx: slice = {34, 32}</span>
|
||||
<span id="L96" class="LineNr"> 96 </span> 68/push 32/imm32/end
|
||||
<span id="L97" class="LineNr"> 97 </span> 68/push 34/imm32/start
|
||||
<span id="L98" class="LineNr"> 98 </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>
|
||||
|
|
@ -178,7 +178,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L117" class="LineNr"> 117 </span> 5d/pop-to-ebp
|
||||
<span id="L118" class="LineNr"> 118 </span> c3/return
|
||||
<span id="L119" class="LineNr"> 119 </span>
|
||||
<span id="L120" class="LineNr"> 120 </span><span class="subxFunction">slice-equal?</span>: <span class="subxComment"># s : (addr slice), p : (addr array byte) -> eax : boolean</span>
|
||||
<span id="L120" class="LineNr"> 120 </span><span class="subxFunction">slice-equal?</span>: <span class="subxComment"># s: (addr slice), p: (addr array byte) -> eax: boolean</span>
|
||||
<span id="L121" class="LineNr"> 121 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L122" class="LineNr"> 122 </span> <span class="subxComment"># if (p == 0) return (s == 0)</span>
|
||||
<span id="L123" class="LineNr"> 123 </span> <span class="subxComment"># currs = s->start</span>
|
||||
|
|
@ -208,11 +208,11 @@ if ('onhashchange' in window) {
|
|||
<span id="L147" class="LineNr"> 147 </span> 56/push-esi
|
||||
<span id="L148" class="LineNr"> 148 </span> <span class="subxComment"># esi = s</span>
|
||||
<span id="L149" class="LineNr"> 149 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L150" class="LineNr"> 150 </span> <span class="subxComment"># var currs/edx : (addr byte) = s->start</span>
|
||||
<span id="L150" class="LineNr"> 150 </span> <span class="subxComment"># var currs/edx: (addr byte) = s->start</span>
|
||||
<span id="L151" class="LineNr"> 151 </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="L152" class="LineNr"> 152 </span> <span class="subxComment"># var maxs/esi : (addr byte) = s->end</span>
|
||||
<span id="L152" class="LineNr"> 152 </span> <span class="subxComment"># var maxs/esi: (addr byte) = s->end</span>
|
||||
<span id="L153" class="LineNr"> 153 </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="L154" class="LineNr"> 154 </span> <span class="subxComment"># var slen/eax : int = maxs - currs</span>
|
||||
<span id="L154" class="LineNr"> 154 </span> <span class="subxComment"># var slen/eax: int = maxs - currs</span>
|
||||
<span id="L155" class="LineNr"> 155 </span> 89/copy 3/mod/direct 0/rm32/eax <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"># copy esi to eax</span>
|
||||
<span id="L156" class="LineNr"> 156 </span> 29/subtract 3/mod/direct 0/rm32/eax <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 eax</span>
|
||||
<span id="L157" class="LineNr"> 157 </span> <span class="subxComment"># ebx = p</span>
|
||||
|
|
@ -229,11 +229,11 @@ if ('onhashchange' in window) {
|
|||
<span id="L168" class="LineNr"> 168 </span> <span class="subxComment"># if (slen != p->length) return false</span>
|
||||
<span id="L169" class="LineNr"> 169 </span> 39/compare 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare *ebx and eax</span>
|
||||
<span id="L170" class="LineNr"> 170 </span> 75/jump-if-!= $slice-equal?:false/disp8
|
||||
<span id="L171" class="LineNr"> 171 </span> <span class="subxComment"># var currp/ebx : (addr byte) = p->data</span>
|
||||
<span id="L171" class="LineNr"> 171 </span> <span class="subxComment"># var currp/ebx: (addr byte) = p->data</span>
|
||||
<span id="L172" class="LineNr"> 172 </span> 81 0/subop/add 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> 4/imm32 <span class="subxComment"># add to ebx</span>
|
||||
<span id="L173" class="LineNr"> 173 </span> <span class="subxComment"># var c1/eax : byte = 0</span>
|
||||
<span id="L173" class="LineNr"> 173 </span> <span class="subxComment"># var c1/eax: byte = 0</span>
|
||||
<span id="L174" class="LineNr"> 174 </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="L175" class="LineNr"> 175 </span> <span class="subxComment"># var c2/ecx : byte = 0</span>
|
||||
<span id="L175" class="LineNr"> 175 </span> <span class="subxComment"># var c2/ecx: byte = 0</span>
|
||||
<span id="L176" class="LineNr"> 176 </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="L177" class="LineNr"> 177 </span><span class="Constant">$slice-equal?:loop</span>:
|
||||
<span id="L178" class="LineNr"> 178 </span> <span class="subxComment"># if (currs >= maxs) return true</span>
|
||||
|
|
@ -277,7 +277,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L216" class="LineNr"> 216 </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="L217" class="LineNr"> 217 </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="L218" class="LineNr"> 218 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L219" class="LineNr"> 219 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L219" class="LineNr"> 219 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L220" class="LineNr"> 220 </span> 51/push-ecx
|
||||
<span id="L221" class="LineNr"> 221 </span> 50/push-eax
|
||||
<span id="L222" class="LineNr"> 222 </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>
|
||||
|
|
@ -313,7 +313,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L252" class="LineNr"> 252 </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="L253" class="LineNr"> 253 </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="L254" class="LineNr"> 254 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L255" class="LineNr"> 255 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L255" class="LineNr"> 255 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L256" class="LineNr"> 256 </span> 51/push-ecx
|
||||
<span id="L257" class="LineNr"> 257 </span> 50/push-eax
|
||||
<span id="L258" class="LineNr"> 258 </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>
|
||||
|
|
@ -349,7 +349,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L288" class="LineNr"> 288 </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="L289" class="LineNr"> 289 </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="L290" class="LineNr"> 290 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L291" class="LineNr"> 291 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L291" class="LineNr"> 291 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L292" class="LineNr"> 292 </span> 51/push-ecx
|
||||
<span id="L293" class="LineNr"> 293 </span> 50/push-eax
|
||||
<span id="L294" class="LineNr"> 294 </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>
|
||||
|
|
@ -385,7 +385,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L324" class="LineNr"> 324 </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="L325" class="LineNr"> 325 </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="L326" class="LineNr"> 326 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L327" class="LineNr"> 327 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L327" class="LineNr"> 327 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L328" class="LineNr"> 328 </span> 51/push-ecx
|
||||
<span id="L329" class="LineNr"> 329 </span> 50/push-eax
|
||||
<span id="L330" class="LineNr"> 330 </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>
|
||||
|
|
@ -416,7 +416,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L355" class="LineNr"> 355 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L356" class="LineNr"> 356 </span> 55/push-ebp
|
||||
<span id="L357" class="LineNr"> 357 </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="L358" class="LineNr"> 358 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L358" class="LineNr"> 358 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L359" class="LineNr"> 359 </span> 68/push 0/imm32/end
|
||||
<span id="L360" class="LineNr"> 360 </span> 68/push 0/imm32/start
|
||||
<span id="L361" class="LineNr"> 361 </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>
|
||||
|
|
@ -452,7 +452,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L391" class="LineNr"> 391 </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="L392" class="LineNr"> 392 </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="L393" class="LineNr"> 393 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L394" class="LineNr"> 394 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L394" class="LineNr"> 394 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L395" class="LineNr"> 395 </span> 51/push-ecx
|
||||
<span id="L396" class="LineNr"> 396 </span> 50/push-eax
|
||||
<span id="L397" class="LineNr"> 397 </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>
|
||||
|
|
@ -483,7 +483,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L422" class="LineNr"> 422 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L423" class="LineNr"> 423 </span> 55/push-ebp
|
||||
<span id="L424" class="LineNr"> 424 </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="L425" class="LineNr"> 425 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L425" class="LineNr"> 425 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L426" class="LineNr"> 426 </span> 68/push 0/imm32/end
|
||||
<span id="L427" class="LineNr"> 427 </span> 68/push 0/imm32/start
|
||||
<span id="L428" class="LineNr"> 428 </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>
|
||||
|
|
@ -519,7 +519,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L458" class="LineNr"> 458 </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="L459" class="LineNr"> 459 </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="L460" class="LineNr"> 460 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L461" class="LineNr"> 461 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L461" class="LineNr"> 461 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L462" class="LineNr"> 462 </span> 51/push-ecx
|
||||
<span id="L463" class="LineNr"> 463 </span> 50/push-eax
|
||||
<span id="L464" class="LineNr"> 464 </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>
|
||||
|
|
@ -545,7 +545,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L484" class="LineNr"> 484 </span> 5d/pop-to-ebp
|
||||
<span id="L485" class="LineNr"> 485 </span> c3/return
|
||||
<span id="L486" class="LineNr"> 486 </span>
|
||||
<span id="L487" class="LineNr"> 487 </span><span class="subxFunction">slice-starts-with?</span>: <span class="subxComment"># s : (addr slice), head : (addr array byte) -> eax : boolean</span>
|
||||
<span id="L487" class="LineNr"> 487 </span><span class="subxFunction">slice-starts-with?</span>: <span class="subxComment"># s: (addr slice), head: (addr array byte) -> eax: boolean</span>
|
||||
<span id="L488" class="LineNr"> 488 </span> <span class="subxComment"># pseudocode</span>
|
||||
<span id="L489" class="LineNr"> 489 </span> <span class="subxComment"># lenh = head->length</span>
|
||||
<span id="L490" class="LineNr"> 490 </span> <span class="subxComment"># if (lenh > s->end - s->start) return false</span>
|
||||
|
|
@ -578,25 +578,25 @@ if ('onhashchange' in window) {
|
|||
<span id="L517" class="LineNr"> 517 </span> 57/push-edi
|
||||
<span id="L518" class="LineNr"> 518 </span> <span class="subxComment"># esi = s</span>
|
||||
<span id="L519" class="LineNr"> 519 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L520" class="LineNr"> 520 </span> <span class="subxComment"># var lens/ecx : int = s->end - s->start</span>
|
||||
<span id="L520" class="LineNr"> 520 </span> <span class="subxComment"># var lens/ecx: int = s->end - s->start</span>
|
||||
<span id="L521" class="LineNr"> 521 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span>
|
||||
<span id="L522" class="LineNr"> 522 </span> 2b/subtract 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"># subtract *esi from ecx</span>
|
||||
<span id="L523" class="LineNr"> 523 </span> <span class="subxComment"># edi = head</span>
|
||||
<span id="L524" class="LineNr"> 524 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span>
|
||||
<span id="L525" class="LineNr"> 525 </span> <span class="subxComment"># var lenh/edx : int = head->length</span>
|
||||
<span id="L525" class="LineNr"> 525 </span> <span class="subxComment"># var lenh/edx: int = head->length</span>
|
||||
<span id="L526" class="LineNr"> 526 </span> 8b/copy 0/mod/indirect 7/rm32/edi <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 *edi to edx</span>
|
||||
<span id="L527" class="LineNr"> 527 </span> <span class="subxComment"># if (lenh > lens) return false</span>
|
||||
<span id="L528" class="LineNr"> 528 </span> 39/compare 3/mod/direct 2/rm32/edx <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"># compare edx with ecx</span>
|
||||
<span id="L529" class="LineNr"> 529 </span> 7f/jump-if-> $slice-starts-with?:false/disp8
|
||||
<span id="L530" class="LineNr"> 530 </span> <span class="subxComment"># var currs/esi : (addr byte) = s->start</span>
|
||||
<span id="L530" class="LineNr"> 530 </span> <span class="subxComment"># var currs/esi: (addr byte) = s->start</span>
|
||||
<span id="L531" class="LineNr"> 531 </span> 8b/subtract 0/mod/indirect 6/rm32/esi <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"># copy *esi to esi</span>
|
||||
<span id="L532" class="LineNr"> 532 </span> <span class="subxComment"># var currh/edi : (addr byte) = head->data</span>
|
||||
<span id="L532" class="LineNr"> 532 </span> <span class="subxComment"># var currh/edi: (addr byte) = head->data</span>
|
||||
<span id="L533" class="LineNr"> 533 </span> 81 0/subop/add 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to edi</span>
|
||||
<span id="L534" class="LineNr"> 534 </span> <span class="subxComment"># var i/ecx : int = 0</span>
|
||||
<span id="L534" class="LineNr"> 534 </span> <span class="subxComment"># var i/ecx: int = 0</span>
|
||||
<span id="L535" class="LineNr"> 535 </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="L536" class="LineNr"> 536 </span> <span class="subxComment"># var c1/eax : byte = 0</span>
|
||||
<span id="L536" class="LineNr"> 536 </span> <span class="subxComment"># var c1/eax: byte = 0</span>
|
||||
<span id="L537" class="LineNr"> 537 </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="L538" class="LineNr"> 538 </span> <span class="subxComment"># var c2/ebx : byte = 0</span>
|
||||
<span id="L538" class="LineNr"> 538 </span> <span class="subxComment"># var c2/ebx: byte = 0</span>
|
||||
<span id="L539" class="LineNr"> 539 </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="L540" class="LineNr"> 540 </span><span class="Constant">$slice-starts-with?:loop</span>:
|
||||
<span id="L541" class="LineNr"> 541 </span> <span class="subxComment"># if (i >= lenh) return true</span>
|
||||
|
|
@ -643,7 +643,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L582" class="LineNr"> 582 </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="L583" class="LineNr"> 583 </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="L584" class="LineNr"> 584 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L585" class="LineNr"> 585 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L585" class="LineNr"> 585 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L586" class="LineNr"> 586 </span> 51/push-ecx
|
||||
<span id="L587" class="LineNr"> 587 </span> 50/push-eax
|
||||
<span id="L588" class="LineNr"> 588 </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>
|
||||
|
|
@ -679,7 +679,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L618" class="LineNr"> 618 </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="L619" class="LineNr"> 619 </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="L620" class="LineNr"> 620 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L621" class="LineNr"> 621 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L621" class="LineNr"> 621 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L622" class="LineNr"> 622 </span> 51/push-ecx
|
||||
<span id="L623" class="LineNr"> 623 </span> 50/push-eax
|
||||
<span id="L624" class="LineNr"> 624 </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>
|
||||
|
|
@ -715,7 +715,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L654" class="LineNr"> 654 </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="L655" class="LineNr"> 655 </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="L656" class="LineNr"> 656 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L657" class="LineNr"> 657 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L657" class="LineNr"> 657 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L658" class="LineNr"> 658 </span> 51/push-ecx
|
||||
<span id="L659" class="LineNr"> 659 </span> 50/push-eax
|
||||
<span id="L660" class="LineNr"> 660 </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>
|
||||
|
|
@ -751,7 +751,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L690" class="LineNr"> 690 </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="L691" class="LineNr"> 691 </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="L692" class="LineNr"> 692 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L693" class="LineNr"> 693 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L693" class="LineNr"> 693 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L694" class="LineNr"> 694 </span> 51/push-ecx
|
||||
<span id="L695" class="LineNr"> 695 </span> 50/push-eax
|
||||
<span id="L696" class="LineNr"> 696 </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>
|
||||
|
|
@ -787,7 +787,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L726" class="LineNr"> 726 </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="L727" class="LineNr"> 727 </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="L728" class="LineNr"> 728 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L729" class="LineNr"> 729 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L729" class="LineNr"> 729 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L730" class="LineNr"> 730 </span> 51/push-ecx
|
||||
<span id="L731" class="LineNr"> 731 </span> 50/push-eax
|
||||
<span id="L732" class="LineNr"> 732 </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>
|
||||
|
|
@ -823,7 +823,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L762" class="LineNr"> 762 </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="L763" class="LineNr"> 763 </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="L764" class="LineNr"> 764 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L765" class="LineNr"> 765 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L765" class="LineNr"> 765 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L766" class="LineNr"> 766 </span> 51/push-ecx
|
||||
<span id="L767" class="LineNr"> 767 </span> 50/push-eax
|
||||
<span id="L768" class="LineNr"> 768 </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>
|
||||
|
|
@ -851,7 +851,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L790" class="LineNr"> 790 </span>
|
||||
<span id="L791" class="LineNr"> 791 </span><span class="subxComment"># write a slice to a stream</span>
|
||||
<span id="L792" class="LineNr"> 792 </span><span class="subxComment"># abort if the stream doesn't have enough space</span>
|
||||
<span id="L793" class="LineNr"> 793 </span><span class="subxFunction">write-slice</span>: <span class="subxComment"># out : (addr stream byte), s : (addr slice)</span>
|
||||
<span id="L793" class="LineNr"> 793 </span><span class="subxFunction">write-slice</span>: <span class="subxComment"># out: (addr stream byte), s: (addr slice)</span>
|
||||
<span id="L794" class="LineNr"> 794 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L795" class="LineNr"> 795 </span> 55/push-ebp
|
||||
<span id="L796" class="LineNr"> 796 </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>
|
||||
|
|
@ -864,9 +864,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L803" class="LineNr"> 803 </span> 57/push-edi
|
||||
<span id="L804" class="LineNr"> 804 </span> <span class="subxComment"># esi = s</span>
|
||||
<span id="L805" class="LineNr"> 805 </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="L806" class="LineNr"> 806 </span> <span class="subxComment"># var curr/ecx : (addr byte) = s->start</span>
|
||||
<span id="L806" class="LineNr"> 806 </span> <span class="subxComment"># var curr/ecx: (addr byte) = s->start</span>
|
||||
<span id="L807" class="LineNr"> 807 </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="L808" class="LineNr"> 808 </span> <span class="subxComment"># var max/esi : (addr byte) = s->end</span>
|
||||
<span id="L808" class="LineNr"> 808 </span> <span class="subxComment"># var max/esi: (addr byte) = s->end</span>
|
||||
<span id="L809" class="LineNr"> 809 </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="L810" class="LineNr"> 810 </span> <span class="subxComment"># edi = out</span>
|
||||
<span id="L811" class="LineNr"> 811 </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>
|
||||
|
|
@ -940,7 +940,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L879" class="LineNr"> 879 </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="L880" class="LineNr"> 880 </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="L881" class="LineNr"> 881 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L882" class="LineNr"> 882 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L882" class="LineNr"> 882 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L883" class="LineNr"> 883 </span> 51/push-ecx
|
||||
<span id="L884" class="LineNr"> 884 </span> 50/push-eax
|
||||
<span id="L885" class="LineNr"> 885 </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>
|
||||
|
|
@ -967,7 +967,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L906" class="LineNr"> 906 </span> c3/return
|
||||
<span id="L907" class="LineNr"> 907 </span>
|
||||
<span id="L908" class="LineNr"> 908 </span><span class="subxComment"># write a slice to a buffered-file</span>
|
||||
<span id="L909" class="LineNr"> 909 </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="subxFunction">write-slice-buffered</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr slice)</span>
|
||||
<span id="L910" class="LineNr"> 910 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L911" class="LineNr"> 911 </span> 55/push-ebp
|
||||
<span id="L912" class="LineNr"> 912 </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>
|
||||
|
|
@ -980,9 +980,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L919" class="LineNr"> 919 </span> 57/push-edi
|
||||
<span id="L920" class="LineNr"> 920 </span> <span class="subxComment"># esi = s</span>
|
||||
<span id="L921" class="LineNr"> 921 </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="L922" class="LineNr"> 922 </span> <span class="subxComment"># var curr/ecx : (addr byte) = s->start</span>
|
||||
<span id="L922" class="LineNr"> 922 </span> <span class="subxComment"># var curr/ecx: (addr byte) = s->start</span>
|
||||
<span id="L923" class="LineNr"> 923 </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="L924" class="LineNr"> 924 </span> <span class="subxComment"># var max/esi : (addr byte) = s->end</span>
|
||||
<span id="L924" class="LineNr"> 924 </span> <span class="subxComment"># var max/esi: (addr byte) = s->end</span>
|
||||
<span id="L925" class="LineNr"> 925 </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="L926" class="LineNr"> 926 </span> <span class="subxComment"># edi = out</span>
|
||||
<span id="L927" class="LineNr"> 927 </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>
|
||||
|
|
@ -1068,7 +1068,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1007" class="LineNr">1007 </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="L1008" class="LineNr">1008 </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="L1009" class="LineNr">1009 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L1010" class="LineNr">1010 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L1010" class="LineNr">1010 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L1011" class="LineNr">1011 </span> 51/push-ecx
|
||||
<span id="L1012" class="LineNr">1012 </span> 50/push-eax
|
||||
<span id="L1013" class="LineNr">1013 </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>
|
||||
|
|
@ -1102,7 +1102,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1041" class="LineNr">1041 </span> c3/return
|
||||
<span id="L1042" class="LineNr">1042 </span>
|
||||
<span id="L1043" class="LineNr">1043 </span><span class="subxComment"># copy a slice into a new (dynamically allocated) string</span>
|
||||
<span id="L1044" class="LineNr">1044 </span><span class="subxFunction">slice-to-string</span>: <span class="subxComment"># ad : (addr allocation-descriptor), in : (addr slice) -> out/eax : (addr array byte)</span>
|
||||
<span id="L1044" class="LineNr">1044 </span><span class="subxFunction">slice-to-string</span>: <span class="subxComment"># ad: (addr allocation-descriptor), in: (addr slice) -> out/eax: (addr array byte)</span>
|
||||
<span id="L1045" class="LineNr">1045 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L1046" class="LineNr">1046 </span> 55/push-ebp
|
||||
<span id="L1047" class="LineNr">1047 </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>
|
||||
|
|
@ -1113,15 +1113,15 @@ if ('onhashchange' in window) {
|
|||
<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="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="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 length)</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 length)</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"># var out/eax : (handle array byte) = allocate(ad, size)</span>
|
||||
<span id="L1063" class="LineNr">1063 </span> <span class="subxComment"># var out/eax: (handle array byte) = allocate(ad, size)</span>
|
||||
<span id="L1064" class="LineNr">1064 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
<span id="L1065" class="LineNr">1065 </span> 51/push-ecx
|
||||
<span id="L1066" class="LineNr">1066 </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>
|
||||
|
|
@ -1184,7 +1184,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1123" class="LineNr">1123 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L1124" class="LineNr">1124 </span> 55/push-ebp
|
||||
<span id="L1125" class="LineNr">1125 </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="L1126" class="LineNr">1126 </span> <span class="subxComment"># var heap/edx : allocation-descriptor</span>
|
||||
<span id="L1126" class="LineNr">1126 </span> <span class="subxComment"># var heap/edx: allocation-descriptor</span>
|
||||
<span id="L1127" class="LineNr">1127 </span> 68/push 0/imm32/limit
|
||||
<span id="L1128" class="LineNr">1128 </span> 68/push 0/imm32/curr
|
||||
<span id="L1129" class="LineNr">1129 </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>
|
||||
|
|
@ -1201,7 +1201,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1140" class="LineNr">1140 </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="L1141" class="LineNr">1141 </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="L1142" class="LineNr">1142 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L1143" class="LineNr">1143 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L1143" class="LineNr">1143 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L1144" class="LineNr">1144 </span> 51/push-ecx
|
||||
<span id="L1145" class="LineNr">1145 </span> 50/push-eax
|
||||
<span id="L1146" class="LineNr">1146 </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>
|
||||
|
|
|
|||
|
|
@ -66,7 +66,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L7" class="LineNr"> 7 </span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># extract the next run of characters that are different from a given 'delimiter' (skipping multiple delimiters if necessary)</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># on reaching end of file, return an empty interval</span>
|
||||
<span id="L10" class="LineNr"> 10 </span><span class="subxFunction">next-token</span>: <span class="subxComment"># in : (addr stream byte), delimiter : byte, out : (addr slice)</span>
|
||||
<span id="L10" class="LineNr"> 10 </span><span class="subxFunction">next-token</span>: <span class="subxComment"># in: (addr stream byte), delimiter: byte, out: (addr slice)</span>
|
||||
<span id="L11" class="LineNr"> 11 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L12" class="LineNr"> 12 </span> 55/push-ebp
|
||||
<span id="L13" class="LineNr"> 13 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span>
|
||||
|
|
@ -125,7 +125,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L66" class="LineNr"> 66 </span> e8/call <a href='055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L67" class="LineNr"> 67 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L68" class="LineNr"> 68 </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="L69" class="LineNr"> 69 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L69" class="LineNr"> 69 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L70" class="LineNr"> 70 </span> 68/push 0/imm32/end
|
||||
<span id="L71" class="LineNr"> 71 </span> 68/push 0/imm32/start
|
||||
<span id="L72" class="LineNr"> 72 </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>
|
||||
|
|
@ -189,7 +189,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L130" class="LineNr"> 130 </span> e8/call <a href='055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L131" class="LineNr"> 131 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L132" class="LineNr"> 132 </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="L133" class="LineNr"> 133 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L133" class="LineNr"> 133 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L134" class="LineNr"> 134 </span> 68/push 0/imm32/end
|
||||
<span id="L135" class="LineNr"> 135 </span> 68/push 0/imm32/start
|
||||
<span id="L136" class="LineNr"> 136 </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>
|
||||
|
|
@ -219,7 +219,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L160" class="LineNr"> 160 </span>
|
||||
<span id="L161" class="LineNr"> 161 </span><span class="subxComment"># extract the next run of characters that are different from a given 'delimiter' (skipping multiple delimiters if necessary)</span>
|
||||
<span id="L162" class="LineNr"> 162 </span><span class="subxComment"># on reaching end of file, return an empty interval</span>
|
||||
<span id="L163" class="LineNr"> 163 </span><span class="subxFunction">next-token-from-slice</span>: <span class="subxComment"># start : (addr byte), end : (addr byte), delimiter : byte, out : (addr slice)</span>
|
||||
<span id="L163" class="LineNr"> 163 </span><span class="subxFunction">next-token-from-slice</span>: <span class="subxComment"># start: (addr byte), end: (addr byte), delimiter: byte, out: (addr slice)</span>
|
||||
<span id="L164" class="LineNr"> 164 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L165" class="LineNr"> 165 </span> 55/push-ebp
|
||||
<span id="L166" class="LineNr"> 166 </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>
|
||||
|
|
@ -275,7 +275,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L216" class="LineNr"> 216 </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="L217" class="LineNr"> 217 </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="L218" class="LineNr"> 218 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L219" class="LineNr"> 219 </span> <span class="subxComment"># var out/edi : slice</span>
|
||||
<span id="L219" class="LineNr"> 219 </span> <span class="subxComment"># var out/edi: slice</span>
|
||||
<span id="L220" class="LineNr"> 220 </span> 68/push 0/imm32/end
|
||||
<span id="L221" class="LineNr"> 221 </span> 68/push 0/imm32/start
|
||||
<span id="L222" class="LineNr"> 222 </span> 89/copy 3/mod/direct 7/rm32/edi <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 edi</span>
|
||||
|
|
@ -324,7 +324,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L265" class="LineNr"> 265 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L266" class="LineNr"> 266 </span> 55/push-ebp
|
||||
<span id="L267" class="LineNr"> 267 </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="L268" class="LineNr"> 268 </span> <span class="subxComment"># var out/edi : slice</span>
|
||||
<span id="L268" class="LineNr"> 268 </span> <span class="subxComment"># var out/edi: slice</span>
|
||||
<span id="L269" class="LineNr"> 269 </span> 68/push 0/imm32/end
|
||||
<span id="L270" class="LineNr"> 270 </span> 68/push 0/imm32/start
|
||||
<span id="L271" class="LineNr"> 271 </span> 89/copy 3/mod/direct 7/rm32/edi <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 edi</span>
|
||||
|
|
@ -365,7 +365,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L306" class="LineNr"> 306 </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="L307" class="LineNr"> 307 </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="L308" class="LineNr"> 308 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L309" class="LineNr"> 309 </span> <span class="subxComment"># var out/edi : slice</span>
|
||||
<span id="L309" class="LineNr"> 309 </span> <span class="subxComment"># var out/edi: slice</span>
|
||||
<span id="L310" class="LineNr"> 310 </span> 68/push 0/imm32/end
|
||||
<span id="L311" class="LineNr"> 311 </span> 68/push 0/imm32/start
|
||||
<span id="L312" class="LineNr"> 312 </span> 89/copy 3/mod/direct 7/rm32/edi <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 edi</span>
|
||||
|
|
@ -397,7 +397,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L338" class="LineNr"> 338 </span> 5d/pop-to-ebp
|
||||
<span id="L339" class="LineNr"> 339 </span> c3/return
|
||||
<span id="L340" class="LineNr"> 340 </span>
|
||||
<span id="L341" class="LineNr"> 341 </span><span class="subxFunction">skip-chars-matching</span>: <span class="subxComment"># in : (addr stream byte), delimiter : byte</span>
|
||||
<span id="L341" class="LineNr"> 341 </span><span class="subxFunction">skip-chars-matching</span>: <span class="subxComment"># in: (addr stream byte), delimiter: byte</span>
|
||||
<span id="L342" class="LineNr"> 342 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L343" class="LineNr"> 343 </span> 55/push-ebp
|
||||
<span id="L344" class="LineNr"> 344 </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>
|
||||
|
|
@ -520,7 +520,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L461" class="LineNr"> 461 </span> <span class="subxComment"># end</span>
|
||||
<span id="L462" class="LineNr"> 462 </span> c3/return
|
||||
<span id="L463" class="LineNr"> 463 </span>
|
||||
<span id="L464" class="LineNr"> 464 </span><span class="subxFunction">skip-chars-matching-whitespace</span>: <span class="subxComment"># in : (addr stream byte)</span>
|
||||
<span id="L464" class="LineNr"> 464 </span><span class="subxFunction">skip-chars-matching-whitespace</span>: <span class="subxComment"># in: (addr stream byte)</span>
|
||||
<span id="L465" class="LineNr"> 465 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L466" class="LineNr"> 466 </span> 55/push-ebp
|
||||
<span id="L467" class="LineNr"> 467 </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>
|
||||
|
|
@ -610,7 +610,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L551" class="LineNr"> 551 </span> c3/return
|
||||
<span id="L552" class="LineNr"> 552 </span>
|
||||
<span id="L553" class="LineNr"> 553 </span><span class="subxComment"># minor fork of 'skip-chars-matching'</span>
|
||||
<span id="L554" class="LineNr"> 554 </span><span class="subxFunction">skip-chars-not-matching</span>: <span class="subxComment"># in : (addr stream byte), delimiter : byte</span>
|
||||
<span id="L554" class="LineNr"> 554 </span><span class="subxFunction">skip-chars-not-matching</span>: <span class="subxComment"># in: (addr stream byte), delimiter: byte</span>
|
||||
<span id="L555" class="LineNr"> 555 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L556" class="LineNr"> 556 </span> 55/push-ebp
|
||||
<span id="L557" class="LineNr"> 557 </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>
|
||||
|
|
@ -772,7 +772,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L713" class="LineNr"> 713 </span> <span class="subxComment"># end</span>
|
||||
<span id="L714" class="LineNr"> 714 </span> c3/return
|
||||
<span id="L715" class="LineNr"> 715 </span>
|
||||
<span id="L716" class="LineNr"> 716 </span><span class="subxFunction">skip-chars-not-matching-whitespace</span>: <span class="subxComment"># in : (addr stream byte)</span>
|
||||
<span id="L716" class="LineNr"> 716 </span><span class="subxFunction">skip-chars-not-matching-whitespace</span>: <span class="subxComment"># in: (addr stream byte)</span>
|
||||
<span id="L717" class="LineNr"> 717 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L718" class="LineNr"> 718 </span> 55/push-ebp
|
||||
<span id="L719" class="LineNr"> 719 </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>
|
||||
|
|
@ -860,7 +860,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L801" class="LineNr"> 801 </span> <span class="subxComment"># end</span>
|
||||
<span id="L802" class="LineNr"> 802 </span> c3/return
|
||||
<span id="L803" class="LineNr"> 803 </span>
|
||||
<span id="L804" class="LineNr"> 804 </span><span class="subxFunction">skip-chars-matching-in-slice</span>: <span class="subxComment"># curr : (addr byte), end : (addr byte), delimiter : byte -> curr/eax</span>
|
||||
<span id="L804" class="LineNr"> 804 </span><span class="subxFunction">skip-chars-matching-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte), delimiter: byte -> curr/eax</span>
|
||||
<span id="L805" class="LineNr"> 805 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L806" class="LineNr"> 806 </span> 55/push-ebp
|
||||
<span id="L807" class="LineNr"> 807 </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>
|
||||
|
|
@ -874,7 +874,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L815" class="LineNr"> 815 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span>
|
||||
<span id="L816" class="LineNr"> 816 </span> <span class="subxComment"># edx = delimiter</span>
|
||||
<span id="L817" class="LineNr"> 817 </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="L818" class="LineNr"> 818 </span> <span class="subxComment"># var c/ebx : byte = 0</span>
|
||||
<span id="L818" class="LineNr"> 818 </span> <span class="subxComment"># var c/ebx: byte = 0</span>
|
||||
<span id="L819" class="LineNr"> 819 </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="L820" class="LineNr"> 820 </span><span class="Constant">$skip-chars-matching-in-slice:loop</span>:
|
||||
<span id="L821" class="LineNr"> 821 </span> <span class="subxComment"># if (curr >= end) break</span>
|
||||
|
|
@ -956,7 +956,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L897" class="LineNr"> 897 </span> <span class="subxComment"># end</span>
|
||||
<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="subxFunction">skip-chars-matching-whitespace-in-slice</span>: <span class="subxComment"># curr : (addr byte), end : (addr byte) -> curr/eax</span>
|
||||
<span id="L900" class="LineNr"> 900 </span><span class="subxFunction">skip-chars-matching-whitespace-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte) -> curr/eax</span>
|
||||
<span id="L901" class="LineNr"> 901 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L902" class="LineNr"> 902 </span> 55/push-ebp
|
||||
<span id="L903" class="LineNr"> 903 </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>
|
||||
|
|
@ -967,7 +967,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L908" class="LineNr"> 908 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span>
|
||||
<span id="L909" class="LineNr"> 909 </span> <span class="subxComment"># ecx = end</span>
|
||||
<span id="L910" class="LineNr"> 910 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span>
|
||||
<span id="L911" class="LineNr"> 911 </span> <span class="subxComment"># var c/ebx : byte = 0</span>
|
||||
<span id="L911" class="LineNr"> 911 </span> <span class="subxComment"># var c/ebx: byte = 0</span>
|
||||
<span id="L912" class="LineNr"> 912 </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="L913" class="LineNr"> 913 </span><span class="Constant">$skip-chars-matching-whitespace-in-slice:loop</span>:
|
||||
<span id="L914" class="LineNr"> 914 </span> <span class="subxComment"># if (curr >= end) break</span>
|
||||
|
|
@ -1029,7 +1029,7 @@ if ('onhashchange' in window) {
|
|||
<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="subxComment"># minor fork of 'skip-chars-matching-in-slice'</span>
|
||||
<span id="L973" class="LineNr"> 973 </span><span class="subxFunction">skip-chars-not-matching-in-slice</span>: <span class="subxComment"># curr : (addr byte), end : (addr byte), delimiter : byte -> curr/eax</span>
|
||||
<span id="L973" class="LineNr"> 973 </span><span class="subxFunction">skip-chars-not-matching-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte), delimiter: byte -> curr/eax</span>
|
||||
<span id="L974" class="LineNr"> 974 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L975" class="LineNr"> 975 </span> 55/push-ebp
|
||||
<span id="L976" class="LineNr"> 976 </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>
|
||||
|
|
@ -1043,7 +1043,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L984" class="LineNr"> 984 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span>
|
||||
<span id="L985" class="LineNr"> 985 </span> <span class="subxComment"># edx = delimiter</span>
|
||||
<span id="L986" class="LineNr"> 986 </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="L987" class="LineNr"> 987 </span> <span class="subxComment"># var c/ebx : byte = 0</span>
|
||||
<span id="L987" class="LineNr"> 987 </span> <span class="subxComment"># var c/ebx: byte = 0</span>
|
||||
<span id="L988" class="LineNr"> 988 </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="L989" class="LineNr"> 989 </span><span class="Constant">$skip-chars-not-matching-in-slice:loop</span>:
|
||||
<span id="L990" class="LineNr"> 990 </span> <span class="subxComment"># if (curr >= end) break</span>
|
||||
|
|
@ -1154,7 +1154,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1095" class="LineNr">1095 </span> <span class="subxComment"># end</span>
|
||||
<span id="L1096" class="LineNr">1096 </span> c3/return
|
||||
<span id="L1097" class="LineNr">1097 </span>
|
||||
<span id="L1098" class="LineNr">1098 </span><span class="subxFunction">skip-chars-not-matching-whitespace-in-slice</span>: <span class="subxComment"># curr : (addr byte), end : (addr byte) -> curr/eax</span>
|
||||
<span id="L1098" class="LineNr">1098 </span><span class="subxFunction">skip-chars-not-matching-whitespace-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte) -> curr/eax</span>
|
||||
<span id="L1099" class="LineNr">1099 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L1100" class="LineNr">1100 </span> 55/push-ebp
|
||||
<span id="L1101" class="LineNr">1101 </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>
|
||||
|
|
@ -1165,7 +1165,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1106" class="LineNr">1106 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span>
|
||||
<span id="L1107" class="LineNr">1107 </span> <span class="subxComment"># ecx = end</span>
|
||||
<span id="L1108" class="LineNr">1108 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span>
|
||||
<span id="L1109" class="LineNr">1109 </span> <span class="subxComment"># var c/ebx : byte = 0</span>
|
||||
<span id="L1109" class="LineNr">1109 </span> <span class="subxComment"># var c/ebx: byte = 0</span>
|
||||
<span id="L1110" class="LineNr">1110 </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="L1111" class="LineNr">1111 </span><span class="Constant">$skip-chars-not-matching-whitespace-in-slice:loop</span>:
|
||||
<span id="L1112" class="LineNr">1112 </span> <span class="subxComment"># if (curr >= end) break</span>
|
||||
|
|
@ -1227,7 +1227,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1168" class="LineNr">1168 </span>
|
||||
<span id="L1169" class="LineNr">1169 </span><span class="subxComment"># update line->read to end of string literal surrounded by double quotes</span>
|
||||
<span id="L1170" class="LineNr">1170 </span><span class="subxComment"># line->read must start out at a double-quote</span>
|
||||
<span id="L1171" class="LineNr">1171 </span><span class="subxFunction">skip-string</span>: <span class="subxComment"># line : (addr stream byte)</span>
|
||||
<span id="L1171" class="LineNr">1171 </span><span class="subxFunction">skip-string</span>: <span class="subxComment"># line: (addr stream byte)</span>
|
||||
<span id="L1172" class="LineNr">1172 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L1173" class="LineNr">1173 </span> 55/push-ebp
|
||||
<span id="L1174" class="LineNr">1174 </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>
|
||||
|
|
@ -1469,7 +1469,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1410" class="LineNr">1410 </span> 5d/pop-to-ebp
|
||||
<span id="L1411" class="LineNr">1411 </span> c3/return
|
||||
<span id="L1412" class="LineNr">1412 </span>
|
||||
<span id="L1413" class="LineNr">1413 </span><span class="subxFunction">skip-string-in-slice</span>: <span class="subxComment"># curr : (addr byte), end : (addr byte) -> new_curr/eax</span>
|
||||
<span id="L1413" class="LineNr">1413 </span><span class="subxFunction">skip-string-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte) -> new_curr/eax</span>
|
||||
<span id="L1414" class="LineNr">1414 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L1415" class="LineNr">1415 </span> 55/push-ebp
|
||||
<span id="L1416" class="LineNr">1416 </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>
|
||||
|
|
@ -1481,7 +1481,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1422" class="LineNr">1422 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span>
|
||||
<span id="L1423" class="LineNr">1423 </span> <span class="subxComment"># edx = end</span>
|
||||
<span id="L1424" class="LineNr">1424 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span>
|
||||
<span id="L1425" class="LineNr">1425 </span> <span class="subxComment"># var c/eax : byte = 0</span>
|
||||
<span id="L1425" class="LineNr">1425 </span> <span class="subxComment"># var c/eax: byte = 0</span>
|
||||
<span id="L1426" class="LineNr">1426 </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="L1427" class="LineNr">1427 </span> <span class="subxComment"># skip initial dquote</span>
|
||||
<span id="L1428" class="LineNr">1428 </span> 41/increment-ecx
|
||||
|
|
@ -1655,7 +1655,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1596" class="LineNr">1596 </span>
|
||||
<span id="L1597" class="LineNr">1597 </span><span class="subxComment"># update line->read to ')'</span>
|
||||
<span id="L1598" class="LineNr">1598 </span><span class="subxComment"># line->read ends at ')'</span>
|
||||
<span id="L1599" class="LineNr">1599 </span><span class="subxFunction">skip-until-close-paren</span>: <span class="subxComment"># line : (addr stream byte)</span>
|
||||
<span id="L1599" class="LineNr">1599 </span><span class="subxFunction">skip-until-close-paren</span>: <span class="subxComment"># line: (addr stream byte)</span>
|
||||
<span id="L1600" class="LineNr">1600 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L1601" class="LineNr">1601 </span> 55/push-ebp
|
||||
<span id="L1602" class="LineNr">1602 </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>
|
||||
|
|
@ -1842,7 +1842,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1783" class="LineNr">1783 </span> 5d/pop-to-ebp
|
||||
<span id="L1784" class="LineNr">1784 </span> c3/return
|
||||
<span id="L1785" class="LineNr">1785 </span>
|
||||
<span id="L1786" class="LineNr">1786 </span><span class="subxFunction">skip-until-close-paren-in-slice</span>: <span class="subxComment"># curr : (addr byte), end : (addr byte) -> new_curr/eax : (addr byte)</span>
|
||||
<span id="L1786" class="LineNr">1786 </span><span class="subxFunction">skip-until-close-paren-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte) -> new_curr/eax: (addr byte)</span>
|
||||
<span id="L1787" class="LineNr">1787 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L1788" class="LineNr">1788 </span> 55/push-ebp
|
||||
<span id="L1789" class="LineNr">1789 </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>
|
||||
|
|
@ -1853,7 +1853,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1794" class="LineNr">1794 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span>
|
||||
<span id="L1795" class="LineNr">1795 </span> <span class="subxComment"># edx = end</span>
|
||||
<span id="L1796" class="LineNr">1796 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span>
|
||||
<span id="L1797" class="LineNr">1797 </span> <span class="subxComment"># var c/eax : byte = 0</span>
|
||||
<span id="L1797" class="LineNr">1797 </span> <span class="subxComment"># var c/eax: byte = 0</span>
|
||||
<span id="L1798" class="LineNr">1798 </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="L1799" class="LineNr">1799 </span> <span class="subxComment"># skip initial dquote</span>
|
||||
<span id="L1800" class="LineNr">1800 </span> 41/increment-ecx
|
||||
|
|
|
|||
|
|
@ -67,7 +67,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># - construct a 'maximal slice' and pass it to write-slice-buffered</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># - flush the buffered-file and pass the stream directly to its fd (disabling buffering)</span>
|
||||
<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># we'll go with the first way for now</span>
|
||||
<span id="L11" class="LineNr"> 11 </span><span class="subxFunction">write-stream-data</span>: <span class="subxComment"># f : (addr buffered-file), s : (addr stream byte)</span>
|
||||
<span id="L11" class="LineNr"> 11 </span><span class="subxFunction">write-stream-data</span>: <span class="subxComment"># f: (addr buffered-file), s: (addr stream byte)</span>
|
||||
<span id="L12" class="LineNr"> 12 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L13" class="LineNr"> 13 </span> 55/push-ebp
|
||||
<span id="L14" class="LineNr"> 14 </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>
|
||||
|
|
@ -77,7 +77,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L18" class="LineNr"> 18 </span> 56/push-esi
|
||||
<span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># esi = s</span>
|
||||
<span id="L20" class="LineNr"> 20 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span>
|
||||
<span id="L21" class="LineNr"> 21 </span> <span class="subxComment"># var slice/ecx : slice = {s->data, &s->data[s->write]}</span>
|
||||
<span id="L21" class="LineNr"> 21 </span> <span class="subxComment"># var slice/ecx: slice = {s->data, &s->data[s->write]}</span>
|
||||
<span id="L22" class="LineNr"> 22 </span> <span class="subxS1Comment"># . push &s->data[s->write]</span>
|
||||
<span id="L23" class="LineNr"> 23 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span>
|
||||
<span id="L24" class="LineNr"> 24 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span>
|
||||
|
|
|
|||
|
|
@ -66,7 +66,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span>
|
||||
<span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span>
|
||||
<span id="L7" class="LineNr"> 7 </span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">print-int32-decimal</span>: <span class="subxComment"># out : (addr stream byte), n : int32</span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">print-int32-decimal</span>: <span class="subxComment"># out: (addr stream byte), n: int32</span>
|
||||
<span id="L9" class="LineNr"> 9 </span> <span class="subxComment"># works by generating characters from lowest to highest and pushing them</span>
|
||||
<span id="L10" class="LineNr"> 10 </span> <span class="subxComment"># to the stack, before popping them one by one into the stream</span>
|
||||
<span id="L11" class="LineNr"> 11 </span> <span class="subxComment">#</span>
|
||||
|
|
@ -109,7 +109,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L48" class="LineNr"> 48 </span> b9/copy-to-ecx 0xa/imm32
|
||||
<span id="L49" class="LineNr"> 49 </span> <span class="subxComment"># push sentinel</span>
|
||||
<span id="L50" class="LineNr"> 50 </span> 68/push 0/imm32/sentinel
|
||||
<span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># var eax : int = abs(n)</span>
|
||||
<span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># var eax: int = abs(n)</span>
|
||||
<span id="L52" class="LineNr"> 52 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span>
|
||||
<span id="L53" class="LineNr"> 53 </span> 3d/compare-eax-with 0/imm32
|
||||
<span id="L54" class="LineNr"> 54 </span> 7d/jump-if->= $print-int32-decimal:read-loop/disp8
|
||||
|
|
@ -135,11 +135,11 @@ if ('onhashchange' in window) {
|
|||
<span id="L74" class="LineNr"> 74 </span><span class="Constant">$print-int32-decimal:<a href='057write.subx.html#L24'>write</a></span>:
|
||||
<span id="L75" class="LineNr"> 75 </span> <span class="subxComment"># edi = out</span>
|
||||
<span id="L76" class="LineNr"> 76 </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="L77" class="LineNr"> 77 </span> <span class="subxComment"># var w/edx : int = out->write</span>
|
||||
<span id="L77" class="LineNr"> 77 </span> <span class="subxComment"># var w/edx: int = out->write</span>
|
||||
<span id="L78" class="LineNr"> 78 </span> 8b/copy 0/mod/indirect 7/rm32/edi <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 *edi to edx</span>
|
||||
<span id="L79" class="LineNr"> 79 </span> <span class="subxComment"># var curr/ecx : (addr byte) = &out->data[out->write]</span>
|
||||
<span id="L79" class="LineNr"> 79 </span> <span class="subxComment"># var curr/ecx: (addr byte) = &out->data[out->write]</span>
|
||||
<span id="L80" class="LineNr"> 80 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 2/index/edx <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ebx+edx+12 to ecx</span>
|
||||
<span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># var max/ebx : (addr byte) = &out->data[out->length]</span>
|
||||
<span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># var max/ebx: (addr byte) = &out->data[out->length]</span>
|
||||
<span id="L82" class="LineNr"> 82 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+8) to ebx</span>
|
||||
<span id="L83" class="LineNr"> 83 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 3/index/ebx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+ebx+12 to ebx</span>
|
||||
<span id="L84" class="LineNr"> 84 </span><span class="Constant">$print-int32-decimal:write-loop</span>:
|
||||
|
|
@ -340,7 +340,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L304" class="LineNr">304 </span> <span class="subxS1Comment"># . end</span>
|
||||
<span id="L305" class="LineNr">305 </span> c3/return
|
||||
<span id="L306" class="LineNr">306 </span>
|
||||
<span id="L307" class="LineNr">307 </span><span class="subxFunction">is-decimal-digit?</span>: <span class="subxComment"># c : byte -> eax : boolean</span>
|
||||
<span id="L307" class="LineNr">307 </span><span class="subxFunction">is-decimal-digit?</span>: <span class="subxComment"># c: byte -> eax: boolean</span>
|
||||
<span id="L308" class="LineNr">308 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L309" class="LineNr">309 </span> 55/push-ebp
|
||||
<span id="L310" class="LineNr">310 </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>
|
||||
|
|
|
|||
|
|
@ -66,7 +66,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L7" class="LineNr"> 7 </span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># (re)compute the bounds of the next word in the line</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># return empty string on reaching end of file</span>
|
||||
<span id="L10" class="LineNr"> 10 </span><span class="subxFunction">next-word</span>: <span class="subxComment"># line : (addr stream byte), out : (addr slice)</span>
|
||||
<span id="L10" class="LineNr"> 10 </span><span class="subxFunction">next-word</span>: <span class="subxComment"># line: (addr stream byte), out: (addr slice)</span>
|
||||
<span id="L11" class="LineNr"> 11 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L12" class="LineNr"> 12 </span> 55/push-ebp
|
||||
<span id="L13" class="LineNr"> 13 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span>
|
||||
|
|
@ -154,7 +154,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L95" class="LineNr"> 95 </span> e8/call <a href='055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L96" class="LineNr"> 96 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L97" class="LineNr"> 97 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span>
|
||||
<span id="L98" class="LineNr"> 98 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L98" class="LineNr"> 98 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L99" class="LineNr"> 99 </span> 68/push 0/imm32/end
|
||||
<span id="L100" class="LineNr">100 </span> 68/push 0/imm32/start
|
||||
<span id="L101" class="LineNr">101 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span>
|
||||
|
|
@ -217,7 +217,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L158" class="LineNr">158 </span> e8/call <a href='055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L160" class="LineNr">160 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span>
|
||||
<span id="L161" class="LineNr">161 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L161" class="LineNr">161 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L162" class="LineNr">162 </span> 68/push 0/imm32/end
|
||||
<span id="L163" class="LineNr">163 </span> 68/push 0/imm32/start
|
||||
<span id="L164" class="LineNr">164 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span>
|
||||
|
|
@ -280,7 +280,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L221" class="LineNr">221 </span> e8/call <a href='055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L222" class="LineNr">222 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L223" class="LineNr">223 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span>
|
||||
<span id="L224" class="LineNr">224 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L224" class="LineNr">224 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L225" class="LineNr">225 </span> 68/push 0/imm32/end
|
||||
<span id="L226" class="LineNr">226 </span> 68/push 0/imm32/start
|
||||
<span id="L227" class="LineNr">227 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span>
|
||||
|
|
|
|||
|
|
@ -64,9 +64,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span>
|
||||
<span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span>
|
||||
<span id="L7" class="LineNr"> 7 </span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">has-metadata?</span>: <span class="subxComment"># word : (addr slice), s : (addr string) -> eax : boolean</span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">has-metadata?</span>: <span class="subxComment"># word: (addr slice), s: (addr string) -> eax: boolean</span>
|
||||
<span id="L9" class="LineNr"> 9 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L10" class="LineNr"> 10 </span> <span class="subxComment"># var twig : &slice = next-token-from-slice(word->start, word->end, '/') # skip name</span>
|
||||
<span id="L10" class="LineNr"> 10 </span> <span class="subxComment"># var twig: &slice = next-token-from-slice(word->start, word->end, '/') # skip name</span>
|
||||
<span id="L11" class="LineNr"> 11 </span> <span class="subxComment"># curr = twig->end</span>
|
||||
<span id="L12" class="LineNr"> 12 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L13" class="LineNr"> 13 </span> <span class="subxComment"># twig = next-token-from-slice(curr, word->end, '/')</span>
|
||||
|
|
@ -84,9 +84,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L25" class="LineNr"> 25 </span> 57/push-edi
|
||||
<span id="L26" class="LineNr"> 26 </span> <span class="subxComment"># esi = word</span>
|
||||
<span id="L27" class="LineNr"> 27 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L28" class="LineNr"> 28 </span> <span class="subxComment"># var edx : (addr byte) = word->end</span>
|
||||
<span id="L28" class="LineNr"> 28 </span> <span class="subxComment"># var edx: (addr byte) = word->end</span>
|
||||
<span id="L29" class="LineNr"> 29 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to edx</span>
|
||||
<span id="L30" class="LineNr"> 30 </span> <span class="subxComment"># var twig/edi : slice</span>
|
||||
<span id="L30" class="LineNr"> 30 </span> <span class="subxComment"># var twig/edi: slice</span>
|
||||
<span id="L31" class="LineNr"> 31 </span> 68/push 0/imm32/end
|
||||
<span id="L32" class="LineNr"> 32 </span> 68/push 0/imm32/start
|
||||
<span id="L33" class="LineNr"> 33 </span> 89/copy 3/mod/direct 7/rm32/edi <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 edi</span>
|
||||
|
|
@ -160,7 +160,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L101" class="LineNr">101 </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="L102" class="LineNr">102 </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="L103" class="LineNr">103 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L104" class="LineNr">104 </span> <span class="subxComment"># var in/esi : slice = {eax, ecx}</span>
|
||||
<span id="L104" class="LineNr">104 </span> <span class="subxComment"># var in/esi: slice = {eax, ecx}</span>
|
||||
<span id="L105" class="LineNr">105 </span> 51/push-ecx
|
||||
<span id="L106" class="LineNr">106 </span> 50/push-eax
|
||||
<span id="L107" class="LineNr">107 </span> 89/copy 3/mod/direct 6/rm32/esi <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 esi</span>
|
||||
|
|
@ -195,7 +195,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L136" class="LineNr">136 </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="L137" class="LineNr">137 </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="L138" class="LineNr">138 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L139" class="LineNr">139 </span> <span class="subxComment"># var in/esi : slice = {eax, ecx}</span>
|
||||
<span id="L139" class="LineNr">139 </span> <span class="subxComment"># var in/esi: slice = {eax, ecx}</span>
|
||||
<span id="L140" class="LineNr">140 </span> 51/push-ecx
|
||||
<span id="L141" class="LineNr">141 </span> 50/push-eax
|
||||
<span id="L142" class="LineNr">142 </span> 89/copy 3/mod/direct 6/rm32/esi <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 esi</span>
|
||||
|
|
@ -230,7 +230,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L171" class="LineNr">171 </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="L172" class="LineNr">172 </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="L173" class="LineNr">173 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L174" class="LineNr">174 </span> <span class="subxComment"># var in/esi : slice = {eax, ecx}</span>
|
||||
<span id="L174" class="LineNr">174 </span> <span class="subxComment"># var in/esi: slice = {eax, ecx}</span>
|
||||
<span id="L175" class="LineNr">175 </span> 51/push-ecx
|
||||
<span id="L176" class="LineNr">176 </span> 50/push-eax
|
||||
<span id="L177" class="LineNr">177 </span> 89/copy 3/mod/direct 6/rm32/esi <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 esi</span>
|
||||
|
|
@ -265,7 +265,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L206" class="LineNr">206 </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="L207" class="LineNr">207 </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="L208" class="LineNr">208 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L209" class="LineNr">209 </span> <span class="subxComment"># var in/esi : slice = {eax, ecx}</span>
|
||||
<span id="L209" class="LineNr">209 </span> <span class="subxComment"># var in/esi: slice = {eax, ecx}</span>
|
||||
<span id="L210" class="LineNr">210 </span> 51/push-ecx
|
||||
<span id="L211" class="LineNr">211 </span> 50/push-eax
|
||||
<span id="L212" class="LineNr">212 </span> 89/copy 3/mod/direct 6/rm32/esi <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 esi</span>
|
||||
|
|
@ -300,7 +300,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L241" class="LineNr">241 </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="L242" class="LineNr">242 </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="L243" class="LineNr">243 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L244" class="LineNr">244 </span> <span class="subxComment"># var in/esi : slice = {eax, ecx}</span>
|
||||
<span id="L244" class="LineNr">244 </span> <span class="subxComment"># var in/esi: slice = {eax, ecx}</span>
|
||||
<span id="L245" class="LineNr">245 </span> 51/push-ecx
|
||||
<span id="L246" class="LineNr">246 </span> 50/push-eax
|
||||
<span id="L247" class="LineNr">247 </span> 89/copy 3/mod/direct 6/rm32/esi <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 esi</span>
|
||||
|
|
@ -334,7 +334,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L275" class="LineNr">275 </span><span class="subxComment">#: - if it starts with '0x' it's treated as a number. (redundant)</span>
|
||||
<span id="L276" class="LineNr">276 </span><span class="subxComment">#: - if it's two characters long, it can't be a name. Either it's a hex</span>
|
||||
<span id="L277" class="LineNr">277 </span><span class="subxComment">#: byte, or it raises an error.</span>
|
||||
<span id="L278" class="LineNr">278 </span><span class="subxFunction">is-valid-name?</span>: <span class="subxComment"># in : (addr slice) -> eax : boolean</span>
|
||||
<span id="L278" class="LineNr">278 </span><span class="subxFunction">is-valid-name?</span>: <span class="subxComment"># in: (addr slice) -> eax: boolean</span>
|
||||
<span id="L279" class="LineNr">279 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L280" class="LineNr">280 </span> 55/push-ebp
|
||||
<span id="L281" class="LineNr">281 </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>
|
||||
|
|
@ -343,21 +343,21 @@ if ('onhashchange' in window) {
|
|||
<span id="L284" class="LineNr">284 </span> 56/push-esi
|
||||
<span id="L285" class="LineNr">285 </span> <span class="subxComment"># esi = in</span>
|
||||
<span id="L286" class="LineNr">286 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L287" class="LineNr">287 </span> <span class="subxComment"># var start/ecx : (addr byte) = in->start</span>
|
||||
<span id="L287" class="LineNr">287 </span> <span class="subxComment"># var start/ecx: (addr byte) = in->start</span>
|
||||
<span id="L288" class="LineNr">288 </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="L289" class="LineNr">289 </span><span class="Constant">$is-valid-name?:check0</span>:
|
||||
<span id="L290" class="LineNr">290 </span> <span class="subxComment"># if (start >= in->end) return false</span>
|
||||
<span id="L291" class="LineNr">291 </span> 3b/compare 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(esi+4)</span>
|
||||
<span id="L292" class="LineNr">292 </span> 73/jump-if-addr>= $is-valid-name?:false/disp8
|
||||
<span id="L293" class="LineNr">293 </span><span class="Constant">$is-valid-name?:check1</span>:
|
||||
<span id="L294" class="LineNr">294 </span> <span class="subxComment"># var len/eax : int = in->end - start</span>
|
||||
<span id="L294" class="LineNr">294 </span> <span class="subxComment"># var len/eax: int = in->end - start</span>
|
||||
<span id="L295" class="LineNr">295 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to eax</span>
|
||||
<span id="L296" class="LineNr">296 </span> 29/subtract 3/mod/direct 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"># subtract ecx from eax</span>
|
||||
<span id="L297" class="LineNr">297 </span> <span class="subxComment"># if (eax == 2) return false</span>
|
||||
<span id="L298" class="LineNr">298 </span> 3d/compare-eax-and 2/imm32
|
||||
<span id="L299" class="LineNr">299 </span> 74/jump-if-= $is-valid-name?:false/disp8
|
||||
<span id="L300" class="LineNr">300 </span><span class="Constant">$is-valid-name?:check2</span>:
|
||||
<span id="L301" class="LineNr">301 </span> <span class="subxComment"># var c/eax : (addr byte) = *start</span>
|
||||
<span id="L301" class="LineNr">301 </span> <span class="subxComment"># var c/eax: (addr byte) = *start</span>
|
||||
<span id="L302" class="LineNr">302 </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="L303" class="LineNr">303 </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="L304" class="LineNr">304 </span> <span class="subxComment"># if (c == "-") return false</span>
|
||||
|
|
@ -396,7 +396,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L337" class="LineNr">337 </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="L338" class="LineNr">338 </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="L339" class="LineNr">339 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L340" class="LineNr">340 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L340" class="LineNr">340 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L341" class="LineNr">341 </span> 51/push-ecx
|
||||
<span id="L342" class="LineNr">342 </span> 50/push-eax
|
||||
<span id="L343" class="LineNr">343 </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>
|
||||
|
|
@ -430,7 +430,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L371" class="LineNr">371 </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="L372" class="LineNr">372 </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="L373" class="LineNr">373 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L374" class="LineNr">374 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L374" class="LineNr">374 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L375" class="LineNr">375 </span> 51/push-ecx
|
||||
<span id="L376" class="LineNr">376 </span> 50/push-eax
|
||||
<span id="L377" class="LineNr">377 </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>
|
||||
|
|
@ -464,7 +464,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L405" class="LineNr">405 </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="L406" class="LineNr">406 </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="L407" class="LineNr">407 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L408" class="LineNr">408 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L408" class="LineNr">408 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L409" class="LineNr">409 </span> 51/push-ecx
|
||||
<span id="L410" class="LineNr">410 </span> 50/push-eax
|
||||
<span id="L411" class="LineNr">411 </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>
|
||||
|
|
@ -498,7 +498,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L439" class="LineNr">439 </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="L440" class="LineNr">440 </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="L441" class="LineNr">441 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L442" class="LineNr">442 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L442" class="LineNr">442 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L443" class="LineNr">443 </span> 51/push-ecx
|
||||
<span id="L444" class="LineNr">444 </span> 50/push-eax
|
||||
<span id="L445" class="LineNr">445 </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>
|
||||
|
|
@ -532,7 +532,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L473" class="LineNr">473 </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="L474" class="LineNr">474 </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="L475" class="LineNr">475 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L476" class="LineNr">476 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L476" class="LineNr">476 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L477" class="LineNr">477 </span> 51/push-ecx
|
||||
<span id="L478" class="LineNr">478 </span> 50/push-eax
|
||||
<span id="L479" class="LineNr">479 </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>
|
||||
|
|
@ -566,7 +566,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L507" class="LineNr">507 </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="L508" class="LineNr">508 </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="L509" class="LineNr">509 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L510" class="LineNr">510 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L510" class="LineNr">510 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L511" class="LineNr">511 </span> 51/push-ecx
|
||||
<span id="L512" class="LineNr">512 </span> 50/push-eax
|
||||
<span id="L513" class="LineNr">513 </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>
|
||||
|
|
@ -591,7 +591,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L532" class="LineNr">532 </span> 5d/pop-to-ebp
|
||||
<span id="L533" class="LineNr">533 </span> c3/return
|
||||
<span id="L534" class="LineNr">534 </span>
|
||||
<span id="L535" class="LineNr">535 </span><span class="subxFunction">is-label?</span>: <span class="subxComment"># word : (addr slice) -> eax : boolean</span>
|
||||
<span id="L535" class="LineNr">535 </span><span class="subxFunction">is-label?</span>: <span class="subxComment"># word: (addr slice) -> eax: boolean</span>
|
||||
<span id="L536" class="LineNr">536 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L537" class="LineNr">537 </span> 55/push-ebp
|
||||
<span id="L538" class="LineNr">538 </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>
|
||||
|
|
@ -599,7 +599,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L540" class="LineNr">540 </span> 51/push-ecx
|
||||
<span id="L541" class="LineNr">541 </span> <span class="subxComment"># ecx = word</span>
|
||||
<span id="L542" class="LineNr">542 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span>
|
||||
<span id="L543" class="LineNr">543 </span> <span class="subxComment"># var end/ecx : (addr byte) = word->end</span>
|
||||
<span id="L543" class="LineNr">543 </span> <span class="subxComment"># var end/ecx: (addr byte) = word->end</span>
|
||||
<span id="L544" class="LineNr">544 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to ecx</span>
|
||||
<span id="L545" class="LineNr">545 </span> <span class="subxComment"># return *(end - 1) == ':'</span>
|
||||
<span id="L546" class="LineNr">546 </span> <span class="subxS1Comment"># . eax = *(end-1)</span>
|
||||
|
|
@ -628,7 +628,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L569" class="LineNr">569 </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="L570" class="LineNr">570 </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="L571" class="LineNr">571 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L572" class="LineNr">572 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L572" class="LineNr">572 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L573" class="LineNr">573 </span> 51/push-ecx
|
||||
<span id="L574" class="LineNr">574 </span> 50/push-eax
|
||||
<span id="L575" class="LineNr">575 </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>
|
||||
|
|
@ -654,7 +654,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L595" class="LineNr">595 </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="L596" class="LineNr">596 </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="L597" class="LineNr">597 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L598" class="LineNr">598 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L598" class="LineNr">598 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L599" class="LineNr">599 </span> 51/push-ecx
|
||||
<span id="L600" class="LineNr">600 </span> 50/push-eax
|
||||
<span id="L601" class="LineNr">601 </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>
|
||||
|
|
|
|||
|
|
@ -63,7 +63,7 @@ if ('onhashchange' in window) {
|
|||
<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="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>
|
||||
|
|
@ -79,7 +79,7 @@ if ('onhashchange' in window) {
|
|||
<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="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 >= width) break</span>
|
||||
|
|
|
|||
|
|
@ -68,7 +68,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># it in 'width' bytes of hex, least significant first.</span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># Otherwise just print the entire word including metadata.</span>
|
||||
<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># Always print a trailing space.</span>
|
||||
<span id="L10" class="LineNr"> 10 </span><span class="subxFunction">emit</span>: <span class="subxComment"># out : (addr buffered-file), word : (addr slice), width : int</span>
|
||||
<span id="L10" class="LineNr"> 10 </span><span class="subxFunction">emit</span>: <span class="subxComment"># out: (addr buffered-file), word: (addr slice), width: int</span>
|
||||
<span id="L11" class="LineNr"> 11 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L12" class="LineNr"> 12 </span> 55/push-ebp
|
||||
<span id="L13" class="LineNr"> 13 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span>
|
||||
|
|
@ -78,7 +78,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L17" class="LineNr"> 17 </span> 57/push-edi
|
||||
<span id="L18" class="LineNr"> 18 </span> <span class="subxComment"># esi = word</span>
|
||||
<span id="L19" class="LineNr"> 19 </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="L20" class="LineNr"> 20 </span> <span class="subxComment"># var datum/edi : slice</span>
|
||||
<span id="L20" class="LineNr"> 20 </span> <span class="subxComment"># var datum/edi: slice</span>
|
||||
<span id="L21" class="LineNr"> 21 </span> 68/push 0/imm32/end
|
||||
<span id="L22" class="LineNr"> 22 </span> 68/push 0/imm32/start
|
||||
<span id="L23" class="LineNr"> 23 </span> 89/copy 3/mod/direct 7/rm32/edi <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 edi</span>
|
||||
|
|
@ -129,7 +129,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L68" class="LineNr"> 68 </span> <span class="subxComment"># want to make sure that valid names aren't treated as (valid) hex</span>
|
||||
<span id="L69" class="LineNr"> 69 </span> <span class="subxComment"># numbers.)</span>
|
||||
<span id="L70" class="LineNr"> 70 </span><span class="Constant">$emit:hex-int</span>:
|
||||
<span id="L71" class="LineNr"> 71 </span> <span class="subxS1Comment"># . var value/eax : int = parse-hex-int(datum)</span>
|
||||
<span id="L71" class="LineNr"> 71 </span> <span class="subxS1Comment"># . var value/eax: int = parse-hex-int(datum)</span>
|
||||
<span id="L72" class="LineNr"> 72 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
<span id="L73" class="LineNr"> 73 </span> 57/push-edi
|
||||
<span id="L74" class="LineNr"> 74 </span> <span class="subxS2Comment"># . . call</span>
|
||||
|
|
@ -181,7 +181,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L120" class="LineNr">120 </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="L121" class="LineNr">121 </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="L122" class="LineNr">122 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L123" class="LineNr">123 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L123" class="LineNr">123 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L124" class="LineNr">124 </span> 51/push-ecx
|
||||
<span id="L125" class="LineNr">125 </span> 50/push-eax
|
||||
<span id="L126" class="LineNr">126 </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>
|
||||
|
|
@ -240,7 +240,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L179" class="LineNr">179 </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="L180" class="LineNr">180 </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="L181" class="LineNr">181 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L182" class="LineNr">182 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L182" class="LineNr">182 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L183" class="LineNr">183 </span> 51/push-ecx
|
||||
<span id="L184" class="LineNr">184 </span> 50/push-eax
|
||||
<span id="L185" class="LineNr">185 </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>
|
||||
|
|
@ -298,7 +298,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L237" class="LineNr">237 </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="L238" class="LineNr">238 </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="L239" class="LineNr">239 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L240" class="LineNr">240 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L240" class="LineNr">240 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L241" class="LineNr">241 </span> 51/push-ecx
|
||||
<span id="L242" class="LineNr">242 </span> 50/push-eax
|
||||
<span id="L243" class="LineNr">243 </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>
|
||||
|
|
@ -357,7 +357,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L296" class="LineNr">296 </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="L297" class="LineNr">297 </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="L298" class="LineNr">298 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L299" class="LineNr">299 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L299" class="LineNr">299 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L300" class="LineNr">300 </span> 51/push-ecx
|
||||
<span id="L301" class="LineNr">301 </span> 50/push-eax
|
||||
<span id="L302" class="LineNr">302 </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>
|
||||
|
|
@ -415,7 +415,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L354" class="LineNr">354 </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="L355" class="LineNr">355 </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="L356" class="LineNr">356 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L357" class="LineNr">357 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L357" class="LineNr">357 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L358" class="LineNr">358 </span> 51/push-ecx
|
||||
<span id="L359" class="LineNr">359 </span> 50/push-eax
|
||||
<span id="L360" class="LineNr">360 </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>
|
||||
|
|
@ -473,7 +473,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L412" class="LineNr">412 </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="L413" class="LineNr">413 </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="L414" class="LineNr">414 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L415" class="LineNr">415 </span> <span class="subxComment"># var slice/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L415" class="LineNr">415 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L416" class="LineNr">416 </span> 51/push-ecx
|
||||
<span id="L417" class="LineNr">417 </span> 50/push-eax
|
||||
<span id="L418" class="LineNr">418 </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>
|
||||
|
|
|
|||
|
|
@ -64,7 +64,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span>
|
||||
<span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span>
|
||||
<span id="L7" class="LineNr"> 7 </span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">zero-out</span>: <span class="subxComment"># start : (addr byte), len : int</span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">zero-out</span>: <span class="subxComment"># start: (addr byte), len: int</span>
|
||||
<span id="L9" class="LineNr"> 9 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L10" class="LineNr">10 </span> <span class="subxComment"># curr/esi = start</span>
|
||||
<span id="L11" class="LineNr">11 </span> <span class="subxComment"># i/ecx = 0</span>
|
||||
|
|
@ -84,7 +84,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L25" class="LineNr">25 </span> 56/push-esi
|
||||
<span id="L26" class="LineNr">26 </span> <span class="subxComment"># curr/esi = start</span>
|
||||
<span id="L27" class="LineNr">27 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L28" class="LineNr">28 </span> <span class="subxComment"># var i/ecx : int = 0</span>
|
||||
<span id="L28" class="LineNr">28 </span> <span class="subxComment"># var i/ecx: int = 0</span>
|
||||
<span id="L29" class="LineNr">29 </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="L30" class="LineNr">30 </span> <span class="subxComment"># edx = len</span>
|
||||
<span id="L31" class="LineNr">31 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <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 *(ebp+12) to edx</span>
|
||||
|
|
|
|||
|
|
@ -85,7 +85,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L24" class="LineNr"> 24 </span>
|
||||
<span id="L25" class="LineNr"> 25 </span><span class="subxComment"># if no row is found, abort</span>
|
||||
<span id="L26" class="LineNr"> 26 </span><span class="subxComment"># type string_key = (addr array byte)</span>
|
||||
<span id="L27" class="LineNr"> 27 </span><span class="subxFunction">get</span>: <span class="subxComment"># table : (addr stream {string_key, T}), key : string_key, row-size : int, abort-message-prefix : (addr array byte) -> eax : (addr T)</span>
|
||||
<span id="L27" class="LineNr"> 27 </span><span class="subxFunction">get</span>: <span class="subxComment"># table: (addr stream {string_key, T}), key: string_key, row-size: int, abort-message-prefix: (addr array byte) -> eax: (addr T)</span>
|
||||
<span id="L28" class="LineNr"> 28 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L29" class="LineNr"> 29 </span> <span class="subxComment"># curr = table->data</span>
|
||||
<span id="L30" class="LineNr"> 30 </span> <span class="subxComment"># max = &table->data[table->write]</span>
|
||||
|
|
@ -104,9 +104,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L43" class="LineNr"> 43 </span> 56/push-esi
|
||||
<span id="L44" class="LineNr"> 44 </span> <span class="subxComment"># esi = table</span>
|
||||
<span id="L45" class="LineNr"> 45 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L46" class="LineNr"> 46 </span> <span class="subxComment"># var curr/ecx : (addr string_key) = table->data</span>
|
||||
<span id="L46" class="LineNr"> 46 </span> <span class="subxComment"># var curr/ecx: (addr string_key) = table->data</span>
|
||||
<span id="L47" class="LineNr"> 47 </span> 8d/copy-address 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+12 to ecx</span>
|
||||
<span id="L48" class="LineNr"> 48 </span> <span class="subxComment"># var max/edx : (addr byte) = &table->data[table->write]</span>
|
||||
<span id="L48" class="LineNr"> 48 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span>
|
||||
<span id="L49" class="LineNr"> 49 </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="L50" class="LineNr"> 50 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx to edx</span>
|
||||
<span id="L51" class="LineNr"> 51 </span><span class="Constant">$get:search-loop</span>:
|
||||
|
|
@ -186,7 +186,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L125" class="LineNr"> 125 </span> 55/push-ebp
|
||||
<span id="L126" class="LineNr"> 126 </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="L127" class="LineNr"> 127 </span> <span class="subxH1Comment"># - setup: create a table with a couple of keys</span>
|
||||
<span id="L128" class="LineNr"> 128 </span> <span class="subxComment"># var table/ecx : (stream {string, number} 16) # 2 rows * 8 bytes/row</span>
|
||||
<span id="L128" class="LineNr"> 128 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 16) # 2 rows * 8 bytes/row</span>
|
||||
<span id="L129" class="LineNr"> 129 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L130" class="LineNr"> 130 </span> 68/push 0x10/imm32/length
|
||||
<span id="L131" class="LineNr"> 131 </span> 68/push 0/imm32/read
|
||||
|
|
@ -259,7 +259,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L198" class="LineNr"> 198 </span> c3/return
|
||||
<span id="L199" class="LineNr"> 199 </span>
|
||||
<span id="L200" class="LineNr"> 200 </span><span class="subxComment"># if no row is found, abort</span>
|
||||
<span id="L201" class="LineNr"> 201 </span><span class="subxFunction">get-slice</span>: <span class="subxComment"># table : (addr stream {string_key, T}), key : (addr slice), row-size : int, abort-message-prefix : (addr array byte) -> eax : (addr T)</span>
|
||||
<span id="L201" class="LineNr"> 201 </span><span class="subxFunction">get-slice</span>: <span class="subxComment"># table: (addr stream {string_key, T}), key: (addr slice), row-size: int, abort-message-prefix: (addr array byte) -> eax: (addr T)</span>
|
||||
<span id="L202" class="LineNr"> 202 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L203" class="LineNr"> 203 </span> <span class="subxComment"># curr = table->data</span>
|
||||
<span id="L204" class="LineNr"> 204 </span> <span class="subxComment"># max = &table->data[table->write]</span>
|
||||
|
|
@ -278,9 +278,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L217" class="LineNr"> 217 </span> 56/push-esi
|
||||
<span id="L218" class="LineNr"> 218 </span> <span class="subxComment"># esi = table</span>
|
||||
<span id="L219" class="LineNr"> 219 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L220" class="LineNr"> 220 </span> <span class="subxComment"># var curr/ecx : (addr string_key) = table->data</span>
|
||||
<span id="L220" class="LineNr"> 220 </span> <span class="subxComment"># var curr/ecx: (addr string_key) = table->data</span>
|
||||
<span id="L221" class="LineNr"> 221 </span> 8d/copy-address 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+12 to ecx</span>
|
||||
<span id="L222" class="LineNr"> 222 </span> <span class="subxComment"># var max/edx : (addr byte) = &table->data[table->write]</span>
|
||||
<span id="L222" class="LineNr"> 222 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span>
|
||||
<span id="L223" class="LineNr"> 223 </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="L224" class="LineNr"> 224 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx to edx</span>
|
||||
<span id="L225" class="LineNr"> 225 </span><span class="Constant">$get-slice:search-loop</span>:
|
||||
|
|
@ -367,7 +367,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L306" class="LineNr"> 306 </span> 55/push-ebp
|
||||
<span id="L307" class="LineNr"> 307 </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="L308" class="LineNr"> 308 </span> <span class="subxH1Comment"># - setup: create a table with a couple of keys</span>
|
||||
<span id="L309" class="LineNr"> 309 </span> <span class="subxComment"># var table/ecx : (stream {string, number} 16) # 2 rows * 8 bytes/row</span>
|
||||
<span id="L309" class="LineNr"> 309 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 16) # 2 rows * 8 bytes/row</span>
|
||||
<span id="L310" class="LineNr"> 310 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L311" class="LineNr"> 311 </span> 68/push 0x10/imm32/length
|
||||
<span id="L312" class="LineNr"> 312 </span> 68/push 0/imm32/read
|
||||
|
|
@ -397,7 +397,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L336" class="LineNr"> 336 </span> 8b/copy 0/mod/indirect 0/rm32/eax <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 *eax to edx</span>
|
||||
<span id="L337" class="LineNr"> 337 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+edx+4 to edx</span>
|
||||
<span id="L338" class="LineNr"> 338 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L339" class="LineNr"> 339 </span> <span class="subxComment"># var slice/edx : slice = {eax, edx}</span>
|
||||
<span id="L339" class="LineNr"> 339 </span> <span class="subxComment"># var slice/edx: slice = {eax, edx}</span>
|
||||
<span id="L340" class="LineNr"> 340 </span> 52/push-edx
|
||||
<span id="L341" class="LineNr"> 341 </span> 50/push-eax
|
||||
<span id="L342" class="LineNr"> 342 </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>
|
||||
|
|
@ -427,7 +427,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L366" class="LineNr"> 366 </span> 8b/copy 0/mod/indirect 0/rm32/eax <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 *eax to edx</span>
|
||||
<span id="L367" class="LineNr"> 367 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+edx+4 to edx</span>
|
||||
<span id="L368" class="LineNr"> 368 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L369" class="LineNr"> 369 </span> <span class="subxComment"># var slice/edx : slice = {eax, edx}</span>
|
||||
<span id="L369" class="LineNr"> 369 </span> <span class="subxComment"># var slice/edx: slice = {eax, edx}</span>
|
||||
<span id="L370" class="LineNr"> 370 </span> 52/push-edx
|
||||
<span id="L371" class="LineNr"> 371 </span> 50/push-eax
|
||||
<span id="L372" class="LineNr"> 372 </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>
|
||||
|
|
@ -462,7 +462,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L401" class="LineNr"> 401 </span><span class="subxComment"># return the address of the value</span>
|
||||
<span id="L402" class="LineNr"> 402 </span><span class="subxComment"># Beware: assume keys are immutable; they're inserted by reference</span>
|
||||
<span id="L403" class="LineNr"> 403 </span><span class="subxComment"># TODO: pass in an allocation descriptor</span>
|
||||
<span id="L404" class="LineNr"> 404 </span><span class="subxFunction">get-or-insert</span>: <span class="subxComment"># table : (addr stream {string_key, T}), key : string_key, row-size : int -> eax : (addr T)</span>
|
||||
<span id="L404" class="LineNr"> 404 </span><span class="subxFunction">get-or-insert</span>: <span class="subxComment"># table: (addr stream {string_key, T}), key: string_key, row-size: int -> eax: (addr T)</span>
|
||||
<span id="L405" class="LineNr"> 405 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L406" class="LineNr"> 406 </span> <span class="subxComment"># curr = table->data</span>
|
||||
<span id="L407" class="LineNr"> 407 </span> <span class="subxComment"># max = &table->data[table->write]</span>
|
||||
|
|
@ -486,9 +486,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L425" class="LineNr"> 425 </span> 56/push-esi
|
||||
<span id="L426" class="LineNr"> 426 </span> <span class="subxComment"># esi = table</span>
|
||||
<span id="L427" class="LineNr"> 427 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L428" class="LineNr"> 428 </span> <span class="subxComment"># var curr/ecx : (addr string_key) = table->data</span>
|
||||
<span id="L428" class="LineNr"> 428 </span> <span class="subxComment"># var curr/ecx: (addr string_key) = table->data</span>
|
||||
<span id="L429" class="LineNr"> 429 </span> 8d/copy-address 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+12 to ecx</span>
|
||||
<span id="L430" class="LineNr"> 430 </span> <span class="subxComment"># var max/edx : (addr string_key) = &table->data[table->write]</span>
|
||||
<span id="L430" class="LineNr"> 430 </span> <span class="subxComment"># var max/edx: (addr string_key) = &table->data[table->write]</span>
|
||||
<span id="L431" class="LineNr"> 431 </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="L432" class="LineNr"> 432 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx to edx</span>
|
||||
<span id="L433" class="LineNr"> 433 </span><span class="Constant">$get-or-insert:search-loop</span>:
|
||||
|
|
@ -573,7 +573,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L512" class="LineNr"> 512 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L513" class="LineNr"> 513 </span> 55/push-ebp
|
||||
<span id="L514" class="LineNr"> 514 </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="L515" class="LineNr"> 515 </span> <span class="subxComment"># var table/ecx : (stream {string, number} 16) # 2 rows * 8 bytes/row</span>
|
||||
<span id="L515" class="LineNr"> 515 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 16) # 2 rows * 8 bytes/row</span>
|
||||
<span id="L516" class="LineNr"> 516 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L517" class="LineNr"> 517 </span> 68/push 0x10/imm32/length
|
||||
<span id="L518" class="LineNr"> 518 </span> 68/push 0/imm32/read
|
||||
|
|
@ -713,7 +713,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L652" class="LineNr"> 652 </span><span class="subxComment"># if there are no rows free, abort</span>
|
||||
<span id="L653" class="LineNr"> 653 </span><span class="subxComment"># WARNING: leaks memory</span>
|
||||
<span id="L654" class="LineNr"> 654 </span><span class="subxComment"># TODO: pass in an allocation descriptor</span>
|
||||
<span id="L655" class="LineNr"> 655 </span><span class="subxFunction">leaky-get-or-insert-slice</span>: <span class="subxComment"># table : (addr stream {string_key, T}), key : (addr slice), row-size : int -> eax : (addr T)</span>
|
||||
<span id="L655" class="LineNr"> 655 </span><span class="subxFunction">leaky-get-or-insert-slice</span>: <span class="subxComment"># table: (addr stream {string_key, T}), key: (addr slice), row-size: int -> eax: (addr T)</span>
|
||||
<span id="L656" class="LineNr"> 656 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L657" class="LineNr"> 657 </span> <span class="subxComment"># curr = table->data</span>
|
||||
<span id="L658" class="LineNr"> 658 </span> <span class="subxComment"># max = &table->data[table->write]</span>
|
||||
|
|
@ -737,9 +737,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L676" class="LineNr"> 676 </span> 56/push-esi
|
||||
<span id="L677" class="LineNr"> 677 </span> <span class="subxComment"># esi = table</span>
|
||||
<span id="L678" class="LineNr"> 678 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L679" class="LineNr"> 679 </span> <span class="subxComment"># var curr/ecx : (addr string_key) = table->data</span>
|
||||
<span id="L679" class="LineNr"> 679 </span> <span class="subxComment"># var curr/ecx: (addr string_key) = table->data</span>
|
||||
<span id="L680" class="LineNr"> 680 </span> 8d/copy-address 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+12 to ecx</span>
|
||||
<span id="L681" class="LineNr"> 681 </span> <span class="subxComment"># var max/edx : (addr string_key) = &table->data[table->write]</span>
|
||||
<span id="L681" class="LineNr"> 681 </span> <span class="subxComment"># var max/edx: (addr string_key) = &table->data[table->write]</span>
|
||||
<span id="L682" class="LineNr"> 682 </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="L683" class="LineNr"> 683 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx to edx</span>
|
||||
<span id="L684" class="LineNr"> 684 </span><span class="Constant">$leaky-get-or-insert-slice:search-loop</span>:
|
||||
|
|
@ -830,7 +830,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L769" class="LineNr"> 769 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L770" class="LineNr"> 770 </span> 55/push-ebp
|
||||
<span id="L771" class="LineNr"> 771 </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="L772" class="LineNr"> 772 </span> <span class="subxComment"># var table/ecx : (stream {string, number} 16) # 2 rows * 8 bytes/row</span>
|
||||
<span id="L772" class="LineNr"> 772 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 16) # 2 rows * 8 bytes/row</span>
|
||||
<span id="L773" class="LineNr"> 773 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L774" class="LineNr"> 774 </span> 68/push 0x10/imm32/length
|
||||
<span id="L775" class="LineNr"> 775 </span> 68/push 0/imm32/read
|
||||
|
|
@ -841,7 +841,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L780" class="LineNr"> 780 </span> 8b/copy 0/mod/indirect 0/rm32/eax <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 *eax to edx</span>
|
||||
<span id="L781" class="LineNr"> 781 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+edx+4 to edx</span>
|
||||
<span id="L782" class="LineNr"> 782 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L783" class="LineNr"> 783 </span> <span class="subxComment"># var slice/edx : slice = {eax, edx}</span>
|
||||
<span id="L783" class="LineNr"> 783 </span> <span class="subxComment"># var slice/edx: slice = {eax, edx}</span>
|
||||
<span id="L784" class="LineNr"> 784 </span> 52/push-edx
|
||||
<span id="L785" class="LineNr"> 785 </span> 50/push-eax
|
||||
<span id="L786" class="LineNr"> 786 </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>
|
||||
|
|
@ -934,7 +934,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L873" class="LineNr"> 873 </span> 8b/copy 0/mod/indirect 0/rm32/eax <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 *eax to edx</span>
|
||||
<span id="L874" class="LineNr"> 874 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+edx+4 to edx</span>
|
||||
<span id="L875" class="LineNr"> 875 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L876" class="LineNr"> 876 </span> <span class="subxComment"># var slice/edx : slice = {eax, edx}</span>
|
||||
<span id="L876" class="LineNr"> 876 </span> <span class="subxComment"># var slice/edx: slice = {eax, edx}</span>
|
||||
<span id="L877" class="LineNr"> 877 </span> 52/push-edx
|
||||
<span id="L878" class="LineNr"> 878 </span> 50/push-eax
|
||||
<span id="L879" class="LineNr"> 879 </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>
|
||||
|
|
@ -985,9 +985,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L924" class="LineNr"> 924 </span> c3/return
|
||||
<span id="L925" class="LineNr"> 925 </span>
|
||||
<span id="L926" class="LineNr"> 926 </span><span class="subxComment"># if no row is found, stop(ed)</span>
|
||||
<span id="L927" class="LineNr"> 927 </span><span class="subxFunction">get-or-stop</span>: <span class="subxComment"># table : (addr stream {string_key, T}), key : string_key, row-size : int,</span>
|
||||
<span id="L928" class="LineNr"> 928 </span> <span class="subxComment"># abort-message-prefix : (addr array byte), err : (addr buffered-file), ed : (addr exit-descriptor)</span>
|
||||
<span id="L929" class="LineNr"> 929 </span> <span class="subxComment"># -> eax : (addr T)</span>
|
||||
<span id="L927" class="LineNr"> 927 </span><span class="subxFunction">get-or-stop</span>: <span class="subxComment"># table: (addr stream {string_key, T}), key: string_key, row-size: int,</span>
|
||||
<span id="L928" class="LineNr"> 928 </span> <span class="subxComment"># abort-message-prefix: (addr array byte), err: (addr buffered-file), ed: (addr exit-descriptor)</span>
|
||||
<span id="L929" class="LineNr"> 929 </span> <span class="subxComment"># -> eax: (addr T)</span>
|
||||
<span id="L930" class="LineNr"> 930 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L931" class="LineNr"> 931 </span> <span class="subxComment"># curr = table->data</span>
|
||||
<span id="L932" class="LineNr"> 932 </span> <span class="subxComment"># max = &table->data[table->write]</span>
|
||||
|
|
@ -1007,9 +1007,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L946" class="LineNr"> 946 </span> 56/push-esi
|
||||
<span id="L947" class="LineNr"> 947 </span> <span class="subxComment"># esi = table</span>
|
||||
<span id="L948" class="LineNr"> 948 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L949" class="LineNr"> 949 </span> <span class="subxComment"># var curr/ecx : (addr string_key) = table->data</span>
|
||||
<span id="L949" class="LineNr"> 949 </span> <span class="subxComment"># var curr/ecx: (addr string_key) = table->data</span>
|
||||
<span id="L950" class="LineNr"> 950 </span> 8d/copy-address 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+12 to ecx</span>
|
||||
<span id="L951" class="LineNr"> 951 </span> <span class="subxComment"># var max/edx : (addr byte) = &table->data[table->write]</span>
|
||||
<span id="L951" class="LineNr"> 951 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span>
|
||||
<span id="L952" class="LineNr"> 952 </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="L953" class="LineNr"> 953 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx to edx</span>
|
||||
<span id="L954" class="LineNr"> 954 </span><span class="Constant">$get-or-stop:search-loop</span>:
|
||||
|
|
@ -1112,13 +1112,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L1051" class="LineNr">1051 </span> e8/call <a href='055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L1052" class="LineNr">1052 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1053" class="LineNr">1053 </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="L1054" class="LineNr">1054 </span> <span class="subxComment"># var table/ecx : (stream {string, number} 16) # 2 rows * 8 bytes/row</span>
|
||||
<span id="L1054" class="LineNr">1054 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 16) # 2 rows * 8 bytes/row</span>
|
||||
<span id="L1055" class="LineNr">1055 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L1056" class="LineNr">1056 </span> 68/push 0x10/imm32/length
|
||||
<span id="L1057" class="LineNr">1057 </span> 68/push 0/imm32/read
|
||||
<span id="L1058" class="LineNr">1058 </span> 68/push 0/imm32/write
|
||||
<span id="L1059" class="LineNr">1059 </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="L1060" class="LineNr">1060 </span> <span class="subxComment"># var ed/edx : exit-descriptor</span>
|
||||
<span id="L1060" class="LineNr">1060 </span> <span class="subxComment"># var ed/edx: exit-descriptor</span>
|
||||
<span id="L1061" class="LineNr">1061 </span> 68/push 0/imm32
|
||||
<span id="L1062" class="LineNr">1062 </span> 68/push 0/imm32
|
||||
<span id="L1063" class="LineNr">1063 </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>
|
||||
|
|
@ -1201,9 +1201,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L1140" class="LineNr">1140 </span> c3/return
|
||||
<span id="L1141" class="LineNr">1141 </span>
|
||||
<span id="L1142" class="LineNr">1142 </span><span class="subxComment"># if no row is found, stop(ed)</span>
|
||||
<span id="L1143" class="LineNr">1143 </span><span class="subxFunction">get-slice-or-stop</span>: <span class="subxComment"># table : (addr stream {string_key, _}), key : (addr slice), row-size : int,</span>
|
||||
<span id="L1144" class="LineNr">1144 </span> <span class="subxComment"># abort-message-prefix : (addr string), err : (addr buffered-file), ed : (addr exit-descriptor)</span>
|
||||
<span id="L1145" class="LineNr">1145 </span> <span class="subxComment"># -> eax : (addr _)</span>
|
||||
<span id="L1143" class="LineNr">1143 </span><span class="subxFunction">get-slice-or-stop</span>: <span class="subxComment"># table: (addr stream {string_key, _}), key: (addr slice), row-size: int,</span>
|
||||
<span id="L1144" class="LineNr">1144 </span> <span class="subxComment"># abort-message-prefix: (addr string), err: (addr buffered-file), ed: (addr exit-descriptor)</span>
|
||||
<span id="L1145" class="LineNr">1145 </span> <span class="subxComment"># -> eax: (addr _)</span>
|
||||
<span id="L1146" class="LineNr">1146 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L1147" class="LineNr">1147 </span> <span class="subxComment"># curr = table->data</span>
|
||||
<span id="L1148" class="LineNr">1148 </span> <span class="subxComment"># max = &table->data[table->write]</span>
|
||||
|
|
@ -1223,9 +1223,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L1162" class="LineNr">1162 </span> 56/push-esi
|
||||
<span id="L1163" class="LineNr">1163 </span> <span class="subxComment"># esi = table</span>
|
||||
<span id="L1164" class="LineNr">1164 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L1165" class="LineNr">1165 </span> <span class="subxComment"># var curr/ecx : (addr string_key) = table->data</span>
|
||||
<span id="L1165" class="LineNr">1165 </span> <span class="subxComment"># var curr/ecx: (addr string_key) = table->data</span>
|
||||
<span id="L1166" class="LineNr">1166 </span> 8d/copy-address 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+12 to ecx</span>
|
||||
<span id="L1167" class="LineNr">1167 </span> <span class="subxComment"># var max/edx : (addr byte) = &table->data[table->write]</span>
|
||||
<span id="L1167" class="LineNr">1167 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span>
|
||||
<span id="L1168" class="LineNr">1168 </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="L1169" class="LineNr">1169 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx to edx</span>
|
||||
<span id="L1170" class="LineNr">1170 </span><span class="Constant">$get-slice-or-stop:search-loop</span>:
|
||||
|
|
@ -1328,17 +1328,17 @@ if ('onhashchange' in window) {
|
|||
<span id="L1267" class="LineNr">1267 </span> e8/call <a href='055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L1268" class="LineNr">1268 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1269" class="LineNr">1269 </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="L1270" class="LineNr">1270 </span> <span class="subxComment"># var table/ecx : (stream {string, number} 16) # 2 rows * 8 bytes/row</span>
|
||||
<span id="L1270" class="LineNr">1270 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 16) # 2 rows * 8 bytes/row</span>
|
||||
<span id="L1271" class="LineNr">1271 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L1272" class="LineNr">1272 </span> 68/push 0x10/imm32/length
|
||||
<span id="L1273" class="LineNr">1273 </span> 68/push 0/imm32/read
|
||||
<span id="L1274" class="LineNr">1274 </span> 68/push 0/imm32/write
|
||||
<span id="L1275" class="LineNr">1275 </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="L1276" class="LineNr">1276 </span> <span class="subxComment"># var ed/edx : exit-descriptor</span>
|
||||
<span id="L1276" class="LineNr">1276 </span> <span class="subxComment"># var ed/edx: exit-descriptor</span>
|
||||
<span id="L1277" class="LineNr">1277 </span> 68/push 0/imm32
|
||||
<span id="L1278" class="LineNr">1278 </span> 68/push 0/imm32
|
||||
<span id="L1279" class="LineNr">1279 </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="L1280" class="LineNr">1280 </span> <span class="subxComment"># var slice/ebx : slice = "code"</span>
|
||||
<span id="L1280" class="LineNr">1280 </span> <span class="subxComment"># var slice/ebx: slice = "code"</span>
|
||||
<span id="L1281" class="LineNr">1281 </span> <span class="subxS1Comment"># . (eax..ebx) = "code"</span>
|
||||
<span id="L1282" class="LineNr">1282 </span> b8/copy-to-eax <span class="Constant">"code"</span>/imm32
|
||||
<span id="L1283" class="LineNr">1283 </span> 8b/copy 0/mod/indirect 0/rm32/eax <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 *eax to ebx</span>
|
||||
|
|
@ -1440,7 +1440,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1379" class="LineNr">1379 </span> c3/return
|
||||
<span id="L1380" class="LineNr">1380 </span>
|
||||
<span id="L1381" class="LineNr">1381 </span><span class="subxComment"># if no row is found, return null (0)</span>
|
||||
<span id="L1382" class="LineNr">1382 </span><span class="subxFunction">maybe-get</span>: <span class="subxComment"># table : (addr stream {string_key, T}), key : string_key, row-size : int -> eax : (addr T)</span>
|
||||
<span id="L1382" class="LineNr">1382 </span><span class="subxFunction">maybe-get</span>: <span class="subxComment"># table: (addr stream {string_key, T}), key: string_key, row-size: int -> eax: (addr T)</span>
|
||||
<span id="L1383" class="LineNr">1383 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L1384" class="LineNr">1384 </span> <span class="subxComment"># curr = table->data</span>
|
||||
<span id="L1385" class="LineNr">1385 </span> <span class="subxComment"># max = &table->data[table->write]</span>
|
||||
|
|
@ -1459,9 +1459,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L1398" class="LineNr">1398 </span> 56/push-esi
|
||||
<span id="L1399" class="LineNr">1399 </span> <span class="subxComment"># esi = table</span>
|
||||
<span id="L1400" class="LineNr">1400 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L1401" class="LineNr">1401 </span> <span class="subxComment"># var curr/ecx : (addr string_key) = table->data</span>
|
||||
<span id="L1401" class="LineNr">1401 </span> <span class="subxComment"># var curr/ecx: (addr string_key) = table->data</span>
|
||||
<span id="L1402" class="LineNr">1402 </span> 8d/copy-address 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+12 to ecx</span>
|
||||
<span id="L1403" class="LineNr">1403 </span> <span class="subxComment"># var max/edx : (addr byte) = &table->data[table->write]</span>
|
||||
<span id="L1403" class="LineNr">1403 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span>
|
||||
<span id="L1404" class="LineNr">1404 </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="L1405" class="LineNr">1405 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx to edx</span>
|
||||
<span id="L1406" class="LineNr">1406 </span><span class="Constant">$maybe-get:search-loop</span>:
|
||||
|
|
@ -1504,7 +1504,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1443" class="LineNr">1443 </span> 55/push-ebp
|
||||
<span id="L1444" class="LineNr">1444 </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="L1445" class="LineNr">1445 </span> <span class="subxH1Comment"># - setup: create a table with one row</span>
|
||||
<span id="L1446" class="LineNr">1446 </span> <span class="subxComment"># var table/ecx : (stream {string, number} 16) # 2 rows * 8 bytes/row</span>
|
||||
<span id="L1446" class="LineNr">1446 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 16) # 2 rows * 8 bytes/row</span>
|
||||
<span id="L1447" class="LineNr">1447 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L1448" class="LineNr">1448 </span> 68/push 0x10/imm32/length
|
||||
<span id="L1449" class="LineNr">1449 </span> 68/push 0/imm32/read
|
||||
|
|
@ -1587,7 +1587,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1526" class="LineNr">1526 </span> c3/return
|
||||
<span id="L1527" class="LineNr">1527 </span>
|
||||
<span id="L1528" class="LineNr">1528 </span><span class="subxComment"># if no row is found, return null (0)</span>
|
||||
<span id="L1529" class="LineNr">1529 </span><span class="subxFunction">maybe-get-slice</span>: <span class="subxComment"># table : (addr stream {string_key, T}), key : (addr slice), row-size : int -> eax : (addr T)</span>
|
||||
<span id="L1529" class="LineNr">1529 </span><span class="subxFunction">maybe-get-slice</span>: <span class="subxComment"># table: (addr stream {string_key, T}), key: (addr slice), row-size: int -> eax: (addr T)</span>
|
||||
<span id="L1530" class="LineNr">1530 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L1531" class="LineNr">1531 </span> <span class="subxComment"># curr = table->data</span>
|
||||
<span id="L1532" class="LineNr">1532 </span> <span class="subxComment"># max = &table->data[table->write]</span>
|
||||
|
|
@ -1606,9 +1606,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L1545" class="LineNr">1545 </span> 56/push-esi
|
||||
<span id="L1546" class="LineNr">1546 </span> <span class="subxComment"># esi = table</span>
|
||||
<span id="L1547" class="LineNr">1547 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L1548" class="LineNr">1548 </span> <span class="subxComment"># var curr/ecx : (addr string_key) = table->data</span>
|
||||
<span id="L1548" class="LineNr">1548 </span> <span class="subxComment"># var curr/ecx: (addr string_key) = table->data</span>
|
||||
<span id="L1549" class="LineNr">1549 </span> 8d/copy-address 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+12 to ecx</span>
|
||||
<span id="L1550" class="LineNr">1550 </span> <span class="subxComment"># var max/edx : (addr byte) = &table->data[table->write]</span>
|
||||
<span id="L1550" class="LineNr">1550 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span>
|
||||
<span id="L1551" class="LineNr">1551 </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="L1552" class="LineNr">1552 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx to edx</span>
|
||||
<span id="L1553" class="LineNr">1553 </span><span class="Constant">$maybe-get-slice:search-loop</span>:
|
||||
|
|
@ -1651,7 +1651,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1590" class="LineNr">1590 </span> 55/push-ebp
|
||||
<span id="L1591" class="LineNr">1591 </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="L1592" class="LineNr">1592 </span> <span class="subxH1Comment"># - setup: create a table with one row</span>
|
||||
<span id="L1593" class="LineNr">1593 </span> <span class="subxComment"># var table/ecx : (stream {string, number} 16) # 2 rows * 8 bytes/row</span>
|
||||
<span id="L1593" class="LineNr">1593 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 16) # 2 rows * 8 bytes/row</span>
|
||||
<span id="L1594" class="LineNr">1594 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L1595" class="LineNr">1595 </span> 68/push 0x10/imm32/length
|
||||
<span id="L1596" class="LineNr">1596 </span> 68/push 0/imm32/read
|
||||
|
|
@ -1673,7 +1673,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1612" class="LineNr">1612 </span> 8b/copy 0/mod/indirect 0/rm32/eax <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 *eax to edx</span>
|
||||
<span id="L1613" class="LineNr">1613 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+edx+4 to edx</span>
|
||||
<span id="L1614" class="LineNr">1614 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L1615" class="LineNr">1615 </span> <span class="subxComment"># var slice/edx : slice = {eax, edx}</span>
|
||||
<span id="L1615" class="LineNr">1615 </span> <span class="subxComment"># var slice/edx: slice = {eax, edx}</span>
|
||||
<span id="L1616" class="LineNr">1616 </span> 52/push-edx
|
||||
<span id="L1617" class="LineNr">1617 </span> 50/push-eax
|
||||
<span id="L1618" class="LineNr">1618 </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>
|
||||
|
|
@ -1723,7 +1723,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1662" class="LineNr">1662 </span> 8b/copy 0/mod/indirect 0/rm32/eax <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 *eax to edx</span>
|
||||
<span id="L1663" class="LineNr">1663 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+edx+4 to edx</span>
|
||||
<span id="L1664" class="LineNr">1664 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L1665" class="LineNr">1665 </span> <span class="subxComment"># var slice/edx : slice = {eax, edx}</span>
|
||||
<span id="L1665" class="LineNr">1665 </span> <span class="subxComment"># var slice/edx: slice = {eax, edx}</span>
|
||||
<span id="L1666" class="LineNr">1666 </span> 52/push-edx
|
||||
<span id="L1667" class="LineNr">1667 </span> 50/push-eax
|
||||
<span id="L1668" class="LineNr">1668 </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>
|
||||
|
|
|
|||
|
|
@ -64,7 +64,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L5" class="LineNr"> 5 </span>
|
||||
<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># read all bytes from 'f' and store them into 's'</span>
|
||||
<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># abort if 's' is too small</span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">slurp</span>: <span class="subxComment"># f : (addr buffered-file), s : (addr stream byte)</span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">slurp</span>: <span class="subxComment"># f: (addr buffered-file), s: (addr stream byte)</span>
|
||||
<span id="L9" class="LineNr"> 9 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L10" class="LineNr"> 10 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L11" class="LineNr"> 11 </span> <span class="subxComment"># if (s->write >= s->length) abort</span>
|
||||
|
|
@ -122,7 +122,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L63" class="LineNr"> 63 </span> 3d/compare-eax-and 0/imm32
|
||||
<span id="L64" class="LineNr"> 64 </span> 74/jump-if-= $slurp:end/disp8
|
||||
<span id="L65" class="LineNr"> 65 </span><span class="Constant">$slurp:from-stream</span>:
|
||||
<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># var c/eax : byte = f->data[f->read]</span>
|
||||
<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># var c/eax: byte = f->data[f->read]</span>
|
||||
<span id="L67" class="LineNr"> 67 </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="L68" class="LineNr"> 68 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+16) to AL</span>
|
||||
<span id="L69" class="LineNr"> 69 </span> <span class="subxComment"># s->data[s->write] = c</span>
|
||||
|
|
|
|||
|
|
@ -67,7 +67,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L8" class="LineNr"> 8 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span>
|
||||
<span id="L9" class="LineNr"> 9 </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="L10" class="LineNr"> 10 </span>
|
||||
<span id="L11" class="LineNr"> 11 </span><span class="subxFunction">compute-width</span>: <span class="subxComment"># word : (addr array byte) -> eax : int</span>
|
||||
<span id="L11" class="LineNr"> 11 </span><span class="subxFunction">compute-width</span>: <span class="subxComment"># word: (addr array byte) -> eax: int</span>
|
||||
<span id="L12" class="LineNr"> 12 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L13" class="LineNr"> 13 </span> 55/push-ebp
|
||||
<span id="L14" class="LineNr"> 14 </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>
|
||||
|
|
@ -75,12 +75,12 @@ if ('onhashchange' in window) {
|
|||
<span id="L16" class="LineNr"> 16 </span> 51/push-ecx
|
||||
<span id="L17" class="LineNr"> 17 </span> <span class="subxComment"># eax = word</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> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span>
|
||||
<span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># var ecx : (addr byte) = &word[word->length]</span>
|
||||
<span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># var ecx: (addr byte) = &word[word->length]</span>
|
||||
<span id="L20" class="LineNr"> 20 </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="L21" class="LineNr"> 21 </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="L22" class="LineNr"> 22 </span> <span class="subxComment"># eax = word->data</span>
|
||||
<span id="L23" class="LineNr"> 23 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L24" class="LineNr"> 24 </span> <span class="subxComment"># var in/ecx : slice = {eax, ecx}</span>
|
||||
<span id="L24" class="LineNr"> 24 </span> <span class="subxComment"># var in/ecx: slice = {eax, ecx}</span>
|
||||
<span id="L25" class="LineNr"> 25 </span> 51/push-ecx
|
||||
<span id="L26" class="LineNr"> 26 </span> 50/push-eax
|
||||
<span id="L27" class="LineNr"> 27 </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>
|
||||
|
|
@ -101,7 +101,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L42" class="LineNr"> 42 </span> 5d/pop-to-ebp
|
||||
<span id="L43" class="LineNr"> 43 </span> c3/return
|
||||
<span id="L44" class="LineNr"> 44 </span>
|
||||
<span id="L45" class="LineNr"> 45 </span><span class="subxFunction">compute-width-of-slice</span>: <span class="subxComment"># s : (addr slice) -> eax : int</span>
|
||||
<span id="L45" class="LineNr"> 45 </span><span class="subxFunction">compute-width-of-slice</span>: <span class="subxComment"># s: (addr slice) -> eax: int</span>
|
||||
<span id="L46" class="LineNr"> 46 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L47" class="LineNr"> 47 </span> 55/push-ebp
|
||||
<span id="L48" class="LineNr"> 48 </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>
|
||||
|
|
|
|||
|
|
@ -64,7 +64,7 @@ if ('onhashchange' in window) {
|
|||
<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 'arr' in hex with a space after every byte</span>
|
||||
<span id="L7" class="LineNr"> 7 </span><span class="subxFunction">emit-hex-array</span>: <span class="subxComment"># out : (addr buffered-file), arr : (addr array byte)</span>
|
||||
<span id="L7" class="LineNr"> 7 </span><span class="subxFunction">emit-hex-array</span>: <span class="subxComment"># out: (addr buffered-file), arr: (addr array byte)</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>
|
||||
|
|
@ -77,12 +77,12 @@ if ('onhashchange' in window) {
|
|||
<span id="L17" class="LineNr"> 17 </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="L18" class="LineNr"> 18 </span> <span class="subxComment"># edx = arr</span>
|
||||
<span id="L19" class="LineNr"> 19 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <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 *(ebp+12) to edx</span>
|
||||
<span id="L20" class="LineNr"> 20 </span> <span class="subxComment"># var curr/ecx : (addr byte) = arr->data</span>
|
||||
<span id="L20" class="LineNr"> 20 </span> <span class="subxComment"># var curr/ecx: (addr byte) = arr->data</span>
|
||||
<span id="L21" class="LineNr"> 21 </span> 8d/copy-address 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edx+4 to ecx</span>
|
||||
<span id="L22" class="LineNr"> 22 </span> <span class="subxComment"># var max/edx : (addr byte) = &arr->data[arr->length]</span>
|
||||
<span id="L22" class="LineNr"> 22 </span> <span class="subxComment"># var max/edx: (addr byte) = &arr->data[arr->length]</span>
|
||||
<span id="L23" class="LineNr"> 23 </span> 8b/copy 0/mod/indirect 2/rm32/edx <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 *edx to edx</span>
|
||||
<span id="L24" class="LineNr"> 24 </span> 01/add 3/mod/direct 2/rm32/edx <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"># add ecx to edx</span>
|
||||
<span id="L25" class="LineNr"> 25 </span> <span class="subxComment"># var c/eax : byte = 0</span>
|
||||
<span id="L25" class="LineNr"> 25 </span> <span class="subxComment"># var c/eax: byte = 0</span>
|
||||
<span id="L26" class="LineNr"> 26 </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="L27" class="LineNr"> 27 </span><span class="Constant">$emit-hex-array:loop</span>:
|
||||
<span id="L28" class="LineNr"> 28 </span> <span class="subxComment"># if (curr >= width) break</span>
|
||||
|
|
|
|||
|
|
@ -64,7 +64,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L5" class="LineNr"> 5 </span>
|
||||
<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># (re)compute the bounds of the next word or string literal in the line</span>
|
||||
<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># return empty string on reaching end of file</span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">next-word-or-string</span>: <span class="subxComment"># line : (addr stream byte), out : (addr slice)</span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">next-word-or-string</span>: <span class="subxComment"># line: (addr stream byte), out: (addr slice)</span>
|
||||
<span id="L9" class="LineNr"> 9 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L10" class="LineNr"> 10 </span> 55/push-ebp
|
||||
<span id="L11" class="LineNr"> 11 </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>
|
||||
|
|
@ -170,7 +170,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L111" class="LineNr">111 </span> e8/call <a href='055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L112" class="LineNr">112 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L113" class="LineNr">113 </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="L114" class="LineNr">114 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L114" class="LineNr">114 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L115" class="LineNr">115 </span> 68/push 0/imm32/end
|
||||
<span id="L116" class="LineNr">116 </span> 68/push 0/imm32/start
|
||||
<span id="L117" class="LineNr">117 </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>
|
||||
|
|
@ -243,7 +243,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L184" class="LineNr">184 </span> e8/call <a href='055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L185" class="LineNr">185 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L186" class="LineNr">186 </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="L187" class="LineNr">187 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L187" class="LineNr">187 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L188" class="LineNr">188 </span> 68/push 0/imm32/end
|
||||
<span id="L189" class="LineNr">189 </span> 68/push 0/imm32/start
|
||||
<span id="L190" class="LineNr">190 </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>
|
||||
|
|
@ -316,7 +316,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L257" class="LineNr">257 </span> e8/call <a href='055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L258" class="LineNr">258 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L259" class="LineNr">259 </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="L260" class="LineNr">260 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L260" class="LineNr">260 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L261" class="LineNr">261 </span> 68/push 0/imm32/end
|
||||
<span id="L262" class="LineNr">262 </span> 68/push 0/imm32/start
|
||||
<span id="L263" class="LineNr">263 </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>
|
||||
|
|
@ -358,7 +358,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L299" class="LineNr">299 </span> e8/call <a href='055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L300" class="LineNr">300 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L301" class="LineNr">301 </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="L302" class="LineNr">302 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L302" class="LineNr">302 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L303" class="LineNr">303 </span> 68/push 0/imm32/end
|
||||
<span id="L304" class="LineNr">304 </span> 68/push 0/imm32/start
|
||||
<span id="L305" class="LineNr">305 </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>
|
||||
|
|
@ -421,7 +421,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L362" class="LineNr">362 </span> e8/call <a href='055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L363" class="LineNr">363 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L364" class="LineNr">364 </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="L365" class="LineNr">365 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L365" class="LineNr">365 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L366" class="LineNr">366 </span> 68/push 0/imm32/end
|
||||
<span id="L367" class="LineNr">367 </span> 68/push 0/imm32/start
|
||||
<span id="L368" class="LineNr">368 </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>
|
||||
|
|
|
|||
|
|
@ -65,7 +65,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span>
|
||||
<span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span>
|
||||
<span id="L7" class="LineNr"> 7 </span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">write-int</span>: <span class="subxComment"># out : (addr stream byte), n : int</span>
|
||||
<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">write-int</span>: <span class="subxComment"># out: (addr stream byte), n: int</span>
|
||||
<span id="L9" class="LineNr"> 9 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L10" class="LineNr"> 10 </span> 55/push-ebp
|
||||
<span id="L11" class="LineNr"> 11 </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>
|
||||
|
|
|
|||
|
|
@ -67,7 +67,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L7" class="LineNr"> 7 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span>
|
||||
<span id="L8" class="LineNr"> 8 </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="L9" class="LineNr"> 9 </span>
|
||||
<span id="L10" class="LineNr"> 10 </span><span class="subxFunction">clear-stack</span>: <span class="subxComment"># s : (addr stack)</span>
|
||||
<span id="L10" class="LineNr"> 10 </span><span class="subxFunction">clear-stack</span>: <span class="subxComment"># s: (addr stack)</span>
|
||||
<span id="L11" class="LineNr"> 11 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L12" class="LineNr"> 12 </span> 55/push-ebp
|
||||
<span id="L13" class="LineNr"> 13 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span>
|
||||
|
|
@ -76,12 +76,12 @@ if ('onhashchange' in window) {
|
|||
<span id="L16" class="LineNr"> 16 </span> 51/push-ecx
|
||||
<span id="L17" class="LineNr"> 17 </span> <span class="subxComment"># eax = s</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> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span>
|
||||
<span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># var max/ecx : (addr byte) = &s->data[s->length]</span>
|
||||
<span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># var max/ecx: (addr byte) = &s->data[s->length]</span>
|
||||
<span id="L20" class="LineNr"> 20 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span>
|
||||
<span id="L21" class="LineNr"> 21 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+8 to ecx</span>
|
||||
<span id="L22" class="LineNr"> 22 </span> <span class="subxComment"># s->top = 0</span>
|
||||
<span id="L23" class="LineNr"> 23 </span> c7 0/subop/copy 0/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> 0/imm32 <span class="subxComment"># copy to *eax</span>
|
||||
<span id="L24" class="LineNr"> 24 </span> <span class="subxComment"># var curr/eax : (addr byte) = s->data</span>
|
||||
<span id="L24" class="LineNr"> 24 </span> <span class="subxComment"># var curr/eax: (addr byte) = s->data</span>
|
||||
<span id="L25" class="LineNr"> 25 </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> 8/imm32 <span class="subxComment"># add to eax</span>
|
||||
<span id="L26" class="LineNr"> 26 </span><span class="Constant">$clear-stack:loop</span>:
|
||||
<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># if (curr >= max) break</span>
|
||||
|
|
@ -167,7 +167,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L107" class="LineNr">107 </span> 5d/pop-to-ebp
|
||||
<span id="L108" class="LineNr">108 </span> c3/return
|
||||
<span id="L109" class="LineNr">109 </span>
|
||||
<span id="L110" class="LineNr">110 </span><span class="subxFunction">push</span>: <span class="subxComment"># s : (addr stack), n : int</span>
|
||||
<span id="L110" class="LineNr">110 </span><span class="subxFunction">push</span>: <span class="subxComment"># s: (addr stack), n: int</span>
|
||||
<span id="L111" class="LineNr">111 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L112" class="LineNr">112 </span> 55/push-ebp
|
||||
<span id="L113" class="LineNr">113 </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>
|
||||
|
|
@ -287,7 +287,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L227" class="LineNr">227 </span> 5d/pop-to-ebp
|
||||
<span id="L228" class="LineNr">228 </span> c3/return
|
||||
<span id="L229" class="LineNr">229 </span>
|
||||
<span id="L230" class="LineNr">230 </span><span class="subxFunction">pop</span>: <span class="subxComment"># s : (addr stack) -> n/eax : int</span>
|
||||
<span id="L230" class="LineNr">230 </span><span class="subxFunction">pop</span>: <span class="subxComment"># s: (addr stack) -> n/eax: int</span>
|
||||
<span id="L231" class="LineNr">231 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L232" class="LineNr">232 </span> 55/push-ebp
|
||||
<span id="L233" class="LineNr">233 </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>
|
||||
|
|
@ -391,7 +391,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L331" class="LineNr">331 </span> 5d/pop-to-ebp
|
||||
<span id="L332" class="LineNr">332 </span> c3/return
|
||||
<span id="L333" class="LineNr">333 </span>
|
||||
<span id="L334" class="LineNr">334 </span><span class="subxFunction">top</span>: <span class="subxComment"># s : (addr stack) -> n/eax : int</span>
|
||||
<span id="L334" class="LineNr">334 </span><span class="subxFunction">top</span>: <span class="subxComment"># s: (addr stack) -> n/eax: int</span>
|
||||
<span id="L335" class="LineNr">335 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L336" class="LineNr">336 </span> 55/push-ebp
|
||||
<span id="L337" class="LineNr">337 </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>
|
||||
|
|
|
|||
|
|
@ -62,7 +62,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L2" class="LineNr"> 2 </span>
|
||||
<span id="L3" class="LineNr"> 3 </span>== code
|
||||
<span id="L4" class="LineNr"> 4 </span>
|
||||
<span id="L5" class="LineNr"> 5 </span><span class="subxFunction">array-equal?</span>: <span class="subxComment"># a : (addr array int), b : (addr array int) -> eax : boolean</span>
|
||||
<span id="L5" class="LineNr"> 5 </span><span class="subxFunction">array-equal?</span>: <span class="subxComment"># a: (addr array int), b: (addr array int) -> eax: boolean</span>
|
||||
<span id="L6" class="LineNr"> 6 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L7" class="LineNr"> 7 </span> <span class="subxComment"># lena = a->length</span>
|
||||
<span id="L8" class="LineNr"> 8 </span> <span class="subxComment"># if (lena != b->length) return false</span>
|
||||
|
|
@ -97,27 +97,27 @@ if ('onhashchange' in window) {
|
|||
<span id="L37" class="LineNr"> 37 </span> 8b/-> *(ebp+8) 6/r32/esi
|
||||
<span id="L38" class="LineNr"> 38 </span> <span class="subxComment"># edi = b</span>
|
||||
<span id="L39" class="LineNr"> 39 </span> 8b/-> *(ebp+0xc) 7/r32/edi
|
||||
<span id="L40" class="LineNr"> 40 </span> <span class="subxComment"># var lena/edx : int = a->length</span>
|
||||
<span id="L40" class="LineNr"> 40 </span> <span class="subxComment"># var lena/edx: int = a->length</span>
|
||||
<span id="L41" class="LineNr"> 41 </span> 8b/-> *esi 2/r32/edx
|
||||
<span id="L42" class="LineNr"> 42 </span><span class="Constant">$array-equal?:lengths</span>:
|
||||
<span id="L43" class="LineNr"> 43 </span> <span class="subxComment"># if (lena != b->length) return false</span>
|
||||
<span id="L44" class="LineNr"> 44 </span> 39/compare *edi 2/r32/edx
|
||||
<span id="L45" class="LineNr"> 45 </span> 75/jump-if-!= $array-equal?:false/disp8
|
||||
<span id="L46" class="LineNr"> 46 </span> <span class="subxComment"># var curra/esi : (addr byte) = a->data</span>
|
||||
<span id="L46" class="LineNr"> 46 </span> <span class="subxComment"># var curra/esi: (addr byte) = a->data</span>
|
||||
<span id="L47" class="LineNr"> 47 </span> 81 0/subop/add %esi 4/imm32
|
||||
<span id="L48" class="LineNr"> 48 </span> <span class="subxComment"># var currb/edi : (addr byte) = b->data</span>
|
||||
<span id="L48" class="LineNr"> 48 </span> <span class="subxComment"># var currb/edi: (addr byte) = b->data</span>
|
||||
<span id="L49" class="LineNr"> 49 </span> 81 0/subop/add %edi 4/imm32
|
||||
<span id="L50" class="LineNr"> 50 </span> <span class="subxComment"># var i/ecx : int = 0</span>
|
||||
<span id="L50" class="LineNr"> 50 </span> <span class="subxComment"># var i/ecx: int = 0</span>
|
||||
<span id="L51" class="LineNr"> 51 </span> 31/xor %ecx 1/r32/ecx
|
||||
<span id="L52" class="LineNr"> 52 </span> <span class="subxComment"># var vala/eax : int</span>
|
||||
<span id="L53" class="LineNr"> 53 </span> <span class="subxComment"># var valb/ebx : int</span>
|
||||
<span id="L52" class="LineNr"> 52 </span> <span class="subxComment"># var vala/eax: int</span>
|
||||
<span id="L53" class="LineNr"> 53 </span> <span class="subxComment"># var valb/ebx: int</span>
|
||||
<span id="L54" class="LineNr"> 54 </span><span class="Constant">$array-equal?:loop</span>:
|
||||
<span id="L55" class="LineNr"> 55 </span> <span class="subxComment"># if (i >= lena) return true</span>
|
||||
<span id="L56" class="LineNr"> 56 </span> 39/compare %ecx 2/r32/edx
|
||||
<span id="L57" class="LineNr"> 57 </span> 7d/jump-if->= $array-equal?:true/disp8
|
||||
<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># var vala/eax : int = *curra</span>
|
||||
<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># var vala/eax: int = *curra</span>
|
||||
<span id="L59" class="LineNr"> 59 </span> 8b/-> *esi 0/r32/eax
|
||||
<span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># var valb/ebx : int = *currb</span>
|
||||
<span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># var valb/ebx: int = *currb</span>
|
||||
<span id="L61" class="LineNr"> 61 </span> 8b/-> *edi 3/r32/ebx
|
||||
<span id="L62" class="LineNr"> 62 </span> <span class="subxComment"># if (vala != valb) return false</span>
|
||||
<span id="L63" class="LineNr"> 63 </span> 39/compare %eax 3/r32/ebx
|
||||
|
|
@ -150,10 +150,10 @@ if ('onhashchange' in window) {
|
|||
<span id="L90" class="LineNr"> 90 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L91" class="LineNr"> 91 </span> 55/push-ebp
|
||||
<span id="L92" class="LineNr"> 92 </span> 89/<- %ebp 4/r32/esp
|
||||
<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># var ecx : (array _) = []</span>
|
||||
<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># var ecx: (array _) = []</span>
|
||||
<span id="L94" class="LineNr"> 94 </span> 68/push 0/imm32/size
|
||||
<span id="L95" class="LineNr"> 95 </span> 89/<- %ecx 4/r32/esp
|
||||
<span id="L96" class="LineNr"> 96 </span> <span class="subxComment"># var edx : (array _) = []</span>
|
||||
<span id="L96" class="LineNr"> 96 </span> <span class="subxComment"># var edx: (array _) = []</span>
|
||||
<span id="L97" class="LineNr"> 97 </span> 68/push 0/imm32/size
|
||||
<span id="L98" class="LineNr"> 98 </span> 89/<- %edx 4/r32/esp
|
||||
<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># eax = array-equal?(ecx, edx)</span>
|
||||
|
|
@ -182,11 +182,11 @@ if ('onhashchange' in window) {
|
|||
<span id="L122" class="LineNr">122 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L123" class="LineNr">123 </span> 55/push-ebp
|
||||
<span id="L124" class="LineNr">124 </span> 89/<- %ebp 4/r32/esp
|
||||
<span id="L125" class="LineNr">125 </span> <span class="subxComment"># var ecx : (array int) = [1]</span>
|
||||
<span id="L125" class="LineNr">125 </span> <span class="subxComment"># var ecx: (array int) = [1]</span>
|
||||
<span id="L126" class="LineNr">126 </span> 68/push 1/imm32
|
||||
<span id="L127" class="LineNr">127 </span> 68/push 4/imm32/size
|
||||
<span id="L128" class="LineNr">128 </span> 89/<- %ecx 4/r32/esp
|
||||
<span id="L129" class="LineNr">129 </span> <span class="subxComment"># var edx : (array int) = []</span>
|
||||
<span id="L129" class="LineNr">129 </span> <span class="subxComment"># var edx: (array int) = []</span>
|
||||
<span id="L130" class="LineNr">130 </span> 68/push 0/imm32/size
|
||||
<span id="L131" class="LineNr">131 </span> 89/<- %edx 4/r32/esp
|
||||
<span id="L132" class="LineNr">132 </span> <span class="subxComment"># eax = array-equal?(ecx, edx)</span>
|
||||
|
|
@ -215,13 +215,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L155" class="LineNr">155 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L156" class="LineNr">156 </span> 55/push-ebp
|
||||
<span id="L157" class="LineNr">157 </span> 89/<- %ebp 4/r32/esp
|
||||
<span id="L158" class="LineNr">158 </span> <span class="subxComment"># var ecx : (array int) = [1, 2, 3]</span>
|
||||
<span id="L158" class="LineNr">158 </span> <span class="subxComment"># var ecx: (array int) = [1, 2, 3]</span>
|
||||
<span id="L159" class="LineNr">159 </span> 68/push 3/imm32
|
||||
<span id="L160" class="LineNr">160 </span> 68/push 2/imm32
|
||||
<span id="L161" class="LineNr">161 </span> 68/push 1/imm32
|
||||
<span id="L162" class="LineNr">162 </span> 68/push 0xc/imm32/size
|
||||
<span id="L163" class="LineNr">163 </span> 89/<- %ecx 4/r32/esp
|
||||
<span id="L164" class="LineNr">164 </span> <span class="subxComment"># var edx : (array int) = [1, 2, 3]</span>
|
||||
<span id="L164" class="LineNr">164 </span> <span class="subxComment"># var edx: (array int) = [1, 2, 3]</span>
|
||||
<span id="L165" class="LineNr">165 </span> 68/push 3/imm32
|
||||
<span id="L166" class="LineNr">166 </span> 68/push 2/imm32
|
||||
<span id="L167" class="LineNr">167 </span> 68/push 1/imm32
|
||||
|
|
@ -253,13 +253,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L193" class="LineNr">193 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L194" class="LineNr">194 </span> 55/push-ebp
|
||||
<span id="L195" class="LineNr">195 </span> 89/<- %ebp 4/r32/esp
|
||||
<span id="L196" class="LineNr">196 </span> <span class="subxComment"># var ecx : (array int) = [1, 4, 3]</span>
|
||||
<span id="L196" class="LineNr">196 </span> <span class="subxComment"># var ecx: (array int) = [1, 4, 3]</span>
|
||||
<span id="L197" class="LineNr">197 </span> 68/push 3/imm32
|
||||
<span id="L198" class="LineNr">198 </span> 68/push 4/imm32
|
||||
<span id="L199" class="LineNr">199 </span> 68/push 1/imm32
|
||||
<span id="L200" class="LineNr">200 </span> 68/push 0xc/imm32/size
|
||||
<span id="L201" class="LineNr">201 </span> 89/<- %ecx 4/r32/esp
|
||||
<span id="L202" class="LineNr">202 </span> <span class="subxComment"># var edx : (array int) = [1, 2, 3]</span>
|
||||
<span id="L202" class="LineNr">202 </span> <span class="subxComment"># var edx: (array int) = [1, 2, 3]</span>
|
||||
<span id="L203" class="LineNr">203 </span> 68/push 3/imm32
|
||||
<span id="L204" class="LineNr">204 </span> 68/push 2/imm32
|
||||
<span id="L205" class="LineNr">205 </span> 68/push 1/imm32
|
||||
|
|
@ -287,7 +287,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L227" class="LineNr">227 </span> 5d/pop-to-ebp
|
||||
<span id="L228" class="LineNr">228 </span> c3/return
|
||||
<span id="L229" class="LineNr">229 </span>
|
||||
<span id="L230" class="LineNr">230 </span><span class="subxFunction">parse-array-of-ints</span>: <span class="subxComment"># ad : (addr allocation-descriptor), s : (addr string) -> result/eax : (handle array int)</span>
|
||||
<span id="L230" class="LineNr">230 </span><span class="subxFunction">parse-array-of-ints</span>: <span class="subxComment"># ad: (addr allocation-descriptor), s: (addr string) -> result/eax: (handle array int)</span>
|
||||
<span id="L231" class="LineNr">231 </span> <span class="subxComment"># pseudocode</span>
|
||||
<span id="L232" class="LineNr">232 </span> <span class="subxComment"># end = &s->data[s->length]</span>
|
||||
<span id="L233" class="LineNr">233 </span> <span class="subxComment"># curr = s->data</span>
|
||||
|
|
@ -300,7 +300,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L240" class="LineNr">240 </span> <span class="subxComment"># ++size</span>
|
||||
<span id="L241" class="LineNr">241 </span> <span class="subxComment"># result = allocate(ad, (size+1)*4)</span>
|
||||
<span id="L242" class="LineNr">242 </span> <span class="subxComment"># result->size = (size+1)*4</span>
|
||||
<span id="L243" class="LineNr">243 </span> <span class="subxComment"># var slice : slice = {s->data, 0}</span>
|
||||
<span id="L243" class="LineNr">243 </span> <span class="subxComment"># var slice: slice = {s->data, 0}</span>
|
||||
<span id="L244" class="LineNr">244 </span> <span class="subxComment"># out = result->data</span>
|
||||
<span id="L245" class="LineNr">245 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L246" class="LineNr">246 </span> <span class="subxComment"># if (slice->start >= end) break</span>
|
||||
|
|
@ -323,14 +323,14 @@ if ('onhashchange' in window) {
|
|||
<span id="L263" class="LineNr">263 </span> 57/push-edi
|
||||
<span id="L264" class="LineNr">264 </span> <span class="subxComment"># esi = s</span>
|
||||
<span id="L265" class="LineNr">265 </span> 8b/-> *(ebp+0xc) 6/r32/esi
|
||||
<span id="L266" class="LineNr">266 </span> <span class="subxComment"># var curr/ecx : (addr byte) = s->data</span>
|
||||
<span id="L266" class="LineNr">266 </span> <span class="subxComment"># var curr/ecx: (addr byte) = s->data</span>
|
||||
<span id="L267" class="LineNr">267 </span> 8d/copy-address *(esi+4) 1/r32/ecx
|
||||
<span id="L268" class="LineNr">268 </span> <span class="subxComment"># var end/edx : (addr byte) = &s->data[s->length]</span>
|
||||
<span id="L268" class="LineNr">268 </span> <span class="subxComment"># var end/edx: (addr byte) = &s->data[s->length]</span>
|
||||
<span id="L269" class="LineNr">269 </span> <span class="subxS1Comment"># . edx = s->length</span>
|
||||
<span id="L270" class="LineNr">270 </span> 8b/-> *esi 2/r32/edx
|
||||
<span id="L271" class="LineNr">271 </span> <span class="subxS1Comment"># . edx += curr</span>
|
||||
<span id="L272" class="LineNr">272 </span> 01/add %edx 1/r32/ecx
|
||||
<span id="L273" class="LineNr">273 </span> <span class="subxComment"># var size/ebx : int = 0</span>
|
||||
<span id="L273" class="LineNr">273 </span> <span class="subxComment"># var size/ebx: int = 0</span>
|
||||
<span id="L274" class="LineNr">274 </span> 31/xor %ebx 3/r32/ebx
|
||||
<span id="L275" class="LineNr">275 </span><span class="Constant">$parse-array-of-ints:loop1</span>:
|
||||
<span id="L276" class="LineNr">276 </span> <span class="subxComment"># if (curr >= end) break</span>
|
||||
|
|
@ -367,7 +367,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L307" class="LineNr">307 </span> 81 0/subop/add %ebx 4/imm32
|
||||
<span id="L308" class="LineNr">308 </span> eb/jump $parse-array-of-ints:loop1/disp8
|
||||
<span id="L309" class="LineNr">309 </span><span class="Constant">$parse-array-of-ints:break1</span>:
|
||||
<span id="L310" class="LineNr">310 </span> <span class="subxComment"># var result/edi : (handle array int) = allocate(ad, size+4)</span>
|
||||
<span id="L310" class="LineNr">310 </span> <span class="subxComment"># var result/edi: (handle array int) = allocate(ad, size+4)</span>
|
||||
<span id="L311" class="LineNr">311 </span> <span class="subxS1Comment"># . eax = allocate(ad, size+4)</span>
|
||||
<span id="L312" class="LineNr">312 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
<span id="L313" class="LineNr">313 </span> 89/<- %eax 3/r32/ebx
|
||||
|
|
@ -383,12 +383,12 @@ if ('onhashchange' in window) {
|
|||
<span id="L323" class="LineNr">323 </span> <span class="subxComment"># result->size = size</span>
|
||||
<span id="L324" class="LineNr">324 </span> 89/<- *eax 3/r32/ebx
|
||||
<span id="L325" class="LineNr">325 </span><span class="Constant">$parse-array-of-ints:pass2</span>:
|
||||
<span id="L326" class="LineNr">326 </span> <span class="subxComment"># var slice/ecx : slice = {s->data, 0}</span>
|
||||
<span id="L326" class="LineNr">326 </span> <span class="subxComment"># var slice/ecx: slice = {s->data, 0}</span>
|
||||
<span id="L327" class="LineNr">327 </span> 68/push 0/imm32/end
|
||||
<span id="L328" class="LineNr">328 </span> 8d/copy-address *(esi+4) 1/r32/ecx
|
||||
<span id="L329" class="LineNr">329 </span> 51/push-ecx
|
||||
<span id="L330" class="LineNr">330 </span> 89/<- %ecx 4/r32/esp
|
||||
<span id="L331" class="LineNr">331 </span> <span class="subxComment"># var out/ebx : (addr byte) = result->data</span>
|
||||
<span id="L331" class="LineNr">331 </span> <span class="subxComment"># var out/ebx: (addr byte) = result->data</span>
|
||||
<span id="L332" class="LineNr">332 </span> 8d/copy-address *(eax+4) 3/r32/ebx
|
||||
<span id="L333" class="LineNr">333 </span><span class="Constant">$parse-array-of-ints:loop2</span>:
|
||||
<span id="L334" class="LineNr">334 </span> <span class="subxComment"># if (slice->start >= end) break</span>
|
||||
|
|
@ -458,7 +458,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L398" class="LineNr">398 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L399" class="LineNr">399 </span> 55/push-ebp
|
||||
<span id="L400" class="LineNr">400 </span> 89/<- %ebp 4/r32/esp
|
||||
<span id="L401" class="LineNr">401 </span> <span class="subxComment"># var ecx : (array int) = [1, 2, 3]</span>
|
||||
<span id="L401" class="LineNr">401 </span> <span class="subxComment"># var ecx: (array int) = [1, 2, 3]</span>
|
||||
<span id="L402" class="LineNr">402 </span> 68/push 3/imm32
|
||||
<span id="L403" class="LineNr">403 </span> 68/push 2/imm32
|
||||
<span id="L404" class="LineNr">404 </span> 68/push 1/imm32
|
||||
|
|
@ -552,7 +552,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L492" class="LineNr">492 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L493" class="LineNr">493 </span> 55/push-ebp
|
||||
<span id="L494" class="LineNr">494 </span> 89/<- %ebp 4/r32/esp
|
||||
<span id="L495" class="LineNr">495 </span> <span class="subxComment"># var ecx : (array int) = [1, 2, 3]</span>
|
||||
<span id="L495" class="LineNr">495 </span> <span class="subxComment"># var ecx: (array int) = [1, 2, 3]</span>
|
||||
<span id="L496" class="LineNr">496 </span> 68/push 3/imm32
|
||||
<span id="L497" class="LineNr">497 </span> 68/push 2/imm32
|
||||
<span id="L498" class="LineNr">498 </span> 68/push 1/imm32
|
||||
|
|
@ -590,13 +590,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L530" class="LineNr">530 </span>
|
||||
<span id="L531" class="LineNr">531 </span><span class="subxComment"># helper for later tests</span>
|
||||
<span id="L532" class="LineNr">532 </span><span class="subxComment"># compare an array with a string representation of an array literal</span>
|
||||
<span id="L533" class="LineNr">533 </span><span class="subxFunction">check-array-equal</span>: <span class="subxComment"># a : (addr array int), expected : (addr string), msg : (addr string)</span>
|
||||
<span id="L533" class="LineNr">533 </span><span class="subxFunction">check-array-equal</span>: <span class="subxComment"># a: (addr array int), expected: (addr string), msg: (addr string)</span>
|
||||
<span id="L534" class="LineNr">534 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L535" class="LineNr">535 </span> 55/push-ebp
|
||||
<span id="L536" class="LineNr">536 </span> 89/<- %ebp 4/r32/esp
|
||||
<span id="L537" class="LineNr">537 </span> <span class="subxS1Comment"># . save registers</span>
|
||||
<span id="L538" class="LineNr">538 </span> 50/push-eax
|
||||
<span id="L539" class="LineNr">539 </span> <span class="subxComment"># var b/ecx : (handle array int) = parse-array-of-ints(Heap, expected)</span>
|
||||
<span id="L539" class="LineNr">539 </span> <span class="subxComment"># var b/ecx: (handle array int) = parse-array-of-ints(Heap, expected)</span>
|
||||
<span id="L540" class="LineNr">540 </span> <span class="subxS1Comment"># . eax = parse-array-of-ints(Heap, expected)</span>
|
||||
<span id="L541" class="LineNr">541 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
<span id="L542" class="LineNr">542 </span> ff 6/subop/push *(ebp+0xc)
|
||||
|
|
@ -636,7 +636,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L576" class="LineNr">576 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L577" class="LineNr">577 </span> 55/push-ebp
|
||||
<span id="L578" class="LineNr">578 </span> 89/<- %ebp 4/r32/esp
|
||||
<span id="L579" class="LineNr">579 </span> <span class="subxComment"># var ecx : (array int) = [1, 2, 3]</span>
|
||||
<span id="L579" class="LineNr">579 </span> <span class="subxComment"># var ecx: (array int) = [1, 2, 3]</span>
|
||||
<span id="L580" class="LineNr">580 </span> 68/push 3/imm32
|
||||
<span id="L581" class="LineNr">581 </span> 68/push 2/imm32
|
||||
<span id="L582" class="LineNr">582 </span> 68/push 1/imm32
|
||||
|
|
|
|||
|
|
@ -122,7 +122,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L60" class="LineNr"> 60 </span> eb/jump $subx-assort-main:end/disp8
|
||||
<span id="L61" class="LineNr"> 61 </span><span class="Constant">$subx-assort-main:interactive</span>:
|
||||
<span id="L62" class="LineNr"> 62 </span> <span class="subxH1Comment"># - otherwise convert stdin</span>
|
||||
<span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># var ed/eax : exit-descriptor</span>
|
||||
<span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># var ed/eax: exit-descriptor</span>
|
||||
<span id="L64" class="LineNr"> 64 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L65" class="LineNr"> 65 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span>
|
||||
<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># configure ed to really exit()</span>
|
||||
|
|
@ -148,9 +148,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L86" class="LineNr"> 86 </span><span class="subxComment"># table: (addr stream {string, (addr stream byte)}) (8 bytes per row)</span>
|
||||
<span id="L87" class="LineNr"> 87 </span><span class="subxComment"># inefficient; uses sequential search for looking up segments by name</span>
|
||||
<span id="L88" class="LineNr"> 88 </span>
|
||||
<span id="L89" class="LineNr"> 89 </span><span class="subxFunction">subx-assort</span>: <span class="subxComment"># in : (addr buffered-file), out : (addr buffered-file)</span>
|
||||
<span id="L89" class="LineNr"> 89 </span><span class="subxFunction">subx-assort</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file)</span>
|
||||
<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L91" class="LineNr"> 91 </span> <span class="subxComment"># var table : (addr stream {string, (addr stream byte)} 10/rows)</span>
|
||||
<span id="L91" class="LineNr"> 91 </span> <span class="subxComment"># var table: (addr stream {string, (addr stream byte)} 10/rows)</span>
|
||||
<span id="L92" class="LineNr"> 92 </span> <span class="subxComment"># read-segments(in, table)</span>
|
||||
<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># write-segments(out, table)</span>
|
||||
<span id="L94" class="LineNr"> 94 </span> <span class="subxComment">#</span>
|
||||
|
|
@ -159,7 +159,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L97" class="LineNr"> 97 </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="L98" class="LineNr"> 98 </span> <span class="subxS1Comment"># . save registers</span>
|
||||
<span id="L99" class="LineNr"> 99 </span> 51/push-ecx
|
||||
<span id="L100" class="LineNr">100 </span> <span class="subxComment"># var table/ecx : (stream {string, (addr stream byte)} 80) # 10 rows * 8 bytes/row</span>
|
||||
<span id="L100" class="LineNr">100 </span> <span class="subxComment"># var table/ecx: (stream {string, (addr stream byte)} 80) # 10 rows * 8 bytes/row</span>
|
||||
<span id="L101" class="LineNr">101 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x50/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L102" class="LineNr">102 </span> 68/push 0x50/imm32/length
|
||||
<span id="L103" class="LineNr">103 </span> 68/push 0/imm32/read
|
||||
|
|
@ -467,10 +467,10 @@ if ('onhashchange' in window) {
|
|||
<span id="L453" class="LineNr">453 </span><span class="subxComment"># type string_key = (addr array byte)</span>
|
||||
<span id="L454" class="LineNr">454 </span>
|
||||
<span id="L455" class="LineNr">455 </span><span class="subxComment"># beware: leaks memory (one name per segment read)</span>
|
||||
<span id="L456" class="LineNr">456 </span><span class="subxFunction">read-segments</span>: <span class="subxComment"># in : (addr buffered-file), table : (addr stream {string_key, (handle stream byte)})</span>
|
||||
<span id="L456" class="LineNr">456 </span><span class="subxFunction">read-segments</span>: <span class="subxComment"># in: (addr buffered-file), table: (addr stream {string_key, (handle stream byte)})</span>
|
||||
<span id="L457" class="LineNr">457 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L458" class="LineNr">458 </span> <span class="subxComment"># var curr-segment : (handle stream byte) = 0</span>
|
||||
<span id="L459" class="LineNr">459 </span> <span class="subxComment"># var line : (stream byte 512)</span>
|
||||
<span id="L458" class="LineNr">458 </span> <span class="subxComment"># var curr-segment: (handle stream byte) = 0</span>
|
||||
<span id="L459" class="LineNr">459 </span> <span class="subxComment"># var line: (stream byte 512)</span>
|
||||
<span id="L460" class="LineNr">460 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L461" class="LineNr">461 </span> <span class="subxComment"># clear-stream(line)</span>
|
||||
<span id="L462" class="LineNr">462 </span> <span class="subxComment"># read-line-buffered(in, line)</span>
|
||||
|
|
@ -510,13 +510,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L496" class="LineNr">496 </span> 52/push-edx
|
||||
<span id="L497" class="LineNr">497 </span> 53/push-ebx
|
||||
<span id="L498" class="LineNr">498 </span> 56/push-esi
|
||||
<span id="L499" class="LineNr">499 </span> <span class="subxComment"># var line/ecx : (stream byte 512)</span>
|
||||
<span id="L499" class="LineNr">499 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span>
|
||||
<span id="L500" class="LineNr">500 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L501" class="LineNr">501 </span> 68/push 0x200/imm32/length
|
||||
<span id="L502" class="LineNr">502 </span> 68/push 0/imm32/read
|
||||
<span id="L503" class="LineNr">503 </span> 68/push 0/imm32/write
|
||||
<span id="L504" class="LineNr">504 </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="L505" class="LineNr">505 </span> <span class="subxComment"># var word-slice/edx : slice</span>
|
||||
<span id="L505" class="LineNr">505 </span> <span class="subxComment"># var word-slice/edx: slice</span>
|
||||
<span id="L506" class="LineNr">506 </span> 68/push 0/imm32/end
|
||||
<span id="L507" class="LineNr">507 </span> 68/push 0/imm32/start
|
||||
<span id="L508" class="LineNr">508 </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>
|
||||
|
|
@ -565,9 +565,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L591" class="LineNr">591 </span><span class="Constant">$read-segments:check-for-comment</span>:
|
||||
<span id="L592" class="Folded">592 </span><span class="Folded">+-- 9 lines: #? # print("check for comment\n") ----------------------------------------------------------------------------------------------------------</span>
|
||||
<span id="L601" class="LineNr">601 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) continue</span>
|
||||
<span id="L602" class="LineNr">602 </span> <span class="subxS1Comment"># . var start/esi : (addr byte) = word-slice->start</span>
|
||||
<span id="L602" class="LineNr">602 </span> <span class="subxS1Comment"># . var start/esi: (addr byte) = word-slice->start</span>
|
||||
<span id="L603" class="LineNr">603 </span> 8b/copy 0/mod/indirect 2/rm32/edx <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"># copy *ecx to esi</span>
|
||||
<span id="L604" class="LineNr">604 </span> <span class="subxS1Comment"># . var c/eax : byte = *start</span>
|
||||
<span id="L604" class="LineNr">604 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span>
|
||||
<span id="L605" class="LineNr">605 </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="L606" class="LineNr">606 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <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 *esi to AL</span>
|
||||
<span id="L607" class="LineNr">607 </span> <span class="subxS1Comment"># . if (c == '#') continue</span>
|
||||
|
|
@ -597,7 +597,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L678" class="LineNr">678 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L679" class="LineNr">679 </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="L680" class="Folded">680 </span><span class="Folded">+-- 40 lines: #? # dump segment name ---------------------------------------------------------------------------------------------------------------------</span>
|
||||
<span id="L720" class="LineNr">720 </span> <span class="subxComment"># var segment-slot/eax : (addr handle stream byte) = leaky-get-or-insert-slice(table, segment-name, row-size=8)</span>
|
||||
<span id="L720" class="LineNr">720 </span> <span class="subxComment"># var segment-slot/eax: (addr handle stream byte) = leaky-get-or-insert-slice(table, segment-name, row-size=8)</span>
|
||||
<span id="L721" class="LineNr">721 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
<span id="L722" class="LineNr">722 </span> 68/push 8/imm32/row-size
|
||||
<span id="L723" class="LineNr">723 </span> 52/push-edx
|
||||
|
|
@ -606,7 +606,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L726" class="LineNr">726 </span> e8/call <a href='../081table.subx.html#L655'>leaky-get-or-insert-slice</a>/disp32
|
||||
<span id="L727" class="LineNr">727 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L728" class="LineNr">728 </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="L729" class="LineNr">729 </span> <span class="subxComment"># var curr-segment/ebx : (handle stream byte) = *segment-slot</span>
|
||||
<span id="L729" class="LineNr">729 </span> <span class="subxComment"># var curr-segment/ebx: (handle stream byte) = *segment-slot</span>
|
||||
<span id="L730" class="LineNr">730 </span> 8b/copy 0/mod/indirect 0/rm32/eax <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 *eax to ebx</span>
|
||||
<span id="L731" class="LineNr">731 </span> <span class="subxComment"># if (curr-segment != 0) continue</span>
|
||||
<span id="L732" class="LineNr">732 </span> 81 7/subop/compare 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> 0/imm32 <span class="subxComment"># compare ebx</span>
|
||||
|
|
@ -667,7 +667,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L843" class="LineNr">843 </span> 5d/pop-to-ebp
|
||||
<span id="L844" class="LineNr">844 </span> c3/return
|
||||
<span id="L845" class="LineNr">845 </span>
|
||||
<span id="L846" class="LineNr">846 </span><span class="subxFunction">write-segments</span>: <span class="subxComment"># out : (addr buffered-file), table : (addr stream {string_key, (handle stream byte)})</span>
|
||||
<span id="L846" class="LineNr">846 </span><span class="subxFunction">write-segments</span>: <span class="subxComment"># out: (addr buffered-file), table: (addr stream {string_key, (handle stream byte)})</span>
|
||||
<span id="L847" class="LineNr">847 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L848" class="LineNr">848 </span> <span class="subxComment"># var curr = table->data</span>
|
||||
<span id="L849" class="LineNr">849 </span> <span class="subxComment"># var max = &table->data[table->write]</span>
|
||||
|
|
@ -686,17 +686,17 @@ if ('onhashchange' in window) {
|
|||
<span id="L862" class="LineNr">862 </span> 56/push-esi
|
||||
<span id="L863" class="LineNr">863 </span> <span class="subxComment"># esi = table</span>
|
||||
<span id="L864" class="LineNr">864 </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="L865" class="LineNr">865 </span> <span class="subxComment"># var write/edx : int = table->write</span>
|
||||
<span id="L865" class="LineNr">865 </span> <span class="subxComment"># var write/edx: int = table->write</span>
|
||||
<span id="L866" class="LineNr">866 </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="L867" class="LineNr">867 </span> <span class="subxComment"># var curr/esi : (addr byte) = table->data</span>
|
||||
<span id="L867" class="LineNr">867 </span> <span class="subxComment"># var curr/esi: (addr byte) = table->data</span>
|
||||
<span id="L868" class="LineNr">868 </span> 81 0/subop/add 3/mod/direct 6/rm32/esi <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 eax</span>
|
||||
<span id="L869" class="LineNr">869 </span> <span class="subxComment"># var max/edx : (addr byte) = curr + write</span>
|
||||
<span id="L869" class="LineNr">869 </span> <span class="subxComment"># var max/edx: (addr byte) = curr + write</span>
|
||||
<span id="L870" class="LineNr">870 </span> 01/add 3/mod/direct 2/rm32/edx <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"># add esi to edx</span>
|
||||
<span id="L871" class="LineNr">871 </span><span class="Constant">$write-segments:loop</span>:
|
||||
<span id="L872" class="LineNr">872 </span> <span class="subxComment"># if (curr >= max) break</span>
|
||||
<span id="L873" class="LineNr">873 </span> 39/compare 3/mod/direct 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"># compare esi with edx</span>
|
||||
<span id="L874" class="LineNr">874 </span> 73/jump-if-addr>= $write-segments:<span class="Constant">break</span>/disp8
|
||||
<span id="L875" class="LineNr">875 </span> <span class="subxComment"># var stream/eax : (addr stream byte) = table[i].stream</span>
|
||||
<span id="L875" class="LineNr">875 </span> <span class="subxComment"># var stream/eax: (addr stream byte) = table[i].stream</span>
|
||||
<span id="L876" class="LineNr">876 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to eax</span>
|
||||
<span id="L877" class="LineNr">877 </span> <span class="subxComment"># write-stream-data(out, stream)</span>
|
||||
<span id="L878" class="LineNr">878 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
|
|
|
|||
|
|
@ -134,11 +134,11 @@ if ('onhashchange' in window) {
|
|||
<span id="L75" class="LineNr"> 75 </span> b8/copy-to-eax 1/imm32/exit
|
||||
<span id="L76" class="LineNr"> 76 </span> cd/syscall 0x80/imm8
|
||||
<span id="L77" class="LineNr"> 77 </span>
|
||||
<span id="L78" class="LineNr"> 78 </span><span class="subxFunction">subx-braces</span>: <span class="subxComment"># in : (addr buffered-file), out : (addr buffered-file)</span>
|
||||
<span id="L78" class="LineNr"> 78 </span><span class="subxFunction">subx-braces</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file)</span>
|
||||
<span id="L79" class="LineNr"> 79 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># var line : (stream byte 512)</span>
|
||||
<span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># var label-stack : (stack int 32) # at most 32 levels of nesting</span>
|
||||
<span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># var next-label-id : int = 1</span>
|
||||
<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># var line: (stream byte 512)</span>
|
||||
<span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># var label-stack: (stack int 32) # at most 32 levels of nesting</span>
|
||||
<span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># var next-label-id: int = 1</span>
|
||||
<span id="L83" class="LineNr"> 83 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L84" class="LineNr"> 84 </span> <span class="subxComment"># clear-stream(line)</span>
|
||||
<span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># read-line-buffered(in, line)</span>
|
||||
|
|
@ -154,7 +154,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L95" class="LineNr"> 95 </span> <span class="subxComment"># print(out, "_break" top ":\n")</span>
|
||||
<span id="L96" class="LineNr"> 96 </span> <span class="subxComment"># continue</span>
|
||||
<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L98" class="LineNr"> 98 </span> <span class="subxComment"># var word-slice : (addr slice) = next-word-or-string(line)</span>
|
||||
<span id="L98" class="LineNr"> 98 </span> <span class="subxComment"># var word-slice: (addr slice) = next-word-or-string(line)</span>
|
||||
<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span>
|
||||
<span id="L100" class="LineNr">100 </span> <span class="subxComment"># break</span>
|
||||
<span id="L101" class="LineNr">101 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") # comment</span>
|
||||
|
|
@ -182,20 +182,20 @@ if ('onhashchange' in window) {
|
|||
<span id="L123" class="LineNr">123 </span> 57/push-edi
|
||||
<span id="L124" class="LineNr">124 </span> <span class="subxComment"># esi = in</span>
|
||||
<span id="L125" class="LineNr">125 </span> 8b/-> *(ebp+8) 6/r32/esi
|
||||
<span id="L126" class="LineNr">126 </span> <span class="subxComment"># var line/ecx : (stream byte 512)</span>
|
||||
<span id="L126" class="LineNr">126 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span>
|
||||
<span id="L127" class="LineNr">127 </span> 81 5/subop/subtract %esp 0x200/imm32
|
||||
<span id="L128" class="LineNr">128 </span> 68/push 0x200/imm32/length
|
||||
<span id="L129" class="LineNr">129 </span> 68/push 0/imm32/read
|
||||
<span id="L130" class="LineNr">130 </span> 68/push 0/imm32/write
|
||||
<span id="L131" class="LineNr">131 </span> 89/<- %ecx 4/r32/esp
|
||||
<span id="L132" class="LineNr">132 </span> <span class="subxComment"># var label-stack/edx : (stack int 32)</span>
|
||||
<span id="L132" class="LineNr">132 </span> <span class="subxComment"># var label-stack/edx: (stack int 32)</span>
|
||||
<span id="L133" class="LineNr">133 </span> 81 5/subop/subtract %esp 0x80/imm32
|
||||
<span id="L134" class="LineNr">134 </span> 68/push 0x80/imm32/length
|
||||
<span id="L135" class="LineNr">135 </span> 68/push 0/imm32/top
|
||||
<span id="L136" class="LineNr">136 </span> 89/<- %edx 4/r32/esp
|
||||
<span id="L137" class="LineNr">137 </span> <span class="subxComment"># var next-label-id/ebx : int = 1</span>
|
||||
<span id="L137" class="LineNr">137 </span> <span class="subxComment"># var next-label-id/ebx: int = 1</span>
|
||||
<span id="L138" class="LineNr">138 </span> c7 0/subop/copy %ebx 1/imm32
|
||||
<span id="L139" class="LineNr">139 </span> <span class="subxComment"># var word-slice/edi : slice</span>
|
||||
<span id="L139" class="LineNr">139 </span> <span class="subxComment"># var word-slice/edi: slice</span>
|
||||
<span id="L140" class="LineNr">140 </span> 68/push 0/imm32/end
|
||||
<span id="L141" class="LineNr">141 </span> 68/push 0/imm32/start
|
||||
<span id="L142" class="LineNr">142 </span> 89/<- %edi 4/r32/esp
|
||||
|
|
|
|||
|
|
@ -136,10 +136,10 @@ if ('onhashchange' in window) {
|
|||
<span id="L75" class="LineNr"> 75 </span> b8/copy-to-eax 1/imm32/exit
|
||||
<span id="L76" class="LineNr"> 76 </span> cd/syscall 0x80/imm8
|
||||
<span id="L77" class="LineNr"> 77 </span>
|
||||
<span id="L78" class="LineNr"> 78 </span><span class="subxFunction">subx-calls</span>: <span class="subxComment"># in : (addr buffered-file), out : (addr buffered-file)</span>
|
||||
<span id="L78" class="LineNr"> 78 </span><span class="subxFunction">subx-calls</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file)</span>
|
||||
<span id="L79" class="LineNr"> 79 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># var line : (stream byte 512)</span>
|
||||
<span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># var words : (stream slice 16) # at most function name and 15 args</span>
|
||||
<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># var line: (stream byte 512)</span>
|
||||
<span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># var words: (stream slice 16) # at most function name and 15 args</span>
|
||||
<span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L83" class="LineNr"> 83 </span> <span class="subxComment"># clear-stream(line)</span>
|
||||
<span id="L84" class="LineNr"> 84 </span> <span class="subxComment"># read-line-buffered(in, line)</span>
|
||||
|
|
@ -166,13 +166,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L105" class="LineNr"> 105 </span> 51/push-ecx
|
||||
<span id="L106" class="LineNr"> 106 </span> 52/push-edx
|
||||
<span id="L107" class="LineNr"> 107 </span> 56/push-esi
|
||||
<span id="L108" class="LineNr"> 108 </span> <span class="subxComment"># var line/esi : (stream byte 512)</span>
|
||||
<span id="L108" class="LineNr"> 108 </span> <span class="subxComment"># var line/esi: (stream byte 512)</span>
|
||||
<span id="L109" class="LineNr"> 109 </span> 81 5/subop/subtract %esp 0x200/imm32
|
||||
<span id="L110" class="LineNr"> 110 </span> 68/push 0x200/imm32/length
|
||||
<span id="L111" class="LineNr"> 111 </span> 68/push 0/imm32/read
|
||||
<span id="L112" class="LineNr"> 112 </span> 68/push 0/imm32/write
|
||||
<span id="L113" class="LineNr"> 113 </span> 89/<- %esi 4/r32/esp
|
||||
<span id="L114" class="LineNr"> 114 </span> <span class="subxComment"># var words/edx : (stream slice 128) # 16 rows * 8 bytes/row</span>
|
||||
<span id="L114" class="LineNr"> 114 </span> <span class="subxComment"># var words/edx: (stream slice 128) # 16 rows * 8 bytes/row</span>
|
||||
<span id="L115" class="LineNr"> 115 </span> 81 5/subop/subtract %esp 0x80/imm32
|
||||
<span id="L116" class="LineNr"> 116 </span> 68/push 0x80/imm32/length
|
||||
<span id="L117" class="LineNr"> 117 </span> 68/push 0/imm32/read
|
||||
|
|
@ -293,9 +293,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L232" class="LineNr"> 232 </span> 5d/pop-to-ebp
|
||||
<span id="L233" class="LineNr"> 233 </span> c3/return
|
||||
<span id="L234" class="LineNr"> 234 </span>
|
||||
<span id="L235" class="LineNr"> 235 </span><span class="subxFunction">parse-line</span>: <span class="subxComment"># line : (addr stream byte), words : (addr stream slice)</span>
|
||||
<span id="L235" class="LineNr"> 235 </span><span class="subxFunction">parse-line</span>: <span class="subxComment"># line: (addr stream byte), words: (addr stream slice)</span>
|
||||
<span id="L236" class="LineNr"> 236 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L237" class="LineNr"> 237 </span> <span class="subxComment"># var word-slice : slice</span>
|
||||
<span id="L237" class="LineNr"> 237 </span> <span class="subxComment"># var word-slice: slice</span>
|
||||
<span id="L238" class="LineNr"> 238 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L239" class="LineNr"> 239 </span> <span class="subxComment"># word-slice = next-word-string-or-expression-without-metadata(line)</span>
|
||||
<span id="L240" class="LineNr"> 240 </span> <span class="subxComment"># if slice-empty?(word-slice)</span>
|
||||
|
|
@ -308,7 +308,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L247" class="LineNr"> 247 </span> 89/<- %ebp 4/r32/esp
|
||||
<span id="L248" class="LineNr"> 248 </span> <span class="subxS1Comment"># . save registers</span>
|
||||
<span id="L249" class="LineNr"> 249 </span> 51/push-ecx
|
||||
<span id="L250" class="LineNr"> 250 </span> <span class="subxComment"># var word-slice/ecx : slice</span>
|
||||
<span id="L250" class="LineNr"> 250 </span> <span class="subxComment"># var word-slice/ecx: slice</span>
|
||||
<span id="L251" class="LineNr"> 251 </span> 68/push 0/imm32/end
|
||||
<span id="L252" class="LineNr"> 252 </span> 68/push 0/imm32/start
|
||||
<span id="L253" class="LineNr"> 253 </span> 89/<- %ecx 4/r32/esp
|
||||
|
|
@ -363,7 +363,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L341" class="LineNr"> 341 </span> 5d/pop-to-ebp
|
||||
<span id="L342" class="LineNr"> 342 </span> c3/return
|
||||
<span id="L343" class="LineNr"> 343 </span>
|
||||
<span id="L344" class="LineNr"> 344 </span><span class="subxFunction">emit-call</span>: <span class="subxComment"># out : (addr buffered-file), words : (addr stream slice)</span>
|
||||
<span id="L344" class="LineNr"> 344 </span><span class="subxFunction">emit-call</span>: <span class="subxComment"># out: (addr buffered-file), words: (addr stream slice)</span>
|
||||
<span id="L345" class="LineNr"> 345 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L346" class="LineNr"> 346 </span> <span class="subxComment"># if (words->write < 8) abort</span>
|
||||
<span id="L347" class="LineNr"> 347 </span> <span class="subxComment"># curr = &words->data[words->write-8]</span>
|
||||
|
|
@ -404,9 +404,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L382" class="LineNr"> 382 </span> 8b/-> *esi 1/r32/ecx
|
||||
<span id="L383" class="LineNr"> 383 </span> 81 5/subop/subtract %ecx 8/imm32
|
||||
<span id="L384" class="LineNr"> 384 </span> 0f 8c/jump-if-< $emit-call:error1/disp32
|
||||
<span id="L385" class="LineNr"> 385 </span> <span class="subxComment"># var curr/ecx : (addr slice) = &words->data[words->write-8]</span>
|
||||
<span id="L385" class="LineNr"> 385 </span> <span class="subxComment"># var curr/ecx: (addr slice) = &words->data[words->write-8]</span>
|
||||
<span id="L386" class="LineNr"> 386 </span> 8d/copy-address *(esi+ecx+0xc) 1/r32/ecx
|
||||
<span id="L387" class="LineNr"> 387 </span> <span class="subxComment"># var min/edx : (addr byte) = words->data</span>
|
||||
<span id="L387" class="LineNr"> 387 </span> <span class="subxComment"># var min/edx: (addr byte) = words->data</span>
|
||||
<span id="L388" class="LineNr"> 388 </span> 8d/copy-address *(esi+0xc) 2/r32/edx
|
||||
<span id="L389" class="LineNr"> 389 </span> <span class="subxH1Comment"># - emit pushes</span>
|
||||
<span id="L390" class="LineNr"> 390 </span><span class="Constant">$emit-call:push-loop</span>:
|
||||
|
|
@ -414,9 +414,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L392" class="LineNr"> 392 </span> 39/compare %ecx 2/r32/edx
|
||||
<span id="L393" class="LineNr"> 393 </span> 0f 8e/jump-if-<= $emit-call:call-instruction/disp32
|
||||
<span id="L394" class="LineNr"> 394 </span> <span class="subxComment"># if (*curr->start in '%' '*') goto push-rm32</span>
|
||||
<span id="L395" class="LineNr"> 395 </span> <span class="subxS1Comment"># . var start/eax : (addr byte) = curr->start</span>
|
||||
<span id="L395" class="LineNr"> 395 </span> <span class="subxS1Comment"># . var start/eax: (addr byte) = curr->start</span>
|
||||
<span id="L396" class="LineNr"> 396 </span> 8b/-> *ecx 0/r32/eax
|
||||
<span id="L397" class="LineNr"> 397 </span> <span class="subxS1Comment"># . var c/eax : byte = *eax</span>
|
||||
<span id="L397" class="LineNr"> 397 </span> <span class="subxS1Comment"># . var c/eax: byte = *eax</span>
|
||||
<span id="L398" class="LineNr"> 398 </span> 8b/-> *eax 0/r32/eax
|
||||
<span id="L399" class="LineNr"> 399 </span> 81 4/subop/and %eax 0xff/imm32
|
||||
<span id="L400" class="LineNr"> 400 </span> <span class="subxS1Comment"># . if (c == '%') goto push-rm32</span>
|
||||
|
|
@ -732,7 +732,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L742" class="LineNr"> 742 </span> 5d/pop-to-ebp
|
||||
<span id="L743" class="LineNr"> 743 </span> c3/return
|
||||
<span id="L744" class="LineNr"> 744 </span>
|
||||
<span id="L745" class="LineNr"> 745 </span><span class="subxFunction">next-word-string-or-expression-without-metadata</span>: <span class="subxComment"># line : (addr stream byte), out : (addr slice)</span>
|
||||
<span id="L745" class="LineNr"> 745 </span><span class="subxFunction">next-word-string-or-expression-without-metadata</span>: <span class="subxComment"># line: (addr stream byte), out: (addr slice)</span>
|
||||
<span id="L746" class="LineNr"> 746 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L747" class="LineNr"> 747 </span> <span class="subxComment"># skip-chars-matching(line, ' ')</span>
|
||||
<span id="L748" class="LineNr"> 748 </span> <span class="subxComment"># if line->read >= line->write # end of line</span>
|
||||
|
|
@ -821,7 +821,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L831" class="LineNr"> 831 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax
|
||||
<span id="L832" class="LineNr"> 832 </span> 89/<- *edi 0/r32/eax
|
||||
<span id="L833" class="LineNr"> 833 </span> <span class="subxComment"># if (line->data[line->read] != '#') goto next check</span>
|
||||
<span id="L834" class="LineNr"> 834 </span> <span class="subxS1Comment"># . var eax : byte = line->data[line->read]</span>
|
||||
<span id="L834" class="LineNr"> 834 </span> <span class="subxS1Comment"># . var eax: byte = line->data[line->read]</span>
|
||||
<span id="L835" class="LineNr"> 835 </span> 31/xor %eax 0/r32/eax
|
||||
<span id="L836" class="LineNr"> 836 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL
|
||||
<span id="L837" class="LineNr"> 837 </span> <span class="subxS1Comment"># . if (eax != '#') goto next check</span>
|
||||
|
|
@ -1182,7 +1182,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1192" class="LineNr">1192 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L1193" class="LineNr">1193 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1194" class="LineNr">1194 </span> 81 0/subop/add %esp 4/imm32
|
||||
<span id="L1195" class="LineNr">1195 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L1195" class="LineNr">1195 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L1196" class="LineNr">1196 </span> 68/push 0/imm32/end
|
||||
<span id="L1197" class="LineNr">1197 </span> 68/push 0/imm32/start
|
||||
<span id="L1198" class="LineNr">1198 </span> 89/<- %ecx 4/r32/esp
|
||||
|
|
@ -1255,7 +1255,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1265" class="LineNr">1265 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L1266" class="LineNr">1266 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1267" class="LineNr">1267 </span> 81 0/subop/add %esp 4/imm32
|
||||
<span id="L1268" class="LineNr">1268 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L1268" class="LineNr">1268 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L1269" class="LineNr">1269 </span> 68/push 0/imm32/end
|
||||
<span id="L1270" class="LineNr">1270 </span> 68/push 0/imm32/start
|
||||
<span id="L1271" class="LineNr">1271 </span> 89/<- %ecx 4/r32/esp
|
||||
|
|
@ -1328,7 +1328,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1338" class="LineNr">1338 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L1339" class="LineNr">1339 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1340" class="LineNr">1340 </span> 81 0/subop/add %esp 4/imm32
|
||||
<span id="L1341" class="LineNr">1341 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L1341" class="LineNr">1341 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L1342" class="LineNr">1342 </span> 68/push 0/imm32/end
|
||||
<span id="L1343" class="LineNr">1343 </span> 68/push 0/imm32/start
|
||||
<span id="L1344" class="LineNr">1344 </span> 89/<- %ecx 4/r32/esp
|
||||
|
|
@ -1370,7 +1370,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1380" class="LineNr">1380 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L1381" class="LineNr">1381 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1382" class="LineNr">1382 </span> 81 0/subop/add %esp 4/imm32
|
||||
<span id="L1383" class="LineNr">1383 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L1383" class="LineNr">1383 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L1384" class="LineNr">1384 </span> 68/push 0/imm32/end
|
||||
<span id="L1385" class="LineNr">1385 </span> 68/push 0/imm32/start
|
||||
<span id="L1386" class="LineNr">1386 </span> 89/<- %ecx 4/r32/esp
|
||||
|
|
@ -1433,7 +1433,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1443" class="LineNr">1443 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L1444" class="LineNr">1444 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1445" class="LineNr">1445 </span> 81 0/subop/add %esp 4/imm32
|
||||
<span id="L1446" class="LineNr">1446 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L1446" class="LineNr">1446 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L1447" class="LineNr">1447 </span> 68/push 0/imm32/end
|
||||
<span id="L1448" class="LineNr">1448 </span> 68/push 0/imm32/start
|
||||
<span id="L1449" class="LineNr">1449 </span> 89/<- %ecx 4/r32/esp
|
||||
|
|
@ -1496,7 +1496,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1506" class="LineNr">1506 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L1507" class="LineNr">1507 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1508" class="LineNr">1508 </span> 81 0/subop/add %esp 4/imm32
|
||||
<span id="L1509" class="LineNr">1509 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L1509" class="LineNr">1509 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L1510" class="LineNr">1510 </span> 68/push 0/imm32/end
|
||||
<span id="L1511" class="LineNr">1511 </span> 68/push 0/imm32/start
|
||||
<span id="L1512" class="LineNr">1512 </span> 89/<- %ecx 4/r32/esp
|
||||
|
|
@ -1559,7 +1559,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1569" class="LineNr">1569 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L1570" class="LineNr">1570 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1571" class="LineNr">1571 </span> 81 0/subop/add %esp 4/imm32
|
||||
<span id="L1572" class="LineNr">1572 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L1572" class="LineNr">1572 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L1573" class="LineNr">1573 </span> 68/push 0/imm32/end
|
||||
<span id="L1574" class="LineNr">1574 </span> 68/push 0/imm32/start
|
||||
<span id="L1575" class="LineNr">1575 </span> 89/<- %ecx 4/r32/esp
|
||||
|
|
@ -1614,7 +1614,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1624" class="LineNr">1624 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L1625" class="LineNr">1625 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1626" class="LineNr">1626 </span> 81 0/subop/add %esp 4/imm32
|
||||
<span id="L1627" class="LineNr">1627 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L1627" class="LineNr">1627 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L1628" class="LineNr">1628 </span> 68/push 0/imm32/end
|
||||
<span id="L1629" class="LineNr">1629 </span> 68/push 0/imm32/start
|
||||
<span id="L1630" class="LineNr">1630 </span> 89/<- %ecx 4/r32/esp
|
||||
|
|
@ -1669,7 +1669,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1679" class="LineNr">1679 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L1680" class="LineNr">1680 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1681" class="LineNr">1681 </span> 81 0/subop/add %esp 4/imm32
|
||||
<span id="L1682" class="LineNr">1682 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L1682" class="LineNr">1682 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L1683" class="LineNr">1683 </span> 68/push 0/imm32/end
|
||||
<span id="L1684" class="LineNr">1684 </span> 68/push 0/imm32/start
|
||||
<span id="L1685" class="LineNr">1685 </span> 89/<- %ecx 4/r32/esp
|
||||
|
|
@ -1724,7 +1724,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1734" class="LineNr">1734 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L1735" class="LineNr">1735 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1736" class="LineNr">1736 </span> 81 0/subop/add %esp 4/imm32
|
||||
<span id="L1737" class="LineNr">1737 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L1737" class="LineNr">1737 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L1738" class="LineNr">1738 </span> 68/push 0/imm32/end
|
||||
<span id="L1739" class="LineNr">1739 </span> 68/push 0/imm32/start
|
||||
<span id="L1740" class="LineNr">1740 </span> 89/<- %ecx 4/r32/esp
|
||||
|
|
|
|||
|
|
@ -128,7 +128,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L67" class="LineNr"> 67 </span> eb/jump $main:end/disp8
|
||||
<span id="L68" class="LineNr"> 68 </span><span class="Constant">$run-main</span>:
|
||||
<span id="L69" class="LineNr"> 69 </span> <span class="subxH1Comment"># - otherwise read a program from stdin and emit its translation to stdout</span>
|
||||
<span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># var ed/eax : exit-descriptor</span>
|
||||
<span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># var ed/eax: exit-descriptor</span>
|
||||
<span id="L71" class="LineNr"> 71 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L72" class="LineNr"> 72 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span>
|
||||
<span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># configure ed to really exit()</span>
|
||||
|
|
@ -151,7 +151,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L90" class="LineNr"> 90 </span> cd/syscall 0x80/imm8
|
||||
<span id="L91" class="LineNr"> 91 </span>
|
||||
<span id="L92" class="LineNr"> 92 </span><span class="subxComment"># the main entry point</span>
|
||||
<span id="L93" class="LineNr"> 93 </span><span class="subxFunction">compile</span>: <span class="subxComment"># in : (addr buffered-file), out : fd or (addr stream byte), err : fd or (addr stream byte), ed : (addr exit-descriptor)</span>
|
||||
<span id="L93" class="LineNr"> 93 </span><span class="subxFunction">compile</span>: <span class="subxComment"># in: (addr buffered-file), out: fd or (addr stream byte), err: fd or (addr stream byte), ed: (addr exit-descriptor)</span>
|
||||
<span id="L94" class="LineNr"> 94 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L95" class="LineNr"> 95 </span> 55/push-ebp
|
||||
<span id="L96" class="LineNr"> 96 </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>
|
||||
|
|
@ -166,7 +166,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L105" class="LineNr">105 </span> e8/call <a href='crenshaw2-1.subx.html#L515'>get-char</a>/disp32
|
||||
<span id="L106" class="LineNr">106 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L107" class="LineNr">107 </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="L108" class="LineNr">108 </span> <span class="subxComment"># var num/ecx : (stream byte 7)</span>
|
||||
<span id="L108" class="LineNr">108 </span> <span class="subxComment"># var num/ecx: (stream byte 7)</span>
|
||||
<span id="L109" class="LineNr">109 </span> <span class="subxComment"># Numbers can be 32 bits or 8 hex bytes long. One of them will be in 'Look', so we need space for 7 bytes.</span>
|
||||
<span id="L110" class="LineNr">110 </span> <span class="subxComment"># Sizing the stream just right buys us overflow-handling for free inside 'get-num'.</span>
|
||||
<span id="L111" class="LineNr">111 </span> <span class="subxComment"># Add 12 bytes for 'read', 'write' and 'length' fields, for a total of 19 bytes, or 0x13 in hex.</span>
|
||||
|
|
@ -252,7 +252,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L191" class="LineNr">191 </span><span class="subxComment"># space in 'out'.</span>
|
||||
<span id="L192" class="LineNr">192 </span><span class="subxComment"># Input comes from the global variable 'Look' (first byte) and the argument</span>
|
||||
<span id="L193" class="LineNr">193 </span><span class="subxComment"># 'in' (rest). We leave the next byte from 'in' into 'Look' on exit.</span>
|
||||
<span id="L194" class="LineNr">194 </span><span class="subxFunction">get-num</span>: <span class="subxComment"># in : (addr buffered-file), out : (addr stream byte), err : fd or (addr stream byte), ed : (addr exit-descriptor)</span>
|
||||
<span id="L194" class="LineNr">194 </span><span class="subxFunction">get-num</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr stream byte), err: fd or (addr stream byte), ed: (addr exit-descriptor)</span>
|
||||
<span id="L195" class="LineNr">195 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L196" class="LineNr">196 </span> <span class="subxComment"># if (!is-digit?(Look)) expected(ed, err, "integer")</span>
|
||||
<span id="L197" class="LineNr">197 </span> <span class="subxComment"># if out->write >= out->length</span>
|
||||
|
|
@ -400,7 +400,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L339" class="LineNr">339 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L340" class="LineNr">340 </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="L341" class="LineNr">341 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span>
|
||||
<span id="L342" class="LineNr">342 </span> <span class="subxS1Comment"># . var ed/eax : exit-descriptor</span>
|
||||
<span id="L342" class="LineNr">342 </span> <span class="subxS1Comment"># . var ed/eax: exit-descriptor</span>
|
||||
<span id="L343" class="LineNr">343 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L344" class="LineNr">344 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span>
|
||||
<span id="L345" class="LineNr">345 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 16)</span>
|
||||
|
|
@ -489,7 +489,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L428" class="LineNr">428 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L429" class="LineNr">429 </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="L430" class="LineNr">430 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span>
|
||||
<span id="L431" class="LineNr">431 </span> <span class="subxS1Comment"># . var ed/eax : exit-descriptor</span>
|
||||
<span id="L431" class="LineNr">431 </span> <span class="subxS1Comment"># . var ed/eax: exit-descriptor</span>
|
||||
<span id="L432" class="LineNr">432 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L433" class="LineNr">433 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span>
|
||||
<span id="L434" class="LineNr">434 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 16)</span>
|
||||
|
|
@ -531,7 +531,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L470" class="LineNr">470 </span><span class="subxComment">## helpers</span>
|
||||
<span id="L471" class="LineNr">471 </span>
|
||||
<span id="L472" class="LineNr">472 </span><span class="subxComment"># write(f, "Error: "+s+" expected\n") then stop(ed, 1)</span>
|
||||
<span id="L473" class="LineNr">473 </span><span class="subxFunction">expected</span>: <span class="subxComment"># ed : (addr exit-descriptor), f : fd or (addr stream byte), s : (addr array byte)</span>
|
||||
<span id="L473" class="LineNr">473 </span><span class="subxFunction">expected</span>: <span class="subxComment"># ed: (addr exit-descriptor), f: fd or (addr stream byte), s: (addr array byte)</span>
|
||||
<span id="L474" class="LineNr">474 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L475" class="LineNr">475 </span> 55/push-ebp
|
||||
<span id="L476" class="LineNr">476 </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>
|
||||
|
|
@ -573,7 +573,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L512" class="LineNr">512 </span> c3/return
|
||||
<span id="L513" class="LineNr">513 </span>
|
||||
<span id="L514" class="LineNr">514 </span><span class="subxComment"># read a byte from 'f', and save it in 'Look'</span>
|
||||
<span id="L515" class="LineNr">515 </span><span class="subxFunction">get-char</span>: <span class="subxComment"># f : (addr buffered-file)</span>
|
||||
<span id="L515" class="LineNr">515 </span><span class="subxFunction">get-char</span>: <span class="subxComment"># f: (addr buffered-file)</span>
|
||||
<span id="L516" class="LineNr">516 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L517" class="LineNr">517 </span> 55/push-ebp
|
||||
<span id="L518" class="LineNr">518 </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>
|
||||
|
|
@ -596,7 +596,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L535" class="LineNr">535 </span> 5d/pop-to-ebp
|
||||
<span id="L536" class="LineNr">536 </span> c3/return
|
||||
<span id="L537" class="LineNr">537 </span>
|
||||
<span id="L538" class="LineNr">538 </span><span class="subxFunction">is-digit?</span>: <span class="subxComment"># c : int -> eax : boolean</span>
|
||||
<span id="L538" class="LineNr">538 </span><span class="subxFunction">is-digit?</span>: <span class="subxComment"># c: int -> eax: boolean</span>
|
||||
<span id="L539" class="LineNr">539 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L540" class="LineNr">540 </span> 55/push-ebp
|
||||
<span id="L541" class="LineNr">541 </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>
|
||||
|
|
|
|||
|
|
@ -128,7 +128,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L67" class="LineNr"> 67 </span> eb/jump $main:end/disp8
|
||||
<span id="L68" class="LineNr"> 68 </span><span class="Constant">$run-main</span>:
|
||||
<span id="L69" class="LineNr"> 69 </span> <span class="subxH1Comment"># - otherwise read a program from stdin and emit its translation to stdout</span>
|
||||
<span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># var ed/eax : exit-descriptor</span>
|
||||
<span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># var ed/eax: exit-descriptor</span>
|
||||
<span id="L71" class="LineNr"> 71 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L72" class="LineNr"> 72 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span>
|
||||
<span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># configure ed to really exit()</span>
|
||||
|
|
@ -151,7 +151,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L90" class="LineNr"> 90 </span> cd/syscall 0x80/imm8
|
||||
<span id="L91" class="LineNr"> 91 </span>
|
||||
<span id="L92" class="LineNr"> 92 </span><span class="subxComment"># the main entry point</span>
|
||||
<span id="L93" class="LineNr"> 93 </span><span class="subxFunction">compile</span>: <span class="subxComment"># in : (addr buffered-file), out : fd or (addr stream byte), err : fd or (addr stream byte), ed : (addr exit-descriptor)</span>
|
||||
<span id="L93" class="LineNr"> 93 </span><span class="subxFunction">compile</span>: <span class="subxComment"># in: (addr buffered-file), out: fd or (addr stream byte), err: fd or (addr stream byte), ed: (addr exit-descriptor)</span>
|
||||
<span id="L94" class="LineNr"> 94 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L95" class="LineNr"> 95 </span> 55/push-ebp
|
||||
<span id="L96" class="LineNr"> 96 </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>
|
||||
|
|
@ -166,7 +166,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L105" class="LineNr">105 </span> e8/call <a href='crenshaw2-1b.subx.html#L709'>get-char</a>/disp32
|
||||
<span id="L106" class="LineNr">106 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L107" class="LineNr">107 </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="L108" class="LineNr">108 </span> <span class="subxComment"># var num/ecx : (stream byte 7)</span>
|
||||
<span id="L108" class="LineNr">108 </span> <span class="subxComment"># var num/ecx: (stream byte 7)</span>
|
||||
<span id="L109" class="LineNr">109 </span> <span class="subxComment"># Numbers can be 32 bits or 8 hex bytes long. One of them will be in 'Look', so we need space for 7 bytes.</span>
|
||||
<span id="L110" class="LineNr">110 </span> <span class="subxComment"># Sizing the stream just right buys us overflow-handling for free inside 'get-num'.</span>
|
||||
<span id="L111" class="LineNr">111 </span> <span class="subxComment"># Add 12 bytes for 'read', 'write' and 'length' fields, for a total of 19 bytes, or 0x13 in hex.</span>
|
||||
|
|
@ -252,7 +252,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L191" class="LineNr">191 </span><span class="subxComment"># no space in 'out'.</span>
|
||||
<span id="L192" class="LineNr">192 </span><span class="subxComment"># Input comes from the global variable 'Look' (first byte) and the argument</span>
|
||||
<span id="L193" class="LineNr">193 </span><span class="subxComment"># 'in' (rest). We leave the next byte from 'in' into 'Look' on exit.</span>
|
||||
<span id="L194" class="LineNr">194 </span><span class="subxFunction">get-num</span>: <span class="subxComment"># in : (addr buffered-file), out : (addr stream byte), err : fd or (addr stream byte), ed : (addr exit-descriptor)</span>
|
||||
<span id="L194" class="LineNr">194 </span><span class="subxFunction">get-num</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr stream byte), err: fd or (addr stream byte), ed: (addr exit-descriptor)</span>
|
||||
<span id="L195" class="LineNr">195 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L196" class="LineNr">196 </span> <span class="subxComment"># if (!is-digit?(Look)) expected(ed, err, "integer")</span>
|
||||
<span id="L197" class="LineNr">197 </span> <span class="subxComment"># do</span>
|
||||
|
|
@ -416,7 +416,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L355" class="LineNr">355 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L356" class="LineNr">356 </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="L357" class="LineNr">357 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span>
|
||||
<span id="L358" class="LineNr">358 </span> <span class="subxS1Comment"># . var ed/eax : exit-descriptor</span>
|
||||
<span id="L358" class="LineNr">358 </span> <span class="subxS1Comment"># . var ed/eax: exit-descriptor</span>
|
||||
<span id="L359" class="LineNr">359 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L360" class="LineNr">360 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span>
|
||||
<span id="L361" class="LineNr">361 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 16)</span>
|
||||
|
|
@ -505,7 +505,7 @@ if ('onhashchange' in window) {
|
|||
<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> 8/imm32 <span class="subxComment"># add to esp</span>
|
||||
<span id="L446" class="LineNr">446 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span>
|
||||
<span id="L447" class="LineNr">447 </span> <span class="subxS1Comment"># . var ed/eax : exit-descriptor</span>
|
||||
<span id="L447" class="LineNr">447 </span> <span class="subxS1Comment"># . var ed/eax: exit-descriptor</span>
|
||||
<span id="L448" class="LineNr">448 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L449" class="LineNr">449 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span>
|
||||
<span id="L450" class="LineNr">450 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 16)</span>
|
||||
|
|
@ -588,7 +588,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L527" class="LineNr">527 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L528" class="LineNr">528 </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="L529" class="LineNr">529 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span>
|
||||
<span id="L530" class="LineNr">530 </span> <span class="subxS1Comment"># . var ed/eax : exit-descriptor</span>
|
||||
<span id="L530" class="LineNr">530 </span> <span class="subxS1Comment"># . var ed/eax: exit-descriptor</span>
|
||||
<span id="L531" class="LineNr">531 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L532" class="LineNr">532 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span>
|
||||
<span id="L533" class="LineNr">533 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 16)</span>
|
||||
|
|
@ -677,7 +677,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L616" class="LineNr">616 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L617" class="LineNr">617 </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="L618" class="LineNr">618 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span>
|
||||
<span id="L619" class="LineNr">619 </span> <span class="subxS1Comment"># . var ed/eax : exit-descriptor</span>
|
||||
<span id="L619" class="LineNr">619 </span> <span class="subxS1Comment"># . var ed/eax: exit-descriptor</span>
|
||||
<span id="L620" class="LineNr">620 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L621" class="LineNr">621 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span>
|
||||
<span id="L622" class="LineNr">622 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 16)</span>
|
||||
|
|
@ -725,7 +725,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L664" class="LineNr">664 </span><span class="subxComment">## helpers</span>
|
||||
<span id="L665" class="LineNr">665 </span>
|
||||
<span id="L666" class="LineNr">666 </span><span class="subxComment"># write(f, "Error: "+s+" expected\n") then stop(ed, 1)</span>
|
||||
<span id="L667" class="LineNr">667 </span><span class="subxFunction">expected</span>: <span class="subxComment"># ed : (addr exit-descriptor), f : fd or (addr stream byte), s : (addr array byte)</span>
|
||||
<span id="L667" class="LineNr">667 </span><span class="subxFunction">expected</span>: <span class="subxComment"># ed: (addr exit-descriptor), f: fd or (addr stream byte), s: (addr array byte)</span>
|
||||
<span id="L668" class="LineNr">668 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L669" class="LineNr">669 </span> 55/push-ebp
|
||||
<span id="L670" class="LineNr">670 </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>
|
||||
|
|
@ -767,7 +767,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L706" class="LineNr">706 </span> c3/return
|
||||
<span id="L707" class="LineNr">707 </span>
|
||||
<span id="L708" class="LineNr">708 </span><span class="subxComment"># read a byte from 'f', and save it in 'Look'</span>
|
||||
<span id="L709" class="LineNr">709 </span><span class="subxFunction">get-char</span>: <span class="subxComment"># f : (addr buffered-file)</span>
|
||||
<span id="L709" class="LineNr">709 </span><span class="subxFunction">get-char</span>: <span class="subxComment"># f: (addr buffered-file)</span>
|
||||
<span id="L710" class="LineNr">710 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L711" class="LineNr">711 </span> 55/push-ebp
|
||||
<span id="L712" class="LineNr">712 </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>
|
||||
|
|
@ -790,7 +790,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L729" class="LineNr">729 </span> 5d/pop-to-ebp
|
||||
<span id="L730" class="LineNr">730 </span> c3/return
|
||||
<span id="L731" class="LineNr">731 </span>
|
||||
<span id="L732" class="LineNr">732 </span><span class="subxFunction">is-digit?</span>: <span class="subxComment"># c : int -> eax : boolean</span>
|
||||
<span id="L732" class="LineNr">732 </span><span class="subxFunction">is-digit?</span>: <span class="subxComment"># c: int -> eax: boolean</span>
|
||||
<span id="L733" class="LineNr">733 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L734" class="LineNr">734 </span> 55/push-ebp
|
||||
<span id="L735" class="LineNr">735 </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>
|
||||
|
|
|
|||
|
|
@ -119,7 +119,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L56" class="LineNr"> 56 </span> eb/jump $subx-dquotes-main:end/disp8
|
||||
<span id="L57" class="LineNr"> 57 </span><span class="Constant">$subx-dquotes-main:interactive</span>:
|
||||
<span id="L58" class="LineNr"> 58 </span> <span class="subxH1Comment"># - otherwise convert stdin</span>
|
||||
<span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># var ed/eax : exit-descriptor</span>
|
||||
<span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># var ed/eax: exit-descriptor</span>
|
||||
<span id="L60" class="LineNr"> 60 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L61" class="LineNr"> 61 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span>
|
||||
<span id="L62" class="LineNr"> 62 </span> <span class="subxComment"># configure ed to really exit()</span>
|
||||
|
|
@ -145,10 +145,10 @@ if ('onhashchange' in window) {
|
|||
<span id="L82" class="LineNr"> 82 </span><span class="subxComment"># line = words separated by ' ', maybe followed by comment starting with '#'</span>
|
||||
<span id="L83" class="LineNr"> 83 </span><span class="subxComment"># word = datum until '/', then 0 or more metadata separated by '/'</span>
|
||||
<span id="L84" class="LineNr"> 84 </span>
|
||||
<span id="L85" class="LineNr"> 85 </span><span class="subxFunction">subx-dquotes</span>: <span class="subxComment"># in : (addr buffered-file), out : (addr buffered-file)</span>
|
||||
<span id="L85" class="LineNr"> 85 </span><span class="subxFunction">subx-dquotes</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file)</span>
|
||||
<span id="L86" class="LineNr"> 86 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L87" class="LineNr"> 87 </span> <span class="subxComment"># var line : (stream byte 512)</span>
|
||||
<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># var new-data-segment : (handle stream byte) = new-stream(Heap, Segment-size, 1)</span>
|
||||
<span id="L87" class="LineNr"> 87 </span> <span class="subxComment"># var line: (stream byte 512)</span>
|
||||
<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># var new-data-segment: (handle stream byte) = new-stream(Heap, Segment-size, 1)</span>
|
||||
<span id="L89" class="LineNr"> 89 </span> <span class="subxComment">#</span>
|
||||
<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># write(new-data-segment, "== data\n")</span>
|
||||
<span id="L91" class="LineNr"> 91 </span> <span class="subxComment"># # TODO: When it was originally written dquotes ran before assort, so</span>
|
||||
|
|
@ -188,13 +188,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L125" class="LineNr"> 125 </span> 53/push-ebx
|
||||
<span id="L126" class="LineNr"> 126 </span> 56/push-esi
|
||||
<span id="L127" class="LineNr"> 127 </span> 57/push-edi
|
||||
<span id="L128" class="LineNr"> 128 </span> <span class="subxComment"># var line/ecx : (stream byte 512)</span>
|
||||
<span id="L128" class="LineNr"> 128 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span>
|
||||
<span id="L129" class="LineNr"> 129 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L130" class="LineNr"> 130 </span> 68/push 0x200/imm32/length
|
||||
<span id="L131" class="LineNr"> 131 </span> 68/push 0/imm32/read
|
||||
<span id="L132" class="LineNr"> 132 </span> 68/push 0/imm32/write
|
||||
<span id="L133" class="LineNr"> 133 </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="L134" class="LineNr"> 134 </span> <span class="subxComment"># var word-slice/edx : slice</span>
|
||||
<span id="L134" class="LineNr"> 134 </span> <span class="subxComment"># var word-slice/edx: slice</span>
|
||||
<span id="L135" class="LineNr"> 135 </span> 68/push 0/imm32/end
|
||||
<span id="L136" class="LineNr"> 136 </span> 68/push 0/imm32/start
|
||||
<span id="L137" class="LineNr"> 137 </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>
|
||||
|
|
@ -261,9 +261,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L198" class="LineNr"> 198 </span> 0f 85/jump-if-!= $subx-dquotes:next-line/disp32
|
||||
<span id="L199" class="LineNr"> 199 </span><span class="Constant">$subx-dquotes:check-for-comment</span>:
|
||||
<span id="L200" class="LineNr"> 200 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) continue</span>
|
||||
<span id="L201" class="LineNr"> 201 </span> <span class="subxS1Comment"># . var start/esi : (addr byte) = word-slice->start</span>
|
||||
<span id="L201" class="LineNr"> 201 </span> <span class="subxS1Comment"># . var start/esi: (addr byte) = word-slice->start</span>
|
||||
<span id="L202" class="LineNr"> 202 </span> 8b/copy 0/mod/indirect 2/rm32/edx <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"># copy *edx to esi</span>
|
||||
<span id="L203" class="LineNr"> 203 </span> <span class="subxS1Comment"># . var c/eax : byte = *start</span>
|
||||
<span id="L203" class="LineNr"> 203 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span>
|
||||
<span id="L204" class="LineNr"> 204 </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="L205" class="LineNr"> 205 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <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 *esi to AL</span>
|
||||
<span id="L206" class="LineNr"> 206 </span> <span class="subxS1Comment"># . if (c == '#') continue</span>
|
||||
|
|
@ -350,7 +350,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L287" class="LineNr"> 287 </span>
|
||||
<span id="L288" class="LineNr"> 288 </span><span class="subxComment"># Write out 'string-literal' in a new format to 'out-segment', assign it a new</span>
|
||||
<span id="L289" class="LineNr"> 289 </span><span class="subxComment"># label, and write the new label out to 'out'.</span>
|
||||
<span id="L290" class="LineNr"> 290 </span><span class="subxFunction">process-string-literal</span>: <span class="subxComment"># string-literal : (addr slice), out : (addr buffered-file), out-segment : (addr stream byte)</span>
|
||||
<span id="L290" class="LineNr"> 290 </span><span class="subxFunction">process-string-literal</span>: <span class="subxComment"># string-literal: (addr slice), out: (addr buffered-file), out-segment: (addr stream byte)</span>
|
||||
<span id="L291" class="LineNr"> 291 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L292" class="LineNr"> 292 </span> <span class="subxComment"># print(out-segment, "_string#{Next-string-literal}:\n")</span>
|
||||
<span id="L293" class="LineNr"> 293 </span> <span class="subxComment"># emit-string-literal-data(out-segment, string-literal)</span>
|
||||
|
|
@ -363,7 +363,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L300" class="LineNr"> 300 </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="L301" class="LineNr"> 301 </span> <span class="subxS1Comment"># . save registers</span>
|
||||
<span id="L302" class="LineNr"> 302 </span> 51/push-ecx
|
||||
<span id="L303" class="LineNr"> 303 </span> <span class="subxComment"># var int32-stream/ecx : (stream byte 10) # number of decimal digits a 32-bit number can have</span>
|
||||
<span id="L303" class="LineNr"> 303 </span> <span class="subxComment"># var int32-stream/ecx: (stream byte 10) # number of decimal digits a 32-bit number can have</span>
|
||||
<span id="L304" class="LineNr"> 304 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xa/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L305" class="LineNr"> 305 </span> 68/push 0xa/imm32/decimal-digits-in-32bit-number
|
||||
<span id="L306" class="LineNr"> 306 </span> 68/push 0/imm32/read
|
||||
|
|
@ -852,7 +852,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L846" class="LineNr"> 846 </span> c3/return
|
||||
<span id="L847" class="LineNr"> 847 </span>
|
||||
<span id="L848" class="LineNr"> 848 </span><span class="subxComment"># generate the data segment contents byte by byte for a given slice</span>
|
||||
<span id="L849" class="LineNr"> 849 </span><span class="subxFunction">emit-string-literal-data</span>: <span class="subxComment"># out : (addr stream byte), word : (addr slice)</span>
|
||||
<span id="L849" class="LineNr"> 849 </span><span class="subxFunction">emit-string-literal-data</span>: <span class="subxComment"># out: (addr stream byte), word: (addr slice)</span>
|
||||
<span id="L850" class="LineNr"> 850 </span> <span class="subxComment"># pseudocode</span>
|
||||
<span id="L851" class="LineNr"> 851 </span> <span class="subxComment"># len = string-length-at-start-of-slice(word->start, word->end)</span>
|
||||
<span id="L852" class="LineNr"> 852 </span> <span class="subxComment"># print(out, "#{len}/imm32 ")</span>
|
||||
|
|
@ -891,14 +891,14 @@ if ('onhashchange' in window) {
|
|||
<span id="L885" class="LineNr"> 885 </span> 56/push-esi
|
||||
<span id="L886" class="LineNr"> 886 </span> <span class="subxComment"># esi = word</span>
|
||||
<span id="L887" class="LineNr"> 887 </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="L888" class="LineNr"> 888 </span> <span class="subxComment"># var idx/ebx : int = 0</span>
|
||||
<span id="L888" class="LineNr"> 888 </span> <span class="subxComment"># var idx/ebx: int = 0</span>
|
||||
<span id="L889" class="LineNr"> 889 </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="L890" class="LineNr"> 890 </span> <span class="subxComment"># var curr/edx : (addr byte) = word->start</span>
|
||||
<span id="L890" class="LineNr"> 890 </span> <span class="subxComment"># var curr/edx: (addr byte) = word->start</span>
|
||||
<span id="L891" class="LineNr"> 891 </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="L892" class="LineNr"> 892 </span> <span class="subxComment"># var max/esi : (addr byte) = word->end</span>
|
||||
<span id="L892" class="LineNr"> 892 </span> <span class="subxComment"># var max/esi: (addr byte) = word->end</span>
|
||||
<span id="L893" class="LineNr"> 893 </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="L894" class="LineNr"> 894 </span><span class="Constant">$emit-string-literal-data:emit-length</span>:
|
||||
<span id="L895" class="LineNr"> 895 </span> <span class="subxComment"># var len/eax : int = string-length-at-start-of-slice(word->start, word->end)</span>
|
||||
<span id="L895" class="LineNr"> 895 </span> <span class="subxComment"># var len/eax: int = string-length-at-start-of-slice(word->start, word->end)</span>
|
||||
<span id="L896" class="LineNr"> 896 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
<span id="L897" class="LineNr"> 897 </span> 56/push-esi
|
||||
<span id="L898" class="LineNr"> 898 </span> 52/push-edx
|
||||
|
|
@ -926,7 +926,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L920" class="LineNr"> 920 </span><span class="Constant">$emit-string-literal-data:loop-init</span>:
|
||||
<span id="L921" class="LineNr"> 921 </span> <span class="subxComment"># ++curr # skip initial '"'</span>
|
||||
<span id="L922" class="LineNr"> 922 </span> 42/increment-edx
|
||||
<span id="L923" class="LineNr"> 923 </span> <span class="subxComment"># var c/ecx : byte = 0</span>
|
||||
<span id="L923" class="LineNr"> 923 </span> <span class="subxComment"># var c/ecx: byte = 0</span>
|
||||
<span id="L924" class="LineNr"> 924 </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="L925" class="LineNr"> 925 </span><span class="Constant">$emit-string-literal-data:loop</span>:
|
||||
<span id="L926" class="LineNr"> 926 </span> <span class="subxComment"># if (curr >= max) break</span>
|
||||
|
|
@ -961,7 +961,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L955" class="LineNr"> 955 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L956" class="LineNr"> 956 </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="L957" class="LineNr"> 957 </span> <span class="subxComment"># if (is-alphanumeric?(*curr)) print(out, "/#{*curr}")</span>
|
||||
<span id="L958" class="LineNr"> 958 </span> <span class="subxS1Comment"># . var eax : boolean = is-alphanumeric?(CL)</span>
|
||||
<span id="L958" class="LineNr"> 958 </span> <span class="subxS1Comment"># . var eax: boolean = is-alphanumeric?(CL)</span>
|
||||
<span id="L959" class="LineNr"> 959 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
<span id="L960" class="LineNr"> 960 </span> 51/push-ecx
|
||||
<span id="L961" class="LineNr"> 961 </span> <span class="subxS2Comment"># . . call</span>
|
||||
|
|
@ -1027,7 +1027,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1021" class="LineNr">1021 </span> 5d/pop-to-ebp
|
||||
<span id="L1022" class="LineNr">1022 </span> c3/return
|
||||
<span id="L1023" class="LineNr">1023 </span>
|
||||
<span id="L1024" class="LineNr">1024 </span><span class="subxFunction">is-alphanumeric?</span>: <span class="subxComment"># c : int -> eax : boolean</span>
|
||||
<span id="L1024" class="LineNr">1024 </span><span class="subxFunction">is-alphanumeric?</span>: <span class="subxComment"># c: int -> eax: boolean</span>
|
||||
<span id="L1025" class="LineNr">1025 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L1026" class="LineNr">1026 </span> 55/push-ebp
|
||||
<span id="L1027" class="LineNr">1027 </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>
|
||||
|
|
@ -1260,9 +1260,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L1379" class="LineNr">1379 </span> c3/return
|
||||
<span id="L1380" class="LineNr">1380 </span>
|
||||
<span id="L1381" class="LineNr">1381 </span><span class="subxComment"># emit everything from a word except the initial datum</span>
|
||||
<span id="L1382" class="LineNr">1382 </span><span class="subxFunction">emit-metadata</span>: <span class="subxComment"># out : (addr buffered-file), word : (addr slice)</span>
|
||||
<span id="L1382" class="LineNr">1382 </span><span class="subxFunction">emit-metadata</span>: <span class="subxComment"># out: (addr buffered-file), word: (addr slice)</span>
|
||||
<span id="L1383" class="LineNr">1383 </span> <span class="subxComment"># pseudocode</span>
|
||||
<span id="L1384" class="LineNr">1384 </span> <span class="subxComment"># var slice : slice = {0, word->end}</span>
|
||||
<span id="L1384" class="LineNr">1384 </span> <span class="subxComment"># var slice: slice = {0, word->end}</span>
|
||||
<span id="L1385" class="LineNr">1385 </span> <span class="subxComment"># curr = word->start</span>
|
||||
<span id="L1386" class="LineNr">1386 </span> <span class="subxComment"># if *curr == '"'</span>
|
||||
<span id="L1387" class="LineNr">1387 </span> <span class="subxComment"># curr = skip-string-in-slice(curr, word->end)</span>
|
||||
|
|
@ -1287,11 +1287,11 @@ if ('onhashchange' in window) {
|
|||
<span id="L1406" class="LineNr">1406 </span> 56/push-esi
|
||||
<span id="L1407" class="LineNr">1407 </span> <span class="subxComment"># esi = word</span>
|
||||
<span id="L1408" class="LineNr">1408 </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="L1409" class="LineNr">1409 </span> <span class="subxComment"># var curr/ecx : (addr byte) = word->start</span>
|
||||
<span id="L1409" class="LineNr">1409 </span> <span class="subxComment"># var curr/ecx: (addr byte) = word->start</span>
|
||||
<span id="L1410" class="LineNr">1410 </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="L1411" class="LineNr">1411 </span> <span class="subxComment"># var end/edx : (addr byte) = word->end</span>
|
||||
<span id="L1411" class="LineNr">1411 </span> <span class="subxComment"># var end/edx: (addr byte) = word->end</span>
|
||||
<span id="L1412" class="LineNr">1412 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to edx</span>
|
||||
<span id="L1413" class="LineNr">1413 </span> <span class="subxComment"># var slice/ebx : slice = {0, end}</span>
|
||||
<span id="L1413" class="LineNr">1413 </span> <span class="subxComment"># var slice/ebx: slice = {0, end}</span>
|
||||
<span id="L1414" class="LineNr">1414 </span> 52/push-edx
|
||||
<span id="L1415" class="LineNr">1415 </span> 68/push 0/imm32
|
||||
<span id="L1416" class="LineNr">1416 </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>
|
||||
|
|
@ -1634,7 +1634,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1778" class="LineNr">1778 </span> 5d/pop-to-ebp
|
||||
<span id="L1779" class="LineNr">1779 </span> c3/return
|
||||
<span id="L1780" class="LineNr">1780 </span>
|
||||
<span id="L1781" class="LineNr">1781 </span><span class="subxFunction">string-length-at-start-of-slice</span>: <span class="subxComment"># curr : (addr byte), end : (addr byte) -> length/eax</span>
|
||||
<span id="L1781" class="LineNr">1781 </span><span class="subxFunction">string-length-at-start-of-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte) -> length/eax</span>
|
||||
<span id="L1782" class="LineNr">1782 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L1783" class="LineNr">1783 </span> 55/push-ebp
|
||||
<span id="L1784" class="LineNr">1784 </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>
|
||||
|
|
@ -1646,9 +1646,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L1790" class="LineNr">1790 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span>
|
||||
<span id="L1791" class="LineNr">1791 </span> <span class="subxComment"># edx = end</span>
|
||||
<span id="L1792" class="LineNr">1792 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span>
|
||||
<span id="L1793" class="LineNr">1793 </span> <span class="subxComment"># var length/eax : int = 0</span>
|
||||
<span id="L1793" class="LineNr">1793 </span> <span class="subxComment"># var length/eax: int = 0</span>
|
||||
<span id="L1794" class="LineNr">1794 </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="L1795" class="LineNr">1795 </span> <span class="subxComment"># var c/ebx : byte = 0</span>
|
||||
<span id="L1795" class="LineNr">1795 </span> <span class="subxComment"># var c/ebx: byte = 0</span>
|
||||
<span id="L1796" class="LineNr">1796 </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="L1797" class="LineNr">1797 </span> <span class="subxComment"># skip initial dquote</span>
|
||||
<span id="L1798" class="LineNr">1798 </span> 41/increment-ecx
|
||||
|
|
|
|||
|
|
@ -92,7 +92,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L33" class="LineNr">33 </span>
|
||||
<span id="L34" class="LineNr">34 </span><span class="subxComment"># compare two null-terminated ascii strings</span>
|
||||
<span id="L35" class="LineNr">35 </span><span class="subxComment"># reason for the name: the only place we should have null-terminated ascii strings is from commandline args</span>
|
||||
<span id="L36" class="LineNr">36 </span><span class="subxFunction">argv-equal</span>: <span class="subxComment"># (s1, s2) : null-terminated ascii strings -> eax : boolean</span>
|
||||
<span id="L36" class="LineNr">36 </span><span class="subxFunction">argv-equal</span>: <span class="subxComment"># (s1, s2): null-terminated ascii strings -> eax: boolean</span>
|
||||
<span id="L37" class="LineNr">37 </span> <span class="subxComment"># initialize s1 (ecx) and s2 (edx)</span>
|
||||
<span id="L38" class="LineNr">38 </span> 8b/copy 1/mod/*+disp8 4/rm32/sib 4/base/esp 4/index/none <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esp+4) to ecx</span>
|
||||
<span id="L39" class="LineNr">39 </span> 8b/copy 1/mod/*+disp8 4/rm32/sib 4/base/esp 4/index/none <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esp+8) to edx</span>
|
||||
|
|
|
|||
|
|
@ -89,7 +89,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L27" class="LineNr"> 27 </span>
|
||||
<span id="L28" class="LineNr"> 28 </span><span class="subxComment"># compare a null-terminated ascii string with a more idiomatic length-prefixed byte array</span>
|
||||
<span id="L29" class="LineNr"> 29 </span><span class="subxComment"># reason for the name: the only place we should have null-terminated ascii strings is from commandline args</span>
|
||||
<span id="L30" class="LineNr"> 30 </span><span class="subxFunction">kernel-string-equal?</span>: <span class="subxComment"># s : null-terminated ascii string, benchmark : length-prefixed ascii string -> eax : boolean</span>
|
||||
<span id="L30" class="LineNr"> 30 </span><span class="subxFunction">kernel-string-equal?</span>: <span class="subxComment"># s: null-terminated ascii string, benchmark: length-prefixed ascii string -> eax: boolean</span>
|
||||
<span id="L31" class="LineNr"> 31 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L32" class="LineNr"> 32 </span> <span class="subxComment"># n = benchmark->length</span>
|
||||
<span id="L33" class="LineNr"> 33 </span> <span class="subxComment"># s1 = s</span>
|
||||
|
|
@ -320,7 +320,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L258" class="LineNr">258 </span><span class="subxH1Comment"># - helpers</span>
|
||||
<span id="L259" class="LineNr">259 </span>
|
||||
<span id="L260" class="LineNr">260 </span><span class="subxComment"># print msg to stderr if a != b, otherwise print "."</span>
|
||||
<span id="L261" class="LineNr">261 </span><span class="subxFunction">check-ints-equal</span>: <span class="subxComment"># (a : int, b : int, msg : (addr array byte)) -> boolean</span>
|
||||
<span id="L261" class="LineNr">261 </span><span class="subxFunction">check-ints-equal</span>: <span class="subxComment"># (a: int, b: int, msg: (addr array byte)) -> boolean</span>
|
||||
<span id="L262" class="LineNr">262 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L263" class="LineNr">263 </span> 55/push-ebp
|
||||
<span id="L264" class="LineNr">264 </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>
|
||||
|
|
@ -369,7 +369,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L307" class="LineNr">307 </span> 5d/pop-to-ebp
|
||||
<span id="L308" class="LineNr">308 </span> c3/return
|
||||
<span id="L309" class="LineNr">309 </span>
|
||||
<span id="L310" class="LineNr">310 </span><span class="subxFunction">write-stderr</span>: <span class="subxComment"># s : (addr array byte) -> <void></span>
|
||||
<span id="L310" class="LineNr">310 </span><span class="subxFunction">write-stderr</span>: <span class="subxComment"># s: (addr array byte) -> <void></span>
|
||||
<span id="L311" class="LineNr">311 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L312" class="LineNr">312 </span> 55/push-ebp
|
||||
<span id="L313" class="LineNr">313 </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>
|
||||
|
|
|
|||
|
|
@ -93,7 +93,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L34" class="LineNr">34 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span>
|
||||
<span id="L35" class="LineNr">35 </span> e8/call syscall_exit/disp32
|
||||
<span id="L36" class="LineNr">36 </span>
|
||||
<span id="L37" class="LineNr">37 </span><span class="subxFunction">ascii-length</span>: <span class="subxComment"># s : (addr array byte) -> n/eax</span>
|
||||
<span id="L37" class="LineNr">37 </span><span class="subxFunction">ascii-length</span>: <span class="subxComment"># s: (addr array byte) -> n/eax</span>
|
||||
<span id="L38" class="LineNr">38 </span> <span class="subxComment"># edx = s</span>
|
||||
<span id="L39" class="LineNr">39 </span> 8b/copy 1/mod/*+disp8 4/rm32/sib 4/base/esp 4/index/none <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esp+4) to edx</span>
|
||||
<span id="L40" class="LineNr">40 </span> <span class="subxComment"># var result/eax = 0</span>
|
||||
|
|
|
|||
|
|
@ -96,7 +96,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L38" class="LineNr">38 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span>
|
||||
<span id="L39" class="LineNr">39 </span> e8/call syscall_exit/disp32
|
||||
<span id="L40" class="LineNr">40 </span>
|
||||
<span id="L41" class="LineNr">41 </span><span class="subxFunction">ascii-difference</span>: <span class="subxComment"># (s1, s2) : null-terminated ascii strings</span>
|
||||
<span id="L41" class="LineNr">41 </span><span class="subxFunction">ascii-difference</span>: <span class="subxComment"># (s1, s2): null-terminated ascii strings</span>
|
||||
<span id="L42" class="LineNr">42 </span> <span class="subxComment"># a = first letter of s1 (ecx)</span>
|
||||
<span id="L43" class="LineNr">43 </span> 8b/copy 1/mod/*+disp8 4/rm32/sib 4/base/esp 4/index/none 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esp+4) to eax</span>
|
||||
<span id="L44" class="LineNr">44 </span> 8b/copy 0/mod/indirect 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"># copy *eax to eax</span>
|
||||
|
|
|
|||
|
|
@ -129,7 +129,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L68" class="LineNr"> 68 </span> b8/copy-to-eax 1/imm32/exit
|
||||
<span id="L69" class="LineNr"> 69 </span> cd/syscall 0x80/imm8
|
||||
<span id="L70" class="LineNr"> 70 </span>
|
||||
<span id="L71" class="LineNr"> 71 </span><span class="subxFunction">factorial</span>: <span class="subxComment"># n : int -> int/eax</span>
|
||||
<span id="L71" class="LineNr"> 71 </span><span class="subxFunction">factorial</span>: <span class="subxComment"># n: int -> int/eax</span>
|
||||
<span id="L72" class="LineNr"> 72 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L73" class="LineNr"> 73 </span> 55/push-ebp
|
||||
<span id="L74" class="LineNr"> 74 </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>
|
||||
|
|
@ -138,10 +138,10 @@ if ('onhashchange' in window) {
|
|||
<span id="L77" class="LineNr"> 77 </span> b8/copy-to-eax 1/imm32
|
||||
<span id="L78" class="LineNr"> 78 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 1/imm32 <span class="subxComment"># compare *(ebp+8)</span>
|
||||
<span id="L79" class="LineNr"> 79 </span> 7e/jump-if-<= $factorial:end/disp8
|
||||
<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># var ebx : int = n-1</span>
|
||||
<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># var ebx: int = n-1</span>
|
||||
<span id="L81" class="LineNr"> 81 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ebx</span>
|
||||
<span id="L82" class="LineNr"> 82 </span> 4b/decrement-ebx
|
||||
<span id="L83" class="LineNr"> 83 </span> <span class="subxComment"># var eax : int = factorial(n-1)</span>
|
||||
<span id="L83" class="LineNr"> 83 </span> <span class="subxComment"># var eax: int = factorial(n-1)</span>
|
||||
<span id="L84" class="LineNr"> 84 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
<span id="L85" class="LineNr"> 85 </span> 53/push-ebx
|
||||
<span id="L86" class="LineNr"> 86 </span> <span class="subxS2Comment"># . . call</span>
|
||||
|
|
|
|||
|
|
@ -128,7 +128,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L68" class="LineNr"> 68 </span> b8/copy-to-eax 1/imm32/exit
|
||||
<span id="L69" class="LineNr"> 69 </span> cd/syscall 0x80/imm8
|
||||
<span id="L70" class="LineNr"> 70 </span>
|
||||
<span id="L71" class="LineNr"> 71 </span><span class="subxFunction">factorial</span>: <span class="subxComment"># n : int -> int/eax</span>
|
||||
<span id="L71" class="LineNr"> 71 </span><span class="subxFunction">factorial</span>: <span class="subxComment"># n: int -> int/eax</span>
|
||||
<span id="L72" class="LineNr"> 72 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L73" class="LineNr"> 73 </span> 55/push-ebp
|
||||
<span id="L74" class="LineNr"> 74 </span> 89/<- %ebp 4/r32/esp
|
||||
|
|
@ -137,10 +137,10 @@ if ('onhashchange' in window) {
|
|||
<span id="L77" class="LineNr"> 77 </span> b8/copy-to-eax 1/imm32
|
||||
<span id="L78" class="LineNr"> 78 </span> 81 7/subop/compare *(ebp+8) 1/imm32
|
||||
<span id="L79" class="LineNr"> 79 </span> 7e/jump-if-<= $factorial:end/disp8
|
||||
<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># var ebx : int = n-1</span>
|
||||
<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># var ebx: int = n-1</span>
|
||||
<span id="L81" class="LineNr"> 81 </span> 8b/-> *(ebp+8) 3/r32/ebx
|
||||
<span id="L82" class="LineNr"> 82 </span> 4b/decrement-ebx
|
||||
<span id="L83" class="LineNr"> 83 </span> <span class="subxComment"># var eax : int = factorial(n-1)</span>
|
||||
<span id="L83" class="LineNr"> 83 </span> <span class="subxComment"># var eax: int = factorial(n-1)</span>
|
||||
<span id="L84" class="LineNr"> 84 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
<span id="L85" class="LineNr"> 85 </span> 53/push-ebx
|
||||
<span id="L86" class="LineNr"> 86 </span> <span class="subxS2Comment"># . . call</span>
|
||||
|
|
|
|||
|
|
@ -108,7 +108,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L49" class="LineNr">49 </span> b8/copy-to-eax 1/imm32/exit
|
||||
<span id="L50" class="LineNr">50 </span> cd/syscall 0x80/imm8
|
||||
<span id="L51" class="LineNr">51 </span>
|
||||
<span id="L52" class="LineNr">52 </span><span class="subxFunction">factorial</span>: <span class="subxComment"># n : int -> int/eax</span>
|
||||
<span id="L52" class="LineNr">52 </span><span class="subxFunction">factorial</span>: <span class="subxComment"># n: int -> int/eax</span>
|
||||
<span id="L53" class="LineNr">53 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L54" class="LineNr">54 </span> 55/push-ebp
|
||||
<span id="L55" class="LineNr">55 </span> 89/<- %ebp 4/r32/esp
|
||||
|
|
@ -118,7 +118,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L59" class="LineNr">59 </span> b8/copy-to-eax 1/imm32
|
||||
<span id="L60" class="LineNr">60 </span> 81 7/subop/compare *(ebp+8) 1/imm32
|
||||
<span id="L61" class="LineNr">61 </span> 7e/jump-if-<= $factorial:end/disp8
|
||||
<span id="L62" class="LineNr">62 </span> <span class="subxComment"># var ebx : int = n-1</span>
|
||||
<span id="L62" class="LineNr">62 </span> <span class="subxComment"># var ebx: int = n-1</span>
|
||||
<span id="L63" class="LineNr">63 </span> 8b/-> *(ebp+8) 3/r32/ebx
|
||||
<span id="L64" class="LineNr">64 </span> 4b/decrement-ebx
|
||||
<span id="L65" class="LineNr">65 </span> <span class="subxComment">#</span>
|
||||
|
|
|
|||
|
|
@ -114,7 +114,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L55" class="LineNr">55 </span> b8/copy-to-eax 1/imm32/exit
|
||||
<span id="L56" class="LineNr">56 </span> cd/syscall 0x80/imm8
|
||||
<span id="L57" class="LineNr">57 </span>
|
||||
<span id="L58" class="LineNr">58 </span><span class="subxFunction">factorial</span>: <span class="subxComment"># n : int -> int/eax</span>
|
||||
<span id="L58" class="LineNr">58 </span><span class="subxFunction">factorial</span>: <span class="subxComment"># n: int -> int/eax</span>
|
||||
<span id="L59" class="LineNr">59 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L60" class="LineNr">60 </span> 55/push-ebp
|
||||
<span id="L61" class="LineNr">61 </span> 89/<- %ebp 4/r32/esp
|
||||
|
|
@ -129,7 +129,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L70" class="LineNr">70 </span> <span class="subxComment"># if (n > 1) return n * factorial(n-1)</span>
|
||||
<span id="L71" class="LineNr">71 </span> {
|
||||
<span id="L72" class="LineNr">72 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8
|
||||
<span id="L73" class="LineNr">73 </span> <span class="subxComment"># var ebx : int = n-1</span>
|
||||
<span id="L73" class="LineNr">73 </span> <span class="subxComment"># var ebx: int = n-1</span>
|
||||
<span id="L74" class="LineNr">74 </span> 8b/-> *(ebp+8) 3/r32/ebx
|
||||
<span id="L75" class="LineNr">75 </span> 4b/decrement-ebx
|
||||
<span id="L76" class="LineNr">76 </span> (<a href='factorial4.subx.html#L58'>factorial</a> %ebx) <span class="subxComment"># => eax</span>
|
||||
|
|
|
|||
|
|
@ -107,7 +107,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L44" class="LineNr"> 44 </span> b8/copy-to-eax 1/imm32/exit
|
||||
<span id="L45" class="LineNr"> 45 </span> cd/syscall 0x80/imm8
|
||||
<span id="L46" class="LineNr"> 46 </span>
|
||||
<span id="L47" class="LineNr"> 47 </span><span class="subxFunction">new</span>: <span class="subxComment"># ad : (addr allocation-descriptor), n : int, out : (handle _)</span>
|
||||
<span id="L47" class="LineNr"> 47 </span><span class="subxFunction">new</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (handle _)</span>
|
||||
<span id="L48" class="LineNr"> 48 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L49" class="LineNr"> 49 </span> 55/push-ebp
|
||||
<span id="L50" class="LineNr"> 50 </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>
|
||||
|
|
@ -118,7 +118,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L55" class="LineNr"> 55 </span> <span class="subxComment"># ecx = n+4</span>
|
||||
<span id="L56" class="LineNr"> 56 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span>
|
||||
<span id="L57" class="LineNr"> 57 </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="L58" class="LineNr"> 58 </span> <span class="subxComment"># var eax : (handle _) = allocate(ad, ecx)</span>
|
||||
<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># var eax: (handle _) = allocate(ad, ecx)</span>
|
||||
<span id="L59" class="LineNr"> 59 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
<span id="L60" class="LineNr"> 60 </span> 51/push-ecx
|
||||
<span id="L61" class="LineNr"> 61 </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>
|
||||
|
|
@ -159,7 +159,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L96" class="LineNr"> 96 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L97" class="LineNr"> 97 </span> 55/push-ebp
|
||||
<span id="L98" class="LineNr"> 98 </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="L99" class="LineNr"> 99 </span> <span class="subxComment"># var heap/edx : allocation-descriptor</span>
|
||||
<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># var heap/edx: allocation-descriptor</span>
|
||||
<span id="L100" class="LineNr">100 </span> 68/push 0/imm32/limit
|
||||
<span id="L101" class="LineNr">101 </span> 68/push 0/imm32/curr
|
||||
<span id="L102" class="LineNr">102 </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>
|
||||
|
|
@ -173,7 +173,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L110" class="LineNr">110 </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="L111" class="LineNr">111 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span>
|
||||
<span id="L112" class="LineNr">112 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='handle.subx.html#L425'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span>
|
||||
<span id="L113" class="LineNr">113 </span> <span class="subxComment"># var handle/ecx : handle</span>
|
||||
<span id="L113" class="LineNr">113 </span> <span class="subxComment"># var handle/ecx: handle</span>
|
||||
<span id="L114" class="LineNr">114 </span> 68/push 0/imm32/address
|
||||
<span id="L115" class="LineNr">115 </span> 68/push 0/imm32/alloc-id
|
||||
<span id="L116" class="LineNr">116 </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>
|
||||
|
|
@ -229,7 +229,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L166" class="LineNr">166 </span> <span class="subxS1Comment"># . *Next-alloc-id = 0x34</span>
|
||||
<span id="L167" class="LineNr">167 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='handle.subx.html#L425'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span>
|
||||
<span id="L168" class="LineNr">168 </span> <span class="subxComment"># define an allocation-descriptor with no space left</span>
|
||||
<span id="L169" class="LineNr">169 </span> <span class="subxS1Comment"># . var ad/eax : allocation-descriptor = {0x10, 0x10}</span>
|
||||
<span id="L169" class="LineNr">169 </span> <span class="subxS1Comment"># . var ad/eax: allocation-descriptor = {0x10, 0x10}</span>
|
||||
<span id="L170" class="LineNr">170 </span> 68/push 0x10/imm32/limit
|
||||
<span id="L171" class="LineNr">171 </span> 68/push 0x10/imm32/curr
|
||||
<span id="L172" class="LineNr">172 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span>
|
||||
|
|
@ -284,7 +284,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L221" class="LineNr">221 </span> 5d/pop-to-ebp
|
||||
<span id="L222" class="LineNr">222 </span> c3/return
|
||||
<span id="L223" class="LineNr">223 </span>
|
||||
<span id="L224" class="LineNr">224 </span><span class="subxFunction">lookup</span>: <span class="subxComment"># h : (handle T) -> eax : (addr T)</span>
|
||||
<span id="L224" class="LineNr">224 </span><span class="subxFunction">lookup</span>: <span class="subxComment"># h: (handle T) -> eax: (addr T)</span>
|
||||
<span id="L225" class="LineNr">225 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L226" class="LineNr">226 </span> 55/push-ebp
|
||||
<span id="L227" class="LineNr">227 </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>
|
||||
|
|
@ -345,7 +345,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L282" class="LineNr">282 </span> 55/push-ebp
|
||||
<span id="L283" class="LineNr">283 </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="L284" class="LineNr">284 </span> <span class="subxS1Comment"># . save registers</span>
|
||||
<span id="L285" class="LineNr">285 </span> <span class="subxComment"># var heap/ebx : allocation-descriptor</span>
|
||||
<span id="L285" class="LineNr">285 </span> <span class="subxComment"># var heap/ebx: allocation-descriptor</span>
|
||||
<span id="L286" class="LineNr">286 </span> 68/push 0/imm32/limit
|
||||
<span id="L287" class="LineNr">287 </span> 68/push 0/imm32/curr
|
||||
<span id="L288" class="LineNr">288 </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>
|
||||
|
|
@ -357,7 +357,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L294" class="LineNr">294 </span> e8/call <a href='../053new-segment.subx.html#L41'>new-segment</a>/disp32
|
||||
<span id="L295" class="LineNr">295 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L296" class="LineNr">296 </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="L297" class="LineNr">297 </span> <span class="subxComment"># var handle/ecx : handle</span>
|
||||
<span id="L297" class="LineNr">297 </span> <span class="subxComment"># var handle/ecx: handle</span>
|
||||
<span id="L298" class="LineNr">298 </span> 68/push 0/imm32/address
|
||||
<span id="L299" class="LineNr">299 </span> 68/push 0/imm32/alloc-id
|
||||
<span id="L300" class="LineNr">300 </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>
|
||||
|
|
@ -413,7 +413,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L350" class="LineNr">350 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L351" class="LineNr">351 </span> 55/push-ebp
|
||||
<span id="L352" class="LineNr">352 </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="L353" class="LineNr">353 </span> <span class="subxComment"># var heap/esi : allocation-descriptor</span>
|
||||
<span id="L353" class="LineNr">353 </span> <span class="subxComment"># var heap/esi: allocation-descriptor</span>
|
||||
<span id="L354" class="LineNr">354 </span> 68/push 0/imm32/limit
|
||||
<span id="L355" class="LineNr">355 </span> 68/push 0/imm32/curr
|
||||
<span id="L356" class="LineNr">356 </span> 89/copy 3/mod/direct 6/rm32/esi <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 esi</span>
|
||||
|
|
@ -425,7 +425,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L362" class="LineNr">362 </span> e8/call <a href='../053new-segment.subx.html#L41'>new-segment</a>/disp32
|
||||
<span id="L363" class="LineNr">363 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L364" class="LineNr">364 </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="L365" class="LineNr">365 </span> <span class="subxComment"># var h1/ecx : handle</span>
|
||||
<span id="L365" class="LineNr">365 </span> <span class="subxComment"># var h1/ecx: handle</span>
|
||||
<span id="L366" class="LineNr">366 </span> 68/push 0/imm32/address
|
||||
<span id="L367" class="LineNr">367 </span> 68/push 0/imm32/alloc-id
|
||||
<span id="L368" class="LineNr">368 </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>
|
||||
|
|
@ -444,7 +444,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L381" class="LineNr">381 </span> <span class="subxComment"># reset heap->curr to mimic reclamation</span>
|
||||
<span id="L382" class="LineNr">382 </span> 89/copy 0/mod/indirect 6/rm32/esi <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 *esi</span>
|
||||
<span id="L383" class="LineNr">383 </span> <span class="subxComment"># second allocation that returns the same address as the first</span>
|
||||
<span id="L384" class="LineNr">384 </span> <span class="subxComment"># var h2/edx : handle</span>
|
||||
<span id="L384" class="LineNr">384 </span> <span class="subxComment"># var h2/edx: handle</span>
|
||||
<span id="L385" class="LineNr">385 </span> 68/push 0/imm32/address
|
||||
<span id="L386" class="LineNr">386 </span> 68/push 0/imm32/alloc-id
|
||||
<span id="L387" class="LineNr">387 </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>
|
||||
|
|
|
|||
|
|
@ -115,7 +115,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L54" class="LineNr"> 54 </span> eb/jump $subx-hex-main:end/disp8
|
||||
<span id="L55" class="LineNr"> 55 </span><span class="Constant">$subx-hex-main:interactive</span>:
|
||||
<span id="L56" class="LineNr"> 56 </span> <span class="subxH1Comment"># - otherwise convert stdin</span>
|
||||
<span id="L57" class="LineNr"> 57 </span> <span class="subxComment"># var ed/eax : exit-descriptor</span>
|
||||
<span id="L57" class="LineNr"> 57 </span> <span class="subxComment"># var ed/eax: exit-descriptor</span>
|
||||
<span id="L58" class="LineNr"> 58 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L59" class="LineNr"> 59 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span>
|
||||
<span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># configure ed to really exit()</span>
|
||||
|
|
@ -138,7 +138,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L77" class="LineNr"> 77 </span> cd/syscall 0x80/imm8
|
||||
<span id="L78" class="LineNr"> 78 </span>
|
||||
<span id="L79" class="LineNr"> 79 </span><span class="subxComment"># the main entry point</span>
|
||||
<span id="L80" class="LineNr"> 80 </span><span class="subxFunction">subx-hex</span>: <span class="subxComment"># in : (addr buffered-file), out : (addr buffered-file), err : (addr buffered-file), ed : (addr exit-descriptor)</span>
|
||||
<span id="L80" class="LineNr"> 80 </span><span class="subxFunction">subx-hex</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file), err: (addr buffered-file), ed: (addr exit-descriptor)</span>
|
||||
<span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L83" class="LineNr"> 83 </span> <span class="subxComment"># eax = convert-next-octet(in, err, ed)</span>
|
||||
|
|
@ -196,7 +196,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L135" class="LineNr"> 135 </span><span class="subxComment"># raise an error and abort on all other unexpected bytes</span>
|
||||
<span id="L136" class="LineNr"> 136 </span><span class="subxComment"># return in eax an _octet_ containing the binary value of the two hex characters</span>
|
||||
<span id="L137" class="LineNr"> 137 </span><span class="subxComment"># return Eof on reaching end of file</span>
|
||||
<span id="L138" class="LineNr"> 138 </span><span class="subxFunction">convert-next-octet</span>: <span class="subxComment"># in : (addr buffered-file), err : (addr buffered-file), ed : (addr exit-descriptor) -> byte-or-Eof/eax</span>
|
||||
<span id="L138" class="LineNr"> 138 </span><span class="subxFunction">convert-next-octet</span>: <span class="subxComment"># in: (addr buffered-file), err: (addr buffered-file), ed: (addr exit-descriptor) -> byte-or-Eof/eax</span>
|
||||
<span id="L139" class="LineNr"> 139 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L140" class="LineNr"> 140 </span> <span class="subxComment"># eax = scan-next-byte(in, err, ed)</span>
|
||||
<span id="L141" class="LineNr"> 141 </span> <span class="subxComment"># if (eax == Eof) return</span>
|
||||
|
|
@ -308,7 +308,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L247" class="LineNr"> 247 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L248" class="LineNr"> 248 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span>
|
||||
<span id="L249" class="LineNr"> 249 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'convert-next-octet' below</span>
|
||||
<span id="L250" class="LineNr"> 250 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span>
|
||||
<span id="L250" class="LineNr"> 250 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span>
|
||||
<span id="L251" class="LineNr"> 251 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L252" class="LineNr"> 252 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span>
|
||||
<span id="L253" class="LineNr"> 253 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span>
|
||||
|
|
@ -398,7 +398,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L337" class="LineNr"> 337 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span>
|
||||
<span id="L338" class="LineNr"> 338 </span> <span class="subxComment"># don't initialize '_test-stream'</span>
|
||||
<span id="L339" class="LineNr"> 339 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'convert-next-octet' below</span>
|
||||
<span id="L340" class="LineNr"> 340 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span>
|
||||
<span id="L340" class="LineNr"> 340 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span>
|
||||
<span id="L341" class="LineNr"> 341 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L342" class="LineNr"> 342 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span>
|
||||
<span id="L343" class="LineNr"> 343 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span>
|
||||
|
|
@ -496,7 +496,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L435" class="LineNr"> 435 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L436" class="LineNr"> 436 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span>
|
||||
<span id="L437" class="LineNr"> 437 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'convert-next-octet' below</span>
|
||||
<span id="L438" class="LineNr"> 438 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span>
|
||||
<span id="L438" class="LineNr"> 438 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span>
|
||||
<span id="L439" class="LineNr"> 439 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L440" class="LineNr"> 440 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span>
|
||||
<span id="L441" class="LineNr"> 441 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span>
|
||||
|
|
@ -542,7 +542,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L481" class="LineNr"> 481 </span><span class="subxComment"># return Eof if file ends without finding a hex byte</span>
|
||||
<span id="L482" class="LineNr"> 482 </span><span class="subxComment"># on '#' skip all bytes until newline</span>
|
||||
<span id="L483" class="LineNr"> 483 </span><span class="subxComment"># abort on any other byte</span>
|
||||
<span id="L484" class="LineNr"> 484 </span><span class="subxFunction">scan-next-byte</span>: <span class="subxComment"># in : (addr buffered-file), err : (addr buffered-file), ed : (addr exit-descriptor) -> byte-or-Eof/eax</span>
|
||||
<span id="L484" class="LineNr"> 484 </span><span class="subxFunction">scan-next-byte</span>: <span class="subxComment"># in: (addr buffered-file), err: (addr buffered-file), ed: (addr exit-descriptor) -> byte-or-Eof/eax</span>
|
||||
<span id="L485" class="LineNr"> 485 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L486" class="LineNr"> 486 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L487" class="LineNr"> 487 </span> <span class="subxComment"># eax = read-byte-buffered(in)</span>
|
||||
|
|
@ -665,7 +665,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L604" class="LineNr"> 604 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L605" class="LineNr"> 605 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span>
|
||||
<span id="L606" class="LineNr"> 606 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span>
|
||||
<span id="L607" class="LineNr"> 607 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span>
|
||||
<span id="L607" class="LineNr"> 607 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span>
|
||||
<span id="L608" class="LineNr"> 608 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L609" class="LineNr"> 609 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span>
|
||||
<span id="L610" class="LineNr"> 610 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span>
|
||||
|
|
@ -763,7 +763,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L702" class="LineNr"> 702 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L703" class="LineNr"> 703 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span>
|
||||
<span id="L704" class="LineNr"> 704 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span>
|
||||
<span id="L705" class="LineNr"> 705 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span>
|
||||
<span id="L705" class="LineNr"> 705 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span>
|
||||
<span id="L706" class="LineNr"> 706 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L707" class="LineNr"> 707 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span>
|
||||
<span id="L708" class="LineNr"> 708 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span>
|
||||
|
|
@ -869,7 +869,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L808" class="LineNr"> 808 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L809" class="LineNr"> 809 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span>
|
||||
<span id="L810" class="LineNr"> 810 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span>
|
||||
<span id="L811" class="LineNr"> 811 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span>
|
||||
<span id="L811" class="LineNr"> 811 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span>
|
||||
<span id="L812" class="LineNr"> 812 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L813" class="LineNr"> 813 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span>
|
||||
<span id="L814" class="LineNr"> 814 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span>
|
||||
|
|
@ -975,7 +975,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L914" class="LineNr"> 914 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L915" class="LineNr"> 915 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span>
|
||||
<span id="L916" class="LineNr"> 916 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span>
|
||||
<span id="L917" class="LineNr"> 917 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span>
|
||||
<span id="L917" class="LineNr"> 917 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span>
|
||||
<span id="L918" class="LineNr"> 918 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L919" class="LineNr"> 919 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span>
|
||||
<span id="L920" class="LineNr"> 920 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span>
|
||||
|
|
@ -1083,7 +1083,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1022" class="LineNr">1022 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1023" class="LineNr">1023 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span>
|
||||
<span id="L1024" class="LineNr">1024 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span>
|
||||
<span id="L1025" class="LineNr">1025 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span>
|
||||
<span id="L1025" class="LineNr">1025 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span>
|
||||
<span id="L1026" class="LineNr">1026 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L1027" class="LineNr">1027 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span>
|
||||
<span id="L1028" class="LineNr">1028 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span>
|
||||
|
|
@ -1181,7 +1181,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1120" class="LineNr">1120 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1121" class="LineNr">1121 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span>
|
||||
<span id="L1122" class="LineNr">1122 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span>
|
||||
<span id="L1123" class="LineNr">1123 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span>
|
||||
<span id="L1123" class="LineNr">1123 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span>
|
||||
<span id="L1124" class="LineNr">1124 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L1125" class="LineNr">1125 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span>
|
||||
<span id="L1126" class="LineNr">1126 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span>
|
||||
|
|
@ -1271,7 +1271,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1210" class="LineNr">1210 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span>
|
||||
<span id="L1211" class="LineNr">1211 </span> <span class="subxComment"># leave '_test-stream' empty</span>
|
||||
<span id="L1212" class="LineNr">1212 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span>
|
||||
<span id="L1213" class="LineNr">1213 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span>
|
||||
<span id="L1213" class="LineNr">1213 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span>
|
||||
<span id="L1214" class="LineNr">1214 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L1215" class="LineNr">1215 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span>
|
||||
<span id="L1216" class="LineNr">1216 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span>
|
||||
|
|
@ -1369,7 +1369,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1308" class="LineNr">1308 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1309" class="LineNr">1309 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span>
|
||||
<span id="L1310" class="LineNr">1310 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span>
|
||||
<span id="L1311" class="LineNr">1311 </span> <span class="subxS1Comment"># . var ed/ecx : exit-descriptor</span>
|
||||
<span id="L1311" class="LineNr">1311 </span> <span class="subxS1Comment"># . var ed/ecx: exit-descriptor</span>
|
||||
<span id="L1312" class="LineNr">1312 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L1313" class="LineNr">1313 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span>
|
||||
<span id="L1314" class="LineNr">1314 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 12)</span>
|
||||
|
|
@ -1411,7 +1411,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1350" class="LineNr">1350 </span> 5d/pop-to-ebp
|
||||
<span id="L1351" class="LineNr">1351 </span> c3/return
|
||||
<span id="L1352" class="LineNr">1352 </span>
|
||||
<span id="L1353" class="LineNr">1353 </span><span class="subxFunction">skip-until-newline</span>: <span class="subxComment"># in : (addr buffered-file)</span>
|
||||
<span id="L1353" class="LineNr">1353 </span><span class="subxFunction">skip-until-newline</span>: <span class="subxComment"># in: (addr buffered-file)</span>
|
||||
<span id="L1354" class="LineNr">1354 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L1355" class="LineNr">1355 </span> <span class="subxComment"># push eax</span>
|
||||
<span id="L1356" class="LineNr">1356 </span> <span class="subxComment"># while true</span>
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
|
|
@ -132,19 +132,19 @@ if ('onhashchange' in window) {
|
|||
<span id="L74" class="LineNr"> 74 </span><span class="subxComment"># data contains a pointer to an array of 8-byte data fields and the common</span>
|
||||
<span id="L75" class="LineNr"> 75 </span><span class="subxComment"># tag for them all</span>
|
||||
<span id="L76" class="LineNr"> 76 </span>
|
||||
<span id="L77" class="LineNr"> 77 </span><span class="subxFunction">repl</span>: <span class="subxComment"># in : (addr buffered-file), out : (addr buffered-file)</span>
|
||||
<span id="L77" class="LineNr"> 77 </span><span class="subxFunction">repl</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file)</span>
|
||||
<span id="L78" class="LineNr"> 78 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L79" class="LineNr"> 79 </span> 55/push-ebp
|
||||
<span id="L80" class="LineNr"> 80 </span> 89/<- %ebp 4/r32/esp
|
||||
<span id="L81" class="LineNr"> 81 </span> <span class="subxS1Comment"># . save registers</span>
|
||||
<span id="L82" class="LineNr"> 82 </span> 50/push-eax
|
||||
<span id="L83" class="LineNr"> 83 </span> {
|
||||
<span id="L84" class="LineNr"> 84 </span> (<a href='mulisp.subx.html#L107'>lisp-read</a> <span class="SpecialChar"><a href='../061read-byte.subx.html#L14'>Stdin</a></span>) <span class="subxComment"># => eax : (handle cell)</span>
|
||||
<span id="L84" class="LineNr"> 84 </span> (<a href='mulisp.subx.html#L107'>lisp-read</a> <span class="SpecialChar"><a href='../061read-byte.subx.html#L14'>Stdin</a></span>) <span class="subxComment"># => eax: (handle cell)</span>
|
||||
<span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># if (eax == 0) break</span>
|
||||
<span id="L86" class="LineNr"> 86 </span> 3d/compare-eax-and 0/imm32
|
||||
<span id="L87" class="LineNr"> 87 </span> 74/jump-if-= <span class="Constant">break</span>/disp8
|
||||
<span id="L88" class="LineNr"> 88 </span> <span class="subxComment">#</span>
|
||||
<span id="L89" class="LineNr"> 89 </span> (<a href='mulisp.subx.html#L201'>lisp-eval</a> %eax) <span class="subxComment"># => eax : (handle cell)</span>
|
||||
<span id="L89" class="LineNr"> 89 </span> (<a href='mulisp.subx.html#L201'>lisp-eval</a> %eax) <span class="subxComment"># => eax: (handle cell)</span>
|
||||
<span id="L90" class="LineNr"> 90 </span> (<a href='mulisp.subx.html#L214'>lisp-print</a> <span class="SpecialChar"><a href='../064write-byte.subx.html#L10'>Stdout</a></span> %eax)
|
||||
<span id="L91" class="LineNr"> 91 </span> eb/jump <span class="Constant">loop</span>/disp8
|
||||
<span id="L92" class="LineNr"> 92 </span> }
|
||||
|
|
@ -162,13 +162,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L104" class="LineNr">104 </span><span class="subxComment"># arrays start with '['</span>
|
||||
<span id="L105" class="LineNr">105 </span><span class="subxComment"># symbols start with anything else but quote, backquote, unquote or splice</span>
|
||||
<span id="L106" class="LineNr">106 </span><span class="subxComment"># only one s-expression per line</span>
|
||||
<span id="L107" class="LineNr">107 </span><span class="subxFunction">lisp-read</span>: <span class="subxComment"># in : (addr buffered-file) -> eax : (handle cell)</span>
|
||||
<span id="L107" class="LineNr">107 </span><span class="subxFunction">lisp-read</span>: <span class="subxComment"># in: (addr buffered-file) -> eax: (handle cell)</span>
|
||||
<span id="L108" class="LineNr">108 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L109" class="LineNr">109 </span> 55/push-ebp
|
||||
<span id="L110" class="LineNr">110 </span> 89/<- %ebp 4/r32/esp
|
||||
<span id="L111" class="LineNr">111 </span> <span class="subxS1Comment"># . save registers</span>
|
||||
<span id="L112" class="LineNr">112 </span> 51/push-ecx
|
||||
<span id="L113" class="LineNr">113 </span> <span class="subxComment"># var s/ecx : (stream byte 512)</span>
|
||||
<span id="L113" class="LineNr">113 </span> <span class="subxComment"># var s/ecx: (stream byte 512)</span>
|
||||
<span id="L114" class="LineNr">114 </span> 81 5/subop/subtract %esp 0x200/imm32
|
||||
<span id="L115" class="LineNr">115 </span> 68/push 0x200/imm32/size
|
||||
<span id="L116" class="LineNr">116 </span> 68/push 0/imm32/read
|
||||
|
|
@ -200,14 +200,14 @@ if ('onhashchange' in window) {
|
|||
<span id="L142" class="LineNr">142 </span> 5d/pop-to-ebp
|
||||
<span id="L143" class="LineNr">143 </span> c3/return
|
||||
<span id="L144" class="LineNr">144 </span>
|
||||
<span id="L145" class="LineNr">145 </span><span class="subxComment"># lisp-read: in : (addr buffered-file) -> (handle cell)</span>
|
||||
<span id="L145" class="LineNr">145 </span><span class="subxComment"># lisp-read: in: (addr buffered-file) -> (handle cell)</span>
|
||||
<span id="L146" class="LineNr">146 </span><span class="subxComment"># token tmp = next-mulisp-token(in)</span>
|
||||
<span id="L147" class="LineNr">147 </span><span class="subxComment"># if is-int(tmp) return cell(tmp)</span>
|
||||
<span id="L148" class="LineNr">148 </span><span class="subxComment"># if is-string(tmp) return cell(tmp)</span>
|
||||
<span id="L149" class="LineNr">149 </span><span class="subxComment"># if is-pair(tmp) ...</span>
|
||||
<span id="L150" class="LineNr">150 </span><span class="subxComment"># if is-array(tmp) ...</span>
|
||||
<span id="L151" class="LineNr">151 </span>
|
||||
<span id="L152" class="LineNr">152 </span><span class="subxFunction">next-mulisp-token</span>: <span class="subxComment"># in : (addr buffered-file), line : (addr stream byte), result : (addr slice)</span>
|
||||
<span id="L152" class="LineNr">152 </span><span class="subxFunction">next-mulisp-token</span>: <span class="subxComment"># in: (addr buffered-file), line: (addr stream byte), result: (addr slice)</span>
|
||||
<span id="L153" class="LineNr">153 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L154" class="LineNr">154 </span> <span class="subxComment"># if (line->read >= line->write)</span>
|
||||
<span id="L155" class="LineNr">155 </span> <span class="subxComment"># read-line-buffered(in, line)</span>
|
||||
|
|
@ -252,11 +252,11 @@ if ('onhashchange' in window) {
|
|||
<span id="L194" class="LineNr">194 </span> 5d/pop-to-ebp
|
||||
<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="subxFunction">new-int-cell</span>: <span class="subxComment"># in : (addr slice) -> eax : (handle cell)</span>
|
||||
<span id="L197" class="LineNr">197 </span><span class="subxFunction">new-int-cell</span>: <span class="subxComment"># in: (addr slice) -> eax: (handle cell)</span>
|
||||
<span id="L198" class="LineNr">198 </span>
|
||||
<span id="L199" class="LineNr">199 </span><span class="subxFunction">new-string-cell</span>: <span class="subxComment"># in : (addr slice) -> eax : (handle cell)</span>
|
||||
<span id="L199" class="LineNr">199 </span><span class="subxFunction">new-string-cell</span>: <span class="subxComment"># in: (addr slice) -> eax: (handle cell)</span>
|
||||
<span id="L200" class="LineNr">200 </span>
|
||||
<span id="L201" class="LineNr">201 </span><span class="subxFunction">lisp-eval</span>: <span class="subxComment"># in : (addr cell) -> eax : (handle cell)</span>
|
||||
<span id="L201" class="LineNr">201 </span><span class="subxFunction">lisp-eval</span>: <span class="subxComment"># in: (addr cell) -> eax: (handle cell)</span>
|
||||
<span id="L202" class="LineNr">202 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L203" class="LineNr">203 </span> 55/push-ebp
|
||||
<span id="L204" class="LineNr">204 </span> 89/<- %ebp 4/r32/esp
|
||||
|
|
@ -269,7 +269,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L211" class="LineNr">211 </span> 5d/pop-to-ebp
|
||||
<span id="L212" class="LineNr">212 </span> c3/return
|
||||
<span id="L213" class="LineNr">213 </span>
|
||||
<span id="L214" class="LineNr">214 </span><span class="subxFunction">lisp-print</span>: <span class="subxComment"># out : (addr buffered-file), x : (addr cell)</span>
|
||||
<span id="L214" class="LineNr">214 </span><span class="subxFunction">lisp-print</span>: <span class="subxComment"># out: (addr buffered-file), x: (addr cell)</span>
|
||||
<span id="L215" class="LineNr">215 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L216" class="LineNr">216 </span> 55/push-ebp
|
||||
<span id="L217" class="LineNr">217 </span> 89/<- %ebp 4/r32/esp
|
||||
|
|
|
|||
|
|
@ -117,7 +117,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L55" class="LineNr"> 55 </span> eb/jump $subx-pack-main:end/disp8
|
||||
<span id="L56" class="LineNr"> 56 </span><span class="Constant">$subx-pack-main:interactive</span>:
|
||||
<span id="L57" class="LineNr"> 57 </span> <span class="subxH1Comment"># - otherwise convert stdin</span>
|
||||
<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># var ed/eax : exit-descriptor</span>
|
||||
<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># var ed/eax: exit-descriptor</span>
|
||||
<span id="L59" class="LineNr"> 59 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L60" class="LineNr"> 60 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span>
|
||||
<span id="L61" class="LineNr"> 61 </span> <span class="subxComment"># configure ed to really exit()</span>
|
||||
|
|
@ -159,9 +159,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L97" class="LineNr"> 97 </span><span class="subxComment"># next-token-from-slice(start, end, delim char) -> slice</span>
|
||||
<span id="L98" class="LineNr"> 98 </span><span class="subxComment"># slice-equal?(slice, string)</span>
|
||||
<span id="L99" class="LineNr"> 99 </span>
|
||||
<span id="L100" class="LineNr"> 100 </span><span class="subxFunction">subx-pack</span>: <span class="subxComment"># in : (addr buffered-file), out : (addr buffered-file)</span>
|
||||
<span id="L100" class="LineNr"> 100 </span><span class="subxFunction">subx-pack</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file)</span>
|
||||
<span id="L101" class="LineNr"> 101 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L102" class="LineNr"> 102 </span> <span class="subxComment"># var line : (stream byte 512)</span>
|
||||
<span id="L102" class="LineNr"> 102 </span> <span class="subxComment"># var line: (stream byte 512)</span>
|
||||
<span id="L103" class="LineNr"> 103 </span> <span class="subxComment"># var in-code? = false</span>
|
||||
<span id="L104" class="LineNr"> 104 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L105" class="LineNr"> 105 </span> <span class="subxComment"># clear-stream(line)</span>
|
||||
|
|
@ -190,17 +190,17 @@ if ('onhashchange' in window) {
|
|||
<span id="L128" class="LineNr"> 128 </span> 51/push-ecx
|
||||
<span id="L129" class="LineNr"> 129 </span> 52/push-edx
|
||||
<span id="L130" class="LineNr"> 130 </span> 53/push-ebx
|
||||
<span id="L131" class="LineNr"> 131 </span> <span class="subxComment"># var line/ecx : (stream byte 512)</span>
|
||||
<span id="L131" class="LineNr"> 131 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span>
|
||||
<span id="L132" class="LineNr"> 132 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L133" class="LineNr"> 133 </span> 68/push 0x200/imm32/length
|
||||
<span id="L134" class="LineNr"> 134 </span> 68/push 0/imm32/read
|
||||
<span id="L135" class="LineNr"> 135 </span> 68/push 0/imm32/write
|
||||
<span id="L136" class="LineNr"> 136 </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="L137" class="LineNr"> 137 </span> <span class="subxComment"># var word-slice/edx : slice</span>
|
||||
<span id="L137" class="LineNr"> 137 </span> <span class="subxComment"># var word-slice/edx: slice</span>
|
||||
<span id="L138" class="LineNr"> 138 </span> 68/push 0/imm32/end
|
||||
<span id="L139" class="LineNr"> 139 </span> 68/push 0/imm32/start
|
||||
<span id="L140" class="LineNr"> 140 </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="L141" class="LineNr"> 141 </span> <span class="subxComment"># var in-code?/ebx : boolean = false</span>
|
||||
<span id="L141" class="LineNr"> 141 </span> <span class="subxComment"># var in-code?/ebx: boolean = false</span>
|
||||
<span id="L142" class="LineNr"> 142 </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="L143" class="LineNr"> 143 </span><span class="Constant">$subx-pack:loop</span>:
|
||||
<span id="L144" class="LineNr"> 144 </span> <span class="subxComment"># clear-stream(line)</span>
|
||||
|
|
@ -818,9 +818,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L909" class="LineNr"> 909 </span> 5d/pop-to-ebp
|
||||
<span id="L910" class="LineNr"> 910 </span> c3/return
|
||||
<span id="L911" class="LineNr"> 911 </span>
|
||||
<span id="L912" class="LineNr"> 912 </span><span class="subxFunction">convert-data</span>: <span class="subxComment"># line : (addr stream byte), out : (addr buffered-file)</span>
|
||||
<span id="L912" class="LineNr"> 912 </span><span class="subxFunction">convert-data</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span>
|
||||
<span id="L913" class="LineNr"> 913 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L914" class="LineNr"> 914 </span> <span class="subxComment"># var word-slice : slice</span>
|
||||
<span id="L914" class="LineNr"> 914 </span> <span class="subxComment"># var word-slice: slice</span>
|
||||
<span id="L915" class="LineNr"> 915 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L916" class="LineNr"> 916 </span> <span class="subxComment"># word-slice = next-word(line)</span>
|
||||
<span id="L917" class="LineNr"> 917 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of file (maybe including trailing whitespace)</span>
|
||||
|
|
@ -845,7 +845,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L936" class="LineNr"> 936 </span> 50/push-eax
|
||||
<span id="L937" class="LineNr"> 937 </span> 51/push-ecx
|
||||
<span id="L938" class="LineNr"> 938 </span> 52/push-edx
|
||||
<span id="L939" class="LineNr"> 939 </span> <span class="subxComment"># var word-slice/ecx : slice</span>
|
||||
<span id="L939" class="LineNr"> 939 </span> <span class="subxComment"># var word-slice/ecx: slice</span>
|
||||
<span id="L940" class="LineNr"> 940 </span> 68/push 0/imm32/end
|
||||
<span id="L941" class="LineNr"> 941 </span> 68/push 0/imm32/start
|
||||
<span id="L942" class="LineNr"> 942 </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>
|
||||
|
|
@ -874,9 +874,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L1029" class="LineNr">1029 </span> 0f 85/jump-if-!= $convert-data:<span class="Constant">break</span>/disp32
|
||||
<span id="L1030" class="LineNr">1030 </span><span class="Constant">$convert-data:check-for-comment</span>:
|
||||
<span id="L1031" class="LineNr">1031 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#"))</span>
|
||||
<span id="L1032" class="LineNr">1032 </span> <span class="subxS1Comment"># . var start/edx : (addr byte) = word-slice->start</span>
|
||||
<span id="L1032" class="LineNr">1032 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span>
|
||||
<span id="L1033" class="LineNr">1033 </span> 8b/copy 0/mod/indirect 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"># copy *ecx to edx</span>
|
||||
<span id="L1034" class="LineNr">1034 </span> <span class="subxS1Comment"># . var c/eax : byte = *start</span>
|
||||
<span id="L1034" class="LineNr">1034 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span>
|
||||
<span id="L1035" class="LineNr">1035 </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="L1036" class="LineNr">1036 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <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 *edx to AL</span>
|
||||
<span id="L1037" class="LineNr">1037 </span> <span class="subxS1Comment"># . if (c != '#') goto next check</span>
|
||||
|
|
@ -895,9 +895,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L1050" class="LineNr">1050 </span> 0f 85/jump-if-!= $convert-data:end/disp32
|
||||
<span id="L1051" class="LineNr">1051 </span><span class="Constant">$convert-data:check-for-label</span>:
|
||||
<span id="L1052" class="LineNr">1052 </span> <span class="subxComment"># if (slice-ends-with?(word-slice, ":"))</span>
|
||||
<span id="L1053" class="LineNr">1053 </span> <span class="subxS1Comment"># . var end/edx : (addr byte) = word-slice->end</span>
|
||||
<span id="L1053" class="LineNr">1053 </span> <span class="subxS1Comment"># . var end/edx: (addr byte) = word-slice->end</span>
|
||||
<span id="L1054" class="LineNr">1054 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span>
|
||||
<span id="L1055" class="LineNr">1055 </span> <span class="subxS1Comment"># . var c/eax : byte = *(end-1)</span>
|
||||
<span id="L1055" class="LineNr">1055 </span> <span class="subxS1Comment"># . var c/eax: byte = *(end-1)</span>
|
||||
<span id="L1056" class="LineNr">1056 </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="L1057" class="LineNr">1057 </span> 8a/copy-byte 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL -1/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span>
|
||||
<span id="L1058" class="LineNr">1058 </span> <span class="subxS1Comment"># . if (c != ':') goto next check</span>
|
||||
|
|
@ -1579,7 +1579,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1809" class="LineNr">1809 </span><span class="subxComment"># unceremoniously abort on non-numeric operands except disp or imm</span>
|
||||
<span id="L1810" class="LineNr">1810 </span><span class="subxComment"># opcodes must be lowercase and zero padded</span>
|
||||
<span id="L1811" class="LineNr">1811 </span><span class="subxComment"># opcodes with misleading operand metadata may get duplicated as operands as well. don't rely on this.</span>
|
||||
<span id="L1812" class="LineNr">1812 </span><span class="subxFunction">convert-instruction</span>: <span class="subxComment"># line : (addr stream byte), out : (addr buffered-file)</span>
|
||||
<span id="L1812" class="LineNr">1812 </span><span class="subxFunction">convert-instruction</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span>
|
||||
<span id="L1813" class="LineNr">1813 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L1814" class="LineNr">1814 </span> <span class="subxComment"># # some early exits</span>
|
||||
<span id="L1815" class="LineNr">1815 </span> <span class="subxComment"># var word-slice = next-word(line)</span>
|
||||
|
|
@ -1607,7 +1607,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1837" class="LineNr">1837 </span> 50/push-eax
|
||||
<span id="L1838" class="LineNr">1838 </span> 51/push-ecx
|
||||
<span id="L1839" class="LineNr">1839 </span> 52/push-edx
|
||||
<span id="L1840" class="LineNr">1840 </span> <span class="subxComment"># var word-slice/ecx : slice</span>
|
||||
<span id="L1840" class="LineNr">1840 </span> <span class="subxComment"># var word-slice/ecx: slice</span>
|
||||
<span id="L1841" class="LineNr">1841 </span> 68/push 0/imm32/end
|
||||
<span id="L1842" class="LineNr">1842 </span> 68/push 0/imm32/start
|
||||
<span id="L1843" class="LineNr">1843 </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>
|
||||
|
|
@ -1633,9 +1633,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L1863" class="LineNr">1863 </span> 75/jump-if-!= $convert-instruction:pass-through/disp8
|
||||
<span id="L1864" class="LineNr">1864 </span><span class="Constant">$convert-instruction:check1</span>:
|
||||
<span id="L1865" class="LineNr">1865 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) write-stream-data(out, line)</span>
|
||||
<span id="L1866" class="LineNr">1866 </span> <span class="subxS1Comment"># . var start/edx : (addr byte) = word-slice->start</span>
|
||||
<span id="L1866" class="LineNr">1866 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span>
|
||||
<span id="L1867" class="LineNr">1867 </span> 8b/copy 0/mod/indirect 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"># copy *ecx to edx</span>
|
||||
<span id="L1868" class="LineNr">1868 </span> <span class="subxS1Comment"># . var c/eax : byte = *start</span>
|
||||
<span id="L1868" class="LineNr">1868 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span>
|
||||
<span id="L1869" class="LineNr">1869 </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="L1870" class="LineNr">1870 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <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 *edx to AL</span>
|
||||
<span id="L1871" class="LineNr">1871 </span> <span class="subxS1Comment"># . if (c == '#') pass through</span>
|
||||
|
|
@ -1643,9 +1643,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L1873" class="LineNr">1873 </span> 74/jump-if-= $convert-instruction:pass-through/disp8
|
||||
<span id="L1874" class="LineNr">1874 </span><span class="Constant">$convert-instruction:check2</span>:
|
||||
<span id="L1875" class="LineNr">1875 </span> <span class="subxComment"># if (slice-ends-with?(word-slice, ":")) write-stream-data(out, line)</span>
|
||||
<span id="L1876" class="LineNr">1876 </span> <span class="subxS1Comment"># . var end/edx : (addr byte) = word-slice->end</span>
|
||||
<span id="L1876" class="LineNr">1876 </span> <span class="subxS1Comment"># . var end/edx: (addr byte) = word-slice->end</span>
|
||||
<span id="L1877" class="LineNr">1877 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span>
|
||||
<span id="L1878" class="LineNr">1878 </span> <span class="subxS1Comment"># . var c/eax : byte = *(end-1)</span>
|
||||
<span id="L1878" class="LineNr">1878 </span> <span class="subxS1Comment"># . var c/eax: byte = *(end-1)</span>
|
||||
<span id="L1879" class="LineNr">1879 </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="L1880" class="LineNr">1880 </span> 8a/copy-byte 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL -1/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span>
|
||||
<span id="L1881" class="LineNr">1881 </span> <span class="subxS1Comment"># . if (c == ':') pass through</span>
|
||||
|
|
@ -1723,7 +1723,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1953" class="LineNr">1953 </span> 5d/pop-to-ebp
|
||||
<span id="L1954" class="LineNr">1954 </span> c3/return
|
||||
<span id="L1955" class="LineNr">1955 </span>
|
||||
<span id="L1956" class="LineNr">1956 </span><span class="subxFunction">emit-opcodes</span>: <span class="subxComment"># line : (addr stream byte), out : (addr buffered-file)</span>
|
||||
<span id="L1956" class="LineNr">1956 </span><span class="subxFunction">emit-opcodes</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span>
|
||||
<span id="L1957" class="LineNr">1957 </span> <span class="subxComment"># opcodes occupy 1-3 bytes:</span>
|
||||
<span id="L1958" class="LineNr">1958 </span> <span class="subxComment"># xx</span>
|
||||
<span id="L1959" class="LineNr">1959 </span> <span class="subxComment"># 0f xx</span>
|
||||
|
|
@ -1764,11 +1764,11 @@ if ('onhashchange' in window) {
|
|||
<span id="L1994" class="LineNr">1994 </span> 51/push-ecx
|
||||
<span id="L1995" class="LineNr">1995 </span> 52/push-edx
|
||||
<span id="L1996" class="LineNr">1996 </span> 53/push-ebx
|
||||
<span id="L1997" class="LineNr">1997 </span> <span class="subxComment"># var op1/ecx : slice</span>
|
||||
<span id="L1997" class="LineNr">1997 </span> <span class="subxComment"># var op1/ecx: slice</span>
|
||||
<span id="L1998" class="LineNr">1998 </span> 68/push 0/imm32/end
|
||||
<span id="L1999" class="LineNr">1999 </span> 68/push 0/imm32/start
|
||||
<span id="L2000" class="LineNr">2000 </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="L2001" class="LineNr">2001 </span> <span class="subxComment"># var op2/edx : slice</span>
|
||||
<span id="L2001" class="LineNr">2001 </span> <span class="subxComment"># var op2/edx: slice</span>
|
||||
<span id="L2002" class="LineNr">2002 </span> 68/push 0/imm32/end
|
||||
<span id="L2003" class="LineNr">2003 </span> 68/push 0/imm32/start
|
||||
<span id="L2004" class="LineNr">2004 </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>
|
||||
|
|
@ -1800,9 +1800,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L2030" class="LineNr">2030 </span> 3d/compare-eax-and 0/imm32/false
|
||||
<span id="L2031" class="LineNr">2031 </span> 0f 85/jump-if-!= $emit-opcodes:end/disp32
|
||||
<span id="L2032" class="LineNr">2032 </span> <span class="subxComment"># if (slice-starts-with?(op1, "#")) return</span>
|
||||
<span id="L2033" class="LineNr">2033 </span> <span class="subxS1Comment"># . var start/ebx : (addr byte) = op1->start</span>
|
||||
<span id="L2033" class="LineNr">2033 </span> <span class="subxS1Comment"># . var start/ebx: (addr byte) = op1->start</span>
|
||||
<span id="L2034" class="LineNr">2034 </span> 8b/copy 0/mod/indirect 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 *ecx to ebx</span>
|
||||
<span id="L2035" class="LineNr">2035 </span> <span class="subxS1Comment"># . var c/eax : byte = *start</span>
|
||||
<span id="L2035" class="LineNr">2035 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span>
|
||||
<span id="L2036" class="LineNr">2036 </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="L2037" class="LineNr">2037 </span> 8a/copy-byte 0/mod/indirect 3/rm32/ebx <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 *ebx to AL</span>
|
||||
<span id="L2038" class="LineNr">2038 </span> <span class="subxS1Comment"># . if (c == '#') return</span>
|
||||
|
|
@ -1893,9 +1893,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L2123" class="LineNr">2123 </span> 3d/compare-eax-and 0/imm32/false
|
||||
<span id="L2124" class="LineNr">2124 </span> 0f 85/jump-if-!= $emit-opcodes:end/disp32
|
||||
<span id="L2125" class="LineNr">2125 </span> <span class="subxComment"># if (slice-starts-with?(op2, "#")) return</span>
|
||||
<span id="L2126" class="LineNr">2126 </span> <span class="subxS1Comment"># . var start/ebx : (addr byte) = op2->start</span>
|
||||
<span id="L2126" class="LineNr">2126 </span> <span class="subxS1Comment"># . var start/ebx: (addr byte) = op2->start</span>
|
||||
<span id="L2127" class="LineNr">2127 </span> 8b/copy 0/mod/indirect 2/rm32/edx <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 *edx to ebx</span>
|
||||
<span id="L2128" class="LineNr">2128 </span> <span class="subxS1Comment"># . var c/eax : byte = *start</span>
|
||||
<span id="L2128" class="LineNr">2128 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span>
|
||||
<span id="L2129" class="LineNr">2129 </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="L2130" class="LineNr">2130 </span> 8a/copy-byte 0/mod/indirect 3/rm32/ebx <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 *ebx to AL</span>
|
||||
<span id="L2131" class="LineNr">2131 </span> <span class="subxS1Comment"># . if (c == '#') return</span>
|
||||
|
|
@ -1972,9 +1972,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L2202" class="LineNr">2202 </span> 3d/compare-eax-and 0/imm32/false
|
||||
<span id="L2203" class="LineNr">2203 </span> 0f 85/jump-if-!= $emit-opcodes:end/disp32
|
||||
<span id="L2204" class="LineNr">2204 </span> <span class="subxComment"># if (slice-starts-with?(op3, "#")) return</span>
|
||||
<span id="L2205" class="LineNr">2205 </span> <span class="subxS1Comment"># . var start/ebx : (addr byte) = op2->start</span>
|
||||
<span id="L2205" class="LineNr">2205 </span> <span class="subxS1Comment"># . var start/ebx: (addr byte) = op2->start</span>
|
||||
<span id="L2206" class="LineNr">2206 </span> 8b/copy 0/mod/indirect 2/rm32/edx <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 *edx to ebx</span>
|
||||
<span id="L2207" class="LineNr">2207 </span> <span class="subxS1Comment"># . var c/eax : byte = *start</span>
|
||||
<span id="L2207" class="LineNr">2207 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span>
|
||||
<span id="L2208" class="LineNr">2208 </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="L2209" class="LineNr">2209 </span> 8a/copy-byte 0/mod/indirect 3/rm32/ebx <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 *ebx to AL</span>
|
||||
<span id="L2210" class="LineNr">2210 </span> <span class="subxS1Comment"># . if (c == '#') return</span>
|
||||
|
|
@ -2019,11 +2019,11 @@ if ('onhashchange' in window) {
|
|||
<span id="L2249" class="LineNr">2249 </span> 5d/pop-to-ebp
|
||||
<span id="L2250" class="LineNr">2250 </span> c3/return
|
||||
<span id="L2251" class="LineNr">2251 </span>
|
||||
<span id="L2252" class="LineNr">2252 </span><span class="subxFunction">emit-modrm</span>: <span class="subxComment"># line : (addr stream byte), out : (addr buffered-file)</span>
|
||||
<span id="L2252" class="LineNr">2252 </span><span class="subxFunction">emit-modrm</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span>
|
||||
<span id="L2253" class="LineNr">2253 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L2254" class="LineNr">2254 </span> <span class="subxComment"># rewind-stream(line)</span>
|
||||
<span id="L2255" class="LineNr">2255 </span> <span class="subxComment"># var has-modrm? = false, mod = 0, rm32 = 0, r32 = 0</span>
|
||||
<span id="L2256" class="LineNr">2256 </span> <span class="subxComment"># var word-slice : slice</span>
|
||||
<span id="L2256" class="LineNr">2256 </span> <span class="subxComment"># var word-slice: slice</span>
|
||||
<span id="L2257" class="LineNr">2257 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L2258" class="LineNr">2258 </span> <span class="subxComment"># word-slice = next-word(line)</span>
|
||||
<span id="L2259" class="LineNr">2259 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span>
|
||||
|
|
@ -2055,17 +2055,17 @@ if ('onhashchange' in window) {
|
|||
<span id="L2285" class="LineNr">2285 </span> 53/push-ebx
|
||||
<span id="L2286" class="LineNr">2286 </span> 56/push-esi
|
||||
<span id="L2287" class="LineNr">2287 </span> 57/push-edi
|
||||
<span id="L2288" class="LineNr">2288 </span> <span class="subxComment"># var word-slice/ecx : slice</span>
|
||||
<span id="L2288" class="LineNr">2288 </span> <span class="subxComment"># var word-slice/ecx: slice</span>
|
||||
<span id="L2289" class="LineNr">2289 </span> 68/push 0/imm32/end
|
||||
<span id="L2290" class="LineNr">2290 </span> 68/push 0/imm32/start
|
||||
<span id="L2291" class="LineNr">2291 </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="L2292" class="LineNr">2292 </span> <span class="subxComment"># var has-modrm?/edx : boolean = false</span>
|
||||
<span id="L2292" class="LineNr">2292 </span> <span class="subxComment"># var has-modrm?/edx: boolean = false</span>
|
||||
<span id="L2293" class="LineNr">2293 </span> 31/xor 3/mod/direct 2/rm32/edx <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"># clear edx</span>
|
||||
<span id="L2294" class="LineNr">2294 </span> <span class="subxComment"># var mod/ebx : byte = 0</span>
|
||||
<span id="L2294" class="LineNr">2294 </span> <span class="subxComment"># var mod/ebx: byte = 0</span>
|
||||
<span id="L2295" class="LineNr">2295 </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="L2296" class="LineNr">2296 </span> <span class="subxComment"># var rm32/esi : byte = 0</span>
|
||||
<span id="L2296" class="LineNr">2296 </span> <span class="subxComment"># var rm32/esi: byte = 0</span>
|
||||
<span id="L2297" class="LineNr">2297 </span> 31/xor 3/mod/direct 6/rm32/esi <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"># clear esi</span>
|
||||
<span id="L2298" class="LineNr">2298 </span> <span class="subxComment"># var r32/edi : byte = 0</span>
|
||||
<span id="L2298" class="LineNr">2298 </span> <span class="subxComment"># var r32/edi: byte = 0</span>
|
||||
<span id="L2299" class="LineNr">2299 </span> 31/xor 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edi</span>
|
||||
<span id="L2300" class="LineNr">2300 </span> <span class="subxComment"># rewind-stream(line)</span>
|
||||
<span id="L2301" class="LineNr">2301 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
|
|
@ -2101,9 +2101,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L2402" class="LineNr">2402 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span>
|
||||
<span id="L2403" class="LineNr">2403 </span> <span class="subxS1Comment"># . spill edx</span>
|
||||
<span id="L2404" class="LineNr">2404 </span> 52/push-edx
|
||||
<span id="L2405" class="LineNr">2405 </span> <span class="subxS1Comment"># . var start/edx : (addr byte) = word-slice->start</span>
|
||||
<span id="L2405" class="LineNr">2405 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span>
|
||||
<span id="L2406" class="LineNr">2406 </span> 8b/copy 0/mod/indirect 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"># copy *ecx to edx</span>
|
||||
<span id="L2407" class="LineNr">2407 </span> <span class="subxS1Comment"># . var c/eax : byte = *start</span>
|
||||
<span id="L2407" class="LineNr">2407 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span>
|
||||
<span id="L2408" class="LineNr">2408 </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="L2409" class="LineNr">2409 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <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 *edx to AL</span>
|
||||
<span id="L2410" class="LineNr">2410 </span> <span class="subxS1Comment"># . restore edx</span>
|
||||
|
|
@ -2228,7 +2228,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L2529" class="LineNr">2529 </span> 81 7/subop/compare 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare edx</span>
|
||||
<span id="L2530" class="LineNr">2530 </span> 74/jump-if-= $emit-modrm:end/disp8
|
||||
<span id="L2531" class="LineNr">2531 </span><span class="Constant">$emit-modrm:calculate</span>:
|
||||
<span id="L2532" class="LineNr">2532 </span> <span class="subxComment"># var modrm/ebx : byte = mod & 0b11</span>
|
||||
<span id="L2532" class="LineNr">2532 </span> <span class="subxComment"># var modrm/ebx: byte = mod & 0b11</span>
|
||||
<span id="L2533" class="LineNr">2533 </span> 81 4/subop/and 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> 3/imm32/0b11 <span class="subxComment"># bitwise and of ebx</span>
|
||||
<span id="L2534" class="LineNr">2534 </span> <span class="subxComment"># modrm <<= 3</span>
|
||||
<span id="L2535" class="LineNr">2535 </span> c1/shift 4/subop/left 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> 3/imm8 <span class="subxComment"># shift ebx left by 3 bits</span>
|
||||
|
|
@ -2265,10 +2265,10 @@ if ('onhashchange' in window) {
|
|||
<span id="L2566" class="LineNr">2566 </span> 5d/pop-to-ebp
|
||||
<span id="L2567" class="LineNr">2567 </span> c3/return
|
||||
<span id="L2568" class="LineNr">2568 </span>
|
||||
<span id="L2569" class="LineNr">2569 </span><span class="subxFunction">emit-sib</span>: <span class="subxComment"># line : (addr stream byte), out : (addr buffered-file)</span>
|
||||
<span id="L2569" class="LineNr">2569 </span><span class="subxFunction">emit-sib</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span>
|
||||
<span id="L2570" class="LineNr">2570 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L2571" class="LineNr">2571 </span> <span class="subxComment"># var has-sib? = false, base = 0, index = 0, scale = 0</span>
|
||||
<span id="L2572" class="LineNr">2572 </span> <span class="subxComment"># var word-slice : slice</span>
|
||||
<span id="L2572" class="LineNr">2572 </span> <span class="subxComment"># var word-slice: slice</span>
|
||||
<span id="L2573" class="LineNr">2573 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L2574" class="LineNr">2574 </span> <span class="subxComment"># word-slice = next-word(line)</span>
|
||||
<span id="L2575" class="LineNr">2575 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span>
|
||||
|
|
@ -2300,17 +2300,17 @@ if ('onhashchange' in window) {
|
|||
<span id="L2601" class="LineNr">2601 </span> 53/push-ebx
|
||||
<span id="L2602" class="LineNr">2602 </span> 56/push-esi
|
||||
<span id="L2603" class="LineNr">2603 </span> 57/push-edi
|
||||
<span id="L2604" class="LineNr">2604 </span> <span class="subxComment"># var word-slice/ecx : slice</span>
|
||||
<span id="L2604" class="LineNr">2604 </span> <span class="subxComment"># var word-slice/ecx: slice</span>
|
||||
<span id="L2605" class="LineNr">2605 </span> 68/push 0/imm32/end
|
||||
<span id="L2606" class="LineNr">2606 </span> 68/push 0/imm32/start
|
||||
<span id="L2607" class="LineNr">2607 </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="L2608" class="LineNr">2608 </span> <span class="subxComment"># var has-sib?/edx : boolean = false</span>
|
||||
<span id="L2608" class="LineNr">2608 </span> <span class="subxComment"># var has-sib?/edx: boolean = false</span>
|
||||
<span id="L2609" class="LineNr">2609 </span> 31/xor 3/mod/direct 2/rm32/edx <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"># clear edx</span>
|
||||
<span id="L2610" class="LineNr">2610 </span> <span class="subxComment"># var scale/ebx : byte = 0</span>
|
||||
<span id="L2610" class="LineNr">2610 </span> <span class="subxComment"># var scale/ebx: byte = 0</span>
|
||||
<span id="L2611" class="LineNr">2611 </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="L2612" class="LineNr">2612 </span> <span class="subxComment"># var base/esi : byte = 0</span>
|
||||
<span id="L2612" class="LineNr">2612 </span> <span class="subxComment"># var base/esi: byte = 0</span>
|
||||
<span id="L2613" class="LineNr">2613 </span> 31/xor 3/mod/direct 6/rm32/esi <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"># clear esi</span>
|
||||
<span id="L2614" class="LineNr">2614 </span> <span class="subxComment"># var index/edi : byte = 0</span>
|
||||
<span id="L2614" class="LineNr">2614 </span> <span class="subxComment"># var index/edi: byte = 0</span>
|
||||
<span id="L2615" class="LineNr">2615 </span> 31/xor 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edi</span>
|
||||
<span id="L2616" class="LineNr">2616 </span> <span class="subxComment"># rewind-stream(line)</span>
|
||||
<span id="L2617" class="LineNr">2617 </span> <span class="subxS2Comment"># . . push args</span>
|
||||
|
|
@ -2346,9 +2346,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L2711" class="LineNr">2711 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span>
|
||||
<span id="L2712" class="LineNr">2712 </span> <span class="subxS1Comment"># . spill edx</span>
|
||||
<span id="L2713" class="LineNr">2713 </span> 52/push-edx
|
||||
<span id="L2714" class="LineNr">2714 </span> <span class="subxS1Comment"># . var start/edx : (addr byte) = word-slice->start</span>
|
||||
<span id="L2714" class="LineNr">2714 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span>
|
||||
<span id="L2715" class="LineNr">2715 </span> 8b/copy 0/mod/indirect 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"># copy *ecx to edx</span>
|
||||
<span id="L2716" class="LineNr">2716 </span> <span class="subxS1Comment"># . var c/eax : byte = *start</span>
|
||||
<span id="L2716" class="LineNr">2716 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span>
|
||||
<span id="L2717" class="LineNr">2717 </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="L2718" class="LineNr">2718 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <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 *edx to AL</span>
|
||||
<span id="L2719" class="LineNr">2719 </span> <span class="subxS1Comment"># . restore edx</span>
|
||||
|
|
@ -2445,7 +2445,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L2810" class="LineNr">2810 </span> 81 7/subop/compare 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare edx</span>
|
||||
<span id="L2811" class="LineNr">2811 </span> 74/jump-if-= $emit-sib:end/disp8
|
||||
<span id="L2812" class="LineNr">2812 </span><span class="Constant">$emit-sib:calculate</span>:
|
||||
<span id="L2813" class="LineNr">2813 </span> <span class="subxComment"># var sib/ebx : byte = scale & 0b11</span>
|
||||
<span id="L2813" class="LineNr">2813 </span> <span class="subxComment"># var sib/ebx: byte = scale & 0b11</span>
|
||||
<span id="L2814" class="LineNr">2814 </span> 81 4/subop/and 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> 3/imm32/0b11 <span class="subxComment"># bitwise and of ebx</span>
|
||||
<span id="L2815" class="LineNr">2815 </span> <span class="subxComment"># sib <<= 2</span>
|
||||
<span id="L2816" class="LineNr">2816 </span> c1/shift 4/subop/left 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> 2/imm8 <span class="subxComment"># shift ebx left by 2 bits</span>
|
||||
|
|
@ -2482,10 +2482,10 @@ if ('onhashchange' in window) {
|
|||
<span id="L2847" class="LineNr">2847 </span> 5d/pop-to-ebp
|
||||
<span id="L2848" class="LineNr">2848 </span> c3/return
|
||||
<span id="L2849" class="LineNr">2849 </span>
|
||||
<span id="L2850" class="LineNr">2850 </span><span class="subxFunction">emit-disp</span>: <span class="subxComment"># line : (addr stream byte), out : (addr buffered-file)</span>
|
||||
<span id="L2850" class="LineNr">2850 </span><span class="subxFunction">emit-disp</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span>
|
||||
<span id="L2851" class="LineNr">2851 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L2852" class="LineNr">2852 </span> <span class="subxComment"># rewind-stream(line)</span>
|
||||
<span id="L2853" class="LineNr">2853 </span> <span class="subxComment"># var word-slice : slice</span>
|
||||
<span id="L2853" class="LineNr">2853 </span> <span class="subxComment"># var word-slice: slice</span>
|
||||
<span id="L2854" class="LineNr">2854 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L2855" class="LineNr">2855 </span> <span class="subxComment"># word-slice = next-word(line)</span>
|
||||
<span id="L2856" class="LineNr">2856 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span>
|
||||
|
|
@ -2507,7 +2507,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L2872" class="LineNr">2872 </span> 50/push-eax
|
||||
<span id="L2873" class="LineNr">2873 </span> 51/push-ecx
|
||||
<span id="L2874" class="LineNr">2874 </span> 52/push-edx
|
||||
<span id="L2875" class="LineNr">2875 </span> <span class="subxComment"># var word-slice/ecx : slice</span>
|
||||
<span id="L2875" class="LineNr">2875 </span> <span class="subxComment"># var word-slice/ecx: slice</span>
|
||||
<span id="L2876" class="LineNr">2876 </span> 68/push 0/imm32/end
|
||||
<span id="L2877" class="LineNr">2877 </span> 68/push 0/imm32/start
|
||||
<span id="L2878" class="LineNr">2878 </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>
|
||||
|
|
@ -2543,9 +2543,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L2972" class="LineNr">2972 </span> 0f 85/jump-if-!= $emit-disp:<span class="Constant">break</span>/disp32
|
||||
<span id="L2973" class="LineNr">2973 </span><span class="Constant">$emit-disp:check1</span>:
|
||||
<span id="L2974" class="LineNr">2974 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span>
|
||||
<span id="L2975" class="LineNr">2975 </span> <span class="subxS1Comment"># . var start/edx : (addr byte) = word-slice->start</span>
|
||||
<span id="L2975" class="LineNr">2975 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span>
|
||||
<span id="L2976" class="LineNr">2976 </span> 8b/copy 0/mod/indirect 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"># copy *ecx to edx</span>
|
||||
<span id="L2977" class="LineNr">2977 </span> <span class="subxS1Comment"># . var c/eax : byte = *start</span>
|
||||
<span id="L2977" class="LineNr">2977 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span>
|
||||
<span id="L2978" class="LineNr">2978 </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="L2979" class="LineNr">2979 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <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 *edx to AL</span>
|
||||
<span id="L2980" class="LineNr">2980 </span> <span class="subxS1Comment"># . if (c == '#') break</span>
|
||||
|
|
@ -2637,10 +2637,10 @@ if ('onhashchange' in window) {
|
|||
<span id="L3066" class="LineNr">3066 </span> 5d/pop-to-ebp
|
||||
<span id="L3067" class="LineNr">3067 </span> c3/return
|
||||
<span id="L3068" class="LineNr">3068 </span>
|
||||
<span id="L3069" class="LineNr">3069 </span><span class="subxFunction">emit-imm</span>: <span class="subxComment"># line : (addr stream byte), out : (addr buffered-file)</span>
|
||||
<span id="L3069" class="LineNr">3069 </span><span class="subxFunction">emit-imm</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span>
|
||||
<span id="L3070" class="LineNr">3070 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L3071" class="LineNr">3071 </span> <span class="subxComment"># rewind-stream(line)</span>
|
||||
<span id="L3072" class="LineNr">3072 </span> <span class="subxComment"># var word-slice : slice</span>
|
||||
<span id="L3072" class="LineNr">3072 </span> <span class="subxComment"># var word-slice: slice</span>
|
||||
<span id="L3073" class="LineNr">3073 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L3074" class="LineNr">3074 </span> <span class="subxComment"># word-slice = next-word(line)</span>
|
||||
<span id="L3075" class="LineNr">3075 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span>
|
||||
|
|
@ -2662,7 +2662,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L3091" class="LineNr">3091 </span> 50/push-eax
|
||||
<span id="L3092" class="LineNr">3092 </span> 51/push-ecx
|
||||
<span id="L3093" class="LineNr">3093 </span> 52/push-edx
|
||||
<span id="L3094" class="LineNr">3094 </span> <span class="subxComment"># var word-slice/ecx : slice</span>
|
||||
<span id="L3094" class="LineNr">3094 </span> <span class="subxComment"># var word-slice/ecx: slice</span>
|
||||
<span id="L3095" class="LineNr">3095 </span> 68/push 0/imm32/end
|
||||
<span id="L3096" class="LineNr">3096 </span> 68/push 0/imm32/start
|
||||
<span id="L3097" class="LineNr">3097 </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>
|
||||
|
|
@ -2698,9 +2698,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L3191" class="LineNr">3191 </span> 0f 85/jump-if-!= $emit-imm:<span class="Constant">break</span>/disp32
|
||||
<span id="L3192" class="LineNr">3192 </span><span class="Constant">$emit-imm:check1</span>:
|
||||
<span id="L3193" class="LineNr">3193 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span>
|
||||
<span id="L3194" class="LineNr">3194 </span> <span class="subxS1Comment"># . var start/edx : (addr byte) = slice->start</span>
|
||||
<span id="L3194" class="LineNr">3194 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = slice->start</span>
|
||||
<span id="L3195" class="LineNr">3195 </span> 8b/copy 0/mod/indirect 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"># copy *ecx to edx</span>
|
||||
<span id="L3196" class="LineNr">3196 </span> <span class="subxS1Comment"># . var c/eax : byte = *start</span>
|
||||
<span id="L3196" class="LineNr">3196 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span>
|
||||
<span id="L3197" class="LineNr">3197 </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="L3198" class="LineNr">3198 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <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 *edx to AL</span>
|
||||
<span id="L3199" class="LineNr">3199 </span> <span class="subxS1Comment"># . if (c == '#') break</span>
|
||||
|
|
@ -2792,7 +2792,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L3285" class="LineNr">3285 </span> 5d/pop-to-ebp
|
||||
<span id="L3286" class="LineNr">3286 </span> c3/return
|
||||
<span id="L3287" class="LineNr">3287 </span>
|
||||
<span id="L3288" class="LineNr">3288 </span><span class="subxFunction">emit-line-in-comment</span>: <span class="subxComment"># line : (addr stream byte), out : (addr buffered-file)</span>
|
||||
<span id="L3288" class="LineNr">3288 </span><span class="subxFunction">emit-line-in-comment</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span>
|
||||
<span id="L3289" class="LineNr">3289 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L3290" class="LineNr">3290 </span> 55/push-ebp
|
||||
<span id="L3291" class="LineNr">3291 </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>
|
||||
|
|
@ -4694,7 +4694,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L5837" class="LineNr">5837 </span> c3/return
|
||||
<span id="L5838" class="LineNr">5838 </span>
|
||||
<span id="L5839" class="LineNr">5839 </span><span class="subxComment"># shortcut for parse-hex-int(next-token-from-slice(word->start, word->end, '/'))</span>
|
||||
<span id="L5840" class="LineNr">5840 </span><span class="subxFunction">parse-datum-of-word</span>: <span class="subxComment"># word : (addr slice) -> value/eax : int</span>
|
||||
<span id="L5840" class="LineNr">5840 </span><span class="subxFunction">parse-datum-of-word</span>: <span class="subxComment"># word: (addr slice) -> value/eax: int</span>
|
||||
<span id="L5841" class="LineNr">5841 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L5842" class="LineNr">5842 </span> 55/push-ebp
|
||||
<span id="L5843" class="LineNr">5843 </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>
|
||||
|
|
@ -4703,7 +4703,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L5846" class="LineNr">5846 </span> 56/push-esi
|
||||
<span id="L5847" class="LineNr">5847 </span> <span class="subxComment"># esi = word</span>
|
||||
<span id="L5848" class="LineNr">5848 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L5849" class="LineNr">5849 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L5849" class="LineNr">5849 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L5850" class="LineNr">5850 </span> 68/push 0/imm32/end
|
||||
<span id="L5851" class="LineNr">5851 </span> 68/push 0/imm32/start
|
||||
<span id="L5852" class="LineNr">5852 </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>
|
||||
|
|
|
|||
|
|
@ -166,9 +166,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L104" class="LineNr"> 104 </span>
|
||||
<span id="L105" class="LineNr"> 105 </span><span class="subxComment"># error messages considered:</span>
|
||||
<span id="L106" class="LineNr"> 106 </span><span class="subxComment"># *x + 34 -> error: base+disp addressing must be within '()'</span>
|
||||
<span id="L107" class="LineNr"> 107 </span><span class="subxFunction">subx-sigils</span>: <span class="subxComment"># in : (addr buffered-file), out : (addr buffered-file)</span>
|
||||
<span id="L107" class="LineNr"> 107 </span><span class="subxFunction">subx-sigils</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file)</span>
|
||||
<span id="L108" class="LineNr"> 108 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L109" class="LineNr"> 109 </span> <span class="subxComment"># var line : (stream byte 512)</span>
|
||||
<span id="L109" class="LineNr"> 109 </span> <span class="subxComment"># var line: (stream byte 512)</span>
|
||||
<span id="L110" class="LineNr"> 110 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L111" class="LineNr"> 111 </span> <span class="subxComment"># clear-stream(line)</span>
|
||||
<span id="L112" class="LineNr"> 112 </span> <span class="subxComment"># read-line-buffered(in, line)</span>
|
||||
|
|
@ -203,13 +203,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L141" class="LineNr"> 141 </span> 51/push-ecx
|
||||
<span id="L142" class="LineNr"> 142 </span> 52/push-edx
|
||||
<span id="L143" class="LineNr"> 143 </span> 53/push-ebx
|
||||
<span id="L144" class="LineNr"> 144 </span> <span class="subxComment"># var line/ecx : (stream byte 512)</span>
|
||||
<span id="L144" class="LineNr"> 144 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span>
|
||||
<span id="L145" class="LineNr"> 145 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L146" class="LineNr"> 146 </span> 68/push 0x200/imm32/length
|
||||
<span id="L147" class="LineNr"> 147 </span> 68/push 0/imm32/read
|
||||
<span id="L148" class="LineNr"> 148 </span> 68/push 0/imm32/write
|
||||
<span id="L149" class="LineNr"> 149 </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="L150" class="LineNr"> 150 </span> <span class="subxComment"># var word-slice/edx : slice</span>
|
||||
<span id="L150" class="LineNr"> 150 </span> <span class="subxComment"># var word-slice/edx: slice</span>
|
||||
<span id="L151" class="LineNr"> 151 </span> 68/push 0/imm32/end
|
||||
<span id="L152" class="LineNr"> 152 </span> 68/push 0/imm32/start
|
||||
<span id="L153" class="LineNr"> 153 </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>
|
||||
|
|
@ -1182,13 +1182,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L1359" class="LineNr">1359 </span> 5d/pop-to-ebp
|
||||
<span id="L1360" class="LineNr">1360 </span> c3/return
|
||||
<span id="L1361" class="LineNr">1361 </span>
|
||||
<span id="L1362" class="LineNr">1362 </span><span class="subxFunction">emit-direct-mode</span>: <span class="subxComment"># out : (addr buffered-file), word-slice : (addr slice)</span>
|
||||
<span id="L1362" class="LineNr">1362 </span><span class="subxFunction">emit-direct-mode</span>: <span class="subxComment"># out: (addr buffered-file), word-slice: (addr slice)</span>
|
||||
<span id="L1363" class="LineNr">1363 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L1364" class="LineNr">1364 </span> 55/push-ebp
|
||||
<span id="L1365" class="LineNr">1365 </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="L1366" class="LineNr">1366 </span> <span class="subxS1Comment"># . save registers</span>
|
||||
<span id="L1367" class="LineNr">1367 </span> 50/push-eax
|
||||
<span id="L1368" class="LineNr">1368 </span> <span class="subxComment"># var local-slice/eax : slice = {word-slice->start, word-slice->end}</span>
|
||||
<span id="L1368" class="LineNr">1368 </span> <span class="subxComment"># var local-slice/eax: slice = {word-slice->start, word-slice->end}</span>
|
||||
<span id="L1369" class="LineNr">1369 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span>
|
||||
<span id="L1370" class="LineNr">1370 </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> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span>
|
||||
<span id="L1371" class="LineNr">1371 </span> ff 6/subop/push 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> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span>
|
||||
|
|
@ -1372,7 +1372,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1599" class="LineNr">1599 </span><span class="subxComment"># error messages considered:</span>
|
||||
<span id="L1600" class="LineNr">1600 </span><span class="subxComment"># * ... -> error: no space after '*'</span>
|
||||
<span id="L1601" class="LineNr">1601 </span><span class="subxComment"># *(... -> error: *(...) expression must be all on a single line</span>
|
||||
<span id="L1602" class="LineNr">1602 </span><span class="subxFunction">next-word-or-expression</span>: <span class="subxComment"># line : (addr stream byte), out : (addr slice)</span>
|
||||
<span id="L1602" class="LineNr">1602 </span><span class="subxFunction">next-word-or-expression</span>: <span class="subxComment"># line: (addr stream byte), out: (addr slice)</span>
|
||||
<span id="L1603" class="LineNr">1603 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L1604" class="LineNr">1604 </span> <span class="subxComment"># skip-chars-matching(line, ' ')</span>
|
||||
<span id="L1605" class="LineNr">1605 </span> <span class="subxComment"># if line->read >= line->write # end of line</span>
|
||||
|
|
@ -1607,7 +1607,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1834" class="LineNr">1834 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L1835" class="LineNr">1835 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1836" class="LineNr">1836 </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="L1837" class="LineNr">1837 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L1837" class="LineNr">1837 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L1838" class="LineNr">1838 </span> 68/push 0/imm32/end
|
||||
<span id="L1839" class="LineNr">1839 </span> 68/push 0/imm32/start
|
||||
<span id="L1840" class="LineNr">1840 </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>
|
||||
|
|
@ -1680,7 +1680,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1907" class="LineNr">1907 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L1908" class="LineNr">1908 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1909" class="LineNr">1909 </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="L1910" class="LineNr">1910 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L1910" class="LineNr">1910 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L1911" class="LineNr">1911 </span> 68/push 0/imm32/end
|
||||
<span id="L1912" class="LineNr">1912 </span> 68/push 0/imm32/start
|
||||
<span id="L1913" class="LineNr">1913 </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>
|
||||
|
|
@ -1753,7 +1753,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1980" class="LineNr">1980 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L1981" class="LineNr">1981 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1982" class="LineNr">1982 </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="L1983" class="LineNr">1983 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L1983" class="LineNr">1983 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L1984" class="LineNr">1984 </span> 68/push 0/imm32/end
|
||||
<span id="L1985" class="LineNr">1985 </span> 68/push 0/imm32/start
|
||||
<span id="L1986" class="LineNr">1986 </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>
|
||||
|
|
@ -1795,7 +1795,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L2022" class="LineNr">2022 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L2023" class="LineNr">2023 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L2024" class="LineNr">2024 </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="L2025" class="LineNr">2025 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L2025" class="LineNr">2025 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L2026" class="LineNr">2026 </span> 68/push 0/imm32/end
|
||||
<span id="L2027" class="LineNr">2027 </span> 68/push 0/imm32/start
|
||||
<span id="L2028" class="LineNr">2028 </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>
|
||||
|
|
@ -1858,7 +1858,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L2085" class="LineNr">2085 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L2086" class="LineNr">2086 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L2087" class="LineNr">2087 </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="L2088" class="LineNr">2088 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L2088" class="LineNr">2088 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L2089" class="LineNr">2089 </span> 68/push 0/imm32/end
|
||||
<span id="L2090" class="LineNr">2090 </span> 68/push 0/imm32/start
|
||||
<span id="L2091" class="LineNr">2091 </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>
|
||||
|
|
@ -1921,7 +1921,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L2148" class="LineNr">2148 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L2149" class="LineNr">2149 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L2150" class="LineNr">2150 </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="L2151" class="LineNr">2151 </span> <span class="subxComment"># var slice/ecx : slice</span>
|
||||
<span id="L2151" class="LineNr">2151 </span> <span class="subxComment"># var slice/ecx: slice</span>
|
||||
<span id="L2152" class="LineNr">2152 </span> 68/push 0/imm32/end
|
||||
<span id="L2153" class="LineNr">2153 </span> 68/push 0/imm32/start
|
||||
<span id="L2154" class="LineNr">2154 </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>
|
||||
|
|
@ -1980,7 +1980,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L2207" class="LineNr">2207 </span><span class="subxComment"># *(reg1+reg2<<s+disp) -> 2/mod 4/rm32 reg1/base reg2/index s/scale disp/disp32</span>
|
||||
<span id="L2208" class="LineNr">2208 </span><span class="subxComment"># Intermediate structure: base, index, scale, disp</span>
|
||||
<span id="L2209" class="LineNr">2209 </span><span class="subxComment"># Default values: base: 0, index: 4 (none), scale: 0, disp: 0</span>
|
||||
<span id="L2210" class="LineNr">2210 </span><span class="subxFunction">parse-effective-address</span>: <span class="subxComment"># word-slice : (addr slice) -> base/eax, index/ecx, scale/edx, disp/ebx</span>
|
||||
<span id="L2210" class="LineNr">2210 </span><span class="subxFunction">parse-effective-address</span>: <span class="subxComment"># word-slice: (addr slice) -> base/eax, index/ecx, scale/edx, disp/ebx</span>
|
||||
<span id="L2211" class="LineNr">2211 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L2212" class="LineNr">2212 </span> <span class="subxComment"># var local-slice = {word-slice->start, word-slice->end}</span>
|
||||
<span id="L2213" class="LineNr">2213 </span> <span class="subxComment"># ++local-slice->start to skip '*'</span>
|
||||
|
|
@ -2023,7 +2023,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L2250" class="LineNr">2250 </span> <span class="subxS1Comment"># . save registers</span>
|
||||
<span id="L2251" class="LineNr">2251 </span> 56/push-esi
|
||||
<span id="L2252" class="LineNr">2252 </span> 57/push-edi
|
||||
<span id="L2253" class="LineNr">2253 </span> <span class="subxComment"># var local-slice/esi : slice = {word-slice->start, word-slice->end}</span>
|
||||
<span id="L2253" class="LineNr">2253 </span> <span class="subxComment"># var local-slice/esi: slice = {word-slice->start, word-slice->end}</span>
|
||||
<span id="L2254" class="LineNr">2254 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L2255" class="LineNr">2255 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span>
|
||||
<span id="L2256" class="LineNr">2256 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span>
|
||||
|
|
@ -2443,7 +2443,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L2670" class="LineNr">2670 </span>
|
||||
<span id="L2671" class="LineNr">2671 </span><span class="subxComment"># assumes 'in' starts with a register name, and returns pointer to its code</span>
|
||||
<span id="L2672" class="LineNr">2672 </span><span class="subxComment"># side-effect: modifies 'in' to scan past the initial register name</span>
|
||||
<span id="L2673" class="LineNr">2673 </span><span class="subxFunction">next-register</span>: <span class="subxComment"># in : (addr slice) -> reg/eax : int</span>
|
||||
<span id="L2673" class="LineNr">2673 </span><span class="subxFunction">next-register</span>: <span class="subxComment"># in: (addr slice) -> reg/eax: int</span>
|
||||
<span id="L2674" class="LineNr">2674 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L2675" class="LineNr">2675 </span> 55/push-ebp
|
||||
<span id="L2676" class="LineNr">2676 </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>
|
||||
|
|
@ -2452,7 +2452,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L2679" class="LineNr">2679 </span> 56/push-esi
|
||||
<span id="L2680" class="LineNr">2680 </span> <span class="subxComment"># esi = in</span>
|
||||
<span id="L2681" class="LineNr">2681 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L2682" class="LineNr">2682 </span> <span class="subxComment"># var reg-slice/ecx : slice = {in->start, in->start + 3}</span>
|
||||
<span id="L2682" class="LineNr">2682 </span> <span class="subxComment"># var reg-slice/ecx: slice = {in->start, in->start + 3}</span>
|
||||
<span id="L2683" class="LineNr">2683 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span>
|
||||
<span id="L2684" class="LineNr">2684 </span> 05/add-to-eax 3/imm32
|
||||
<span id="L2685" class="LineNr">2685 </span> 50/push-eax
|
||||
|
|
@ -2922,7 +2922,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L3149" class="LineNr">3149 </span><span class="subxComment"># if index is none, then mod = 2 and rm32 = base and disp32 = disp</span>
|
||||
<span id="L3150" class="LineNr">3150 </span><span class="subxComment"># emit-sib:</span>
|
||||
<span id="L3151" class="LineNr">3151 </span><span class="subxComment"># if index is not none, then mod = 2 and rm32 = 4 and base = base and index = index and disp32 = disp</span>
|
||||
<span id="L3152" class="LineNr">3152 </span><span class="subxFunction">emit-indirect-mode</span>: <span class="subxComment"># out : (addr buffered-file), base : int, index : int, scale : int, disp : int</span>
|
||||
<span id="L3152" class="LineNr">3152 </span><span class="subxFunction">emit-indirect-mode</span>: <span class="subxComment"># out: (addr buffered-file), base: int, index: int, scale: int, disp: int</span>
|
||||
<span id="L3153" class="LineNr">3153 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L3154" class="LineNr">3154 </span> 55/push-ebp
|
||||
<span id="L3155" class="LineNr">3155 </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>
|
||||
|
|
@ -3456,14 +3456,14 @@ if ('onhashchange' in window) {
|
|||
<span id="L3858" class="LineNr">3858 </span> 5d/pop-to-ebp
|
||||
<span id="L3859" class="LineNr">3859 </span> c3/return
|
||||
<span id="L3860" class="LineNr">3860 </span>
|
||||
<span id="L3861" class="LineNr">3861 </span><span class="subxFunction">disp32-mode?</span>: <span class="subxComment"># in : (addr slice) -> reg/eax : boolean</span>
|
||||
<span id="L3861" class="LineNr">3861 </span><span class="subxFunction">disp32-mode?</span>: <span class="subxComment"># in: (addr slice) -> reg/eax: boolean</span>
|
||||
<span id="L3862" class="LineNr">3862 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L3863" class="LineNr">3863 </span> 55/push-ebp
|
||||
<span id="L3864" class="LineNr">3864 </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="L3865" class="LineNr">3865 </span> <span class="subxS1Comment"># . save registers</span>
|
||||
<span id="L3866" class="LineNr">3866 </span> 56/push-esi
|
||||
<span id="L3867" class="LineNr">3867 </span> 57/push-edi
|
||||
<span id="L3868" class="LineNr">3868 </span> <span class="subxComment"># var local-slice/esi : slice = {in->start, in->end}</span>
|
||||
<span id="L3868" class="LineNr">3868 </span> <span class="subxComment"># var local-slice/esi: slice = {in->start, in->end}</span>
|
||||
<span id="L3869" class="LineNr">3869 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span>
|
||||
<span id="L3870" class="LineNr">3870 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span>
|
||||
<span id="L3871" class="LineNr">3871 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span>
|
||||
|
|
@ -3515,13 +3515,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L3917" class="LineNr">3917 </span> 5d/pop-to-ebp
|
||||
<span id="L3918" class="LineNr">3918 </span> c3/return
|
||||
<span id="L3919" class="LineNr">3919 </span>
|
||||
<span id="L3920" class="LineNr">3920 </span><span class="subxFunction">emit-indirect-disp32</span>: <span class="subxComment"># out : (addr buffered-file), word-slice : (addr slice)</span>
|
||||
<span id="L3920" class="LineNr">3920 </span><span class="subxFunction">emit-indirect-disp32</span>: <span class="subxComment"># out: (addr buffered-file), word-slice: (addr slice)</span>
|
||||
<span id="L3921" class="LineNr">3921 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L3922" class="LineNr">3922 </span> 55/push-ebp
|
||||
<span id="L3923" class="LineNr">3923 </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="L3924" class="LineNr">3924 </span> <span class="subxS1Comment"># . save registers</span>
|
||||
<span id="L3925" class="LineNr">3925 </span> 56/push-esi
|
||||
<span id="L3926" class="LineNr">3926 </span> <span class="subxComment"># var local-slice/esi : slice = {in->start, in->end}</span>
|
||||
<span id="L3926" class="LineNr">3926 </span> <span class="subxComment"># var local-slice/esi: slice = {in->start, in->end}</span>
|
||||
<span id="L3927" class="LineNr">3927 </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="L3928" class="LineNr">3928 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span>
|
||||
<span id="L3929" class="LineNr">3929 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span>
|
||||
|
|
@ -3565,7 +3565,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L3967" class="LineNr">3967 </span><span class="subxComment"># assumes 'in' starts with optional '+' or '-', optional whitespace, and an unsigned integer</span>
|
||||
<span id="L3968" class="LineNr">3968 </span><span class="subxComment"># returns the value of the integer</span>
|
||||
<span id="L3969" class="LineNr">3969 </span><span class="subxComment"># side-effect: modifies 'in' to skip past the integer</span>
|
||||
<span id="L3970" class="LineNr">3970 </span><span class="subxFunction">next-hex-int</span>: <span class="subxComment"># in : (addr slice) -> result/eax</span>
|
||||
<span id="L3970" class="LineNr">3970 </span><span class="subxFunction">next-hex-int</span>: <span class="subxComment"># in: (addr slice) -> result/eax</span>
|
||||
<span id="L3971" class="LineNr">3971 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L3972" class="LineNr">3972 </span> 55/push-ebp
|
||||
<span id="L3973" class="LineNr">3973 </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>
|
||||
|
|
@ -3980,7 +3980,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L4382" class="LineNr">4382 </span><span class="subxComment"># assumes 'in' starts a positive unsigned integer</span>
|
||||
<span id="L4383" class="LineNr">4383 </span><span class="subxComment"># returns the value of the integer</span>
|
||||
<span id="L4384" class="LineNr">4384 </span><span class="subxComment"># side-effect: modifies 'in' to skip past the integer</span>
|
||||
<span id="L4385" class="LineNr">4385 </span><span class="subxFunction">next-positive-hex-int</span>: <span class="subxComment"># in : (addr slice) -> result/eax</span>
|
||||
<span id="L4385" class="LineNr">4385 </span><span class="subxFunction">next-positive-hex-int</span>: <span class="subxComment"># in: (addr slice) -> result/eax</span>
|
||||
<span id="L4386" class="LineNr">4386 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L4387" class="LineNr">4387 </span> 55/push-ebp
|
||||
<span id="L4388" class="LineNr">4388 </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>
|
||||
|
|
|
|||
|
|
@ -176,12 +176,12 @@ if ('onhashchange' in window) {
|
|||
<span id="L113" class="LineNr"> 113 </span><span class="subxComment"># labels: (addr stream {string, label-info}) (16 bytes per row)</span>
|
||||
<span id="L114" class="LineNr"> 114 </span><span class="subxComment"># these are all inefficient; use sequential scans for lookups</span>
|
||||
<span id="L115" class="LineNr"> 115 </span>
|
||||
<span id="L116" class="LineNr"> 116 </span><span class="subxFunction">subx-survey</span>: <span class="subxComment"># infile : (addr buffered-file), out : (addr buffered-file)</span>
|
||||
<span id="L116" class="LineNr"> 116 </span><span class="subxFunction">subx-survey</span>: <span class="subxComment"># infile: (addr buffered-file), out: (addr buffered-file)</span>
|
||||
<span id="L117" class="LineNr"> 117 </span> <span class="subxComment"># pseudocode</span>
|
||||
<span id="L118" class="LineNr"> 118 </span> <span class="subxComment"># var in : (stream byte 4096)</span>
|
||||
<span id="L118" class="LineNr"> 118 </span> <span class="subxComment"># var in: (stream byte 4096)</span>
|
||||
<span id="L119" class="LineNr"> 119 </span> <span class="subxComment"># slurp(infile, in)</span>
|
||||
<span id="L120" class="LineNr"> 120 </span> <span class="subxComment"># var segments : (stream segment-info)</span>
|
||||
<span id="L121" class="LineNr"> 121 </span> <span class="subxComment"># var labels : (stream label-info Max-labels)</span>
|
||||
<span id="L120" class="LineNr"> 120 </span> <span class="subxComment"># var segments: (stream segment-info)</span>
|
||||
<span id="L121" class="LineNr"> 121 </span> <span class="subxComment"># var labels: (stream label-info Max-labels)</span>
|
||||
<span id="L122" class="LineNr"> 122 </span> <span class="subxComment"># compute-offsets(in, segments, labels)</span>
|
||||
<span id="L123" class="LineNr"> 123 </span> <span class="subxComment"># compute-addresses(segments, labels)</span>
|
||||
<span id="L124" class="LineNr"> 124 </span> <span class="subxComment"># rewind-stream(in)</span>
|
||||
|
|
@ -194,13 +194,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L131" class="LineNr"> 131 </span> 51/push-ecx
|
||||
<span id="L132" class="LineNr"> 132 </span> 52/push-edx
|
||||
<span id="L133" class="LineNr"> 133 </span> 56/push-esi
|
||||
<span id="L134" class="LineNr"> 134 </span> <span class="subxComment"># var segments/ecx : (stream {string, segment-info} 160) # 10 rows * 16 bytes/row</span>
|
||||
<span id="L134" class="LineNr"> 134 </span> <span class="subxComment"># var segments/ecx: (stream {string, segment-info} 160) # 10 rows * 16 bytes/row</span>
|
||||
<span id="L135" class="LineNr"> 135 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xa0/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L136" class="LineNr"> 136 </span> 68/push 0xa0/imm32/length
|
||||
<span id="L137" class="LineNr"> 137 </span> 68/push 0/imm32/read
|
||||
<span id="L138" class="LineNr"> 138 </span> 68/push 0/imm32/write
|
||||
<span id="L139" class="LineNr"> 139 </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="L140" class="LineNr"> 140 </span> <span class="subxComment"># var labels/edx : (stream label-info Max-labels*16)</span>
|
||||
<span id="L140" class="LineNr"> 140 </span> <span class="subxComment"># var labels/edx: (stream label-info Max-labels*16)</span>
|
||||
<span id="L141" class="LineNr"> 141 </span> <span class="subxS1Comment"># . data</span>
|
||||
<span id="L142" class="LineNr"> 142 </span> 2b/subtract 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Max-labels</span>/disp32 <span class="subxComment"># subtract *Max-labels from esp</span>
|
||||
<span id="L143" class="LineNr"> 143 </span> <span class="subxS1Comment"># . length</span>
|
||||
|
|
@ -210,7 +210,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L147" class="LineNr"> 147 </span> <span class="subxS1Comment"># . write</span>
|
||||
<span id="L148" class="LineNr"> 148 </span> 68/push 0/imm32/write
|
||||
<span id="L149" class="LineNr"> 149 </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="L150" class="LineNr"> 150 </span> <span class="subxComment"># var in/esi : (stream byte Input-size)</span>
|
||||
<span id="L150" class="LineNr"> 150 </span> <span class="subxComment"># var in/esi: (stream byte Input-size)</span>
|
||||
<span id="L151" class="LineNr"> 151 </span> <span class="subxS1Comment"># . data</span>
|
||||
<span id="L152" class="LineNr"> 152 </span> 2b/subtract 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Input-size</span>/disp32 <span class="subxComment"># subtract *Input-size from esp</span>
|
||||
<span id="L153" class="LineNr"> 153 </span> <span class="subxS1Comment"># . length</span>
|
||||
|
|
@ -449,7 +449,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L618" class="LineNr"> 618 </span>
|
||||
<span id="L619" class="LineNr"> 619 </span>== code
|
||||
<span id="L620" class="LineNr"> 620 </span>
|
||||
<span id="L621" class="LineNr"> 621 </span><span class="subxFunction">compute-offsets</span>: <span class="subxComment"># in : (addr stream byte), segments : (addr stream {string, segment-info}), labels : (addr stream {string, label-info})</span>
|
||||
<span id="L621" class="LineNr"> 621 </span><span class="subxFunction">compute-offsets</span>: <span class="subxComment"># in: (addr stream byte), segments: (addr stream {string, segment-info}), labels: (addr stream {string, label-info})</span>
|
||||
<span id="L622" class="LineNr"> 622 </span> <span class="subxComment"># skeleton:</span>
|
||||
<span id="L623" class="LineNr"> 623 </span> <span class="subxComment"># for lines in 'in'</span>
|
||||
<span id="L624" class="LineNr"> 624 </span> <span class="subxComment"># for words in line</span>
|
||||
|
|
@ -460,8 +460,8 @@ if ('onhashchange' in window) {
|
|||
<span id="L629" class="LineNr"> 629 </span> <span class="subxComment"># default</span>
|
||||
<span id="L630" class="LineNr"> 630 </span> <span class="subxComment">#</span>
|
||||
<span id="L631" class="LineNr"> 631 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L632" class="LineNr"> 632 </span> <span class="subxComment"># curr-segment-name : (addr string) = 0</span>
|
||||
<span id="L633" class="LineNr"> 633 </span> <span class="subxComment"># var line : (stream byte 512)</span>
|
||||
<span id="L632" class="LineNr"> 632 </span> <span class="subxComment"># curr-segment-name: (addr string) = 0</span>
|
||||
<span id="L633" class="LineNr"> 633 </span> <span class="subxComment"># var line: (stream byte 512)</span>
|
||||
<span id="L634" class="LineNr"> 634 </span> <span class="subxComment"># while true # line loop</span>
|
||||
<span id="L635" class="LineNr"> 635 </span> <span class="subxComment"># clear-stream(line)</span>
|
||||
<span id="L636" class="LineNr"> 636 </span> <span class="subxComment"># read-line(in, line)</span>
|
||||
|
|
@ -492,7 +492,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L661" class="LineNr"> 661 </span> <span class="subxComment"># break (next line)</span>
|
||||
<span id="L662" class="LineNr"> 662 </span> <span class="subxComment"># else if is-label?(word-slice)</span>
|
||||
<span id="L663" class="LineNr"> 663 </span> <span class="subxComment"># strip trailing ':' from word-slice</span>
|
||||
<span id="L664" class="LineNr"> 664 </span> <span class="subxComment"># x : (addr label-info) = get-or-insert(labels, name)</span>
|
||||
<span id="L664" class="LineNr"> 664 </span> <span class="subxComment"># x: (addr label-info) = get-or-insert(labels, name)</span>
|
||||
<span id="L665" class="LineNr"> 665 </span> <span class="subxComment"># x->segment-name = curr-segment-name</span>
|
||||
<span id="L666" class="LineNr"> 666 </span> <span class="subxComment"># trace("label '", word-slice, "' is in segment '", curr-segment-name, "'.")</span>
|
||||
<span id="L667" class="LineNr"> 667 </span> <span class="subxComment"># x->segment-offset = segment-offset</span>
|
||||
|
|
@ -519,7 +519,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L688" class="LineNr"> 688 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='survey.subx.html#L621'>compute-offsets</a>:file-offset/disp32 0/imm32 <span class="subxComment"># copy to *compute-offsets:word-slice</span>
|
||||
<span id="L689" class="LineNr"> 689 </span> <span class="subxComment"># segment-offset = 0</span>
|
||||
<span id="L690" class="LineNr"> 690 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='survey.subx.html#L621'>compute-offsets</a>:segment-offset/disp32 0/imm32 <span class="subxComment"># copy to *compute-offsets:word-slice</span>
|
||||
<span id="L691" class="LineNr"> 691 </span> <span class="subxComment"># var line/ecx : (stream byte 512)</span>
|
||||
<span id="L691" class="LineNr"> 691 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span>
|
||||
<span id="L692" class="LineNr"> 692 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L693" class="LineNr"> 693 </span> 68/push 0x200/imm32/length
|
||||
<span id="L694" class="LineNr"> 694 </span> 68/push 0/imm32/read
|
||||
|
|
@ -861,13 +861,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L1219" class="LineNr">1219 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L1220" class="LineNr">1220 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L1221" class="LineNr">1221 </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="L1222" class="LineNr">1222 </span> <span class="subxComment"># var segments/ecx : (stream byte 2*16)</span>
|
||||
<span id="L1222" class="LineNr">1222 </span> <span class="subxComment"># var segments/ecx: (stream byte 2*16)</span>
|
||||
<span id="L1223" class="LineNr">1223 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L1224" class="LineNr">1224 </span> 68/push 0x20/imm32/length
|
||||
<span id="L1225" class="LineNr">1225 </span> 68/push 0/imm32/read
|
||||
<span id="L1226" class="LineNr">1226 </span> 68/push 0/imm32/write
|
||||
<span id="L1227" class="LineNr">1227 </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="L1228" class="LineNr">1228 </span> <span class="subxComment"># var labels/edx : (stream byte 2*16)</span>
|
||||
<span id="L1228" class="LineNr">1228 </span> <span class="subxComment"># var labels/edx: (stream byte 2*16)</span>
|
||||
<span id="L1229" class="LineNr">1229 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L1230" class="LineNr">1230 </span> 68/push 0x20/imm32/length
|
||||
<span id="L1231" class="LineNr">1231 </span> 68/push 0/imm32/read
|
||||
|
|
@ -995,9 +995,9 @@ if ('onhashchange' in window) {
|
|||
<span id="L1378" class="LineNr">1378 </span> 5d/pop-to-ebp
|
||||
<span id="L1379" class="LineNr">1379 </span> c3/return
|
||||
<span id="L1380" class="LineNr">1380 </span>
|
||||
<span id="L1381" class="LineNr">1381 </span><span class="subxFunction">compute-addresses</span>: <span class="subxComment"># segments : (addr stream {string, segment-info}), labels : (addr stream {string, label-info})</span>
|
||||
<span id="L1381" class="LineNr">1381 </span><span class="subxFunction">compute-addresses</span>: <span class="subxComment"># segments: (addr stream {string, segment-info}), labels: (addr stream {string, label-info})</span>
|
||||
<span id="L1382" class="LineNr">1382 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L1383" class="LineNr">1383 </span> <span class="subxComment"># srow : (addr segment-info) = segments->data</span>
|
||||
<span id="L1383" class="LineNr">1383 </span> <span class="subxComment"># srow: (addr segment-info) = segments->data</span>
|
||||
<span id="L1384" class="LineNr">1384 </span> <span class="subxComment"># max = &segments->data[segments->write]</span>
|
||||
<span id="L1385" class="LineNr">1385 </span> <span class="subxComment"># num-segments = segments->write / 16</span>
|
||||
<span id="L1386" class="LineNr">1386 </span> <span class="subxComment"># starting-offset = 0x34 + (num-segments * 0x20)</span>
|
||||
|
|
@ -1008,12 +1008,12 @@ if ('onhashchange' in window) {
|
|||
<span id="L1391" class="LineNr">1391 </span> <span class="subxComment"># s->address += (s->file-offset & 0x00000fff)</span>
|
||||
<span id="L1392" class="LineNr">1392 </span> <span class="subxComment"># trace-sssns("segment " s->key " starts at address " s->address)</span>
|
||||
<span id="L1393" class="LineNr">1393 </span> <span class="subxComment"># srow += 16 # row-size</span>
|
||||
<span id="L1394" class="LineNr">1394 </span> <span class="subxComment"># lrow : (addr label-info) = labels->data</span>
|
||||
<span id="L1394" class="LineNr">1394 </span> <span class="subxComment"># lrow: (addr label-info) = labels->data</span>
|
||||
<span id="L1395" class="LineNr">1395 </span> <span class="subxComment"># max = &labels->data[labels->write]</span>
|
||||
<span id="L1396" class="LineNr">1396 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L1397" class="LineNr">1397 </span> <span class="subxComment"># if (lrow >= max) break</span>
|
||||
<span id="L1398" class="LineNr">1398 </span> <span class="subxComment"># seg-name : (addr string) = lrow->segment-name</span>
|
||||
<span id="L1399" class="LineNr">1399 </span> <span class="subxComment"># label-seg : (addr segment-info) = get(segments, seg-name)</span>
|
||||
<span id="L1398" class="LineNr">1398 </span> <span class="subxComment"># var seg-name: (addr string) = lrow->segment-name</span>
|
||||
<span id="L1399" class="LineNr">1399 </span> <span class="subxComment"># var label-seg: (addr segment-info) = get(segments, seg-name)</span>
|
||||
<span id="L1400" class="LineNr">1400 </span> <span class="subxComment"># lrow->address = label-seg->address + lrow->segment-offset</span>
|
||||
<span id="L1401" class="LineNr">1401 </span> <span class="subxComment"># trace-sssns("label " lrow->key " is at address " lrow->address)</span>
|
||||
<span id="L1402" class="LineNr">1402 </span> <span class="subxComment"># lrow += 16 # row-size</span>
|
||||
|
|
@ -1089,10 +1089,10 @@ if ('onhashchange' in window) {
|
|||
<span id="L1497" class="LineNr">1497 </span> 39/compare 3/mod/direct 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"># compare eax with ecx</span>
|
||||
<span id="L1498" class="LineNr">1498 </span> 0f 83/jump-if-addr>= $compute-addresses:end/disp32
|
||||
<span id="L1499" class="Folded">1499 </span><span class="Folded">+-- 26 lines: #? # dump lrow->key ------------------------------------------------------------------------------------------------------------------------</span>
|
||||
<span id="L1525" class="LineNr">1525 </span> <span class="subxComment"># seg-name/edx = lrow->segment-name</span>
|
||||
<span id="L1525" class="LineNr">1525 </span> <span class="subxComment"># var seg-name/edx: (addr array byte) = lrow->segment-name</span>
|
||||
<span id="L1526" class="LineNr">1526 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *eax to edx</span>
|
||||
<span id="L1527" class="Folded">1527 </span><span class="Folded">+-- 26 lines: #? # dump seg-name -------------------------------------------------------------------------------------------------------------------------</span>
|
||||
<span id="L1553" class="LineNr">1553 </span> <span class="subxComment"># label-seg/edx : (addr segment-info) = get(segments, seg-name, row-size=16, "segment table")</span>
|
||||
<span id="L1553" class="LineNr">1553 </span> <span class="subxComment"># var label-seg/edx: (addr segment-info) = get(segments, seg-name, row-size=16, "segment table")</span>
|
||||
<span id="L1554" class="LineNr">1554 </span> <span class="subxS1Comment"># . save eax</span>
|
||||
<span id="L1555" class="LineNr">1555 </span> 50/push-eax
|
||||
<span id="L1556" class="LineNr">1556 </span> <span class="subxS1Comment"># . eax = get(segments, seg-name, row-size=16)</span>
|
||||
|
|
@ -1163,13 +1163,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L1621" class="LineNr">1621 </span> 55/push-ebp
|
||||
<span id="L1622" class="LineNr">1622 </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="L1623" class="LineNr">1623 </span> <span class="subxComment"># setup</span>
|
||||
<span id="L1624" class="LineNr">1624 </span> <span class="subxS1Comment"># . var segments/ecx : (stream byte 10*16)</span>
|
||||
<span id="L1624" class="LineNr">1624 </span> <span class="subxS1Comment"># . var segments/ecx: (stream byte 10*16)</span>
|
||||
<span id="L1625" class="LineNr">1625 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xa0/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L1626" class="LineNr">1626 </span> 68/push 0xa0/imm32/length
|
||||
<span id="L1627" class="LineNr">1627 </span> 68/push 0/imm32/read
|
||||
<span id="L1628" class="LineNr">1628 </span> 68/push 0/imm32/write
|
||||
<span id="L1629" class="LineNr">1629 </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="L1630" class="LineNr">1630 </span> <span class="subxS1Comment"># . var labels/edx : (stream byte 512*16)</span>
|
||||
<span id="L1630" class="LineNr">1630 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 512*16)</span>
|
||||
<span id="L1631" class="LineNr">1631 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x2000/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L1632" class="LineNr">1632 </span> 68/push 0x2000/imm32/length
|
||||
<span id="L1633" class="LineNr">1633 </span> 68/push 0/imm32/read
|
||||
|
|
@ -1307,13 +1307,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L1790" class="LineNr">1790 </span> 55/push-ebp
|
||||
<span id="L1791" class="LineNr">1791 </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="L1792" class="LineNr">1792 </span> <span class="subxComment"># setup</span>
|
||||
<span id="L1793" class="LineNr">1793 </span> <span class="subxS1Comment"># . var segments/ecx : (stream byte 10*16)</span>
|
||||
<span id="L1793" class="LineNr">1793 </span> <span class="subxS1Comment"># . var segments/ecx: (stream byte 10*16)</span>
|
||||
<span id="L1794" class="LineNr">1794 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xa0/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L1795" class="LineNr">1795 </span> 68/push 0xa0/imm32/length
|
||||
<span id="L1796" class="LineNr">1796 </span> 68/push 0/imm32/read
|
||||
<span id="L1797" class="LineNr">1797 </span> 68/push 0/imm32/write
|
||||
<span id="L1798" class="LineNr">1798 </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="L1799" class="LineNr">1799 </span> <span class="subxS1Comment"># . var labels/edx : (stream byte 512*16)</span>
|
||||
<span id="L1799" class="LineNr">1799 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 512*16)</span>
|
||||
<span id="L1800" class="LineNr">1800 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x2000/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L1801" class="LineNr">1801 </span> 68/push 0x2000/imm32/length
|
||||
<span id="L1802" class="LineNr">1802 </span> 68/push 0/imm32/read
|
||||
|
|
@ -1388,7 +1388,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L1871" class="LineNr">1871 </span> 5d/pop-to-ebp
|
||||
<span id="L1872" class="LineNr">1872 </span> c3/return
|
||||
<span id="L1873" class="LineNr">1873 </span>
|
||||
<span id="L1874" class="LineNr">1874 </span><span class="subxFunction">emit-output</span>: <span class="subxComment"># in : (addr stream byte), out : (addr buffered-file), segments : (addr stream {string, segment-info}), labels : (addr stream {string, label-info})</span>
|
||||
<span id="L1874" class="LineNr">1874 </span><span class="subxFunction">emit-output</span>: <span class="subxComment"># in: (addr stream byte), out: (addr buffered-file), segments: (addr stream {string, segment-info}), labels: (addr stream {string, label-info})</span>
|
||||
<span id="L1875" class="LineNr">1875 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L1876" class="LineNr">1876 </span> <span class="subxComment"># emit-headers(out, segments, labels)</span>
|
||||
<span id="L1877" class="LineNr">1877 </span> <span class="subxComment"># emit-segments(in, out, segments, labels)</span>
|
||||
|
|
@ -1423,10 +1423,10 @@ if ('onhashchange' in window) {
|
|||
<span id="L1922" class="LineNr">1922 </span> 5d/pop-to-ebp
|
||||
<span id="L1923" class="LineNr">1923 </span> c3/return
|
||||
<span id="L1924" class="LineNr">1924 </span>
|
||||
<span id="L1925" class="LineNr">1925 </span><span class="subxFunction">emit-segments</span>: <span class="subxComment"># in : (addr stream byte), out : (addr buffered-file), segments : (addr stream {string, segment-info}), labels : (addr stream {string, label-info})</span>
|
||||
<span id="L1925" class="LineNr">1925 </span><span class="subxFunction">emit-segments</span>: <span class="subxComment"># in: (addr stream byte), out: (addr buffered-file), segments: (addr stream {string, segment-info}), labels: (addr stream {string, label-info})</span>
|
||||
<span id="L1926" class="LineNr">1926 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L1927" class="LineNr">1927 </span> <span class="subxComment"># var offset-of-next-instruction = 0</span>
|
||||
<span id="L1928" class="LineNr">1928 </span> <span class="subxComment"># var line : (stream byte 512)</span>
|
||||
<span id="L1928" class="LineNr">1928 </span> <span class="subxComment"># var line: (stream byte 512)</span>
|
||||
<span id="L1929" class="LineNr">1929 </span> <span class="subxComment"># line-loop:</span>
|
||||
<span id="L1930" class="LineNr">1930 </span> <span class="subxComment"># while true</span>
|
||||
<span id="L1931" class="LineNr">1931 </span> <span class="subxComment"># clear-stream(line)</span>
|
||||
|
|
@ -1488,17 +1488,17 @@ if ('onhashchange' in window) {
|
|||
<span id="L1987" class="LineNr">1987 </span> 53/push-ebx
|
||||
<span id="L1988" class="LineNr">1988 </span> 56/push-esi
|
||||
<span id="L1989" class="LineNr">1989 </span> 57/push-edi
|
||||
<span id="L1990" class="LineNr">1990 </span> <span class="subxComment"># var line/ecx : (stream byte 512)</span>
|
||||
<span id="L1990" class="LineNr">1990 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span>
|
||||
<span id="L1991" class="LineNr">1991 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L1992" class="LineNr">1992 </span> 68/push 0x200/imm32/length
|
||||
<span id="L1993" class="LineNr">1993 </span> 68/push 0/imm32/read
|
||||
<span id="L1994" class="LineNr">1994 </span> 68/push 0/imm32/write
|
||||
<span id="L1995" class="LineNr">1995 </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="L1996" class="LineNr">1996 </span> <span class="subxComment"># var word-slice/edx : slice</span>
|
||||
<span id="L1996" class="LineNr">1996 </span> <span class="subxComment"># var word-slice/edx: slice</span>
|
||||
<span id="L1997" class="LineNr">1997 </span> 68/push 0/imm32/end
|
||||
<span id="L1998" class="LineNr">1998 </span> 68/push 0/imm32/start
|
||||
<span id="L1999" class="LineNr">1999 </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="L2000" class="LineNr">2000 </span> <span class="subxComment"># var datum/edi : slice</span>
|
||||
<span id="L2000" class="LineNr">2000 </span> <span class="subxComment"># var datum/edi: slice</span>
|
||||
<span id="L2001" class="LineNr">2001 </span> 68/push 0/imm32/end
|
||||
<span id="L2002" class="LineNr">2002 </span> 68/push 0/imm32/start
|
||||
<span id="L2003" class="LineNr">2003 </span> 89/copy 3/mod/direct 7/rm32/edi <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 edi</span>
|
||||
|
|
@ -1925,13 +1925,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L2577" class="LineNr">2577 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L2578" class="LineNr">2578 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L2579" class="LineNr">2579 </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="L2580" class="LineNr">2580 </span> <span class="subxS1Comment"># . var segments/ecx : (stream byte 10*16)</span>
|
||||
<span id="L2580" class="LineNr">2580 </span> <span class="subxS1Comment"># . var segments/ecx: (stream byte 10*16)</span>
|
||||
<span id="L2581" class="LineNr">2581 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xa0/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L2582" class="LineNr">2582 </span> 68/push 0xa0/imm32/length
|
||||
<span id="L2583" class="LineNr">2583 </span> 68/push 0/imm32/read
|
||||
<span id="L2584" class="LineNr">2584 </span> 68/push 0/imm32/write
|
||||
<span id="L2585" class="LineNr">2585 </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="L2586" class="LineNr">2586 </span> <span class="subxS1Comment"># . var labels/edx : (stream byte 512*16)</span>
|
||||
<span id="L2586" class="LineNr">2586 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 512*16)</span>
|
||||
<span id="L2587" class="LineNr">2587 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x2000/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L2588" class="LineNr">2588 </span> 68/push 0x2000/imm32/length
|
||||
<span id="L2589" class="LineNr">2589 </span> 68/push 0/imm32/read
|
||||
|
|
@ -2130,13 +2130,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L2814" class="LineNr">2814 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L2815" class="LineNr">2815 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L2816" class="LineNr">2816 </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="L2817" class="LineNr">2817 </span> <span class="subxS1Comment"># . var segments/ecx : (stream byte 10*16)</span>
|
||||
<span id="L2817" class="LineNr">2817 </span> <span class="subxS1Comment"># . var segments/ecx: (stream byte 10*16)</span>
|
||||
<span id="L2818" class="LineNr">2818 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xa0/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L2819" class="LineNr">2819 </span> 68/push 0xa0/imm32/length
|
||||
<span id="L2820" class="LineNr">2820 </span> 68/push 0/imm32/read
|
||||
<span id="L2821" class="LineNr">2821 </span> 68/push 0/imm32/write
|
||||
<span id="L2822" class="LineNr">2822 </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="L2823" class="LineNr">2823 </span> <span class="subxS1Comment"># . var labels/edx : (stream byte 512*16)</span>
|
||||
<span id="L2823" class="LineNr">2823 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 512*16)</span>
|
||||
<span id="L2824" class="LineNr">2824 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x2000/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L2825" class="LineNr">2825 </span> 68/push 0x2000/imm32/length
|
||||
<span id="L2826" class="LineNr">2826 </span> 68/push 0/imm32/read
|
||||
|
|
@ -2300,13 +2300,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L3016" class="LineNr">3016 </span> e8/call <a href='../055stream.subx.html#L17'>clear-stream</a>/disp32
|
||||
<span id="L3017" class="LineNr">3017 </span> <span class="subxS2Comment"># . . discard args</span>
|
||||
<span id="L3018" class="LineNr">3018 </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="L3019" class="LineNr">3019 </span> <span class="subxS1Comment"># . var segments/ecx : (stream byte 10*16)</span>
|
||||
<span id="L3019" class="LineNr">3019 </span> <span class="subxS1Comment"># . var segments/ecx: (stream byte 10*16)</span>
|
||||
<span id="L3020" class="LineNr">3020 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xa0/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L3021" class="LineNr">3021 </span> 68/push 0xa0/imm32/length
|
||||
<span id="L3022" class="LineNr">3022 </span> 68/push 0/imm32/read
|
||||
<span id="L3023" class="LineNr">3023 </span> 68/push 0/imm32/write
|
||||
<span id="L3024" class="LineNr">3024 </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="L3025" class="LineNr">3025 </span> <span class="subxS1Comment"># . var labels/edx : (stream byte 512*16)</span>
|
||||
<span id="L3025" class="LineNr">3025 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 512*16)</span>
|
||||
<span id="L3026" class="LineNr">3026 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x2000/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L3027" class="LineNr">3027 </span> 68/push 0x2000/imm32/length
|
||||
<span id="L3028" class="LineNr">3028 </span> 68/push 0/imm32/read
|
||||
|
|
@ -2425,7 +2425,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L3173" class="LineNr">3173 </span> 5d/pop-to-ebp
|
||||
<span id="L3174" class="LineNr">3174 </span> c3/return
|
||||
<span id="L3175" class="LineNr">3175 </span>
|
||||
<span id="L3176" class="LineNr">3176 </span><span class="subxFunction">emit-headers</span>: <span class="subxComment"># out : (addr buffered-file), segments : (addr stream {string, segment-info}), labels : (addr stream {string, label-info})</span>
|
||||
<span id="L3176" class="LineNr">3176 </span><span class="subxFunction">emit-headers</span>: <span class="subxComment"># out: (addr buffered-file), segments: (addr stream {string, segment-info}), labels: (addr stream {string, label-info})</span>
|
||||
<span id="L3177" class="LineNr">3177 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L3178" class="LineNr">3178 </span> <span class="subxComment"># emit-elf-header(out, segments, labels)</span>
|
||||
<span id="L3179" class="LineNr">3179 </span> <span class="subxComment"># curr-segment = segments->data</span>
|
||||
|
|
@ -2485,7 +2485,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L3311" class="LineNr">3311 </span> 5d/pop-to-ebp
|
||||
<span id="L3312" class="LineNr">3312 </span> c3/return
|
||||
<span id="L3313" class="LineNr">3313 </span>
|
||||
<span id="L3314" class="LineNr">3314 </span><span class="subxFunction">emit-elf-header</span>: <span class="subxComment"># out : (addr buffered-file), segments : (addr stream {string, segment-info}), labels : (addr stream {string, label-info})</span>
|
||||
<span id="L3314" class="LineNr">3314 </span><span class="subxFunction">emit-elf-header</span>: <span class="subxComment"># out: (addr buffered-file), segments: (addr stream {string, segment-info}), labels: (addr stream {string, label-info})</span>
|
||||
<span id="L3315" class="LineNr">3315 </span> <span class="subxComment"># pseudocode</span>
|
||||
<span id="L3316" class="LineNr">3316 </span> <span class="subxComment"># *$Elf_e_entry = get(labels, "Entry")->address</span>
|
||||
<span id="L3317" class="LineNr">3317 </span> <span class="subxComment"># *$Elf_e_phnum = segments->write / 16 # size of a row</span>
|
||||
|
|
@ -2553,7 +2553,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L3379" class="LineNr">3379 </span> 5d/pop-to-ebp
|
||||
<span id="L3380" class="LineNr">3380 </span> c3/return
|
||||
<span id="L3381" class="LineNr">3381 </span>
|
||||
<span id="L3382" class="LineNr">3382 </span><span class="subxFunction">emit-elf-program-header-entry</span>: <span class="subxComment"># out : (addr buffered-file), curr-segment : (addr {string, segment-info})</span>
|
||||
<span id="L3382" class="LineNr">3382 </span><span class="subxFunction">emit-elf-program-header-entry</span>: <span class="subxComment"># out: (addr buffered-file), curr-segment: (addr {string, segment-info})</span>
|
||||
<span id="L3383" class="LineNr">3383 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L3384" class="LineNr">3384 </span> <span class="subxComment"># *$Elf_p_offset = curr-segment->file-offset</span>
|
||||
<span id="L3385" class="LineNr">3385 </span> <span class="subxComment"># *$Elf_p_vaddr = curr-segment->address</span>
|
||||
|
|
@ -2642,7 +2642,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L3468" class="LineNr">3468 </span>
|
||||
<span id="L3469" class="LineNr">3469 </span><span class="subxH1Comment"># - some helpers for tests</span>
|
||||
<span id="L3470" class="LineNr">3470 </span>
|
||||
<span id="L3471" class="LineNr">3471 </span><span class="subxFunction">stream-add4</span>: <span class="subxComment"># in : (addr stream byte), key : addr, val1 : addr, val2 : addr, val3 : addr</span>
|
||||
<span id="L3471" class="LineNr">3471 </span><span class="subxFunction">stream-add4</span>: <span class="subxComment"># in: (addr stream byte), key: addr, val1: addr, val2: addr, val3: addr</span>
|
||||
<span id="L3472" class="LineNr">3472 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L3473" class="LineNr">3473 </span> 55/push-ebp
|
||||
<span id="L3474" class="LineNr">3474 </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>
|
||||
|
|
@ -2728,7 +2728,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L3554" class="LineNr">3554 </span><span class="subxComment"># l: (addr slice)</span>
|
||||
<span id="L3555" class="LineNr">3555 </span><span class="subxComment"># one gotcha: 's5' must not be empty</span>
|
||||
<span id="L3556" class="LineNr">3556 </span>
|
||||
<span id="L3557" class="LineNr">3557 </span><span class="subxFunction">trace-sssns</span>: <span class="subxComment"># s1 : (addr string), s2 : (addr string), s3 : (addr string), n4 : int, s5 : (addr string)</span>
|
||||
<span id="L3557" class="LineNr">3557 </span><span class="subxFunction">trace-sssns</span>: <span class="subxComment"># s1: (addr string), s2: (addr string), s3: (addr string), n4: int, s5: (addr string)</span>
|
||||
<span id="L3558" class="LineNr">3558 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L3559" class="LineNr">3559 </span> 55/push-ebp
|
||||
<span id="L3560" class="LineNr">3560 </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>
|
||||
|
|
@ -2810,7 +2810,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L3661" class="LineNr">3661 </span> 5d/pop-to-ebp
|
||||
<span id="L3662" class="LineNr">3662 </span> c3/return
|
||||
<span id="L3663" class="LineNr">3663 </span>
|
||||
<span id="L3664" class="LineNr">3664 </span><span class="subxFunction">trace-snsns</span>: <span class="subxComment"># s1 : (addr string), n2 : int, s3 : (addr string), n4 : int, s5 : (addr string)</span>
|
||||
<span id="L3664" class="LineNr">3664 </span><span class="subxFunction">trace-snsns</span>: <span class="subxComment"># s1: (addr string), n2: int, s3: (addr string), n4: int, s5: (addr string)</span>
|
||||
<span id="L3665" class="LineNr">3665 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L3666" class="LineNr">3666 </span> 55/push-ebp
|
||||
<span id="L3667" class="LineNr">3667 </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>
|
||||
|
|
@ -2892,7 +2892,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L3768" class="LineNr">3768 </span> 5d/pop-to-ebp
|
||||
<span id="L3769" class="LineNr">3769 </span> c3/return
|
||||
<span id="L3770" class="LineNr">3770 </span>
|
||||
<span id="L3771" class="LineNr">3771 </span><span class="subxFunction">trace-slsls</span>: <span class="subxComment"># s1 : (addr string), l2 : (addr slice), s3 : (addr string), l4 : (addr slice), s5 : (addr string)</span>
|
||||
<span id="L3771" class="LineNr">3771 </span><span class="subxFunction">trace-slsls</span>: <span class="subxComment"># s1: (addr string), l2: (addr slice), s3: (addr string), l4: (addr slice), s5: (addr string)</span>
|
||||
<span id="L3772" class="LineNr">3772 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L3773" class="LineNr">3773 </span> 55/push-ebp
|
||||
<span id="L3774" class="LineNr">3774 </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>
|
||||
|
|
@ -2954,7 +2954,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L3830" class="LineNr">3830 </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="L3831" class="LineNr">3831 </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="L3832" class="LineNr">3832 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L3833" class="LineNr">3833 </span> <span class="subxComment"># var b/ebx : slice = {eax, ecx}</span>
|
||||
<span id="L3833" class="LineNr">3833 </span> <span class="subxComment"># var b/ebx: slice = {eax, ecx}</span>
|
||||
<span id="L3834" class="LineNr">3834 </span> 51/push-ecx
|
||||
<span id="L3835" class="LineNr">3835 </span> 50/push-eax
|
||||
<span id="L3836" class="LineNr">3836 </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>
|
||||
|
|
@ -2963,7 +2963,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L3839" class="LineNr">3839 </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="L3840" class="LineNr">3840 </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="L3841" class="LineNr">3841 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L3842" class="LineNr">3842 </span> <span class="subxComment"># var d/edx : slice = {eax, ecx}</span>
|
||||
<span id="L3842" class="LineNr">3842 </span> <span class="subxComment"># var d/edx: slice = {eax, ecx}</span>
|
||||
<span id="L3843" class="LineNr">3843 </span> 51/push-ecx
|
||||
<span id="L3844" class="LineNr">3844 </span> 50/push-eax
|
||||
<span id="L3845" class="LineNr">3845 </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>
|
||||
|
|
@ -2992,7 +2992,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L3893" class="LineNr">3893 </span> 5d/pop-to-ebp
|
||||
<span id="L3894" class="LineNr">3894 </span> c3/return
|
||||
<span id="L3895" class="LineNr">3895 </span>
|
||||
<span id="L3896" class="LineNr">3896 </span><span class="subxFunction">trace-slsns</span>: <span class="subxComment"># s1 : (addr string), l2 : (addr slice), s3 : (addr string), n4 : int, s5 : (addr string)</span>
|
||||
<span id="L3896" class="LineNr">3896 </span><span class="subxFunction">trace-slsns</span>: <span class="subxComment"># s1: (addr string), l2: (addr slice), s3: (addr string), n4: int, s5: (addr string)</span>
|
||||
<span id="L3897" class="LineNr">3897 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L3898" class="LineNr">3898 </span> 55/push-ebp
|
||||
<span id="L3899" class="LineNr">3899 </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>
|
||||
|
|
@ -3054,7 +3054,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L3955" class="LineNr">3955 </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="L3956" class="LineNr">3956 </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="L3957" class="LineNr">3957 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L3958" class="LineNr">3958 </span> <span class="subxComment"># var b/ebx : slice = {eax, ecx}</span>
|
||||
<span id="L3958" class="LineNr">3958 </span> <span class="subxComment"># var b/ebx: slice = {eax, ecx}</span>
|
||||
<span id="L3959" class="LineNr">3959 </span> 51/push-ecx
|
||||
<span id="L3960" class="LineNr">3960 </span> 50/push-eax
|
||||
<span id="L3961" class="LineNr">3961 </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>
|
||||
|
|
@ -3083,7 +3083,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L4009" class="LineNr">4009 </span> 5d/pop-to-ebp
|
||||
<span id="L4010" class="LineNr">4010 </span> c3/return
|
||||
<span id="L4011" class="LineNr">4011 </span>
|
||||
<span id="L4012" class="LineNr">4012 </span><span class="subxFunction">trace-slsss</span>: <span class="subxComment"># s1 : (addr string), l2 : (addr slice), s3 : (addr string), s4 : (addr string), s5 : (addr string)</span>
|
||||
<span id="L4012" class="LineNr">4012 </span><span class="subxFunction">trace-slsss</span>: <span class="subxComment"># s1: (addr string), l2: (addr slice), s3: (addr string), s4: (addr string), s5: (addr string)</span>
|
||||
<span id="L4013" class="LineNr">4013 </span> <span class="subxS1Comment"># . prologue</span>
|
||||
<span id="L4014" class="LineNr">4014 </span> 55/push-ebp
|
||||
<span id="L4015" class="LineNr">4015 </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>
|
||||
|
|
@ -3145,7 +3145,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L4071" class="LineNr">4071 </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="L4072" class="LineNr">4072 </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="L4073" class="LineNr">4073 </span> 05/add-to-eax 4/imm32
|
||||
<span id="L4074" class="LineNr">4074 </span> <span class="subxComment"># var b/ebx : slice = {eax, ecx}</span>
|
||||
<span id="L4074" class="LineNr">4074 </span> <span class="subxComment"># var b/ebx: slice = {eax, ecx}</span>
|
||||
<span id="L4075" class="LineNr">4075 </span> 51/push-ecx
|
||||
<span id="L4076" class="LineNr">4076 </span> 50/push-eax
|
||||
<span id="L4077" class="LineNr">4077 </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>
|
||||
|
|
@ -3174,7 +3174,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L4125" class="LineNr">4125 </span> 5d/pop-to-ebp
|
||||
<span id="L4126" class="LineNr">4126 </span> c3/return
|
||||
<span id="L4127" class="LineNr">4127 </span>
|
||||
<span id="L4128" class="LineNr">4128 </span><span class="subxFunction">num-bytes</span>: <span class="subxComment"># line : (addr stream byte) -> eax : int</span>
|
||||
<span id="L4128" class="LineNr">4128 </span><span class="subxFunction">num-bytes</span>: <span class="subxComment"># line: (addr stream byte) -> eax: int</span>
|
||||
<span id="L4129" class="LineNr">4129 </span> <span class="subxComment"># pseudocode:</span>
|
||||
<span id="L4130" class="LineNr">4130 </span> <span class="subxComment"># result = 0</span>
|
||||
<span id="L4131" class="LineNr">4131 </span> <span class="subxComment"># while true</span>
|
||||
|
|
@ -3199,7 +3199,7 @@ if ('onhashchange' in window) {
|
|||
<span id="L4150" class="LineNr">4150 </span> 53/push-ebx
|
||||
<span id="L4151" class="LineNr">4151 </span> <span class="subxComment"># var result/eax = 0</span>
|
||||
<span id="L4152" class="LineNr">4152 </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="L4153" class="LineNr">4153 </span> <span class="subxComment"># var word-slice/ecx : slice</span>
|
||||
<span id="L4153" class="LineNr">4153 </span> <span class="subxComment"># var word-slice/ecx: slice</span>
|
||||
<span id="L4154" class="LineNr">4154 </span> 68/push 0/imm32/end
|
||||
<span id="L4155" class="LineNr">4155 </span> 68/push 0/imm32/start
|
||||
<span id="L4156" class="LineNr">4156 </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>
|
||||
|
|
|
|||
|
|
@ -127,11 +127,11 @@ if ('onhashchange' in window) {
|
|||
<span id="L67" class="LineNr"> 67 </span> b8/copy-to-eax 1/imm32/exit
|
||||
<span id="L68" class="LineNr"> 68 </span> cd/syscall 0x80/imm8
|
||||
<span id="L69" class="LineNr"> 69 </span>
|
||||
<span id="L70" class="LineNr"> 70 </span><span class="subxFunction">subx-gen-run-tests</span>: <span class="subxComment"># in : (addr buffered-file), out : (addr buffered-file)</span>
|
||||
<span id="L70" class="LineNr"> 70 </span><span class="subxFunction">subx-gen-run-tests</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file)</span>
|
||||
<span id="L71" class="LineNr"> 71 </span> <span class="subxComment"># pseudocode</span>
|
||||
<span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># bool tests-found = false</span>
|
||||
<span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># var line : (stream byte 512)</span>
|
||||
<span id="L74" class="LineNr"> 74 </span> <span class="subxComment"># var new-code-segment : (handle stream byte) = new-stream(Segment-size, 1)</span>
|
||||
<span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># var line: (stream byte 512)</span>
|
||||
<span id="L74" class="LineNr"> 74 </span> <span class="subxComment"># var new-code-segment: (handle stream byte) = new-stream(Segment-size, 1)</span>
|
||||
<span id="L75" class="LineNr"> 75 </span> <span class="subxComment"># write(new-code-segment, "\n== code\n")</span>
|
||||
<span id="L76" class="LineNr"> 76 </span> <span class="subxComment"># write(new-code-segment, "run-tests:\n")</span>
|
||||
<span id="L77" class="LineNr"> 77 </span> <span class="subxComment"># while true</span>
|
||||
|
|
@ -161,13 +161,13 @@ if ('onhashchange' in window) {
|
|||
<span id="L101" class="LineNr">101 </span> 52/push-edx
|
||||
<span id="L102" class="LineNr">102 </span> 53/push-ebx
|
||||
<span id="L103" class="LineNr">103 </span> 57/push-edi
|
||||
<span id="L104" class="LineNr">104 </span> <span class="subxComment"># var line/ecx : (stream byte 512)</span>
|
||||
<span id="L104" class="LineNr">104 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span>
|
||||
<span id="L105" class="LineNr">105 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span>
|
||||
<span id="L106" class="LineNr">106 </span> 68/push 0x200/imm32/length
|
||||
<span id="L107" class="LineNr">107 </span> 68/push 0/imm32/read
|
||||
<span id="L108" class="LineNr">108 </span> 68/push 0/imm32/write
|
||||
<span id="L109" class="LineNr">109 </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="L110" class="LineNr">110 </span> <span class="subxComment"># var word-slice/edx : slice</span>
|
||||
<span id="L110" class="LineNr">110 </span> <span class="subxComment"># var word-slice/edx: slice</span>
|
||||
<span id="L111" class="LineNr">111 </span> 68/push 0/imm32/end
|
||||
<span id="L112" class="LineNr">112 </span> 68/push 0/imm32/start
|
||||
<span id="L113" class="LineNr">113 </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>
|
||||
|
|
|
|||
Loading…
Reference in New Issue