perm filename FOO2[S,AIL]8 blob
sn#083814 filedate 1974-01-28 generic text, type T, neo UTF8
00100 COMMENT ⊗ VALID 00003 PAGES
00200 C REC PAGE DESCRIPTION
00300 C00001 00001
00400 C00002 00002
00500 C00015 00003 TTYIN STRING OWN+BILTIN 2
00600 C00027 ENDMK
00700 C⊗;
00100
00200 COMMENT β
00300
00400 MUMBLE THIS IS THE FILE OF FUNCTION NAMES
00500 FOR THE INITIAL SYMBOL TABLE MAKER ;
00600
00700 <ASSIGN>
00800
00900
01000
01100
01200 UNTYPE←←0
01300
01400
01500 <DEFINITIONS>
01600 INF
01700 XOR
01800 AND
01900 NOT
02000 IN
02100 OR
02200 COMMENT
02300 EQV
02400 UNION
02500 INTER
02600 SETO
02700 SETC
02800 SWAP
02900 LEQ
03000 NEQ
03100 GEQ
03200 ASSOC
03300
03400
03500 MUMBLE Here must be described in some detail the precise meaning
03600 of all this malarky ;
03700
03800 MUMBLE $ MEANS MAY BE DEFAULTED ;
03900
04000 <FUNCTIONS>
04100 M UNTYPE OWN 0
04200 OUT UNTYPE OWN+BILTIN 2
04300 VALINT (CHANNEL) INTEGR VALUE
04400 VALSTR (STRING) STRING VALUE
04500
04600 BREAKSET UNTYPE OWN+BILTIN 3
04700 VALINT (TABLE) INTEGR VALUE
04800 VALSTR (STRING) STRING VALUE
04900 VALINT (CONDITIONS) INTEGR VALUE
05000
05100 INPUT STRING OWN 2
05200 VALINT (CHANNEL) INTEGR VALUE
05300 VALINT (TABLE) INTEGR VALUE
05400
05500 LOOKUP UNTYPE OWN+BILTIN 3
05600 VALINT (CHANNEL) INTEGR VALUE
05700 VALSTR (FILENAME) STRING VALUE
05800 REFINT (FLAG) INTEGR REFRNC
05900
06000 OPEN UNTYPE OWN+BILTIN 8
06100 VALINT (CHANNEL) INTEGR VALUE
06200 VALSTR (DEVICE) STRING VALUE
06300 VALINT (MODE) INTEGR VALUE
06400 VALINT (INBUFS) INTEGR VALUE
06500 VALINT (OUTBUFS) INTEGR VALUE
06600 REFINT (COUNT) INTEGR REFRNC
06700 REFINT (BRCHAR) INTEGR REFRNC
06800 REFINT (EOF) INTEGR REFRNC
06900
07000 SETPL UNTYPE OWN+BILTIN 4
07100 VALINT (CHANNEL) INTEGR VALUE
07200 REFINT (LINNUM) INTEGR REFRNC
07300 REFINT (PAGNUM) INTEGR REFRNC
07400 REFINT (SOSNUM) INTEGR REFRNC
07500
07600 POINT INTEGR OWN+BILTIN+CONOK X3
07700 VALINT (BYTESIZE) INTEGR VALUE
07800 REFINT (ADDRESS) INTEGR REFRNC
07900 VALINT (BYTEPOS) INTEGR VALUE
08000
08100 .BBPP. INTEGR OWN+BILTIN 3
08200 VALINT (BYTESIZE) INTEGR VALUE
08300 REFINT (ADDRESS) INTEGR REFRNC
08400 VALINT (BYTEPOS) INTEGR VALUE
08500
08600 EQU INTEGR OWN+BILTIN+CONOK X2
08700 VALSTR (ARG1) STRING VALUE
08800 VALSTR (ARG2) STRING VALUE
08900
09000
09100
09200 CVS STRING OWN+BILTIN+CONOK X1
09300 VALINT (NUMBER) INTEGR VALUE
09400
09500 CVD INTEGR OWN+BILTIN+CONOK X1
09600 VALSTR (STRING) STRING VALUE
09700
09800 SCAN STRING OWN+CONOK X3
09900 REFSTR (STRING) STRING REFRNC
10000 VALINT (TABLE) INTEGR VALUE
10100 REFINT (BRCHAR) INTEGR REFRNC
10200
10300 RELEASE UNTYPE OWN+BILTIN 2
10400 VALINT (CHANNEL) INTEGR VALUE
10500 VALINT (INHIBITS) $ INTEGR VALUE
10600
10700
10800
10900 LINOUT UNTYPE OWN+BILTIN 2
11000 VALINT (CHANNEL) INTEGR VALUE
11100 VALINT (LINENO) INTEGR VALUE
11200
11300 CLOSE UNTYPE OWN+BILTIN 1
11400 VALINT (CHANNEL) INTEGR VALUE
11500
11600 CLOSO UNTYPE OWN+BILTIN 1
11700 VALINT (CHANNEL) INTEGR VALUE
11800
11900 CLOSIN UNTYPE OWN+BILTIN 1
12000 VALINT (CHANNEL) INTEGR VALUE
12100
12200 CVOS STRING OWN+BILTIN+CONOK X1
12300 VALARI (NUMBER) INTEGR+FLOTNG VALUE
12400
12500 ENTER UNTYPE OWN+BILTIN 3
12600 VALINT (CHANNEL) INTEGR VALUE
12700 VALSTR (NAME) STRING VALUE
12800 REFINT (FAIL-FLG) INTEGR REFRNC
12900
13000 MTAPE UNTYPE OWN+BILTIN 2
13100 VALINT (CHANNEL) INTEGR VALUE
13200 VALINT (OPER) INTEGR VALUE
13300
13400 WORDIN INTEGR OWN+BILTIN 1
13500 VALINT (CHANNEL) INTEGR VALUE
13600
13700 WORDOUT UNTYPE OWN+BILTIN 2
13800 VALINT (CHANNEL) INTEGR VALUE
13900 VALARI (ARG) INTEGR+FLOTNG VALUE
14000
14100 CVO INTEGR OWN+BILTIN+CONOK X1
14200 VALSTR (STRING) STRING VALUE
14300
14400
14500
14600 USETI UNTYPE OWN+BILTIN 2
14700 VALINT (CHANN) INTEGR VALUE
14800 VALINT (BLOCK) INTEGR VALUE
14900
15000 USETO UNTYPE OWN+BILTIN 2
15100 VALINT (CHANNEL) INTEGR VALUE
15200 VALINT (BLOCK) INTEGR VALUE
15300
15400 CVSIX INTEGR OWN+BILTIN+CONOK X1
15500 VALSTR (STRING) STRING VALUE
15600
15700 CVFIL INTEGR OWN+BILTIN+CONOK X3
15800 VALSTR (INPUT) STRING VALUE
15900 REFINT (EXTEN) INTEGR REFRNC
16000 REFINT (PPN) INTEGR REFRNC
16100
16200 CALL INTEGR OWN+BILTIN 2
16300 VALINT (INPUT-VAL) INTEGR VALUE
16400 VALSTR (STRING-DESCR) STRING VALUE
16500
16600 RENAME UNTYPE OWN+BILTIN 4
16700 VALINT (CHANNEL) INTEGR VALUE
16800 VALSTR (FILE-NAME) STRING VALUE
16900 VALINT (PROTECTION) INTEGR VALUE
17000 REFINT (FLAG) INTEGR REFRNC
17100
17200
17300 CVASC INTEGR OWN+BILTIN+CONOK X1
17400 VALSTR (STRING-IN) STRING VALUE
17500
17600 CVSTR STRING OWN+BILTIN+CONOK X1
17700 VALINT (INTEGR-IN) INTEGR VALUE
17800
17900 CVXSTR STRING OWN+BILTIN+CONOK X1
18000 VALINT (INTEGR-IN) INTEGR VALUE
18100
18200
18300 .SUBSR STRING OWN+BILTIN+CONOK X3
18400 VALSTR (THESTRING) STRING VALUE
18500 VALINT (FOR) INTEGR VALUE
18600 VALINT (START) INTEGR VALUE
18700
18800 .SUBST STRING OWN+BILTIN+CONOK X3
18900 VALSTR (THESTRING) STRING VALUE
19000 VALINT (TO) INTEGR VALUE
19100 VALINT (START) INTEGR VALUE
19200
19300 SETBREAK UNTYPE OWN+BILTIN 4
19400 VALINT (TABLE) INTEGR VALUE
19500 VALSTR (BRCHARS) STRING VALUE
19600 VALSTR (OMITS) STRING VALUE
19700 VALSTR (MODES) STRING VALUE
19800
19900 STDBRK UNTYPE OWN+BILTIN 1
20000 VALINT (CHANNEL) INTEGR VALUE
20100
20200 ARRYIN UNTYPE OWN+BILTIN 3
20300 VALINT (CHANNEL) INTEGR VALUE
20400 REFANY (WHERE) INTEGR+FLOTNG+ITMVAR REFRNC
20500 VALINT (COUNT) INTEGR VALUE
20600
20700 ARRYOUT UNTYPE OWN+BILTIN 3
20800 VALINT (CHANNEL) INTEGR VALUE
20900 REFANY (WHERE) INTEGR+FLOTNG+ITMVAR REFRNC
21000 VALINT (COUNT) INTEGR VALUE
21100
21200 SETFORMAT UNTYPE OWN+BILTIN 2
21300 VALINT (WIDTH) INTEGR VALUE
21400 VALINT (DIGS) INTEGR VALUE
21500
21600 CVG STRING OWN+BILTIN+CONOK X1
21700 VALREL (NUMBER) FLOTNG VALUE
21800
21900 CVF STRING OWN+BILTIN+CONOK X1
22000 VALREL (NUMBER) FLOTNG VALUE
22100
22200 CVE STRING OWN+BILTIN+CONOK X1
22300 VALREL (NUMBER) FLOTNG VALUE
22400
22500 REALIN FLOTNG OWN+BILTIN 1
22600 VALINT (CHANNEL) INTEGR VALUE
22700
22800 INTIN INTEGR OWN+BILTIN 1
22900 VALINT (CHANNEL) INTEGR VALUE
23000
23100 REALSCAN FLOTNG OWN+BILTIN+CONOK X2
23200 REFSTR (ST-NUM) STRING REFRNC
23300 REFINT (FLAG-BREAK) INTEGR REFRNC
23400
23500 INTSCAN INTEGR OWN+BILTIN+CONOK X2
23600 REFSTR (ST-NUM) STRING REFRNC
23700 REFINT (FLAG-BREAK) INTEGR REFRNC
23800
23900 ARRINFO INTEGR OWN+BILTIN 2
24000 ARRALL (ARRAY) INTEGR+FLOTNG+SET+LSTBIT+ITMVAR+STRING REFRNC+SBSCRP
24100 VALINT (CODE) INTEGR VALUE
24200
24300 ARRBLT UNTYPE OWN+BILTIN 3
24400 REFALL (DEST) INTEGR+FLOTNG+ITMVAR+SET REFRNC
24500 REFALL (SOURCE) INTEGR+FLOTNG+ITMVAR+SET REFRNC
24600 VALINT (HOWMANY) INTEGR VALUE
24700
24800 ARRTRAN UNTYPE OWN+BILTIN 2
24900 ARRMST (ARRDST) INTEGR+FLOTNG+ITMVAR+SET+LSTBIT+STRING REFRNC+SBSCRP
25000 ARRMST (ARRSRC) INTEGR+FLOTNG+ITMVAR+SET+LSTBIT+STRING REFRNC+SBSCRP
25100
25200 ARRCLR UNTYPE OWN+BILTIN 2
25300 ARRMST (ARRAY) INTEGR+FLOTNG+ITMVAR REFRNC+SBSCRP
25400 VALARI (VAL) $ INTEGR+FLOTNG+ITMVAR VALUE
25500
25600 CODE INTEGR OWN+BILTIN 2
25700 VALINT (INST) INTEGR VALUE
25800 REFINT (ADDR) INTEGR REFRNC
25900
26000 USERERR UNTYPE OWN+BILTIN 4
26100 VALINT (VALUE) INTEGR VALUE
26200 VALINT (CODE) INTEGR VALUE
26300 VALSTR (MSG) STRING VALUE
26400 VALSTR (RESPONSE) $ STRING VALUE
26500
26600 CVSI ITMVAR OWN 2
26700 VALSTR (PNAME) STRING VALUE
26800 REFINT (FLAG) INTEGR REFRNC
26900
27000 CVIS STRING OWN 2
27100 VALITM (ITEMNO) ITMVAR VALUE
27200 REFINT (FLAG) INTEGR REFRNC
27300
27400 NEW_PNAME UNTYPE OWN 2
27500 VALITM (ITEM) ITMVAR VALUE
27600 VALSTR (STRING) STRING VALUE
27700
27800 DEL_PNAME UNTYPE OWN 1
27900 VALTIM (ITEM) ITMVAR VALUE
28000
28100
28200 TYPEIT INTEGR OWN+BILTIN 1
28300 VALITM (ITEM) ITMVAR VALUE
28400
28500 LISTX INTEGR OWN+BILTIN 3
28600 VALLST (LIST) LSTBIT+SET VALUE
28700 VALITM (ITEM) ITMVAR VALUE
28800 VALINT (OCCURENCE) INTEGR VALUE
28900
29000
29100 INCHRW INTEGR OWN+BILTIN 0
29200
29300 INCHRS INTEGR OWN+BILTIN 0
29400
29500 INCHWL STRING OWN+BILTIN 0
29600
29700 INCHSL STRING OWN+BILTIN 1
29800 REFINT (FLAG) INTEGR REFRNC
29900
30000 INSTR STRING OWN+BILTIN 1
30100 VALINT (BRCHAR) INTEGR VALUE
30200
30300 INSTRL STRING OWN+BILTIN 1
30400 VALINT (BRCHAR) INTEGR VALUE
30500
30600 INSTRS STRING OWN+BILTIN 2
30700 REFINT (FLAG) INTEGR REFRNC
30800 VALINT (BRCHAR) INTEGR VALUE
30900
00100 TTYIN STRING OWN+BILTIN 2
00200 VALINT (TABLE) INTEGR VALUE
00300 REFINT (BRCHAR) INTEGR REFRNC
00400
00500 TTYINL STRING OWN+BILTIN 2
00600 VALINT (TABLE) INTEGR VALUE
00700 REFINT (BRCHAR) INTEGR REFRNC
00800
00900 TTYINS STRING OWN+BILTIN 2
01000 VALINT (TABLE) INTEGR VALUE
01100 REFINT (BRCHAR) INTEGR REFRNC
01200
01300 OUTCHR UNTYPE OWN+BILTIN 1
01400 VALINT (CHAR) INTEGR VALUE
01500
01600 OUTSTR UNTYPE OWN+BILTIN 1
01700 VALSTR (STR) STRING VALUE
01800
01900
02000 GETFORMAT UNTYPE OWN+BILTIN 2
02100 REFINT (WDTH) INTEGR REFRNC
02200 REFINT (DIGS) INTEGR REFRNC
02300
02400 GETCHAN INTEGR OWN+BILTIN 0
02500
02600 FILEINFO UNTYPE OWN+BILTIN 1
02700 ARRINT (ARRAY) INTEGR REFRNC+SBSCRP
02800
02900 USERCON UNTYPE OWN+BILTIN 3
03000 REFINT (INDEX) INTEGR REFRNC
03100 REFINT (VALUE) INTEGR REFRNC
03200 VALINT (FLAG) INTEGR VALUE
03300
03400 CHNCDB INTEGR OWN+BILTIN 1
03500 VALINT (CHAN) INTEGR VALUE
03600
03700 MUMBLE NWORLD RUNTIMES ;
03800
03900 MAINPR UNTYPE OWN+BILTIN 0
04000
04100 RESUME ITMVAR OWN+BILTIN 3
04200 VALITM (PROCESS) ITMVAR VALUE
04300 VALITM (RETVAL) $ ITMVAR VALUE
04400 VALINT (OPTS) $ INTEGR VALUE
04500
04600 ASKNTC ITMVAR OWN+BILTIN 2
04700 VALITM (ETYP) ITMVAR VALUE
04800 VALINT (OPTS) $ INTEGR VALUE
04900
05000 CAUSE1 ITMVAR OWN+BILTIN 3
05100 VALITM (ETYP) ITMVAR VALUE
05200 VALITM (ENOT) $ ITMVAR VALUE
05300 VALINT (OPTS) $ INTEGR VALUE
05400
05500 MKEVTT UNTYPE OWN+BILTIN 1
05600 VALITM (ETYP) ITMVAR VALUE
05700
05800 JOIN UNTYPE OWN+BILTIN 1
05900 VALSET (JSET) SET VALUE
06000
06100 SUSPEND ITMVAR OWN+BILTIN 1
06200 VALITM (PROCESS) ITMVAR VALUE
06300
06400 TERMINATE UNTYPE OWN+BILTIN 1
06500 VALITM (PROCESS) ITMVAR VALUE
06600
06700 MYPROC ITMVAR OWN+BILTIN 0
06800
06900 CALLER ITMVAR OWN+BILTIN 1
07000 VALITM (PROCESS) ITMVAR VALUE
07100
07200 INTSET UNTYPE OWN+BILTIN 2
07300 VALITM (IPROCSS) ITMVAR VALUE
07400 VALINT (OPTS) INTEGR VALUE
07500
07600 INTTBL UNTYPE OWN+BILTIN 1
07700 VALINT (SIZE) INTEGR VALUE
07800
07900 INTMOD UNTYPE OWN+BILTIN 0
08000
08100 CLKMOD UNTYPE OWN+BILTIN 0
08200
08300 DFRINT UNTYPE OWN+BILTIN 0
08400
08500 DDFINT UNTYPE OWN+BILTIN 0
08600
08700 DFR1IN UNTYPE OWN+BILTIN 1
08800 VALINT (AOBJNP) INTEGR VALUE
08900
09000 ENABLE UNTYPE OWN+BILTIN 1
09100 VALINT (INDEX) INTEGR VALUE
09200
09300 DISABLE UNTYPE OWN+BILTIN 1
09400 VALINT (INDEX) INTEGR VALUE
09500
09600 INTMAP UNTYPE OWN+BILTIN 3
09700 VALINT (INDEX) INTEGR VALUE
09800 REFPRC (PROC) PROCED REFRNC
09900 VALINT (PARAM) INTEGR VALUE
10000
10100 DFCPKT INTEGR OWN+BILTIN 4
10200 VALINT (ADDR) INTEGR VALUE
10300 VALITM (TYP) ITMVAR VALUE
10400 VALITM (NOTC) ITMVAR VALUE
10500 VALINT (OPTS) INTEGR VALUE
10600
10700 URSCHD INTEGR OWN+BILTIN 0
10800
10900 PRISET UNTYPE OWN+BILTIN 2
11000 VALITM (PROCESS) ITMVAR VALUE
11100 VALINT (PRIORITY) INTEGR VALUE
11200
11300 PSTATUS INTEGR OWN+BILTIN 1
11400 VALITM (PROCESS) ITMVAR VALUE
11500
11600 INTPRO UNTYPE OWN+BILTIN 0
11700
11800 ANSWER INTEGR OWN+BILTIN 3
11900 VALITM (ETYP) ITMVAR VALUE
12000 VALITM (ENOT) ITMVAR VALUE
12100 VALITM (PROCESS) ITMVAR VALUE
12200
12300 MUMBLE THE TRIGONOMETRIC ROUTINES, AND MISC. NUMERICAL ;
12400
12500 LOG FLOTNG OWN+BILTIN+FNYNAM 1
12600 VALREL (ARG) FLOTNG VALUE
12700
12800 EXP FLOTNG OWN+BILTIN+FNYNAM 1
12900 VALREL (ARG) FLOTNG VALUE
13000
13100 SIN FLOTNG OWN+BILTIN+FNYNAM 1
13200 VALREL (ARG) FLOTNG VALUE
13300
13400 SIND FLOTNG OWN+BILTIN+FNYNAM 1
13500 VALREL (ARG) FLOTNG VALUE
13600
13700 COS FLOTNG OWN+BILTIN+FNYNAM 1
13800 VALREL (ARG) FLOTNG VALUE
13900
14000 COSD FLOTNG OWN+BILTIN+FNYNAM 1
14100 VALREL (ARG) FLOTNG VALUE
14200
14300 SQRT FLOTNG OWN+BILTIN+FNYNAM 1
14400 VALREL (ARG) FLOTNG VALUE
14500
14600 ATAN2 FLOTNG OWN+BILTIN+FNYNAM 2
14700 VALREL (ARG) FLOTNG VALUE
14800 VALREL (ARG) FLOTNG VALUE
14900
15000 ATAN FLOTNG OWN+BILTIN+FNYNAM 1
15100 VALREL (ARG) FLOTNG VALUE
15200
15300 ACOS FLOTNG OWN+BILTIN+FNYNAM 1
15400 VALREL (ARG) FLOTNG VALUE
15500
15600 ASIN FLOTNG OWN+BILTIN+FNYNAM 1
15700 VALREL (ARG) FLOTNG VALUE
15800
15900 TANH FLOTNG OWN+BILTIN+FNYNAM 1
16000 VALREL (ARG) FLOTNG VALUE
16100
16200 COSH FLOTNG OWN+BILTIN+FNYNAM 1
16300 VALREL (ARG) FLOTNG VALUE
16400
16500 SINH FLOTNG OWN+BILTIN+FNYNAM 1
16600 VALREL (ARG) FLOTNG VALUE
16700
16800 RAN FLOTNG OWN+BILTIN+FNYNAM 1
16900 VALINT (ARG) INTEGR VALUE
17000
17100 TRIGINI UNTYPE OWN 1
17200 VALLOC (LOC) INTEGR VALUE
17300
17400 GETSTS INTEGR OWN+BILTIN 1
17500 VALINT (CHNL) INTEGR VALUE
17600
17700 SETSTS UNTYPE OWN+BILTIN 2
17800 VALINT (CHNL) INTEGR VALUE
17900 VALINT (BITS) INTEGR VALUE
18000
18100 INOUT UNTYPE OWN+BILTIN 3
18200 VALINT (INCHN) INTEGR VALUE
18300 VALINT (OUTCH) INTEGR VALUE
18400 VALINT (EXT) INTEGR VALUE
18500
18600 TTYUP INTEGR OWN+BILTIN 1
18700 VALINT (ARG) INTEGR VALUE
18800
18900 CLRBUF UNTYPE OWN+BILTIN 0
19000
19100 MUMBLE **** THE FOLLOWING ARE FOR CMU ****
19200
19300 INITSEA INTEGR OWN 1
19400 VALINT (SEAPAR) INTEGR VALUE
19500
19600 SEAINIT INTEGR OWN 1
19700 VALINT (SEAPAR) INTEGR VALUE
19800
19900 SEAREL UNTYPE OWN 0
20000
20100 ARDINIT UNTYPE OWN 0
20200
20300 CHARSZ UNTYPE OWN 1
20400 VALINT (SIZE) INTEGR VALUE
20500
20600 ARDSTR UNTYPE OWN 1
20700 VALSTR (STR) STRING VALUE
20800
20900 CHRMOD UNTYPE OWN 0
21000
21100 CLEAR UNTYPE OWN 0
21200
21300 SETPNT UNTYPE OWN 2
21400 VALINT (X) INTEGR VALUE
21500 VALINT (Y) INTEGR VALUE
21600
21700 INVVEC UNTYPE OWN 2
21800 VALINT (DX) INTEGR VALUE
21900 VALINT (DY) INTEGR VALUE
22000
22100 VISVEC UNTYPE OWN 2
22200 VALINT (DX) INTEGR VALUE
22300 VALINT (DY) INTEGR VALUE
22400
22500 DOTVEC UNTYPE OWN 2
22600 VALINT (DX) INTEGR VALUE
22700 VALINT (DY) INTEGR VALUE
22800
22900 SVEC UNTYPE OWN 2
23000 VALINT (DX) INTEGR VALUE
23100 VALINT (DY) INTEGR VALUE
23200
23300 MOUSEW UNTYPE OWN 3
23400 REFINT (X) INTEGR REFRNC
23500 REFINT (Y) INTEGR REFRNC
23600 REFINT (TYPE) INTEGR REFRNC
23700
23800 MOUSES UNTYPE OWN 3
23900 REFINT (X) INTEGR REFRNC
24000 REFINT (Y) INTEGR REFRNC
24100 REFINT (TYPE) INTEGR REFRNC
24200
24300 CHRMOD UNTYPE OWN 0
24400
24500 **** END OF CMU ADDITIONS **** ;
24600 MUMBLE THESE FOLLOWING DO NOT GO IN THE EXPORT VERSION.
24700 ;
24800
24900 PTYGET INTEGR OWN+BILTIN 0
25000
25100 PTYREL UNTYPE OWN+BILTIN 1
25200 VALINT (LINE) INTEGR VALUE
25300
25400 PTYGTL INTEGR OWN+BILTIN 1
25500 VALINT (LINE) INTEGR VALUE
25600
25700 PTYSTL UNTYPE OWN+BILTIN 2
25800 VALINT (LINE) INTEGR VALUE
25900 VALINT (CHAR) INTEGR VALUE
26000
26100 PTIFRE INTEGR OWN+BILTIN 1
26200 VALINT (LINE) INTEGR VALUE
26300
26400 PTOCNT INTEGR OWN+BILTIN 1
26500 VALINT (LINE) INTEGR VALUE
26600
26700 PTCHRW INTEGR OWN+BILTIN 1
26800 VALINT (LINE) INTEGR VALUE
26900
27000 PTCHRS INTEGR OWN+BILTIN 1
27100 VALINT (LINE) INTEGR VALUE
27200
27300 PTOCHS UNTYPE OWN+BILTIN 2
27400 VALINT (LINE) INTEGR VALUE
27500 VALINT (CHAR) INTEGR VALUE
27600
27700 PTOCHW UNTYPE OWN+BILTIN 2
27800 VALINT (LINE) INTEGR VALUE
27900 VALINT (CHAR) INTEGR VALUE
28000
28100 PTOSTR UNTYPE OWN+BILTIN 2
28200 VALINT (LINE) INTEGR VALUE
28300 VALSTR (INFO) STRING VALUE
28400
28500 BACKUP UNTYPE OWN+BILTIN 0
28600
28700 LODED UNTYPE OWN+BILTIN 1
28800 VALSTR (RELINE) STRING VALUE
28900
29000 PTYALL STRING OWN+BILTIN 1
29100 VALINT (LINE) INTEGR VALUE
29200
29300 PTYSTR STRING OWN+BILTIN 2
29400 VALINT (LINE) INTEGR VALUE
29500 VALINT (BRCHAR) INTEGR VALUE
29600
29700 PTYIN STRING OWN+BILTIN 3
29800 VALINT (LINE) INTEGR VALUE
29900 VALINT (BKTBL) INTEGR VALUE
30000 REFINT (BRCHAR) INTEGR REFRNC
30100
30200
30300 IFGLOBAL INTEGR OWN+BILTIN 1
30400 VALITM (ITM) ITMVAR VALUE
30500
30600 ISSUE INTEGR OWN 4
30700 VALINT (DIRECT) INTEGR VALUE
30800 VALSTR (SRC) STRING VALUE
30900 VALSTR (DES) STRING VALUE
31000 VALSTR (NAME) STRING VALUE
31100
31200 QUEUE INTEGR OWN 2
31300 VALINT (DIR) INTEGR VALUE
31400 VALINT (UNQ) INTEGR VALUE
31500
31600 GET_DATA STRING OWN 2
31700 VALINT (DIR) INTEGR VALUE
31800 VALINT (UNQ) INTEGR VALUE
31900
32000 PUT_DATA UNTYPE OWN 3
32100 VALINT (DIR) INTEGR VALUE
32200 VALINT (UNQ) INTEGR VALUE
32300 VALSTR (STR) STRING VALUE
32400
32500 GET_BIT INTEGR OWN 1
32600 VALINT (UNQ) INTEGR VALUE
32700
32800 GET_ENTRY INTEGR OWN 4
32900 VALINT (DIR) INTEGR VALUE
33000 VALSTR (SRC) STRING VALUE
33100 VALSTR (DES) STRING VALUE
33200 VALSTR (NAM) STRING VALUE
33300
33400 GET_SET SET OWN 4
33500 VALINT (DIR) INTEGR VALUE
33600 VALSTR (SRC) STRING VALUE
33700 VALSTR (DES) STRING VALUE
33800 VALSTR (NAM) STRING VALUE
33900
34000 MUMBLE **** END OF THINGS NOT EXPORTED **** ;
34100
34200 <END>
34300
34400
34500 β
34600