Assembler


         

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