perm filename FOO2[S,AIL]1 blob sn#000802 filedate 1972-09-05 generic text, type T, neo UTF8
COMMENT ⊗   VALID 00003 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	
 00013 00003	TTYIN		STRING		OWN+BILTIN	2
 00018 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;

<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	1
VALINT  (CHANNEL)	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 THESE FOLLOWING DO NOT GO IN THE EXPORT VERSION.
;

CLRBUF		UNTYPE		OWN+BILTIN	0

PTYGET		INTEGR		OWN+BILTIN	0

PTYREL		UNTYPE		OWN+BILTIN	1
VALINT	(LINE)	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>


β