48 20 20 20
PAGE ,132
TITLE Ôèã. 7.23 Ñòåïåíè 10
0000 STACK SEGMENT STACK
0000 0040[ DW 64 DUP (?)
????
]
0080 STACK ENDS
0000 CODE SEGMENT
ASSUME CS:CODE
0000 ???????? POWER_OF_TEN DD ? ; Îáëàñòü äàííûõ äëÿ 10**x,
; êîðîòêîå ïëàâàþùåå
0004 0002[ OUTPUT_POWER DB 2 DUP (' ') ; Òåêñòîâûé áóôåð äëÿ çíà÷åíèÿ
20
]
0006 48 20 20 20 20 DB 'H ' ; ñòåïåíè
000B 0008[ OUTPUT_STRING DB 8 DUP (' ') ; Òåêñòîâûé áóôåð äëÿ ðåçóëüòàòà -
20 20 20 20 20
20 20 20 20
]
0053 48 0D 0A 24 DB 'H',13,10,'$' ; Êîíåö ñòðîêè
0057 00 POWER DB 0 ; Òåêóùàÿ ñòåïåíü 10
0058 03E8 THOUSAND DW 1000 ; Êîíñòàíòà
005A 03BF CONTROL_87 DW 03BFH
005C CALCULATE_POWER PROC FAR
005C 1E PUSH DS ; Çàíåñåíèå â ñòåê àäðåñà âîçâðàòà
005D B8 0000 MOV AX, 0
0060 50 PUSH AX
0061 0E PUSH CS
0062 1F POP DS
ASSUME DS:CODE ; Àäðåñàöèÿ îáëàñòè äàííûõ
0063 9B DB E3 FINIT ; Èíèöèàëèçàöèÿ ñîïðîöåññîðà 8087
Ñîäåðæàíèå Íàçàä Âïåðåä