version	U12.1.00
uid	sig_out.tmp.u1-1459309272-0
record	decl_entry__state,5
	0,__s
	1,__m
	2,de_decl
	3,de_number
	4,de_next
record	decl_entry__methods,0
impl	error
global	263
	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,nodes_created_trace_file,0
	141,000001,sym2_table,0
	142,000001,line_cnt,0
	143,000001,char_cnt,0
	144,000001,token_cnt,0
	145,000001,reserved_id_cnt,0
	146,000001,reserved_op_cnt,0
	147,000001,numeral_cnt,0
	148,000001,nodes_total_cnt,0
	149,000001,nodes_made_cnt,0
	150,000001,lists_total_cnt,0
	151,000001,lists_made_cnt,0
	152,000001,yyn_switches_cnt,0
	153,000001,yyn_compute_cnt,0
	154,000001,newstate_cnt,0
	155,000001,setstate_cnt,0
	156,000001,backup_cnt,0
	157,000001,default_cnt,0
	158,000001,reduce_cnt,0
	159,000001,errlab_cnt,0
	160,000001,errlab1_cnt,0
	161,000001,defined_id_cnt,0
	162,000001,defined_op_cnt,0
	163,000001,seperator_cnt,0
	164,000001,RIC_table,0
	165,000001,RIC_op_code_cnt,0
	166,000001,RIC_table_entry_cnt,0
	167,000001,comments_cnt,0
	168,000001,sing_quoted_cnt,0
	169,000001,dbl_quoted_cnt,0
	170,000001,infile,0
	171,000001,entry_name,0
	172,000001,yyinfnm,0
	173,000001,addposition,0
	174,000001,inline_cnvt,0
	175,000001,Ginline_cnvt,0
	176,000001,Vinline_cnvt,0
	177,000001,paramstop,0
	178,000001,denseqstop,0
	179,000001,condstop,0
	180,000001,declstop,0
	181,000001,stxtree,0
	182,000001,yystate,0
	183,000001,fn_count,0
	184,000001,scanstk,0
	185,000001,stktop,0
	186,000001,scansavc,0
	187,000001,yydescr,0
	188,000001,has_externs,0
	189,000001,argcnt_from_kind,0
	190,000001,parser_actions_cnt,0
	191,000001,curr_void_decl,0
	192,000001,curr_sig_transp,0
	193,000001,curr_tsig,0
	194,000001,err_node,0
	195,000001,in_sig,0
	196,000001,in_loop,0
	197,000001,linebuf,0
	198,000001,restab,0
	199,000001,cctab,0
	200,000001,tokenlgth,0
	201,000001,yynerrs,0
	202,000001,decl_num,0
	203,000001,decl_nums,0
	204,000001,Outer_arg,0
	205,000001,file_sigs,0
	206,000001,decl_num_in,0
	207,000001,sig_table,0
	208,000001,unique_node_id,0
	209,000001,objfilelist,0
	210,000001,Idtable,0
	211,000001,dump_tree_depth,0
	212,000001,next_pre,0
	213,000001,next_post,0
	214,000001,visited,0
	215,000001,Gfc_list,0
	216,000001,Glevel,0
	217,000001,Gcurrent,0
	218,000001,Goutfile,0
	219,000001,finished_accessible,0
	220,000001,all_fcs,0
	221,000001,all_fcs_tail,0
	222,000001,outer_fc,0
	223,000001,whole_program,0
	224,000001,currect_fcs,0
	225,000001,Vcurrent_func,0
	226,000001,Vcurrent_ar,0
	227,000001,Vstatic_level,0
	228,000001,Vnext_free,0
	229,000001,Vhigh_water,0
	230,000001,Vextent_limited,0
	231,000001,Vallocate_on_stack,0
	232,000001,Vcallcc,0
	233,000001,max_addr_regs,0
	234,000001,max_int_regs,0
	235,000001,n_addr_regs,0
	236,000001,n_int_regs,0
	237,000001,Vcurrent_blocks,0
	238,000001,found_non_vacuous,0
	239,000001,n_vacuous,0
	240,000001,avail_loc,0
	241,000001,compile_fcs,0
	242,000001,sl_available,0
	243,000001,stplinks,0
	244,000001,fld_table,0
	245,000001,surr_loop,0
	246,000001,callcc_call,0
	247,000001,catchsigs,0
	248,000001,Gspcl_to_inline,0
	249,000001,htable,0
	250,000001,NodeTypeName,0
	251,000011,decl_entry__state,5
	252,000011,decl_entry__methods,0
	253,000001,decl_entry__oprec,0
	254,000005,decl_entry,3
	255,000005,decl_entryinitialize,0
	256,000005,add_decl,1
	257,000005,get_decl_num,1
	258,000005,put_string,2
	259,000005,put_name,2
	260,000005,sig_out,2
	261,000005,sig_out1,2
	262,000005,putw,2

proc decl_entry
	local	0,001000,de_decl
	local	1,001000,de_number
	local	2,001000,de_next
	local	3,000020,self
	local	4,000020,clone
	local	5,000000,decl_entry__oprec
	local	6,000000,decl_entryinitialize
	local	7,000000,decl_entry__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	5
	line	8
	colm	6
	synt	any
	null
	unmark
	var	6
	line	8
	colm	50
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	3
	var	7
	line	10
	colm	29
	synt	any
	keywd	null
	var	5
	var	0
	var	1
	var	2
	line	10
	colm	28
	synt	any
	invoke	5
	line	10
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	3
	line	11
	colm	7
	synt	any
	field	__s
	var	3
	line	11
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	var	3
	line	12
	colm	3
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	13
	colm	1
	synt	any
	pfail
	end
proc decl_entryinitialize
	local	0,000000,decl_entry__oprec
	local	1,000000,decl_entry__methods
	declend
	line	15
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	line	16
	colm	51
	synt	any
	invoke	0
	line	16
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	17
	colm	1
	synt	any
	pfail
	end
proc add_decl
	local	0,001000,decl
	local	1,000020,o
	local	2,000000,decl_num
	local	3,000000,decl_entry
	local	4,000000,decl_nums
	con	0,002000,1,1
	declend
	line	263
	colm	12
	synt	any
	mark	L1
	pnull
	var	2
	dup
	int	0
	line	265
	colm	10
	synt	any
	plus
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	var	3
	var	0
	var	2
	var	4
	line	266
	colm	20
	synt	any
	invoke	3
	line	266
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	4
	var	1
	line	267
	colm	15
	synt	any
	asgn
	unmark
lab L3
	pnull
	line	268
	colm	2
	synt	any
	pfail
	end
proc get_decl_num
	local	0,001000,decl
	local	1,000020,p
	local	2,000000,decl_nums
	con	0,002000,1,1
	declend
	line	273
	colm	12
	synt	any
	mark	L1
	pnull
	var	1
	var	2
	line	275
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	277
	colm	5
	synt	while
	mark0
	pnull
	var	1
	line	277
	colm	12
	synt	any
	nonnull
	unmark
	mark	L3
	mark	L6
	line	278
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	278
	colm	17
	synt	any
	field	pre_num
	pnull
	pnull
	var	1
	line	278
	colm	29
	synt	any
	field	de_decl
	line	278
	colm	37
	synt	any
	field	pre_num
	line	278
	colm	26
	synt	any
	numeq
	unmark
	mark	L7
	pnull
	var	1
	line	278
	colm	60
	synt	any
	field	de_number
	line	278
	colm	52
	synt	any
	pret
lab L7
	synt	any
	pfail
	line	278
	colm	9
	synt	endif
	unmark
lab L6
	pnull
	var	1
	pnull
	var	1
	line	279
	colm	15
	synt	any
	field	de_next
	line	279
	colm	11
	synt	any
	asgn
lab L4
	unmark
	goto	L3
lab L5
	line	277
	colm	5
	synt	endwhile
	unmark
lab L2
	mark	L8
	mark	L9
	pnull
	int	0
	line	281
	colm	12
	synt	any
	neg
	line	281
	colm	5
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	282
	colm	1
	synt	any
	pfail
	end
proc put_string
	local	0,001000,Soutfile
	local	1,001000,s
	declend
	line	290
	colm	12
	synt	any
	mark	L1
	pnull
	var	0
	dup
	var	1
	line	291
	colm	10
	synt	any
	lconcat
	asgn
	unmark
lab L1
	pnull
	line	292
	colm	2
	synt	any
	pfail
	end
proc put_name
	local	0,001000,Soutfile
	local	1,001000,p
	local	2,000020,string_index
	local	3,000020,name
	local	4,000020,rep
	local	5,000020,dn
	local	6,000000,get_decl_num
	local	7,000000,sig_out1
	local	8,000000,put_string
	local	9,000000,get_name
	con	0,002000,1,2
	con	1,002000,1,1
	con	2,002000,1,0
	con	3,010000,0
	declend
	line	309
	colm	12
	synt	any
	mark	L1
	pnull
	var	0
	dup
	pnull
	var	1
	line	312
	colm	21
	synt	any
	field	kind
	line	312
	colm	14
	synt	any
	lconcat
	asgn
	unmark
lab L1
	mark	L2
	line	313
	colm	5
	synt	ifelse
	mark	L3
	pnull
	pnull
	var	1
	line	313
	colm	11
	synt	any
	field	sel_type
	line	313
	colm	9
	synt	any
	nonnull
	unmark
	pnull
	var	4
	int	0
	line	314
	colm	13
	synt	any
	asgn
	goto	L4
lab L3
	line	316
	colm	9
	synt	ifelse
	mark	L5
	pnull
	pnull
	var	1
	line	316
	colm	15
	synt	any
	field	id_last_definition
	line	316
	colm	13
	synt	any
	nonnull
	pop
	pnull
	pnull
	var	5
	var	6
	pnull
	var	1
	line	317
	colm	34
	synt	any
	field	id_last_definition
	line	317
	colm	32
	synt	any
	invoke	1
	line	317
	colm	17
	synt	any
	asgn
	pnull
	int	1
	line	317
	colm	59
	synt	any
	neg
	line	317
	colm	56
	synt	any
	numne
	unmark
	pnull
	var	4
	int	2
	line	318
	colm	21
	synt	any
	asgn
	goto	L6
lab L5
	pnull
	var	4
	int	1
	line	320
	colm	21
	synt	any
	asgn
lab L6
	line	316
	colm	9
	synt	endifelse
lab L4
	line	313
	colm	5
	synt	endifelse
	unmark
lab L2
	mark	L7
	pnull
	var	0
	dup
	var	4
	line	323
	colm	14
	synt	any
	lconcat
	asgn
	unmark
lab L7
	mark	L8
	line	324
	colm	5
	synt	case
	mark0
	var	4
	eret
	mark	L10
	ccase
	int	0
	line	325
	colm	10
	synt	any
	eqv
	unmark
	pop
	var	7
	var	0
	pnull
	var	1
	line	326
	colm	33
	synt	any
	field	sel_type
	line	326
	colm	21
	synt	any
	invoke	2
	goto	L9
lab L10
	mark	L11
	ccase
	int	1
	line	327
	colm	10
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	dup
	pnull
	var	1
	line	328
	colm	29
	synt	any
	field	id_last_definition
	line	328
	colm	22
	synt	any
	lconcat
	asgn
	goto	L9
lab L11
	mark	L12
	ccase
	int	2
	line	329
	colm	10
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	dup
	var	5
	line	330
	colm	22
	synt	any
	lconcat
	asgn
	goto	L9
lab L12
	efail
lab L9
	line	324
	colm	5
	synt	endcase
	unmark
lab L8
	mark	L13
	pnull
	var	2
	pnull
	var	1
	line	332
	colm	22
	synt	any
	field	id_str_table_index
	line	332
	colm	18
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	line	333
	colm	5
	synt	ifelse
	mark	L15
	pnull
	var	2
	pnull
	int	1
	line	333
	colm	25
	synt	any
	neg
	line	333
	colm	22
	synt	any
	lexeq
	unmark
	pnull
	var	0
	dup
	str	3
	line	335
	colm	18
	synt	any
	lconcat
	asgn
	goto	L16
lab L15
	var	8
	var	0
	var	9
	var	2
	line	337
	colm	38
	synt	any
	invoke	1
	line	337
	colm	19
	synt	any
	invoke	2
lab L16
	line	333
	colm	5
	synt	endifelse
	unmark
lab L14
	pnull
	line	339
	colm	1
	synt	any
	pfail
	end
proc sig_out
	local	0,001000,Soutfile
	local	1,001000,p
	local	2,000000,decl_nums
	local	3,000000,nil
	local	4,000000,Outer_arg
	local	5,000000,sig_out1
	declend
	line	346
	colm	12
	synt	any
	mark	L1
	pnull
	var	2
	var	3
	line	347
	colm	15
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	4
	var	1
	line	348
	colm	15
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	var	5
	var	0
	var	1
	line	349
	colm	13
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	350
	colm	1
	synt	any
	pfail
	end
proc sig_out1
	local	0,001000,Soutfile
	local	1,001000,p
	local	2,000020,v
	local	3,000020,temp
	local	4,000000,putw
	local	5,000000,put_name
	local	6,000000,sig_out1
	local	7,000000,add_decl
	local	8,000000,length
	local	9,000000,pattern_assign_onmatch
	local	10,000000,bld_declaration_list
	local	11,000000,expand_str
	local	12,000000,par_id
	local	13,000000,par_signature
	local	14,000000,fsig_construction
	local	15,000000,Gflag
	local	16,000000,put_RIC
	local	17,000000,put_string
	local	18,000000,CONSTR_UNKNOWN
	local	19,000000,constr
	local	20,000000,SLINK_AVAIL
	local	21,000000,CONSTR_AVAIL
	local	22,000000,rpt_err
	con	0,002000,1,1
	con	1,002000,2,11
	con	2,010000,20,142,154,144,137,144,145,143,154,141,162,141,164,151,157,156,137,154,151,163,164
	con	3,002000,2,13
	con	4,002000,2,29
	con	5,002000,2,28
	con	6,002000,2,30
	con	7,002000,2,31
	con	8,002000,2,32
	con	9,002000,2,35
	con	10,002000,2,12
	con	11,002000,2,20
	con	12,002000,2,33
	con	13,002000,2,34
	con	14,002000,2,16
	con	15,002000,2,18
	con	16,002000,2,25
	con	17,002000,1,2
	con	18,010000,6,160,141,162,137,151,144
	con	19,010000,13,160,141,162,137,163,151,147,156,141,164,165,162,145
	con	20,002000,1,6
	con	21,002000,1,5
	con	22,002000,1,4
	con	23,002000,2,10
	con	24,002000,1,7
	con	25,002000,1,8
	con	26,002000,1,9
	con	27,010000,35,163,151,147,137,157,165,164,072,040,104,105,106,103,110,101,122,123,111,107,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,162
	con	28,002000,2,38
	con	29,002000,2,17
	con	30,010000,47,163,151,147,137,157,165,164,072,040,122,105,103,117,122,104,103,117,116,123,124,122,125,103,124,111,117,116,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144,040,171,145,164
	con	31,002000,2,15
	con	32,010000,38,163,151,147,137,157,165,164,072,040,105,130,124,105,116,123,111,117,116,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144,040,171,145,164
	con	33,002000,2,14
	con	34,010000,40,163,151,147,137,157,165,164,072,040,105,116,125,115,105,122,101,124,111,117,116,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144,040,171,145,164
	con	35,002000,1,3
	con	36,010000,42,163,151,147,137,157,165,164,072,040,122,105,103,117,122,104,105,114,105,115,105,116,124,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144,040,171,145,164
	con	37,002000,2,19
	con	38,010000,37,163,151,147,137,157,165,164,072,040,127,111,124,110,114,111,123,124,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144,040,171,145,164
	con	39,002000,2,21
	con	40,010000,39,163,151,147,137,157,165,164,072,040,105,130,120,117,122,124,114,111,123,124,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144,040,171,145,164
	con	41,002000,2,22
	con	42,010000,37,163,151,147,137,157,165,164,072,040,110,111,104,105,114,111,123,124,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144,040,171,145,164
	con	43,002000,2,23
	con	44,010000,42,163,151,147,137,157,165,164,072,040,105,130,120,117,122,124,105,114,105,115,105,116,124,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144,040,171,145,164
	con	45,002000,1,0
	con	46,010000,27,163,151,147,137,157,165,164,072,102,101,104,040,113,111,116,104,040,114,111,123,124,110,105,101,104,105,122
	con	47,002000,2,36
	con	48,002000,2,26
	con	49,002000,2,27
	con	50,002000,2,37
	declend
	line	352
	colm	13
	synt	any
	mark	L1
	line	355
	colm	2
	synt	if
	mark0
	pnull
	var	1
	line	355
	colm	6
	synt	any
	null
	unmark
	mark	L2
	var	4
	pnull
	int	0
	line	356
	colm	10
	synt	any
	neg
	var	0
	line	356
	colm	9
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	int	0
	line	357
	colm	5
	synt	any
	pret
lab L3
	synt	any
	pfail
	line	355
	colm	2
	synt	endif
	unmark
lab L1
	mark	L4
	line	360
	colm	1
	synt	case
	mark0
	pnull
	var	1
	line	360
	colm	9
	synt	any
	field	kind
	eret
	mark	L6
	ccase
	int	0
	line	361
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L7
	var	4
	int	0
	var	0
	line	362
	colm	13
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	5
	var	0
	pnull
	var	1
	line	364
	colm	29
	synt	any
	field	decl_id
	line	364
	colm	17
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	4
	pnull
	var	1
	line	365
	colm	15
	synt	any
	field	decl_sig_transp
	var	0
	line	365
	colm	13
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	6
	var	0
	pnull
	var	1
	line	366
	colm	29
	synt	any
	field	decl_signature
	line	366
	colm	17
	synt	any
	invoke	2
	unmark
lab L10
	var	6
	var	0
	pnull
	var	1
	line	367
	colm	29
	synt	any
	field	decl_denotation
	line	367
	colm	17
	synt	any
	invoke	2
	goto	L5
lab L6
	mark	L11
	ccase
	int	1
	line	369
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L12
	var	4
	int	1
	var	0
	line	370
	colm	13
	synt	any
	invoke	2
	unmark
lab L12
	mark	L13
	pnull
	var	3
	pnull
	var	1
	line	371
	colm	18
	synt	any
	field	bld_declaration_list
	line	371
	colm	14
	synt	any
	asgn
	unmark
lab L13
	mark	L14
lab L15
	line	372
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	372
	colm	15
	synt	any
	nonnull
	unmark
	mark	L15
	mark	L18
	pnull
	var	2
	pnull
	var	3
	line	373
	colm	22
	synt	any
	field	cn_hd_field
	line	373
	colm	15
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	var	7
	var	2
	line	374
	colm	21
	synt	any
	invoke	1
	unmark
lab L19
	pnull
	var	3
	pnull
	var	3
	line	375
	colm	25
	synt	any
	field	cn_tl_field
	line	375
	colm	18
	synt	any
	asgn
lab L16
	unmark
	goto	L15
lab L17
	line	372
	colm	9
	synt	endwhile
	unmark
lab L14
	mark	L20
	var	4
	var	8
	var	9
	var	1
	var	10
	str	2
	line	377
	colm	44
	synt	any
	invoke	3
	line	377
	colm	20
	synt	any
	invoke	1
	var	0
	line	377
	colm	13
	synt	any
	invoke	2
	unmark
lab L20
	mark	L21
	pnull
	var	3
	pnull
	var	1
	line	379
	colm	18
	synt	any
	field	bld_declaration_list
	line	379
	colm	14
	synt	any
	asgn
	unmark
lab L21
	mark	L22
lab L23
	line	380
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	380
	colm	15
	synt	any
	nonnull
	unmark
	mark	L23
	mark	L26
	pnull
	var	2
	pnull
	var	3
	line	381
	colm	22
	synt	any
	field	cn_hd_field
	line	381
	colm	15
	synt	any
	asgn
	unmark
lab L26
	mark	L27
	var	6
	var	0
	var	2
	line	382
	colm	21
	synt	any
	invoke	2
	unmark
lab L27
	pnull
	var	3
	pnull
	var	3
	line	383
	colm	25
	synt	any
	field	cn_tl_field
	line	383
	colm	18
	synt	any
	asgn
lab L24
	unmark
	goto	L23
lab L25
	line	380
	colm	9
	synt	endwhile
	unmark
lab L22
	mark	L28
	var	4
	var	8
	pnull
	var	1
	line	385
	colm	22
	synt	any
	field	bld_den_seq
	line	385
	colm	20
	synt	any
	invoke	1
	var	0
	line	385
	colm	13
	synt	any
	invoke	2
	unmark
lab L28
	mark	L29
	pnull
	var	3
	pnull
	var	1
	line	386
	colm	18
	synt	any
	field	bld_den_seq
	line	386
	colm	14
	synt	any
	asgn
	unmark
lab L29
lab L30
	line	387
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	387
	colm	15
	synt	any
	nonnull
	unmark
	mark	L30
	mark	L33
	pnull
	var	2
	pnull
	var	3
	line	388
	colm	22
	synt	any
	field	cn_hd_field
	line	388
	colm	15
	synt	any
	asgn
	unmark
lab L33
	mark	L34
	var	6
	var	0
	var	2
	line	389
	colm	21
	synt	any
	invoke	2
	unmark
lab L34
	pnull
	var	3
	pnull
	var	3
	line	390
	colm	25
	synt	any
	field	cn_tl_field
	line	390
	colm	18
	synt	any
	asgn
lab L31
	unmark
	goto	L30
lab L32
	line	387
	colm	9
	synt	endwhile
	goto	L5
lab L11
	mark	L35
	ccase
	int	3
	line	393
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L36
	var	4
	int	3
	var	0
	line	394
	colm	13
	synt	any
	invoke	2
	unmark
lab L36
	mark	L37
	var	6
	var	0
	pnull
	var	1
	line	395
	colm	29
	synt	any
	field	ap_operator
	line	395
	colm	17
	synt	any
	invoke	2
	unmark
lab L37
	mark	L38
	var	4
	var	8
	pnull
	var	1
	line	396
	colm	22
	synt	any
	field	ap_args
	line	396
	colm	20
	synt	any
	invoke	1
	var	0
	line	396
	colm	13
	synt	any
	invoke	2
	unmark
lab L38
	mark	L39
	pnull
	var	3
	pnull
	var	1
	line	397
	colm	18
	synt	any
	field	ap_rgs
	line	397
	colm	14
	synt	any
	asgn
	unmark
lab L39
lab L40
	line	398
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	398
	colm	15
	synt	any
	nonnull
	unmark
	mark	L40
	mark	L43
	pnull
	var	2
	pnull
	var	3
	line	399
	colm	22
	synt	any
	field	cn_hd_field
	line	399
	colm	15
	synt	any
	asgn
	unmark
lab L43
	mark	L44
	var	6
	var	0
	var	2
	line	400
	colm	21
	synt	any
	invoke	2
	unmark
lab L44
	pnull
	var	3
	pnull
	var	3
	line	401
	colm	25
	synt	any
	field	cn_tl_field
	line	401
	colm	18
	synt	any
	asgn
lab L41
	unmark
	goto	L40
lab L42
	line	398
	colm	9
	synt	endwhile
	goto	L5
lab L35
	mark	L45
	ccase
	int	4
	line	404
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L46
	var	4
	pnull
	var	1
	line	405
	colm	15
	synt	any
	field	kind
	var	0
	line	405
	colm	13
	synt	any
	invoke	2
	unmark
lab L46
	mark	L47
	var	4
	var	8
	pnull
	var	1
	line	406
	colm	22
	synt	any
	field	gl_list
	line	406
	colm	20
	synt	any
	invoke	1
	var	0
	line	406
	colm	13
	synt	any
	invoke	2
	unmark
lab L47
	mark	L48
	pnull
	var	3
	pnull
	var	1
	line	407
	colm	18
	synt	any
	field	gl_list
	line	407
	colm	14
	synt	any
	asgn
	unmark
lab L48
lab L49
	line	408
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	408
	colm	15
	synt	any
	nonnull
	unmark
	mark	L49
	mark	L52
	pnull
	var	2
	pnull
	var	3
	line	409
	colm	22
	synt	any
	field	cn_hd_field
	line	409
	colm	15
	synt	any
	asgn
	unmark
lab L52
	mark	L53
	var	6
	var	0
	var	2
	line	410
	colm	21
	synt	any
	invoke	2
	unmark
lab L53
	pnull
	var	3
	pnull
	var	3
	line	411
	colm	25
	synt	any
	field	cn_tl_field
	line	411
	colm	18
	synt	any
	asgn
lab L50
	unmark
	goto	L49
lab L51
	line	408
	colm	9
	synt	endwhile
	goto	L5
lab L45
	mark	L54
	ccase
	int	5
	line	414
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L55
	var	4
	pnull
	var	1
	line	415
	colm	15
	synt	any
	field	kind
	var	0
	line	415
	colm	13
	synt	any
	invoke	2
	unmark
lab L55
	mark	L56
	var	4
	var	8
	pnull
	var	1
	line	416
	colm	22
	synt	any
	field	gl_list
	line	416
	colm	20
	synt	any
	invoke	1
	var	0
	line	416
	colm	13
	synt	any
	invoke	2
	unmark
lab L56
	mark	L57
	pnull
	var	3
	pnull
	var	1
	line	417
	colm	18
	synt	any
	field	gl_list
	line	417
	colm	14
	synt	any
	asgn
	unmark
lab L57
lab L58
	line	418
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	418
	colm	15
	synt	any
	nonnull
	unmark
	mark	L58
	mark	L61
	pnull
	var	2
	pnull
	var	3
	line	419
	colm	22
	synt	any
	field	cn_hd_field
	line	419
	colm	15
	synt	any
	asgn
	unmark
lab L61
	mark	L62
	var	6
	var	0
	var	2
	line	420
	colm	21
	synt	any
	invoke	2
	unmark
lab L62
	pnull
	var	3
	pnull
	var	3
	line	421
	colm	25
	synt	any
	field	cn_tl_field
	line	421
	colm	18
	synt	any
	asgn
lab L59
	unmark
	goto	L58
lab L60
	line	418
	colm	9
	synt	endwhile
	goto	L5
lab L54
	mark	L63
	ccase
	int	6
	line	424
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L64
	var	4
	int	6
	var	0
	line	425
	colm	13
	synt	any
	invoke	2
	unmark
lab L64
	mark	L65
	var	6
	var	0
	pnull
	var	1
	line	426
	colm	29
	synt	any
	field	ge_guard
	line	426
	colm	17
	synt	any
	invoke	2
	unmark
lab L65
	mark	L66
	var	6
	var	0
	pnull
	var	1
	line	427
	colm	29
	synt	any
	field	ge_element
	line	427
	colm	17
	synt	any
	invoke	2
	unmark
lab L66
	pnull
	goto	L5
lab L63
	mark	L67
	ccase
	int	7
	line	429
	colm	7
	synt	any
	eqv
	unmark
	pop
	line	430
	colm	9
	synt	ifelse
	mark	L68
	pnull
	pnull
	var	1
	line	430
	colm	16
	synt	any
	field	sel_type
	line	430
	colm	14
	synt	any
	null
	pop
	pnull
	pnull
	var	1
	line	431
	colm	17
	synt	any
	field	id_last_definition
	line	431
	colm	13
	synt	any
	nonnull
	pop
	pnull
	pnull
	pnull
	var	1
	line	432
	colm	15
	synt	any
	field	id_last_definition
	line	432
	colm	34
	synt	any
	field	kind
	int	0
	line	432
	colm	40
	synt	any
	numeq
	pop
	pnull
	pnull
	pnull
	var	1
	line	433
	colm	16
	synt	any
	field	id_last_definition
	line	433
	colm	35
	synt	any
	field	decl_sig_transp
	line	433
	colm	14
	synt	any
	nonnull
	unmark
	var	6
	var	0
	pnull
	pnull
	var	1
	line	435
	colm	27
	synt	any
	field	id_last_definition
	line	435
	colm	46
	synt	any
	field	decl_denotation
	line	434
	colm	25
	synt	any
	invoke	2
	goto	L69
lab L68
	var	5
	var	0
	var	1
	line	437
	colm	25
	synt	any
	invoke	2
lab L69
	line	430
	colm	9
	synt	endifelse
	goto	L5
lab L67
	mark	L70
	ccase
	int	8
	line	440
	colm	7
	synt	any
	eqv
	unmark
	pop
	line	441
	colm	9
	synt	ifelse
	mark	L71
	pnull
	pnull
	var	1
	line	441
	colm	16
	synt	any
	field	sel_type
	line	441
	colm	14
	synt	any
	null
	pop
	pnull
	pnull
	var	1
	line	442
	colm	17
	synt	any
	field	id_last_definition
	line	442
	colm	13
	synt	any
	nonnull
	pop
	pnull
	pnull
	pnull
	var	1
	line	443
	colm	15
	synt	any
	field	id_last_definition
	line	443
	colm	34
	synt	any
	field	kind
	int	0
	line	443
	colm	40
	synt	any
	numeq
	pop
	pnull
	pnull
	pnull
	var	1
	line	444
	colm	16
	synt	any
	field	id_last_definition
	line	444
	colm	35
	synt	any
	field	decl_sig_transp
	line	444
	colm	14
	synt	any
	nonnull
	unmark
	var	6
	var	0
	pnull
	pnull
	var	1
	line	446
	colm	27
	synt	any
	field	id_last_definition
	line	446
	colm	46
	synt	any
	field	decl_denotation
	line	445
	colm	25
	synt	any
	invoke	2
	goto	L72
lab L71
	var	5
	var	0
	var	1
	line	448
	colm	25
	synt	any
	invoke	2
lab L72
	line	441
	colm	9
	synt	endifelse
	goto	L5
lab L70
	mark	L73
	ccase
	int	9
	line	451
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L74
	var	4
	int	9
	var	0
	line	452
	colm	13
	synt	any
	invoke	2
	unmark
lab L74
	mark	L75
	var	6
	var	0
	pnull
	var	1
	line	453
	colm	29
	synt	any
	field	signature
	line	453
	colm	17
	synt	any
	invoke	2
	unmark
lab L75
	var	6
	var	0
	pnull
	var	1
	line	454
	colm	29
	synt	any
	field	fc_body
	line	454
	colm	17
	synt	any
	invoke	2
	goto	L5
lab L73
	mark	L76
	ccase
	int	10
	line	456
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L77
	var	4
	int	10
	var	0
	line	457
	colm	13
	synt	any
	invoke	2
	unmark
lab L77
	mark	L78
	var	4
	var	8
	pnull
	var	1
	line	458
	colm	22
	synt	any
	field	usl_type_list
	line	458
	colm	20
	synt	any
	invoke	1
	var	0
	line	458
	colm	13
	synt	any
	invoke	2
	unmark
lab L78
	mark	L79
	pnull
	var	3
	pnull
	pnull
	var	1
	line	459
	colm	18
	synt	any
	field	usl
	line	459
	colm	22
	synt	any
	field	den_seq
	line	459
	colm	14
	synt	any
	asgn
	unmark
lab L79
	mark	L80
lab L81
	line	460
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	460
	colm	15
	synt	any
	nonnull
	unmark
	mark	L81
	mark	L84
	pnull
	var	2
	pnull
	var	3
	line	461
	colm	22
	synt	any
	field	cn_hd_fiel
	line	461
	colm	15
	synt	any
	asgn
	unmark
lab L84
	mark	L85
	var	6
	var	0
	var	2
	line	462
	colm	21
	synt	any
	invoke	2
	unmark
lab L85
	pnull
	var	3
	pnull
	var	3
	line	463
	colm	25
	synt	any
	field	cn_tl_field
	line	463
	colm	18
	synt	any
	asgn
lab L82
	unmark
	goto	L81
lab L83
	line	460
	colm	9
	synt	endwhile
	unmark
lab L80
	mark	L86
	var	4
	var	8
	pnull
	var	1
	line	465
	colm	22
	synt	any
	field	usl_den_seq
	line	465
	colm	20
	synt	any
	invoke	1
	var	0
	line	465
	colm	13
	synt	any
	invoke	2
	unmark
lab L86
	mark	L87
	pnull
	var	3
	pnull
	var	1
	line	466
	colm	18
	synt	any
	field	usl_den_seq
	line	466
	colm	14
	synt	any
	asgn
	unmark
lab L87
lab L88
	line	467
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	467
	colm	15
	synt	any
	nonnull
	unmark
	mark	L88
	mark	L91
	pnull
	var	2
	pnull
	var	3
	line	468
	colm	22
	synt	any
	field	cn_hd_fiel
	line	468
	colm	15
	synt	any
	asgn
	unmark
lab L91
	mark	L92
	var	6
	var	0
	var	2
	line	469
	colm	21
	synt	any
	invoke	2
	unmark
lab L92
	pnull
	var	3
	pnull
	var	3
	line	470
	colm	25
	synt	any
	field	cn_tl_field
	line	470
	colm	18
	synt	any
	asgn
lab L89
	unmark
	goto	L88
lab L90
	line	467
	colm	9
	synt	endwhile
	goto	L5
lab L76
	mark	L93
	ccase
	int	11
	line	473
	colm	7
	synt	any
	eqv
	unmark
	pop
	line	474
	colm	9
	synt	ifelse
	mark	L94
	pnull
	pnull
	var	1
	line	474
	colm	15
	synt	any
	field	mp_type_modifier
	line	474
	colm	13
	synt	any
	null
	unmark
	mark	L96
	var	6
	var	0
	pnull
	var	1
	line	476
	colm	33
	synt	any
	field	mp_primary
	line	476
	colm	21
	synt	any
	invoke	2
	unmark
lab L96
	pnull
	goto	L95
lab L94
	mark	L97
	var	7
	var	1
	line	478
	colm	21
	synt	any
	invoke	1
	unmark
lab L97
	mark	L98
	var	4
	int	11
	var	0
	line	479
	colm	17
	synt	any
	invoke	2
	unmark
lab L98
	mark	L99
	var	6
	var	0
	pnull
	var	1
	line	480
	colm	33
	synt	any
	field	mp_primary
	line	480
	colm	21
	synt	any
	invoke	2
	unmark
lab L99
	var	6
	var	0
	pnull
	var	1
	line	481
	colm	33
	synt	any
	field	mp_type_modifier
	line	481
	colm	21
	synt	any
	invoke	2
lab L95
	line	474
	colm	9
	synt	endifelse
	goto	L5
lab L93
	mark	L100
	ccase
	int	12
	line	485
	colm	7
	synt	any
	eqv
	unmark
	pop
	line	486
	colm	14
	synt	ifelse
	mark	L101
	pnull
	pnull
	var	1
	line	486
	colm	20
	synt	any
	field	str_expansion
	line	486
	colm	18
	synt	any
	null
	unmark
	var	6
	var	0
	var	11
	var	1
	line	487
	colm	47
	synt	any
	invoke	1
	line	487
	colm	26
	synt	any
	invoke	2
	goto	L102
lab L101
	var	6
	var	0
	pnull
	var	1
	line	489
	colm	38
	synt	any
	field	str_expansion
	line	489
	colm	26
	synt	any
	invoke	2
lab L102
	line	486
	colm	14
	synt	endifelse
	goto	L5
lab L100
	mark	L103
	ccase
	int	13
	line	493
	colm	7
	synt	any
	eqv
	unmark
	pop
	line	494
	colm	9
	synt	ifelse
	mark	L104
	pnull
	pnull
	var	1
	line	494
	colm	15
	synt	any
	field	str_expansion
	line	494
	colm	13
	synt	any
	null
	unmark
	var	6
	var	0
	var	11
	var	1
	line	495
	colm	42
	synt	any
	invoke	1
	line	495
	colm	21
	synt	any
	invoke	2
	goto	L105
lab L104
	var	6
	var	0
	pnull
	var	1
	line	497
	colm	33
	synt	any
	field	str_expansion
	line	497
	colm	21
	synt	any
	invoke	2
lab L105
	line	494
	colm	9
	synt	endifelse
	goto	L5
lab L103
	mark	L106
	ccase
	int	14
	line	501
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L107
	var	7
	var	1
	line	502
	colm	17
	synt	any
	invoke	1
	unmark
lab L107
	mark	L108
	var	4
	pnull
	var	1
	line	503
	colm	15
	synt	any
	field	kind
	var	0
	line	503
	colm	13
	synt	any
	invoke	2
	unmark
lab L108
	mark	L109
	var	6
	var	0
	pnull
	var	1
	line	504
	colm	29
	synt	any
	field	prod_local_type_id
	line	504
	colm	17
	synt	any
	invoke	2
	unmark
lab L109
	mark	L110
	var	4
	var	8
	pnull
	var	1
	line	505
	colm	22
	synt	any
	field	prod_components
	line	505
	colm	20
	synt	any
	invoke	1
	var	0
	line	505
	colm	13
	synt	any
	invoke	2
	unmark
lab L110
	mark	L111
	pnull
	var	3
	pnull
	var	1
	line	506
	colm	18
	synt	any
	field	prod_components
	line	506
	colm	14
	synt	any
	asgn
	unmark
lab L111
lab L112
	line	507
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	507
	colm	15
	synt	any
	nonnull
	unmark
	mark	L112
	mark	L115
	pnull
	var	2
	pnull
	var	3
	line	508
	colm	22
	synt	any
	field	cn_hd_field
	line	508
	colm	15
	synt	any
	asgn
	unmark
lab L115
	mark	L116
	var	6
	var	0
	var	2
	line	509
	colm	21
	synt	any
	invoke	2
	unmark
lab L116
	pnull
	var	3
	pnull
	var	3
	line	510
	colm	25
	synt	any
	field	cn_tl_field
	line	510
	colm	18
	synt	any
	asgn
lab L113
	unmark
	goto	L112
lab L114
	line	507
	colm	9
	synt	endwhile
	goto	L5
lab L106
	mark	L117
	ccase
	int	15
	line	513
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L118
	var	7
	var	1
	line	514
	colm	17
	synt	any
	invoke	1
	unmark
lab L118
	mark	L119
	var	4
	pnull
	var	1
	line	515
	colm	15
	synt	any
	field	kind
	var	0
	line	515
	colm	13
	synt	any
	invoke	2
	unmark
lab L119
	mark	L120
	var	6
	var	0
	pnull
	var	1
	line	516
	colm	29
	synt	any
	field	prod_local_type_id
	line	516
	colm	17
	synt	any
	invoke	2
	unmark
lab L120
	mark	L121
	var	4
	var	8
	pnull
	var	1
	line	517
	colm	22
	synt	any
	field	prod_components
	line	517
	colm	20
	synt	any
	invoke	1
	var	0
	line	517
	colm	13
	synt	any
	invoke	2
	unmark
lab L121
	mark	L122
	pnull
	var	3
	pnull
	var	1
	line	518
	colm	18
	synt	any
	field	prod_components
	line	518
	colm	14
	synt	any
	asgn
	unmark
lab L122
lab L123
	line	519
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	519
	colm	15
	synt	any
	nonnull
	unmark
	mark	L123
	mark	L126
	pnull
	var	2
	pnull
	var	3
	line	520
	colm	22
	synt	any
	field	cn_hd_field
	line	520
	colm	15
	synt	any
	asgn
	unmark
lab L126
	mark	L127
	var	6
	var	0
	var	2
	line	521
	colm	21
	synt	any
	invoke	2
	unmark
lab L127
	pnull
	var	3
	pnull
	var	3
	line	522
	colm	25
	synt	any
	field	cn_tl_field
	line	522
	colm	18
	synt	any
	asgn
lab L124
	unmark
	goto	L123
lab L125
	line	519
	colm	9
	synt	endwhile
	goto	L5
lab L117
	mark	L128
	ccase
	int	16
	line	525
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	4
	int	16
	var	0
	line	526
	colm	13
	synt	any
	invoke	2
	goto	L5
lab L128
	mark	L129
	ccase
	int	17
	line	528
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L130
	var	4
	int	17
	var	0
	line	529
	colm	13
	synt	any
	invoke	2
	unmark
lab L130
	mark	L131
	var	6
	var	0
	var	9
	var	1
	var	12
	str	18
	line	530
	colm	50
	synt	any
	invoke	3
	line	530
	colm	17
	synt	any
	invoke	2
	unmark
lab L131
	var	6
	var	0
	var	9
	var	1
	var	13
	str	19
	line	531
	colm	50
	synt	any
	invoke	3
	line	531
	colm	17
	synt	any
	invoke	2
	goto	L5
lab L129
	mark	L132
	ccase
	int	20
	line	533
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L133
	line	535
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	535
	colm	16
	synt	any
	field	fsig_inline_code
	line	535
	colm	14
	synt	any
	null
	pop
	pnull
	var	14
	line	536
	colm	14
	synt	any
	nonnull
	unmark
	pnull
	pnull
	var	1
	line	537
	colm	18
	synt	any
	field	fsig_inline_code
	pnull
	pnull
	pnull
	var	1
	line	537
	colm	40
	synt	any
	field	fsig_construction
	line	537
	colm	58
	synt	any
	field	signature
	line	537
	colm	68
	synt	any
	field	fsig_inline_code
	line	537
	colm	36
	synt	any
	asgn
	line	535
	colm	9
	synt	endif
	unmark
lab L133
	mark	L134
	var	4
	int	20
	var	0
	line	539
	colm	13
	synt	any
	invoke	2
	unmark
lab L134
	mark	L135
	var	4
	pnull
	var	1
	line	540
	colm	15
	synt	any
	field	fsig_special
	var	0
	line	540
	colm	13
	synt	any
	invoke	2
	unmark
lab L135
	mark	L136
	line	541
	colm	9
	synt	ifelse
	mark	L137
	var	15
	unmark
	mark	L139
	var	16
	pnull
	var	1
	line	542
	colm	22
	synt	any
	field	fsig_inline_code
	var	0
	line	542
	colm	20
	synt	any
	invoke	2
	unmark
lab L139
	pnull
	goto	L138
lab L137
	var	17
	var	0
	pnull
	var	1
	line	544
	colm	35
	synt	any
	field	fsig_inline_code
	line	544
	colm	23
	synt	any
	invoke	2
lab L138
	line	541
	colm	9
	synt	endifelse
	unmark
lab L136
	mark	L140
	pnull
	var	3
	pnull
	var	1
	line	547
	colm	18
	synt	any
	field	fsig_param_list
	line	547
	colm	14
	synt	any
	asgn
	unmark
lab L140
	mark	L141
lab L142
	line	548
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	548
	colm	15
	synt	any
	nonnull
	unmark
	mark	L142
	mark	L145
	pnull
	var	2
	pnull
	var	3
	line	549
	colm	22
	synt	any
	field	cn_hd_field
	line	549
	colm	15
	synt	any
	asgn
	unmark
lab L145
	mark	L146
	var	7
	var	2
	line	550
	colm	21
	synt	any
	invoke	1
	unmark
lab L146
	pnull
	var	3
	pnull
	var	3
	line	551
	colm	25
	synt	any
	field	cn_tail_field
	line	551
	colm	18
	synt	any
	asgn
lab L143
	unmark
	goto	L142
lab L144
	line	548
	colm	9
	synt	endwhile
	unmark
lab L141
	mark	L147
	var	4
	var	8
	pnull
	var	1
	line	553
	colm	22
	synt	any
	field	fsig_param_list
	line	553
	colm	20
	synt	any
	invoke	1
	var	0
	line	553
	colm	13
	synt	any
	invoke	2
	unmark
lab L147
	mark	L148
	pnull
	var	3
	pnull
	var	1
	line	554
	colm	18
	synt	any
	field	fsig_param_list
	line	554
	colm	14
	synt	any
	asgn
	unmark
lab L148
	mark	L149
lab L150
	line	555
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	555
	colm	15
	synt	any
	nonnull
	unmark
	mark	L150
	mark	L153
	pnull
	var	2
	pnull
	var	3
	line	556
	colm	22
	synt	any
	field	cn_hd_field
	line	556
	colm	15
	synt	any
	asgn
	unmark
lab L153
	mark	L154
	var	6
	var	0
	var	2
	line	557
	colm	21
	synt	any
	invoke	2
	unmark
lab L154
	pnull
	var	3
	pnull
	var	3
	line	558
	colm	25
	synt	any
	field	cn_tl_field
	line	558
	colm	18
	synt	any
	asgn
lab L151
	unmark
	goto	L150
lab L152
	line	555
	colm	9
	synt	endwhile
	unmark
lab L149
	mark	L155
	var	6
	var	0
	pnull
	var	1
	line	560
	colm	29
	synt	any
	field	fsig_result_sig
	line	560
	colm	17
	synt	any
	invoke	2
	unmark
lab L155
	line	565
	colm	5
	synt	ifelse
	mark	L156
	pnull
	pnull
	var	1
	line	565
	colm	12
	synt	any
	field	fsig_construction
	line	565
	colm	9
	synt	any
	null
	unmark
	var	4
	var	18
	var	0
	line	566
	colm	13
	synt	any
	invoke	2
	goto	L157
lab L156
	mark	L158
	pnull
	var	19
	pnull
	var	1
	line	568
	colm	20
	synt	any
	field	fsig_construction
	line	568
	colm	16
	synt	any
	asgn
	unmark
lab L158
	mark	L159
	line	569
	colm	9
	synt	ifelse
	mark	L160
	pnull
	var	1
	line	569
	colm	14
	synt	any
	field	fsig_slink_known
	unmark
	var	4
	var	20
	var	0
	line	570
	colm	17
	synt	any
	invoke	2
	goto	L161
lab L160
	var	4
	var	21
	var	0
	line	572
	colm	17
	synt	any
	invoke	2
lab L161
	line	569
	colm	9
	synt	endifelse
	unmark
lab L159
	mark	L162
	var	4
	pnull
	var	19
	line	574
	colm	20
	synt	any
	field	fc_complexity
	var	0
	line	574
	colm	13
	synt	any
	invoke	2
	unmark
lab L162
	mark	L163
	var	17
	var	0
	pnull
	var	19
	line	575
	colm	36
	synt	any
	field	fc_code_label
	line	575
	colm	19
	synt	any
	invoke	2
	unmark
lab L163
	mark	L164
	var	4
	pnull
	var	19
	line	576
	colm	20
	synt	any
	field	ar_static_level
	var	0
	line	576
	colm	13
	synt	any
	invoke	2
	unmark
lab L164
	var	4
	pnull
	var	19
	line	577
	colm	20
	synt	any
	field	ar_size
	var	0
	line	577
	colm	13
	synt	any
	invoke	2
lab L157
	line	565
	colm	5
	synt	endifelse
	goto	L5
lab L132
	mark	L165
	ccase
	int	21
	line	580
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L166
	var	4
	int	21
	var	0
	line	581
	colm	13
	synt	any
	invoke	2
	unmark
lab L166
	mark	L167
	var	6
	var	0
	pnull
	var	1
	line	582
	colm	29
	synt	any
	field	val_denotation
	line	582
	colm	17
	synt	any
	invoke	2
	unmark
lab L167
	pnull
	goto	L5
lab L165
	mark	L168
	ccase
	int	22
	line	584
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L169
	var	4
	int	22
	var	0
	line	585
	colm	13
	synt	any
	invoke	2
	unmark
lab L169
	var	6
	var	0
	pnull
	var	1
	line	586
	colm	29
	synt	any
	field	var_denotation
	line	586
	colm	17
	synt	any
	invoke	2
	goto	L5
lab L168
	mark	L170
	ccase
	int	23
	line	588
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	4
	int	23
	var	0
	line	589
	colm	13
	synt	any
	invoke	2
	goto	L5
lab L170
	mark	L171
	ccase
	int	24
	line	591
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L172
	var	7
	var	1
	line	592
	colm	17
	synt	any
	invoke	1
	unmark
lab L172
	mark	L173
	var	4
	int	24
	var	0
	line	593
	colm	13
	synt	any
	invoke	2
	unmark
lab L173
	mark	L174
	var	6
	var	0
	pnull
	var	1
	line	594
	colm	29
	synt	any
	field	ts_local_type_id
	line	594
	colm	17
	synt	any
	invoke	2
	unmark
lab L174
	mark	L175
	var	4
	var	8
	pnull
	var	1
	line	595
	colm	22
	synt	any
	field	ts_clist
	line	595
	colm	20
	synt	any
	invoke	1
	var	0
	line	595
	colm	13
	synt	any
	invoke	2
	unmark
lab L175
	mark	L176
	pnull
	var	3
	pnull
	pnull
	var	1
	line	596
	colm	18
	synt	any
	field	ts
	line	596
	colm	21
	synt	any
	field	clist
	line	596
	colm	14
	synt	any
	asgn
	unmark
lab L176
	mark	L177
lab L178
	line	597
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	597
	colm	15
	synt	any
	nonnull
	unmark
	mark	L178
	mark	L181
	pnull
	var	2
	pnull
	var	3
	line	598
	colm	22
	synt	any
	field	cn_hd_field
	line	598
	colm	15
	synt	any
	asgn
	unmark
lab L181
	mark	L182
	var	6
	var	0
	var	2
	line	599
	colm	21
	synt	any
	invoke	2
	unmark
lab L182
	pnull
	var	3
	pnull
	var	3
	line	600
	colm	25
	synt	any
	field	cn_tl_field
	line	600
	colm	18
	synt	any
	asgn
lab L179
	unmark
	goto	L178
lab L180
	line	597
	colm	9
	synt	endwhile
	unmark
lab L177
	mark	L183
	var	17
	var	0
	pnull
	var	1
	line	603
	colm	31
	synt	any
	field	ts_const_code
	line	603
	colm	19
	synt	any
	invoke	2
	unmark
lab L183
	mark	L184
	var	17
	var	0
	pnull
	var	1
	line	604
	colm	31
	synt	any
	field	ts_string_code
	line	604
	colm	19
	synt	any
	invoke	2
	unmark
lab L184
	mark	L185
	var	17
	var	0
	pnull
	var	1
	line	605
	colm	31
	synt	any
	field	ts_element_code
	line	605
	colm	19
	synt	any
	invoke	2
	unmark
lab L185
	mark	L186
	var	4
	pnull
	var	1
	line	606
	colm	15
	synt	any
	field	ts_string_max
	var	0
	line	606
	colm	13
	synt	any
	invoke	2
	unmark
lab L186
	var	4
	pnull
	var	1
	line	607
	colm	15
	synt	any
	field	ts_simple_type
	var	0
	line	607
	colm	13
	synt	any
	invoke	2
	goto	L5
lab L171
	mark	L187
	ccase
	int	25
	line	609
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L188
	var	4
	int	25
	var	0
	line	610
	colm	13
	synt	any
	invoke	2
	unmark
lab L188
	mark	L189
	var	6
	var	0
	pnull
	var	1
	line	611
	colm	29
	synt	any
	field	tsc_id
	line	611
	colm	17
	synt	any
	invoke	2
	unmark
lab L189
	var	6
	var	0
	pnull
	var	1
	line	612
	colm	29
	synt	any
	field	tsc_signature
	line	612
	colm	17
	synt	any
	invoke	2
	goto	L5
lab L187
	mark	L190
	ccase
	int	26
	line	614
	colm	6
	synt	any
	eqv
	unmark
	pop
	var	22
	str	27
	line	616
	colm	20
	synt	any
	invoke	1
	goto	L5
lab L190
	mark	L191
	ccase
	int	28
	line	628
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L192
	var	4
	int	28
	var	0
	line	629
	colm	13
	synt	any
	invoke	2
	unmark
lab L192
	var	17
	var	0
	pnull
	var	1
	line	630
	colm	31
	synt	any
	field	r_ext_name
	line	630
	colm	19
	synt	any
	invoke	2
	goto	L5
lab L191
	mark	L193
	ccase
	int	29
	line	633
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	30
	line	635
	colm	20
	synt	any
	invoke	1
	goto	L5
lab L193
	mark	L194
	ccase
	int	31
	line	637
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	32
	line	639
	colm	20
	synt	any
	invoke	1
	goto	L5
lab L194
	mark	L195
	ccase
	int	33
	line	641
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	34
	line	643
	colm	20
	synt	any
	invoke	1
	goto	L5
lab L195
	mark	L196
	ccase
	int	35
	line	645
	colm	6
	synt	any
	eqv
	unmark
	pop
	var	22
	str	36
	line	647
	colm	20
	synt	any
	invoke	1
	goto	L5
lab L196
	mark	L197
	ccase
	int	37
	line	649
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	38
	line	651
	colm	20
	synt	any
	invoke	1
	goto	L5
lab L197
	mark	L198
	ccase
	int	39
	line	653
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	40
	line	655
	colm	20
	synt	any
	invoke	1
	goto	L5
lab L198
	mark	L199
	ccase
	int	41
	line	657
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	42
	line	659
	colm	20
	synt	any
	invoke	1
	goto	L5
lab L199
	mark	L200
	ccase
	int	43
	line	661
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	44
	line	663
	colm	20
	synt	any
	invoke	1
	goto	L5
lab L200
	mark	L201
	ccase
	int	45
	line	665
	colm	6
	synt	any
	eqv
	unmark
	pop
	var	22
	str	46
	line	667
	colm	20
	synt	any
	invoke	1
	goto	L5
lab L201
	mark	L202
	ccase
	int	47
	line	669
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	46
	line	671
	colm	20
	synt	any
	invoke	1
	goto	L5
lab L202
	mark	L203
	ccase
	int	48
	line	673
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	46
	line	675
	colm	20
	synt	any
	invoke	1
	goto	L5
lab L203
	mark	L204
	ccase
	int	49
	line	677
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	46
	line	679
	colm	20
	synt	any
	invoke	1
	goto	L5
lab L204
	mark	L205
	ccase
	int	50
	line	681
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	46
	line	683
	colm	20
	synt	any
	invoke	1
	goto	L5
lab L205
	pop
	var	22
	str	46
	line	688
	colm	20
	synt	any
	invoke	1
lab L5
	line	360
	colm	1
	synt	endcase
	unmark
lab L4
	mark	L206
	mark	L207
	int	0
	line	691
	colm	1
	synt	any
	pret
lab L207
	synt	any
	pfail
	unmark
lab L206
	pnull
	line	692
	colm	2
	synt	any
	pfail
	end
proc putw
	local	0,001000,w
	local	1,001000,Soutfile
	con	0,002000,1,1
	declend
	line	693
	colm	15
	synt	any
	mark	L1
	pnull
	var	1
	dup
	var	0
	line	694
	colm	14
	synt	any
	lconcat
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	int	0
	line	695
	colm	2
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	696
	colm	2
	synt	any
	pfail
	end
