- 59


; unk_2206

 

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

;

 

call @__IOCheck$qv ; Exit if error

pop bp

retn 6

MyProc endp

82

, '/$N+' : :

 

PROGRAM proc near

 

call INITTASK

call @__SystemInit$qv ; __SystemInit(void)

;

System

 

call @__InitEM86$qv ; Initialize software emulator

;

 

call @__WINCRTInit$qv ; __WINCRTInit(void)

; WINCRT

 

push bp

mov bp, sp

;

 

xor ax, ax

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

;

 

mov word_21C0, 0EC83h

mov word_21C2, 0B851h

mov word_21C4, 551Eh

mov word_21C6, 3D83h

mov word_21C8, 0D70Ah

mov word_21CA, 78A3h

; .

; WORD

Real

 

mov ax, word_21C0

mov bx, word_21C2

mov dx, word_21C4

call @Extended$q4Real ; Convert Real to Extended

; word_21C0, word_21C2 word_21C4 ,

; Real Extend ,

; , word_21C0 word_21C4 Real.

 

mov ax, word_21C6

mov bx, word_21C8

mov dx, word_21CA

call @Extended$q4Real ; Convert Real to Extended

; word_21C6 word_21CA Real

 

wait

; -

 

faddp st(1), st

; extended,

; .

 

call @Real$q8Extended ; Convert Extended to Real

; Extended Real

; ,




- -  - -  - -