PRÁCTICA 13

LENGUAJE ENSAMBLADOR 80386 PRÁCTICA 13
codeseg
PUBLIC Inicia87
PROC Inicia87
push bx ax ;salva registros
mov ax,-1 ;pone FFFFH en la pila
push ax
mov bx,sp ;la hace direccionable
fninit ;trata de inicializar el coprocesador
fnstsw [ss:bx] ;trata de traer palabra de estado
pop ax ;si 8 bits bajos son cero,
or al,al ;el coprocesador está presente
jnz @@10 ;salta si no hay coprocesador
fldcw [ss:bx+2] ;carga al coprocesador la palabra de control
@@10:
pop ax bx ;restaura registros
ret ;y regresa el resultado en la bandera Z
ENDP Inicia87
end
%TITLE “FALOG.ASM CALCULA ANTILOG COMÚN EN 80387”
;
; FALOG.ASM calcula el antilogaritmo en 80387
;
; Llamar con: ST(0) = argumentos
;
; Retorna: ST(0) = antilogaritmo de base 10
;
; Usa: registros del CPU se preservan, usa tres celdas de la pila del coprocesador
;
; Nota: Para obtener antilogaritmo natural, reemplazar “fldl2t” con la instrucción “fldl2e”.
;
; Estar seguro que el coprocesador ha sido iniciado con un llamado previo a INICIA87!
IDEAL
MODEL small
Codeseg
vieja equ [word bp-4] ;palabra original de control
nueva equ [word bp-2] ;palabra nueva de control
PUBLIC falog
PROC falog
push ax ;salva registros y
push bp ;forma apuntador
mov bp,sp ;para variables locales
AUTOR: PROFESOR SALVADOR SAUCEDO FLORES
EDICIÓN: PROFESOR PABLO FUENTES RAMOS
13-2