Assembler


         

- 5


00A6 AA STOSB
 
. 7.25 ()
00A7 A0 0019 R MOV AL,BYTE PTR BCD_EXPONENT+9
00AA E8 00C3 R CALL PRINT_SIGN ;
00AD A0 0011 R MOV AL,BYTE PTR BCD_EXPONENT+1
00B0 E8 00DF R CALL PRINT_NYBBLE ;
00B3 8D 1E 0010 R LEA BX,BCD_EXPONENT
00B7 E8 00CD R CALL PRINT_BYTE ;
00BA 8D 16 001E R LEA DX,PRINT_STRING
00BE B4 09 MOV AH,9H
00C0 CD 21 INT 21H ;
00C2 C3 RET
00C3 FLOAT_ASCII ENDP
 
;----- ' ' '+'
00C3 PRINT_SIGN PROC NEAR
00C3 3C 00 CMP AL,0 ;
00C5 B0 20 MOV AL,' ' ;
00C7 74 02 JZ POSITIVE
00C9 B0 2D MOV AL,'-' ;
00CB POSITIVE:
00CB AA STOSB ;
00CC C3 RET
00CD PRINT_SIGN ENDP
 
;----- ,
; [BX]
 
00CD PRINT_BYTE PROC NEAR