Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0002/foo2.tnx
There is 1 other file named foo2.tnx in the archive. Click here to see a list.
00100	COMMENT    VALID 00004 PAGES
00200	C REC  PAGE   DESCRIPTION
00300	C00001 00001
00400	C00002 00002
00500	C00020 00003	TTYIN		STRING		OWN+BILTIN	2 0 4
00600	C00031 00004	INDEXFILE	INTEGR	OWN	1 0 3
00700	C00044 ENDMK
00800	C;
     
00100	
00200	COMMENT 
00300	
00400	MUMBLE THIS IS THE FILE OF FUNCTION NAMES
00500		FOR THE INITIAL SYMBOL TABLE MAKER ;
00600	
00700	<TRUECONDITIONALS>
00800	NOSTANFORD NOCMU TENX NOIMSSS CRYPT
00900	
01000	FALSECONDITIONALS[ STANFORD CMU NOTENX IMSSS]
01100	
01200	<ASSIGN>
01300	
01400	
01500	
01600	
01700	UNTYPE__0
01800	
01900	
02000	<DEFINITIONS>
02100	INF
02200	XOR
02300	AND
02400	NOT
02500	IN
02600	OR
02700	COMMENT
02800	EQV
02900	UNION
03000	INTER
03100	SETO
03200	SETC
03300	SWAP
03400	LEQ
03500	NEQ
03600	GEQ
03700	ASSOC
03800	
03900	MUMBLE Here must be described in some detail the precise meaning
04000		of all this malarky ;
04100	
04200	MUMBLE $ MEANS MAY BE DEFAULTED ;
04300	
04400	MUMBLE the second number in the parameters line  is the number of value
04500		string parameters. BAIL needs this.  The third number in the
04600		line designates to which file of procedure descriptors the
04700		function belongs.  A zero means ignore this function for BAIL.
04800		There are currently 5 files,
04900		1= "desk calculator" functions, 2= major I/O and string fns,
05000		3= minor I/O and string fns, 4= miscellaneous, 5= processes+interrupts;
05100	
05200	<FUNCTIONS>
05300	
05400	M	UNTYPE	OWN  0 0 0
05500	
05600	OUT	UNTYPE	OWN+BILTIN  2 1 2
05700	VALINT (CHANNEL)	INTEGR		VALUE
05800	VALSTR  (STRING)	STRING		VALUE
05900	
06000	BREAKSET	UNTYPE		OWN+BILTIN 3 1 3
06100	VALINT (TABLE)		INTEGR		VALUE
06200	VALSTR  (STRING)	STRING		VALUE
06300	VALINT (CONDITIONS)	INTEGR		VALUE
06400	
06500	INPUT		STRING		OWN	2 0 2
06600	VALINT (CHANNEL)	INTEGR		VALUE
06700	VALINT (TABLE)		INTEGR		VALUE
06800	
06900	LOOKUP		UNTYPE		OWN+BILTIN	3 1 2
07000	VALINT (CHANNEL)	INTEGR		VALUE
07100	VALSTR  (FILENAME)	STRING		VALUE
07200	REFINT  (FLAG)		INTEGR		REFRNC
07300	
07400	WRINI		UNTYPE		OWN		4 2 0
07500	VALSTR	(DEVICE)	STRING		VALUE
07600	VALSTR	(FILENAME)	STRING		VALUE
07700	VALINT	(CHANNEL)	INTEGR		VALUE
07800	VALINT	(MAXLENGTH)	INTEGR		VALUE
07900	
08000	OPEN		UNTYPE		OWN+BILTIN 8 1 2
08100	VALINT (CHANNEL)	INTEGR		VALUE
08200	VALSTR  (DEVICE)	STRING		VALUE
08300	VALINT (MODE)		INTEGR		VALUE
08400	VALINT (INBUFS)	INTEGR		VALUE
08500	VALINT (OUTBUFS)	INTEGR		VALUE
08600	REFINT  (COUNT)		INTEGR		REFRNC
08700	REFINT  (BRCHAR)	INTEGR		REFRNC
08800	REFINT  (EOF)		INTEGR		REFRNC
08900	
09000	SETPL		UNTYPE		OWN+BILTIN	4 0 3
09100	VALINT	(CHANNEL)	INTEGR		VALUE
09200	REFINT	(LINNUM)	INTEGR		REFRNC
09300	REFINT	(PAGNUM)	INTEGR		REFRNC
09400	REFINT	(SOSNUM)	INTEGR		REFRNC
09500	
09600	CRYPT[
09700	SETCRYPT	UNTYPE		OWN		3 0 3
09800	VALINT	(CHAN)		INTEGR		VALUE
09900	REFPRC	(ENCRYPT)	PROCED		REFRNC
10000	REFPRC	(DECRYPT)	PROCED		REFRNC
10100	]
10200	
10300	POINT		INTEGR		OWN+BILTIN+CONOK X3 0 4
10400	VALINT (BYTESIZE)	INTEGR		VALUE
10500	REFINT (ADDRESS)	INTEGR		REFRNC
10600	VALINT (BYTEPOS)	INTEGR		VALUE
10700	
10800	
10900	.BBPP.		INTEGR		OWN+BILTIN	3 0 0
11000	VALINT (BYTESIZE)	INTEGR		VALUE
11100	REFINT (ADDRESS)	INTEGR		REFRNC
11200	VALINT (BYTEPOS)	INTEGR		VALUE
11300	
11400	.$PINT		UNTYPE		OWN 1 0 0
11500	VALINT (ARG)		INTEGR		VALUE
11600	
11700	.$PREL		UNTYPE		OWN 1 0 0
11800	VALREL (ARG)		FLOTNG		VALUE
11900	
12000	.$PITM		UNTYPE		OWN 1 0 0
12100	VALITM (ARG)		ITMVAR		VALUE
12200	
12300	.$PSET		UNTYPE		OWN 1 0 0
12400	VALSET (ARG)		SET		VALUE
12500	
12600	.$PLST		UNTYPE		OWN 1 0 0
12700	VALLST (ARG)		LSTBIT+SET	VALUE
12800	
12900	.$PSTR		UNTYPE		OWN 1 1 0
13000	VALSTR (ARG)		STRING		VALUE
13100	
13200	.$PREC		UNTYPE		OWN 1 0 0
13300	VALPTR (ARG)		PNTVAR		VALUE
13400	
13500	.$PLRL		UNTYPE		OWN 1 0 0
13600	VALLRL (ARG)		DBLPRC+FLOTNG	VALUE
13700	
13800	SETPRINT	UNTYPE		OWN 2 1 2
13900	VALSTR	(FILE)		STRING		VALUE
14000	VALINT  (MODE)		INTEGR		VALUE
14100	
14200	GETPRINT	INTEGR		OWN 0 0 3
14300	
14400	EQU		INTEGR		OWN+BILTIN+CONOK X2 2 2
14500	VALSTR  (ARG1)		STRING		VALUE
14600	VALSTR  (ARG2)		STRING		VALUE
14700	
14800	CVS		STRING		OWN+BILTIN+CONOK X1 0 1
14900	VALINT (NUMBER)	INTEGR		VALUE
15000	
15100	CVD		INTEGR		OWN+BILTIN+CONOK X1 1 3
15200	VALSTR  (STRING)	STRING		VALUE
15300	
15400	SCAN		STRING		OWN+CONOK X3 0 2
15500	REFSTR   (STRING)	STRING		REFRNC
15600	VALINT  (TABLE)		INTEGR		VALUE
15700	REFINT  (BRCHAR)	INTEGR		REFRNC
15800	
15900	SCANC		STRING		OWN+CONOK X4 4 2
16000	VALSTR	(ARGIN)		STRING		VALUE
16100	VALSTR	(BRK)		STRING		VALUE
16200	VALSTR	(OMIT)		STRING		VALUE
16300	VALSTR	(MODE)		STRING		VALUE
16400	
16500	RELEASE		UNTYPE		OWN+BILTIN	2 0 2
16600	VALINT  (CHANNEL)	INTEGR		VALUE
16700	VALINT	(INHIBITS)   $	INTEGR		VALUE
16800	
16900	
17000	
17100	LINOUT		UNTYPE		OWN+BILTIN	2 0 3
17200	VALINT  (CHANNEL)	INTEGR		VALUE
17300	VALINT  (LINENO)	INTEGR		VALUE
17400	
17500	CLOSE		UNTYPE		OWN+BILTIN	2 0 2
17600	VALINT  (CHANNEL)	INTEGR		VALUE
17700	VALINT  (INHIBIT)    $	INTEGR		VALUE
17800	
17900	CLOSO		UNTYPE		OWN+BILTIN	2 0 3
18000	VALINT  (CHANNEL)	INTEGR		VALUE
18100	VALINT  (INHIBIT)    $	INTEGR		VALUE
18200	
18300	CLOSIN		UNTYPE		OWN+BILTIN	2 0 3
18400	VALINT  (CHANNEL)	INTEGR		VALUE
18500	VALINT  (INHIBIT)    $	INTEGR		VALUE
18600	
18700	CVOS		STRING		OWN+BILTIN+CONOK X1 0 1
18800	VALARI  (NUMBER)	INTEGR+FLOTNG		VALUE
18900	
19000	ENTER		UNTYPE		OWN+BILTIN	3 1 2
19100	VALINT  (CHANNEL)	INTEGR		VALUE
19200	VALSTR  (NAME)		STRING		VALUE
19300	REFINT  (FAIL-FLG)	INTEGR		REFRNC
19400	
19500	MTAPE		UNTYPE		OWN+BILTIN	2 0 3
19600	VALINT  (CHANNEL)	INTEGR		VALUE
19700	VALINT  (OPER)		INTEGR		VALUE
19800	
19900	WORDIN		INTEGR		OWN+BILTIN	1 0 2
20000	VALINT  (CHANNEL)	INTEGR		VALUE
20100	
20200	WORDOUT		UNTYPE		OWN+BILTIN	2 0 2
20300	VALINT  (CHANNEL)	INTEGR		VALUE
20400	VALARI  (ARG)		INTEGR+FLOTNG	VALUE
20500	
20600	CVO		INTEGR		OWN+BILTIN+CONOK X1 1 3
20700	VALSTR  (STRING)	STRING		VALUE
20800	
20900	
21000	
21100	USETI		UNTYPE		OWN+BILTIN	2 0 3
21200	VALINT  (CHANN)	INTEGR	VALUE
21300	VALINT  (BLOCK)		INTEGR		VALUE
21400	
21500	USETO		UNTYPE		OWN+BILTIN	2 0 3
21600	VALINT  (CHANNEL)	INTEGR		VALUE
21700	VALINT  (BLOCK)		INTEGR		VALUE
21800	
21900	CVSIX		INTEGR		OWN+BILTIN+CONOK X1 1 3
22000	VALSTR  (STRING)	STRING		VALUE
22100	
22200	CVFIL		INTEGR		OWN+BILTIN+CONOK X3 1 3
22300	VALSTR  (INPUT)	STRING		VALUE
22400	REFINT  (EXTEN)		INTEGR		REFRNC
22500	REFINT  (PPN)		INTEGR		REFRNC
22600	
22700	CALL		INTEGR		OWN+BILTIN	2 1 4
22800	VALINT  (INPUT-VAL)	INTEGR		VALUE
22900	VALSTR  (STRING-DESCR)	STRING		VALUE
23000	
23100	TYMSHARE[
23200	AUXCLV		INTEGR		OWN		3 0 4
23300	VALINT (PORT)		INTEGR		VALUE
23400	VALINT (ARGUMENT)	INTEGR		VALUE
23500	VALINT (FUNCTION)	INTEGR		VALUE
23600	
23700	AUXCLR		INTEGR		OWN		3 0 4
23800	VALINT (PORT)		INTEGR		VALUE
23900	REFINT (ARGUMENT)	INTEGR		REFRNC
24000	VALINT (FUNCTION)	INTEGR		VALUE
24100	
24200	IONEOU		UNTYPE		OWN		1 0 4
24300	VALINT (CHARACTER)	INTEGR		VALUE
24400	
24500	CHNIOV		INTEGR		OWN		3 0 3
24600	VALINT (CHANNEL)	INTEGR		VALUE
24700	VALINT (ARGUMENT)	INTEGR		VALUE
24800	VALINT (FUNCTION)	INTEGR		VALUE
24900	
25000	CHNIOR		INTEGR		OWN		3 0 3
25100	VALINT (CHANNEL)	INTEGR		VALUE
25200	REFINT (ARGUMENT)	INTEGR		REFRNC
25300	VALINT (FUNCTION)	INTEGR		VALUE
25400	
25500	CALLI		INTEGR		OWN		2 0 4
25600	VALINT	(INPUT-VAL)	INTEGR		VALUE
25700	VALINT	(INPUT-CALLINUM) INTEGR	VALUE
25800	]
25900	
26000	RENAME		UNTYPE		OWN+BILTIN	4 1 3
26100	VALINT  (CHANNEL)	INTEGR		VALUE
26200	VALSTR  (FILE-NAME)	STRING		VALUE
26300	VALINT  (PROTECTION)	INTEGR		VALUE
26400	REFINT  (FLAG)		INTEGR		REFRNC
26500	
26600	NOTENX[
26700	ERENAME		UNTYPE		OWN+BILTIN	7 1 3
26800	VALINT  (CHANNEL)	INTEGR		VALUE
26900	VALSTR  (FILE-NAME)	STRING		VALUE
27000	VALINT  (PROTECTION)	INTEGR		VALUE
27100	VALINT	(DATE)		INTEGR		VALUE
27200	VALINT	(TIME)		INTEGR		VALUE
27300	VALINT	(MODE)		INTEGR		VALUE
27400	REFINT  (FLAG)		INTEGR		REFRNC
27500	]
27600	
27700	EDFILE		UNTYPE		OWN		4 1 4
27800	VALSTR	(FILNAM)	STRING		VALUE
27900	VALINT	(ASCLIN)	INTEGR		VALUE
28000	VALINT	(PAGE)		INTEGR		VALUE
28100	VALINT	(BITS)	$	INTEGR		VALUE
28200	
28300	CVASC		INTEGR		OWN+BILTIN+CONOK X1 1 3
28400	VALSTR  (STRING-IN)	STRING		VALUE
28500	
28600	CVSTR		STRING		OWN+BILTIN+CONOK X1 0 1
28700	VALINT  (INTEGR-IN)	INTEGR		VALUE
28800	
28900	CVASTR		STRING		OWN+BILTIN+CONOK X1 0 3
29000	VALINT  (INTEGR-IN)	INTEGR		VALUE
29100	
29200	CVXSTR		STRING		OWN+BILTIN+CONOK X1 0 2
29300	VALINT  (INTEGR-IN)	INTEGR		VALUE
29400	
29500	CV6STR		STRING		OWN+BILTIN+CONOK X1 0 3
29600	VALINT  (INTEGR-IN)	INTEGR		VALUE
29700	
29800	
29900	.SUBSR		STRING		OWN+BILTIN+CONOK X3 1 0
30000	VALSTR	(THESTRING)	STRING		VALUE
30100	VALINT	(FOR)		INTEGR		VALUE
30200	VALINT	(START)		INTEGR		VALUE
30300	
30400	.SUBST		STRING		OWN+BILTIN+CONOK X3 1 0
30500	VALSTR	(THESTRING)	STRING		VALUE
30600	VALINT	(TO)		INTEGR		VALUE
30700	VALINT	(START)		INTEGR		VALUE
30800	
30900	SETBREAK	UNTYPE		OWN+BILTIN	4 3 2
31000	VALINT  (TABLE)		INTEGR		VALUE
31100	VALSTR  (BRCHARS)	STRING		VALUE
31200	VALSTR  (OMITS)		STRING		VALUE
31300	VALSTR  (MODES)		STRING		VALUE
31400	
31500	GETBREAK	INTEGR		OWN+BILTIN	0 0 2
31600	
31700	RELBREAK	UNTYPE		OWN+BILTIN	1 0 2
31800	VALINT	(TABLE)		INTEGR		VALUE
31900	
32000	STDBRK		UNTYPE		OWN+BILTIN   1 0 3
32100	VALINT  (CHANNEL)	INTEGR		VALUE
32200	
32300	ARRYIN		UNTYPE		OWN+BILTIN   3 0 2
32400	VALINT (CHANNEL)	INTEGR		VALUE
32500	REFANY  (WHERE)		INTEGR+FLOTNG+ITMVAR+DBLPRC		REFRNC
32600	VALINT  (COUNT)		INTEGR		VALUE
32700	
32800	ARRYOUT		UNTYPE		OWN+BILTIN  3 0 2
32900	VALINT  (CHANNEL)	INTEGR		VALUE
33000	REFANY  (WHERE)		INTEGR+FLOTNG+ITMVAR+DBLPRC		REFRNC
33100	VALINT  (COUNT)		INTEGR		VALUE
33200	
33300	SETFORMAT	UNTYPE		OWN+BILTIN	2 0 3
33400	VALINT  (WIDTH)		INTEGR		VALUE
33500	VALINT  (DIGS)		INTEGR		VALUE
33600	
33700	CVG		STRING		OWN+BILTIN+CONOK X1 0 2
33800	VALREL  (NUMBER)	FLOTNG		VALUE
33900	
34000	CVF		STRING	OWN+BILTIN+CONOK X1 0 3
34100	VALREL  (NUMBER)	FLOTNG		VALUE
34200	
34300	CVE		STRING		OWN+BILTIN+CONOK X1 0 3
34400	VALREL  (NUMBER)	FLOTNG		VALUE
34500	
34600	CVEL		STRING		OWN+CONOK X1 0 3
34700	VALLRL	(NUMBER)	DBLPRC+FLOTNG	VALUE
34800	
34900	REALIN		FLOTNG		OWN+BILTIN	1 0 3
35000	VALINT  (CHANNEL)	INTEGR		VALUE
35100	
35200	INTIN		INTEGR		OWN+BILTIN	1 0 3
35300	VALINT  (CHANNEL)	INTEGR		VALUE
35400	
35500	LREALIN		FLOTNG+DBLPRC		OWN	1 0 3
35600	VALINT  (CHANNEL)	INTEGR		VALUE
35700	
35800	REALSCAN	FLOTNG		OWN+BILTIN+CONOK X2 0 3
35900	REFSTR (ST-NUM)	STRING		REFRNC
36000	REFINT (FLAG-BREAK) INTEGR	REFRNC
36100	
36200	INTSCAN		INTEGR		OWN+BILTIN+CONOK X2 0 3
36300	REFSTR (ST-NUM)	STRING		REFRNC
36400	REFINT (FLAG-BREAK) INTEGR	REFRNC
36500	
36600	LREALSCAN	FLOTNG+DBLPRC		OWN+CONOK X2 0 3
36700	REFSTR (ST-NUM)	STRING		REFRNC
36800	REFINT (FLAG-BREAK) INTEGR	REFRNC
36900	
37000	ARRINFO		INTEGR		OWN+BILTIN	2 0 4
37100	ARRALL  (ARRAY)	INTEGR+FLOTNG+SET+LSTBIT+ITMVAR+STRING+PNTVAR+DBLPRC	REFRNC+SBSCRP
37200	VALINT  (CODE)		INTEGR		VALUE
37300	
37400	ARRBLT		UNTYPE		OWN+BILTIN	3 0 2
37500	REFALL  (DEST)		INTEGR+FLOTNG+ITMVAR+SET+PNTVAR+DBLPRC		REFRNC
37600	REFALL  (SOURCE)	INTEGR+FLOTNG+ITMVAR+SET+PNTVAR+DBLPRC		REFRNC
37700	VALINT  (HOWMANY)	INTEGR		VALUE
37800	
37900	ARRTRAN		UNTYPE		OWN+BILTIN	2 0 2
38000	ARRMST  (ARRDST)	INTEGR+FLOTNG+ITMVAR+SET+LSTBIT+STRING+PNTVAR+DBLPRC	REFRNC+SBSCRP
38100	ARRMST  (ARRSRC)	INTEGR+FLOTNG+ITMVAR+SET+LSTBIT+STRING+PNTVAR+DBLPRC	REFRNC+SBSCRP
38200	
38300	ARRCLR		UNTYPE		OWN+BILTIN	2 0 2
38400	ARRMST	(ARRAY)		INTEGR+FLOTNG+PNTVAR+SET+LSTBIT+ITMVAR+STRING+DBLPRC	REFRNC+SBSCRP
38500	VALARI	(VAL)  $	INTEGR+FLOTNG+PNTVAR	VALUE
38600	
38700	CODE		INTEGR		OWN+BILTIN	2 0 4
38800	VALINT  (INST)		INTEGR		VALUE
38900	REFINT  (ADDR)		INTEGR		REFRNC
39000	
39100	USERERR		UNTYPE		OWN+BILTIN	4 2 4
39200	VALINT  (VALUE)		INTEGR		VALUE
39300	VALINT  (CODE)		INTEGR		VALUE
39400	VALSTR  (MSG)		STRING		VALUE
39500	VALSTR	(RESPONSE) $	STRING		VALUE
39600	
39700	ERMSBF		UNTYPE		OWN+BILTIN	1 0 4
39800	VALINT  (CHARS)		INTEGR		VALUE
39900	
40000	CVSI		ITMVAR		OWN	2 1 4
40100	VALSTR  (PNAME)		STRING		VALUE
40200	REFINT	(FLAG)		INTEGR		REFRNC
40300	
40400	CVIS		STRING		OWN	2 0 4
40500	VALITM  (ITEMNO)	ITMVAR		VALUE
40600	REFINT	(FLAG)		INTEGR		REFRNC
40700	
40800	NEWPNAME	UNTYPE		OWN	2 1 4
40900	VALITM (ITEM)		ITMVAR		VALUE
41000	VALSTR (STRING)		STRING		VALUE
41100	
41200	DELPNAME	UNTYPE		OWN	1 0 4
41300	VALTIM (ITEM)		ITMVAR		VALUE
41400	
41500	
41600	TYPEIT		INTEGR		OWN+BILTIN	1 0 4
41700	VALITM (ITEM)		ITMVAR		VALUE
41800	
41900	LISTX		INTEGR		OWN		3 0 4
42000	VALLST	(LIST)		LSTBIT+SET	VALUE
42100	VALITM	(ITEM)		ITMVAR		VALUE
42200	VALINT	(OCCURENCE)	INTEGR		VALUE
42300	
42400	
42500	INCHRW		INTEGR		OWN+BILTIN	0 0 4
42600	
42700	INCHRS		INTEGR		OWN+BILTIN	0 0 4
42800	
42900	INCHWL		STRING		OWN+BILTIN	0 0 4
43000	
43100	INCHSL		STRING		OWN+BILTIN	1 0 4
43200	REFINT	(FLAG)	INTEGR	REFRNC
43300	
43400	INSTR		STRING		OWN+BILTIN	1 0 4
43500	VALINT	(BRCHAR)	INTEGR	VALUE
43600	
43700	INSTRL		STRING		OWN+BILTIN	1 0 4
43800	VALINT	(BRCHAR)	INTEGR	VALUE
43900	
44000	INSTRS		STRING		OWN+BILTIN	2 0 4
44100	REFINT	(FLAG)		INTEGR	REFRNC
44200	VALINT	(BRCHAR)	INTEGR	VALUE
44300	
44400	
44500	
     
00100	TTYIN		STRING		OWN+BILTIN	2 0 4
00200	VALINT	(TABLE)		INTEGR	VALUE
00300	REFINT	(BRCHAR)	INTEGR	REFRNC
00400	
00500	TTYINL		STRING		OWN+BILTIN	2 0 4
00600	VALINT	(TABLE)		INTEGR	VALUE
00700	REFINT	(BRCHAR)	INTEGR	REFRNC
00800	
00900	TTYINS		STRING		OWN+BILTIN	2 0 4
01000	VALINT	(TABLE)		INTEGR	VALUE
01100	REFINT	(BRCHAR)	INTEGR	REFRNC
01200	
01300	OUTCHR		UNTYPE		OWN+BILTIN	1 0 4
01400	VALINT	(CHAR)	INTEGR	VALUE
01500	
01600	OUTSTR		UNTYPE		OWN+BILTIN	1 1 4
01700	VALSTR	(STR)	STRING	VALUE
01800	
01900	$PRINT		STRING		OWN		2 1 3
02000	VALSTR	(STR)	STRING	VALUE	
02100	VALINT	(CTL)	$	INTEGR	VALUE
02200	
02300	GETFORMAT	UNTYPE		OWN+BILTIN	2 0 3
02400	REFINT (WDTH)	INTEGR	REFRNC
02500	REFINT (DIGS)	INTEGR	REFRNC
02600	
02700	GETCHAN		INTEGR		OWN+BILTIN	0 0 2
02800	
02900	NOTENX[
03000	BACKUP		UNTYPE		OWN+BILTIN	0 0 4
03100	
03200	FILEINFO	UNTYPE		OWN+BILTIN	1 0 3
03300	ARRINT  (ARRAY) INTEGR		REFRNC+SBSCRP
03400	
03500	TMPIN		STRING		OWN		2 1 3
03600	VALSTR (FID)	STRING	VALUE
03700	REFINT (FLAG)	INTEGR	REFRNC
03800	
03900	TMPOUT		UNTYPE		OWN		3 2 3
04000	VALSTR (FID)	STRING	VALUE
04100	VALSTR (STR)	STRING	VALUE
04200	REFINT (FLAG)	INTEGR	REFRNC
04300	]
04400	
04500	USERCON		UNTYPE		OWN+BILTIN	3 0 4
04600	REFINT (INDEX)	INTEGR	REFRNC
04700	REFINT (VALUE)	INTEGR	REFRNC
04800	VALINT	(FLAG)	INTEGR	VALUE
04900	
05000	NOTENX[
05100	CHNCDB		INTEGR		OWN+BILTIN	1 0 3
05200	VALINT (CHAN)	INTEGR		VALUE
05300	]
05400	
05500	MUMBLE NWORLD RUNTIMES ;
05600	
05700	MAINPR		UNTYPE		OWN		0 0 5
05800	
05900	RESUME		ITMVAR		OWN		3 0 5
06000	VALITM	(PROCESS)	ITMVAR		VALUE
06100	VALITM	(RETVAL)    $	ITMVAR		VALUE
06200	VALINT	(OPTS)	    $	INTEGR		VALUE
06300	
06400	ASKNTC		ITMVAR		OWN		2 0 5
06500	VALITM	(ETYP)		ITMVAR		VALUE
06600	VALINT	(OPTS)	    $	INTEGR		VALUE
06700	
06800	CAUSE1		ITMVAR		OWN		3 0 5
06900	VALITM	(ETYP)		ITMVAR		VALUE
07000	VALITM	(ENOT)      $	ITMVAR		VALUE
07100	VALINT	(OPTS)	    $	INTEGR		VALUE
07200	
07300	MKEVTT		UNTYPE		OWN		1 0 5
07400	VALITM	(ETYP)		ITMVAR		VALUE
07500	
07600	JOIN		UNTYPE		OWN		1 0 5
07700	VALSET	(JSET)		SET		VALUE
07800	
07900	SUSPEND		ITMVAR		OWN		1 0 5
08000	VALITM	(PROCESS)	ITMVAR		VALUE
08100	
08200	TERMINATE	UNTYPE		OWN		1 0 5
08300	VALITM	(PROCESS)	ITMVAR		VALUE
08400	
08500	MYPROC		ITMVAR		OWN+BILTIN	0 0 5
08600	
08700	CALLER		ITMVAR		OWN		1 0 5
08800	VALITM	(PROCESS)	ITMVAR		VALUE
08900	
09000	INTSET		UNTYPE		OWN		2 0 5
09100	VALITM	(IPROCSS)	ITMVAR		VALUE
09200	VALINT	(OPTS)		INTEGR		VALUE
09300	
09400	INTTBL		UNTYPE		OWN		1 0 5
09500	VALINT	(SIZE)		INTEGR		VALUE
09600	
09700	NOTENX[
09800	NOTYMSHARE[
09900	INTMOD		UNTYPE		OWN		0 0 5
10000	]
10100	]
10200	
10300	CLKMOD		UNTYPE		OWN		0 0 5
10400	
10500	DFRINT		UNTYPE		OWN		0 0 5
10600	
10700	DDFINT		UNTYPE		OWN		0 0 5
10800	
10900	DFR1IN		UNTYPE		OWN		1 0 5
11000	VALINT	(AOBJNP)	INTEGR		VALUE
11100	
11200	ENABLE		UNTYPE		OWN		1 0 5
11300	VALINT	(INDEX)		INTEGR		VALUE
11400	
11500	DISABLE		UNTYPE		OWN		1 0 5
11600	VALINT	(INDEX)		INTEGR		VALUE
11700	
11800	INTMAP		UNTYPE		OWN		3 0 5
11900	VALINT	(INDEX)		INTEGR		VALUE
12000	REFPRC	(PROC)		PROCED		REFRNC
12100	VALINT	(PARAM)		INTEGR		VALUE
12200	
12300	DFCPKT		INTEGR		OWN		4 0 5
12400	VALINT	(ADDR)		INTEGR		VALUE
12500	VALITM	(TYP)		ITMVAR		VALUE
12600	VALITM	(NOTC)		ITMVAR		VALUE
12700	VALINT	(OPTS)		INTEGR		VALUE
12800	
12900	URSCHD		INTEGR		OWN		0 0 5
13000	
13100	PRISET		UNTYPE		OWN		2 0 5
13200	VALITM	(PROCESS)	ITMVAR		VALUE
13300	VALINT	(PRIORITY)	INTEGR		VALUE
13400	
13500	PSTATUS		INTEGR		OWN		1 0 5
13600	VALITM	(PROCESS)	ITMVAR		VALUE
13700	
13800	INTPRO		UNTYPE		OWN		0 0 5
13900	
14000	ANSWER		INTEGR		OWN		3 0 5
14100	VALITM	(ETYP)		ITMVAR		VALUE
14200	VALITM	(ENOT)		ITMVAR		VALUE
14300	VALITM	(PROCESS)	ITMVAR		VALUE
14400	
14500	MUMBLE THE TRIGONOMETRIC ROUTINES, AND MISC. NUMERICAL;
14600	
14700	
14800	
14900	LOG		FLOTNG		OWN+BILTIN+FNYNAM	1 0 1
15000	VALREL	(ARG)		FLOTNG		VALUE
15100	
15200	EXP		FLOTNG		OWN+BILTIN+FNYNAM	1 0 1
15300	VALREL	(ARG)		FLOTNG		VALUE
15400	
15500	SIN		FLOTNG		OWN+BILTIN+FNYNAM	1 0 1
15600	VALREL	(ARG)		FLOTNG		VALUE
15700	
15800	SIND		FLOTNG		OWN+BILTIN+FNYNAM	1 0 4
15900	VALREL	(ARG)		FLOTNG		VALUE
16000	
16100	COS		FLOTNG		OWN+BILTIN+FNYNAM	1 0 1
16200	VALREL	(ARG)		FLOTNG		VALUE
16300	
16400	COSD		FLOTNG		OWN+BILTIN+FNYNAM	1 0 4
16500	VALREL	(ARG)		FLOTNG		VALUE
16600	
16700	SQRT		FLOTNG		OWN+BILTIN+FNYNAM	1 0 1
16800	VALREL	(ARG)		FLOTNG		VALUE
16900	
17000	ATAN2		FLOTNG		OWN+BILTIN+FNYNAM	2 0 4
17100	VALREL	(ARG)		FLOTNG		VALUE
17200	VALREL	(ARG)		FLOTNG		VALUE
17300	
17400	ATAN		FLOTNG		OWN+BILTIN+FNYNAM	1 0 4
17500	VALREL	(ARG)		FLOTNG		VALUE
17600	
17700	ACOS		FLOTNG		OWN+BILTIN+FNYNAM	1 0 4
17800	VALREL	(ARG)		FLOTNG		VALUE
17900	
18000	ASIN		FLOTNG		OWN+BILTIN+FNYNAM	1 0 4
18100	VALREL	(ARG)		FLOTNG		VALUE
18200	
18300	TANH		FLOTNG		OWN+BILTIN+FNYNAM	1 0 4
18400	VALREL	(ARG)		FLOTNG		VALUE
18500	
18600	COSH		FLOTNG		OWN+BILTIN+FNYNAM	1 0 4
18700	VALREL	(ARG)		FLOTNG		VALUE
18800	
18900	SINH		FLOTNG		OWN+BILTIN+FNYNAM	1 0 4
19000	VALREL	(ARG)		FLOTNG		VALUE
19100	
19200	RAN		FLOTNG		OWN+BILTIN+FNYNAM	1 0 1
19300	VALINT	(ARG)		INTEGR		VALUE
19400	
19500	TRIGINI		UNTYPE		OWN			1 0 4
19600	VALLOC	(LOC)	INTEGR	VALUE
19700	
19800	NOTENX[
19900	GETSTS		INTEGR		OWN+BILTIN	1 0 3
20000	VALINT	(CHNL)	INTEGR		VALUE
20100	
20200	SETSTS		UNTYPE		OWN+BILTIN	2 0 3
20300	VALINT	(CHNL)	INTEGR		VALUE
20400	VALINT	(BITS)	INTEGR		VALUE
20500	
20600	INOUT		UNTYPE		OWN+BILTIN	3 0 3
20700	VALINT	(INCHN)	INTEGR		VALUE
20800	VALINT	(OUTCH)	INTEGR		VALUE
20900	VALINT	(EXT)	INTEGR		VALUE
21000	]
21100	
21200	TTYUP		INTEGR		OWN+BILTIN	1 0 4
21300	VALINT	(ARG)	INTEGR		VALUE
21400	
21500	CLRBUF		UNTYPE		OWN+BILTIN	0 0 4
21600	
21700	CMU[
21800	INITSEA		INTEGR		OWN		1 0 4
21900	VALINT	(SEAPAR)	INTEGR		VALUE
22000	
22100	SEAINIT		INTEGR		OWN		1 0 4
22200	VALINT	(SEAPAR)	INTEGR		VALUE
22300	
22400	SEAREL		UNTYPE		OWN	0 0 4
22500	
22600	ARDINIT		UNTYPE		OWN	0 0 4
22700	
22800	CHARSZ		UNTYPE		OWN	1 0 4
22900	VALINT	(SIZE)	INTEGR		VALUE
23000	
23100	ARDSTR		UNTYPE		OWN	1 1 4
23200	VALSTR	(STR)	STRING		VALUE
23300	
23400	CHRMOD		UNTYPE		OWN	0 0 4
23500	
23600	CLEAR		UNTYPE		OWN	0 0 4
23700	
23800	SETPNT		UNTYPE		OWN	2 0 4
23900	VALINT	(X)	INTEGR		VALUE
24000	VALINT	(Y)	INTEGR		VALUE
24100	
24200	INVVEC		UNTYPE		OWN	2 0 4
24300	VALINT	(DX)	INTEGR		VALUE
24400	VALINT	(DY)	INTEGR		VALUE
24500	
24600	VISVEC		UNTYPE		OWN	2 0 4
24700	VALINT	(DX)	INTEGR		VALUE
24800	VALINT	(DY)	INTEGR		VALUE
24900	
25000	DOTVEC		UNTYPE		OWN	2 0 4
25100	VALINT	(DX)	INTEGR		VALUE
25200	VALINT	(DY)	INTEGR		VALUE
25300	
25400	SVEC		UNTYPE		OWN	2 0 4
25500	VALINT	(DX)	INTEGR		VALUE
25600	VALINT	(DY)	INTEGR		VALUE
25700	
25800	MOUSEW		UNTYPE		OWN	3 0 4
25900	REFINT	(X)	INTEGR		REFRNC
26000	REFINT	(Y)	INTEGR		REFRNC
26100	REFINT	(TYPE)	INTEGR		REFRNC
26200	
26300	MOUSES		UNTYPE		OWN	3 0 4
26400	REFINT	(X)	INTEGR		REFRNC
26500	REFINT	(Y)	INTEGR		REFRNC
26600	REFINT	(TYPE)	INTEGR		REFRNC
26700	
26800	CHRMOD		UNTYPE		OWN	0 0 4
26900	]
27000	
27100	
27200	
27300	TENX[
27400	CVJFN	INTEGR	OWN+BILTIN	1 0  3
27500	VALINT  (CHAN)	INTEGR	VALUE
27600	
27700	ODTIM	STRING	OWN	2 0 2
27800	VALINT  (DT)	INTEGR	VALUE
27900	VALINT  (FORMAT)	INTEGR	VALUE
28000	
28100	IDTIM	INTEGR	OWN+FNYNAM	2 0 4
28200	VALSTR	(DT)	STRING	VALUE
28300	VALINT	(BITS) $ INTEGR	VALUE
28400	
28500	RUNTM	INTEGR	OWN	2 0 4
28600	VALINT  (FORK)	INTEGR	VALUE
28700	REFINT  (CONSOLE)	INTEGR	REFRNC
28800	
28900	GTAD	INTEGR	OWN+BILTIN	0 0 4
29000	
29100	GJINF	INTEGR	OWN	3 0 4
29200	REFINT  (LOGDIR)	INTEGR	REFRNC
29300	REFINT  (CONDIR)	INTEGR	REFRNC
29400	REFINT  (TTYNO)	INTEGR	REFRNC
29500	
29600	STDIR	INTEGR	OWN	2 1 3
29700	VALSTR  (DIRECTORY)	STRING	VALUE
29800	VALINT  (DOREC)	INTEGR	VALUE
29900	
30000	RCUSR	INTEGR	OWN+BILTIN	3 0 3
30100	REFSTR	(NAME)	STRING	REFRNC
30200	REFINT	(NUMBER)	INTEGR	REFRNC
30300	REFINT	(FLAGS)	INTEGR	REFRNC
30400	
30500	RCDIR	INTEGR	OWN+BILTIN	3 0 3
30600	REFSTR	(NAME)	STRING	REFRNC
30700	REFINT	(NUMBER)	INTEGR	REFRNC
30800	REFINT	(FLAGS)	INTEGR	REFRNC
30900	
31000	DIRST	STRING	OWN	1 0 3
31100	VALINT  (DIRNO)	INTEGR	VALUE
31200	
31300	RUNPRG	INTEGR	OWN	3 1 4
31400	VALSTR	(PROGRAM)	STRING	VALUE
31500	VALINT  (INCREM)	INTEGR	VALUE
31600	VALINT	(NEWFRK)	INTEGR	VALUE
31700	
31800	OPENFILE	INTEGR	OWN	2 2 2
31900	VALSTR	(FILE)	STRING	VALUE
32000	VALSTR  (MODES)	STRING	VALUE
32100	
32200	SETINPUT	UNTYPE	OWN	4 0 2
32300	VALINT  (CHAN)	INTEGR	VALUE
32400	REFINT  (COUNT)	INTEGR	REFRNC
32500	REFINT  (BRK)	INTEGR	REFRNC
32600	REFINT  (EOF)	INTEGR	REFRNC
32700	
32800	
     
00100	INDEXFILE	INTEGR	OWN	1 0 3
00200	VALINT  (CHAN)	INTEGR	VALUE
00300	
00400	SETCHAN	INTEGR	OWN+BILTIN	3 0 3
00500	VALINT	(CHAN)	INTEGR	VALUE
00600	VALINT	(GTFLAGS)	INTEGR	VALUE
00700	VALINT	(OPFLAGS)	INTEGR	VALUE
00800	
00900	GTJFN	INTEGR	OWN	2 1 2
01000	VALSTR  (FILE)	STRING	VALUE
01100	VALINT  (FLAGS)	INTEGR	VALUE
01200	
01300	GTJFNL	INTEGR	OWN	10 7 3
01400	VALSTR	(ORIG)	STRING	VALUE
01500	VALINT	(FLAGS)	INTEGR	VALUE
01600	VALINT	(IOJFS)	INTEGR	VALUE
01700	VALSTR	(DEV)	STRING	VALUE
01800	VALSTR	(DIR)	STRING	VALUE
01900	VALSTR	(NAM)	STRING	VALUE
02000	VALSTR	(EXT)	STRING	VALUE
02100	VALSTR	(PROT)	STRING 	VALUE
02200	VALSTR	(ACC)	STRING	VALUE
02300	VALINT	(DJFN)	INTEGR	VALUE
02400	
02500	GNJFN	INTEGR	OWN	1 0 3
02600	VALINT  (CHAN)	INTEGR	VALUE
02700	
02800	DELF	UNTYPE	OWN+FNYNAM	2 0 2
02900	VALINT  (CHAN)	INTEGR	VALUE
03000	VALINT	(BITS) $ INTEGR	VALUE
03100	
03200	DELNF	INTEGR	OWN	2 0 3
03300	VALINT	(CHAN)	INTEGR	VALUE
03400	VALINT	(NUM)	INTEGR	VALUE
03500	
03600	UNDELETE	UNTYPE	OWN	1 0 3
03700	VALINT  (CHAN)	INTEGR	VALUE
03800	
03900	SIZEF	INTEGR	OWN	1 0 3
04000	VALINT  (CHAN)	INTEGR	VALUE
04100	
04200	JFNS	STRING	OWN	2 0 2
04300	VALINT  (CHAN)	INTEGR	VALUE
04400	VALINT  (FLAGS)	INTEGR	VALUE
04500	
04600	JFNSL	STRING	OWN	3 0 2
04700	VALINT  (CHAN)	INTEGR	VALUE
04800	VALINT  (FLAGS)	INTEGR	VALUE
04900	VALINT  (LHFLG)	INTEGR	VALUE
05000	
05100	OPENF	UNTYPE	OWN	2 0 2
05200	VALINT  (CHAN)	INTEGR	VALUE
05300	VALINT  (FLAGS)	INTEGR	VALUE
05400	
05500	CFILE	INTEGR	OWN	1 0 2
05600	VALINT  (CHAN)	INTEGR	VALUE
05700	
05800	CLOSF	UNTYPE	OWN+FNYNAM	2 0 2
05900	VALINT  (CHAN)	INTEGR	VALUE
06000	VALINT	(BITS) $ INTEGR	VALUE
06100	
06200	RLJFN	UNTYPE	OWN	1 0 3
06300	VALINT  (CHAN)	INTEGR	VALUE
06400	
06500	GTSTS	INTEGR	OWN	1 0 3
06600	VALINT  (CHAN)	INTEGR	VALUE
06700	
06800	STSTS	INTEGR	OWN	2 0 3
06900	VALINT	(CHAN)	INTEGR	VALUE
07000	VALINT	(STAT)	INTEGR	VALUE
07100	
07200	RNAMF	INTEGR	OWN	2 0 3
07300	VALINT	(CHAN1)	INTEGR	VALUE
07400	VALINT	(CHAN2)	INTEGR	VALUE
07500	
07600	CNDIR	INTEGR	OWN	2 0 3
07700	VALINT	(DIR)	INTEGR	VALUE
07800	VALSTR	(PW)	STRING	VALUE
07900	
08000	ACCES	INTEGR	OWN+BILTIN	4 2 3
08100	VALSTR	(DIR)	STRING	VALUE
08200	VALSTR	(PW) $	STRING	VALUE
08300	VALINT	(FLAGS) $ INTEGR VALUE
08400	VALINT	(JOBNO) $ INTEGR VALUE
08500	
08600	ASND	INTEGR	OWN	1 0 3
08700	VALINT	(DEV)	INTEGR	VALUE
08800	
08900	RELD	INTEGR	OWN	1 0 3
09000	VALINT	(DEV)	INTEGR	VALUE
09100	
09200	GDSTS	INTEGR	OWN	2 0 3
09300	VALINT	(CHAN)	INTEGR	VALUE
09400	REFINT	(WDCNT)	INTEGR	REFRNC
09500	
09600	SDSTS	INTEGR	OWN	2 0 3
09700	VALINT	(CHAN)	INTEGR	VALUE
09800	VALINT	(STAT)	INTEGR	VALUE
09900	
10000	STDEV	INTEGR	OWN	1 1 3
10100	VALSTR	(DEV)	STRING	VALUE
10200	
10300	DEVST	STRING	OWN	1 0 3
10400	VALINT	(DEV)	INTEGR	VALUE
10500	
10600	CHAROUT	UNTYPE	OWN+BILTIN	2 0 4
10700	VALINT	(CHAN)	INTEGR	VALUE
10800	VALINT	(CHAR)	INTEGR	VALUE
10900	
11000	GTFDB	UNTYPE	OWN	2 0 3
11100	VALINT  (CHAN)	INTEGR	VALUE
11200	ARRINT	(ARR)	INTEGR	REFRNC+SBSCRP
11300	
11400	CHFDB	UNTYPE	OWN+BILTIN	4 0 3
11500	VALINT	(CHAN)	INTEGR	VALUE
11600	VALINT	(DISPL)	INTEGR	VALUE
11700	VALINT	(MASK)	INTEGR	VALUE
11800	VALINT	(CBITS)	INTEGR	VALUE
11900	
12000	SACTF	INTEGR	OWN+BILTIN	2 1 3
12100	VALINT	(CHAN)	INTEGR	VALUE
12200	VALSTR	(ACCT)	STRING	VALUE
12300	
12400	MTOPR	UNTYPE	OWN+BILTIN	3 0 3
12500	VALINT	(CHAN)	INTEGR	VALUE
12600	VALINT	(FUNCTION)	INTEGR	VALUE
12700	VALINT	(VAL)	INTEGR	VALUE
12800	
12900	SFPTR	UNTYPE	OWN+BILTIN	2 0 3
13000	VALINT	(CHAN)	INTEGR	VALUE
13100	VALINT	(POINTER)	INTEGR	VALUE
13200	
13300	RFPTR	INTEGR	OWN+BILTIN	1 0 3
13400	VALINT  (CHAN)	INTEGR	VALUE
13500	
13600	RCHPTR	INTEGR	OWN+BILTIN	1 0 3
13700	VALINT	(CHAN)	INTEGR	VALUE
13800	
13900	SCHPTR	UNTYPE	OWN+BILTIN	2 0 3
14000	VALINT	(CHAN)	INTEGR	VALUE
14100	VALINT	(PTR)	INTEGR	VALUE
14200	
14300	RWDPTR	INTEGR	OWN+BILTIN	1 0 3
14400	VALINT	(CHAN)	INTEGR	VALUE
14500	
14600	SWDPTR	UNTYPE	OWN+BILTIN	2 0 3
14700	VALINT	(CHAN)	INTEGR	VALUE
14800	VALINT	(PTR)	INTEGR	VALUE
14900	
15000	BKJFN	UNTYPE	OWN+BILTIN	1 0 3
15100	VALINT  (CHAN)	INTEGR	VALUE
15200	
15300	RFBSZ	INTEGR	OWN+BILTIN	1 0 3
15400	VALINT  (CHAN)	INTEGR	VALUE
15500	
15600	
15700	DEVTYPE	INTEGR	OWN	1 0 4
15800	VALINT  (CHAN)	INTEGR	VALUE
15900	
16000	DVCHR	INTEGR	OWN	3 0 3
16100	VALINT  (CHAN)	INTEGR	VALUE
16200	REFINT  (AC1)	INTEGR	REFRNC
16300	REFINT  (AC3)	INTEGR	REFRNC
16400	
16500	ERSTR	INTEGR	OWN	2 0 4
16600	VALINT  (ERRNO)	INTEGR	VALUE
16700	VALINT  (FORK)	INTEGR	VALUE
16800	
16900	ERSTRING STRING		OWN	2 0 4
17000	VALINT  (ERRNO) $ INTEGR	VALUE
17100	VALINT  (FORK) $ INTEGR	VALUE
17200	
17300	RFMOD	INTEGR	OWN+BILTIN	1 0 4
17400	VALINT  (CHAN)	INTEGR	VALUE
17500	
17600	SFMOD	UNTYPE	OWN+BILTIN	2 0 4
17700	VALINT  (CHAN)	INTEGR	VALUE
17800	VALINT  (MODE)	INTEGR	VALUE
17900	
18000	RFCOC	UNTYPE	OWN+BILTIN	3 0 4
18100	VALINT  (CHAN)	INTEGR	VALUE
18200	REFINT  (AC2)	INTEGR	REFRNC
18300	REFINT  (AC3)	INTEGR	REFRNC
18400	
18500	SFCOC	UNTYPE	OWN+BILTIN	3 0 4
18600	VALINT  (CHAN)	INTEGR	VALUE
18700	VALINT  (AC2)	INTEGR	VALUE
18800	VALINT  (AC3)	INTEGR	VALUE
18900	
19000	STPAR	UNTYPE	OWN+BILTIN	2 0 4
19100	VALINT	(CHAN)	INTEGR	VALUE
19200	VALINT	(BITS)	INTEGR	VALUE
19300	
19400	STI	UNTYPE	OWN+BILTIN	2 0 4
19500	VALINT	(CHAN)	INTEGR	VALUE
19600	VALINT	(BITS)	INTEGR	VALUE
19700	
19800	GTTYP	INTEGR	OWN+BILTIN	2 0 4
19900	VALINT	(CHAN)	INTEGR	VALUE
20000	REFINT	(BUFS)	INTEGR	REFRNC
20100	
20200	SETEDIT	INTEGR	OWN+BILTIN	2 0 4
20300	VALINT	(CHAN)	INTEGR	VALUE
20400	VALINT	(MODE)	INTEGR	VALUE
20500	
20600	STTYP	UNTYPE	OWN+BILTIN	2 0 4
20700	VALINT	(CHAN)	INTEGR	VALUE
20800	VALINT	(BITS)	INTEGR	VALUE
20900	
21000	PMAP	UNTYPE	OWN+BILTIN	3 0 4
21100	VALINT  (AC1)	INTEGR	VALUE
21200	VALINT  (AC2)	INTEGR	VALUE
21300	VALINT  (AC3)	INTEGR	VALUE
21400	
21500	INTTY	STRING	OWN+BILTIN	0 0 4
21600	
21700	PBIN	INTEGR	OWN+BILTIN	0 0 4
21800	
21900	PBOUT	UNTYPE	OWN+BILTIN	1 0 4
22000	VALINT  (CHAR)	INTEGR	VALUE
22100	
22200	PSOUT	UNTYPE	OWN+BILTIN	1 1 4
22300	VALSTR  (STR)	STRING	VALUE
22400	
22500	CHARIN	INTEGR	OWN+BILTIN	1 0 4
22600	VALINT  (CHAN)	INTEGR	VALUE
22700	
22800	RSCAN	INTEGR	OWN+BILTIN	2 1 4
22900	VALINT	(FUNCT)	$ INTEGR VALUE
23000	VALSTR	(INSTR) $ STRING VALUE
23100	
23200	SINI	STRING	OWN+BILTIN	3 0 4
23300	VALINT  (CHAN)	INTEGR	VALUE
23400	VALINT  (MAXL)	INTEGR	VALUE
23500	VALINT  (BRK)	INTEGR	VALUE
23600	
23700	ATI	UNTYPE	OWN	2 0 5
23800	VALINT	(CHNL)	INTEGR	VALUE
23900	VALINT	(CODE)	INTEGR	VALUE
24000	
24100	DTI	UNTYPE	OWN	1 0 5
24200	VALINT	(CODE)	INTEGR	VALUE
24300	
24400	RTIW	INTEGR	OWN	3 0 5
24500	VALINT	(CHNL)	INTEGR	VALUE
24600	REFINT	(AC2)	INTEGR	REFRNC
24700	REFINT	(AC3)	INTEGR	REFRNC
24800	
24900	STIW	INTEGR	OWN	3 0 5
25000	VALINT	(CHNL)	INTEGR	VALUE
25100	VALINT	(AC2)	INTEGR	VALUE
25200	VALINT	(AC3)	INTEGR	VALUE
25300	
25400	GTRPW	INTEGR	OWN	2 0 5
25500	VALINT	(FORK)	INTEGR	VALUE
25600	REFINT	(AC2)	INTEGR	REFRNC
25700	
25800	PSIMAP	UNTYPE	OWN	4 0 5
25900	VALINT	(CHNL)	INTEGR	VALUE
26000	REFPROC	(PROC)	PROCED	REFRNC
26100	VALINT	(PARM)	INTEGR	VALUE
26200	VALINT	(LEVL)	INTEGR	VALUE
26300	
26400	PSIDISMS	UNTYPE	OWN	2 0 5
26500	VALINT	(CHNL)	INTEGR	VALUE
26600	VALINT	(TIME)	INTEGR	VALUE
26700	
26800	PSIRUNTM	UNTYPE	OWN	2 0 5
26900	VALINT	(CHNL)	INTEGR	VALUE
27000	VALINT	(TIME)	INTEGR	VALUE
27100	
27200	RDSEG		UNTYPE	OWN	2 0 0
27300	REFINT	(SEG)	INTEGR	REFRNC
27400	REFINT	(BUF)	INTEGR	REFRNC
27500	
27600	KPSITIME	UNTYPE	OWN	1 0 5
27700	VALINT	(CHNL)	INTEGR	VALUE
27800	]
27900	
28000	IMSSS[
28100	DSKIN	UNTYPE	OWN+BILTIN	4 0 3
28200	VALINT  (MODULE)	INTEGR	VALUE
28300	VALINT  (RECNO)	INTEGR	VALUE
28400	VALINT  (COUNT)	INTEGR	VALUE
28500	REFANY  (LOC)   INTEGR+FLOTNG+ITMVAR	REFRNC
28600	
28700	DSKOUT	UNTYPE	OWN+BILTIN	4 0 3
28800	VALINT  (MODULE)	INTEGR	VALUE
28900	VALINT  (RECNO)	INTEGR	VALUE
29000	VALINT  (COUNT)	INTEGR	VALUE
29100	REFANY  (LOC)  	INTEGR+FLOTNG+ITMVAR	REFRNC
29200	
29300	PBTIN	INTEGR	OWN+BILTIN	1 0 3
29400	VALINT  (SECONDS)	INTEGR	VALUE
29500	]
29600	
29700	STANFORD[
29800	PTYGET		INTEGR		OWN+BILTIN	0 0 4
29900	
30000	PTYREL		UNTYPE		OWN+BILTIN	1 0 4
30100	VALINT	(LINE)	INTEGR	VALUE
30200	
30300	PTYGTL		INTEGR		OWN+BILTIN	1 0 4
30400	VALINT  (LINE)  INTEGR  VALUE
30500	
30600	PTYSTL		UNTYPE		OWN+BILTIN	2 0 4
30700	VALINT  (LINE)  INTEGR  VALUE
30800	VALINT  (CHAR)  INTEGR  VALUE
30900	
31000	PTIFRE		INTEGR		OWN+BILTIN	1 0 4
31100	VALINT	(LINE)	INTEGR	VALUE
31200	
31300	PTOCNT		INTEGR		OWN+BILTIN	1 0 4
31400	VALINT	(LINE)	INTEGR	VALUE
31500	
31600	PTCHRW		INTEGR		OWN+BILTIN	1 0 4
31700	VALINT (LINE)	INTEGR	VALUE
31800	
31900	PTCHRS		INTEGR		OWN+BILTIN	1 0 4
32000	VALINT (LINE)	INTEGR	VALUE
32100	
32200	PTOCHS 		UNTYPE		OWN+BILTIN	2 0 4
32300	VALINT  (LINE)	INTEGR	VALUE
32400	VALINT  (CHAR)	INTEGR  VALUE
32500	
32600	PTOCHW		UNTYPE		OWN+BILTIN	2 0 4
32700	VALINT  (LINE)	INTEGR	VALUE
32800	VALINT  (CHAR)  INTEGR	VALUE
32900	
33000	PTOSTR		UNTYPE		OWN+BILTIN	2 1 4
33100	VALINT	(LINE)	INTEGR	VALUE
33200	VALSTR	(INFO)	STRING	VALUE
33300	
33400	]
33500	
33600	NOTENX[
33700	BACKUP		UNTYPE		OWN+BILTIN	0 0 4
33800	]
33900	
34000	STANFORD[
34100	LODED		UNTYPE		OWN+BILTIN	1 1 4
34200	VALSTR	(RELINE) STRING	VALUE
34300	
34400	PTYALL		STRING		OWN+BILTIN	1 0 4
34500	VALINT (LINE)	INTEGR	VALUE
34600	
34700	PTYSTR		STRING		OWN+BILTIN	2 0 4
34800	VALINT (LINE)	INTEGR	VALUE
34900	VALINT (BRCHAR)	INTEGR	VALUE
35000	
35100	PTYIN		STRING		OWN+BILTIN	3 0 4
35200	VALINT (LINE)	INTEGR	VALUE
35300	VALINT (BKTBL)	INTEGR	VALUE
35400	REFINT (BRCHAR)	INTEGR	REFRNC
35500	
35600	
35700	IFGLOBAL	INTEGR		OWN+BILTIN	1 0 5
35800	VALITM (ITM)	ITMVAR		VALUE
35900	
36000	ISSUE		INTEGR		OWN	4 3 0
36100	VALINT	(DIRECT) INTEGR		VALUE
36200	VALSTR	(SRC)	STRING		VALUE
36300	VALSTR	(DES)	STRING		VALUE
36400	VALSTR	(NAME)	STRING		VALUE
36500	
36600	QUEUE		INTEGR		OWN	2 0 0
36700	VALINT	(DIR)	INTEGR		VALUE
36800	VALINT (UNQ)	INTEGR		VALUE
36900	
37000	GETDATA	STRING		OWN	2 0 0
37100	VALINT	(DIR)	INTEGR		VALUE
37200	VALINT	(UNQ)	INTEGR		VALUE
37300	
37400	PUTDATA	UNTYPE		OWN	3 1 0
37500	VALINT	(DIR)	INTEGR		VALUE
37600	VALINT	(UNQ)	INTEGR		VALUE
37700	VALSTR	(STR)	STRING		VALUE
37800	
37900	GETBIT		INTEGR		OWN	1 0 0
38000	VALINT	(UNQ)	INTEGR		VALUE
38100	
38200	GETENTRY	INTEGR		OWN	4 3 0
38300	VALINT	(DIR)	INTEGR		VALUE
38400	VALSTR	(SRC)	STRING		VALUE
38500	VALSTR	(DES)	STRING		VALUE
38600	VALSTR	(NAM)	STRING		VALUE
38700	
38800	GETSET		SET		OWN	4 3 0
38900	VALINT	(DIR)	INTEGR		VALUE
39000	VALSTR	(SRC)	STRING		VALUE
39100	VALSTR	(DES)	STRING		VALUE
39200	VALSTR	(NAM)	STRING		VALUE
39300	]
39400	
39500	
39600	MUMBLE This is redefined during compile initialization;
39700	MUMBLE <name><sp><# params><sp><body, where i is param i and 0 is end>;
39800	
39900	<MACROS>
40000	COMPILERBANNER 0 0
40100	
40200	<END>
40300	
40400	
40500	
40600	
40700