Zitat von
Meflin:
Wo bitte geschieht denn hier noch eine Typumwandlung - außer durch die Funktion int2byte??
Das war
imho von ihm unglücklich formuliert, weil int2Byte hier eben keine Funktion, sondern ein expliziter Cast wäre, dass heißt, es wird nichts umgerechnet, nur anders interpretiert.
Während ein InttoStr in etwa sowas macht (legt jetzt keine Adresse in EAX und ist unsigned, aber habs grad noch da);
Delphi-Quellcode:
//Int <= High(Cardinal), 32-bit mit 32-bit Division, 35 Bytes Code
procedure MyInttoStr4(Int: Cardinal; P: PByte);
asm
//Parameter: EAX: Int, EDX: P
push ebx
mov ebx, edx
xor ecx, ecx
// ecx = 0
push cx
// 16-bit Strinendezeichen auf den Stack
mov cx, 10
@Start:
xor edx, edx
// edx = 0
div ecx
//EAX: Ganzzahl, EDX: Rest; EDX:EAX / ecx
add
dl, 48
//ascii zahlencode in dl ('0': 48)
push dx
//ascii-code sichern
or eax, eax
// ganze Zahl auf 0 testen
jnz @Start
// wenn eax nicht 0 wiederholen
@WriteBuffer:
pop dx
// ascii zurück
mov byte [ebx],
dl //ascii in den Buffer
inc ebx
//Bufferzeiger eins weiter
or dl,
dl //auf Stringende prüfen
jnz @WriteBuffer
pop EBX
//ret wird automatisch am Ende erzeugt
end;