00005	SUBTTL	INITIAL SYMBOL TABLE
00010	BEGIN	RESTAB
00015	IFNDEF DCS,<DCS ←← 0>
00020	↑RESYM:
00025	LSTON(SMTB)
00030	UNTYPE←←0
00035	
00040	
00045	↑RINF  ←←CLASOP+157
00050	↑RXOR  ←←CLASOP+42
00055	↑RAND  ←←CLASOP+312
00060	↑RNOT  ←←CLASOP+232
00065	↑RIN   ←←CLASOP+137
00070	↑ROR   ←←CLASOP+314
00075	↑RCOMME←←CLASOP+335
00080	↑REQV  ←←CLASOP+37
00085	↑RUNION←←CLASOP+341
00090	↑RINTER←←CLASOP+362
00095	↑RSETO ←←CLASOP+360
00100	↑RSETC ←←CLASOP+324
00105	↑RSWAP ←←CLASOP+301
00110	↑RLEQ  ←←CLASOP+60
00115	↑RNEQ  ←←CLASOP+57
00120	↑RGEQ  ←←CLASOP+61
00125	↑RASSOC←←CLASOP+43
00130	; FUNCTION SYMBOL TABLE ENTRIES
00135	↑IPROC:
00140	
00145	
00150	SYM1:	0	;HEADER FOR M
00155		1
00160		POINT 7,.+11
00165		XWD	EXTRNL+OWN,PROCED+FORWRD+UNTYPE
00170		0
00175		IFN DCS,<0+M ;>0 
00180		BYTE (6) 0
00185		BLOCK	2
00190		XWD SYM2,0
00195		0
00200		ASCII /M/
00205	
00210	
00215	
00220	
00225	SYM2:	0	;HEADER FOR OUT
00230		3
00235		POINT 7,.+10
00240		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
00245		0
00250		IFN DCS,<0+OUT ;>0 
00255		BYTE (6) 1,2,0
00260		BLOCK	2
00265		XWD SYM3,SYM1
00270		ASCII /OUT/
00275	
00280	
00285	
00290	
00295	SYM3:	0	;HEADER FOR BREAKSET
00300		10
00305		POINT 7,.+10
00310		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
00315		0
00320		IFN DCS,<0+BREAKSET ;>0 
00325		BYTE (6) 1,2,1,0
00330		BLOCK	2
00335		XWD SYM4,SYM2
00340		ASCII /BREAKSET/
00345	
00350	
00355	
00360	
00365	SYM4:	0	;HEADER FOR INPUT
00370		5
00375		POINT 7,.+10
00380		XWD	EXTRNL+OWN,PROCED+FORWRD+STRING
00385		0
00390		IFN DCS,<0+INPUT ;>0 
00395		BYTE (6) 1,1,0
00400		BLOCK	2
00405		XWD SYM5,SYM3
00410		ASCII /INPUT/
00415	
00420	
00425	
00430	
00435	SYM5:	SYM1	;HEADER FOR LOOKUP
00440		6
00445		POINT 7,.+10
00450		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
00455		0
00460		IFN DCS,<0+LOOKUP ;>0 
00465		BYTE (6) 1,2,3,0
00470		BLOCK	2
00475		XWD SYM6,SYM4
00480		ASCII /LOOKUP/
00485	
00490	
00495	
00500	
00505	SYM6:	SYM2	;HEADER FOR OPEN
00510		4
00515		POINT 7,.+10
00520		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
00525		0
00530		IFN DCS,<0+OPEN ;>0 
00535		BYTE (6) 1,2,1,1,1,3,3,3,0
00540		BLOCK	1
00545		XWD SYM7,SYM5
00550		ASCII /OPEN/
00555	
00560	
00565	
00570	
00575	EXTERNAL POINT
00580	SYM7:	0	;HEADER FOR POINT
00585		5
00590		POINT 7,.+10
00595		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+INTEGR
00600		0
00605		XWD 0+POINT,IFN DCS,<0+POINT ;>0 
00610		BYTE (6) 1,3,1,0
00615		BLOCK	2
00620		XWD SYM8,SYM6
00625		ASCII /POINT/
00630	
00635	
00640	
00645	
00650	↑.BBPP.:
00655	SYM8:	0	;HEADER FOR BBPP.
00660		5
00665		POINT 7,.+10
00670		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
00675		0
00680		IFN DCS,<0+BBPP. ;>0 
00685		BYTE (6) 1,3,1,0
00690		BLOCK	2
00695		XWD SYM9,SYM7
00700		ASCII /BBPP./
00705	
00710	
00715	
00720	
00725	EXTERNAL EQU
00730	SYM9:	0	;HEADER FOR EQU
00735		3
00740		POINT 7,.+10
00745		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+INTEGR
00750		0
00755		XWD 0+EQU,IFN DCS,<0+EQU ;>0 
00760		BYTE (6) 2,2,0
00765		BLOCK	2
00770		XWD SYM10,SYM8
00775		ASCII /EQU/
00780	
00785	
00790	
00795	
00800	EXTERNAL CVS
00805	SYM10:	0	;HEADER FOR CVS
00810		3
00815		POINT 7,.+10
00820		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
00825		0
00830		XWD 0+CVS,IFN DCS,<0+CVS ;>0 
00835		BYTE (6) 1,0
00840		BLOCK	2
00845		XWD SYM11,SYM9
00850		ASCII /CVS/
00855	
00860	
00865	
00870	
00875	EXTERNAL CVD
00880	SYM11:	SYM3	;HEADER FOR CVD
00885		3
00890		POINT 7,.+10
00895		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+INTEGR
00900		0
00905		XWD 0+CVD,IFN DCS,<0+CVD ;>0 
00910		BYTE (6) 2,0
00915		BLOCK	2
00920		XWD SYM12,SYM10
00925		ASCII /CVD/
00930	
00935	
00940	
00945	
00950	EXTERNAL SCAN
00955	SYM12:	SYM11	;HEADER FOR SCAN
00960		4
00965		POINT 7,.+10
00970		XWD	EXTRNL+OWN+CONOK,PROCED+FORWRD+STRING
00975		0
00980		XWD 0+SCAN,IFN DCS,<0+SCAN ;>0 
00985		BYTE (6) 4,1,3,0
00990		BLOCK	2
00995		XWD SYM13,SYM11
01000		ASCII /SCAN/
01005	
01010	
01015	
01020	
01025	SYM13:	SYM9	;HEADER FOR RELEASE
01030		7
01035		POINT 7,.+10
01040		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01045		0
01050		IFN DCS,<0+RELEASE ;>0 
01055		BYTE (6) 1,0
01060		BLOCK	2
01065		XWD SYM14,SYM12
01070		ASCII /RELEASE/
01075	
01080	
01085	
01090	
01095	SYM14:	SYM12	;HEADER FOR LINOUT
01100		6
01105		POINT 7,.+10
01110		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01115		0
01120		IFN DCS,<0+LINOUT ;>0 
01125		BYTE (6) 1,1,0
01130		BLOCK	2
01135		XWD SYM15,SYM13
01140		ASCII /LINOUT/
01145	
01150	
01155	
01160	
01165	SYM15:	0	;HEADER FOR CLOSE
01170		5
01175		POINT 7,.+10
01180		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01185		0
01190		IFN DCS,<0+CLOSE ;>0 
01195		BYTE (6) 1,0
01200		BLOCK	2
01205		XWD SYM16,SYM14
01210		ASCII /CLOSE/
01215	
01220	
01225	
01230	
01235	SYM16:	SYM10	;HEADER FOR CLOSO
01240		5
01245		POINT 7,.+10
01250		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01255		0
01260		IFN DCS,<0+CLOSO ;>0 
01265		BYTE (6) 1,0
01270		BLOCK	2
01275		XWD SYM17,SYM15
01280		ASCII /CLOSO/
01285	
01290	
01295	
01300	
01305	SYM17:	0	;HEADER FOR CLOSIN
01310		6
01315		POINT 7,.+10
01320		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01325		0
01330		IFN DCS,<0+CLOSIN ;>0 
01335		BYTE (6) 1,0
01340		BLOCK	2
01345		XWD SYM18,SYM16
01350		ASCII /CLOSIN/
01355	
01360	
01365	
01370	
01375	EXTERNAL CVOS
01380	SYM18:	SYM15	;HEADER FOR CVOS
01385		4
01390		POINT 7,.+10
01395		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
01400		0
01405		XWD 0+CVOS,IFN DCS,<0+CVOS ;>0 
01410		BYTE (6) 5,0
01415		BLOCK	2
01420		XWD SYM19,SYM17
01425		ASCII /CVOS/
01430	
01435	
01440	
01445	
01450	SYM19:	SYM13	;HEADER FOR ENTER
01455		5
01460		POINT 7,.+10
01465		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01470		0
01475		IFN DCS,<0+ENTER ;>0 
01480		BYTE (6) 1,2,3,0
01485		BLOCK	2
01490		XWD SYM20,SYM18
01495		ASCII /ENTER/
01500	
01505	
01510	
01515	
01520	SYM20:	0	;HEADER FOR MTAPE
01525		5
01530		POINT 7,.+10
01535		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01540		0
01545		IFN DCS,<0+MTAPE ;>0 
01550		BYTE (6) 1,1,0
01555		BLOCK	2
01560		XWD SYM21,SYM19
01565		ASCII /MTAPE/
01570	
01575	
01580	
01585	
01590	SYM21:	SYM17	;HEADER FOR WORDIN
01595		6
01600		POINT 7,.+10
01605		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
01610		0
01615		IFN DCS,<0+WORDIN ;>0 
01620		BYTE (6) 1,0
01625		BLOCK	2
01630		XWD SYM22,SYM20
01635		ASCII /WORDIN/
01640	
01645	
01650	
01655	
01660	SYM22:	0	;HEADER FOR WORDOUT
01665		7
01670		POINT 7,.+10
01675		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01680		0
01685		IFN DCS,<0+WORDOUT ;>0 
01690		BYTE (6) 1,5,0
01695		BLOCK	2
01700		XWD SYM23,SYM21
01705		ASCII /WORDOUT/
01710	
01715	
01720	
01725	
01730	EXTERNAL CVO
01735	SYM23:	SYM7	;HEADER FOR CVO
01740		3
01745		POINT 7,.+10
01750		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+INTEGR
01755		0
01760		XWD 0+CVO,IFN DCS,<0+CVO ;>0 
01765		BYTE (6) 2,0
01770		BLOCK	2
01775		XWD SYM24,SYM22
01780		ASCII /CVO/
01785	
01790	
01795	
01800	
01805	SYM24:	SYM8	;HEADER FOR USETI
01810		5
01815		POINT 7,.+10
01820		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01825		0
01830		IFN DCS,<0+USETI ;>0 
01835		BYTE (6) 1,1,0
01840		BLOCK	2
01845		XWD SYM25,SYM23
01850		ASCII /USETI/
01855	
01860	
01865	
01870	
01875	SYM25:	SYM5	;HEADER FOR USETO
01880		5
01885		POINT 7,.+10
01890		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
01895		0
01900		IFN DCS,<0+USETO ;>0 
01905		BYTE (6) 1,1,0
01910		BLOCK	2
01915		XWD SYM26,SYM24
01920		ASCII /USETO/
01925	
01930	
01935	
01940	
01945	EXTERNAL CVSIX
01950	SYM26:	SYM25	;HEADER FOR CVSIX
01955		5
01960		POINT 7,.+10
01965		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+INTEGR
01970		0
01975		XWD 0+CVSIX,IFN DCS,<0+CVSIX ;>0 
01980		BYTE (6) 2,0
01985		BLOCK	2
01990		XWD SYM27,SYM25
01995		ASCII /CVSIX/
02000	
02005	
02010	
02015	
02020	EXTERNAL CVFIL
02025	SYM27:	SYM6	;HEADER FOR CVFIL
02030		5
02035		POINT 7,.+10
02040		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+INTEGR
02045		0
02050		XWD 0+CVFIL,IFN DCS,<0+CVFIL ;>0 
02055		BYTE (6) 2,3,3,0
02060		BLOCK	2
02065		XWD SYM28,SYM26
02070		ASCII /CVFIL/
02075	
02080	
02085	
02090	
02095	SYM28:	SYM26	;HEADER FOR CALL
02100		4
02105		POINT 7,.+10
02110		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
02115		0
02120		IFN DCS,<0+CALL ;>0 
02125		BYTE (6) 1,2,0
02130		BLOCK	2
02135		XWD SYM29,SYM27
02140		ASCII /CALL/
02145	
02150	
02155	
02160	
02165	SYM29:	SYM23	;HEADER FOR RENAME
02170		6
02175		POINT 7,.+10
02180		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
02185		0
02190		IFN DCS,<0+RENAME ;>0 
02195		BYTE (6) 1,2,1,3,0
02200		BLOCK	2
02205		XWD SYM30,SYM28
02210		ASCII /RENAME/
02215	
02220	
02225	
02230	
02235	EXTERNAL CVASC
02240	SYM30:	SYM28	;HEADER FOR CVASC
02245		5
02250		POINT 7,.+10
02255		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+INTEGR
02260		0
02265		XWD 0+CVASC,IFN DCS,<0+CVASC ;>0 
02270		BYTE (6) 2,0
02275		BLOCK	2
02280		XWD SYM31,SYM29
02285		ASCII /CVASC/
02290	
02295	
02300	
02305	
02310	EXTERNAL CVSTR
02315	SYM31:	SYM19	;HEADER FOR CVSTR
02320		5
02325		POINT 7,.+10
02330		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
02335		0
02340		XWD 0+CVSTR,IFN DCS,<0+CVSTR ;>0 
02345		BYTE (6) 1,0
02350		BLOCK	2
02355		XWD SYM32,SYM30
02360		ASCII /CVSTR/
02365	
02370	
02375	
02380	
02385	EXTERNAL CVXSTR
02390	SYM32:	SYM4	;HEADER FOR CVXSTR
02395		6
02400		POINT 7,.+10
02405		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
02410		0
02415		XWD 0+CVXSTR,IFN DCS,<0+CVXSTR ;>0 
02420		BYTE (6) 1,0
02425		BLOCK	2
02430		XWD SYM33,SYM31
02435		ASCII /CVXSTR/
02440	
02445	
02450	
02455	
02460	↑.SUBSR:
02465	EXTERNAL SUBSR
02470	SYM33:	SYM31	;HEADER FOR SUBSR
02475		5
02480		POINT 7,.+10
02485		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
02490		0
02495		XWD 0+SUBSR,IFN DCS,<0+SUBSR ;>0 
02500		BYTE (6) 2,1,1,0
02505		BLOCK	2
02510		XWD SYM34,SYM32
02515		ASCII /SUBSR/
02520	
02525	
02530	
02535	
02540	↑.SUBST:
02545	EXTERNAL SUBST
02550	SYM34:	SYM33	;HEADER FOR SUBST
02555		5
02560		POINT 7,.+10
02565		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
02570		0
02575		XWD 0+SUBST,IFN DCS,<0+SUBST ;>0 
02580		BYTE (6) 2,1,1,0
02585		BLOCK	2
02590		XWD SYM35,SYM33
02595		ASCII /SUBST/
02600	
02605	
02610	
02615	
02620	SYM35:	0	;HEADER FOR SETBREAK
02625		10
02630		POINT 7,.+10
02635		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
02640		0
02645		IFN DCS,<0+SETBREAK ;>0 
02650		BYTE (6) 1,2,2,2,0
02655		BLOCK	2
02660		XWD SYM36,SYM34
02665		ASCII /SETBREAK/
02670	
02675	
02680	
02685	
02690	SYM36:	SYM29	;HEADER FOR STDBRK
02695		6
02700		POINT 7,.+10
02705		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
02710		0
02715		IFN DCS,<0+STDBRK ;>0 
02720		BYTE (6) 1,0
02725		BLOCK	2
02730		XWD SYM37,SYM35
02735		ASCII /STDBRK/
02740	
02745	
02750	
02755	
02760	SYM37:	SYM20	;HEADER FOR ARRYIN
02765		6
02770		POINT 7,.+10
02775		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
02780		0
02785		IFN DCS,<0+ARRYIN ;>0 
02790		BYTE (6) 1,6,1,0
02795		BLOCK	2
02800		XWD SYM38,SYM36
02805		ASCII /ARRYIN/
02810	
02815	
02820	
02825	
02830	SYM38:	SYM36	;HEADER FOR ARRYOUT
02835		7
02840		POINT 7,.+10
02845		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
02850		0
02855		IFN DCS,<0+ARRYOUT ;>0 
02860		BYTE (6) 1,6,1,0
02865		BLOCK	2
02870		XWD SYM39,SYM37
02875		ASCII /ARRYOUT/
02880	
02885	
02890	
02895	
02900	SYM39:	SYM14	;HEADER FOR SETFORMAT
02905		11
02910		POINT 7,.+10
02915		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
02920		0
02925		IFN DCS,<0+SETFORMAT ;>0 
02930		BYTE (6) 1,1,0
02935		BLOCK	2
02940		XWD SYM40,SYM38
02945		ASCII /SETFORMAT/
02950	
02955	
02960	
02965	
02970	EXTERNAL CVG
02975	SYM40:	SYM35	;HEADER FOR CVG
02980		3
02985		POINT 7,.+10
02990		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
02995		0
03000		XWD 0+CVG,IFN DCS,<0+CVG ;>0 
03005		BYTE (6) 7,0
03010		BLOCK	2
03015		XWD SYM41,SYM39
03020		ASCII /CVG/
03025	
03030	
03035	
03040	
03045	EXTERNAL CVF
03050	SYM41:	SYM16	;HEADER FOR CVF
03055		3
03060		POINT 7,.+10
03065		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
03070		0
03075		XWD 0+CVF,IFN DCS,<0+CVF ;>0 
03080		BYTE (6) 7,0
03085		BLOCK	2
03090		XWD SYM42,SYM40
03095		ASCII /CVF/
03100	
03105	
03110	
03115	
03120	EXTERNAL CVE
03125	SYM42:	SYM27	;HEADER FOR CVE
03130		3
03135		POINT 7,.+10
03140		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+STRING
03145		0
03150		XWD 0+CVE,IFN DCS,<0+CVE ;>0 
03155		BYTE (6) 7,0
03160		BLOCK	2
03165		XWD SYM43,SYM41
03170		ASCII /CVE/
03175	
03180	
03185	
03190	
03195	SYM43:	SYM38	;HEADER FOR REALIN
03200		6
03205		POINT 7,.+10
03210		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+FLOTNG
03215		0
03220		IFN DCS,<0+REALIN ;>0 
03225		BYTE (6) 1,0
03230		BLOCK	2
03235		XWD SYM44,SYM42
03240		ASCII /REALIN/
03245	
03250	
03255	
03260	
03265	SYM44:	SYM34	;HEADER FOR INTIN
03270		5
03275		POINT 7,.+10
03280		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
03285		0
03290		IFN DCS,<0+INTIN ;>0 
03295		BYTE (6) 1,0
03300		BLOCK	2
03305		XWD SYM45,SYM43
03310		ASCII /INTIN/
03315	
03320	
03325	
03330	
03335	EXTERNAL REALSCAN
03340	SYM45:	SYM43	;HEADER FOR REALSCAN
03345		10
03350		POINT 7,.+10
03355		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+FLOTNG
03360		0
03365		XWD 0+REALSCAN,IFN DCS,<0+REALSCAN ;>0 
03370		BYTE (6) 4,3,0
03375		BLOCK	2
03380		XWD SYM46,SYM44
03385		ASCII /REALSCAN/
03390	
03395	
03400	
03405	
03410	EXTERNAL INTSCAN
03415	SYM46:	SYM42	;HEADER FOR INTSCAN
03420		7
03425		POINT 7,.+10
03430		XWD	EXTRNL+OWN+BILTIN+CONOK,PROCED+FORWRD+INTEGR
03435		0
03440		XWD 0+INTSCAN,IFN DCS,<0+INTSCAN ;>0 
03445		BYTE (6) 4,3,0
03450		BLOCK	2
03455		XWD SYM47,SYM45
03460		ASCII /INTSCAN/
03465	
03470	
03475	
03480	
03485	SYM47:	SYM40	;HEADER FOR ARRINFO
03490		7
03495		POINT 7,.+10
03500		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
03505		0
03510		IFN DCS,<0+ARRINFO ;>0 
03515		BYTE (6) 10,1,0
03520		BLOCK	2
03525		XWD SYM48,SYM46
03530		ASCII /ARRINFO/
03535	
03540	
03545	
03550	
03555	SYM48:	SYM41	;HEADER FOR ARRBLT
03560		6
03565		POINT 7,.+10
03570		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
03575		0
03580		IFN DCS,<0+ARRBLT ;>0 
03585		BYTE (6) 11,11,1,0
03590		BLOCK	2
03595		XWD SYM49,SYM47
03600		ASCII /ARRBLT/
03605	
03610	
03615	
03620	
03625	SYM49:	SYM22	;HEADER FOR ARRTRAN
03630		7
03635		POINT 7,.+10
03640		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
03645		0
03650		IFN DCS,<0+ARRTRAN ;>0 
03655		BYTE (6) 12,12,0
03660		BLOCK	2
03665		XWD SYM50,SYM48
03670		ASCII /ARRTRAN/
03675	
03680	
03685	
03690	
03695	SYM50:	SYM30	;HEADER FOR CODE
03700		4
03705		POINT 7,.+10
03710		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
03715		0
03720		IFN DCS,<0+CODE ;>0 
03725		BYTE (6) 1,3,0
03730		BLOCK	2
03735		XWD SYM51,SYM49
03740		ASCII /CODE/
03745	
03750	
03755	
03760	
03765	SYM51:	SYM39	;HEADER FOR USERERR
03770		7
03775		POINT 7,.+10
03780		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
03785		0
03790		IFN DCS,<0+USERERR ;>0 
03795		BYTE (6) 1,1,2,0
03800		BLOCK	2
03805		XWD SYM52,SYM50
03810		ASCII /USERERR/
03815	
03820	
03825	
03830	
03835	SYM52:	SYM47	;HEADER FOR CVSI
03840		4
03845		POINT 7,.+10
03850		XWD	EXTRNL+OWN,PROCED+FORWRD+ITMVAR
03855		0
03860		IFN DCS,<0+CVSI ;>0 
03865		BYTE (6) 2,3,0
03870		BLOCK	2
03875		XWD SYM53,SYM51
03880		ASCII /CVSI/
03885	
03890	
03895	
03900	
03905	SYM53:	SYM46	;HEADER FOR CVIS
03910		4
03915		POINT 7,.+10
03920		XWD	EXTRNL+OWN,PROCED+FORWRD+STRING
03925		0
03930		IFN DCS,<0+CVIS ;>0 
03935		BYTE (6) 13,3,0
03940		BLOCK	2
03945		XWD SYM54,SYM52
03950		ASCII /CVIS/
03955	
03960	
03965	
03970	
03975	SYM54:	SYM49	;HEADER FOR NEW_PNAME
03980		11
03985		POINT 7,.+10
03990		XWD	EXTRNL+OWN,PROCED+FORWRD+UNTYPE
03995		0
04000		IFN DCS,<0+NEW.PNAME ;>0 
04005		BYTE (6) 13,2,0
04010		BLOCK	2
04015		XWD SYM55,SYM53
04020		ASCII /NEW_PNAME/
04025	
04030	
04035	
04040	
04045	SYM55:	SYM21	;HEADER FOR DEL_PNAME
04050		11
04055		POINT 7,.+10
04060		XWD	EXTRNL+OWN,PROCED+FORWRD+UNTYPE
04065		0
04070		IFN DCS,<0+DEL.PNAME ;>0 
04075		BYTE (6) 13,0
04080		BLOCK	2
04085		XWD SYM56,SYM54
04090		ASCII /DEL_PNAME/
04095	
04100	
04105	
04110	
04115	SYM56:	SYM50	;HEADER FOR TYPEIT
04120		6
04125		POINT 7,.+10
04130		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
04135		0
04140		IFN DCS,<0+TYPEIT ;>0 
04145		BYTE (6) 13,0
04150		BLOCK	2
04155		XWD SYM57,SYM55
04160		ASCII /TYPEIT/
04165	
04170	
04175	
04180	
04185	SYM57:	SYM48	;HEADER FOR LISTX
04190		5
04195		POINT 7,.+10
04200		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
04205		0
04210		IFN DCS,<0+LISTX ;>0 
04215		BYTE (6) 14,13,1,0
04220		BLOCK	2
04225		XWD SYM58,SYM56
04230		ASCII /LISTX/
04235	
04240	
04245	
04250	
04255	SYM58:	SYM54	;HEADER FOR INCHRW
04260		6
04265		POINT 7,.+10
04270		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
04275		0
04280		IFN DCS,<0+INCHRW ;>0 
04285		BYTE (6) 0
04290		BLOCK	2
04295		XWD SYM59,SYM57
04300		ASCII /INCHRW/
04305	
04310	
04315	
04320	
04325	SYM59:	SYM58	;HEADER FOR INCHRS
04330		6
04335		POINT 7,.+10
04340		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
04345		0
04350		IFN DCS,<0+INCHRS ;>0 
04355		BYTE (6) 0
04360		BLOCK	2
04365		XWD SYM60,SYM58
04370		ASCII /INCHRS/
04375	
04380	
04385	
04390	
04395	SYM60:	SYM44	;HEADER FOR INCHWL
04400		6
04405		POINT 7,.+10
04410		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
04415		0
04420		IFN DCS,<0+INCHWL ;>0 
04425		BYTE (6) 0
04430		BLOCK	2
04435		XWD SYM61,SYM59
04440		ASCII /INCHWL/
04445	
04450	
04455	
04460	
04465	SYM61:	SYM32	;HEADER FOR INCHSL
04470		6
04475		POINT 7,.+10
04480		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
04485		0
04490		IFN DCS,<0+INCHSL ;>0 
04495		BYTE (6) 3,0
04500		BLOCK	2
04505		XWD SYM62,SYM60
04510		ASCII /INCHSL/
04515	
04520	
04525	
04530	
04535	SYM62:	SYM24	;HEADER FOR INSTR
04540		5
04545		POINT 7,.+10
04550		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
04555		0
04560		IFN DCS,<0+INSTR ;>0 
04565		BYTE (6) 1,0
04570		BLOCK	2
04575		XWD SYM63,SYM61
04580		ASCII /INSTR/
04585	
04590	
04595	
04600	
04605	SYM63:	SYM57	;HEADER FOR INSTRL
04610		6
04615		POINT 7,.+10
04620		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
04625		0
04630		IFN DCS,<0+INSTRL ;>0 
04635		BYTE (6) 1,0
04640		BLOCK	2
04645		XWD SYM64,SYM62
04650		ASCII /INSTRL/
04655	
04660	
04665	
04670	
04675	SYM64:	SYM63	;HEADER FOR INSTRS
04680		6
04685		POINT 7,.+10
04690		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
04695		0
04700		IFN DCS,<0+INSTRS ;>0 
04705		BYTE (6) 3,1,0
04710		BLOCK	2
04715		XWD SYM65,SYM63
04720		ASCII /INSTRS/
04725	
04730	
04735	
04740	
04745	SYM65:	SYM18	;HEADER FOR TTYIN
04750		5
04755		POINT 7,.+10
04760		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
04765		0
04770		IFN DCS,<0+TTYIN ;>0 
04775		BYTE (6) 1,3,0
04780		BLOCK	2
04785		XWD SYM66,SYM64
04790		ASCII /TTYIN/
04795	
04800	
04805	
04810	
04815	SYM66:	SYM37	;HEADER FOR TTYINL
04820		6
04825		POINT 7,.+10
04830		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
04835		0
04840		IFN DCS,<0+TTYINL ;>0 
04845		BYTE (6) 1,3,0
04850		BLOCK	2
04855		XWD SYM67,SYM65
04860		ASCII /TTYINL/
04865	
04870	
04875	
04880	
04885	SYM67:	SYM66	;HEADER FOR TTYINS
04890		6
04895		POINT 7,.+10
04900		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
04905		0
04910		IFN DCS,<0+TTYINS ;>0 
04915		BYTE (6) 1,3,0
04920		BLOCK	2
04925		XWD SYM68,SYM66
04930		ASCII /TTYINS/
04935	
04940	
04945	
04950	
04955	SYM68:	SYM65	;HEADER FOR OUTCHR
04960		6
04965		POINT 7,.+10
04970		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
04975		0
04980		IFN DCS,<0+OUTCHR ;>0 
04985		BYTE (6) 1,0
04990		BLOCK	2
04995		XWD SYM69,SYM67
05000		ASCII /OUTCHR/
05005	
05010	
05015	
05020	
05025	SYM69:	SYM64	;HEADER FOR OUTSTR
05030		6
05035		POINT 7,.+10
05040		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05045		0
05050		IFN DCS,<0+OUTSTR ;>0 
05055		BYTE (6) 2,0
05060		BLOCK	2
05065		XWD SYM70,SYM68
05070		ASCII /OUTSTR/
05075	
05080	
05085	
05090	
05095	SYM70:	SYM56	;HEADER FOR GETFORMAT
05100		11
05105		POINT 7,.+10
05110		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05115		0
05120		IFN DCS,<0+GETFORMAT ;>0 
05125		BYTE (6) 3,3,0
05130		BLOCK	2
05135		XWD SYM71,SYM69
05140		ASCII /GETFORMAT/
05145	
05150	
05155	
05160	
05165	SYM71:	SYM67	;HEADER FOR GETCHAN
05170		7
05175		POINT 7,.+10
05180		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
05185		0
05190		IFN DCS,<0+GETCHAN ;>0 
05195		BYTE (6) 0
05200		BLOCK	2
05205		XWD SYM72,SYM70
05210		ASCII /GETCHAN/
05215	
05220	
05225	
05230	
05235	SYM72:	SYM55	;HEADER FOR FILEINFO
05240		10
05245		POINT 7,.+10
05250		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05255		0
05260		IFN DCS,<0+FILEINFO ;>0 
05265		BYTE (6) 15,0
05270		BLOCK	2
05275		XWD SYM73,SYM71
05280		ASCII /FILEINFO/
05285	
05290	
05295	
05300	
05305	SYM73:	SYM59	;HEADER FOR USERCON
05310		7
05315		POINT 7,.+10
05320		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05325		0
05330		IFN DCS,<0+USERCON ;>0 
05335		BYTE (6) 3,3,1,0
05340		BLOCK	2
05345		XWD SYM74,SYM72
05350		ASCII /USERCON/
05355	
05360	
05365	
05370	
05375	SYM74:	SYM73	;HEADER FOR MAINPR
05380		6
05385		POINT 7,.+10
05390		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05395		0
05400		IFN DCS,<0+MAINPR ;>0 
05405		BYTE (6) 0
05410		BLOCK	2
05415		XWD SYM75,SYM73
05420		ASCII /MAINPR/
05425	
05430	
05435	
05440	
05445	SYM75:	SYM72	;HEADER FOR RESUME
05450		6
05455		POINT 7,.+10
05460		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+ITMVAR
05465		0
05470		IFN DCS,<0+RESUME ;>0 
05475		BYTE (6) 13,53,41,0
05480		BLOCK	2
05485		XWD SYM76,SYM74
05490		ASCII /RESUME/
05495	
05500	
05505	
05510	
05515	SYM76:	SYM69	;HEADER FOR ASKNTC
05520		6
05525		POINT 7,.+10
05530		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+ITMVAR
05535		0
05540		IFN DCS,<0+ASKNTC ;>0 
05545		BYTE (6) 13,41,0
05550		BLOCK	2
05555		XWD SYM77,SYM75
05560		ASCII /ASKNTC/
05565	
05570	
05575	
05580	
05585	SYM77:	SYM68	;HEADER FOR CAUSE1
05590		6
05595		POINT 7,.+10
05600		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+ITMVAR
05605		0
05610		IFN DCS,<0+CAUSE1 ;>0 
05615		BYTE (6) 13,53,41,0
05620		BLOCK	2
05625		XWD SYM78,SYM76
05630		ASCII /CAUSE1/
05635	
05640	
05645	
05650	
05655	SYM78:	SYM70	;HEADER FOR MKEVTT
05660		6
05665		POINT 7,.+10
05670		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05675		0
05680		IFN DCS,<0+MKEVTT ;>0 
05685		BYTE (6) 13,0
05690		BLOCK	2
05695		XWD SYM79,SYM77
05700		ASCII /MKEVTT/
05705	
05710	
05715	
05720	
05725	SYM79:	SYM51	;HEADER FOR JOIN
05730		4
05735		POINT 7,.+10
05740		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05745		0
05750		IFN DCS,<0+JOIN ;>0 
05755		BYTE (6) 16,0
05760		BLOCK	2
05765		XWD SYM80,SYM78
05770		ASCII /JOIN/
05775	
05780	
05785	
05790	
05795	SYM80:	SYM52	;HEADER FOR SUSPEND
05800		7
05805		POINT 7,.+10
05810		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05815		0
05820		IFN DCS,<0+SUSPEND ;>0 
05825		BYTE (6) 13,0
05830		BLOCK	2
05835		XWD SYM81,SYM79
05840		ASCII /SUSPEND/
05845	
05850	
05855	
05860	
05865	SYM81:	SYM71	;HEADER FOR TERMINATE
05870		11
05875		POINT 7,.+10
05880		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
05885		0
05890		IFN DCS,<0+TERMINATE ;>0 
05895		BYTE (6) 13,0
05900		BLOCK	2
05905		XWD SYM82,SYM80
05910		ASCII /TERMINATE/
05915	
05920	
05925	
05930	
05935	SYM82:	SYM60	;HEADER FOR MYPROC
05940		6
05945		POINT 7,.+10
05950		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+ITMVAR
05955		0
05960		IFN DCS,<0+MYPROC ;>0 
05965		BYTE (6) 0
05970		BLOCK	2
05975		XWD SYM83,SYM81
05980		ASCII /MYPROC/
05985	
05990	
05995	
06000	
06005	SYM83:	SYM61	;HEADER FOR CALLER
06010		6
06015		POINT 7,.+10
06020		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+ITMVAR
06025		0
06030		IFN DCS,<0+CALLER ;>0 
06035		BYTE (6) 13,0
06040		BLOCK	2
06045		XWD SYM84,SYM82
06050		ASCII /CALLER/
06055	
06060	
06065	
06070	
06075	SYM84:	SYM78	;HEADER FOR INTSET
06080		6
06085		POINT 7,.+10
06090		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06095		0
06100		IFN DCS,<0+INTSET ;>0 
06105		BYTE (6) 13,1,0
06110		BLOCK	2
06115		XWD SYM85,SYM83
06120		ASCII /INTSET/
06125	
06130	
06135	
06140	
06145	SYM85:	SYM81	;HEADER FOR INTTBL
06150		6
06155		POINT 7,.+10
06160		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06165		0
06170		IFN DCS,<0+INTTBL ;>0 
06175		BYTE (6) 1,0
06180		BLOCK	2
06185		XWD SYM86,SYM84
06190		ASCII /INTTBL/
06195	
06200	
06205	
06210	
06215	SYM86:	SYM76	;HEADER FOR INTMOD
06220		6
06225		POINT 7,.+10
06230		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06235		0
06240		IFN DCS,<0+INTMOD ;>0 
06245		BYTE (6) 0
06250		BLOCK	2
06255		XWD SYM87,SYM85
06260		ASCII /INTMOD/
06265	
06270	
06275	
06280	
06285	SYM87:	SYM85	;HEADER FOR CLKMOD
06290		6
06295		POINT 7,.+10
06300		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06305		0
06310		IFN DCS,<0+CLKMOD ;>0 
06315		BYTE (6) 0
06320		BLOCK	2
06325		XWD SYM88,SYM86
06330		ASCII /CLKMOD/
06335	
06340	
06345	
06350	
06355	SYM88:	SYM83	;HEADER FOR DFRINT
06360		6
06365		POINT 7,.+10
06370		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06375		0
06380		IFN DCS,<0+DFRINT ;>0 
06385		BYTE (6) 0
06390		BLOCK	2
06395		XWD SYM89,SYM87
06400		ASCII /DFRINT/
06405	
06410	
06415	
06420	
06425	SYM89:	SYM79	;HEADER FOR DDFINT
06430		6
06435		POINT 7,.+10
06440		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06445		0
06450		IFN DCS,<0+DDFINT ;>0 
06455		BYTE (6) 0
06460		BLOCK	2
06465		XWD SYM90,SYM88
06470		ASCII /DDFINT/
06475	
06480	
06485	
06490	
06495	SYM90:	SYM80	;HEADER FOR DFR1IN
06500		6
06505		POINT 7,.+10
06510		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06515		0
06520		IFN DCS,<0+DFR1IN ;>0 
06525		BYTE (6) 1,0
06530		BLOCK	2
06535		XWD SYM91,SYM89
06540		ASCII /DFR1IN/
06545	
06550	
06555	
06560	
06565	SYM91:	SYM82	;HEADER FOR ENABLE
06570		6
06575		POINT 7,.+10
06580		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06585		0
06590		IFN DCS,<0+ENABLE ;>0 
06595		BYTE (6) 1,0
06600		BLOCK	2
06605		XWD SYM92,SYM90
06610		ASCII /ENABLE/
06615	
06620	
06625	
06630	
06635	SYM92:	SYM91	;HEADER FOR DISABLE
06640		7
06645		POINT 7,.+10
06650		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06655		0
06660		IFN DCS,<0+DISABLE ;>0 
06665		BYTE (6) 1,0
06670		BLOCK	2
06675		XWD SYM93,SYM91
06680		ASCII /DISABLE/
06685	
06690	
06695	
06700	
06705	SYM93:	SYM75	;HEADER FOR INTMAP
06710		6
06715		POINT 7,.+10
06720		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06725		0
06730		IFN DCS,<0+INTMAP ;>0 
06735		BYTE (6) 1,17,1,0
06740		BLOCK	2
06745		XWD SYM94,SYM92
06750		ASCII /INTMAP/
06755	
06760	
06765	
06770	
06775	SYM94:	SYM45	;HEADER FOR DFCPKT
06780		6
06785		POINT 7,.+10
06790		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
06795		0
06800		IFN DCS,<0+DFCPKT ;>0 
06805		BYTE (6) 1,13,13,1,0
06810		BLOCK	2
06815		XWD SYM95,SYM93
06820		ASCII /DFCPKT/
06825	
06830	
06835	
06840	
06845	SYM95:	SYM62	;HEADER FOR URSCHD
06850		6
06855		POINT 7,.+10
06860		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
06865		0
06870		IFN DCS,<0+URSCHD ;>0 
06875		BYTE (6) 0
06880		BLOCK	2
06885		XWD SYM96,SYM94
06890		ASCII /URSCHD/
06895	
06900	
06905	
06910	
06915	SYM96:	SYM89	;HEADER FOR PRISET
06920		6
06925		POINT 7,.+10
06930		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
06935		0
06940		IFN DCS,<0+PRISET ;>0 
06945		BYTE (6) 13,1,0
06950		BLOCK	2
06955		XWD SYM97,SYM95
06960		ASCII /PRISET/
06965	
06970	
06975	
06980	
06985	SYM97:	SYM94	;HEADER FOR PSTATUS
06990		7
06995		POINT 7,.+10
07000		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07005		0
07010		IFN DCS,<0+PSTATUS ;>0 
07015		BYTE (6) 13,0
07020		BLOCK	2
07025		XWD SYM98,SYM96
07030		ASCII /PSTATUS/
07035	
07040	
07045	
07050	
07055	SYM98:	SYM74	;HEADER FOR INTPRO
07060		6
07065		POINT 7,.+10
07070		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07075		0
07080		IFN DCS,<0+INTPRO ;>0 
07085		BYTE (6) 0
07090		BLOCK	2
07095		XWD SYM99,SYM97
07100		ASCII /INTPRO/
07105	
07110	
07115	
07120	
07125	SYM99:	SYM88	;HEADER FOR ANSWER
07130		6
07135		POINT 7,.+10
07140		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07145		0
07150		IFN DCS,<0+ANSWER ;>0 
07155		BYTE (6) 13,13,13,0
07160		BLOCK	2
07165		XWD SYM100,SYM98
07170		ASCII /ANSWER/
07175	
07180	
07185	
07190	
07195	SYM100:	SYM96	;HEADER FOR SETCP
07200		5
07205		POINT 7,.+10
07210		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07215		0
07220		IFN DCS,<0+SETCP ;>0 
07225		BYTE (6) 13,13,0
07230		BLOCK	2
07235		XWD SYM101,SYM99
07240		ASCII /SETCP/
07245	
07250	
07255	
07260	
07265	SYM101:	SYM95	;HEADER FOR SETIP
07270		5
07275		POINT 7,.+10
07280		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07285		0
07290		IFN DCS,<0+SETIP ;>0 
07295		BYTE (6) 13,13,0
07300		BLOCK	2
07305		XWD SYM102,SYM100
07310		ASCII /SETIP/
07315	
07320	
07325	
07330	
07335	SYM102:	SYM53	;HEADER FOR CLRBUF
07340		6
07345		POINT 7,.+10
07350		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07355		0
07360		IFN DCS,<0+CLRBUF ;>0 
07365		BYTE (6) 0
07370		BLOCK	2
07375		XWD SYM103,SYM101
07380		ASCII /CLRBUF/
07385	
07390	
07395	
07400	
07405	SYM103:	SYM98	;HEADER FOR PTYGET
07410		6
07415		POINT 7,.+10
07420		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07425		0
07430		IFN DCS,<0+PTYGET ;>0 
07435		BYTE (6) 0
07440		BLOCK	2
07445		XWD SYM104,SYM102
07450		ASCII /PTYGET/
07455	
07460	
07465	
07470	
07475	SYM104:	SYM93	;HEADER FOR PTYREL
07480		6
07485		POINT 7,.+10
07490		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07495		0
07500		IFN DCS,<0+PTYREL ;>0 
07505		BYTE (6) 1,0
07510		BLOCK	2
07515		XWD SYM105,SYM103
07520		ASCII /PTYREL/
07525	
07530	
07535	
07540	
07545	SYM105:	SYM86	;HEADER FOR PTIFRE
07550		6
07555		POINT 7,.+10
07560		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07565		0
07570		IFN DCS,<0+PTIFRE ;>0 
07575		BYTE (6) 1,0
07580		BLOCK	2
07585		XWD SYM106,SYM104
07590		ASCII /PTIFRE/
07595	
07600	
07605	
07610	
07615	SYM106:	SYM105	;HEADER FOR PTOCNT
07620		6
07625		POINT 7,.+10
07630		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07635		0
07640		IFN DCS,<0+PTOCNT ;>0 
07645		BYTE (6) 1,0
07650		BLOCK	2
07655		XWD SYM107,SYM105
07660		ASCII /PTOCNT/
07665	
07670	
07675	
07680	
07685	SYM107:	SYM99	;HEADER FOR PTCHRW
07690		6
07695		POINT 7,.+10
07700		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07705		0
07710		IFN DCS,<0+PTCHRW ;>0 
07715		BYTE (6) 1,0
07720		BLOCK	2
07725		XWD SYM108,SYM106
07730		ASCII /PTCHRW/
07735	
07740	
07745	
07750	
07755	SYM108:	SYM107	;HEADER FOR PTCHRS
07760		6
07765		POINT 7,.+10
07770		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07775		0
07780		IFN DCS,<0+PTCHRS ;>0 
07785		BYTE (6) 1,0
07790		BLOCK	2
07795		XWD SYM109,SYM107
07800		ASCII /PTCHRS/
07805	
07810	
07815	
07820	
07825	SYM109:	SYM108	;HEADER FOR PTOCHS
07830		6
07835		POINT 7,.+10
07840		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07845		0
07850		IFN DCS,<0+PTOCHS ;>0 
07855		BYTE (6) 1,1,0
07860		BLOCK	2
07865		XWD SYM110,SYM108
07870		ASCII /PTOCHS/
07875	
07880	
07885	
07890	
07895	SYM110:	SYM109	;HEADER FOR PTOCHW
07900		6
07905		POINT 7,.+10
07910		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07915		0
07920		IFN DCS,<0+PTOCHW ;>0 
07925		BYTE (6) 1,1,0
07930		BLOCK	2
07935		XWD SYM111,SYM109
07940		ASCII /PTOCHW/
07945	
07950	
07955	
07960	
07965	SYM111:	SYM90	;HEADER FOR PTOSTR
07970		6
07975		POINT 7,.+10
07980		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07985		0
07990		IFN DCS,<0+PTOSTR ;>0 
07995		BYTE (6) 1,2,0
08000		BLOCK	2
08005		XWD SYM112,SYM110
08010		ASCII /PTOSTR/
08015	
08020	
08025	
08030	
08035	SYM112:	SYM104	;HEADER FOR BACKUP
08040		6
08045		POINT 7,.+10
08050		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
08055		0
08060		IFN DCS,<0+BACKUP ;>0 
08065		BYTE (6) 0
08070		BLOCK	2
08075		XWD SYM113,SYM111
08080		ASCII /BACKUP/
08085	
08090	
08095	
08100	
08105	SYM113:	SYM101	;HEADER FOR LODED
08110		5
08115		POINT 7,.+10
08120		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
08125		0
08130		IFN DCS,<0+LODED ;>0 
08135		BYTE (6) 2,0
08140		BLOCK	2
08145		XWD SYM114,SYM112
08150		ASCII /LODED/
08155	
08160	
08165	
08170	
08175	SYM114:	SYM77	;HEADER FOR PTYALL
08180		6
08185		POINT 7,.+10
08190		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
08195		0
08200		IFN DCS,<0+PTYALL ;>0 
08205		BYTE (6) 1,0
08210		BLOCK	2
08215		XWD SYM115,SYM113
08220		ASCII /PTYALL/
08225	
08230	
08235	
08240	
08245	SYM115:	SYM100	;HEADER FOR PTYSTR
08250		6
08255		POINT 7,.+10
08260		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
08265		0
08270		IFN DCS,<0+PTYSTR ;>0 
08275		BYTE (6) 1,1,0
08280		BLOCK	2
08285		XWD SYM116,SYM114
08290		ASCII /PTYSTR/
08295	
08300	
08305	
08310	
08315	SYM116:	SYM84	;HEADER FOR PTYIN
08320		5
08325		POINT 7,.+10
08330		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
08335		0
08340		IFN DCS,<0+PTYIN ;>0 
08345		BYTE (6) 1,1,3,0
08350		BLOCK	2
08355		XWD SYM117,SYM115
08360		ASCII /PTYIN/
08365	
08370	
08375	
08380	
08385	SYM117:	SYM106	;HEADER FOR IFGLOBAL
08390		10
08395		POINT 7,.+10
08400		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
08405		0
08410		IFN DCS,<0+IFGLOBAL ;>0 
08415		BYTE (6) 13,0
08420		BLOCK	2
08425		XWD SYM118,SYM116
08430		ASCII /IFGLOBAL/
08435	
08440	
08445	
08450	
08455	SYM118:	SYM114	;HEADER FOR ISSUE
08460		5
08465		POINT 7,.+10
08470		XWD	EXTRNL+OWN,PROCED+FORWRD+INTEGR
08475		0
08480		IFN DCS,<0+ISSUE ;>0 
08485		BYTE (6) 1,2,2,2,0
08490		BLOCK	2
08495		XWD SYM119,SYM117
08500		ASCII /ISSUE/
08505	
08510	
08515	
08520	
08525	SYM119:	SYM110	;HEADER FOR QUEUE
08530		5
08535		POINT 7,.+10
08540		XWD	EXTRNL+OWN,PROCED+FORWRD+INTEGR
08545		0
08550		IFN DCS,<0+QUEUE ;>0 
08555		BYTE (6) 1,1,0
08560		BLOCK	2
08565		XWD SYM120,SYM118
08570		ASCII /QUEUE/
08575	
08580	
08585	
08590	
08595	SYM120:	SYM111	;HEADER FOR GET_DATA
08600		10
08605		POINT 7,.+10
08610		XWD	EXTRNL+OWN,PROCED+FORWRD+STRING
08615		0
08620		IFN DCS,<0+GET.DATA ;>0 
08625		BYTE (6) 1,1,0
08630		BLOCK	2
08635		XWD SYM121,SYM119
08640		ASCII /GET_DATA/
08645	
08650	
08655	
08660	
08665	SYM121:	SYM118	;HEADER FOR PUT_DATA
08670		10
08675		POINT 7,.+10
08680		XWD	EXTRNL+OWN,PROCED+FORWRD+UNTYPE
08685		0
08690		IFN DCS,<0+PUT.DATA ;>0 
08695		BYTE (6) 1,1,2,0
08700		BLOCK	2
08705		XWD SYM122,SYM120
08710		ASCII /PUT_DATA/
08715	
08720	
08725	
08730	
08735	SYM122:	SYM103	;HEADER FOR GET_BIT
08740		7
08745		POINT 7,.+10
08750		XWD	EXTRNL+OWN,PROCED+FORWRD+INTEGR
08755		0
08760		IFN DCS,<0+GET.BIT ;>0 
08765		BYTE (6) 1,0
08770		BLOCK	2
08775		XWD SYM123,SYM121
08780		ASCII /GET_BIT/
08785	
08790	
08795	
08800	
08805	SYM123:	SYM122	;HEADER FOR GET_ENTRY
08810		11
08815		POINT 7,.+10
08820		XWD	EXTRNL+OWN,PROCED+FORWRD+INTEGR
08825		0
08830		IFN DCS,<0+GET.ENTRY ;>0 
08835		BYTE (6) 1,2,2,2,0
08840		BLOCK	2
08845		XWD SYM124,SYM122
08850		ASCII /GET_ENTRY/
08855	
08860	
08865	
08870	
08875	SYM124:	SYM87	;HEADER FOR GET_SET
08880		7
08885		POINT 7,.+10
08890		XWD	EXTRNL+OWN,PROCED+FORWRD+SET
08895		0
08900		IFN DCS,<0+GET.SET ;>0 
08905		BYTE (6) 1,2,2,2,0
08910		BLOCK	2
08915		XWD SYM125,SYM123
08920		ASCII /GET_SET/
08925	
08930	
08935	
08940	
08945	↑BLTTBL←.-1
08950	XWD VALUE,INTEGR
08955	XWD VALUE,STRING
08960	XWD REFRNC,INTEGR
08965	XWD REFRNC,STRING
08970	XWD VALUE,INTEGR+FLOTNG
08975	XWD REFRNC,INTEGR+FLOTNG+ITMVAR
08980	XWD VALUE,FLOTNG
08985	XWD REFRNC+SBSCRP,INTEGR+FLOTNG+SET+LSTBIT+ITMVAR+STRING
08990	XWD REFRNC,INTEGR+FLOTNG+ITMVAR+SET
08995	XWD REFRNC+SBSCRP,INTEGR+FLOTNG+ITMVAR+SET+LSTBIT+STRING
09000	XWD VALUE,ITMVAR
09005	XWD VALUE,LSTBIT+SET
09010	XWD REFRNC+SBSCRP,INTEGR
09015	XWD VALUE,SET
09020	XWD REFRNC,PROCED
09025	SYM125←0
09030	 
09035	SYM126:	XWD 0,SYM115
09040		4
09045		POINT 7,.+2
09050		XWD RES+CLSIDX,222
09055		ASCIZ/BBPP/
09060	 
09065	SYM127:	XWD SYM126,SYM124
09070		5
09075		POINT 7,.+2
09080		XWD RES+CLSIDX,236
09085		ASCIZ/BEGIN/
09090	 
09095	SYM128:	XWD SYM127,SYM113
09100		10
09105		POINT 7,.+2
09110		XWD RES+CLSIDX,152
09115		ASCIZ/REMEMBER/
09120	 
09125	SYM129:	XWD SYM128,SYM126
09130		6
09135		POINT 7,.+2
09140		XWD RES+CLSIDX,172
09145		ASCIZ/SECOND/
09150	 
09155	SYM130:	XWD SYM129,SYM121
09160		3
09165		POINT 7,.+2
09170		XWD RES+CLSIDX,332
09175		ASCIZ/PHI/
09180	 
09185	SYM131:	XWD SYM130,SYM129
09190		12
09195		POINT 7,.+2
09200		XWD RES+CLSIDX,234
09205		ASCIZ/START_CODE/
09210	 
09215	SYM132:	XWD SYM131,SYM120
09220		3
09225		POINT 7,.+2
09230		XWD RES+CLSIDX,157
09235		ASCIZ/INF/
09240	 
09245	SYM133:	XWD SYM132,SYM119
09250		4
09255		POINT 7,.+2
09260		XWD RES+CLSIDX,241
09265		ASCIZ/CASE/
09270	 
09275	SYM134:	XWD SYM133,SYM92
09280		14
09285		POINT 7,.+2
09290		XWD RES+CLSIDX,115
09295		ASCIZ/SEGMENT_NAME/
09300	 
09305	SYM135:	XWD SYM134,SYM112
09310		7
09315		POINT 7,.+2
09320		XWD RES+CLSIDX,105
09325		ASCIZ/LIBRARY/
09330	 
09335	SYM136:	XWD SYM135,SYM135
09340		12
09345		POINT 7,.+2
09350		XWD RES+CLSIDX,77
09355		ASCIZ/SYSTEM_PDL/
09360	 
09365	SYM137:	XWD SYM136,SYM134
09370		5
09375		POINT 7,.+2
09380		XWD RES+CLSIDX,305
09385		ASCIZ/CAUSE/
09390	 
09395	SYM138:	XWD SYM137,SYM130
09400		3
09405		POINT 7,.+2
09410		XWD RES+CLSIDX,333
09415		ASCIZ/ALL/
09420	 
09425	SYM139:	XWD SYM138,SYM131
09430		5
09435		POINT 7,.+2
09440		XWD RES+CLSIDX,224
09445		ASCIZ/DATUM/
09450	 
09455	SYM140:	XWD SYM139,SYM136
09460		5
09465		POINT 7,.+2
09470		XWD RES+CLSIDX,242
09475		ASCIZ/CASEC/
09480	 
09485	SYM141:	XWD SYM140,SYM138
09490		5
09495		POINT 7,.+2
09500		XWD RES+CLSIDX,303
09505		ASCIZ/APPLY/
09510	 
09515	SYM142:	XWD SYM141,SYM133
09520		11
09525		POINT 7,.+2
09530		XWD RES+CLSIDX,64
09535		ASCIZ/PROCEDURE/
09540	 
09545	SYM143:	XWD SYM142,SYM127
09550		11
09555		POINT 7,.+2
09560		XWD RES+CLSIDX,114
09565		ASCIZ/ALLGLOBAL/
09570	 
09575	SYM144:	XWD SYM143,SYM116
09580		4
09585		POINT 7,.+2
09590		XWD RES+CLSIDX,140
09595		ASCIZ/FROM/
09600	 
09605	SYM145:	XWD SYM144,SYM142
09610		3
09615		POINT 7,.+2
09620		XWD RES+CLSIDX,34
09625		ASCIZ/ABS/
09630	 
09635	SYM146:	XWD SYM145,SYM123
09640		5
09645		POINT 7,.+2
09650		XWD RES+CLSIDX,176
09655		ASCIZ/CVSET/
09660	 
09665	SYM147:	XWD SYM146,SYM137
09670		2
09675		POINT 7,.+2
09680		XWD RES+CLSIDX,314
09685		ASCIZ/OR/
09690	 
09695	SYM148:	XWD SYM147,SYM143
09700		5
09705		POINT 7,.+2
09710		XWD RES+CLSIDX,230
09715		ASCIZ/PROPS/
09720	 
09725	SYM149:	XWD SYM148,SYM102
09730		16
09735		POINT 7,.+2
09740		XWD RES+CLSIDX,334
09745		ASCIZ/INITIALIZATION/
09750	 
09755	SYM150:	XWD SYM149,SYM128
09760		3
09765		POINT 7,.+2
09770		XWD RES+CLSIDX,37
09775		ASCIZ/EQV/
09780	 
09785	SYM151:	XWD SYM150,SYM145
09790		3
09795		POINT 7,.+2
09800		XWD RES+CLSIDX,312
09805		ASCIZ/AND/
09810	 
09815	SYM152:	XWD SYM151,SYM150
09820		7
09825		POINT 7,.+2
09830		XWD RES+CLSIDX,10
09835		ASCIZ/BOOLEAN/
09840	 
09845	SYM153:	XWD SYM152,SYM147
09850		5
09855		POINT 7,.+2
09860		XWD RES+CLSIDX,276
09865		ASCIZ/THENC/
09870	 
09875	SYM154:	XWD SYM153,SYM148
09880		22
09885		POINT 7,.+2
09890		XWD RES+CLSIDX,112
09895		ASCIZ/UNSTACK_DELIMITERS/
09900	 
09905	SYM155:	XWD SYM154,SYM146
09910		7
09915		POINT 7,.+2
09920		XWD RES+CLSIDX,335
09925		ASCIZ/COMMENT/
09930	 
09935	SYM156:	XWD SYM155,SYM117
09940		10
09945		POINT 7,.+2
09950		XWD RES+CLSIDX,336
09955		ASCIZ/LOCATION/
09960	 
09965	SYM157:	XWD SYM156,SYM153
09970		14
09975		POINT 7,.+2
09980		XWD RES+CLSIDX,116
09985		ASCIZ/SEGMENT_FILE/
09990	 
09995	SYM158:	XWD SYM157,SYM139
10000		11
10005		POINT 7,.+2
10010		XWD RES+CLSIDX,103
10015		ASCIZ/NEW_ITEMS/
10020	 
10025	SYM159:	XWD SYM158,SYM149
10030		7
10035		POINT 7,.+2
10040		XWD RES+CLSIDX,72
10045		ASCIZ/CLEANUP/
10050	 
10055	SYM160:	XWD SYM159,SYM155
10060		4
10065		POINT 7,.+2
10070		XWD RES+CLSIDX,225
10075		ASCIZ/DONE/
10080	 
10085	SYM161:	XWD SYM160,SYM157
10090		5
10095		POINT 7,.+2
10100		XWD RES+CLSIDX,173
10105		ASCIZ/THIRD/
10110	 
10115	SYM162:	XWD SYM161,SYM132
10120		7
10125		POINT 7,.+2
10130		XWD RES+CLSIDX,22
10135		ASCIZ/FORWARD/
10140	 
10145	SYM163:	XWD SYM162,SYM144
10150		3
10155		POINT 7,.+2
10160		XWD RES+CLSIDX,245
10165		ASCIZ/DOC/
10170	 
10175	SYM164:	XWD SYM163,SYM161
10180		4
10185		POINT 7,.+2
10190		XWD RES+CLSIDX,337
10195		ASCIZ/NEXT/
10200	 
10205	SYM165:	XWD SYM164,SYM97
10210		6
10215		POINT 7,.+2
10220		XWD RES+CLSIDX,65
10225		ASCIZ/DEFINE/
10230	 
10235	SYM166:	XWD SYM165,SYM164
10240		6
10245		POINT 7,.+2
10250		XWD RES+CLSIDX,166
10255		ASCIZ/LENGTH/
10260	 
10265	SYM167:	XWD SYM166,SYM156
10270		6
10275		POINT 7,.+2
10280		XWD RES+CLSIDX,24
10285		ASCIZ/SIMPLE/
10290	 
10295	SYM168:	XWD SYM167,SYM163
10300		5
10305		POINT 7,.+2
10310		XWD RES+CLSIDX,340
10315		ASCIZ/ARRAY/
10320	 
10325	SYM169:	XWD SYM168,SYM141
10330		13
10335		POINT 7,.+2
10340		XWD RES+CLSIDX,106
10345		ASCIZ/LOAD_MODULE/
10350	 
10355	SYM170:	XWD SYM169,SYM167
10360		6
10365		POINT 7,.+2
10370		XWD RES+CLSIDX,226
10375		ASCIZ/DELETE/
10380	 
10385	SYM171:	XWD SYM170,SYM140
10390		22
10395		POINT 7,.+2
10400		XWD RES+CLSIDX,111
10405		ASCIZ/REPLACE_DELIMITERS/
10410	 
10415	SYM172:	XWD SYM171,SYM166
10420		5
10425		POINT 7,.+2
10430		XWD RES+CLSIDX,155
10435		ASCIZ/AFTER/
10440	 
10445	SYM173:	XWD SYM172,SYM154
10450		7
10455		POINT 7,.+2
10460		XWD RES+CLSIDX,252
10465		ASCIZ/FOREACH/
10470	 
10475	SYM174:	XWD SYM173,SYM160
10480		12
10485		POINT 7,.+2
10490		XWD RES+CLSIDX,326
10495		ASCIZ/NOW_UNSAFE/
10500	 
10505	SYM175:	XWD SYM174,SYM168
10510		5
10515		POINT 7,.+2
10520		XWD RES+CLSIDX,341
10525		ASCIZ/UNION/
10530	 
10535	SYM176:	XWD SYM175,SYM151
10540		12
10545		POINT 7,.+2
10550		XWD RES+CLSIDX,235
10555		ASCIZ/QUICK_CODE/
10560	 
10565	SYM177:	XWD SYM176,SYM162
10570		12
10575		POINT 7,.+2
10580		XWD RES+CLSIDX,342
10585		ASCIZ/LEAP_ARRAY/
10590	 
10595	SYM178:	XWD SYM177,SYM169
10600		2
10605		POINT 7,.+2
10610		XWD RES+CLSIDX,270
10615		ASCIZ/OF/
10620	 
10625	SYM179:	XWD SYM178,SYM165
10630		7
10635		POINT 7,.+2
10640		XWD RES+CLSIDX,154
10645		ASCIZ/RESTORE/
10650	 
10655	SYM180:	XWD SYM179,SYM152
10660		11
10665		POINT 7,.+2
10670		XWD RES+CLSIDX,20
10675		ASCIZ/RECURSIVE/
10680	 
10685	SYM181:	XWD SYM180,SYM178
10690		3
10695		POINT 7,.+2
10700		XWD RES+CLSIDX,47
10705		ASCIZ/LSH/
10710	 
10715	SYM182:	XWD SYM181,SYM174
10720		3
10725		POINT 7,.+2
10730		XWD RES+CLSIDX,146
10735		ASCIZ/PUT/
10740	 
10745	SYM183:	XWD SYM182,SYM182
10750		3
10755		POINT 7,.+2
10760		XWD RES+CLSIDX,175
10765		ASCIZ/CVI/
10770	 
10775	SYM184:	XWD SYM183,SYM171
10780		4
10785		POINT 7,.+2
10790		XWD RES+CLSIDX,5
10795		ASCIZ/REAL/
10800	 
10805	SYM185:	XWD SYM184,SYM159
10810		4
10815		POINT 7,.+2
10820		XWD RES+CLSIDX,324
10825		ASCIZ/SETC/
10830	 
10835	SYM186:	XWD SYM185,SYM158
10840		7
10845		POINT 7,.+2
10850		XWD RES+CLSIDX,150
10855		ASCIZ/SUCCEED/
10860	 
10865	SYM187:	XWD SYM186,SYM185
10870		4
10875		POINT 7,.+2
10880		XWD RES+CLSIDX,11
10885		ASCIZ/LIST/
10890	 
10895	SYM188:	XWD SYM187,SYM172
10900		6
10905		POINT 7,.+2
10910		XWD RES+CLSIDX,26
10915		ASCIZ/GLOBAL/
10920	 
10925	SYM189:	XWD SYM188,SYM188
10930		10
10935		POINT 7,.+2
10940		XWD RES+CLSIDX,343
10945		ASCIZ/BUILT_IN/
10950	 
10955	SYM190:	XWD SYM189,SYM187
10960		6
10965		POINT 7,.+2
10970		XWD RES+CLSIDX,7
10975		ASCIZ/STRING/
10980	 
10985	SYM191:	XWD SYM190,SYM175
10990		13
10995		POINT 7,.+2
11000		XWD RES+CLSIDX,306
11005		ASCIZ/INTERROGATE/
11010	 
11015	SYM192:	XWD SYM191,SYM177
11020		4
11025		POINT 7,.+2
11030		XWD RES+CLSIDX,344
11035		ASCIZ/BIND/
11040	 
11045	SYM193:	XWD SYM192,SYM192
11050		4
11055		POINT 7,.+2
11060		XWD RES+CLSIDX,167
11065		ASCIZ/ILDB/
11070	 
11075	SYM194:	XWD SYM193,SYM170
11080		4
11085		POINT 7,.+2
11090		XWD RES+CLSIDX,1
11095		ASCIZ/ITEM/
11100	 
11105	SYM195:	XWD SYM194,SYM191
11110		4
11115		POINT 7,.+2
11120		XWD RES+CLSIDX,345
11125		ASCIZ/THAT/
11130	 
11135	SYM196:	XWD SYM195,SYM193
11140		6
11145		POINT 7,.+2
11150		XWD RES+CLSIDX,76
11155		ASCIZ/PNAMES/
11160	 
11165	SYM197:	XWD SYM196,SYM179
11170		11
11175		POINT 7,.+2
11180		XWD RES+CLSIDX,307
11185		ASCIZ/EXPR_TYPE/
11190	 
11195	SYM198:	XWD SYM197,SYM189
11200		6
11205		POINT 7,.+2
11210		XWD RES+CLSIDX,177
11215		ASCIZ/CVLIST/
11220	 
11225	SYM199:	XWD SYM198,SYM184
11230		2
11235		POINT 7,.+2
11240		XWD RES+CLSIDX,137
11245		ASCIZ/IN/
11250	 
11255	SYM200:	XWD SYM199,SYM183
11260		10
11265		POINT 7,.+2
11270		XWD RES+CLSIDX,16
11275		ASCIZ/EXTERNAL/
11280	 
11285	SYM201:	XWD SYM200,SYM196
11290		10
11295		POINT 7,.+2
11300		XWD RES+CLSIDX,346
11305		ASCIZ/NEEDNEXT/
11310	 
11315	SYM202:	XWD SYM201,SYM181
11320		4
11325		POINT 7,.+2
11330		XWD RES+CLSIDX,40
11335		ASCIZ/LAND/
11340	 
11345	SYM203:	XWD SYM202,SYM198
11350		7
11355		POINT 7,.+2
11360		XWD RES+CLSIDX,6
11365		ASCIZ/INTEGER/
11370	 
11375	SYM204:	XWD SYM203,SYM199
11380		13
11385		POINT 7,.+2
11390		XWD RES+CLSIDX,347
11395		ASCIZ/DECLARATION/
11400	 
11405	SYM205:	XWD SYM204,SYM202
11410		12
11415		POINT 7,.+2
11420		XWD RES+CLSIDX,100
11425		ASCIZ/STRING_PDL/
11430	 
11435	SYM206:	XWD SYM205,SYM203
11440		7
11445		POINT 7,.+2
11450		XWD RES+CLSIDX,13
11455		ASCIZ/CONTEXT/
11460	 
11465	SYM207:	XWD SYM206,SYM176
11470		6
11475		POINT 7,.+2
11480		XWD RES+CLSIDX,147
11485		ASCIZ/REMOVE/
11490	 
11495	SYM208:	XWD SYM207,SYM200
11500		3
11505		POINT 7,.+2
11510		XWD RES+CLSIDX,60
11515		ASCIZ/LEQ/
11520	 
11525	SYM209:	XWD SYM208,SYM207
11530		4
11535		POINT 7,.+2
11540		XWD RES+CLSIDX,126
11545		ASCIZ/STEP/
11550	 
11555	SYM210:	XWD SYM209,SYM206
11560		5
11565		POINT 7,.+2
11570		XWD RES+CLSIDX,171
11575		ASCIZ/FIRST/
11580	 
11585	SYM211:	XWD SYM210,SYM190
11590		4
11595		POINT 7,.+2
11600		XWD RES+CLSIDX,144
11605		ASCIZ/MAKE/
11610	 
11615	SYM212:	XWD SYM211,SYM205
11620		10
11625		POINT 7,.+2
11630		XWD RES+CLSIDX,311
11635		ASCIZ/REF_ITEM/
11640	 
11645	SYM213:	XWD SYM212,SYM204
11650		6
11655		POINT 7,.+2
11660		XWD RES+CLSIDX,350
11665		ASCIZ/SAMEIV/
11670	 
11675	SYM214:	XWD SYM213,SYM210
11680		2
11685		POINT 7,.+2
11690		XWD RES+CLSIDX,132
11695		ASCIZ/TO/
11700	 
11705	SYM215:	XWD SYM214,SYM194
11710		5
11715		POINT 7,.+2
11720		XWD RES+CLSIDX,351
11725		ASCIZ/ENTRY/
11730	 
11735	SYM216:	XWD SYM215,SYM214
11740		13
11745		POINT 7,.+2
11750		XWD RES+CLSIDX,71
11755		ASCIZ/PROTECT_ACS/
11760	 
11765	SYM217:	XWD SYM216,SYM216
11770		5
11775		POINT 7,.+2
11780		XWD RES+CLSIDX,43
11785		ASCIZ/ASSOC/
11790	 
11795	SYM218:	XWD SYM217,SYM208
11800		4
11805		POINT 7,.+2
11810		XWD RES+CLSIDX,352
11815		ASCIZ/FORC/
11820	 
11825	SYM219:	XWD SYM218,SYM212
11830		6
11835		POINT 7,.+2
11840		XWD RES+CLSIDX,153
11845		ASCIZ/FORGET/
11850	 
11855	SYM220:	XWD SYM219,SYM173
11860		3
11865		POINT 7,.+2
11870		XWD RES+CLSIDX,41
11875		ASCIZ/LOR/
11880	 
11885	SYM221:	XWD SYM220,SYM197
11890		4
11895		POINT 7,.+2
11900		XWD RES+CLSIDX,301
11905		ASCIZ/SWAP/
11910	 
11915	SYM222:	XWD SYM221,SYM218
11920		4
11925		POINT 7,.+2
11930		XWD RES+CLSIDX,200
11935		ASCIZ/IDPB/
11940	 
11945	SYM223:	XWD SYM222,SYM217
11950		2
11955		POINT 7,.+2
11960		XWD RES+CLSIDX,313
11965		ASCIZ/IF/
11970	 
11975	SYM224:	XWD SYM223,SYM221
11980		3
11985		POINT 7,.+2
11990		XWD RES+CLSIDX,202
11995		ASCIZ/IBP/
12000	 
12005	SYM225:	XWD SYM224,SYM180
12010		3
12015		POINT 7,.+2
12020		XWD RES+CLSIDX,164
12025		ASCIZ/LOP/
12030	 
12035	SYM226:	XWD SYM225,SYM224
12040		3
12045		POINT 7,.+2
12050		XWD RES+CLSIDX,134
12055		ASCIZ/END/
12060	 
12065	SYM227:	XWD SYM226,SYM226
12070		3
12075		POINT 7,.+2
12080		XWD RES+CLSIDX,62
12085		ASCIZ/MAX/
12090	 
12095	SYM228:	XWD SYM227,SYM227
12100		4
12105		POINT 7,.+2
12110		XWD RES+CLSIDX,275
12115		ASCIZ/THEN/
12120	 
12125	SYM229:	XWD SYM228,SYM186
12130		12
12135		POINT 7,.+2
12140		XWD RES+CLSIDX,353
12145		ASCIZ/CHECK_TYPE/
12150	 
12155	SYM230:	XWD SYM229,SYM213
12160		10
12165		POINT 7,.+2
12170		XWD RES+CLSIDX,163
12175		ASCIZ/ISTRIPLE/
12180	 
12185	SYM231:	XWD SYM230,SYM219
12190		4
12195		POINT 7,.+2
12200		XWD RES+CLSIDX,15
12205		ASCIZ/SAFE/
12210	 
12215	SYM232:	XWD SYM231,SYM231
12220		4
12225		POINT 7,.+2
12230		XWD RES+CLSIDX,135
12235		ASCIZ/ELSE/
12240	 
12245	SYM233:	XWD SYM232,SYM222
12250		3
12255		POINT 7,.+2
12260		XWD RES+CLSIDX,170
12265		ASCIZ/LDB/
12270	 
12275	SYM234:	XWD SYM233,SYM233
12280		6
12285		POINT 7,.+2
12290		XWD RES+CLSIDX,304
12295		ASCIZ/SPROUT/
12300	 
12305	SYM235:	XWD SYM234,SYM220
12310		5
12315		POINT 7,.+2
12320		XWD RES+CLSIDX,162
12325		ASCIZ/FALSE/
12330	 
12335	SYM236:	XWD SYM235,SYM234
12340		12
12345		POINT 7,.+2
12350		XWD RES+CLSIDX,260
12355		ASCIZ/IN_CONTEXT/
12360	 
12365	SYM237:	XWD SYM236,SYM230
12370		3
12375		POINT 7,.+2
12380		XWD RES+CLSIDX,267
12385		ASCIZ/NEW/
12390	 
12395	SYM238:	XWD SYM237,SYM211
12400		3
12405		POINT 7,.+2
12410		XWD RES+CLSIDX,271
12415		ASCIZ/OFC/
12420	 
12425	SYM239:	XWD SYM238,SYM228
12430		11
12435		POINT 7,.+2
12440		XWD RES+CLSIDX,102
12445		ASCIZ/ARRAY_PDL/
12450	 
12455	SYM240:	XWD SYM239,SYM225
12460		3
12465		POINT 7,.+2
12470		XWD RES+CLSIDX,3
12475		ASCIZ/SET/
12480	 
12485	SYM241:	XWD SYM240,SYM235
12490		5
12495		POINT 7,.+2
12500		XWD RES+CLSIDX,127
12505		ASCIZ/UNTIL/
12510	 
12515	SYM242:	XWD SYM241,SYM215
12520		5
12525		POINT 7,.+2
12530		XWD RES+CLSIDX,145
12535		ASCIZ/ERASE/
12540	 
12545	SYM243:	XWD SYM242,SYM238
12550		3
12555		POINT 7,.+2
12560		XWD RES+CLSIDX,133
12565		ASCIZ/FOR/
12570	 
12575	SYM244:	XWD SYM243,SYM209
12580		20
12585		POINT 7,.+2
12590		XWD RES+CLSIDX,120
12595		ASCIZ/POLLING_INTERVAL/
12600	 
12605	SYM245:	XWD SYM244,SYM237
12610		6
12615		POINT 7,.+2
12620		XWD RES+CLSIDX,354
12625		ASCIZ/ACCESS/
12630	 
12635	SYM246:	XWD SYM245,SYM239
12640		3
12645		POINT 7,.+2
12650		XWD RES+CLSIDX,63
12655		ASCIZ/MIN/
12660	 
12665	SYM247:	XWD SYM246,SYM232
12670		10
12675		POINT 7,.+2
12680		XWD RES+CLSIDX,12
12685		ASCIZ/KILL_SET/
12690	 
12695	SYM248:	XWD SYM247,SYM242
12700		10
12705		POINT 7,.+2
12710		XWD RES+CLSIDX,14
12715		ASCIZ/INTERNAL/
12720	 
12725	SYM249:	XWD SYM248,SYM240
12730		10
12735		POINT 7,.+2
12740		XWD RES+CLSIDX,325
12745		ASCIZ/NOW_SAFE/
12750	 
12755	SYM250:	XWD SYM249,SYM236
12760		4
12765		POINT 7,.+2
12770		XWD RES+CLSIDX,161
12775		ASCIZ/TRUE/
12780	 
12785	SYM251:	XWD SYM250,SYM243
12790		3
12795		POINT 7,.+2
12800		XWD RES+CLSIDX,201
12805		ASCIZ/DPB/
12810	 
12815	SYM252:	XWD SYM251,SYM241
12820		5
12825		POINT 7,.+2
12830		XWD RES+CLSIDX,4
12835		ASCIZ/LABEL/
12840	 
12845	SYM253:	XWD SYM252,SYM244
12850		5
12855		POINT 7,.+2
12860		XWD RES+CLSIDX,130
12865		ASCIZ/WHILE/
12870	 
12875	SYM254:	XWD SYM253,SYM245
12880		12
12885		POINT 7,.+2
12890		XWD RES+CLSIDX,110
12895		ASCIZ/DELIMITERS/
12900	 
12905	SYM255:	XWD SYM254,SYM250
12910		4
12915		POINT 7,.+2
12920		XWD RES+CLSIDX,355
12925		ASCIZ/GOTO/
12930	 
12935	SYM256:	XWD SYM255,SYM195
12940		3
12945		POINT 7,.+2
12950		XWD RES+CLSIDX,17
12955		ASCIZ/OWN/
12960	 
12965	SYM257:	XWD SYM256,SYM253
12970		3
12975		POINT 7,.+2
12980		XWD RES+CLSIDX,42
12985		ASCIZ/XOR/
12990	 
12995	SYM258:	XWD SYM257,SYM249
13000		10
13005		POINT 7,.+2
13010		XWD RES+CLSIDX,25
13015		ASCIZ/MATCHING/
13020	 
13025	SYM259:	XWD SYM258,SYM254
13030		6
13035		POINT 7,.+2
13040		XWD RES+CLSIDX,300
13045		ASCIZ/WHILEC/
13050	 
13055	SYM260:	XWD SYM259,SYM256
13060		17
13065		POINT 7,.+2
13070		XWD RES+CLSIDX,113
13075		ASCIZ/NULL_DELIMITERS/
13080	 
13085	SYM261:	XWD SYM260,SYM258
13090		14
13095		POINT 7,.+2
13100		XWD RES+CLSIDX,67
13105		ASCIZ/PRELOAD_WITH/
13110	 
13115	SYM262:	XWD SYM261,SYM260
13120		6
13125		POINT 7,.+2
13130		XWD RES+CLSIDX,320
13135		ASCIZ/UNTILC/
13140	 
13145	SYM263:	XWD SYM262,SYM223
13150		3
13155		POINT 7,.+2
13160		XWD RES+CLSIDX,51
13165		ASCIZ/DIV/
13170	 
13175	SYM264:	XWD SYM263,SYM229
13180		3
13185		POINT 7,.+2
13190		XWD RES+CLSIDX,57
13195		ASCIZ/NEQ/
13200	 
13205	SYM265:	XWD SYM264,SYM255
13210		5
13215		POINT 7,.+2
13220		XWD RES+CLSIDX,356
13225		ASCIZ/FORLC/
13230	 
13235	SYM266:	XWD SYM265,SYM264
13240		7
13245		POINT 7,.+2
13250		XWD RES+CLSIDX,104
13255		ASCIZ/VERSION/
13260	 
13265	SYM267:	XWD SYM266,SYM266
13270		3
13275		POINT 7,.+2
13280		XWD RES+CLSIDX,357
13285		ASCIZ/NIL/
13290	 
13295	SYM268:	XWD SYM267,SYM246
13300		6
13305		POINT 7,.+2
13310		XWD RES+CLSIDX,272
13315		ASCIZ/RETURN/
13320	 
13325	SYM269:	XWD SYM268,SYM248
13330		5
13335		POINT 7,.+2
13340		XWD RES+CLSIDX,23
13345		ASCIZ/SHORT/
13350	 
13355	SYM270:	XWD SYM269,SYM257
13360		4
13365		POINT 7,.+2
13370		XWD RES+CLSIDX,360
13375		ASCIZ/SETO/
13380	 
13385	SYM271:	XWD SYM270,SYM270
13390		4
13395		POINT 7,.+2
13400		XWD RES+CLSIDX,160
13405		ASCIZ/NULL/
13410	 
13415	SYM272:	XWD SYM271,SYM269
13420		14
13425		POINT 7,.+2
13430		XWD RES+CLSIDX,361
13435		ASCIZ/NULL_CONTEXT/
13440	 
13445	SYM273:	XWD SYM272,SYM259
13450		5
13455		POINT 7,.+2
13460		XWD RES+CLSIDX,317
13465		ASCIZ/STEPC/
13470	 
13475	SYM274:	XWD SYM273,SYM267
13480		4
13485		POINT 7,.+2
13490		XWD RES+CLSIDX,33
13495		ASCIZ/LNOT/
13500	 
13505	SYM275:	XWD SYM274,SYM252
13510		5
13515		POINT 7,.+2
13520		XWD RES+CLSIDX,362
13525		ASCIZ/INTER/
13530	 
13535	SYM276:	XWD SYM275,SYM274
13540		6
13545		POINT 7,.+2
13550		XWD RES+CLSIDX,227
13555		ASCIZ/MEMORY/
13560	 
13565	SYM277:	XWD SYM276,SYM268
13570		3
13575		POINT 7,.+2
13580		XWD RES+CLSIDX,61
13585		ASCIZ/GEQ/
13590	 
13595	SYM278:	XWD SYM277,SYM261
13600		2
13605		POINT 7,.+2
13610		XWD RES+CLSIDX,141
13615		ASCIZ/DO/
13620	 
13625	SYM279:	XWD SYM278,SYM278
13630		3
13635		POINT 7,.+2
13640		XWD RES+CLSIDX,165
13645		ASCIZ/CVN/
13650	 
13655	SYM280:	XWD SYM279,SYM272
13660		4
13665		POINT 7,.+2
13670		XWD RES+CLSIDX,316
13675		ASCIZ/ENDC/
13680	 
13685	SYM281:	XWD SYM280,SYM275
13690		3
13695		POINT 7,.+2
13700		XWD RES+CLSIDX,50
13705		ASCIZ/ROT/
13710	 
13715	SYM282:	XWD SYM281,SYM271
13720		11
13725		POINT 7,.+2
13730		XWD RES+CLSIDX,30
13735		ASCIZ/REFERENCE/
13740	 
13745	SYM283:	XWD SYM282,SYM282
13750		11
13755		POINT 7,.+2
13760		XWD RES+CLSIDX,117
13765		ASCIZ/PROCESSES/
13770	 
13775	SYM284:	XWD SYM283,SYM201
13780		3
13785		POINT 7,.+2
13790		XWD RES+CLSIDX,254
13795		ASCIZ/IFC/
13800	 
13805	SYM285:	XWD SYM284,SYM263
13810		3
13815		POINT 7,.+2
13820		XWD RES+CLSIDX,232
13825		ASCIZ/NOT/
13830	 
13835	SYM286:	XWD SYM285,SYM265
13840		5
13845		POINT 7,.+2
13850		XWD RES+CLSIDX,315
13855		ASCIZ/ELSEC/
13860	 
13865	SYM287:	XWD SYM286,SYM276
13870		4
13875		POINT 7,.+2
13880		XWD RES+CLSIDX,151
13885		ASCIZ/FAIL/
13890	 
13895	SYM288:	XWD SYM287,SYM280
13900		3
13905		POINT 7,.+2
13910		XWD RES+CLSIDX,52
13915		ASCIZ/MOD/
13920	 
13925	SYM289:	XWD SYM288,SYM286
13930		4
13935		POINT 7,.+2
13940		XWD RES+CLSIDX,363
13945		ASCIZ/CVMS/
13950	 
13955	SYM290:	XWD SYM289,SYM288
13960		4
13965		POINT 7,.+2
13970		XWD RES+CLSIDX,364
13975		ASCIZ/POLL/
13980	 
13985	SYM291:	XWD SYM290,SYM251
13990		6
13995		POINT 7,.+2
14000		XWD RES+CLSIDX,156
14005		ASCIZ/BEFORE/
14010	 
14015	SYM292:	XWD SYM291,SYM279
14020		5
14025		POINT 7,.+2
14030		XWD RES+CLSIDX,31
14035		ASCIZ/VALUE/
14040	 
14045	SYM293:	XWD SYM292,SYM284
14050		12
14055		POINT 7,.+2
14060		XWD RES+CLSIDX,365
14065		ASCIZ/DEPENDENTS/
14070	 
14075	SYM294:	XWD SYM293,SYM290
14080		7
14085		POINT 7,.+2
14090		XWD RES+CLSIDX,27
14095		ASCIZ/MESSAGE/
14100	 
14105	SYM295:	XWD SYM294,SYM293
14110		14
14115		POINT 7,.+2
14120		XWD RES+CLSIDX,101
14125		ASCIZ/STRING_SPACE/
14130	 
14135	SYM296:	XWD SYM295,SYM281
14140		5
14145		POINT 7,.+2
14150		XWD RES+CLSIDX,323
14155		ASCIZ/LISTC/
14160	 
14165	SYM297:	XWD SYM296,SYM287
14170		3
14175		POINT 7,.+2
14180		XWD RES+CLSIDX,174
14185		ASCIZ/COP/
14190	 
14195	SYM298:	XWD SYM297,SYM285
14200		10
14205		POINT 7,.+2
14210		XWD RES+CLSIDX,366
14215		ASCIZ/CONTINUE/
14220	 
14225	SYM299:	XWD SYM298,SYM283
14230		3
14235		POINT 7,.+2
14240		XWD RES+CLSIDX,70
14245		ASCIZ/LET/
14250	 
14255	SYM300:	XWD SYM299,SYM298
14260		2
14265		POINT 7,.+2
14270		XWD RES+CLSIDX,367
14275		ASCIZ/GO/
14280	 
14285	SYM301:	XWD SYM300,SYM295
14290		10
14295		POINT 7,.+2
14300		XWD RES+CLSIDX,370
14305		ASCIZ/RESERVED/
14310	 
14315	SYM302:	XWD SYM301,SYM277
14320		6
14325		POINT 7,.+2
14330		XWD RES+CLSIDX,302
14335		ASCIZ/ASSIGN/
14340	 
14345	SYM303:	XWD SYM302,SYM301
14350		13
14355		POINT 7,.+2
14360		XWD RES+CLSIDX,107
14365		ASCIZ/SOURCE_FILE/
14370	 
14375	SYM304:	XWD SYM303,SYM299
14380		4
14385		POINT 7,.+2
14390		XWD RES+CLSIDX,371
14395		ASCIZ/SUCH/
14400	 
14405	SYM305:	XWD SYM304,SYM304
14410		7
14415		POINT 7,.+2
14420		XWD RES+CLSIDX,66
14425		ASCIZ/REQUIRE/
14430	 
14435	SYM306:	XWD SYM305,SYM294
14440		5
14445		POINT 7,.+2
14450		XWD RES+CLSIDX,372
14455		ASCIZ/LISTO/
14460	 
14465	SYM307:	XWD SYM306,SYM289
14470		7
14475		POINT 7,.+2
14480		XWD RES+CLSIDX,21
14485		ASCIZ/FORTRAN/
14490	 
14495	SYM308:	XWD SYM307,SYM307
14500		7
14505		POINT 7,.+2
14510		XWD RES+CLSIDX,2
14515		ASCIZ/ITEMVAR/
14520	SYM308
14525	↑RESEND:
14530	
14535	
14540	
14545	
14550	↑MBUCK:	;INITIALIZED BUCKET
14555		XWD SYM305,SYM303
14560		XWD SYM302,SYM273
14565		XWD SYM291,SYM300
14570		XWD SYM262,SYM296
14575		XWD SYM247,SYM306
14580		XWD SYM292,SYM308
14585		XWD SYM297,0
14590	BEND	RESTAB