15 lines
1.6 KiB
Plaintext
15 lines
1.6 KiB
Plaintext
-->
|
|
<span style="color: #004080;">atom</span> <span style="color: #000000;">mem</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">allocate</span><span style="color: #0000FF;">(</span><span style="color: #000000;">9</span><span style="color: #0000FF;">)</span>
|
|
<span style="color: #000000;">poke</span><span style="color: #0000FF;">(</span><span style="color: #000000;">mem</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">#8B</span><span style="color: #0000FF;">,</span><span style="color: #000000;">#44</span><span style="color: #0000FF;">,</span><span style="color: #000000;">#24</span><span style="color: #0000FF;">,</span><span style="color: #000000;">#04</span><span style="color: #0000FF;">,</span><span style="color: #000000;">#03</span><span style="color: #0000FF;">,</span><span style="color: #000000;">#44</span><span style="color: #0000FF;">,</span><span style="color: #000000;">#24</span><span style="color: #0000FF;">,</span><span style="color: #000000;">#08</span><span style="color: #0000FF;">,</span><span style="color: #000000;">#C3</span><span style="color: #0000FF;">})</span>
|
|
<span style="color: #004080;">integer</span> <span style="color: #000000;">res</span>
|
|
#ilASM{ mov eax,[mem]
|
|
call :%pLoadMint -- eax:=(int32)eax, in case mem>#3FFFFFFF
|
|
push 12
|
|
push 7
|
|
call eax
|
|
add esp,8
|
|
mov [res],eax }
|
|
<span style="color: #0000FF;">?</span><span style="color: #000000;">res</span>
|
|
<span style="color: #000000;">free</span><span style="color: #0000FF;">(</span><span style="color: #000000;">mem</span><span style="color: #0000FF;">)</span>
|
|
<!--
|