[Lazarus] Convert assembler to Pascal

Alexsander Rosa alexsander.rosa at gmail.com
Tue Sep 13 15:12:57 CEST 2011

push esi // move register esi to the top of the stack
pop esi // get the top of the stack and put into esi
mov esi, eax // esi := eax
shr ecx, 2 // ecx shr 2 (shift right)
the same for and, xor, etc
jz // GOTO = jump if zero (if the result of last command is zero)
jnz // GOTO = jump if not zero
add esi, 4 // esi := esi + 4
dec ecx // Dec(ecx)

Alexsander da Rosa
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20110913/8b7f9c82/attachment-0003.html>

More information about the Lazarus mailing list