perm filename FOO2.PD8[10X,AIL] blob sn#191910 filedate 1975-12-13 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00016 00003	TTYIN		STRING		OWN+BILTIN	2 0
C00026 00004	INDEXFILE	INTEGR	OWN	1 0
C00039 ENDMK
C⊗;

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 ;

MUMBLE the second number in the parameters line  is the number of value
	string parameters. BAIL needs this. ;

<FUNCTIONS>

MUMBLE this is not a real entry, edit it out for BAIPDn
M	UNTYPE	OWN  0 0
;
OUT	UNTYPE	OWN+BILTIN  2 1
VALINT (CHANNEL)	INTEGR		VALUE
VALSTR  (STRING)	STRING		VALUE

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

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

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

MUMBLE this is probably not in the segment, so edit it out for BAIPDn
WR_INI		UNTYPE		OWN		4 2
VALSTR	(DEVICE)	STRING		VALUE
VALSTR	(FILENAME)	STRING		VALUE
VALINT	(CHANNEL)	INTEGR		VALUE
VALINT	(MAXLENGTH)	INTEGR		VALUE
;
OPEN		UNTYPE		OWN+BILTIN 8 1
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 0
VALINT	(CHANNEL)	INTEGR		VALUE
REFINT	(LINNUM)	INTEGR		REFRNC
REFINT	(PAGNUM)	INTEGR		REFRNC
REFINT	(SOSNUM)	INTEGR		REFRNC

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

MUMBLE edit for BAIPDn

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


.$PINT		UNTYPE		OWN 1 0
VALINT (ARG)		INTEGR		VALUE

.$PREL		UNTYPE		OWN 1 0
VALREL (ARG)		FLOTNG		VALUE

.$PITM		UNTYPE		OWN 1 0
VALITM (ARG)		ITMVAR		VALUE

.$PSET		UNTYPE		OWN 1 0
VALSET (ARG)		SET		VALUE

.$PLST		UNTYPE		OWN 1 0
VALLST (ARG)		LSTBIT+SET	VALUE

.$PSTR		UNTYPE		OWN 1 0
VALSTR (ARG)		STRING		VALUE

.$PREC		UNTYPE		OWN 1 0
VALPTR (ARG)		PNTVAR		VALUE
;
SETPRINT	UNTYPE		OWN 2 1
VALSTR	(FILE)		STRING		VALUE
VALINT  (MODE)		INTEGR		VALUE

GETPRINT	INTEGR		OWN 0 0

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

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

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

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

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



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

CLOSE		UNTYPE		OWN+BILTIN	2 0
VALINT  (CHANNEL)	INTEGR		VALUE
VALINT  (INHIBIT)    $	INTEGR		VALUE

CLOSO		UNTYPE		OWN+BILTIN	2 0
VALINT  (CHANNEL)	INTEGR		VALUE
VALINT  (INHIBIT)    $	INTEGR		VALUE

CLOSIN		UNTYPE		OWN+BILTIN	2 0
VALINT  (CHANNEL)	INTEGR		VALUE
VALINT  (INHIBIT)    $	INTEGR		VALUE

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

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

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

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

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

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



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

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

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

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

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

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

MUMBLE NOT FOR TENEX
ERENAME		UNTYPE		OWN+BILTIN	7 1
VALINT  (CHANNEL)	INTEGR		VALUE
VALSTR  (FILE-NAME)	STRING		VALUE
VALINT  (PROTECTION)	INTEGR		VALUE
VALINT	(DATE)		INTEGR		VALUE
VALINT	(TIME)		INTEGR		VALUE
VALINT	(MODE)		INTEGR		VALUE
REFINT  (FLAG)		INTEGR		REFRNC
;

EDFILE		UNTYPE		OWN		4 1
VALSTR	(FILNAM)	STRING		VALUE
VALINT	(ASCLIN)	INTEGR		VALUE
VALINT	(PAGE)		INTEGR		VALUE
VALINT	(BITS)	$	INTEGR		VALUE

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

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

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

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

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

MUMBLE edit (2) for BAIPDn

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

.SUBST		STRING		OWN+BILTIN+CONOK X3 1
VALSTR	(THESTRING)	STRING		VALUE
VALINT	(TO)		INTEGR		VALUE
VALINT	(START)		INTEGR		VALUE
;
SETBREAK	UNTYPE		OWN+BILTIN	4 3
VALINT  (TABLE)		INTEGR		VALUE
VALSTR  (BRCHARS)	STRING		VALUE
VALSTR  (OMITS)		STRING		VALUE
VALSTR  (MODES)		STRING		VALUE

GETBREAK	INTEGR		OWN+BILTIN	0 0

RELBREAK	UNTYPE		OWN+BILTIN	1 0
VALINT	(TABLE)		INTEGR		VALUE

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

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

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

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

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

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

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

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

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

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

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

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

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

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

ARRCLR		UNTYPE		OWN+BILTIN	2 0
ARRMST	(ARRAY)		INTEGR+FLOTNG+PNTVAR+SET+LSTBIT+ITMVAR+STRING	REFRNC+SBSCRP
VALARI	(VAL)  $	INTEGR+FLOTNG+PNTVAR	VALUE

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

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

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

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

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

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

DEL_PNAME	UNTYPE		OWN	1 0
VALTIM (ITEM)		ITMVAR		VALUE


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

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


INCHRW		INTEGR		OWN+BILTIN	0 0

INCHRS		INTEGR		OWN+BILTIN	0 0

INCHWL		STRING		OWN+BILTIN	0 0

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

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

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

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


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

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

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

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

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

$PRINT		STRING		OWN		2 1
VALSTR	(STR)	STRING	VALUE	
VALINT	(CTL)	$	INTEGR	VALUE

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

GETCHAN		INTEGR		OWN+BILTIN	0 0

MUMBLE FILEINFO NOT FOR TENEX
FILEINFO	UNTYPE		OWN+BILTIN	1 0
ARRINT  (ARRAY) INTEGR		REFRNC+SBSCRP
;

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

MUMBLE CHNCDB NOT FOR TENEX

CHNCDB		INTEGR		OWN+BILTIN	1 0
VALINT (CHAN)	INTEGR		VALUE
;
MUMBLE NWORLD RUNTIMES ;

MAINPR		UNTYPE		OWN		0 0

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

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

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

MKEVTT		UNTYPE		OWN		1 0
VALITM	(ETYP)		ITMVAR		VALUE

JOIN		UNTYPE		OWN		1 0
VALSET	(JSET)		SET		VALUE

SUSPEND		ITMVAR		OWN		1 0
VALITM	(PROCESS)	ITMVAR		VALUE

TERMINATE	UNTYPE		OWN		1 0
VALITM	(PROCESS)	ITMVAR		VALUE

MYPROC		ITMVAR		OWN+BILTIN	0 0

CALLER		ITMVAR		OWN		1 0
VALITM	(PROCESS)	ITMVAR		VALUE

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

INTTBL		UNTYPE		OWN		1 0
VALINT	(SIZE)		INTEGR		VALUE

MUMBLE 
INTMOD		UNTYPE		OWN		0 0
;

CLKMOD		UNTYPE		OWN		0 0

DFRINT		UNTYPE		OWN		0 0

DDFINT		UNTYPE		OWN		0 0

DFR1IN		UNTYPE		OWN		1 0
VALINT	(AOBJNP)	INTEGR		VALUE

ENABLE		UNTYPE		OWN		1 0
VALINT	(INDEX)		INTEGR		VALUE

DISABLE		UNTYPE		OWN		1 0
VALINT	(INDEX)		INTEGR		VALUE

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

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

URSCHD		INTEGR		OWN		0 0

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

PSTATUS		INTEGR		OWN		1 0
VALITM	(PROCESS)	ITMVAR		VALUE

INTPRO		UNTYPE		OWN		0 0

ANSWER		INTEGR		OWN		3 0
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 0
VALREL	(ARG)		FLOTNG		VALUE

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

MUMBLE	edit through TRIGINI for BAIPDn

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

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

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

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

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

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

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

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

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

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

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

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

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

TRIGINI		UNTYPE		OWN			1 0
VALLOC	(LOC)	INTEGR	VALUE
;

MUMBLE NOT FOR TENEX, THRU INOUT

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

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

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

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

CLRBUF		UNTYPE		OWN+BILTIN	0 0

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

INITSEA		INTEGR		OWN		1 0
VALINT	(SEAPAR)	INTEGR		VALUE

SEAINIT		INTEGR		OWN		1 0
VALINT	(SEAPAR)	INTEGR		VALUE

SEAREL		UNTYPE		OWN	0 0

ARDINIT		UNTYPE		OWN	0 0

CHARSZ		UNTYPE		OWN	1 0
VALINT	(SIZE)	INTEGR		VALUE

ARDSTR		UNTYPE		OWN	1 1
VALSTR	(STR)	STRING		VALUE

CHRMOD		UNTYPE		OWN	0 0

CLEAR		UNTYPE		OWN	0 0

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

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

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

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

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

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

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

CHRMOD		UNTYPE		OWN	0 0

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

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

IDTIM	INTEGR	OWN	1 0
VALSTR	(DT)	STRING	VALUE

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

GTAD	INTEGR	OWN+BILTIN	0 0

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

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

DIRST	STRING	OWN	1 0
VALINT  (DIRNO)	INTEGR	VALUE

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

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

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

INDEXFILE	INTEGR	OWN	1 0
VALINT  (CHAN)	INTEGR	VALUE

SETCHAN	INTEGR	OWN+BILTIN	3 0
VALINT	(CHAN)	INTEGR	VALUE
VALINT	(GTFLAGS)	INTEGR	VALUE
VALINT	(OPFLAGS)	INTEGR	VALUE

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

GTJFNL	INTEGR	OWN	10 7
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 0
VALINT  (CHAN)	INTEGR	VALUE

DELF	UNTYPE	OWN	1 0
VALINT  (CHAN)	INTEGR	VALUE

DELNF	INTEGR	OWN	2 0
VALINT	(CHAN)	INTEGR	VALUE
VALINT	(NUM)	INTEGR	VALUE

UNDELETE	UNTYPE	OWN	1 0
VALINT  (CHAN)	INTEGR	VALUE

SIZEF	INTEGR	OWN	1 0
VALINT  (CHAN)	INTEGR	VALUE

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

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

CFILE	INTEGR	OWN	1 0
VALINT  (CHAN)	INTEGR	VALUE

CLOSF	UNTYPE	OWN	1 0
VALINT  (CHAN)	INTEGR	VALUE

RLJFN	UNTYPE	OWN	1 0
VALINT  (CHAN)	INTEGR	VALUE

GTSTS	INTEGR	OWN	1 0
VALINT  (CHAN)	INTEGR	VALUE

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

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

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

ASND	INTEGR	OWN	1 0
VALINT	(DEV)	INTEGR	VALUE

RELD	INTEGR	OWN	1 0
VALINT	(DEV)	INTEGR	VALUE

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

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

STDEV	INTEGR	OWN	1 1
VALSTR	(DEV)	STRING	VALUE

DEVST	STRING	OWN	1 0
VALINT	(DEV)	INTEGR	VALUE

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

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

CHFDB	UNTYPE	OWN+BILTIN	4 0
VALINT	(CHAN)	INTEGR	VALUE
VALINT	(DISPL)	INTEGR	VALUE
VALINT	(MASK)	INTEGR	VALUE
VALINT	(CBITS)	INTEGR	VALUE

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

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

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

RCHPTR	INTEGR	OWN+BILTIN	1 0
VALINT	(CHAN)	INTEGR	VALUE

SCHPTR	UNTYPE	OWN+BILTIN	2 0
VALINT	(CHAN)	INTEGR	VALUE
VALINT	(PTR)	INTEGR	VALUE

RWDPTR	INTEGR	OWN+BILTIN	1 0
VALINT	(CHAN)	INTEGR	VALUE

SWDPTR	UNTYPE	OWN+BILTIN	2 0
VALINT	(CHAN)	INTEGR	VALUE
VALINT	(PTR)	INTEGR	VALUE

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

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


DEVTYPE	INTEGR	OWN	1 0
VALINT  (CHAN)	INTEGR	VALUE

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

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

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

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

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

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

STPAR	UNTYPE	OWN+BILTIN	2 0
VALINT	(CHAN)	INTEGR	VALUE
VALINT	(BITS)	INTEGR	VALUE

STI	UNTYPE	OWN+BILTIN	2 0
VALINT	(CHAN)	INTEGR	VALUE
VALINT	(BITS)	INTEGR	VALUE

GTTYP	INTEGR	OWN+BILTIN	2 0
VALINT	(CHAN)	INTEGR	VALUE
REFINT	(BUFS)	INTEGR	REFRNC

SETEDIT	INTEGR	OWN+BILTIN	2 0
VALINT	(CHAN)	INTEGR	VALUE
VALINT	(MODE)	INTEGR	VALUE

STTYP	UNTYPE	OWN+BILTIN	2 0
VALINT	(CHAN)	INTEGR	VALUE
VALINT	(BITS)	INTEGR	VALUE

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

INTTY	STRING	OWN+BILTIN	0 0

PBIN	INTEGR	OWN+BILTIN	0 0

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

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

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

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

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

DTI	UNTYPE	OWN	1 0
VALINT	(CODE)	INTEGR	VALUE

RTIW	INTEGR	OWN	3 0
VALINT	(CHNL)	INTEGR	VALUE
REFINT	(AC2)	INTEGR	REFRNC
REFINT	(AC3)	INTEGR	REFRNC

STIW	INTEGR	OWN	3 0
VALINT	(CHNL)	INTEGR	VALUE
VALINT	(AC2)	INTEGR	VALUE
VALINT	(AC3)	INTEGR	VALUE

GTRPW	INTEGR	OWN	2 0
VALINT	(FORK)	INTEGR	VALUE
REFINT	(AC2)	INTEGR	REFRNC

PSIMAP	UNTYPE	OWN	4 0
VALINT	(CHNL)	INTEGR	VALUE
REFPROC	(PROC)	PROCED	REFRNC
VALINT	(PARM)	INTEGR	VALUE
VALINT	(LEVL)	INTEGR	VALUE

PSIDISMS	UNTYPE	OWN	2 0
VALINT	(CHNL)	INTEGR	VALUE
VALINT	(TIME)	INTEGR	VALUE

PSIRUNTM	UNTYPE	OWN	2 0
VALINT	(CHNL)	INTEGR	VALUE
VALINT	(TIME)	INTEGR	VALUE

KPSITIME	UNTYPE	OWN	1 0
VALINT	(CHNL)	INTEGR	VALUE

MUMBLE ***** end of TENEX *****
;

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

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

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

MUMBLE ***** END OF IMSSS ONLY *****
;

MUMBLE THESE FOLLOWING DO NOT GO IN THE EXPORT VERSION.

PTYGET		INTEGR		OWN+BILTIN	0 0

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

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

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

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

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

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

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

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

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

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

BACKUP		UNTYPE		OWN+BILTIN	0 0

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

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

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

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


IFGLOBAL	INTEGR		OWN+BILTIN	1 0
VALITM (ITM)	ITMVAR		VALUE
;
MUMBLE	edit for BAIPDn

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

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

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

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

GET_BIT		INTEGR		OWN	1 0
VALINT	(UNQ)	INTEGR		VALUE

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

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

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


MUMBLE This is redefined during compile initialization;
MUMBLE <name><sp><# params><sp><body, where ¬i is param i and ¬0 is end>;

<MACROS>
COMPILER_BANNER 0 ¬0

<END>


β