PRÁCTICA 13

LENGUAJE ENSAMBLADOR 80386 PRÁCTICA 13
%TITLE “FTOA – PUNTO FLOTANTE A ASCII”
; Ensamblarlo y ponerlo en librería PF
;
; FTOA.ASM – Convierte binario de punto flotante
; Número real en la pila del 80387 Stack en ASCII (usa FALOG de FALOG.ASM)
;
; Llamar con ST(0) = número de punto flotante
; DS:DI = área para recibir cadena
;
; Retorna: DS:SI = dirección de cadena convertida
; AX = largo de la cadena
; Pila del coprocesador “sube”
;
; Usa: nada
;
; Asegurarse de que el coprocesador ha sudo iniciado adecuadamente con una llamada previa a INICIA87!
IDEAL
MODEL small
dataseg
signo dw 0 ;recibe estado FXAM
viejo dw 0 ;modo de redondeo previo
nuevo dw 0 ;nuevo modo de redondeo
exp dw 0 ;potencia de 10
status dw 0 ;recibe estado ICOM
mant dt ;mantisa como valor BCD
fp1317 dq 1,0e17 ;constante para escalamiento
fp1e18 dq 1,0e18 ;constante para escalamiento
int10 dw 10 ;constante par escalamiento
CadOp db ‘+0.000000000000000000E+000’ ;exhibido si
LonOp equ offset CadOn-offset CadOp ;ST(0) = +0
CadOn db ‘-0.000000000000000000E+000’ ;exhibido si
LonOn equ offset CadIp-offset CadOn ;ST(0) = -0
CadIP db ‘’ ;exhibido si
LonIP equ offset CadIn-offset CadIp ;es infinito positivo
CadIN db ‘’ ;exhibido si ST(0)
LonIN equ offset CadNatN-offset CadIN ;es infinito negativo
CadNaN db ‘’ ;exhibido si ST(0)
LonNaN equ offset CadAn-offset CadNaN ;contiene Not-A-Número
CadAn db ‘’ ;exhibido para anormales
LonAn equ offset CadDe-offset CadAn ;positivos y negativos
CadDe db ‘’ ;exhibido para denormales
LonDe equ offset CadVac-offset CadDe ;positivos o negativos
CadVac db ‘’ ;exhibido si ST(0’)
LonVac equ offset Tipofin-offset CadVac ;está marcado vacío
AUTOR: PROFESOR SALVADOR SAUCEDO FLORES
EDICIÓN: PROFESOR PABLO FUENTES RAMOS
13-6