#;; (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: /cvsup/minix/src/lib/ack/libm2/EM.e,v 1.1 2005/10/10 15:27:46 beng Exp $; 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 ?