숫자 정수 반올림(어셈블러 Assembler)

숫자 정수 반올림(어셈블러 Assembler)

728x90

 

 

 

function xRoundInteger(pData, pDec: Integer): Integer;

{ xRoundInteger(126,10) = 130 }

asm
Mov ECX,EDX
Cdq
IDiv ECX
Shl EDX,1
Cmp EDX,ECX
Jb @Skip2
Or EAX,EAX
Js @Skip1
Inc EAX
Jmp @Skip2
@Skip1:
Dec EAX
@Skip2:
IMul ECX

end;

 

function xTruncInteger(pData, pDec: Integer): Integer;

{ xTruncInteger(354,100) = 300 }

asm

Mov ECX,EDX

Cdq

IDiv ECX

IMul ECX

end;