- 60


; AX BX DX.

 

push dx

push bx

push ax

; AX, BX

DX

Real,

; :

; MyProc(a:Real);

 

call MyProc

 

pop bp

xor ax, ax

call @Halt$q4Word ; Halt(Word)

PROGRAM endp

 

MyProc proc near ; CODE XREF: PROGRAM+6Dp

 

arg_0 = word ptr 4

arg_2 = word ptr 6

arg_4 = word ptr 8

; , Real

 

push bp

mov bp, sp

;

 

xor ax, ax

call @__StackCheck$q4Word ; Stack overflow check (AX)

;

 

mov di, offset unk_2396

push ds

push di

;

 

mov ax, [bp+arg_0]

mov bx, [bp+arg_2]

mov dx, [bp+arg_4]

call @Extended$q4Real ; Convert Real to Extended

; Real

Extended

 

mov ax, 17h

push ax

; 017

 

mov ax, 0FFFFh

push ax

; ,

 

call @Write$qm4Text8Extended4Wordt3 ; Write(var f; v: Extended{st(0); width decimals: Word)

;

 

call @WriteLn$qm4Text ; WriteLn(var f: Text)

;

 

call @__IOCheck$qv ; Exit if error

pop bp

retn 6

MyProc endp

83

 

:: thiscall .

++ this , . " this", .

++ ( fastcall), this (.


- -  - -  - -