perm filename FOO2[X,AIL]1 blob sn#058535 filedate 1973-08-18 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	
C00013 00003	TTYIN		STRING		OWN+BILTIN	2
C00023 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 ;

<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

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

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

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

USERERR		UNTYPE		OWN+BILTIN	3
VALINT  (VALUE)		INTEGR		VALUE
VALINT  (CODE)		INTEGR		VALUE
VALSTR  (MSG)		STRING		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

MUMBLE NWORLD RUNTIMES ;

MAINPR		UNTYPE		OWN+BILTIN	0

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

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

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

MKEVTT		UNTYPE		OWN+BILTIN	1
VALITM	(ETYP)		ITMVAR		VALUE

JOIN		UNTYPE		OWN+BILTIN	1
VALSET	(JSET)		SET		VALUE

SUSPEND		UNTYPE		OWN+BILTIN	1
VALITM	(PROCESS)	ITMVAR		VALUE

TERMINATE	UNTYPE		OWN+BILTIN	1
VALITM	(PROCESS)	ITMVAR		VALUE

MYPROC		ITMVAR		OWN+BILTIN	0

CALLER		ITMVAR		OWN+BILTIN	1
VALITM	(PROCESS)	ITMVAR		VALUE

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

INTTBL		UNTYPE		OWN+BILTIN	1
VALINT	(SIZE)		INTEGR		VALUE

INTMOD		UNTYPE		OWN+BILTIN	0

CLKMOD		UNTYPE		OWN+BILTIN	0

DFRINT		UNTYPE		OWN+BILTIN	0

DDFINT		UNTYPE		OWN+BILTIN	0

DFR1IN		UNTYPE		OWN+BILTIN	1
VALINT	(AOBJNP)	INTEGR		VALUE

ENABLE		UNTYPE		OWN+BILTIN	1
VALINT	(INDEX)		INTEGR		VALUE

DISABLE		UNTYPE		OWN+BILTIN	1
VALINT	(INDEX)		INTEGR		VALUE

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

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

URSCHD		INTEGR		OWN+BILTIN	0

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

PSTATUS		INTEGR		OWN+BILTIN	1
VALITM	(PROCESS)	ITMVAR		VALUE

INTPRO		UNTYPE		OWN+BILTIN	0

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

MUMBLE ***** THE NEXT BUNCH ARE GLOBAL MODEL THINGS
	REMOVE THESE TWO LINES, IF YOU  LIKE.



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


**** END OF GLOBAL STUFF **** ;

<END>


β