version	U12.1.00
uid	mknode.tmp.u1-1455877820-0
impl	error
global	256
	0,000001,dloadflag,0
	1,000001,initflag,0
	2,000001,BADflag,0
	3,000001,aflag,0
	4,000001,yydebug,0
	5,000001,Mflag,0
	6,000001,cflag,0
	7,000001,pflag,0
	8,000001,Lflag,0
	9,000001,Pflag,0
	10,000001,Tflag,0
	11,000001,Gflag,0
	12,000001,Vflag,0
	13,000001,Nflag,0
	14,000001,fflag,0
	15,000001,Fflag,0
	16,000001,Rflag,0
	17,000001,OOflag,0
	18,000001,OOOflag,0
	19,000001,Oflag,0
	20,000001,Xflag,0
	21,000001,xflag,0
	22,000001,hflag,0
	23,000001,dbgmsg,0
	24,000001,insrtptr,0
	25,000001,rpt_lvl,0
	26,000001,ifname,0
	27,000001,ofname,0
	28,000001,sigfname,0
	29,000001,optfname,0
	30,000001,actual_ifname,0
	31,000001,ofile,0
	32,000001,sigfile,0
	33,000001,optfile,0
	34,000001,unparse_file,0
	35,000001,optsfile,0
	36,000001,callfile,0
	37,000001,yyline,0
	38,000001,usl_ptr,0
	39,000001,insig,0
	40,000001,entry_nam,0
	41,000001,nil,0
	42,000001,indx_assign,0
	43,000001,indx_passign,0
	44,000001,indx_massign,0
	45,000001,indx_or,0
	46,000001,indx_and,0
	47,000001,indx_not,0
	48,000001,indx_equals,0
	49,000001,indx_less,0
	50,000001,indx_le,0
	51,000001,indx_ge,0
	52,000001,indx_ne,0
	53,000001,indx_greater,0
	54,000001,indx_plus,0
	55,000001,indx_minus,0
	56,000001,indx_times,0
	57,000001,indx_divide,0
	58,000001,indx_mod,0
	59,000001,indx_pconc,0
	60,000001,indx_sconc,0
	61,000001,indx_exp,0
	62,000001,indx_deref,0
	63,000001,indx_subscr,0
	64,000001,indx_New,0
	65,000001,indx_ValueOf,0
	66,000001,indx_First,0
	67,000001,indx_Last,0
	68,000001,indx_Pred,0
	69,000001,indx_Succ,0
	70,000001,indx_Ord,0
	71,000001,indx_OrdInv,0
	72,000001,indx_Card,0
	73,000001,indx_In,0
	74,000001,indx_Out,0
	75,000001,indx_put,0
	76,000001,indx_Callcc,0
	77,000001,indx_size,0
	78,000001,indx_ptr_New,0
	79,000001,indx_init_New,0
	80,000001,indx_empty,0
	81,000001,indx_standard,0
	82,000001,indx_inline,0
	83,000001,pend,0
	84,000001,indx_Boolean,0
	85,000001,indx_Void,0
	86,000001,indx_true,0
	87,000001,indx_false,0
	88,000001,indx_simple,0
	89,000001,indx_Null,0
	90,000001,indx_Mk,0
	91,000001,indx_Integer,0
	92,000001,indx_Array,0
	93,000001,sig_assign,0
	94,000001,sig_equals,0
	95,000001,sig_less,0
	96,000001,sig_greater,0
	97,000001,sig_New,0
	98,000001,sig_const,0
	99,000001,sig_ValueOf,0
	100,000001,sig_pconc,0
	101,000001,sig_sconc,0
	102,000001,sig_Signature,0
	103,000001,val_Boolean,0
	104,000001,val_Integer,0
	105,000001,val_Void,0
	106,000001,var_Void,0
	107,000001,sel_true,0
	108,000001,sel_false,0
	109,000001,id_Boolean,0
	110,000001,id_Integer,0
	111,000001,id_Void,0
	112,000001,id_put,0
	113,000001,id_ValueOf,0
	114,000001,id_New,0
	115,000001,id_size,0
	116,000001,id_Null,0
	117,000001,id_times,0
	118,000001,id_plus,0
	119,000001,appl_Null,0
	120,000001,yyvline,0
	121,000001,stt_table,0
	122,000001,stt_unique_cnt,0
	123,000001,stt_reference_cnt,0
	124,000001,reverse_stt,0
	125,000001,errfile,0
	126,000001,infofile,0
	127,000001,reduce,0
	128,000001,progress,0
	129,000001,debug_file,0
	130,000001,stats,0
	131,000001,nodes,0
	132,000001,ccode_file,0
	133,000001,nodes_file,0
	134,000001,lists_created_file,0
	135,000001,cons_file,0
	136,000001,treefile,0
	137,000001,symfile,0
	138,000001,sym2file,0
	139,000001,nodes_created_file,0
	140,000001,line_cnt,0
	141,000001,char_cnt,0
	142,000001,token_cnt,0
	143,000001,reserved_id_cnt,0
	144,000001,reserved_op_cnt,0
	145,000001,numeral_cnt,0
	146,000001,nodes_total_cnt,0
	147,000001,nodes_made_cnt,0
	148,000001,lists_total_cnt,0
	149,000001,lists_made_cnt,0
	150,000001,yyn_switches_cnt,0
	151,000001,yyn_compute_cnt,0
	152,000001,newstate_cnt,0
	153,000001,setstate_cnt,0
	154,000001,backup_cnt,0
	155,000001,default_cnt,0
	156,000001,reduce_cnt,0
	157,000001,errlab_cnt,0
	158,000001,errlab1_cnt,0
	159,000001,defined_id_cnt,0
	160,000001,defined_op_cnt,0
	161,000001,seperator_cnt,0
	162,000001,RIC_table,0
	163,000001,RIC_op_code_cnt,0
	164,000001,RIC_table_entry_cnt,0
	165,000001,comments_cnt,0
	166,000001,sing_quoted_cnt,0
	167,000001,dbl_quoted_cnt,0
	168,000001,infile,0
	169,000001,entry_name,0
	170,000001,yyinfnm,0
	171,000001,addposition,0
	172,000001,inline_cnvt,0
	173,000001,Ginline_cnvt,0
	174,000001,Vinline_cnvt,0
	175,000001,paramstop,0
	176,000001,denseqstop,0
	177,000001,condstop,0
	178,000001,declstop,0
	179,000001,stxtree,0
	180,000001,yystate,0
	181,000001,fn_count,0
	182,000001,scanstk,0
	183,000001,stktop,0
	184,000001,scansavc,0
	185,000001,yydescr,0
	186,000001,has_externs,0
	187,000001,argcnt_from_kind,0
	188,000001,parser_actions_cnt,0
	189,000001,curr_void_decl,0
	190,000001,curr_sig_transp,0
	191,000001,curr_tsig,0
	192,000001,err_node,0
	193,000001,in_sig,0
	194,000001,in_loop,0
	195,000001,linebuf,0
	196,000001,restab,0
	197,000001,cctab,0
	198,000001,tokenlgth,0
	199,000001,yynerrs,0
	200,000001,decl_num,0
	201,000001,decl_nums,0
	202,000001,Outer_arg,0
	203,000001,file_sigs,0
	204,000001,decl_num_in,0
	205,000001,sig_table,0
	206,000001,unique_node_id,0
	207,000001,objfilelist,0
	208,000001,Idtable,0
	209,000001,dump_tree_depth,0
	210,000001,next_pre,0
	211,000001,next_post,0
	212,000001,visited,0
	213,000001,Gfc_list,0
	214,000001,Glevel,0
	215,000001,Gcurrent,0
	216,000001,Goutfile,0
	217,000001,finished_accessible,0
	218,000001,all_fcs,0
	219,000001,all_fcs_tail,0
	220,000001,outer_fc,0
	221,000001,whole_program,0
	222,000001,currect_fcs,0
	223,000001,Vcurrent_func,0
	224,000001,Vcurrent_ar,0
	225,000001,Vstatic_level,0
	226,000001,Vnext_free,0
	227,000001,Vhigh_water,0
	228,000001,Vextent_limited,0
	229,000001,Vallocate_on_stack,0
	230,000001,Vcallcc,0
	231,000001,max_addr_regs,0
	232,000001,max_int_regs,0
	233,000001,n_addr_regs,0
	234,000001,n_int_regs,0
	235,000001,Vcurrent_blocks,0
	236,000001,found_non_vacuous,0
	237,000001,n_vacuous,0
	238,000001,avail_loc,0
	239,000001,compile_fcs,0
	240,000001,sl_available,0
	241,000001,stplinks,0
	242,000001,fld_table,0
	243,000001,surr_loop,0
	244,000001,callcc_call,0
	245,000001,catchsigs,0
	246,000001,Gspcl_to_inline,0
	247,000001,htable,0
	248,000001,NodeTypeName,0
	249,000005,mknode,1
	250,000005,copylist,1
	251,000005,rpt_node,2
	252,000005,mkcompnm,1
	253,000005,prefix,2
	254,000005,maprlist,2
	255,000005,maprl1,2

proc mknode
	local	0,001000,va_alist
	local	1,000020,i
	local	2,000020,arg
	local	3,000020,arg1
	local	4,000020,arg2
	local	5,000020,arg3
	local	6,000020,arg4
	local	7,000020,arg5
	local	8,000020,arg6
	local	9,000020,arg7
	local	10,000020,arg8
	local	11,000020,arg9
	local	12,000020,arg10
	local	13,000020,arg11
	local	14,000020,arg12
	local	15,000020,arg13
	local	16,000020,arg14
	local	17,000020,arg15
	local	18,000020,arg16
	local	19,000020,ret
	local	20,000020,kind
	local	21,000020,pre_num
	local	22,000020,post_num
	local	23,000020,cn_tl_field
	local	24,000020,cn_hd_field
	local	25,000000,nil
	local	26,000000,yyinfo
	local	27,000000,nodes_total_cnt
	local	28,000000,nodes_made_cnt
	local	29,000000,rpt_err
	local	30,000000,DeclarationNode
	local	31,000000,yyvline
	local	32,000000,ParameterNode
	local	33,000000,RElementNode
	local	34,000000,VarSignature
	local	35,000000,ValSignature
	local	36,000000,FSignature
	local	37,000000,TSignature
	local	38,000000,TSComponentNode
	local	39,000000,DefCharSigNode
	local	40,000000,ListHeaderNode
	local	41,000000,SignatureSigNode
	local	42,000000,BlDenotationNode
	local	43,000000,UseListNode
	local	44,000000,ApplicationNode
	local	45,000000,EnumerationNode
	local	46,000000,ExtensionNode
	local	47,000000,ProductNode
	local	48,000000,RecordConstructionNode
	local	49,000000,UnionConstructionNode
	local	50,000000,WithListNode
	local	51,000000,ModPrimaryNode
	local	52,000000,ExportListNode
	local	53,000000,HideListNode
	local	54,000000,ExportElementNode
	local	55,000000,AllConstantsNode
	local	56,000000,WordElseNode
	local	57,000000,WordCandNode
	local	58,000000,WordCorNode
	local	59,000000,GuardedListNode
	local	60,000000,LoopDenotationNode
	local	61,000000,GuardedElementNode
	local	62,000000,OpridNode
	local	63,000000,LetterId
	local	64,000000,QStrNode
	local	65,000000,UQStrNode
	local	66,000000,FConstruction
	local	67,000000,FreeVarNode
	local	68,000000,ExternDefNode
	local	69,000000,RExternDef
	local	70,000000,DcsException
	local	71,000000,dump_info
	local	72,000000,rpt_node
	con	0,002000,1,1
	con	1,010000,15,155,153,156,157,144,145,040,166,141,137,141,154,151,163,164
	con	2,002000,1,2
	con	3,002000,1,3
	con	4,002000,1,4
	con	5,002000,1,5
	con	6,002000,1,6
	con	7,002000,1,7
	con	8,002000,1,8
	con	9,002000,1,9
	con	10,002000,2,10
	con	11,002000,2,11
	con	12,002000,2,12
	con	13,002000,2,13
	con	14,002000,2,14
	con	15,002000,2,15
	con	16,002000,2,16
	con	17,010000,33,155,153,156,157,144,145,040,156,157,040,157,146,040,141,162,147,163,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144
	con	18,002000,1,0
	con	19,002000,2,17
	con	20,002000,2,18
	con	21,002000,2,19
	con	22,002000,2,20
	con	23,002000,2,21
	con	24,002000,2,22
	con	25,002000,2,23
	con	26,002000,2,24
	con	27,002000,2,25
	con	28,002000,2,26
	con	29,002000,2,27
	con	30,002000,2,28
	con	31,002000,2,29
	con	32,002000,2,30
	con	33,002000,2,31
	con	34,002000,2,32
	con	35,002000,2,33
	con	36,002000,2,34
	con	37,002000,2,35
	con	38,002000,2,36
	con	39,002000,2,37
	con	40,002000,2,38
	con	41,002000,2,39
	con	42,010000,41,155,153,156,157,144,145,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144,040,144,165,155,160,137,151,156,146,157,050,141,162,147,061,051,040,075,040
	con	43,010000,12,155,153,157,144,145,040,162,145,164,165,162,156
	declend
	filen	stree/mknode.tmp.icn
	line	454
	colm	12
	synt	any
	mark	L1
	pnull
	var	23
	pnull
	var	24
	pnull
	var	21
	pnull
	var	22
	pnull
	var	3
	pnull
	var	4
	pnull
	var	5
	pnull
	var	6
	pnull
	var	7
	pnull
	var	8
	pnull
	var	9
	pnull
	var	10
	pnull
	var	11
	pnull
	var	12
	pnull
	var	13
	pnull
	var	14
	pnull
	var	15
	var	25
	line	458
	colm	163
	synt	any
	asgn
	line	458
	colm	154
	synt	any
	asgn
	line	458
	colm	145
	synt	any
	asgn
	line	458
	colm	136
	synt	any
	asgn
	line	458
	colm	127
	synt	any
	asgn
	line	458
	colm	119
	synt	any
	asgn
	line	458
	colm	111
	synt	any
	asgn
	line	458
	colm	103
	synt	any
	asgn
	line	458
	colm	95
	synt	any
	asgn
	line	458
	colm	87
	synt	any
	asgn
	line	458
	colm	79
	synt	any
	asgn
	line	458
	colm	71
	synt	any
	asgn
	line	458
	colm	63
	synt	any
	asgn
	line	458
	colm	55
	synt	any
	asgn
	line	458
	colm	43
	synt	any
	asgn
	line	458
	colm	32
	synt	any
	asgn
	line	458
	colm	17
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	int	0
	line	459
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	var	26
	str	1
	line	460
	colm	11
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	pnull
	var	27
	dup
	int	0
	line	461
	colm	21
	synt	any
	plus
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	28
	dup
	int	0
	line	462
	colm	20
	synt	any
	plus
	asgn
	unmark
lab L5
	mark	L6
	line	463
	colm	5
	synt	every
	mark0
	pnull
	var	2
	pnull
	var	0
	line	463
	colm	19
	synt	any
	bang
	line	463
	colm	16
	synt	any
	asgn
	pop
	mark0
	mark	L9
	line	464
	colm	9
	synt	case
	mark0
	var	1
	eret
	mark	L11
	ccase
	int	0
	line	465
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	var	3
	var	2
	line	465
	colm	21
	synt	any
	asgn
	goto	L10
lab L11
	mark	L12
	ccase
	int	2
	line	466
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	var	4
	var	2
	line	466
	colm	21
	synt	any
	asgn
	goto	L10
lab L12
	mark	L13
	ccase
	int	3
	line	467
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	var	5
	var	2
	line	467
	colm	21
	synt	any
	asgn
	goto	L10
lab L13
	mark	L14
	ccase
	int	4
	line	468
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	var	6
	var	2
	line	468
	colm	21
	synt	any
	asgn
	goto	L10
lab L14
	mark	L15
	ccase
	int	5
	line	469
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	var	7
	var	2
	line	469
	colm	21
	synt	any
	asgn
	goto	L10
lab L15
	mark	L16
	ccase
	int	6
	line	470
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	var	8
	var	2
	line	470
	colm	21
	synt	any
	asgn
	goto	L10
lab L16
	mark	L17
	ccase
	int	7
	line	471
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	var	9
	var	2
	line	471
	colm	21
	synt	any
	asgn
	goto	L10
lab L17
	mark	L18
	ccase
	int	8
	line	472
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	var	10
	var	2
	line	472
	colm	21
	synt	any
	asgn
	goto	L10
lab L18
	mark	L19
	ccase
	int	9
	line	473
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	var	11
	var	2
	line	473
	colm	21
	synt	any
	asgn
	goto	L10
lab L19
	mark	L20
	ccase
	int	10
	line	474
	colm	15
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	2
	line	474
	colm	23
	synt	any
	asgn
	goto	L10
lab L20
	mark	L21
	ccase
	int	11
	line	475
	colm	15
	synt	any
	eqv
	unmark
	pop
	pnull
	var	13
	var	2
	line	475
	colm	23
	synt	any
	asgn
	goto	L10
lab L21
	mark	L22
	ccase
	int	12
	line	476
	colm	15
	synt	any
	eqv
	unmark
	pop
	pnull
	var	14
	var	2
	line	476
	colm	24
	synt	any
	asgn
	goto	L10
lab L22
	mark	L23
	ccase
	int	13
	line	477
	colm	15
	synt	any
	eqv
	unmark
	pop
	pnull
	var	15
	var	2
	line	477
	colm	23
	synt	any
	asgn
	goto	L10
lab L23
	mark	L24
	ccase
	int	14
	line	478
	colm	15
	synt	any
	eqv
	unmark
	pop
	pnull
	var	16
	var	2
	line	478
	colm	23
	synt	any
	asgn
	goto	L10
lab L24
	mark	L25
	ccase
	int	15
	line	479
	colm	15
	synt	any
	eqv
	unmark
	pop
	pnull
	var	17
	var	2
	line	479
	colm	23
	synt	any
	asgn
	goto	L10
lab L25
	mark	L26
	ccase
	int	16
	line	480
	colm	15
	synt	any
	eqv
	unmark
	pop
	pnull
	var	18
	var	2
	line	480
	colm	23
	synt	any
	asgn
	goto	L10
lab L26
	pop
	var	29
	str	17
	line	481
	colm	29
	synt	any
	invoke	1
lab L10
	line	464
	colm	9
	synt	endcase
	unmark
lab L9
	pnull
	var	1
	dup
	int	0
	line	483
	colm	11
	synt	any
	plus
	asgn
	unmark
lab L7
	efail
lab L8
	line	463
	colm	5
	synt	endevery
	unmark
lab L6
	mark	L27
	line	486
	colm	5
	synt	case
	mark0
	var	3
	eret
	mark	L29
	ccase
	int	0
	line	487
	colm	10
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	30
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	var	18
	var	3
	var	31
	var	21
	var	22
	line	487
	colm	36
	synt	any
	invoke	19
	line	487
	colm	17
	synt	any
	asgn
	goto	L28
lab L29
	mark	L30
	ccase
	int	2
	line	488
	colm	10
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	32
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	3
	var	31
	var	21
	var	22
	line	488
	colm	33
	synt	any
	invoke	11
	line	488
	colm	16
	synt	any
	asgn
	goto	L28
lab L30
	mark	L31
	ccase
	int	3
	line	489
	colm	10
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	33
	var	4
	var	5
	var	6
	var	7
	var	8
	var	3
	var	31
	var	21
	var	22
	line	489
	colm	36
	synt	any
	invoke	9
	line	489
	colm	19
	synt	any
	asgn
	goto	L28
lab L31
	mark	L32
	ccase
	int	4
	line	490
	colm	10
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	34
	var	4
	var	5
	var	6
	var	3
	var	31
	var	21
	var	22
	line	490
	colm	32
	synt	any
	invoke	7
	line	490
	colm	16
	synt	any
	asgn
	goto	L28
lab L32
	mark	L33
	ccase
	int	5
	line	491
	colm	10
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	35
	var	4
	var	5
	var	6
	var	3
	var	31
	var	21
	var	22
	line	491
	colm	32
	synt	any
	invoke	7
	line	491
	colm	16
	synt	any
	asgn
	goto	L28
lab L33
	mark	L34
	ccase
	int	6
	line	492
	colm	10
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	36
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	3
	var	31
	var	21
	var	22
	line	492
	colm	33
	synt	any
	invoke	13
	line	492
	colm	16
	synt	any
	asgn
	goto	L28
lab L34
	mark	L35
	ccase
	int	7
	line	493
	colm	10
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	37
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	3
	var	31
	var	21
	var	22
	line	493
	colm	30
	synt	any
	invoke	15
	line	493
	colm	16
	synt	any
	asgn
	goto	L28
lab L35
	mark	L36
	ccase
	int	8
	line	494
	colm	10
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	38
	var	4
	var	5
	var	3
	var	31
	var	21
	var	22
	line	494
	colm	37
	synt	any
	invoke	6
	line	494
	colm	18
	synt	any
	asgn
	goto	L28
lab L36
	mark	L37
	ccase
	int	9
	line	495
	colm	10
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	39
	var	4
	var	5
	var	6
	var	7
	var	8
	var	3
	var	31
	var	21
	var	22
	line	495
	colm	34
	synt	any
	invoke	9
	line	495
	colm	16
	synt	any
	asgn
	goto	L28
lab L37
	mark	L38
	ccase
	int	18
	line	496
	colm	10
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	40
	var	4
	var	5
	var	3
	var	31
	var	21
	var	22
	line	496
	colm	34
	synt	any
	invoke	6
	line	496
	colm	16
	synt	any
	asgn
	goto	L28
lab L38
	mark	L39
	ccase
	int	10
	line	498
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	41
	var	4
	var	5
	var	3
	var	31
	var	21
	var	22
	line	498
	colm	37
	synt	any
	invoke	6
	line	498
	colm	17
	synt	any
	asgn
	goto	L28
lab L39
	mark	L40
	ccase
	int	11
	line	499
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	42
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	3
	var	31
	line	499
	colm	37
	synt	any
	invoke	12
	line	499
	colm	17
	synt	any
	asgn
	goto	L28
lab L40
	mark	L41
	ccase
	int	12
	line	500
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	43
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	3
	var	31
	var	21
	var	22
	line	500
	colm	32
	synt	any
	invoke	10
	line	500
	colm	17
	synt	any
	asgn
	goto	L28
lab L41
	mark	L42
	ccase
	int	13
	line	501
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	44
	var	4
	var	5
	var	6
	var	7
	var	8
	var	3
	var	31
	var	21
	var	22
	line	501
	colm	36
	synt	any
	invoke	9
	line	501
	colm	17
	synt	any
	asgn
	goto	L28
lab L42
	mark	L43
	ccase
	int	14
	line	502
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	45
	var	4
	var	5
	var	6
	var	3
	var	31
	var	21
	var	22
	line	502
	colm	36
	synt	any
	invoke	7
	line	502
	colm	17
	synt	any
	asgn
	goto	L28
lab L43
	mark	L44
	ccase
	int	15
	line	503
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	46
	var	4
	var	5
	var	6
	var	7
	var	8
	var	3
	var	31
	var	21
	var	22
	line	503
	colm	34
	synt	any
	invoke	9
	line	503
	colm	17
	synt	any
	asgn
	goto	L28
lab L44
	mark	L45
	ccase
	int	16
	line	504
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	47
	var	4
	var	5
	var	6
	var	7
	var	8
	var	3
	var	31
	var	21
	var	22
	line	504
	colm	32
	synt	any
	invoke	9
	line	504
	colm	17
	synt	any
	asgn
	goto	L28
lab L45
	mark	L46
	ccase
	int	19
	line	505
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	48
	var	4
	var	5
	var	6
	var	7
	var	3
	var	31
	var	21
	var	22
	line	505
	colm	43
	synt	any
	invoke	8
	line	505
	colm	17
	synt	any
	asgn
	goto	L28
lab L46
	mark	L47
	ccase
	int	20
	line	506
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	49
	var	4
	var	5
	var	6
	var	7
	var	8
	var	3
	var	31
	var	21
	var	22
	line	506
	colm	42
	synt	any
	invoke	9
	line	506
	colm	17
	synt	any
	asgn
	goto	L28
lab L47
	mark	L48
	ccase
	int	21
	line	507
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	50
	var	4
	var	5
	var	6
	var	3
	var	31
	var	21
	var	22
	line	507
	colm	34
	synt	any
	invoke	7
	line	507
	colm	17
	synt	any
	asgn
	goto	L28
lab L48
	mark	L49
	ccase
	int	22
	line	508
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	51
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	3
	var	31
	var	21
	var	22
	line	508
	colm	36
	synt	any
	invoke	14
	line	508
	colm	17
	synt	any
	asgn
	goto	L28
lab L49
	mark	L50
	ccase
	int	23
	line	510
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	52
	var	4
	var	5
	var	6
	var	3
	var	31
	var	21
	var	22
	line	510
	colm	35
	synt	any
	invoke	7
	line	510
	colm	17
	synt	any
	asgn
	goto	L28
lab L50
	mark	L51
	ccase
	int	24
	line	512
	colm	11
	synt	any
	eqv
	unmark
	pop
	var	53
	var	4
	var	5
	var	6
	var	3
	var	31
	var	21
	var	22
	line	512
	colm	25
	synt	any
	invoke	7
	goto	L28
lab L51
	mark	L52
	ccase
	int	25
	line	514
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	54
	var	4
	var	5
	var	6
	var	3
	var	31
	var	21
	var	22
	line	514
	colm	38
	synt	any
	invoke	7
	line	514
	colm	17
	synt	any
	asgn
	goto	L28
lab L52
	mark	L53
	ccase
	int	26
	line	515
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	55
	var	3
	var	31
	var	21
	var	22
	line	515
	colm	37
	synt	any
	invoke	4
	line	515
	colm	17
	synt	any
	asgn
	goto	L28
lab L53
	mark	L54
	ccase
	int	27
	line	516
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	56
	var	4
	var	5
	var	3
	var	31
	var	21
	var	22
	line	516
	colm	33
	synt	any
	invoke	6
	line	516
	colm	17
	synt	any
	asgn
	goto	L28
lab L54
	mark	L55
	ccase
	int	28
	line	517
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	57
	var	3
	var	31
	var	21
	var	22
	line	517
	colm	37
	synt	any
	invoke	4
	line	517
	colm	21
	synt	any
	asgn
	goto	L28
lab L55
	mark	L56
	ccase
	int	29
	line	518
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	58
	var	3
	var	31
	var	21
	var	22
	line	518
	colm	33
	synt	any
	invoke	4
	line	518
	colm	17
	synt	any
	asgn
	goto	L28
lab L56
	mark	L57
	ccase
	int	30
	line	519
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	59
	var	4
	var	5
	var	6
	var	3
	var	31
	var	21
	var	22
	line	519
	colm	36
	synt	any
	invoke	7
	line	519
	colm	17
	synt	any
	asgn
	goto	L28
lab L57
	mark	L58
	ccase
	int	31
	line	520
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	60
	var	4
	var	5
	var	6
	var	3
	var	31
	var	21
	var	22
	line	520
	colm	39
	synt	any
	invoke	7
	line	520
	colm	17
	synt	any
	asgn
	goto	L28
lab L58
	mark	L59
	ccase
	int	32
	line	521
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	61
	var	4
	var	5
	var	3
	var	31
	var	21
	var	22
	line	521
	colm	39
	synt	any
	invoke	6
	line	521
	colm	17
	synt	any
	asgn
	goto	L28
lab L59
	mark	L60
	ccase
	int	33
	line	525
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	62
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	3
	var	31
	var	21
	var	22
	line	525
	colm	30
	synt	any
	invoke	14
	line	525
	colm	17
	synt	any
	asgn
	goto	L28
lab L60
	mark	L61
	ccase
	int	34
	line	526
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	63
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	3
	var	31
	var	21
	var	22
	line	526
	colm	29
	synt	any
	invoke	14
	line	526
	colm	17
	synt	any
	asgn
	goto	L28
lab L61
	mark	L62
	ccase
	int	35
	line	527
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	64
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	3
	var	31
	var	21
	var	22
	line	527
	colm	29
	synt	any
	invoke	10
	line	527
	colm	17
	synt	any
	asgn
	goto	L28
lab L62
	mark	L63
	ccase
	int	36
	line	528
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	65
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	3
	var	31
	var	21
	var	22
	line	528
	colm	30
	synt	any
	invoke	10
	line	528
	colm	17
	synt	any
	asgn
	goto	L28
lab L63
	mark	L64
	ccase
	int	37
	line	529
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	66
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	3
	var	31
	var	21
	var	22
	line	529
	colm	34
	synt	any
	invoke	14
	line	529
	colm	17
	synt	any
	asgn
	goto	L28
lab L64
	mark	L65
	ccase
	int	38
	line	531
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	67
	var	4
	var	5
	var	6
	var	7
	var	3
	var	31
	var	21
	var	22
	line	531
	colm	32
	synt	any
	invoke	8
	line	531
	colm	17
	synt	any
	asgn
	goto	L28
lab L65
	mark	L66
	ccase
	int	39
	line	532
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	68
	var	4
	var	3
	var	31
	var	21
	var	22
	line	532
	colm	34
	synt	any
	invoke	5
	line	532
	colm	17
	synt	any
	asgn
	goto	L28
lab L66
	mark	L67
	ccase
	int	40
	line	533
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	69
	var	4
	var	5
	var	6
	var	3
	var	31
	var	21
	var	22
	line	533
	colm	31
	synt	any
	invoke	7
	line	533
	colm	17
	synt	any
	asgn
	goto	L28
lab L67
	mark	L68
	ccase
	int	41
	line	534
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	var	19
	var	70
	var	4
	var	5
	var	6
	var	7
	var	3
	var	31
	var	21
	var	22
	line	534
	colm	35
	synt	any
	invoke	8
	line	534
	colm	18
	synt	any
	asgn
	goto	L28
lab L68
	pop
	var	29
	pnull
	str	42
	var	71
	var	3
	line	535
	colm	82
	synt	any
	invoke	1
	line	535
	colm	70
	synt	any
	cat
	line	535
	colm	25
	synt	any
	invoke	1
lab L28
	line	486
	colm	5
	synt	endcase
	unmark
lab L27
	mark	L69
	var	72
	str	43
	var	19
	line	537
	colm	13
	synt	any
	invoke	2
	unmark
lab L69
	mark	L70
	mark	L71
	var	19
	line	540
	colm	6
	synt	any
	pret
lab L71
	synt	any
	pfail
	unmark
lab L70
	pnull
	line	541
	colm	2
	synt	any
	pfail
	end
proc copylist
	local	0,001000,l
	local	1,000020,l2
	local	2,000000,copy
	declend
	line	549
	colm	12
	synt	any
	mark	L1
	pnull
	var	1
	var	2
	var	0
	line	551
	colm	15
	synt	any
	invoke	1
	line	551
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	var	1
	line	552
	colm	5
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	553
	colm	2
	synt	any
	pfail
	end
proc rpt_node
	local	0,001000,where
	local	1,001000,node_it
	local	2,000020,kind
	local	3,000000,nodeinfo
	local	4,000000,repl
	local	5,000000,type
	con	0,010000,5,167,150,145,162,145
	con	1,010000,1,040
	con	2,002000,2,32
	con	3,010000,4,153,151,156,144
	con	4,002000,1,8
	con	5,010000,10,164,171,160,145,050,156,157,144,145,051
	con	6,010000,3,156,151,154
	con	7,002000,1,1
	declend
	line	554
	colm	12
	synt	any
lab L1
	init	L3
	mark	L2
	var	3
	pnull
	pnull
	pnull
	pnull
	str	0
	var	4
	str	1
	pnull
	int	2
	pnull
	str	0
	line	556
	colm	45
	synt	any
	size
	line	556
	colm	43
	synt	any
	minus
	line	556
	colm	35
	synt	any
	invoke	2
	line	556
	colm	28
	synt	any
	cat
	str	3
	line	556
	colm	55
	synt	any
	cat
	var	4
	str	1
	pnull
	int	4
	pnull
	str	3
	line	556
	colm	81
	synt	any
	size
	line	556
	colm	79
	synt	any
	minus
	line	556
	colm	72
	synt	any
	invoke	2
	line	556
	colm	65
	synt	any
	cat
	str	5
	line	556
	colm	90
	synt	any
	cat
	line	556
	colm	19
	synt	any
	invoke	1
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	2
	pnull
	var	1
	line	557
	colm	16
	synt	any
	field	kind
	line	557
	colm	6
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	line	558
	colm	2
	synt	ifelse
	mark	L6
	pnull
	var	2
	line	558
	colm	5
	synt	any
	nonnull
	unmark
	var	3
	pnull
	pnull
	pnull
	pnull
	var	0
	var	4
	str	1
	pnull
	int	2
	pnull
	var	0
	line	559
	colm	37
	synt	any
	size
	line	559
	colm	35
	synt	any
	minus
	line	559
	colm	27
	synt	any
	invoke	2
	line	559
	colm	20
	synt	any
	cat
	var	2
	line	559
	colm	45
	synt	any
	cat
	var	4
	str	1
	pnull
	int	4
	pnull
	var	2
	line	559
	colm	69
	synt	any
	size
	line	559
	colm	67
	synt	any
	minus
	line	559
	colm	60
	synt	any
	invoke	2
	line	559
	colm	53
	synt	any
	cat
	var	5
	var	1
	line	559
	colm	83
	synt	any
	invoke	1
	line	559
	colm	76
	synt	any
	cat
	line	559
	colm	13
	synt	any
	invoke	1
	goto	L7
lab L6
	var	3
	pnull
	pnull
	var	0
	var	4
	str	1
	pnull
	int	2
	pnull
	var	0
	line	561
	colm	37
	synt	any
	size
	line	561
	colm	35
	synt	any
	minus
	line	561
	colm	27
	synt	any
	invoke	2
	line	561
	colm	20
	synt	any
	cat
	str	6
	line	561
	colm	45
	synt	any
	cat
	line	561
	colm	13
	synt	any
	invoke	1
lab L7
	line	558
	colm	2
	synt	endifelse
	unmark
lab L5
	mark	L8
	mark	L9
	int	7
	line	562
	colm	1
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	563
	colm	2
	synt	any
	pfail
	end
proc mkcompnm
	local	0,001000,sttptr
	local	1,000020,result
	local	2,000000,mknode
	con	0,002000,2,32
	con	1,002000,1,1
	declend
	line	571
	colm	12
	synt	any
	mark	L1
	pnull
	var	1
	var	2
	pnull
	int	0
	var	0
	line	573
	colm	22
	synt	any
	llist	2
	line	573
	colm	21
	synt	any
	invoke	1
	line	573
	colm	12
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	574
	colm	11
	synt	any
	field	id_def_found
	int	1
	line	574
	colm	25
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	var	1
	line	575
	colm	5
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	576
	colm	1
	synt	any
	pfail
	end
proc prefix
	local	0,001000,string
	local	1,001000,id
	local	2,000020,tokenbuf
	local	3,000000,getname
	local	4,000000,mkcompnm
	local	5,000000,stt_enter
	declend
	line	586
	colm	12
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	var	0
	var	3
	pnull
	var	1
	line	588
	colm	37
	synt	any
	field	id_str_table_index
	line	588
	colm	34
	synt	any
	invoke	1
	line	588
	colm	24
	synt	any
	cat
	line	588
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	var	4
	var	5
	var	2
	pnull
	var	2
	line	589
	colm	41
	synt	any
	size
	line	589
	colm	30
	synt	any
	invoke	2
	line	589
	colm	20
	synt	any
	invoke	1
	line	589
	colm	5
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	590
	colm	1
	synt	any
	pfail
	end
proc maprlist
	local	0,001000,l
	local	1,001000,fn
	local	2,000000,maprl1
	declend
	line	595
	colm	12
	synt	any
	mark	L1
	var	2
	pnull
	var	0
	line	596
	colm	13
	synt	any
	field	lh_first
	var	1
	line	596
	colm	11
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	597
	colm	1
	synt	any
	pfail
	end
proc maprl1
	local	0,001000,l
	local	1,001000,fn
	local	2,000000,maprl1
	declend
	line	602
	colm	12
	synt	any
	mark	L1
	line	603
	colm	5
	synt	if
	mark0
	pnull
	var	0
	line	603
	colm	8
	synt	any
	nonnull
	unmark
	mark	L2
	var	2
	pnull
	var	0
	line	604
	colm	15
	synt	any
	field	cn_tl_field
	var	1
	line	604
	colm	13
	synt	any
	invoke	2
	unmark
lab L2
	var	1
	pnull
	var	0
	line	605
	colm	11
	synt	any
	field	cn_hd_field
	line	605
	colm	9
	synt	any
	invoke	1
	line	603
	colm	5
	synt	endif
	unmark
lab L1
	pnull
	line	607
	colm	1
	synt	any
	pfail
	end
