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+154
00050	↑RXOR  ←←CLASOP+40
00055	↑RAND  ←←CLASOP+307
00060	↑RNOT  ←←CLASOP+227
00065	↑RIN   ←←CLASOP+134
00070	↑ROR   ←←CLASOP+311
00075	↑RCOMME←←CLASOP+332
00080	↑REQV  ←←CLASOP+35
00085	↑RUNION←←CLASOP+337
00090	↑RINTER←←CLASOP+360
00095	↑RSETO ←←CLASOP+356
00100	↑RSETC ←←CLASOP+321
00105	↑RSWAP ←←CLASOP+276
00110	↑RLEQ  ←←CLASOP+56
00115	↑RNEQ  ←←CLASOP+55
00120	↑RGEQ  ←←CLASOP+57
00125	↑RASSOC←←CLASOP+41
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:	SYM104	;HEADER FOR PTYGTL
07550		6
07555		POINT 7,.+10
07560		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07565		0
07570		IFN DCS,<0+PTYGTL ;>0 
07575		BYTE (6) 1,0
07580		BLOCK	2
07585		XWD SYM106,SYM104
07590		ASCII /PTYGTL/
07595	
07600	
07605	
07610	
07615	SYM106:	SYM100	;HEADER FOR PTYSTL
07620		6
07625		POINT 7,.+10
07630		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07635		0
07640		IFN DCS,<0+PTYSTL ;>0 
07645		BYTE (6) 1,1,0
07650		BLOCK	2
07655		XWD SYM107,SYM105
07660		ASCII /PTYSTL/
07665	
07670	
07675	
07680	
07685	SYM107:	SYM86	;HEADER FOR PTIFRE
07690		6
07695		POINT 7,.+10
07700		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07705		0
07710		IFN DCS,<0+PTIFRE ;>0 
07715		BYTE (6) 1,0
07720		BLOCK	2
07725		XWD SYM108,SYM106
07730		ASCII /PTIFRE/
07735	
07740	
07745	
07750	
07755	SYM108:	SYM107	;HEADER FOR PTOCNT
07760		6
07765		POINT 7,.+10
07770		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07775		0
07780		IFN DCS,<0+PTOCNT ;>0 
07785		BYTE (6) 1,0
07790		BLOCK	2
07795		XWD SYM109,SYM107
07800		ASCII /PTOCNT/
07805	
07810	
07815	
07820	
07825	SYM109:	SYM99	;HEADER FOR PTCHRW
07830		6
07835		POINT 7,.+10
07840		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07845		0
07850		IFN DCS,<0+PTCHRW ;>0 
07855		BYTE (6) 1,0
07860		BLOCK	2
07865		XWD SYM110,SYM108
07870		ASCII /PTCHRW/
07875	
07880	
07885	
07890	
07895	SYM110:	SYM109	;HEADER FOR PTCHRS
07900		6
07905		POINT 7,.+10
07910		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
07915		0
07920		IFN DCS,<0+PTCHRS ;>0 
07925		BYTE (6) 1,0
07930		BLOCK	2
07935		XWD SYM111,SYM109
07940		ASCII /PTCHRS/
07945	
07950	
07955	
07960	
07965	SYM111:	SYM110	;HEADER FOR PTOCHS
07970		6
07975		POINT 7,.+10
07980		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
07985		0
07990		IFN DCS,<0+PTOCHS ;>0 
07995		BYTE (6) 1,1,0
08000		BLOCK	2
08005		XWD SYM112,SYM110
08010		ASCII /PTOCHS/
08015	
08020	
08025	
08030	
08035	SYM112:	SYM111	;HEADER FOR PTOCHW
08040		6
08045		POINT 7,.+10
08050		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
08055		0
08060		IFN DCS,<0+PTOCHW ;>0 
08065		BYTE (6) 1,1,0
08070		BLOCK	2
08075		XWD SYM113,SYM111
08080		ASCII /PTOCHW/
08085	
08090	
08095	
08100	
08105	SYM113:	SYM90	;HEADER FOR PTOSTR
08110		6
08115		POINT 7,.+10
08120		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
08125		0
08130		IFN DCS,<0+PTOSTR ;>0 
08135		BYTE (6) 1,2,0
08140		BLOCK	2
08145		XWD SYM114,SYM112
08150		ASCII /PTOSTR/
08155	
08160	
08165	
08170	
08175	SYM114:	SYM105	;HEADER FOR BACKUP
08180		6
08185		POINT 7,.+10
08190		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
08195		0
08200		IFN DCS,<0+BACKUP ;>0 
08205		BYTE (6) 0
08210		BLOCK	2
08215		XWD SYM115,SYM113
08220		ASCII /BACKUP/
08225	
08230	
08235	
08240	
08245	SYM115:	SYM101	;HEADER FOR LODED
08250		5
08255		POINT 7,.+10
08260		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+UNTYPE
08265		0
08270		IFN DCS,<0+LODED ;>0 
08275		BYTE (6) 2,0
08280		BLOCK	2
08285		XWD SYM116,SYM114
08290		ASCII /LODED/
08295	
08300	
08305	
08310	
08315	SYM116:	SYM77	;HEADER FOR PTYALL
08320		6
08325		POINT 7,.+10
08330		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
08335		0
08340		IFN DCS,<0+PTYALL ;>0 
08345		BYTE (6) 1,0
08350		BLOCK	2
08355		XWD SYM117,SYM115
08360		ASCII /PTYALL/
08365	
08370	
08375	
08380	
08385	SYM117:	SYM106	;HEADER FOR PTYSTR
08390		6
08395		POINT 7,.+10
08400		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
08405		0
08410		IFN DCS,<0+PTYSTR ;>0 
08415		BYTE (6) 1,1,0
08420		BLOCK	2
08425		XWD SYM118,SYM116
08430		ASCII /PTYSTR/
08435	
08440	
08445	
08450	
08455	SYM118:	SYM84	;HEADER FOR PTYIN
08460		5
08465		POINT 7,.+10
08470		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+STRING
08475		0
08480		IFN DCS,<0+PTYIN ;>0 
08485		BYTE (6) 1,1,3,0
08490		BLOCK	2
08495		XWD SYM119,SYM117
08500		ASCII /PTYIN/
08505	
08510	
08515	
08520	
08525	SYM119:	SYM108	;HEADER FOR IFGLOBAL
08530		10
08535		POINT 7,.+10
08540		XWD	EXTRNL+OWN+BILTIN,PROCED+FORWRD+INTEGR
08545		0
08550		IFN DCS,<0+IFGLOBAL ;>0 
08555		BYTE (6) 13,0
08560		BLOCK	2
08565		XWD SYM120,SYM118
08570		ASCII /IFGLOBAL/
08575	
08580	
08585	
08590	
08595	SYM120:	SYM116	;HEADER FOR ISSUE
08600		5
08605		POINT 7,.+10
08610		XWD	EXTRNL+OWN,PROCED+FORWRD+INTEGR
08615		0
08620		IFN DCS,<0+ISSUE ;>0 
08625		BYTE (6) 1,2,2,2,0
08630		BLOCK	2
08635		XWD SYM121,SYM119
08640		ASCII /ISSUE/
08645	
08650	
08655	
08660	
08665	SYM121:	SYM112	;HEADER FOR QUEUE
08670		5
08675		POINT 7,.+10
08680		XWD	EXTRNL+OWN,PROCED+FORWRD+INTEGR
08685		0
08690		IFN DCS,<0+QUEUE ;>0 
08695		BYTE (6) 1,1,0
08700		BLOCK	2
08705		XWD SYM122,SYM120
08710		ASCII /QUEUE/
08715	
08720	
08725	
08730	
08735	SYM122:	SYM113	;HEADER FOR GET_DATA
08740		10
08745		POINT 7,.+10
08750		XWD	EXTRNL+OWN,PROCED+FORWRD+STRING
08755		0
08760		IFN DCS,<0+GET.DATA ;>0 
08765		BYTE (6) 1,1,0
08770		BLOCK	2
08775		XWD SYM123,SYM121
08780		ASCII /GET_DATA/
08785	
08790	
08795	
08800	
08805	SYM123:	SYM120	;HEADER FOR PUT_DATA
08810		10
08815		POINT 7,.+10
08820		XWD	EXTRNL+OWN,PROCED+FORWRD+UNTYPE
08825		0
08830		IFN DCS,<0+PUT.DATA ;>0 
08835		BYTE (6) 1,1,2,0
08840		BLOCK	2
08845		XWD SYM124,SYM122
08850		ASCII /PUT_DATA/
08855	
08860	
08865	
08870	
08875	SYM124:	SYM103	;HEADER FOR GET_BIT
08880		7
08885		POINT 7,.+10
08890		XWD	EXTRNL+OWN,PROCED+FORWRD+INTEGR
08895		0
08900		IFN DCS,<0+GET.BIT ;>0 
08905		BYTE (6) 1,0
08910		BLOCK	2
08915		XWD SYM125,SYM123
08920		ASCII /GET_BIT/
08925	
08930	
08935	
08940	
08945	SYM125:	SYM124	;HEADER FOR GET_ENTRY
08950		11
08955		POINT 7,.+10
08960		XWD	EXTRNL+OWN,PROCED+FORWRD+INTEGR
08965		0
08970		IFN DCS,<0+GET.ENTRY ;>0 
08975		BYTE (6) 1,2,2,2,0
08980		BLOCK	2
08985		XWD SYM126,SYM124
08990		ASCII /GET_ENTRY/
08995	
09000	
09005	
09010	
09015	SYM126:	SYM87	;HEADER FOR GET_SET
09020		7
09025		POINT 7,.+10
09030		XWD	EXTRNL+OWN,PROCED+FORWRD+SET
09035		0
09040		IFN DCS,<0+GET.SET ;>0 
09045		BYTE (6) 1,2,2,2,0
09050		BLOCK	2
09055		XWD SYM127,SYM125
09060		ASCII /GET_SET/
09065	
09070	
09075	
09080	
09085	↑BLTTBL←.-1
09090	XWD VALUE,INTEGR
09095	XWD VALUE,STRING
09100	XWD REFRNC,INTEGR
09105	XWD REFRNC,STRING
09110	XWD VALUE,INTEGR+FLOTNG
09115	XWD REFRNC,INTEGR+FLOTNG+ITMVAR
09120	XWD VALUE,FLOTNG
09125	XWD REFRNC+SBSCRP,INTEGR+FLOTNG+SET+LSTBIT+ITMVAR+STRING
09130	XWD REFRNC,INTEGR+FLOTNG+ITMVAR+SET
09135	XWD REFRNC+SBSCRP,INTEGR+FLOTNG+ITMVAR+SET+LSTBIT+STRING
09140	XWD VALUE,ITMVAR
09145	XWD VALUE,LSTBIT+SET
09150	XWD REFRNC+SBSCRP,INTEGR
09155	XWD VALUE,SET
09160	XWD REFRNC,PROCED
09165	SYM127←0
09170	 
09175	SYM128:	XWD 0,SYM117
09180		4
09185		POINT 7,.+2
09190		XWD RES+CLSIDX,217
09195		ASCIZ/BBPP/
09200	 
09205	SYM129:	XWD SYM128,SYM126
09210		5
09215		POINT 7,.+2
09220		XWD RES+CLSIDX,233
09225		ASCIZ/BEGIN/
09230	 
09235	SYM130:	XWD SYM129,SYM115
09240		10
09245		POINT 7,.+2
09250		XWD RES+CLSIDX,147
09255		ASCIZ/REMEMBER/
09260	 
09265	SYM131:	XWD SYM130,SYM128
09270		6
09275		POINT 7,.+2
09280		XWD RES+CLSIDX,167
09285		ASCIZ/SECOND/
09290	 
09295	SYM132:	XWD SYM131,SYM123
09300		3
09305		POINT 7,.+2
09310		XWD RES+CLSIDX,327
09315		ASCIZ/PHI/
09320	 
09325	SYM133:	XWD SYM132,SYM131
09330		12
09335		POINT 7,.+2
09340		XWD RES+CLSIDX,231
09345		ASCIZ/START_CODE/
09350	 
09355	SYM134:	XWD SYM133,SYM122
09360		3
09365		POINT 7,.+2
09370		XWD RES+CLSIDX,154
09375		ASCIZ/INF/
09380	 
09385	SYM135:	XWD SYM134,SYM121
09390		4
09395		POINT 7,.+2
09400		XWD RES+CLSIDX,236
09405		ASCIZ/CASE/
09410	 
09415	SYM136:	XWD SYM135,SYM114
09420		7
09425		POINT 7,.+2
09430		XWD RES+CLSIDX,103
09435		ASCIZ/LIBRARY/
09440	 
09445	SYM137:	XWD SYM136,SYM136
09450		12
09455		POINT 7,.+2
09460		XWD RES+CLSIDX,75
09465		ASCIZ/SYSTEM_PDL/
09470	 
09475	SYM138:	XWD SYM137,SYM92
09480		5
09485		POINT 7,.+2
09490		XWD RES+CLSIDX,302
09495		ASCIZ/CAUSE/
09500	 
09505	SYM139:	XWD SYM138,SYM132
09510		3
09515		POINT 7,.+2
09520		XWD RES+CLSIDX,330
09525		ASCIZ/ALL/
09530	 
09535	SYM140:	XWD SYM139,SYM133
09540		5
09545		POINT 7,.+2
09550		XWD RES+CLSIDX,221
09555		ASCIZ/DATUM/
09560	 
09565	SYM141:	XWD SYM140,SYM137
09570		5
09575		POINT 7,.+2
09580		XWD RES+CLSIDX,237
09585		ASCIZ/CASEC/
09590	 
09595	SYM142:	XWD SYM141,SYM139
09600		5
09605		POINT 7,.+2
09610		XWD RES+CLSIDX,300
09615		ASCIZ/APPLY/
09620	 
09625	SYM143:	XWD SYM142,SYM135
09630		11
09635		POINT 7,.+2
09640		XWD RES+CLSIDX,62
09645		ASCIZ/PROCEDURE/
09650	 
09655	SYM144:	XWD SYM143,SYM129
09660		11
09665		POINT 7,.+2
09670		XWD RES+CLSIDX,112
09675		ASCIZ/ALLGLOBAL/
09680	 
09685	SYM145:	XWD SYM144,SYM118
09690		4
09695		POINT 7,.+2
09700		XWD RES+CLSIDX,135
09705		ASCIZ/FROM/
09710	 
09715	SYM146:	XWD SYM145,SYM143
09720		3
09725		POINT 7,.+2
09730		XWD RES+CLSIDX,32
09735		ASCIZ/ABS/
09740	 
09745	SYM147:	XWD SYM146,SYM125
09750		5
09755		POINT 7,.+2
09760		XWD RES+CLSIDX,173
09765		ASCIZ/CVSET/
09770	 
09775	SYM148:	XWD SYM147,SYM138
09780		2
09785		POINT 7,.+2
09790		XWD RES+CLSIDX,311
09795		ASCIZ/OR/
09800	 
09805	SYM149:	XWD SYM148,SYM144
09810		5
09815		POINT 7,.+2
09820		XWD RES+CLSIDX,225
09825		ASCIZ/PROPS/
09830	 
09835	SYM150:	XWD SYM149,SYM102
09840		16
09845		POINT 7,.+2
09850		XWD RES+CLSIDX,331
09855		ASCIZ/INITIALIZATION/
09860	 
09865	SYM151:	XWD SYM150,SYM130
09870		3
09875		POINT 7,.+2
09880		XWD RES+CLSIDX,35
09885		ASCIZ/EQV/
09890	 
09895	SYM152:	XWD SYM151,SYM146
09900		3
09905		POINT 7,.+2
09910		XWD RES+CLSIDX,307
09915		ASCIZ/AND/
09920	 
09925	SYM153:	XWD SYM152,SYM151
09930		7
09935		POINT 7,.+2
09940		XWD RES+CLSIDX,10
09945		ASCIZ/BOOLEAN/
09950	 
09955	SYM154:	XWD SYM153,SYM148
09960		5
09965		POINT 7,.+2
09970		XWD RES+CLSIDX,273
09975		ASCIZ/THENC/
09980	 
09985	SYM155:	XWD SYM154,SYM149
09990		22
09995		POINT 7,.+2
10000		XWD RES+CLSIDX,110
10005		ASCIZ/UNSTACK_DELIMITERS/
10010	 
10015	SYM156:	XWD SYM155,SYM147
10020		7
10025		POINT 7,.+2
10030		XWD RES+CLSIDX,332
10035		ASCIZ/COMMENT/
10040	 
10045	SYM157:	XWD SYM156,SYM119
10050		10
10055		POINT 7,.+2
10060		XWD RES+CLSIDX,333
10065		ASCIZ/LOCATION/
10070	 
10075	SYM158:	XWD SYM157,SYM157
10080		7
10085		POINT 7,.+2
10090		XWD RES+CLSIDX,334
10095		ASCIZ/MESSAGE/
10100	 
10105	SYM159:	XWD SYM158,SYM140
10110		11
10115		POINT 7,.+2
10120		XWD RES+CLSIDX,101
10125		ASCIZ/NEW_ITEMS/
10130	 
10135	SYM160:	XWD SYM159,SYM150
10140		7
10145		POINT 7,.+2
10150		XWD RES+CLSIDX,70
10155		ASCIZ/CLEANUP/
10160	 
10165	SYM161:	XWD SYM160,SYM156
10170		4
10175		POINT 7,.+2
10180		XWD RES+CLSIDX,222
10185		ASCIZ/DONE/
10190	 
10195	SYM162:	XWD SYM161,SYM154
10200		5
10205		POINT 7,.+2
10210		XWD RES+CLSIDX,170
10215		ASCIZ/THIRD/
10220	 
10225	SYM163:	XWD SYM162,SYM134
10230		7
10235		POINT 7,.+2
10240		XWD RES+CLSIDX,22
10245		ASCIZ/FORWARD/
10250	 
10255	SYM164:	XWD SYM163,SYM145
10260		3
10265		POINT 7,.+2
10270		XWD RES+CLSIDX,242
10275		ASCIZ/DOC/
10280	 
10285	SYM165:	XWD SYM164,SYM162
10290		4
10295		POINT 7,.+2
10300		XWD RES+CLSIDX,335
10305		ASCIZ/NEXT/
10310	 
10315	SYM166:	XWD SYM165,SYM97
10320		6
10325		POINT 7,.+2
10330		XWD RES+CLSIDX,63
10335		ASCIZ/DEFINE/
10340	 
10345	SYM167:	XWD SYM166,SYM165
10350		6
10355		POINT 7,.+2
10360		XWD RES+CLSIDX,163
10365		ASCIZ/LENGTH/
10370	 
10375	SYM168:	XWD SYM167,SYM158
10380		6
10385		POINT 7,.+2
10390		XWD RES+CLSIDX,24
10395		ASCIZ/SIMPLE/
10400	 
10405	SYM169:	XWD SYM168,SYM164
10410		5
10415		POINT 7,.+2
10420		XWD RES+CLSIDX,336
10425		ASCIZ/ARRAY/
10430	 
10435	SYM170:	XWD SYM169,SYM142
10440		13
10445		POINT 7,.+2
10450		XWD RES+CLSIDX,104
10455		ASCIZ/LOAD_MODULE/
10460	 
10465	SYM171:	XWD SYM170,SYM168
10470		6
10475		POINT 7,.+2
10480		XWD RES+CLSIDX,223
10485		ASCIZ/DELETE/
10490	 
10495	SYM172:	XWD SYM171,SYM141
10500		22
10505		POINT 7,.+2
10510		XWD RES+CLSIDX,107
10515		ASCIZ/REPLACE_DELIMITERS/
10520	 
10525	SYM173:	XWD SYM172,SYM167
10530		5
10535		POINT 7,.+2
10540		XWD RES+CLSIDX,152
10545		ASCIZ/AFTER/
10550	 
10555	SYM174:	XWD SYM173,SYM155
10560		7
10565		POINT 7,.+2
10570		XWD RES+CLSIDX,247
10575		ASCIZ/FOREACH/
10580	 
10585	SYM175:	XWD SYM174,SYM161
10590		12
10595		POINT 7,.+2
10600		XWD RES+CLSIDX,323
10605		ASCIZ/NOW_UNSAFE/
10610	 
10615	SYM176:	XWD SYM175,SYM169
10620		5
10625		POINT 7,.+2
10630		XWD RES+CLSIDX,337
10635		ASCIZ/UNION/
10640	 
10645	SYM177:	XWD SYM176,SYM152
10650		12
10655		POINT 7,.+2
10660		XWD RES+CLSIDX,232
10665		ASCIZ/QUICK_CODE/
10670	 
10675	SYM178:	XWD SYM177,SYM163
10680		12
10685		POINT 7,.+2
10690		XWD RES+CLSIDX,340
10695		ASCIZ/LEAP_ARRAY/
10700	 
10705	SYM179:	XWD SYM178,SYM170
10710		2
10715		POINT 7,.+2
10720		XWD RES+CLSIDX,265
10725		ASCIZ/OF/
10730	 
10735	SYM180:	XWD SYM179,SYM166
10740		7
10745		POINT 7,.+2
10750		XWD RES+CLSIDX,151
10755		ASCIZ/RESTORE/
10760	 
10765	SYM181:	XWD SYM180,SYM153
10770		11
10775		POINT 7,.+2
10780		XWD RES+CLSIDX,20
10785		ASCIZ/RECURSIVE/
10790	 
10795	SYM182:	XWD SYM181,SYM179
10800		3
10805		POINT 7,.+2
10810		XWD RES+CLSIDX,45
10815		ASCIZ/LSH/
10820	 
10825	SYM183:	XWD SYM182,SYM175
10830		3
10835		POINT 7,.+2
10840		XWD RES+CLSIDX,143
10845		ASCIZ/PUT/
10850	 
10855	SYM184:	XWD SYM183,SYM183
10860		3
10865		POINT 7,.+2
10870		XWD RES+CLSIDX,172
10875		ASCIZ/CVI/
10880	 
10885	SYM185:	XWD SYM184,SYM172
10890		4
10895		POINT 7,.+2
10900		XWD RES+CLSIDX,5
10905		ASCIZ/REAL/
10910	 
10915	SYM186:	XWD SYM185,SYM160
10920		4
10925		POINT 7,.+2
10930		XWD RES+CLSIDX,321
10935		ASCIZ/SETC/
10940	 
10945	SYM187:	XWD SYM186,SYM159
10950		7
10955		POINT 7,.+2
10960		XWD RES+CLSIDX,145
10965		ASCIZ/SUCCEED/
10970	 
10975	SYM188:	XWD SYM187,SYM186
10980		4
10985		POINT 7,.+2
10990		XWD RES+CLSIDX,11
10995		ASCIZ/LIST/
11000	 
11005	SYM189:	XWD SYM188,SYM173
11010		10
11015		POINT 7,.+2
11020		XWD RES+CLSIDX,341
11025		ASCIZ/BUILT_IN/
11030	 
11035	SYM190:	XWD SYM189,SYM188
11040		6
11045		POINT 7,.+2
11050		XWD RES+CLSIDX,7
11055		ASCIZ/STRING/
11060	 
11065	SYM191:	XWD SYM190,SYM176
11070		13
11075		POINT 7,.+2
11080		XWD RES+CLSIDX,303
11085		ASCIZ/INTERROGATE/
11090	 
11095	SYM192:	XWD SYM191,SYM178
11100		4
11105		POINT 7,.+2
11110		XWD RES+CLSIDX,342
11115		ASCIZ/BIND/
11120	 
11125	SYM193:	XWD SYM192,SYM192
11130		4
11135		POINT 7,.+2
11140		XWD RES+CLSIDX,164
11145		ASCIZ/ILDB/
11150	 
11155	SYM194:	XWD SYM193,SYM171
11160		4
11165		POINT 7,.+2
11170		XWD RES+CLSIDX,1
11175		ASCIZ/ITEM/
11180	 
11185	SYM195:	XWD SYM194,SYM191
11190		4
11195		POINT 7,.+2
11200		XWD RES+CLSIDX,343
11205		ASCIZ/THAT/
11210	 
11215	SYM196:	XWD SYM195,SYM193
11220		6
11225		POINT 7,.+2
11230		XWD RES+CLSIDX,74
11235		ASCIZ/PNAMES/
11240	 
11245	SYM197:	XWD SYM196,SYM180
11250		11
11255		POINT 7,.+2
11260		XWD RES+CLSIDX,304
11265		ASCIZ/EXPR_TYPE/
11270	 
11275	SYM198:	XWD SYM197,SYM189
11280		6
11285		POINT 7,.+2
11290		XWD RES+CLSIDX,174
11295		ASCIZ/CVLIST/
11300	 
11305	SYM199:	XWD SYM198,SYM185
11310		2
11315		POINT 7,.+2
11320		XWD RES+CLSIDX,134
11325		ASCIZ/IN/
11330	 
11335	SYM200:	XWD SYM199,SYM184
11340		10
11345		POINT 7,.+2
11350		XWD RES+CLSIDX,16
11355		ASCIZ/EXTERNAL/
11360	 
11365	SYM201:	XWD SYM200,SYM196
11370		10
11375		POINT 7,.+2
11380		XWD RES+CLSIDX,344
11385		ASCIZ/NEEDNEXT/
11390	 
11395	SYM202:	XWD SYM201,SYM182
11400		4
11405		POINT 7,.+2
11410		XWD RES+CLSIDX,36
11415		ASCIZ/LAND/
11420	 
11425	SYM203:	XWD SYM202,SYM198
11430		7
11435		POINT 7,.+2
11440		XWD RES+CLSIDX,6
11445		ASCIZ/INTEGER/
11450	 
11455	SYM204:	XWD SYM203,SYM199
11460		13
11465		POINT 7,.+2
11470		XWD RES+CLSIDX,345
11475		ASCIZ/DECLARATION/
11480	 
11485	SYM205:	XWD SYM204,SYM202
11490		12
11495		POINT 7,.+2
11500		XWD RES+CLSIDX,76
11505		ASCIZ/STRING_PDL/
11510	 
11515	SYM206:	XWD SYM205,SYM203
11520		7
11525		POINT 7,.+2
11530		XWD RES+CLSIDX,13
11535		ASCIZ/CONTEXT/
11540	 
11545	SYM207:	XWD SYM206,SYM177
11550		6
11555		POINT 7,.+2
11560		XWD RES+CLSIDX,144
11565		ASCIZ/REMOVE/
11570	 
11575	SYM208:	XWD SYM207,SYM200
11580		3
11585		POINT 7,.+2
11590		XWD RES+CLSIDX,56
11595		ASCIZ/LEQ/
11600	 
11605	SYM209:	XWD SYM208,SYM207
11610		4
11615		POINT 7,.+2
11620		XWD RES+CLSIDX,123
11625		ASCIZ/STEP/
11630	 
11635	SYM210:	XWD SYM209,SYM206
11640		5
11645		POINT 7,.+2
11650		XWD RES+CLSIDX,166
11655		ASCIZ/FIRST/
11660	 
11665	SYM211:	XWD SYM210,SYM190
11670		4
11675		POINT 7,.+2
11680		XWD RES+CLSIDX,141
11685		ASCIZ/MAKE/
11690	 
11695	SYM212:	XWD SYM211,SYM205
11700		10
11705		POINT 7,.+2
11710		XWD RES+CLSIDX,306
11715		ASCIZ/REF_ITEM/
11720	 
11725	SYM213:	XWD SYM212,SYM204
11730		6
11735		POINT 7,.+2
11740		XWD RES+CLSIDX,346
11745		ASCIZ/SAMEIV/
11750	 
11755	SYM214:	XWD SYM213,SYM213
11760		7
11765		POINT 7,.+2
11770		XWD RES+CLSIDX,115
11775		ASCIZ/BUCKETS/
11780	 
11785	SYM215:	XWD SYM214,SYM210
11790		2
11795		POINT 7,.+2
11800		XWD RES+CLSIDX,127
11805		ASCIZ/TO/
11810	 
11815	SYM216:	XWD SYM215,SYM194
11820		5
11825		POINT 7,.+2
11830		XWD RES+CLSIDX,347
11835		ASCIZ/ENTRY/
11840	 
11845	SYM217:	XWD SYM216,SYM215
11850		13
11855		POINT 7,.+2
11860		XWD RES+CLSIDX,67
11865		ASCIZ/PROTECT_ACS/
11870	 
11875	SYM218:	XWD SYM217,SYM217
11880		5
11885		POINT 7,.+2
11890		XWD RES+CLSIDX,41
11895		ASCIZ/ASSOC/
11900	 
11905	SYM219:	XWD SYM218,SYM208
11910		4
11915		POINT 7,.+2
11920		XWD RES+CLSIDX,350
11925		ASCIZ/FORC/
11930	 
11935	SYM220:	XWD SYM219,SYM212
11940		6
11945		POINT 7,.+2
11950		XWD RES+CLSIDX,150
11955		ASCIZ/FORGET/
11960	 
11965	SYM221:	XWD SYM220,SYM174
11970		3
11975		POINT 7,.+2
11980		XWD RES+CLSIDX,37
11985		ASCIZ/LOR/
11990	 
11995	SYM222:	XWD SYM221,SYM197
12000		4
12005		POINT 7,.+2
12010		XWD RES+CLSIDX,276
12015		ASCIZ/SWAP/
12020	 
12025	SYM223:	XWD SYM222,SYM219
12030		4
12035		POINT 7,.+2
12040		XWD RES+CLSIDX,175
12045		ASCIZ/IDPB/
12050	 
12055	SYM224:	XWD SYM223,SYM218
12060		2
12065		POINT 7,.+2
12070		XWD RES+CLSIDX,310
12075		ASCIZ/IF/
12080	 
12085	SYM225:	XWD SYM224,SYM222
12090		3
12095		POINT 7,.+2
12100		XWD RES+CLSIDX,177
12105		ASCIZ/IBP/
12110	 
12115	SYM226:	XWD SYM225,SYM181
12120		3
12125		POINT 7,.+2
12130		XWD RES+CLSIDX,161
12135		ASCIZ/LOP/
12140	 
12145	SYM227:	XWD SYM226,SYM225
12150		3
12155		POINT 7,.+2
12160		XWD RES+CLSIDX,131
12165		ASCIZ/END/
12170	 
12175	SYM228:	XWD SYM227,SYM227
12180		3
12185		POINT 7,.+2
12190		XWD RES+CLSIDX,60
12195		ASCIZ/MAX/
12200	 
12205	SYM229:	XWD SYM228,SYM228
12210		4
12215		POINT 7,.+2
12220		XWD RES+CLSIDX,272
12225		ASCIZ/THEN/
12230	 
12235	SYM230:	XWD SYM229,SYM187
12240		12
12245		POINT 7,.+2
12250		XWD RES+CLSIDX,351
12255		ASCIZ/CHECK_TYPE/
12260	 
12265	SYM231:	XWD SYM230,SYM214
12270		10
12275		POINT 7,.+2
12280		XWD RES+CLSIDX,160
12285		ASCIZ/ISTRIPLE/
12290	 
12295	SYM232:	XWD SYM231,SYM220
12300		4
12305		POINT 7,.+2
12310		XWD RES+CLSIDX,15
12315		ASCIZ/SAFE/
12320	 
12325	SYM233:	XWD SYM232,SYM232
12330		4
12335		POINT 7,.+2
12340		XWD RES+CLSIDX,132
12345		ASCIZ/ELSE/
12350	 
12355	SYM234:	XWD SYM233,SYM223
12360		3
12365		POINT 7,.+2
12370		XWD RES+CLSIDX,165
12375		ASCIZ/LDB/
12380	 
12385	SYM235:	XWD SYM234,SYM234
12390		6
12395		POINT 7,.+2
12400		XWD RES+CLSIDX,301
12405		ASCIZ/SPROUT/
12410	 
12415	SYM236:	XWD SYM235,SYM221
12420		5
12425		POINT 7,.+2
12430		XWD RES+CLSIDX,157
12435		ASCIZ/FALSE/
12440	 
12445	SYM237:	XWD SYM236,SYM235
12450		12
12455		POINT 7,.+2
12460		XWD RES+CLSIDX,255
12465		ASCIZ/IN_CONTEXT/
12470	 
12475	SYM238:	XWD SYM237,SYM231
12480		3
12485		POINT 7,.+2
12490		XWD RES+CLSIDX,264
12495		ASCIZ/NEW/
12500	 
12505	SYM239:	XWD SYM238,SYM211
12510		3
12515		POINT 7,.+2
12520		XWD RES+CLSIDX,266
12525		ASCIZ/OFC/
12530	 
12535	SYM240:	XWD SYM239,SYM229
12540		11
12545		POINT 7,.+2
12550		XWD RES+CLSIDX,100
12555		ASCIZ/ARRAY_PDL/
12560	 
12565	SYM241:	XWD SYM240,SYM226
12570		3
12575		POINT 7,.+2
12580		XWD RES+CLSIDX,3
12585		ASCIZ/SET/
12590	 
12595	SYM242:	XWD SYM241,SYM236
12600		5
12605		POINT 7,.+2
12610		XWD RES+CLSIDX,124
12615		ASCIZ/UNTIL/
12620	 
12625	SYM243:	XWD SYM242,SYM216
12630		5
12635		POINT 7,.+2
12640		XWD RES+CLSIDX,142
12645		ASCIZ/ERASE/
12650	 
12655	SYM244:	XWD SYM243,SYM239
12660		3
12665		POINT 7,.+2
12670		XWD RES+CLSIDX,130
12675		ASCIZ/FOR/
12680	 
12685	SYM245:	XWD SYM244,SYM209
12690		20
12695		POINT 7,.+2
12700		XWD RES+CLSIDX,114
12705		ASCIZ/POLLING_INTERVAL/
12710	 
12715	SYM246:	XWD SYM245,SYM238
12720		6
12725		POINT 7,.+2
12730		XWD RES+CLSIDX,352
12735		ASCIZ/ACCESS/
12740	 
12745	SYM247:	XWD SYM246,SYM240
12750		3
12755		POINT 7,.+2
12760		XWD RES+CLSIDX,61
12765		ASCIZ/MIN/
12770	 
12775	SYM248:	XWD SYM247,SYM233
12780		10
12785		POINT 7,.+2
12790		XWD RES+CLSIDX,12
12795		ASCIZ/KILL_SET/
12800	 
12805	SYM249:	XWD SYM248,SYM243
12810		10
12815		POINT 7,.+2
12820		XWD RES+CLSIDX,14
12825		ASCIZ/INTERNAL/
12830	 
12835	SYM250:	XWD SYM249,SYM241
12840		10
12845		POINT 7,.+2
12850		XWD RES+CLSIDX,322
12855		ASCIZ/NOW_SAFE/
12860	 
12865	SYM251:	XWD SYM250,SYM237
12870		4
12875		POINT 7,.+2
12880		XWD RES+CLSIDX,156
12885		ASCIZ/TRUE/
12890	 
12895	SYM252:	XWD SYM251,SYM244
12900		3
12905		POINT 7,.+2
12910		XWD RES+CLSIDX,176
12915		ASCIZ/DPB/
12920	 
12925	SYM253:	XWD SYM252,SYM242
12930		5
12935		POINT 7,.+2
12940		XWD RES+CLSIDX,4
12945		ASCIZ/LABEL/
12950	 
12955	SYM254:	XWD SYM253,SYM245
12960		5
12965		POINT 7,.+2
12970		XWD RES+CLSIDX,125
12975		ASCIZ/WHILE/
12980	 
12985	SYM255:	XWD SYM254,SYM246
12990		12
12995		POINT 7,.+2
13000		XWD RES+CLSIDX,106
13005		ASCIZ/DELIMITERS/
13010	 
13015	SYM256:	XWD SYM255,SYM251
13020		4
13025		POINT 7,.+2
13030		XWD RES+CLSIDX,353
13035		ASCIZ/GOTO/
13040	 
13045	SYM257:	XWD SYM256,SYM195
13050		3
13055		POINT 7,.+2
13060		XWD RES+CLSIDX,17
13065		ASCIZ/OWN/
13070	 
13075	SYM258:	XWD SYM257,SYM254
13080		3
13085		POINT 7,.+2
13090		XWD RES+CLSIDX,40
13095		ASCIZ/XOR/
13100	 
13105	SYM259:	XWD SYM258,SYM250
13110		10
13115		POINT 7,.+2
13120		XWD RES+CLSIDX,25
13125		ASCIZ/MATCHING/
13130	 
13135	SYM260:	XWD SYM259,SYM255
13140		6
13145		POINT 7,.+2
13150		XWD RES+CLSIDX,275
13155		ASCIZ/WHILEC/
13160	 
13165	SYM261:	XWD SYM260,SYM257
13170		17
13175		POINT 7,.+2
13180		XWD RES+CLSIDX,111
13185		ASCIZ/NULL_DELIMITERS/
13190	 
13195	SYM262:	XWD SYM261,SYM259
13200		14
13205		POINT 7,.+2
13210		XWD RES+CLSIDX,65
13215		ASCIZ/PRELOAD_WITH/
13220	 
13225	SYM263:	XWD SYM262,SYM261
13230		6
13235		POINT 7,.+2
13240		XWD RES+CLSIDX,315
13245		ASCIZ/UNTILC/
13250	 
13255	SYM264:	XWD SYM263,SYM224
13260		3
13265		POINT 7,.+2
13270		XWD RES+CLSIDX,47
13275		ASCIZ/DIV/
13280	 
13285	SYM265:	XWD SYM264,SYM230
13290		3
13295		POINT 7,.+2
13300		XWD RES+CLSIDX,55
13305		ASCIZ/NEQ/
13310	 
13315	SYM266:	XWD SYM265,SYM256
13320		5
13325		POINT 7,.+2
13330		XWD RES+CLSIDX,354
13335		ASCIZ/FORLC/
13340	 
13345	SYM267:	XWD SYM266,SYM265
13350		7
13355		POINT 7,.+2
13360		XWD RES+CLSIDX,102
13365		ASCIZ/VERSION/
13370	 
13375	SYM268:	XWD SYM267,SYM267
13380		3
13385		POINT 7,.+2
13390		XWD RES+CLSIDX,355
13395		ASCIZ/NIL/
13400	 
13405	SYM269:	XWD SYM268,SYM247
13410		6
13415		POINT 7,.+2
13420		XWD RES+CLSIDX,267
13425		ASCIZ/RETURN/
13430	 
13435	SYM270:	XWD SYM269,SYM249
13440		5
13445		POINT 7,.+2
13450		XWD RES+CLSIDX,23
13455		ASCIZ/SHORT/
13460	 
13465	SYM271:	XWD SYM270,SYM258
13470		4
13475		POINT 7,.+2
13480		XWD RES+CLSIDX,356
13485		ASCIZ/SETO/
13490	 
13495	SYM272:	XWD SYM271,SYM271
13500		4
13505		POINT 7,.+2
13510		XWD RES+CLSIDX,155
13515		ASCIZ/NULL/
13520	 
13525	SYM273:	XWD SYM272,SYM270
13530		14
13535		POINT 7,.+2
13540		XWD RES+CLSIDX,357
13545		ASCIZ/NULL_CONTEXT/
13550	 
13555	SYM274:	XWD SYM273,SYM260
13560		5
13565		POINT 7,.+2
13570		XWD RES+CLSIDX,314
13575		ASCIZ/STEPC/
13580	 
13585	SYM275:	XWD SYM274,SYM268
13590		4
13595		POINT 7,.+2
13600		XWD RES+CLSIDX,31
13605		ASCIZ/LNOT/
13610	 
13615	SYM276:	XWD SYM275,SYM253
13620		5
13625		POINT 7,.+2
13630		XWD RES+CLSIDX,360
13635		ASCIZ/INTER/
13640	 
13645	SYM277:	XWD SYM276,SYM275
13650		6
13655		POINT 7,.+2
13660		XWD RES+CLSIDX,224
13665		ASCIZ/MEMORY/
13670	 
13675	SYM278:	XWD SYM277,SYM269
13680		3
13685		POINT 7,.+2
13690		XWD RES+CLSIDX,57
13695		ASCIZ/GEQ/
13700	 
13705	SYM279:	XWD SYM278,SYM262
13710		2
13715		POINT 7,.+2
13720		XWD RES+CLSIDX,136
13725		ASCIZ/DO/
13730	 
13735	SYM280:	XWD SYM279,SYM279
13740		3
13745		POINT 7,.+2
13750		XWD RES+CLSIDX,162
13755		ASCIZ/CVN/
13760	 
13765	SYM281:	XWD SYM280,SYM273
13770		4
13775		POINT 7,.+2
13780		XWD RES+CLSIDX,313
13785		ASCIZ/ENDC/
13790	 
13795	SYM282:	XWD SYM281,SYM276
13800		3
13805		POINT 7,.+2
13810		XWD RES+CLSIDX,46
13815		ASCIZ/ROT/
13820	 
13825	SYM283:	XWD SYM282,SYM272
13830		11
13835		POINT 7,.+2
13840		XWD RES+CLSIDX,26
13845		ASCIZ/REFERENCE/
13850	 
13855	SYM284:	XWD SYM283,SYM283
13860		11
13865		POINT 7,.+2
13870		XWD RES+CLSIDX,113
13875		ASCIZ/PROCESSES/
13880	 
13885	SYM285:	XWD SYM284,SYM201
13890		3
13895		POINT 7,.+2
13900		XWD RES+CLSIDX,251
13905		ASCIZ/IFC/
13910	 
13915	SYM286:	XWD SYM285,SYM264
13920		3
13925		POINT 7,.+2
13930		XWD RES+CLSIDX,227
13935		ASCIZ/NOT/
13940	 
13945	SYM287:	XWD SYM286,SYM266
13950		5
13955		POINT 7,.+2
13960		XWD RES+CLSIDX,312
13965		ASCIZ/ELSEC/
13970	 
13975	SYM288:	XWD SYM287,SYM277
13980		4
13985		POINT 7,.+2
13990		XWD RES+CLSIDX,146
13995		ASCIZ/FAIL/
14000	 
14005	SYM289:	XWD SYM288,SYM281
14010		3
14015		POINT 7,.+2
14020		XWD RES+CLSIDX,50
14025		ASCIZ/MOD/
14030	 
14035	SYM290:	XWD SYM289,SYM287
14040		4
14045		POINT 7,.+2
14050		XWD RES+CLSIDX,361
14055		ASCIZ/CVMS/
14060	 
14065	SYM291:	XWD SYM290,SYM289
14070		4
14075		POINT 7,.+2
14080		XWD RES+CLSIDX,362
14085		ASCIZ/POLL/
14090	 
14095	SYM292:	XWD SYM291,SYM252
14100		6
14105		POINT 7,.+2
14110		XWD RES+CLSIDX,153
14115		ASCIZ/BEFORE/
14120	 
14125	SYM293:	XWD SYM292,SYM280
14130		5
14135		POINT 7,.+2
14140		XWD RES+CLSIDX,27
14145		ASCIZ/VALUE/
14150	 
14155	SYM294:	XWD SYM293,SYM285
14160		12
14165		POINT 7,.+2
14170		XWD RES+CLSIDX,363
14175		ASCIZ/DEPENDENTS/
14180	 
14185	SYM295:	XWD SYM294,SYM294
14190		14
14195		POINT 7,.+2
14200		XWD RES+CLSIDX,77
14205		ASCIZ/STRING_SPACE/
14210	 
14215	SYM296:	XWD SYM295,SYM282
14220		5
14225		POINT 7,.+2
14230		XWD RES+CLSIDX,320
14235		ASCIZ/LISTC/
14240	 
14245	SYM297:	XWD SYM296,SYM288
14250		3
14255		POINT 7,.+2
14260		XWD RES+CLSIDX,171
14265		ASCIZ/COP/
14270	 
14275	SYM298:	XWD SYM297,SYM286
14280		10
14285		POINT 7,.+2
14290		XWD RES+CLSIDX,364
14295		ASCIZ/CONTINUE/
14300	 
14305	SYM299:	XWD SYM298,SYM284
14310		3
14315		POINT 7,.+2
14320		XWD RES+CLSIDX,66
14325		ASCIZ/LET/
14330	 
14335	SYM300:	XWD SYM299,SYM298
14340		2
14345		POINT 7,.+2
14350		XWD RES+CLSIDX,365
14355		ASCIZ/GO/
14360	 
14365	SYM301:	XWD SYM300,SYM295
14370		10
14375		POINT 7,.+2
14380		XWD RES+CLSIDX,366
14385		ASCIZ/RESERVED/
14390	 
14395	SYM302:	XWD SYM301,SYM278
14400		6
14405		POINT 7,.+2
14410		XWD RES+CLSIDX,277
14415		ASCIZ/ASSIGN/
14420	 
14425	SYM303:	XWD SYM302,SYM301
14430		13
14435		POINT 7,.+2
14440		XWD RES+CLSIDX,105
14445		ASCIZ/SOURCE_FILE/
14450	 
14455	SYM304:	XWD SYM303,SYM299
14460		4
14465		POINT 7,.+2
14470		XWD RES+CLSIDX,367
14475		ASCIZ/SUCH/
14480	 
14485	SYM305:	XWD SYM304,SYM304
14490		7
14495		POINT 7,.+2
14500		XWD RES+CLSIDX,64
14505		ASCIZ/REQUIRE/
14510	 
14515	SYM306:	XWD SYM305,SYM291
14520		5
14525		POINT 7,.+2
14530		XWD RES+CLSIDX,370
14535		ASCIZ/LISTO/
14540	 
14545	SYM307:	XWD SYM306,SYM290
14550		7
14555		POINT 7,.+2
14560		XWD RES+CLSIDX,21
14565		ASCIZ/FORTRAN/
14570	 
14575	SYM308:	XWD SYM307,SYM307
14580		7
14585		POINT 7,.+2
14590		XWD RES+CLSIDX,2
14595		ASCIZ/ITEMVAR/
14600	SYM308
14605	↑RESEND:
14610	
14615	
14620	
14625	
14630	↑MBUCK:	;INITIALIZED BUCKET
14635		XWD SYM305,SYM303
14640		XWD SYM302,SYM274
14645		XWD SYM292,SYM300
14650		XWD SYM263,SYM296
14655		XWD SYM248,SYM306
14660		XWD SYM293,SYM308
14665		XWD SYM297,0
14670	BEND	RESTAB