minix/lib/libm2/EM.e

101 lines
1.8 KiB
Text
Raw Normal View History

2005-04-21 16:53:53 +02:00
#
;
; (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
; See the copyright notice in the ACK home directory, in the file "Copyright".
;
;
; Module: Interface to some EM instructions and data
; Author: Ceriel J.H. Jacobs
; Version: $Header$
;
mes 2,_EM_WSIZE,_EM_PSIZE
#define ARG1 0
#define ARG2 _EM_DSIZE
#define IRES 2*_EM_DSIZE
; FIF is called with three parameters:
; - address of integer part result (IRES)
; - float two (ARG2)
; - float one (ARG1)
; and returns an _EM_DSIZE-byte floating point number
; Definition:
; PROCEDURE FIF(ARG1, ARG2: LONGREAL; VAR IRES: LONGREAL) : LONGREAL;
exp $FIF
pro $FIF,0
lal 0
loi 2*_EM_DSIZE
fif _EM_DSIZE
lal IRES
loi _EM_PSIZE
sti _EM_DSIZE
ret _EM_DSIZE
end ?
#define FARG 0
#define ERES _EM_DSIZE
; FEF is called with two parameters:
; - address of base 2 exponent result (ERES)
; - floating point number to be split (FARG)
; and returns an _EM_DSIZE-byte floating point number (the mantissa)
; Definition:
; PROCEDURE FEF(FARG: LONGREAL; VAR ERES: integer): LONGREAL;
exp $FEF
pro $FEF,0
lal FARG
loi _EM_DSIZE
fef _EM_DSIZE
lal ERES
loi _EM_PSIZE
sti _EM_WSIZE
ret _EM_DSIZE
end ?
#define TRAP 0
; TRP is called with one parameter:
; - trap number (TRAP)
; Definition:
; PROCEDURE TRP(trapno: INTEGER);
exp $TRP
pro $TRP, 0
lol TRAP
trp
ret 0
end ?
#define PROC 0
; SIG is called with one parameter:
; - procedure instance identifier (PROC)
; and returns the old traphandler.
exa handler
exp $SIG
pro $SIG, 0
lae handler
loi _EM_PSIZE
lal PROC
loi _EM_PSIZE
lae handler
sti _EM_PSIZE
ret _EM_PSIZE
end ?
exp $LINO
pro $LINO,0
loe 0
ret _EM_WSIZE
end ?
exp $FILN
pro $FILN,0
lae 4
loi _EM_PSIZE
ret _EM_PSIZE
end ?