perm filename FOO2.OLD[10X,AIL] blob
sn#257762 filedate 1977-01-14 generic text, type T, neo UTF8
00100 COMMENT ⊗ VALID 00004 PAGES
00200 C REC PAGE DESCRIPTION
00300 C00001 00001
00400 C00002 00002
00500 C00019 00003 TTYIN STRING OWN+BILTIN 2 0 4
00600 C00030 00004 INDEXFILE INTEGR OWN 1 0 3
00700 C00043 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 IMSSS
00900
01000 FALSECONDITIONALS[ STANFORD CMU NOTENX NOIMSSS]
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 WR_INI 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 POINT INTEGR OWN+BILTIN+CONOK X3 0 4
09700 VALINT (BYTESIZE) INTEGR VALUE
09800 REFINT (ADDRESS) INTEGR REFRNC
09900 VALINT (BYTEPOS) INTEGR VALUE
10000
10100
10200 .BBPP. INTEGR OWN+BILTIN 3 0 0
10300 VALINT (BYTESIZE) INTEGR VALUE
10400 REFINT (ADDRESS) INTEGR REFRNC
10500 VALINT (BYTEPOS) INTEGR VALUE
10600
10700 .$PINT UNTYPE OWN 1 0 0
10800 VALINT (ARG) INTEGR VALUE
10900
11000 .$PREL UNTYPE OWN 1 0 0
11100 VALREL (ARG) FLOTNG VALUE
11200
11300 .$PITM UNTYPE OWN 1 0 0
11400 VALITM (ARG) ITMVAR VALUE
11500
11600 .$PSET UNTYPE OWN 1 0 0
11700 VALSET (ARG) SET VALUE
11800
11900 .$PLST UNTYPE OWN 1 0 0
12000 VALLST (ARG) LSTBIT+SET VALUE
12100
12200 .$PSTR UNTYPE OWN 1 1 0
12300 VALSTR (ARG) STRING VALUE
12400
12500 .$PREC UNTYPE OWN 1 0 0
12600 VALPTR (ARG) PNTVAR VALUE
12700
12800 .$PLRL UNTYPE OWN 1 0 0
12900 VALLRL (ARG) DBLPRC+FLOTNG VALUE
13000
13100 SETPRINT UNTYPE OWN 2 1 2
13200 VALSTR (FILE) STRING VALUE
13300 VALINT (MODE) INTEGR VALUE
13400
13500 GETPRINT INTEGR OWN 0 0 3
13600
13700 EQU INTEGR OWN+BILTIN+CONOK X2 2 2
13800 VALSTR (ARG1) STRING VALUE
13900 VALSTR (ARG2) STRING VALUE
14000
14100 CVS STRING OWN+BILTIN+CONOK X1 0 1
14200 VALINT (NUMBER) INTEGR VALUE
14300
14400 CVD INTEGR OWN+BILTIN+CONOK X1 1 3
14500 VALSTR (STRING) STRING VALUE
14600
14700 SCAN STRING OWN+CONOK X3 0 2
14800 REFSTR (STRING) STRING REFRNC
14900 VALINT (TABLE) INTEGR VALUE
15000 REFINT (BRCHAR) INTEGR REFRNC
15100
15200 SCANC STRING OWN+CONOK X4 4 2
15300 VALSTR (ARGIN) STRING VALUE
15400 VALSTR (BRK) STRING VALUE
15500 VALSTR (OMIT) STRING VALUE
15600 VALSTR (MODE) STRING VALUE
15700
15800 RELEASE UNTYPE OWN+BILTIN 2 0 2
15900 VALINT (CHANNEL) INTEGR VALUE
16000 VALINT (INHIBITS) $ INTEGR VALUE
16100
16200
16300
16400 LINOUT UNTYPE OWN+BILTIN 2 0 3
16500 VALINT (CHANNEL) INTEGR VALUE
16600 VALINT (LINENO) INTEGR VALUE
16700
16800 CLOSE UNTYPE OWN+BILTIN 2 0 2
16900 VALINT (CHANNEL) INTEGR VALUE
17000 VALINT (INHIBIT) $ INTEGR VALUE
17100
17200 CLOSO UNTYPE OWN+BILTIN 2 0 3
17300 VALINT (CHANNEL) INTEGR VALUE
17400 VALINT (INHIBIT) $ INTEGR VALUE
17500
17600 CLOSIN UNTYPE OWN+BILTIN 2 0 3
17700 VALINT (CHANNEL) INTEGR VALUE
17800 VALINT (INHIBIT) $ INTEGR VALUE
17900
18000 CVOS STRING OWN+BILTIN+CONOK X1 0 1
18100 VALARI (NUMBER) INTEGR+FLOTNG VALUE
18200
18300 ENTER UNTYPE OWN+BILTIN 3 1 2
18400 VALINT (CHANNEL) INTEGR VALUE
18500 VALSTR (NAME) STRING VALUE
18600 REFINT (FAIL-FLG) INTEGR REFRNC
18700
18800 MTAPE UNTYPE OWN+BILTIN 2 0 3
18900 VALINT (CHANNEL) INTEGR VALUE
19000 VALINT (OPER) INTEGR VALUE
19100
19200 WORDIN INTEGR OWN+BILTIN 1 0 2
19300 VALINT (CHANNEL) INTEGR VALUE
19400
19500 WORDOUT UNTYPE OWN+BILTIN 2 0 2
19600 VALINT (CHANNEL) INTEGR VALUE
19700 VALARI (ARG) INTEGR+FLOTNG VALUE
19800
19900 CVO INTEGR OWN+BILTIN+CONOK X1 1 3
20000 VALSTR (STRING) STRING VALUE
20100
20200
20300
20400 USETI UNTYPE OWN+BILTIN 2 0 3
20500 VALINT (CHANN) INTEGR VALUE
20600 VALINT (BLOCK) INTEGR VALUE
20700
20800 USETO UNTYPE OWN+BILTIN 2 0 3
20900 VALINT (CHANNEL) INTEGR VALUE
21000 VALINT (BLOCK) INTEGR VALUE
21100
21200 CVSIX INTEGR OWN+BILTIN+CONOK X1 1 3
21300 VALSTR (STRING) STRING VALUE
21400
21500 CVFIL INTEGR OWN+BILTIN+CONOK X3 1 3
21600 VALSTR (INPUT) STRING VALUE
21700 REFINT (EXTEN) INTEGR REFRNC
21800 REFINT (PPN) INTEGR REFRNC
21900
22000 CALL INTEGR OWN+BILTIN 2 1 4
22100 VALINT (INPUT-VAL) INTEGR VALUE
22200 VALSTR (STRING-DESCR) STRING VALUE
22300
22400 TYMSHARE[
22500 AUXCLV INTEGR OWN 3 0 4
22600 VALINT (PORT) INTEGR VALUE
22700 VALINT (ARGUMENT) INTEGR VALUE
22800 VALINT (FUNCTION) INTEGR VALUE
22900
23000 AUXCLR INTEGR OWN 3 0 4
23100 VALINT (PORT) INTEGR VALUE
23200 REFINT (ARGUMENT) INTEGR REFRNC
23300 VALINT (FUNCTION) INTEGR VALUE
23400
23500 IONEOU UNTYPE OWN 1 0 4
23600 VALINT (CHARACTER) INTEGR VALUE
23700
23800 CHNIOV INTEGR OWN 3 0 3
23900 VALINT (CHANNEL) INTEGR VALUE
24000 VALINT (ARGUMENT) INTEGR VALUE
24100 VALINT (FUNCTION) INTEGR VALUE
24200
24300 CHNIOR INTEGR OWN 3 0 3
24400 VALINT (CHANNEL) INTEGR VALUE
24500 REFINT (ARGUMENT) INTEGR REFRNC
24600 VALINT (FUNCTION) INTEGR VALUE
24700
24800 CALLI INTEGR OWN 2 0 4
24900 VALINT (INPUT-VAL) INTEGR VALUE
25000 VALINT (INPUT-CALLINUM) INTEGR VALUE
25100 ]
25200
25300 RENAME UNTYPE OWN+BILTIN 4 1 3
25400 VALINT (CHANNEL) INTEGR VALUE
25500 VALSTR (FILE-NAME) STRING VALUE
25600 VALINT (PROTECTION) INTEGR VALUE
25700 REFINT (FLAG) INTEGR REFRNC
25800
25900 NOTENX[
26000 ERENAME UNTYPE OWN+BILTIN 7 1 3
26100 VALINT (CHANNEL) INTEGR VALUE
26200 VALSTR (FILE-NAME) STRING VALUE
26300 VALINT (PROTECTION) INTEGR VALUE
26400 VALINT (DATE) INTEGR VALUE
26500 VALINT (TIME) INTEGR VALUE
26600 VALINT (MODE) INTEGR VALUE
26700 REFINT (FLAG) INTEGR REFRNC
26800 ]
26900
27000 EDFILE UNTYPE OWN 4 1 4
27100 VALSTR (FILNAM) STRING VALUE
27200 VALINT (ASCLIN) INTEGR VALUE
27300 VALINT (PAGE) INTEGR VALUE
27400 VALINT (BITS) $ INTEGR VALUE
27500
27600 CVASC INTEGR OWN+BILTIN+CONOK X1 1 3
27700 VALSTR (STRING-IN) STRING VALUE
27800
27900 CVSTR STRING OWN+BILTIN+CONOK X1 0 1
28000 VALINT (INTEGR-IN) INTEGR VALUE
28100
28200 CVASTR STRING OWN+BILTIN+CONOK X1 0 3
28300 VALINT (INTEGR-IN) INTEGR VALUE
28400
28500 CVXSTR STRING OWN+BILTIN+CONOK X1 0 2
28600 VALINT (INTEGR-IN) INTEGR VALUE
28700
28800 CV6STR STRING OWN+BILTIN+CONOK X1 0 3
28900 VALINT (INTEGR-IN) INTEGR VALUE
29000
29100
29200 .SUBSR STRING OWN+BILTIN+CONOK X3 1 0
29300 VALSTR (THESTRING) STRING VALUE
29400 VALINT (FOR) INTEGR VALUE
29500 VALINT (START) INTEGR VALUE
29600
29700 .SUBST STRING OWN+BILTIN+CONOK X3 1 0
29800 VALSTR (THESTRING) STRING VALUE
29900 VALINT (TO) INTEGR VALUE
30000 VALINT (START) INTEGR VALUE
30100
30200 SETBREAK UNTYPE OWN+BILTIN 4 3 2
30300 VALINT (TABLE) INTEGR VALUE
30400 VALSTR (BRCHARS) STRING VALUE
30500 VALSTR (OMITS) STRING VALUE
30600 VALSTR (MODES) STRING VALUE
30700
30800 GETBREAK INTEGR OWN+BILTIN 0 0 2
30900
31000 RELBREAK UNTYPE OWN+BILTIN 1 0 2
31100 VALINT (TABLE) INTEGR VALUE
31200
31300 STDBRK UNTYPE OWN+BILTIN 1 0 3
31400 VALINT (CHANNEL) INTEGR VALUE
31500
31600 ARRYIN UNTYPE OWN+BILTIN 3 0 2
31700 VALINT (CHANNEL) INTEGR VALUE
31800 REFANY (WHERE) INTEGR+FLOTNG+ITMVAR+DBLPRC REFRNC
31900 VALINT (COUNT) INTEGR VALUE
32000
32100 ARRYOUT UNTYPE OWN+BILTIN 3 0 2
32200 VALINT (CHANNEL) INTEGR VALUE
32300 REFANY (WHERE) INTEGR+FLOTNG+ITMVAR+DBLPRC REFRNC
32400 VALINT (COUNT) INTEGR VALUE
32500
32600 SETFORMAT UNTYPE OWN+BILTIN 2 0 3
32700 VALINT (WIDTH) INTEGR VALUE
32800 VALINT (DIGS) INTEGR VALUE
32900
33000 CVG STRING OWN+BILTIN+CONOK X1 0 2
33100 VALREL (NUMBER) FLOTNG VALUE
33200
33300 CVF STRING OWN+BILTIN+CONOK X1 0 3
33400 VALREL (NUMBER) FLOTNG VALUE
33500
33600 CVE STRING OWN+BILTIN+CONOK X1 0 3
33700 VALREL (NUMBER) FLOTNG VALUE
33800
33900 CVEL STRING OWN+CONOK X1 0 3
34000 VALLRL (NUMBER) DBLPRC+FLOTNG VALUE
34100
34200 REALIN FLOTNG OWN+BILTIN 1 0 3
34300 VALINT (CHANNEL) INTEGR VALUE
34400
34500 INTIN INTEGR OWN+BILTIN 1 0 3
34600 VALINT (CHANNEL) INTEGR VALUE
34700
34800 LREALIN FLOTNG+DBLPRC OWN 1 0 3
34900 VALINT (CHANNEL) INTEGR VALUE
35000
35100 REALSCAN FLOTNG OWN+BILTIN+CONOK X2 0 3
35200 REFSTR (ST-NUM) STRING REFRNC
35300 REFINT (FLAG-BREAK) INTEGR REFRNC
35400
35500 INTSCAN INTEGR OWN+BILTIN+CONOK X2 0 3
35600 REFSTR (ST-NUM) STRING REFRNC
35700 REFINT (FLAG-BREAK) INTEGR REFRNC
35800
35900 LREALSCAN FLOTNG+DBLPRC OWN+CONOK X2 0 3
36000 REFSTR (ST-NUM) STRING REFRNC
36100 REFINT (FLAG-BREAK) INTEGR REFRNC
36200
36300 ARRINFO INTEGR OWN+BILTIN 2 0 4
36400 ARRALL (ARRAY) INTEGR+FLOTNG+SET+LSTBIT+ITMVAR+STRING+PNTVAR+DBLPRC REFRNC+SBSCRP
36500 VALINT (CODE) INTEGR VALUE
36600
36700 ARRBLT UNTYPE OWN+BILTIN 3 0 2
36800 REFALL (DEST) INTEGR+FLOTNG+ITMVAR+SET+PNTVAR+DBLPRC REFRNC
36900 REFALL (SOURCE) INTEGR+FLOTNG+ITMVAR+SET+PNTVAR+DBLPRC REFRNC
37000 VALINT (HOWMANY) INTEGR VALUE
37100
37200 ARRTRAN UNTYPE OWN+BILTIN 2 0 2
37300 ARRMST (ARRDST) INTEGR+FLOTNG+ITMVAR+SET+LSTBIT+STRING+PNTVAR+DBLPRC REFRNC+SBSCRP
37400 ARRMST (ARRSRC) INTEGR+FLOTNG+ITMVAR+SET+LSTBIT+STRING+PNTVAR+DBLPRC REFRNC+SBSCRP
37500
37600 ARRCLR UNTYPE OWN+BILTIN 2 0 2
37700 ARRMST (ARRAY) INTEGR+FLOTNG+PNTVAR+SET+LSTBIT+ITMVAR+STRING+DBLPRC REFRNC+SBSCRP
37800 VALARI (VAL) $ INTEGR+FLOTNG+PNTVAR VALUE
37900
38000 CODE INTEGR OWN+BILTIN 2 0 4
38100 VALINT (INST) INTEGR VALUE
38200 REFINT (ADDR) INTEGR REFRNC
38300
38400 USERERR UNTYPE OWN+BILTIN 4 2 4
38500 VALINT (VALUE) INTEGR VALUE
38600 VALINT (CODE) INTEGR VALUE
38700 VALSTR (MSG) STRING VALUE
38800 VALSTR (RESPONSE) $ STRING VALUE
38900
39000 ERMSBF UNTYPE OWN+BILTIN 1 0 4
39100 VALINT (CHARS) INTEGR VALUE
39200
39300 CVSI ITMVAR OWN 2 1 4
39400 VALSTR (PNAME) STRING VALUE
39500 REFINT (FLAG) INTEGR REFRNC
39600
39700 CVIS STRING OWN 2 0 4
39800 VALITM (ITEMNO) ITMVAR VALUE
39900 REFINT (FLAG) INTEGR REFRNC
40000
40100 NEW_PNAME UNTYPE OWN 2 1 4
40200 VALITM (ITEM) ITMVAR VALUE
40300 VALSTR (STRING) STRING VALUE
40400
40500 DEL_PNAME UNTYPE OWN 1 0 4
40600 VALTIM (ITEM) ITMVAR VALUE
40700
40800
40900 TYPEIT INTEGR OWN+BILTIN 1 0 4
41000 VALITM (ITEM) ITMVAR VALUE
41100
41200 LISTX INTEGR OWN 3 0 4
41300 VALLST (LIST) LSTBIT+SET VALUE
41400 VALITM (ITEM) ITMVAR VALUE
41500 VALINT (OCCURENCE) INTEGR VALUE
41600
41700
41800 INCHRW INTEGR OWN+BILTIN 0 0 4
41900
42000 INCHRS INTEGR OWN+BILTIN 0 0 4
42100
42200 INCHWL STRING OWN+BILTIN 0 0 4
42300
42400 INCHSL STRING OWN+BILTIN 1 0 4
42500 REFINT (FLAG) INTEGR REFRNC
42600
42700 INSTR STRING OWN+BILTIN 1 0 4
42800 VALINT (BRCHAR) INTEGR VALUE
42900
43000 INSTRL STRING OWN+BILTIN 1 0 4
43100 VALINT (BRCHAR) INTEGR VALUE
43200
43300 INSTRS STRING OWN+BILTIN 2 0 4
43400 REFINT (FLAG) INTEGR REFRNC
43500 VALINT (BRCHAR) INTEGR VALUE
43600
43700
43800
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 1 0 4
28200 VALSTR (DT) STRING VALUE
28300
28400 RUNTM INTEGR OWN 2 0 4
28500 VALINT (FORK) INTEGR VALUE
28600 REFINT (CONSOLE) INTEGR REFRNC
28700
28800 GTAD INTEGR OWN+BILTIN 0 0 4
28900
29000 GJINF INTEGR OWN 3 0 4
29100 REFINT (LOGDIR) INTEGR REFRNC
29200 REFINT (CONDIR) INTEGR REFRNC
29300 REFINT (TTYNO) INTEGR REFRNC
29400
29500 STDIR INTEGR OWN 2 1 3
29600 VALSTR (DIRECTORY) STRING VALUE
29700 VALINT (DOREC) INTEGR VALUE
29800
29900 DIRST STRING OWN 1 0 3
30000 VALINT (DIRNO) INTEGR VALUE
30100
30200 RUNPRG INTEGR OWN 3 1 4
30300 VALSTR (PROGRAM) STRING VALUE
30400 VALINT (INCREM) INTEGR VALUE
30500 VALINT (NEWFRK) INTEGR VALUE
30600
30700 OPENFILE INTEGR OWN 2 2 2
30800 VALSTR (FILE) STRING VALUE
30900 VALSTR (MODES) STRING VALUE
31000
31100 SETINPUT UNTYPE OWN 4 0 2
31200 VALINT (CHAN) INTEGR VALUE
31300 REFINT (COUNT) INTEGR REFRNC
31400 REFINT (BRK) INTEGR REFRNC
31500 REFINT (EOF) INTEGR REFRNC
31600
31700
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 1 0 2
02900 VALINT (CHAN) INTEGR VALUE
03000
03100 DELNF INTEGR OWN 2 0 3
03200 VALINT (CHAN) INTEGR VALUE
03300 VALINT (NUM) INTEGR VALUE
03400
03500 UNDELETE UNTYPE OWN 1 0 3
03600 VALINT (CHAN) INTEGR VALUE
03700
03800 SIZEF INTEGR OWN 1 0 3
03900 VALINT (CHAN) INTEGR VALUE
04000
04100 JFNS STRING OWN 2 0 2
04200 VALINT (CHAN) INTEGR VALUE
04300 VALINT (FLAGS) INTEGR VALUE
04400
04500 JFNSL STRING OWN 3 0 2
04600 VALINT (CHAN) INTEGR VALUE
04700 VALINT (FLAGS) INTEGR VALUE
04800 VALINT (LHFLG) INTEGR VALUE
04900
05000 OPENF UNTYPE OWN 2 0 2
05100 VALINT (CHAN) INTEGR VALUE
05200 VALINT (FLAGS) INTEGR VALUE
05300
05400 CFILE INTEGR OWN 1 0 2
05500 VALINT (CHAN) INTEGR VALUE
05600
05700 CLOSF UNTYPE OWN 1 0 2
05800 VALINT (CHAN) INTEGR VALUE
05900
06000 RLJFN UNTYPE OWN 1 0 3
06100 VALINT (CHAN) INTEGR VALUE
06200
06300 GTSTS INTEGR OWN 1 0 3
06400 VALINT (CHAN) INTEGR VALUE
06500
06600 STSTS INTEGR OWN 2 0 3
06700 VALINT (CHAN) INTEGR VALUE
06800 VALINT (STAT) INTEGR VALUE
06900
07000 RNAMF INTEGR OWN 2 0 3
07100 VALINT (CHAN1) INTEGR VALUE
07200 VALINT (CHAN2) INTEGR VALUE
07300
07400 CNDIR INTEGR OWN 2 0 3
07500 VALINT (DIR) INTEGR VALUE
07600 VALSTR (PW) STRING VALUE
07700
07800 ASND INTEGR OWN 1 0 3
07900 VALINT (DEV) INTEGR VALUE
08000
08100 RELD INTEGR OWN 1 0 3
08200 VALINT (DEV) INTEGR VALUE
08300
08400 GDSTS INTEGR OWN 2 0 3
08500 VALINT (CHAN) INTEGR VALUE
08600 REFINT (WDCNT) INTEGR REFRNC
08700
08800 SDSTS INTEGR OWN 2 0 3
08900 VALINT (CHAN) INTEGR VALUE
09000 VALINT (STAT) INTEGR VALUE
09100
09200 STDEV INTEGR OWN 1 1 3
09300 VALSTR (DEV) STRING VALUE
09400
09500 DEVST STRING OWN 1 0 3
09600 VALINT (DEV) INTEGR VALUE
09700
09800 CHAROUT UNTYPE OWN+BILTIN 2 0 4
09900 VALINT (CHAN) INTEGR VALUE
10000 VALINT (CHAR) INTEGR VALUE
10100
10200 GTFDB UNTYPE OWN 2 0 3
10300 VALINT (CHAN) INTEGR VALUE
10400 ARRINT (ARR) INTEGR REFRNC+SBSCRP
10500
10600 CHFDB UNTYPE OWN+BILTIN 4 0 3
10700 VALINT (CHAN) INTEGR VALUE
10800 VALINT (DISPL) INTEGR VALUE
10900 VALINT (MASK) INTEGR VALUE
11000 VALINT (CBITS) INTEGR VALUE
11100
11200 MTOPR UNTYPE OWN+BILTIN 3 0 3
11300 VALINT (CHAN) INTEGR VALUE
11400 VALINT (FUNCTION) INTEGR VALUE
11500 VALINT (VAL) INTEGR VALUE
11600
11700 SFPTR UNTYPE OWN+BILTIN 2 0 3
11800 VALINT (CHAN) INTEGR VALUE
11900 VALINT (POINTER) INTEGR VALUE
12000
12100 RFPTR INTEGR OWN+BILTIN 1 0 3
12200 VALINT (CHAN) INTEGR VALUE
12300
12400 RCHPTR INTEGR OWN+BILTIN 1 0 3
12500 VALINT (CHAN) INTEGR VALUE
12600
12700 SCHPTR UNTYPE OWN+BILTIN 2 0 3
12800 VALINT (CHAN) INTEGR VALUE
12900 VALINT (PTR) INTEGR VALUE
13000
13100 RWDPTR INTEGR OWN+BILTIN 1 0 3
13200 VALINT (CHAN) INTEGR VALUE
13300
13400 SWDPTR UNTYPE OWN+BILTIN 2 0 3
13500 VALINT (CHAN) INTEGR VALUE
13600 VALINT (PTR) INTEGR VALUE
13700
13800 BKJFN UNTYPE OWN+BILTIN 1 0 3
13900 VALINT (CHAN) INTEGR VALUE
14000
14100 RFBSZ INTEGR OWN+BILTIN 1 0 3
14200 VALINT (CHAN) INTEGR VALUE
14300
14400
14500 DEVTYPE INTEGR OWN 1 0 4
14600 VALINT (CHAN) INTEGR VALUE
14700
14800 DVCHR INTEGR OWN 3 0 3
14900 VALINT (CHAN) INTEGR VALUE
15000 REFINT (AC1) INTEGR REFRNC
15100 REFINT (AC3) INTEGR REFRNC
15200
15300 ERSTR INTEGR OWN 2 0 4
15400 VALINT (ERRNO) INTEGR VALUE
15500 VALINT (FORK) INTEGR VALUE
15600
15700 RFMOD INTEGR OWN+BILTIN 1 0 4
15800 VALINT (CHAN) INTEGR VALUE
15900
16000 SFMOD UNTYPE OWN+BILTIN 2 0 4
16100 VALINT (CHAN) INTEGR VALUE
16200 VALINT (MODE) INTEGR VALUE
16300
16400 RFCOC UNTYPE OWN+BILTIN 3 0 4
16500 VALINT (CHAN) INTEGR VALUE
16600 REFINT (AC2) INTEGR REFRNC
16700 REFINT (AC3) INTEGR REFRNC
16800
16900 SFCOC UNTYPE OWN+BILTIN 3 0 4
17000 VALINT (CHAN) INTEGR VALUE
17100 VALINT (AC2) INTEGR VALUE
17200 VALINT (AC3) INTEGR VALUE
17300
17400 STPAR UNTYPE OWN+BILTIN 2 0 4
17500 VALINT (CHAN) INTEGR VALUE
17600 VALINT (BITS) INTEGR VALUE
17700
17800 STI UNTYPE OWN+BILTIN 2 0 4
17900 VALINT (CHAN) INTEGR VALUE
18000 VALINT (BITS) INTEGR VALUE
18100
18200 GTTYP INTEGR OWN+BILTIN 2 0 4
18300 VALINT (CHAN) INTEGR VALUE
18400 REFINT (BUFS) INTEGR REFRNC
18500
18600 SETEDIT INTEGR OWN+BILTIN 2 0 4
18700 VALINT (CHAN) INTEGR VALUE
18800 VALINT (MODE) INTEGR VALUE
18900
19000 STTYP UNTYPE OWN+BILTIN 2 0 4
19100 VALINT (CHAN) INTEGR VALUE
19200 VALINT (BITS) INTEGR VALUE
19300
19400 PMAP UNTYPE OWN+BILTIN 3 0 4
19500 VALINT (AC1) INTEGR VALUE
19600 VALINT (AC2) INTEGR VALUE
19700 VALINT (AC3) INTEGR VALUE
19800
19900 INTTY STRING OWN+BILTIN 0 0 4
20000
20100 PBIN INTEGR OWN+BILTIN 0 0 4
20200
20300 PBOUT UNTYPE OWN+BILTIN 1 0 4
20400 VALINT (CHAR) INTEGR VALUE
20500
20600 PSOUT UNTYPE OWN+BILTIN 1 1 4
20700 VALSTR (STR) STRING VALUE
20800
20900 CHARIN INTEGR OWN+BILTIN 1 0 4
21000 VALINT (CHAN) INTEGR VALUE
21100
21200 SINI STRING OWN+BILTIN 3 0 4
21300 VALINT (CHAN) INTEGR VALUE
21400 VALINT (MAXL) INTEGR VALUE
21500 VALINT (BRK) INTEGR VALUE
21600
21700 ATI UNTYPE OWN 2 0 5
21800 VALINT (CHNL) INTEGR VALUE
21900 VALINT (CODE) INTEGR VALUE
22000
22100 DTI UNTYPE OWN 1 0 5
22200 VALINT (CODE) INTEGR VALUE
22300
22400 RTIW INTEGR OWN 3 0 5
22500 VALINT (CHNL) INTEGR VALUE
22600 REFINT (AC2) INTEGR REFRNC
22700 REFINT (AC3) INTEGR REFRNC
22800
22900 STIW INTEGR OWN 3 0 5
23000 VALINT (CHNL) INTEGR VALUE
23100 VALINT (AC2) INTEGR VALUE
23200 VALINT (AC3) INTEGR VALUE
23300
23400 GTRPW INTEGR OWN 2 0 5
23500 VALINT (FORK) INTEGR VALUE
23600 REFINT (AC2) INTEGR REFRNC
23700
23800 PSIMAP UNTYPE OWN 4 0 5
23900 VALINT (CHNL) INTEGR VALUE
24000 REFPROC (PROC) PROCED REFRNC
24100 VALINT (PARM) INTEGR VALUE
24200 VALINT (LEVL) INTEGR VALUE
24300
24400 PSIDISMS UNTYPE OWN 2 0 5
24500 VALINT (CHNL) INTEGR VALUE
24600 VALINT (TIME) INTEGR VALUE
24700
24800 PSIRUNTM UNTYPE OWN 2 0 5
24900 VALINT (CHNL) INTEGR VALUE
25000 VALINT (TIME) INTEGR VALUE
25100
25200 RDSEG UNTYPE OWN 2 0 0
25300 REFINT (SEG) INTEGR REFRNC
25400 REFINT (BUF) INTEGR REFRNC
25500
25600 KPSITIME UNTYPE OWN 1 0 5
25700 VALINT (CHNL) INTEGR VALUE
25800 ]
25900
26000 IMSSS[
26100 DSKIN UNTYPE OWN+BILTIN 4 0 3
26200 VALINT (MODULE) INTEGR VALUE
26300 VALINT (RECNO) INTEGR VALUE
26400 VALINT (COUNT) INTEGR VALUE
26500 REFANY (LOC) INTEGR+FLOTNG+ITMVAR REFRNC
26600
26700 DSKOUT UNTYPE OWN+BILTIN 4 0 3
26800 VALINT (MODULE) INTEGR VALUE
26900 VALINT (RECNO) INTEGR VALUE
27000 VALINT (COUNT) INTEGR VALUE
27100 REFANY (LOC) INTEGR+FLOTNG+ITMVAR REFRNC
27200
27300 PBTIN INTEGR OWN+BILTIN 1 0 3
27400 VALINT (SECONDS) INTEGR VALUE
27500 ]
27600
27700 STANFORD[
27800 PTYGET INTEGR OWN+BILTIN 0 0 4
27900
28000 PTYREL UNTYPE OWN+BILTIN 1 0 4
28100 VALINT (LINE) INTEGR VALUE
28200
28300 PTYGTL INTEGR OWN+BILTIN 1 0 4
28400 VALINT (LINE) INTEGR VALUE
28500
28600 PTYSTL UNTYPE OWN+BILTIN 2 0 4
28700 VALINT (LINE) INTEGR VALUE
28800 VALINT (CHAR) INTEGR VALUE
28900
29000 PTIFRE INTEGR OWN+BILTIN 1 0 4
29100 VALINT (LINE) INTEGR VALUE
29200
29300 PTOCNT INTEGR OWN+BILTIN 1 0 4
29400 VALINT (LINE) INTEGR VALUE
29500
29600 PTCHRW INTEGR OWN+BILTIN 1 0 4
29700 VALINT (LINE) INTEGR VALUE
29800
29900 PTCHRS INTEGR OWN+BILTIN 1 0 4
30000 VALINT (LINE) INTEGR VALUE
30100
30200 PTOCHS UNTYPE OWN+BILTIN 2 0 4
30300 VALINT (LINE) INTEGR VALUE
30400 VALINT (CHAR) INTEGR VALUE
30500
30600 PTOCHW UNTYPE OWN+BILTIN 2 0 4
30700 VALINT (LINE) INTEGR VALUE
30800 VALINT (CHAR) INTEGR VALUE
30900
31000 PTOSTR UNTYPE OWN+BILTIN 2 1 4
31100 VALINT (LINE) INTEGR VALUE
31200 VALSTR (INFO) STRING VALUE
31300
31400 LODED UNTYPE OWN+BILTIN 1 1 4
31500 VALSTR (RELINE) STRING VALUE
31600
31700 PTYALL STRING OWN+BILTIN 1 0 4
31800 VALINT (LINE) INTEGR VALUE
31900
32000 PTYSTR STRING OWN+BILTIN 2 0 4
32100 VALINT (LINE) INTEGR VALUE
32200 VALINT (BRCHAR) INTEGR VALUE
32300
32400 PTYIN STRING OWN+BILTIN 3 0 4
32500 VALINT (LINE) INTEGR VALUE
32600 VALINT (BKTBL) INTEGR VALUE
32700 REFINT (BRCHAR) INTEGR REFRNC
32800
32900
33000 IFGLOBAL INTEGR OWN+BILTIN 1 0 5
33100 VALITM (ITM) ITMVAR VALUE
33200
33300 ISSUE INTEGR OWN 4 3 0
33400 VALINT (DIRECT) INTEGR VALUE
33500 VALSTR (SRC) STRING VALUE
33600 VALSTR (DES) STRING VALUE
33700 VALSTR (NAME) STRING VALUE
33800
33900 QUEUE INTEGR OWN 2 0 0
34000 VALINT (DIR) INTEGR VALUE
34100 VALINT (UNQ) INTEGR VALUE
34200
34300 GET_DATA STRING OWN 2 0 0
34400 VALINT (DIR) INTEGR VALUE
34500 VALINT (UNQ) INTEGR VALUE
34600
34700 PUT_DATA UNTYPE OWN 3 1 0
34800 VALINT (DIR) INTEGR VALUE
34900 VALINT (UNQ) INTEGR VALUE
35000 VALSTR (STR) STRING VALUE
35100
35200 GET_BIT INTEGR OWN 1 0 0
35300 VALINT (UNQ) INTEGR VALUE
35400
35500 GET_ENTRY INTEGR OWN 4 3 0
35600 VALINT (DIR) INTEGR VALUE
35700 VALSTR (SRC) STRING VALUE
35800 VALSTR (DES) STRING VALUE
35900 VALSTR (NAM) STRING VALUE
36000
36100 GET_SET SET OWN 4 3 0
36200 VALINT (DIR) INTEGR VALUE
36300 VALSTR (SRC) STRING VALUE
36400 VALSTR (DES) STRING VALUE
36500 VALSTR (NAM) STRING VALUE
36600 ]
36700
36800
36900 MUMBLE This is redefined during compile initialization;
37000 MUMBLE <name><sp><# params><sp><body, where ¬i is param i and ¬0 is end>;
37100
37200 <MACROS>
37300 COMPILER_BANNER 0 ¬0
37400
37500 <END>
37600
37700
37800 β
37900
38000