PRÁCTICA 13

LENGUAJE ENSAMBLADOR 80386 PRÁCTICA 13
fimul [int10] ;si, mantisa*10
dec [exp] ;y decrementa exponente
jmp @@20
@@30:
fcom [fp1e18] ;¿es la mantisa < 1.0e18?
fstsw [status]
fwait
mov ax,[status]
sahf
jb @@40 ;si, proceder
fidiv [int10] ;no, mantisa / 10
inc [exp] ;e incrementa exponente
jmp @@30
@@40:
fbstp [mant] ;salva mantisa en BCD
fwait
mov di,si ;direcciona cadena ASCII
mov ,’+’ ;asume es positivo
test [signo],200h ;verifica banderas de FXAM
jz @@50 ;brinca, valor es positivo
mov al,’-‘
@@50:
stosb ;salva símbolo + o –
mov al,’0’ ;salva cero delantero
stosb
mov al,’.’ ;pone punto decimal
stosb
mov bx,8 ;apunta a últimos dígitos BCD
@@60:
mov al,[byte bx+mant] ;convierte byte BCD a
shr al,1 ;dos dígitos ASCII
shr al,1
shr al,1
shr al,1
call digit ;convierte nibble alto
mov al,[byte bx+mant]
call digit ;convierte nibble bajo
dec bx ;procesa valores BCD
jns @@60 ;hasta convertir 18 dígitos
mov al,’E’ ;pone la E para exponente
stosb
mov bx,[exp] ;prueba signo del exponente
mov al,’+’
or bx,bx
jns @@70 ;brinca, exponente es positivo
mov al,’-‘
neg bx ;valor absoluto del exponente
@@70:
stosb ;salva signo del exponente
AUTOR: PROFESOR SALVADOR SAUCEDO FLORES
EDICIÓN: PROFESOR PABLO FUENTES RAMOS
13-8