101 lines
1.8 KiB
Text
101 lines
1.8 KiB
Text
|
#
|
||
|
|
;
|
||
|
|
; (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 ?
|