- 58


Real

, ,

; .

; Word

.

 

mov word_2036, 3D83h

mov word_2038, 0D70Ah

mov word_203A, 78A3h

; Real

 

mov ax, word_2030

mov bx, word_2032

mov dx, word_2034

mov cx, word_2036

mov si, word_2038

mov di, word_203A

; Real

 

call @$brplu$q4Realt1 ; Real(AX:BX:DX)+=Real(CX:SI:DI)

; , IDA ""

; .

;

; .

 

push dx

push bx

push ax

; MyProc

,

; , : MyProc(a:Real).

 

call MyProc

 

pop bp

;

 

xor ax, ax

call @Halt$q4Word ; Halt(Word)

;

 

PROGRAM endp

 

MyProc proc near ; CODE XREF: PROGRAM+5Cp

 

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_2206

push ds

push di

;

 

push [bp+arg_4]

push [bp+arg_2]

push [bp+arg_0]

;

 

mov ax, 11h

push ax

; 17

 

mov ax, 0FFFFh

push ax

; max

 

call @Write$qm4Text4Real4Wordt3 ; Write(var f; v: Real; width, decimals: Word)




- -  - -  - -