Assembler äëÿ íà÷èíàþùèõ


         

Èçîáðàæåíèå ÷èñåë ñ ïëàâàþùåé òî÷êîé - ÷àñòü 2


    ìëàäøèå âîñåìü öèôð - äðîáíûå ðàçðÿäû.

             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



Ñîäåðæàíèå  Íàçàä  Âïåðåä