perm filename FOO2[X,AIL]5 blob sn#093277 filedate 1974-03-30 generic text, type T, neo UTF8
COMMENT ⊗   VALID 00004 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	
 00014 00003	TTYIN		STRING		OWN+BILTIN	2
 00024 00004	
 00034 ENDMK
⊗;

COMMENT β

MUMBLE THIS IS THE FILE OF FUNCTION NAMES
	FOR THE INITIAL SYMBOL TABLE MAKER ;

<ASSIGN>




UNTYPE←←0


<DEFINITIONS>
INF
XOR
AND
NOT
IN
OR
COMMENT
EQV
UNION
INTER
SETO
SETC
SWAP
LEQ
NEQ
GEQ
ASSOC


MUMBLE Here must be described in some detail the precise meaning
	of all this malarky ;

MUMBLE $ MEANS MAY BE DEFAULTED ;

<FUNCTIONS>
M	UNTYPE	OWN  0
OUT	UNTYPE	OWN+BILTIN  2
VALINT (CHANNEL)	INTEGR		VALUE
VALSTR  (STRING)	STRING		VALUE

BREAKSET	UNTYPE		OWN+BILTIN 3
VALINT (TABLE)		INTEGR		VALUE
VALSTR  (STRING)	STRING		VALUE
VALINT (CONDITIONS)	INTEGR		VALUE

INPUT		STRING		OWN	2
VALINT (CHANNEL)	INTEGR		VALUE
VALINT (TABLE)		INTEGR		VALUE

LOOKUP		UNTYPE		OWN+BILTIN	3
VALINT (CHANNEL)	INTEGR		VALUE
VALSTR  (FILENAME)	STRING		VALUE
REFINT  (FLAG)		INTEGR		REFRNC

WR_INI		UNTYPE		OWN		4
VALSTR	(DEVICE)	STRING		VALUE
VALSTR	(FILENAME)	STRING		VALUE
VALINT	(CHANNEL)	INTEGR		VALUE
VALINT	(MAXLENGTH)	INTEGR		VALUE

OPEN		UNTYPE		OWN+BILTIN 8
VALINT (CHANNEL)	INTEGR		VALUE
VALSTR  (DEVICE)	STRING		VALUE
VALINT (MODE)		INTEGR		VALUE
VALINT (INBUFS)	INTEGR		VALUE
VALINT (OUTBUFS)	INTEGR		VALUE
REFINT  (COUNT)		INTEGR		REFRNC
REFINT  (BRCHAR)	INTEGR		REFRNC
REFINT  (EOF)		INTEGR		REFRNC

SETPL		UNTYPE		OWN+BILTIN	4
VALINT	(CHANNEL)	INTEGR		VALUE
REFINT	(LINNUM)	INTEGR		REFRNC
REFINT	(PAGNUM)	INTEGR		REFRNC
REFINT	(SOSNUM)	INTEGR		REFRNC

POINT		INTEGR		OWN+BILTIN+CONOK X3
VALINT (BYTESIZE)	INTEGR		VALUE
REFINT (ADDRESS)	INTEGR		REFRNC
VALINT (BYTEPOS)	INTEGR		VALUE

.BBPP.		INTEGR		OWN+BILTIN	3
VALINT (BYTESIZE)	INTEGR		VALUE
REFINT (ADDRESS)	INTEGR		REFRNC
VALINT (BYTEPOS)	INTEGR		VALUE

EQU		INTEGR		OWN+BILTIN+CONOK X2
VALSTR  (ARG1)		STRING		VALUE
VALSTR  (ARG2)		STRING		VALUE



CVS		STRING		OWN+BILTIN+CONOK X1
VALINT (NUMBER)	INTEGR		VALUE

CVD		INTEGR		OWN+BILTIN+CONOK X1
VALSTR  (STRING)	STRING		VALUE

SCAN		STRING		OWN+CONOK X3
REFSTR   (STRING)	STRING		REFRNC
VALINT  (TABLE)		INTEGR		VALUE
REFINT  (BRCHAR)	INTEGR		REFRNC

RELEASE		UNTYPE		OWN+BILTIN	2
VALINT  (CHANNEL)	INTEGR		VALUE
VALINT	(INHIBITS)   $	INTEGR		VALUE



LINOUT		UNTYPE		OWN+BILTIN	2
VALINT  (CHANNEL)	INTEGR		VALUE
VALINT  (LINENO)	INTEGR		VALUE

CLOSE		UNTYPE		OWN+BILTIN	1
VALINT  (CHANNEL)	INTEGR		VALUE

CLOSO		UNTYPE		OWN+BILTIN	1
VALINT  (CHANNEL)	INTEGR		VALUE

CLOSIN		UNTYPE		OWN+BILTIN	1
VALINT  (CHANNEL)	INTEGR		VALUE

CVOS		STRING		OWN+BILTIN+CONOK X1
VALARI  (NUMBER)	INTEGR+FLOTNG		VALUE

ENTER		UNTYPE		OWN+BILTIN	3
VALINT  (CHANNEL)	INTEGR		VALUE
VALSTR  (NAME)		STRING		VALUE
REFINT  (FAIL-FLG)	INTEGR		REFRNC

MTAPE		UNTYPE		OWN+BILTIN	2
VALINT  (CHANNEL)	INTEGR		VALUE
VALINT  (OPER)		INTEGR		VALUE

WORDIN		INTEGR		OWN+BILTIN	1
VALINT  (CHANNEL)	INTEGR		VALUE

WORDOUT		UNTYPE		OWN+BILTIN	2
VALINT  (CHANNEL)	INTEGR		VALUE
VALARI  (ARG)		INTEGR+FLOTNG	VALUE

CVO		INTEGR		OWN+BILTIN+CONOK X1
VALSTR  (STRING)	STRING		VALUE



USETI		UNTYPE		OWN+BILTIN	2
VALINT  (CHANN)	INTEGR	VALUE
VALINT  (BLOCK)		INTEGR		VALUE

USETO		UNTYPE		OWN+BILTIN	2
VALINT  (CHANNEL)	INTEGR		VALUE
VALINT  (BLOCK)		INTEGR		VALUE

CVSIX		INTEGR		OWN+BILTIN+CONOK X1
VALSTR  (STRING)	STRING		VALUE

CVFIL		INTEGR		OWN+BILTIN+CONOK X3
VALSTR  (INPUT)	STRING		VALUE
REFINT  (EXTEN)		INTEGR		REFRNC
REFINT  (PPN)		INTEGR		REFRNC

CALL		INTEGR		OWN+BILTIN	2
VALINT  (INPUT-VAL)	INTEGR		VALUE
VALSTR  (STRING-DESCR)	STRING		VALUE

RENAME		UNTYPE		OWN+BILTIN	4
VALINT  (CHANNEL)	INTEGR		VALUE
VALSTR  (FILE-NAME)	STRING		VALUE
VALINT  (PROTECTION)	INTEGR		VALUE
REFINT  (FLAG)		INTEGR		REFRNC


CVASC		INTEGR		OWN+BILTIN+CONOK X1
VALSTR  (STRING-IN)	STRING		VALUE

CVSTR		STRING		OWN+BILTIN+CONOK X1
VALINT  (INTEGR-IN)	INTEGR		VALUE

CVXSTR		STRING		OWN+BILTIN+CONOK X1
VALINT  (INTEGR-IN)	INTEGR		VALUE


.SUBSR		STRING		OWN+BILTIN+CONOK X3
VALSTR	(THESTRING)	STRING		VALUE
VALINT	(FOR)		INTEGR		VALUE
VALINT	(START)		INTEGR		VALUE

.SUBST		STRING		OWN+BILTIN+CONOK X3
VALSTR	(THESTRING)	STRING		VALUE
VALINT	(TO)		INTEGR		VALUE
VALINT	(START)		INTEGR		VALUE

SETBREAK	UNTYPE		OWN+BILTIN	4
VALINT  (TABLE)		INTEGR		VALUE
VALSTR  (BRCHARS)	STRING		VALUE
VALSTR  (OMITS)		STRING		VALUE
VALSTR  (MODES)		STRING		VALUE

STDBRK		UNTYPE		OWN+BILTIN   1
VALINT  (CHANNEL)	INTEGR		VALUE

ARRYIN		UNTYPE		OWN+BILTIN   3
VALINT (CHANNEL)	INTEGR		VALUE
REFANY  (WHERE)		INTEGR+FLOTNG+ITMVAR		REFRNC
VALINT  (COUNT)		INTEGR		VALUE

ARRYOUT		UNTYPE		OWN+BILTIN  3
VALINT  (CHANNEL)	INTEGR		VALUE
REFANY  (WHERE)		INTEGR+FLOTNG+ITMVAR		REFRNC
VALINT  (COUNT)		INTEGR		VALUE

SETFORMAT	UNTYPE		OWN+BILTIN	2
VALINT  (WIDTH)		INTEGR		VALUE
VALINT  (DIGS)		INTEGR		VALUE

CVG		STRING		OWN+BILTIN+CONOK X1
VALREL  (NUMBER)	FLOTNG		VALUE

CVF		STRING	OWN+BILTIN+CONOK X1
VALREL  (NUMBER)	FLOTNG		VALUE

CVE		STRING		OWN+BILTIN+CONOK X1
VALREL  (NUMBER)	FLOTNG		VALUE

REALIN		FLOTNG		OWN+BILTIN	1
VALINT  (CHANNEL)	INTEGR		VALUE

INTIN		INTEGR		OWN+BILTIN	1
VALINT  (CHANNEL)	INTEGR		VALUE

REALSCAN	FLOTNG		OWN+BILTIN+CONOK X2
REFSTR (ST-NUM)	STRING		REFRNC
REFINT (FLAG-BREAK) INTEGR	REFRNC

INTSCAN		INTEGR		OWN+BILTIN+CONOK X2
REFSTR (ST-NUM)	STRING		REFRNC
REFINT (FLAG-BREAK) INTEGR	REFRNC

ARRINFO		INTEGR		OWN+BILTIN	2
ARRALL  (ARRAY)	INTEGR+FLOTNG+SET+LSTBIT+ITMVAR+STRING	REFRNC+SBSCRP
VALINT  (CODE)		INTEGR		VALUE

ARRBLT		UNTYPE		OWN+BILTIN	3
REFALL  (DEST)		INTEGR+FLOTNG+ITMVAR+SET		REFRNC
REFALL  (SOURCE)	INTEGR+FLOTNG+ITMVAR+SET		REFRNC
VALINT  (HOWMANY)	INTEGR		VALUE

ARRTRAN		UNTYPE		OWN+BILTIN	2
ARRMST  (ARRDST)	INTEGR+FLOTNG+ITMVAR+SET+LSTBIT+STRING	REFRNC+SBSCRP
ARRMST  (ARRSRC)	INTEGR+FLOTNG+ITMVAR+SET+LSTBIT+STRING	REFRNC+SBSCRP

ARRCLR		UNTYPE		OWN+BILTIN	2
ARRMST	(ARRAY)		INTEGR+FLOTNG+ITMVAR	REFRNC+SBSCRP
VALARI	(VAL)  $	INTEGR+FLOTNG       	VALUE

CODE		INTEGR		OWN+BILTIN	2
VALINT  (INST)		INTEGR		VALUE
REFINT  (ADDR)		INTEGR		REFRNC

USERERR		UNTYPE		OWN+BILTIN	4
VALINT  (VALUE)		INTEGR		VALUE
VALINT  (CODE)		INTEGR		VALUE
VALSTR  (MSG)		STRING		VALUE
VALSTR	(RESPONSE) $	STRING		VALUE

ERMSBF		UNTYPE		OWN+BILTIN	1
VALINT  (CHARS)		INTEGR		VALUE

CVSI		ITMVAR		OWN	2
VALSTR  (PNAME)		STRING		VALUE
REFINT	(FLAG)		INTEGR		REFRNC

CVIS		STRING		OWN	2
VALITM  (ITEMNO)	ITMVAR		VALUE
REFINT	(FLAG)		INTEGR		REFRNC

NEW_PNAME	UNTYPE		OWN	2
VALITM (ITEM)		ITMVAR		VALUE
VALSTR (STRING)		STRING		VALUE

DEL_PNAME	UNTYPE		OWN	1
VALTIM (ITEM)		ITMVAR		VALUE


TYPEIT		INTEGR		OWN+BILTIN	1
VALITM (ITEM)		ITMVAR		VALUE

LISTX		INTEGR		OWN+BILTIN	3
VALLST	(LIST)		LSTBIT+SET	VALUE
VALITM	(ITEM)		ITMVAR		VALUE
VALINT	(OCCURENCE)	INTEGR		VALUE


INCHRW		INTEGR		OWN+BILTIN	0

INCHRS		INTEGR		OWN+BILTIN	0

INCHWL		STRING		OWN+BILTIN	0

INCHSL		STRING		OWN+BILTIN	1
REFINT	(FLAG)	INTEGR	REFRNC

INSTR		STRING		OWN+BILTIN	1
VALINT	(BRCHAR)	INTEGR	VALUE

INSTRL		STRING		OWN+BILTIN	1
VALINT	(BRCHAR)	INTEGR	VALUE

INSTRS		STRING		OWN+BILTIN	2
REFINT	(FLAG)		INTEGR	REFRNC
VALINT	(BRCHAR)	INTEGR	VALUE

TTYIN		STRING		OWN+BILTIN	2
VALINT	(TABLE)		INTEGR	VALUE
REFINT	(BRCHAR)	INTEGR	REFRNC

TTYINL		STRING		OWN+BILTIN	2
VALINT	(TABLE)		INTEGR	VALUE
REFINT	(BRCHAR)	INTEGR	REFRNC

TTYINS		STRING		OWN+BILTIN	2
VALINT	(TABLE)		INTEGR	VALUE
REFINT	(BRCHAR)	INTEGR	REFRNC

OUTCHR		UNTYPE		OWN+BILTIN	1
VALINT	(CHAR)	INTEGR	VALUE

OUTSTR		UNTYPE		OWN+BILTIN	1
VALSTR	(STR)	STRING	VALUE


GETFORMAT	UNTYPE		OWN+BILTIN	2
REFINT (WDTH)	INTEGR	REFRNC
REFINT (DIGS)	INTEGR	REFRNC

GETCHAN		INTEGR		OWN+BILTIN	0

FILEINFO	UNTYPE		OWN+BILTIN	1
ARRINT  (ARRAY) INTEGR		REFRNC+SBSCRP

USERCON		UNTYPE		OWN+BILTIN	3
REFINT (INDEX)	INTEGR	REFRNC
REFINT (VALUE)	INTEGR	REFRNC
VALINT	(FLAG)	INTEGR	VALUE

CHNCDB		INTEGR		OWN+BILTIN	1
VALINT (CHAN)	INTEGR		VALUE

MUMBLE NWORLD RUNTIMES ;

MAINPR		UNTYPE		OWN		0

RESUME		ITMVAR		OWN		3
VALITM	(PROCESS)	ITMVAR		VALUE
VALITM	(RETVAL)    $	ITMVAR		VALUE
VALINT	(OPTS)	    $	INTEGR		VALUE

ASKNTC		ITMVAR		OWN		2
VALITM	(ETYP)		ITMVAR		VALUE
VALINT	(OPTS)	    $	INTEGR		VALUE

CAUSE1		ITMVAR		OWN		3
VALITM	(ETYP)		ITMVAR		VALUE
VALITM	(ENOT)      $	ITMVAR		VALUE
VALINT	(OPTS)	    $	INTEGR		VALUE

MKEVTT		UNTYPE		OWN		1
VALITM	(ETYP)		ITMVAR		VALUE

JOIN		UNTYPE		OWN		1
VALSET	(JSET)		SET		VALUE

SUSPEND		ITMVAR		OWN		1
VALITM	(PROCESS)	ITMVAR		VALUE

TERMINATE	UNTYPE		OWN		1
VALITM	(PROCESS)	ITMVAR		VALUE

MYPROC		ITMVAR		OWN+BILTIN	0

CALLER		ITMVAR		OWN		1
VALITM	(PROCESS)	ITMVAR		VALUE

INTSET		UNTYPE		OWN		2
VALITM	(IPROCSS)	ITMVAR		VALUE
VALINT	(OPTS)		INTEGR		VALUE

INTTBL		UNTYPE		OWN		1
VALINT	(SIZE)		INTEGR		VALUE

INTMOD		UNTYPE		OWN		0

CLKMOD		UNTYPE		OWN		0

DFRINT		UNTYPE		OWN		0

DDFINT		UNTYPE		OWN		0

DFR1IN		UNTYPE		OWN		1
VALINT	(AOBJNP)	INTEGR		VALUE

ENABLE		UNTYPE		OWN		1
VALINT	(INDEX)		INTEGR		VALUE

DISABLE		UNTYPE		OWN		1
VALINT	(INDEX)		INTEGR		VALUE

INTMAP		UNTYPE		OWN		3
VALINT	(INDEX)		INTEGR		VALUE
REFPRC	(PROC)		PROCED		REFRNC
VALINT	(PARAM)		INTEGR		VALUE

DFCPKT		INTEGR		OWN		4
VALINT	(ADDR)		INTEGR		VALUE
VALITM	(TYP)		ITMVAR		VALUE
VALITM	(NOTC)		ITMVAR		VALUE
VALINT	(OPTS)		INTEGR		VALUE

URSCHD		INTEGR		OWN		0

PRISET		UNTYPE		OWN		2
VALITM	(PROCESS)	ITMVAR		VALUE
VALINT	(PRIORITY)	INTEGR		VALUE

PSTATUS		INTEGR		OWN		1
VALITM	(PROCESS)	ITMVAR		VALUE

INTPRO		UNTYPE		OWN		0

ANSWER		INTEGR		OWN		3
VALITM	(ETYP)		ITMVAR		VALUE
VALITM	(ENOT)		ITMVAR		VALUE
VALITM	(PROCESS)	ITMVAR		VALUE

MUMBLE THE TRIGONOMETRIC ROUTINES, AND MISC. NUMERICAL ;

LOG		FLOTNG		OWN+BILTIN+FNYNAM	1
VALREL	(ARG)		FLOTNG		VALUE

EXP		FLOTNG		OWN+BILTIN+FNYNAM	1
VALREL	(ARG)		FLOTNG		VALUE

SIN		FLOTNG		OWN+BILTIN+FNYNAM	1
VALREL	(ARG)		FLOTNG		VALUE

SIND		FLOTNG		OWN+BILTIN+FNYNAM	1
VALREL	(ARG)		FLOTNG		VALUE

COS		FLOTNG		OWN+BILTIN+FNYNAM	1
VALREL	(ARG)		FLOTNG		VALUE

COSD		FLOTNG		OWN+BILTIN+FNYNAM	1
VALREL	(ARG)		FLOTNG		VALUE

SQRT		FLOTNG		OWN+BILTIN+FNYNAM	1
VALREL	(ARG)		FLOTNG		VALUE

ATAN2		FLOTNG		OWN+BILTIN+FNYNAM	2
VALREL	(ARG)		FLOTNG		VALUE
VALREL	(ARG)		FLOTNG		VALUE

ATAN		FLOTNG		OWN+BILTIN+FNYNAM	1
VALREL	(ARG)		FLOTNG		VALUE

ACOS		FLOTNG		OWN+BILTIN+FNYNAM	1
VALREL	(ARG)		FLOTNG		VALUE

ASIN		FLOTNG		OWN+BILTIN+FNYNAM	1
VALREL	(ARG)		FLOTNG		VALUE

TANH		FLOTNG		OWN+BILTIN+FNYNAM	1
VALREL	(ARG)		FLOTNG		VALUE

COSH		FLOTNG		OWN+BILTIN+FNYNAM	1
VALREL	(ARG)		FLOTNG		VALUE

SINH		FLOTNG		OWN+BILTIN+FNYNAM	1
VALREL	(ARG)		FLOTNG		VALUE

RAN		FLOTNG		OWN+BILTIN+FNYNAM	1
VALINT	(ARG)		INTEGR		VALUE

TRIGINI		UNTYPE		OWN			1
VALLOC	(LOC)	INTEGR	VALUE

GETSTS		INTEGR		OWN+BILTIN	1
VALINT	(CHNL)	INTEGR		VALUE

SETSTS		UNTYPE		OWN+BILTIN	2
VALINT	(CHNL)	INTEGR		VALUE
VALINT	(BITS)	INTEGR		VALUE

INOUT		UNTYPE		OWN+BILTIN	3
VALINT	(INCHN)	INTEGR		VALUE
VALINT	(OUTCH)	INTEGR		VALUE
VALINT	(EXT)	INTEGR		VALUE

TTYUP		INTEGR		OWN+BILTIN	1
VALINT	(ARG)	INTEGR		VALUE

CLRBUF		UNTYPE		OWN+BILTIN	0

MUMBLE **** THE FOLLOWING ARE FOR CMU ****

INITSEA		INTEGR		OWN		1
VALINT	(SEAPAR)	INTEGR		VALUE

SEAINIT		INTEGR		OWN		1
VALINT	(SEAPAR)	INTEGR		VALUE

SEAREL		UNTYPE		OWN	0

ARDINIT		UNTYPE		OWN	0

CHARSZ		UNTYPE		OWN	1
VALINT	(SIZE)	INTEGR		VALUE

ARDSTR		UNTYPE		OWN	1
VALSTR	(STR)	STRING		VALUE

CHRMOD		UNTYPE		OWN	0

CLEAR		UNTYPE		OWN	0

SETPNT		UNTYPE		OWN	2
VALINT	(X)	INTEGR		VALUE
VALINT	(Y)	INTEGR		VALUE

INVVEC		UNTYPE		OWN	2
VALINT	(DX)	INTEGR		VALUE
VALINT	(DY)	INTEGR		VALUE

VISVEC		UNTYPE		OWN	2
VALINT	(DX)	INTEGR		VALUE
VALINT	(DY)	INTEGR		VALUE

DOTVEC		UNTYPE		OWN	2
VALINT	(DX)	INTEGR		VALUE
VALINT	(DY)	INTEGR		VALUE

SVEC		UNTYPE		OWN	2
VALINT	(DX)	INTEGR		VALUE
VALINT	(DY)	INTEGR		VALUE

MOUSEW		UNTYPE		OWN	3
REFINT	(X)	INTEGR		REFRNC
REFINT	(Y)	INTEGR		REFRNC
REFINT	(TYPE)	INTEGR		REFRNC

MOUSES		UNTYPE		OWN	3
REFINT	(X)	INTEGR		REFRNC
REFINT	(Y)	INTEGR		REFRNC
REFINT	(TYPE)	INTEGR		REFRNC

CHRMOD		UNTYPE		OWN	0

GRUMBLE **** END OF CMU ADDITIONS **** ;
MUMBLE **** ROUTINES FOR ALL TENEX SITES *****
 < A semicolon here gets the tenex routines >
CVJFN	INTEGR	OWN+BILTIN	1
VALINT  (CHAN)	INTEGR	VALUE

ODTIM	STRING	OWN	2
VALINT  (DT)	INTEGR	VALUE
VALINT  (FORMAT)	INTEGR	VALUE

IDTIM	INTEGR	OWN	1
VALSTR	(DT)	STRING	VALUE

RUNTM	INTEGR	OWN	2
VALINT  (FORK)	INTEGR	VALUE
REFINT  (CONSOLE)	INTEGR	REFRNC

GTAD	INTEGR	OWN+BILTIN	0

GJINF	INTEGR	OWN	3
REFINT  (LOGDIR)	INTEGR	REFRNC
REFINT  (CONDIR)	INTEGR	REFRNC
REFINT  (TTYNO)	INTEGR	REFRNC

STDIR	INTEGR	OWN	2
VALSTR  (DIRECTORY)	STRING	VALUE
VALINT  (DOREC)	INTEGR	VALUE

DIRST	STRING	OWN	1
VALINT  (DIRNO)	INTEGR	VALUE

RUNPRG	INTEGR	OWN	3
VALSTR	(PROGRAM)	STRING	VALUE
VALINT  (INCREM)	INTEGR	VALUE
VALINT	(NEWFRK)	INTEGR	VALUE

OPENFILE	INTEGR	OWN	2
VALSTR	(FILE)	STRING	VALUE
VALSTR  (MODES)	STRING	VALUE

SETINPUT	UNTYPE	OWN	4
VALINT  (CHAN)	INTEGR	VALUE
REFINT  (COUNT)	INTEGR	REFRNC
REFINT  (BRK)	INTEGR	REFRNC
REFINT  (EOF)	INTEGR	REFRNC

INDEXFILE	INTEGR	OWN	1
VALINT  (CHAN)	INTEGR	VALUE

GTJFN	INTEGR	OWN	2
VALSTR  (FILE)	STRING	VALUE
VALINT  (FLAGS)	INTEGR	VALUE

GTJFNL	INTEGR	OWN	10
VALSTR	(ORIG)	STRING	VALUE
VALINT	(FLAGS)	INTEGR	VALUE
VALINT	(IOJFS)	INTEGR	VALUE
VALSTR	(DEV)	STRING	VALUE
VALSTR	(DIR)	STRING	VALUE
VALSTR	(NAM)	STRING	VALUE
VALSTR	(EXT)	STRING	VALUE
VALSTR	(PROT)	STRING 	VALUE
VALSTR	(ACC)	STRING	VALUE
VALINT	(DJFN)	INTEGR	VALUE

GNJFN	INTEGR	OWN	1
VALINT  (CHAN)	INTEGR	VALUE

DELF	UNTYPE	OWN	1
VALINT  (CHAN)	INTEGR	VALUE

UNDELETE	UNTYPE	OWN	1
VALINT  (CHAN)	INTEGR	VALUE

SIZEF	INTEGR	OWN	1
VALINT  (CHAN)	INTEGR	VALUE

JFNS	STRING	OWN	2
VALINT  (CHAN)	INTEGR	VALUE
VALINT  (FLAGS)	INTEGR	VALUE

OPENF	UNTYPE	OWN	2
VALINT  (CHAN)	INTEGR	VALUE
VALINT  (FLAGS)	INTEGR	VALUE

CFILE	INTEGR	OWN	1
VALINT  (CHAN)	INTEGR	VALUE

CLOSF	UNTYPE	OWN	1
VALINT  (CHAN)	INTEGR	VALUE

RLJFN	UNTYPE	OWN	1
VALINT  (CHAN)	INTEGR	VALUE

GTSTS	INTEGR	OWN	1
VALINT  (CHAN)	INTEGR	VALUE

STSTS	INTEGR	OWN	2
VALINT	(CHAN)	INTEGR	VALUE
VALINT	(STAT)	INTEGR	VALUE

RNAMF	INTEGR	OWN	2
VALINT	(CHAN1)	INTEGR	VALUE
VALINT	(CHAN2)	INTEGR	VALUE

CNDIR	INTEGR	OWN	2
VALINT	(DIR)	INTEGR	VALUE
VALSTR	(PW)	STRING	VALUE

ASND	INTEGR	OWN	1
VALINT	(DEV)	INTEGR	VALUE

RELD	INTEGR	OWN	1
VALINT	(DEV)	INTEGR	VALUE

GDSTS	INTEGR	OWN	2
VALINT	(CHAN)	INTEGR	VALUE
REFINT	(WDCNT)	INTEGR	REFRNC

SDSTS	INTEGR	OWN	2
VALINT	(CHAN)	INTEGR	VALUE
VALINT	(STAT)	INTEGR	VALUE

STDEV	INTEGR	OWN	1
VALSTR	(DEV)	STRING	VALUE

DEVST	STRING	OWN	1
VALINT	(DEV)	INTEGR	VALUE

CHAROUT	UNTYPE	OWN+BILTIN	2
VALINT	(CHAN)	INTEGR	VALUE
VALINT	(CHAR)	INTEGR	VALUE

GTFDB	UNTYPE	OWN	2
VALINT  (CHAN)	INTEGR	VALUE
ARRINT	(ARR)	INTEGR	REFRNC+SBSCRP

MTOPR	UNTYPE	OWN+BILTIN	3
VALINT	(CHAN)	INTEGR	VALUE
VALINT	(FUNCTION)	INTEGR	VALUE
VALINT	(VAL)	INTEGR	VALUE

SFPTR	UNTYPE	OWN+BILTIN	2
VALINT	(CHAN)	INTEGR	VALUE
VALINT	(POINTER)	INTEGR	VALUE

RFPTR	INTEGR	OWN+BILTIN	1
VALINT  (CHAN)	INTEGR	VALUE

BKJFN	UNTYPE	OWN+BILTIN	1
VALINT  (CHAN)	INTEGR	VALUE

RFBSZ	INTEGR	OWN+BILTIN	1
VALINT  (CHAN)	INTEGR	VALUE


DEVTYPE	INTEGR	OWN	1
VALINT  (CHAN)	INTEGR	VALUE

DVCHR	INTEGR	OWN	3
VALINT  (CHAN)	INTEGR	VALUE
REFINT  (AC1)	INTEGR	REFRNC
REFINT  (AC3)	INTEGR	REFRNC

ERSTR	INTEGR	OWN	2
VALINT  (ERRNO)	INTEGR	VALUE
VALINT  (FORK)	INTEGR	VALUE

RFMOD	INTEGR	OWN+BILTIN	1
VALINT  (CHAN)	INTEGR	VALUE

SFMOD	UNTYPE	OWN+BILTIN	2
VALINT  (CHAN)	INTEGR	VALUE
VALINT  (MODE)	INTEGR	VALUE

RFCOC	UNTYPE	OWN+BILTIN	3
VALINT  (CHAN)	INTEGR	VALUE
REFINT  (AC2)	INTEGR	REFRNC
REFINT  (AC3)	INTEGR	REFRNC

SFCOC	UNTYPE	OWN+BILTIN	3
VALINT  (CHAN)	INTEGR	VALUE
VALINT  (AC2)	INTEGR	VALUE
VALINT  (AC3)	INTEGR	VALUE

PMAP	UNTYPE	OWN+BILTIN	3
VALINT  (AC1)	INTEGR	VALUE
VALINT  (AC2)	INTEGR	VALUE
VALINT  (AC3)	INTEGR	VALUE

INTTY	STRING	OWN+BILTIN	0

PBIN	INTEGR	OWN+BILTIN	0

PBOUT	UNTYPE	OWN+BILTIN	1
VALINT  (CHAR)	INTEGR	VALUE

PSOUT	UNTYPE	OWN+BILTIN	1
VALSTR  (STR)	STRING	VALUE

CHARIN	INTEGR	OWN+BILTIN	1
VALINT  (CHAN)	INTEGR	VALUE

SINI	STRING	OWN+BILTIN	3
VALINT  (CHAN)	INTEGR	VALUE
VALINT  (MAXL)	INTEGR	VALUE
VALINT  (BRK)	INTEGR	VALUE

ATI	UNTYPE	OWN	2
VALINT	(CODE)	INTEGR	VALUE
VALINT	(CHNL)	INTEGR	VALUE

DTI	UNTYPE	OWN	1
VALINT	(CHNL)	INTEGR	VALUE


GRUMBLE ***** end of TENEX *****
;

MUMBLE ***** ROUTINES for IMSSS only *****
 < A semicolon here gets IMSSS >
DSKIN	UNTYPE	OWN+BILTIN	4
VALINT  (MODULE)	INTEGR	VALUE
VALINT  (RECNO)	INTEGR	VALUE
VALINT  (COUNT)	INTEGR	VALUE
REFANY  (LOC)   INTEGR+FLOTNG+ITMVAR	REFRNC

DSKOUT	UNTYPE	OWN+BILTIN	4
VALINT  (MODULE)	INTEGR	VALUE
VALINT  (RECNO)	INTEGR	VALUE
VALINT  (COUNT)	INTEGR	VALUE
REFANY  (LOC)  	INTEGR+FLOTNG+ITMVAR	REFRNC

PBTIN	INTEGR	OWN+BILTIN	1
VALINT  (SECONDS)	INTEGR	VALUE

GRUMBLE ***** END OF IMSSS ONLY *****
;

MUMBLE THESE FOLLOWING DO NOT GO IN THE EXPORT VERSION.
;

PTYGET		INTEGR		OWN+BILTIN	0

PTYREL		UNTYPE		OWN+BILTIN	1
VALINT	(LINE)	INTEGR	VALUE

PTYGTL		INTEGR		OWN+BILTIN	1
VALINT  (LINE)  INTEGR  VALUE

PTYSTL		UNTYPE		OWN+BILTIN	2
VALINT  (LINE)  INTEGR  VALUE
VALINT  (CHAR)  INTEGR  VALUE

PTIFRE		INTEGR		OWN+BILTIN	1
VALINT	(LINE)	INTEGR	VALUE

PTOCNT		INTEGR		OWN+BILTIN	1
VALINT	(LINE)	INTEGR	VALUE

PTCHRW		INTEGR		OWN+BILTIN	1
VALINT (LINE)	INTEGR	VALUE

PTCHRS		INTEGR		OWN+BILTIN	1
VALINT (LINE)	INTEGR	VALUE

PTOCHS 		UNTYPE		OWN+BILTIN	2
VALINT  (LINE)	INTEGR	VALUE
VALINT  (CHAR)	INTEGR  VALUE

PTOCHW		UNTYPE		OWN+BILTIN	2
VALINT  (LINE)	INTEGR	VALUE
VALINT  (CHAR)  INTEGR	VALUE

PTOSTR		UNTYPE		OWN+BILTIN	2
VALINT	(LINE)	INTEGR	VALUE
VALSTR	(INFO)	STRING	VALUE

BACKUP		UNTYPE		OWN+BILTIN	0

LODED		UNTYPE		OWN+BILTIN	1
VALSTR	(RELINE) STRING	VALUE

PTYALL		STRING		OWN+BILTIN	1
VALINT (LINE)	INTEGR	VALUE

PTYSTR		STRING		OWN+BILTIN	2
VALINT (LINE)	INTEGR	VALUE
VALINT (BRCHAR)	INTEGR	VALUE

PTYIN		STRING		OWN+BILTIN	3
VALINT (LINE)	INTEGR	VALUE
VALINT (BKTBL)	INTEGR	VALUE
REFINT (BRCHAR)	INTEGR	REFRNC


IFGLOBAL	INTEGR		OWN+BILTIN	1
VALITM (ITM)	ITMVAR		VALUE

ISSUE		INTEGR		OWN	4
VALINT	(DIRECT) INTEGR		VALUE
VALSTR	(SRC)	STRING		VALUE
VALSTR	(DES)	STRING		VALUE
VALSTR	(NAME)	STRING		VALUE

QUEUE		INTEGR		OWN	2
VALINT	(DIR)	INTEGR		VALUE
VALINT (UNQ)	INTEGR		VALUE

GET_DATA	STRING		OWN	2
VALINT	(DIR)	INTEGR		VALUE
VALINT	(UNQ)	INTEGR		VALUE

PUT_DATA	UNTYPE		OWN	3
VALINT	(DIR)	INTEGR		VALUE
VALINT	(UNQ)	INTEGR		VALUE
VALSTR	(STR)	STRING		VALUE

GET_BIT		INTEGR		OWN	1
VALINT	(UNQ)	INTEGR		VALUE

GET_ENTRY	INTEGR		OWN	4
VALINT	(DIR)	INTEGR		VALUE
VALSTR	(SRC)	STRING		VALUE
VALSTR	(DES)	STRING		VALUE
VALSTR	(NAM)	STRING		VALUE

GET_SET		SET		OWN	4
VALINT	(DIR)	INTEGR		VALUE
VALSTR	(SRC)	STRING		VALUE
VALSTR	(DES)	STRING		VALUE
VALSTR	(NAM)	STRING		VALUE

MUMBLE **** END OF THINGS NOT EXPORTED **** ;

<END>


β