Assembler äëÿ íà÷èíàþùèõ
ASSUME CS:CODE
ìëàäøèå âîñåìü öèôð - äðîáíûå ðàçðÿäû.
Microsoft (R) Macro Assembler Version 5.00 1/1/80 04:04:46
Ôèã. 7.25 Ïðåîáðàçîâàíèå ïëàâàþùåãî ôîðìàòà â òåêñòîâûé Page 1-1
PAGE ,132
TITLE Ôèã. 7.25 Ïðåîáðàçîâàíèå ïëàâàþùåãî ôîðìàòà â òåêñòîâûé
0000 CODE SEGMENT PUBLIC
ASSUME CS:CODE,DS:CODE,ES:CODE
EXTRN TEN_TO_X:NEAR
0000 ???? OLD_CW DW ?
0002 ???? NEW_CW DW ?
0004 ???? EXPONENT DW ?
0006 ??????????????????? BCD_RESULT DT ?
?
0010 ??????????????????? BCD_EXPONENT DT ?
?
001A 00E1F505 TEN8 DD 100000000
001E 20 20 20 20 20 20 20 PRINT_STRING DB ' E ',10,13,'$'
20 20 45 20 20 20 20
0A 0D 24
Ôèã. 7.25 Ïðåîáðàçîâàíèå ïëàâàþùåãî ôîðìàòà â òåêñòîâûé (íà÷àëî)
PUBLIC FLOAT_ASCII
;--------------------------------------------
; Ýòà ïðîãðàììà èçâëåêàåò èç âåðøèíû ñòåêà
; ñîïðîöåññîðà 8087 ÷èñëî è âûâîäèò åãî íà
; ýêðàí â ïëàâàþùåì ôîðìàòå.
; Ïàðàìåòðû: ÷èñëî â ST(0)
; Ðåçóëüòàò: èçîáðàæåíèå ÷èñëà íà ýêðàíå;
; ÷èñëî èçâëå÷åíî èç ñòåêà ñîïðîöåññîðà 8087
;--------------------------------------------
002F FLOAT_ASCII PROC NEAR
