Assembler


         

- 3


006D 9B D9 E0 FCHS ; N1=-B-SQR(D) ; N2=-B+SQR(D)
0070 9B DE 36 0000 R FIDIV A ; N1/A ; N2
0075 9B DE 36 000A R FIDIV TWO ; ROOT1=N1/2*A ; N2
007A E8 0000 E CALL FLOAT_ASCII ; N2 ; ?
007D 9B DE 36 0000 R FIDIV A ; N2/A ; ?
0082 9B DE 36 000A R FIDIV TWO ; ROOT2=N2/2*A ; ?
0087 E8 0000 E CALL FLOAT_ASCII ; ? ; ?
008A CB RET
008B IMAGINARY:
008B 8D 16 000C R LEA DX,ERROR_MSG
008F B4 09 MOV AH,9H
0091 CD 21 INT 21H ;
0093 CB RET
0094 QUADRATIC ENDP
0094 CODE ENDS
END QUADRATIC
 
. 7.26 ()
 
,
(B**2 - 4*A*C) ,
, .
,
, . ,
8087
,
.
 
FTST ;
.
,
8088.
JB (, ), ,
.
,
, .
8087 .
, ,
, , ,
8087.

.