سلام عليكم
اذا امكن شرح البرنامج وهو عبارة عن تقسيم رقمين
ولكم جزيل الشكر
IDEAL
P386
p387
LOCALS
MODEL MEDIUM
;
include "mnemonic.inc"
SEGMENT sseg para stack 'STACK'
DB 400h DUP(?)
ENDS
DATASEG
Txt1 DB 1,0,"",0
DB 3,0,":",0
DB 4,0,":",0
DB 5,0,"",0
ENDS
CODESEG
;*****************************
;* *
;*****************************
PROC Arithmetic
mov AX,DGROUP
mov DS,AX
;
mov AX,3
int 10h
finit
;
mov SI,offset Txt1
call ShowString
call ShowString
call ShowString
call ShowString
;
mov [ScreenString],3
mov [ScreenColumn],24
finit
call GetFloat
fld [Data_Double]
fst [MyDouble1]
;
mov [ScreenString],4
mov [ScreenColumn],24
finit
call GetFloat
fld [Data_Double]
fst [MyDouble2]
;
;
finit
fld [MyDouble1]
fld [MyDouble2]
fdiv
fst [Data_Double]
;
mov [ScreenString],5
mov [ScreenColumn],24
call DoubleFloat_to_string
call ShowDataString
mov [ScreenString],25
mov [ScreenColumn],0
call SetCursorPosition
call GetChar
;
mov AX,3
int 10h
;
mov AH,4Ch
int 21h
ENDP Arithmetic
ENDS
;
include "ios.inc"
;
include "trans.inc"
END