?? em.e
字號(hào):
#;; (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 ??? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -