version	U12.1.00
uid	findsig.tmp.u1-1465100070-0
impl	error
global	254
	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,next_pre,0
	212,000001,next_post,0
	213,000001,visited,0
	214,000001,Gfc_list,0
	215,000001,Glevel,0
	216,000001,Gcurrent,0
	217,000001,Goutfile,0
	218,000001,finished_accessible,0
	219,000001,all_fcs,0
	220,000001,all_fcs_tail,0
	221,000001,outer_fc,0
	222,000001,whole_program,0
	223,000001,currect_fcs,0
	224,000001,Vcurrent_func,0
	225,000001,Vcurrent_ar,0
	226,000001,Vstatic_level,0
	227,000001,Vnext_free,0
	228,000001,Vhigh_water,0
	229,000001,Vextent_limited,0
	230,000001,Vallocate_on_stack,0
	231,000001,Vcallcc,0
	232,000001,max_addr_regs,0
	233,000001,max_int_regs,0
	234,000001,n_addr_regs,0
	235,000001,n_int_regs,0
	236,000001,Vcurrent_blocks,0
	237,000001,found_non_vacuous,0
	238,000001,n_vacuous,0
	239,000001,avail_loc,0
	240,000001,compile_fcs,0
	241,000001,sl_available,0
	242,000001,stplinks,0
	243,000001,fld_table,0
	244,000001,surr_loop,0
	245,000001,callcc_call,0
	246,000001,catchsigs,0
	247,000001,Gspcl_to_inline,0
	248,000001,htable,0
	249,000001,NodeTypeName,0
	250,000001,dump__tree_depth,0
	251,000001,trash_id,0
	252,000005,findsig,2
	253,000005,tl_findsig,2

proc findsig
	local	0,001000,p_orig
	local	1,001000,dont_coerce
	local	2,000020,knd
	local	3,000020,status
	local	4,000020,q
	local	5,000020,r
	local	6,000020,all_ok
	local	7,000020,p
	local	8,000020,nresult
	local	9,000020,old_may_fail
	local	10,000020,is_void
	local	11,000020,good_element
	local	12,000020,kinds_differ
	local	13,000020,coerce_guards
	local	14,000020,prev_kind
	local	15,000020,curr_kind
	local	16,000020,nelement
	local	17,000020,nguard
	local	18,000020,last_den
	local	19,000020,den_sig
	local	20,000020,par_list
	local	21,000020,arg_list
	local	22,000020,comp_list
	local	23,000020,local_id
	local	24,000020,self_it
	local	25,000020,simple_type
	local	26,000020,len
	local	27,000020,i
	local	28,000020,temp
	local	29,000020,par
	local	30,000020,arg
	local	31,000020,t
	local	32,000020,s
	local	33,000020,vac
	local	34,000020,field_list
	local	35,000020,id_list
	local	36,000020,self_param
	local	37,000020,self_plist
	local	38,000020,Int_param
	local	39,000020,Int_plist
	local	40,000020,In_sig
	local	41,000020,Out_sig
	local	42,000020,sig
	local	43,000020,orig_sig
	local	44,000020,new_sig
	local	45,000020,id_In
	local	46,000020,id_Out
	local	47,000020,Osig
	local	48,000020,Mk_param_list
	local	49,000020,id_New
	local	50,000020,id_ValueOf
	local	51,000020,id_assign
	local	52,000020,re_den_sig
	local	53,000020,vl_field_sig
	local	54,000020,vr_field_sig
	local	55,000020,sel_sig
	local	56,000020,maxlen
	local	57,000000,fix_p
	local	58,000000,rpt_err
	local	59,000000,findidsig
	local	60,000000,initsig
	local	61,000000,sig_Signature
	local	62,000000,findsig
	local	63,000000,Gflag
	local	64,000000,Gfind_inline
	local	65,000000,find_inline
	local	66,000000,may_fail
	local	67,000000,comp_st
	local	68,000000,val_Void
	local	69,000000,nil
	local	70,000000,dontsubst
	local	71,000000,cn_cons
	local	72,000000,coerce
	local	73,000000,vfree
	local	74,000000,amatch
	local	75,000000,match_delv
	local	76,000000,mknode
	local	77,000000,match_len
	local	78,000000,findapplsig
	local	79,000000,cn_hd_field
	local	80,000000,cn_tl_field
	local	81,000000,lock
	local	82,000000,unlock
	local	83,000000,fixhints
	local	84,000000,chgsig
	local	85,000000,Nflag
	local	86,000000,iand
	local	87,000000,clear_slink_known
	local	88,000000,last
	local	89,000000,sig_structure
	local	90,000000,val_Boolean
	local	91,000000,rpt_dbg
	local	92,000000,dbgmsg
	local	93,000000,findstdecl
	local	94,000000,rpt_err_node
	local	95,000000,MAXSTRLEN
	local	96,000000,on_dontsubst
	local	97,000000,NIL
	local	98,000000,expand_str
	local	99,000000,findmpsig
	local	100,000000,emptylist
	local	101,000000,UNDEFNAME
	local	102,000000,copynode
	local	103,000000,length
	local	104,000000,vacuous_arg
	local	105,000000,mkcompnm
	local	106,000000,indx_New
	local	107,000000,sig_New
	local	108,000000,special
	local	109,000000,init_inline
	local	110,000000,addright
	local	111,000000,indx_ValueOf
	local	112,000000,sig_ValueOf
	local	113,000000,indx_assign
	local	114,000000,sig_assign
	local	115,000000,indx_Mk
	local	116,000000,next_pre
	local	117,000000,first
	local	118,000000,subst
	local	119,000000,tsig_order
	local	120,000000,tsubst
	local	121,000000,self
	local	122,000000,getname
	local	123,000000,spcl_to_inline
	local	124,000000,prefix
	local	125,000000,mklist
	local	126,000000,FALSE1
	local	127,000000,val_Integer
	local	128,000000,indx_equals
	local	129,000000,sig_equals
	local	130,000000,indx_ne
	local	131,000000,indx_First
	local	132,000000,sig_const
	local	133,000000,indx_Last
	local	134,000000,indx_Pred
	local	135,000000,indx_Succ
	local	136,000000,indx_Ord
	local	137,000000,indx_OrdInv
	local	138,000000,indx_Card
	local	139,000000,copylist
	local	140,000000,indx_In
	local	141,000000,indx_Out
	local	142,000000,getcomp
	local	143,000000,inscomp
	local	144,000000,comp_index
	local	145,000000,rpt_err_noe
	con	0,002000,1,1
	con	1,010000,15,146,151,156,144,163,151,147,072,040,160,040,040,156,151,154
	con	2,002000,1,2
	con	3,002000,1,0
	con	4,002000,2,31
	con	5,002000,2,32
	con	6,002000,1,5
	con	7,002000,1,4
	con	8,002000,1,6
	con	9,002000,1,7
	con	10,002000,2,10
	con	11,002000,2,35
	con	12,002000,2,37
	con	13,002000,2,20
	con	14,002000,2,13
	con	15,002000,2,28
	con	16,002000,2,11
	con	17,002000,2,16
	con	18,002000,2,12
	con	19,002000,2,25
	con	20,002000,2,29
	con	21,002000,2,26
	con	22,010000,29,146,151,156,144,163,151,147,072,040,143,141,156,144,040,040,151,156,040,163,171,156,164,141,170,040,164,162,145,145
	con	23,002000,2,27
	con	24,010000,29,146,151,156,144,163,151,147,072,040,040,143,157,162,040,151,156,040,163,171,156,164,141,170,040,164,162,145,145,012
	con	25,002000,2,33
	con	26,010000,24,116,157,040,141,160,160,162,157,160,162,151,141,164,145,040,164,171,160,145,040,146,157,162,040
	con	27,002000,2,34
	con	28,002000,1,8
	con	29,002000,1,3
	con	30,002000,2,46
	con	31,010000,27,120,162,157,144,165,143,164,040,143,157,155,160,157,156,145,156,164,040,156,157,164,040,156,141,155,145,144
	con	32,002000,2,18
	con	33,010000,22,102,141,144,040,165,156,151,157,156,040,146,151,145,154,144,040,156,141,155,145,072,040
	con	34,010000,3,164,157,137
	con	35,010000,3,151,163,137
	con	36,002000,1,9
	con	37,002000,2,47
	con	38,010000,5,146,162,157,155,137
	con	39,002000,2,14
	con	40,002000,2,19
	con	41,002000,2,21
	con	42,002000,2,22
	con	43,002000,2,23
	con	44,002000,2,24
	con	45,002000,2,15
	con	46,010000,38,146,151,156,144,163,151,147,072,040,105,170,164,145,156,163,151,157,156,040,141,162,147,165,155,145,156,164,040,156,157,164,040,141,040,164,171,160,145
	con	47,010000,40,146,151,156,144,163,151,147,040,111,156,040,157,143,143,165,162,163,040,151,156,040,145,170,164,145,156,144,040,141,162,147,165,155,145,156,164,040,163,151,147
	con	48,010000,33,117,165,164,040,157,143,143,165,162,163,040,151,156,040,145,170,164,145,156,144,040,141,162,147,165,155,145,156,164,040,163,151,147
	con	49,002000,2,17
	con	50,010000,42,116,157,156,055,164,171,160,145,040,145,170,160,162,145,163,163,151,157,156,040,151,156,040,162,145,143,157,162,144,040,143,157,156,163,164,162,165,143,164,151,157,156
	con	51,010000,34,116,157,040,126,040,157,160,145,162,141,164,151,157,156,040,151,156,040,162,145,143,157,162,144,040,143,157,155,160,157,156,145,156,164
	con	52,010000,36,116,157,040,116,145,167,040,157,160,145,162,141,164,151,157,156,040,151,156,040,162,145,143,157,162,144,040,143,157,155,160,157,156,145,156,164
	con	53,010000,35,116,157,040,072,075,040,157,160,145,162,141,164,151,157,156,040,151,156,040,162,145,143,157,162,144,040,143,157,155,160,157,156,145,156,164
	con	54,002000,2,38
	con	55,010000,38,146,151,156,144,163,151,147,072,040,122,105,130,124,105,122,116,104,105,106,040,167,151,164,150,157,165,164,040,163,151,147,156,141,164,165,162,145,012
	con	56,010000,32,146,151,156,144,163,151,147,072,040,165,156,153,156,157,167,156,040,145,170,160,162,145,163,163,151,157,156,040,153,151,156,144
	declend
	filen	pass4/findsig.tmp.icn
	line	169
	colm	12
	synt	any
	mark	L1
	line	188
	colm	5
	synt	if
	mark0
	pnull
	var	0
	line	188
	colm	8
	synt	any
	null
	unmark
	mark	L2
	int	0
	line	188
	colm	21
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	188
	colm	5
	synt	endif
	unmark
lab L1
	mark	L3
	pnull
	var	7
	var	57
	var	0
	line	189
	colm	15
	synt	any
	invoke	1
	line	189
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	190
	colm	5
	synt	if
	mark0
	pnull
	var	7
	line	190
	colm	8
	synt	any
	null
	unmark
	var	58
	str	1
	line	190
	colm	23
	synt	any
	invoke	1
	line	190
	colm	5
	synt	endif
	unmark
lab L4
	mark	L5
	pnull
	var	3
	pnull
	var	7
	line	192
	colm	17
	synt	any
	field	sig_done
	line	192
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	line	196
	colm	5
	synt	if
	mark0
	pnull
	var	3
	int	2
	line	196
	colm	16
	synt	any
	eqv
	unmark
	mark	L7
	int	3
	line	197
	colm	9
	synt	any
	pret
lab L7
	synt	any
	pfail
	line	196
	colm	5
	synt	endif
	unmark
lab L6
	mark	L8
	line	198
	colm	5
	synt	if
	mark0
	pnull
	var	3
	int	0
	line	198
	colm	16
	synt	any
	eqv
	unmark
	mark	L9
	var	7
	line	199
	colm	9
	synt	any
	pret
lab L9
	synt	any
	pfail
	line	198
	colm	5
	synt	endif
	unmark
lab L8
	mark	L10
	pnull
	var	2
	pnull
	var	7
	line	201
	colm	14
	synt	any
	field	kind
	line	201
	colm	9
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	7
	line	203
	colm	7
	synt	any
	field	sig_done
	int	0
	line	203
	colm	18
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	line	204
	colm	5
	synt	case
	mark0
	var	2
	eret
	mark	L14
	ccase
	int	4
	line	205
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L15
	var	59
	var	7
	line	206
	colm	29
	synt	any
	invoke	1
	line	206
	colm	13
	synt	any
	pret
lab L15
	synt	any
	pfail
	goto	L13
lab L14
	mark	L16
	ccase
	int	5
	line	207
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L17
	var	59
	var	7
	line	208
	colm	29
	synt	any
	invoke	1
	line	208
	colm	13
	synt	any
	pret
lab L17
	synt	any
	pfail
	goto	L13
lab L16
	mark	L18
	ccase
	int	6
	line	209
	colm	10
	synt	any
	eqv
	unmark
	pop
	mark	L19
	var	60
	var	7
	var	61
	line	211
	colm	24
	synt	any
	invoke	2
	unmark
lab L19
	mark	L20
	pnull
	pnull
	var	7
	line	212
	colm	19
	synt	any
	field	sig_done
	int	2
	line	212
	colm	30
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	int	3
	line	213
	colm	17
	synt	any
	pret
lab L21
	synt	any
	pfail
	goto	L13
lab L18
	mark	L22
	ccase
	int	7
	line	215
	colm	10
	synt	any
	eqv
	unmark
	pop
	mark	L23
	var	60
	var	7
	var	61
	line	217
	colm	24
	synt	any
	invoke	2
	unmark
lab L23
	mark	L24
	pnull
	pnull
	var	7
	line	218
	colm	19
	synt	any
	field	sig_done
	int	2
	line	218
	colm	30
	synt	any
	asgn
	unmark
lab L24
	mark	L25
	int	3
	line	219
	colm	17
	synt	any
	pret
lab L25
	synt	any
	pfail
	goto	L13
lab L22
	mark	L26
	ccase
	int	8
	line	221
	colm	10
	synt	any
	eqv
	unmark
	pop
	mark	L27
	var	60
	var	7
	var	61
	line	223
	colm	24
	synt	any
	invoke	2
	unmark
lab L27
	mark	L28
	pnull
	pnull
	var	7
	line	224
	colm	19
	synt	any
	field	sig_done
	int	2
	line	224
	colm	30
	synt	any
	asgn
	unmark
lab L28
	mark	L29
	int	3
	line	225
	colm	17
	synt	any
	pret
lab L29
	synt	any
	pfail
	goto	L13
lab L26
	mark	L30
	ccase
	int	9
	line	227
	colm	10
	synt	any
	eqv
	unmark
	pop
	mark	L31
	var	60
	var	7
	var	61
	line	229
	colm	24
	synt	any
	invoke	2
	unmark
lab L31
	mark	L32
	pnull
	pnull
	var	7
	line	230
	colm	19
	synt	any
	field	sig_done
	int	2
	line	230
	colm	30
	synt	any
	asgn
	unmark
lab L32
	mark	L33
	int	3
	line	231
	colm	17
	synt	any
	pret
lab L33
	synt	any
	pfail
	goto	L13
lab L30
	mark	L34
	ccase
	int	10
	line	233
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L35
	var	60
	var	7
	var	61
	line	235
	colm	24
	synt	any
	invoke	2
	unmark
lab L35
	mark	L36
	pnull
	pnull
	var	7
	line	236
	colm	19
	synt	any
	field	sig_done
	int	2
	line	236
	colm	30
	synt	any
	asgn
	unmark
lab L36
	mark	L37
	int	3
	line	237
	colm	17
	synt	any
	pret
lab L37
	synt	any
	pfail
	goto	L13
lab L34
	mark	L38
	ccase
	int	11
	line	239
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L39
	pnull
	var	4
	pnull
	pnull
	var	7
	line	241
	colm	24
	synt	any
	field	signature
	line	241
	colm	36
	synt	any
	field	fsig_result_sig
	line	241
	colm	19
	synt	any
	asgn
	unmark
lab L39
	line	242
	colm	17
	synt	ifelse
	mark	L40
	pnull
	var	4
	line	242
	colm	21
	synt	any
	null
	unmark
	mark	L42
	line	243
	colm	21
	synt	if
	mark0
	pnull
	pnull
	var	5
	var	62
	pnull
	var	7
	line	243
	colm	41
	synt	any
	field	fc_body
	int	3
	line	243
	colm	38
	synt	any
	invoke	2
	line	243
	colm	28
	synt	any
	asgn
	int	3
	line	243
	colm	55
	synt	any
	numne
	unmark
	mark	L43
	pnull
	pnull
	var	7
	line	244
	colm	27
	synt	any
	field	sig_done
	int	3
	line	244
	colm	38
	synt	any
	numeq
	unmark
lab L43
	mark	L44
	var	5
	line	245
	colm	25
	synt	any
	pret
lab L44
	synt	any
	pfail
	line	243
	colm	21
	synt	endif
	unmark
lab L42
	mark	L45
	line	247
	colm	21
	synt	ifelse
	mark	L46
	pnull
	pnull
	pnull
	var	7
	line	247
	colm	26
	synt	any
	field	fc_body
	line	247
	colm	36
	synt	any
	field	signature
	int	2
	line	247
	colm	48
	synt	any
	numne
	unmark
	mark	L48
	pnull
	pnull
	pnull
	var	7
	line	248
	colm	26
	synt	any
	field	signature
	line	248
	colm	36
	synt	any
	field	fsig_result_sig
	pnull
	pnull
	var	7
	line	248
	colm	57
	synt	any
	field	fc_body
	line	248
	colm	65
	synt	any
	field	signature
	line	248
	colm	53
	synt	any
	asgn
	unmark
lab L48
	line	249
	colm	25
	synt	ifelse
	mark	L49
	pnull
	var	63
	int	3
	line	249
	colm	35
	synt	any
	numne
	unmark
	var	64
	var	7
	line	250
	colm	41
	synt	any
	invoke	1
	goto	L50
lab L49
	var	65
	var	7
	line	252
	colm	40
	synt	any
	invoke	1
lab L50
	line	249
	colm	25
	synt	endifelse
	goto	L47
lab L46
	pnull
	pnull
	pnull
	var	7
	line	255
	colm	27
	synt	any
	field	signature
	line	255
	colm	39
	synt	any
	field	fsig_result_sig
	int	2
	line	255
	colm	57
	synt	any
	asgn
lab L47
	line	247
	colm	21
	synt	endifelse
	unmark
lab L45
	mark	L51
	pnull
	pnull
	var	7
	line	257
	colm	23
	synt	any
	field	sig_done
	int	2
	line	257
	colm	34
	synt	any
	asgn
	unmark
lab L51
	mark	L52
	int	3
	line	258
	colm	21
	synt	any
	pret
lab L52
	synt	any
	pfail
	goto	L41
lab L40
	mark	L53
	pnull
	var	9
	var	66
	line	261
	colm	34
	synt	any
	asgn
	unmark
lab L53
	mark	L54
	line	262
	colm	21
	synt	ifelse
	mark	L55
	pnull
	var	67
	var	68
	var	4
	var	69
	var	69
	line	262
	colm	31
	synt	any
	invoke	4
	int	3
	line	262
	colm	55
	synt	any
	numeq
	unmark
	pnull
	var	10
	int	0
	line	263
	colm	34
	synt	any
	asgn
	goto	L56
lab L55
	pnull
	var	10
	int	3
	line	264
	colm	34
	synt	any
	asgn
lab L56
	line	262
	colm	21
	synt	endifelse
	unmark
lab L54
	mark	L57
	line	266
	colm	21
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	7
	line	266
	colm	27
	synt	any
	field	fc_body
	line	266
	colm	37
	synt	any
	field	kind
	int	12
	line	266
	colm	44
	synt	any
	numeq
	unmark
	mark	L58
	pnull
	pnull
	var	7
	line	267
	colm	27
	synt	any
	field	sig_done
	int	2
	line	267
	colm	38
	synt	any
	asgn
	unmark
lab L58
	mark	L59
	line	268
	colm	25
	synt	ifelse
	mark	L60
	pnull
	var	63
	int	3
	line	268
	colm	35
	synt	any
	numne
	unmark
	var	64
	var	7
	line	269
	colm	41
	synt	any
	invoke	1
	goto	L61
lab L60
	var	65
	var	7
	line	271
	colm	40
	synt	any
	invoke	1
lab L61
	line	268
	colm	25
	synt	endifelse
	unmark
lab L59
	mark	L62
	int	3
	line	273
	colm	25
	synt	any
	pret
lab L62
	synt	any
	pfail
	line	266
	colm	21
	synt	endif
	unmark
lab L57
	mark	L63
	pnull
	var	66
	int	0
	line	275
	colm	30
	synt	any
	asgn
	unmark
lab L63
	mark	L64
	pnull
	var	5
	var	62
	pnull
	var	7
	line	276
	colm	36
	synt	any
	field	fc_body
	var	10
	line	276
	colm	33
	synt	any
	invoke	2
	line	276
	colm	23
	synt	any
	asgn
	unmark
lab L64
	mark	L65
	pnull
	var	66
	var	9
	line	277
	colm	30
	synt	any
	asgn
	unmark
lab L65
	mark	L66
	line	278
	colm	21
	synt	if
	mark0
	pnull
	var	5
	int	3
	line	278
	colm	27
	synt	any
	numne
	unmark
	mark	L67
	pnull
	var	70
	var	71
	var	7
	var	70
	line	279
	colm	45
	synt	any
	invoke	2
	line	279
	colm	35
	synt	any
	asgn
	unmark
lab L67
	mark	L68
	pnull
	pnull
	var	7
	line	280
	colm	27
	synt	any
	field	sig_done
	int	2
	line	280
	colm	38
	synt	any
	asgn
	unmark
lab L68
	mark	L69
	int	3
	line	281
	colm	25
	synt	any
	pret
lab L69
	synt	any
	pfail
	line	278
	colm	21
	synt	endif
	unmark
lab L66
	mark	L70
	line	284
	colm	21
	synt	if
	mark0
	mark	L71
	pnull
	var	4
	int	2
	line	284
	colm	27
	synt	any
	numeq
	line	284
	colm	31
	synt	any
	esusp
	goto	L72
lab L71
	pnull
	pnull
	pnull
	var	7
	line	285
	colm	27
	synt	any
	field	fc_body
	line	285
	colm	37
	synt	any
	field	signature
	int	2
	line	285
	colm	49
	synt	any
	numeq
lab L72
	unmark
	mark	L73
	pnull
	pnull
	var	7
	line	286
	colm	31
	synt	any
	field	sig_done
	int	2
	line	286
	colm	42
	synt	any
	asgn
	unmark
lab L73
	mark	L74
	int	3
	line	287
	colm	29
	synt	any
	pret
lab L74
	synt	any
	pfail
	line	284
	colm	21
	synt	endif
	unmark
lab L70
	mark	L75
	line	289
	colm	21
	synt	if
	mark0
	pnull
	pnull
	var	4
	line	289
	colm	27
	synt	any
	field	kind
	int	6
	line	289
	colm	34
	synt	any
	numeq
	pop
	pnull
	var	10
	int	3
	line	289
	colm	48
	synt	any
	numeq
	pop
	pnull
	pnull
	pnull
	pnull
	var	7
	line	290
	colm	27
	synt	any
	field	fc_body
	line	290
	colm	37
	synt	any
	field	signature
	line	290
	colm	49
	synt	any
	field	kind
	int	6
	line	290
	colm	56
	synt	any
	numne
	unmark
	mark	L76
	pnull
	var	8
	var	72
	pnull
	var	7
	line	292
	colm	49
	synt	any
	field	fc_body
	line	292
	colm	46
	synt	any
	invoke	1
	line	292
	colm	37
	synt	any
	asgn
	unmark
lab L76
	mark	L77
	line	293
	colm	29
	synt	if
	mark0
	pnull
	pnull
	var	5
	var	62
	var	8
	int	3
	line	293
	colm	46
	synt	any
	invoke	2
	line	293
	colm	36
	synt	any
	asgn
	int	3
	line	293
	colm	59
	synt	any
	numne
	unmark
	mark	L78
	pnull
	pnull
	var	7
	line	294
	colm	35
	synt	any
	field	sig_done
	int	3
	line	294
	colm	46
	synt	any
	asgn
	unmark
lab L78
	mark	L79
	var	73
	var	8
	line	295
	colm	38
	synt	any
	invoke	1
	unmark
lab L79
	mark	L80
	var	5
	line	296
	colm	33
	synt	any
	pret
lab L80
	synt	any
	pfail
	line	293
	colm	29
	synt	endif
	unmark
lab L77
	pnull
	pnull
	var	7
	line	298
	colm	31
	synt	any
	field	fc_body
	var	8
	line	298
	colm	41
	synt	any
	asgn
	line	289
	colm	21
	synt	endif
	unmark
lab L75
	mark	L81
	line	300
	colm	21
	synt	if
	mark0
	pnull
	pnull
	var	4
	line	300
	colm	27
	synt	any
	field	kind
	int	9
	line	300
	colm	34
	synt	any
	numeq
	pop
	var	74
	pnull
	pnull
	var	7
	line	301
	colm	34
	synt	any
	field	fc_body
	line	301
	colm	44
	synt	any
	field	signature
	var	4
	line	301
	colm	31
	synt	any
	invoke	2
	pop
	pnull
	var	75
	line	302
	colm	25
	synt	any
	nonnull
	unmark
	mark	L82
	pnull
	var	8
	var	76
	pnull
	int	13
	pnull
	var	7
	line	304
	colm	50
	synt	any
	field	fc_body
	var	69
	var	75
	line	303
	colm	47
	synt	any
	llist	4
	line	303
	colm	46
	synt	any
	invoke	1
	line	303
	colm	37
	synt	any
	asgn
	unmark
lab L82
	mark	L83
	pnull
	pnull
	var	8
	line	307
	colm	37
	synt	any
	field	mp_orig_length
	var	77
	line	307
	colm	54
	synt	any
	asgn
	unmark
lab L83
	mark	L84
	pnull
	pnull
	var	8
	line	308
	colm	37
	synt	any
	field	signature
	var	4
	line	308
	colm	49
	synt	any
	asgn
	unmark
lab L84
	mark	L85
	pnull
	pnull
	var	8
	line	309
	colm	37
	synt	any
	field	sig_done
	int	2
	line	309
	colm	48
	synt	any
	asgn
	unmark
lab L85
	pnull
	pnull
	var	7
	line	310
	colm	31
	synt	any
	field	fc_body
	var	8
	line	310
	colm	41
	synt	any
	asgn
	line	300
	colm	21
	synt	endif
	unmark
lab L81
	mark	L86
	line	314
	colm	21
	synt	if
	mark0
	pnull
	var	67
	pnull
	pnull
	var	7
	line	314
	colm	35
	synt	any
	field	fc_body
	line	314
	colm	45
	synt	any
	field	signature
	pnull
	pnull
	var	7
	line	315
	colm	35
	synt	any
	field	signature
	line	315
	colm	47
	synt	any
	field	fsig_result_sig
	var	69
	var	69
	line	314
	colm	32
	synt	any
	invoke	4
	int	3
	line	316
	colm	43
	synt	any
	numeq
	unmark
	pnull
	pnull
	pnull
	var	7
	line	317
	colm	38
	synt	any
	field	signature
	line	317
	colm	48
	synt	any
	field	fsig_result_sig
	pnull
	pnull
	var	7
	line	317
	colm	69
	synt	any
	field	fc_body
	line	317
	colm	77
	synt	any
	field	signature
	line	317
	colm	65
	synt	any
	asgn
	line	314
	colm	21
	synt	endif
	unmark
lab L86
	mark	L87
	line	319
	colm	21
	synt	ifelse
	mark	L88
	pnull
	var	63
	int	3
	line	319
	colm	31
	synt	any
	numne
	unmark
	var	64
	var	7
	line	320
	colm	37
	synt	any
	invoke	1
	goto	L89
lab L88
	var	65
	var	7
	line	322
	colm	36
	synt	any
	invoke	1
lab L89
	line	319
	colm	21
	synt	endifelse
	unmark
lab L87
	mark	L90
	pnull
	pnull
	var	7
	line	324
	colm	23
	synt	any
	field	sig_done
	int	2
	line	324
	colm	34
	synt	any
	asgn
	unmark
lab L90
	mark	L91
	int	3
	line	325
	colm	21
	synt	any
	pret
lab L91
	synt	any
	pfail
lab L41
	line	242
	colm	17
	synt	endifelse
	goto	L13
lab L38
	mark	L92
	ccase
	int	14
	line	328
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L93
	var	78
	var	7
	line	329
	colm	31
	synt	any
	invoke	1
	line	329
	colm	13
	synt	any
	pret
lab L93
	synt	any
	pfail
	goto	L13
lab L92
	mark	L94
	ccase
	int	15
	line	330
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L95
	pnull
	var	14
	pnull
	int	0
	line	332
	colm	30
	synt	any
	neg
	line	332
	colm	27
	synt	any
	asgn
	unmark
lab L95
	mark	L96
	pnull
	var	9
	var	66
	line	333
	colm	30
	synt	any
	asgn
	unmark
lab L96
	mark	L97
	pnull
	var	11
	var	69
	line	335
	colm	30
	synt	any
	asgn
	unmark
lab L97
	mark	L98
	pnull
	var	6
	int	0
	line	336
	colm	24
	synt	any
	asgn
	unmark
lab L98
	mark	L99
	pnull
	var	12
	int	3
	line	337
	colm	30
	synt	any
	asgn
	unmark
lab L99
	mark	L100
	pnull
	var	13
	int	3
	line	338
	colm	31
	synt	any
	asgn
	unmark
lab L100
	mark	L101
	pnull
	var	28
	pnull
	pnull
	var	7
	line	340
	colm	27
	synt	any
	field	gl_list
	line	340
	colm	36
	synt	any
	field	lh_first
	line	340
	colm	22
	synt	any
	asgn
	unmark
lab L101
	mark	L102
lab L103
	line	341
	colm	17
	synt	while
	mark0
	pnull
	var	28
	line	341
	colm	23
	synt	any
	nonnull
	unmark
	mark	L103
	mark	L106
	pnull
	var	4
	pnull
	var	28
	line	342
	colm	30
	synt	any
	field	cn_hd_field
	line	342
	colm	23
	synt	any
	asgn
	unmark
lab L106
	mark	L107
	line	343
	colm	21
	synt	ifelse
	mark	L108
	pnull
	var	62
	pnull
	var	4
	line	343
	colm	34
	synt	any
	field	ge_element
	var	1
	line	343
	colm	31
	synt	any
	invoke	2
	int	3
	line	343
	colm	60
	synt	any
	numeq
	unmark
	mark	L110
	pnull
	var	11
	var	4
	line	344
	colm	38
	synt	any
	asgn
	unmark
lab L110
	line	345
	colm	25
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	4
	line	345
	colm	31
	synt	any
	field	ge_element
	line	345
	colm	44
	synt	any
	field	signature
	int	2
	line	345
	colm	56
	synt	any
	numne
	unmark
	mark	L111
	pnull
	var	15
	pnull
	pnull
	pnull
	var	4
	line	346
	colm	44
	synt	any
	field	ge_element
	line	346
	colm	57
	synt	any
	field	signature
	line	346
	colm	69
	synt	any
	field	kind
	line	346
	colm	39
	synt	any
	asgn
	unmark
lab L111
	mark	L112
	line	347
	colm	29
	synt	if
	mark0
	pnull
	var	14
	pnull
	int	0
	line	347
	colm	46
	synt	any
	neg
	line	347
	colm	43
	synt	any
	numne
	pop
	pnull
	var	15
	var	14
	line	348
	colm	43
	synt	any
	numne
	unmark
	pnull
	var	12
	int	0
	line	349
	colm	50
	synt	any
	asgn
	line	347
	colm	29
	synt	endif
	unmark
lab L112
	pnull
	var	14
	var	15
	line	351
	colm	39
	synt	any
	asgn
	line	345
	colm	25
	synt	endif
	goto	L109
lab L108
	pnull
	var	6
	int	3
	line	354
	colm	32
	synt	any
	asgn
lab L109
	line	343
	colm	21
	synt	endifelse
	unmark
lab L107
	pnull
	var	28
	pnull
	var	28
	line	356
	colm	33
	synt	any
	field	cn_tl_field
	line	356
	colm	26
	synt	any
	asgn
lab L104
	unmark
	goto	L103
lab L105
	line	341
	colm	17
	synt	endwhile
	unmark
lab L102
	mark	L113
	pnull
	var	66
	int	0
	line	358
	colm	26
	synt	any
	asgn
	unmark
lab L113
	mark	L114
	pnull
	var	28
	pnull
	pnull
	var	7
	line	360
	colm	28
	synt	any
	field	gl_list
	line	360
	colm	37
	synt	any
	field	lh_first
	line	360
	colm	22
	synt	any
	asgn
	unmark
lab L114
	mark	L115
lab L116
	line	361
	colm	17
	synt	while
	mark0
	pnull
	var	28
	line	361
	colm	23
	synt	any
	nonnull
	unmark
	mark	L116
	mark	L119
	pnull
	var	32
	var	79
	line	362
	colm	23
	synt	any
	asgn
	unmark
lab L119
	mark	L120
	line	363
	colm	21
	synt	ifelse
	mark	L121
	pnull
	pnull
	var	4
	var	62
	pnull
	var	32
	line	363
	colm	41
	synt	any
	field	ge_guard
	int	3
	line	363
	colm	38
	synt	any
	invoke	2
	line	363
	colm	28
	synt	any
	asgn
	int	3
	line	363
	colm	56
	synt	any
	numne
	unmark
	pnull
	var	6
	int	3
	line	364
	colm	32
	synt	any
	asgn
	goto	L122
lab L121
	line	365
	colm	28
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	32
	line	365
	colm	34
	synt	any
	field	ge_guard
	line	365
	colm	45
	synt	any
	field	signature
	int	2
	line	365
	colm	57
	synt	any
	numne
	pop
	pnull
	pnull
	pnull
	pnull
	var	32
	line	366
	colm	34
	synt	any
	field	ge_guard
	line	366
	colm	45
	synt	any
	field	signature
	line	366
	colm	57
	synt	any
	field	kind
	int	6
	line	366
	colm	64
	synt	any
	numne
	unmark
	pnull
	var	13
	int	0
	line	367
	colm	50
	synt	any
	asgn
	line	365
	colm	28
	synt	endif
lab L122
	line	363
	colm	21
	synt	endifelse
	unmark
lab L120
	pnull
	var	28
	var	80
	line	369
	colm	26
	synt	any
	asgn
lab L117
	unmark
	goto	L116
lab L118
	line	361
	colm	17
	synt	endwhile
	unmark
lab L115
	mark	L123
	pnull
	var	66
	var	9
	line	371
	colm	26
	synt	any
	asgn
	unmark
lab L123
	mark	L124
	line	372
	colm	17
	synt	if
	mark0
	mark	L125
	pnull
	var	11
	line	372
	colm	22
	synt	any
	null
	line	372
	colm	37
	synt	any
	esusp
	goto	L126
lab L125
	pnull
	var	66
	int	3
	line	372
	colm	49
	synt	any
	numne
	pop
	pnull
	var	6
	int	3
	line	372
	colm	63
	synt	any
	numeq
lab L126
	unmark
	mark	L127
	pnull
	pnull
	var	7
	line	375
	colm	23
	synt	any
	field	sig_done
	int	3
	line	375
	colm	34
	synt	any
	asgn
	unmark
lab L127
	mark	L128
	mark	L129
	var	7
	line	376
	colm	21
	synt	any
	pret
lab L129
	synt	any
	pfail
	unmark
lab L128
	pnull
	line	372
	colm	17
	synt	endif
	unmark
lab L124
	mark	L130
	line	378
	colm	17
	synt	if
	mark0
	mark	L131
	pnull
	var	12
	int	3
	line	378
	colm	36
	synt	any
	numne
	line	378
	colm	42
	synt	any
	esusp
	goto	L132
lab L131
	pnull
	var	13
	int	3
	line	378
	colm	58
	synt	any
	numne
lab L132
	unmark
	line	382
	colm	17
	synt	if
	mark0
	pnull
	var	1
	int	3
	line	382
	colm	34
	synt	any
	numeq
	pop
	pnull
	var	12
	int	3
	line	382
	colm	54
	synt	any
	numne
	unmark
	pnull
	var	11
	var	69
	line	385
	colm	34
	synt	any
	asgn
	line	382
	colm	17
	synt	endif
	line	378
	colm	17
	synt	endif
	unmark
lab L130
	mark	L133
	pnull
	var	28
	pnull
	pnull
	var	7
	line	387
	colm	28
	synt	any
	field	gl_list
	line	387
	colm	37
	synt	any
	field	lh_first
	line	387
	colm	22
	synt	any
	asgn
	unmark
lab L133
	mark	L134
lab L135
	line	388
	colm	17
	synt	while
	mark0
	pnull
	var	28
	line	388
	colm	23
	synt	any
	nonnull
	unmark
	mark	L135
	mark	L138
	pnull
	var	32
	pnull
	var	28
	line	389
	colm	30
	synt	any
	field	cn_hd_field
	line	389
	colm	23
	synt	any
	asgn
	unmark
lab L138
	mark	L139
	line	390
	colm	21
	synt	if
	mark0
	pnull
	var	1
	int	3
	line	390
	colm	37
	synt	any
	numeq
	pop
	pnull
	var	12
	int	3
	line	390
	colm	56
	synt	any
	numne
	pop
	pnull
	pnull
	pnull
	var	32
	line	390
	colm	68
	synt	any
	field	ge_element
	line	390
	colm	81
	synt	any
	field	signature
	line	390
	colm	63
	synt	any
	nonnull
	unmark
	mark	L140
	pnull
	var	16
	var	72
	pnull
	var	32
	line	391
	colm	46
	synt	any
	field	ge_element
	line	391
	colm	43
	synt	any
	invoke	1
	line	391
	colm	34
	synt	any
	asgn
	unmark
lab L140
	line	392
	colm	25
	synt	ifelse
	mark	L141
	pnull
	pnull
	var	16
	line	392
	colm	38
	synt	any
	field	sig_done
	int	3
	line	392
	colm	49
	synt	any
	numeq
	unmark
	line	393
	colm	29
	synt	ifelse
	mark	L143
	pnull
	pnull
	var	4
	var	62
	var	16
	int	3
	line	393
	colm	46
	synt	any
	invoke	2
	line	393
	colm	36
	synt	any
	asgn
	int	3
	line	393
	colm	61
	synt	any
	numeq
	unmark
	mark	L145
	pnull
	var	11
	var	32
	line	394
	colm	46
	synt	any
	asgn
	unmark
lab L145
	pnull
	pnull
	var	32
	line	395
	colm	35
	synt	any
	field	ge_element
	var	16
	line	395
	colm	48
	synt	any
	asgn
	goto	L144
lab L143
	mark	L146
	pnull
	var	6
	int	3
	line	397
	colm	40
	synt	any
	asgn
	unmark
lab L146
	mark	L147
	var	73
	var	16
	line	398
	colm	38
	synt	any
	invoke	1
	unmark
lab L147
	line	399
	colm	33
	synt	if
	mark0
	pnull
	var	66
	int	3
	line	399
	colm	46
	synt	any
	numne
	unmark
	mark	L148
	pnull
	pnull
	var	7
	line	400
	colm	39
	synt	any
	field	sig_done
	int	3
	line	400
	colm	50
	synt	any
	asgn
	unmark
lab L148
	mark	L149
	var	32
	line	401
	colm	37
	synt	any
	pret
lab L149
	synt	any
	pfail
	line	399
	colm	33
	synt	endif
lab L144
	line	393
	colm	29
	synt	endifelse
	goto	L142
lab L141
	pnull
	var	11
	var	32
	line	405
	colm	42
	synt	any
	asgn
lab L142
	line	392
	colm	25
	synt	endifelse
	line	390
	colm	21
	synt	endif
	unmark
lab L139
	mark	L150
	line	408
	colm	21
	synt	if
	mark0
	pnull
	var	13
	int	3
	line	408
	colm	39
	synt	any
	numne
	pop
	pnull
	pnull
	pnull
	var	32
	line	408
	colm	52
	synt	any
	field	ge_guard
	line	408
	colm	63
	synt	any
	field	signature
	line	408
	colm	46
	synt	any
	nonnull
	unmark
	mark	L151
	pnull
	var	17
	var	81
	var	72
	pnull
	var	32
	line	409
	colm	49
	synt	any
	field	ge_guard
	line	409
	colm	46
	synt	any
	invoke	1
	line	409
	colm	39
	synt	any
	invoke	1
	line	409
	colm	32
	synt	any
	asgn
	unmark
lab L151
	line	410
	colm	25
	synt	if
	mark0
	pnull
	pnull
	var	17
	line	410
	colm	36
	synt	any
	field	sig_done
	int	3
	line	410
	colm	47
	synt	any
	numeq
	unmark
	line	411
	colm	29
	synt	ifelse
	mark	L152
	pnull
	pnull
	var	4
	var	62
	var	17
	int	3
	line	411
	colm	46
	synt	any
	invoke	2
	line	411
	colm	36
	synt	any
	asgn
	int	3
	line	411
	colm	59
	synt	any
	numeq
	unmark
	mark	L154
	pnull
	pnull
	var	32
	line	412
	colm	35
	synt	any
	field	ge_guard
	var	17
	line	412
	colm	46
	synt	any
	asgn
	unmark
lab L154
	var	82
	var	17
	line	413
	colm	39
	synt	any
	invoke	1
	goto	L153
lab L152
	mark	L155
	var	73
	var	82
	var	17
	line	415
	colm	45
	synt	any
	invoke	1
	line	415
	colm	38
	synt	any
	invoke	1
	unmark
lab L155
	mark	L156
	pnull
	pnull
	var	7
	line	416
	colm	35
	synt	any
	field	sig_done
	int	3
	line	416
	colm	46
	synt	any
	asgn
	unmark
lab L156
	mark	L157
	var	32
	line	417
	colm	33
	synt	any
	pret
lab L157
	synt	any
	pfail
lab L153
	line	411
	colm	29
	synt	endifelse
	line	410
	colm	25
	synt	endif
	line	408
	colm	21
	synt	endif
	unmark
lab L150
	pnull
	var	28
	pnull
	var	28
	line	419
	colm	33
	synt	any
	field	cn_tl_field
	line	419
	colm	26
	synt	any
	asgn
lab L136
	unmark
	goto	L135
lab L137
	line	388
	colm	17
	synt	endwhile
	unmark
lab L134
	mark	L158
	line	424
	colm	17
	synt	if
	mark0
	pnull
	var	6
	int	3
	line	424
	colm	27
	synt	any
	numeq
	unmark
	pnull
	var	70
	var	71
	var	7
	var	70
	line	427
	colm	41
	synt	any
	invoke	2
	line	427
	colm	31
	synt	any
	asgn
	line	424
	colm	17
	synt	endif
	unmark
lab L158
	mark	L159
	var	60
	var	7
	pnull
	pnull
	var	11
	line	429
	colm	41
	synt	any
	field	ge_element
	line	429
	colm	54
	synt	any
	field	signature
	line	429
	colm	24
	synt	any
	invoke	2
	unmark
lab L159
	mark	L160
	line	430
	colm	17
	synt	if
	mark0
	pnull
	var	1
	int	3
	line	430
	colm	33
	synt	any
	numeq
	unmark
	pnull
	var	28
	pnull
	pnull
	var	7
	line	432
	colm	28
	synt	any
	field	gl_list
	line	432
	colm	38
	synt	any
	field	lh_first
	line	432
	colm	22
	synt	any
	asgn
	line	430
	colm	17
	synt	endif
	unmark
lab L160
	mark	L161
lab L162
	line	433
	colm	17
	synt	while
	mark0
	pnull
	var	28
	line	433
	colm	23
	synt	any
	nonnull
	unmark
	mark	L162
	mark	L165
	pnull
	var	4
	pnull
	var	28
	line	434
	colm	30
	synt	any
	field	cn_hd_field
	line	434
	colm	23
	synt	any
	asgn
	unmark
lab L165
	mark	L166
	pnull
	var	5
	var	83
	pnull
	var	7
	line	435
	colm	37
	synt	any
	field	signature
	pnull
	pnull
	var	4
	line	435
	colm	51
	synt	any
	field	ge_element
	line	435
	colm	64
	synt	any
	field	signature
	line	435
	colm	34
	synt	any
	invoke	2
	line	435
	colm	23
	synt	any
	asgn
	unmark
lab L166
	mark	L167
	line	436
	colm	21
	synt	if
	mark0
	var	5
	pnull
	pnull
	var	7
	line	436
	colm	32
	synt	any
	field	signature
	line	436
	colm	28
	synt	any
	tabmat
	invoke	-1
	unmark
	var	84
	var	7
	var	5
	line	437
	colm	31
	synt	any
	invoke	2
	line	436
	colm	21
	synt	endif
	unmark
lab L167
	pnull
	var	28
	pnull
	var	28
	line	439
	colm	33
	synt	any
	field	cn_tl_field
	line	439
	colm	26
	synt	any
	asgn
lab L163
	unmark
	goto	L162
lab L164
	line	433
	colm	17
	synt	endwhile
	unmark
lab L161
	mark	L168
	pnull
	pnull
	var	7
	line	441
	colm	19
	synt	any
	field	sig_done
	int	2
	line	441
	colm	30
	synt	any
	asgn
	unmark
lab L168
	mark	L169
	int	3
	line	442
	colm	17
	synt	any
	pret
lab L169
	synt	any
	pfail
	goto	L13
lab L94
	mark	L170
	ccase
	int	16
	line	444
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L171
	pnull
	var	18
	pnull
	pnull
	var	7
	line	447
	colm	31
	synt	any
	field	bld_den_seq
	line	447
	colm	45
	synt	any
	field	lh_last
	line	447
	colm	26
	synt	any
	asgn
	unmark
lab L171
	mark	L172
	pnull
	var	9
	var	66
	line	449
	colm	30
	synt	any
	asgn
	unmark
lab L172
	mark	L173
	line	450
	colm	17
	synt	if
	mark0
	pnull
	pnull
	var	4
	var	62
	var	18
	int	3
	line	450
	colm	34
	synt	any
	invoke	2
	line	450
	colm	24
	synt	any
	asgn
	int	0
	line	450
	colm	48
	synt	any
	numeq
	unmark
	mark	L174
	pnull
	pnull
	var	7
	line	451
	colm	23
	synt	any
	field	sig_done
	int	3
	line	451
	colm	34
	synt	any
	asgn
	unmark
lab L174
	mark	L175
	var	4
	line	452
	colm	21
	synt	any
	pret
lab L175
	synt	any
	pfail
	line	450
	colm	17
	synt	endif
	unmark
lab L173
	mark	L176
	pnull
	var	6
	int	0
	line	454
	colm	24
	synt	any
	asgn
	unmark
lab L176
	mark	L177
	pnull
	var	66
	int	0
	line	455
	colm	26
	synt	any
	asgn
	unmark
lab L177
	mark	L178
	pnull
	var	28
	pnull
	pnull
	var	7
	line	457
	colm	27
	synt	any
	field	bld_declaration_list
	line	457
	colm	49
	synt	any
	field	lf_first
	line	457
	colm	22
	synt	any
	asgn
	unmark
lab L178
	mark	L179
lab L180
	line	458
	colm	17
	synt	while
	mark0
	pnull
	var	28
	line	458
	colm	23
	synt	any
	nonnull
	unmark
	mark	L180
	mark	L183
	pnull
	var	32
	pnull
	var	28
	line	459
	colm	30
	synt	any
	field	cn_hd_field
	line	459
	colm	23
	synt	any
	asgn
	unmark
lab L183
	mark	L184
	line	460
	colm	21
	synt	if
	mark0
	pnull
	pnull
	var	4
	var	62
	pnull
	var	32
	line	460
	colm	40
	synt	any
	field	decl_denotation
	int	3
	line	460
	colm	37
	synt	any
	invoke	2
	line	460
	colm	27
	synt	any
	asgn
	int	3
	line	460
	colm	62
	synt	any
	numne
	unmark
	pnull
	var	6
	int	3
	line	461
	colm	32
	synt	any
	asgn
	line	460
	colm	21
	synt	endif
	unmark
lab L184
	pnull
	var	28
	pnull
	var	28
	line	463
	colm	33
	synt	any
	field	cn_tl_field
	line	463
	colm	26
	synt	any
	asgn
lab L181
	unmark
	goto	L180
lab L182
	line	458
	colm	17
	synt	endwhile
	unmark
lab L179
	mark	L185
	pnull
	var	28
	pnull
	pnull
	var	7
	line	465
	colm	28
	synt	any
	field	bld_den_seq
	line	465
	colm	41
	synt	any
	field	lh_first
	line	465
	colm	22
	synt	any
	asgn
	unmark
lab L185
	mark	L186
lab L187
	line	466
	colm	17
	synt	while
	mark0
	pnull
	var	28
	line	466
	colm	23
	synt	any
	nonnull
	unmark
	mark	L187
	mark	L190
	pnull
	var	32
	pnull
	var	28
	line	467
	colm	30
	synt	any
	field	cn_hd_field
	line	467
	colm	23
	synt	any
	asgn
	unmark
lab L190
	mark	L191
	line	468
	colm	21
	synt	if
	mark0
	pnull
	pnull
	var	4
	var	62
	var	32
	int	0
	line	468
	colm	37
	synt	any
	invoke	2
	line	468
	colm	27
	synt	any
	asgn
	int	3
	line	468
	colm	44
	synt	any
	numne
	unmark
	mark	L192
	pnull
	var	6
	int	3
	line	469
	colm	32
	synt	any
	asgn
	unmark
lab L192
	pnull
	line	468
	colm	21
	synt	endif
	unmark
lab L191
	pnull
	var	28
	pnull
	var	28
	line	471
	colm	33
	synt	any
	field	cn_tl_field
	line	471
	colm	26
	synt	any
	asgn
lab L188
	unmark
	goto	L187
lab L189
	line	466
	colm	17
	synt	endwhile
	unmark
lab L186
	mark	L193
	pnull
	var	66
	var	9
	line	473
	colm	26
	synt	any
	asgn
	unmark
lab L193
	mark	L194
	var	60
	var	7
	pnull
	var	18
	line	474
	colm	37
	synt	any
	field	signature
	line	474
	colm	24
	synt	any
	invoke	2
	unmark
lab L194
	mark	L195
	line	475
	colm	17
	synt	if
	mark0
	mark	L196
	pnull
	var	85
	int	3
	line	475
	colm	27
	synt	any
	numeq
	line	475
	colm	31
	synt	any
	esusp
	goto	L197
lab L196
	pnull
	var	86
	pnull
	var	7
	line	475
	colm	40
	synt	any
	field	bld_flags
	int	17
	line	475
	colm	37
	synt	any
	invoke	2
	int	3
	line	475
	colm	58
	synt	any
	numeq
lab L197
	unmark
	var	87
	pnull
	var	7
	line	477
	colm	41
	synt	any
	field	signature
	line	477
	colm	38
	synt	any
	invoke	1
	line	475
	colm	17
	synt	endif
	unmark
lab L195
	mark	L198
	line	479
	colm	17
	synt	if
	mark0
	pnull
	var	6
	int	3
	line	479
	colm	28
	synt	any
	numeq
	unmark
	pnull
	var	70
	var	71
	var	7
	var	70
	line	480
	colm	41
	synt	any
	invoke	2
	line	480
	colm	31
	synt	any
	asgn
	line	479
	colm	17
	synt	endif
	unmark
lab L198
	mark	L199
	pnull
	pnull
	var	7
	line	481
	colm	19
	synt	any
	field	sig_done
	int	2
	line	481
	colm	30
	synt	any
	asgn
	unmark
lab L199
	mark	L200
	int	3
	line	482
	colm	17
	synt	any
	pret
lab L200
	synt	any
	pfail
	goto	L13
lab L170
	mark	L201
	ccase
	int	18
	line	484
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L202
	pnull
	var	18
	var	88
	pnull
	var	7
	line	486
	colm	36
	synt	any
	field	usl_den_seq
	line	486
	colm	33
	synt	any
	invoke	1
	line	486
	colm	26
	synt	any
	asgn
	unmark
lab L202
	mark	L203
	pnull
	var	9
	var	66
	line	487
	colm	30
	synt	any
	asgn
	unmark
lab L203
	mark	L204
	pnull
	var	28
	pnull
	pnull
	var	7
	line	490
	colm	28
	synt	any
	field	usl_type_list
	line	490
	colm	43
	synt	any
	field	lh_first
	line	490
	colm	22
	synt	any
	asgn
	unmark
lab L204
	mark	L205
lab L206
	line	491
	colm	17
	synt	while
	mark0
	pnull
	var	28
	line	491
	colm	23
	synt	any
	nonnull
	unmark
	mark	L206
	mark	L209
	pnull
	var	32
	pnull
	var	28
	line	492
	colm	30
	synt	any
	field	cn_hd_field
	line	492
	colm	23
	synt	any
	asgn
	unmark
lab L209
	mark	L210
	line	493
	colm	21
	synt	ifelse
	mark	L211
	pnull
	pnull
	var	4
	var	62
	var	32
	int	3
	line	493
	colm	38
	synt	any
	invoke	2
	line	493
	colm	28
	synt	any
	asgn
	int	3
	line	493
	colm	45
	synt	any
	numne
	unmark
	mark	L213
	pnull
	pnull
	var	7
	line	494
	colm	27
	synt	any
	field	sig_done
	int	3
	line	494
	colm	38
	synt	any
	asgn
	unmark
lab L213
	mark	L214
	var	4
	line	495
	colm	25
	synt	any
	pret
lab L214
	synt	any
	pfail
	goto	L212
lab L211
	line	497
	colm	25
	synt	if
	mark0
	pnull
	pnull
	var	32
	line	497
	colm	31
	synt	any
	field	signature
	int	2
	line	497
	colm	43
	synt	any
	numne
	pop
	mark	L215
	pnull
	pnull
	pnull
	var	32
	line	498
	colm	32
	synt	any
	field	signature
	line	498
	colm	44
	synt	any
	field	kind
	int	5
	line	498
	colm	51
	synt	any
	numeq
	line	498
	colm	56
	synt	any
	esusp
	goto	L216
lab L215
	pnull
	pnull
	pnull
	var	32
	line	499
	colm	32
	synt	any
	field	signature
	line	499
	colm	44
	synt	any
	field	kind
	int	4
	line	499
	colm	51
	synt	any
	numeq
lab L216
	unmark
	pnull
	pnull
	var	32
	line	500
	colm	36
	synt	any
	field	signature
	var	89
	pnull
	var	32
	line	500
	colm	67
	synt	any
	field	signature
	line	500
	colm	64
	synt	any
	invoke	1
	line	500
	colm	48
	synt	any
	asgn
	line	497
	colm	25
	synt	endif
lab L212
	line	493
	colm	21
	synt	endifelse
	unmark
lab L210
	pnull
	var	28
	pnull
	var	28
	line	503
	colm	33
	synt	any
	field	cn_tl_field
	line	503
	colm	26
	synt	any
	asgn
lab L207
	unmark
	goto	L206
lab L208
	line	491
	colm	17
	synt	endwhile
	unmark
lab L205
	mark	L217
	line	505
	colm	17
	synt	if
	mark0
	pnull
	pnull
	var	4
	var	62
	var	18
	int	3
	line	505
	colm	33
	synt	any
	invoke	2
	line	505
	colm	23
	synt	any
	asgn
	int	3
	line	505
	colm	47
	synt	any
	numne
	unmark
	mark	L218
	pnull
	pnull
	var	7
	line	506
	colm	23
	synt	any
	field	sig_done
	int	3
	line	506
	colm	34
	synt	any
	asgn
	unmark
lab L218
	mark	L219
	var	4
	line	507
	colm	21
	synt	any
	pret
lab L219
	synt	any
	pfail
	line	505
	colm	17
	synt	endif
	unmark
lab L217
	mark	L220
	pnull
	var	66
	int	0
	line	510
	colm	26
	synt	any
	asgn
	unmark
lab L220
	mark	L221
	pnull
	var	6
	int	0
	line	511
	colm	24
	synt	any
	asgn
	unmark
lab L221
	mark	L222
	pnull
	var	28
	pnull
	var	7
	line	512
	colm	28
	synt	any
	field	usl_den_seq
	line	512
	colm	22
	synt	any
	asgn
	unmark
lab L222
	mark	L223
lab L224
	line	513
	colm	17
	synt	while
	mark0
	pnull
	var	28
	line	513
	colm	23
	synt	any
	nonnull
	unmark
	mark	L224
	mark	L227
	pnull
	var	32
	pnull
	var	28
	line	514
	colm	30
	synt	any
	field	cn_hd_field
	line	514
	colm	23
	synt	any
	asgn
	unmark
lab L227
	mark	L228
	line	515
	colm	21
	synt	if
	mark0
	pnull
	pnull
	var	4
	var	62
	var	32
	int	0
	line	515
	colm	37
	synt	any
	invoke	2
	line	515
	colm	27
	synt	any
	asgn
	int	3
	line	515
	colm	44
	synt	any
	numne
	unmark
	pnull
	var	6
	int	3
	line	516
	colm	32
	synt	any
	asgn
	line	515
	colm	21
	synt	endif
	unmark
lab L228
	pnull
	var	28
	pnull
	var	28
	line	518
	colm	33
	synt	any
	field	cn_tl_field
	line	518
	colm	26
	synt	any
	asgn
lab L225
	unmark
	goto	L224
lab L226
	line	513
	colm	17
	synt	endwhile
	unmark
lab L223
	mark	L229
	pnull
	var	66
	var	9
	line	520
	colm	26
	synt	any
	asgn
	unmark
lab L229
	mark	L230
	var	60
	var	7
	pnull
	var	18
	line	521
	colm	37
	synt	any
	field	signature
	line	521
	colm	24
	synt	any
	invoke	2
	unmark
lab L230
	mark	L231
	line	522
	colm	17
	synt	if
	mark0
	pnull
	var	6
	int	3
	line	522
	colm	28
	synt	any
	numeq
	unmark
	pnull
	var	70
	var	71
	var	7
	var	70
	line	523
	colm	41
	synt	any
	invoke	2
	line	523
	colm	31
	synt	any
	asgn
	line	522
	colm	17
	synt	endif
	unmark
lab L231
	mark	L232
	pnull
	pnull
	var	7
	line	524
	colm	19
	synt	any
	field	sig_done
	int	2
	line	524
	colm	30
	synt	any
	asgn
	unmark
lab L232
	mark	L233
	int	3
	line	525
	colm	17
	synt	any
	pret
lab L233
	synt	any
	pfail
	goto	L13
lab L201
	mark	L234
	ccase
	int	19
	line	527
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L235
	pnull
	pnull
	var	7
	line	529
	colm	19
	synt	any
	field	signature
	var	90
	line	529
	colm	31
	synt	any
	asgn
	unmark
lab L235
	mark	L236
	pnull
	pnull
	var	7
	line	530
	colm	19
	synt	any
	field	sig_done
	int	2
	line	530
	colm	30
	synt	any
	asgn
	unmark
lab L236
	mark	L237
	int	3
	line	531
	colm	17
	synt	any
	pret
lab L237
	synt	any
	pfail
	goto	L13
lab L234
	mark	L238
	ccase
	int	20
	line	533
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L239
	pnull
	var	9
	var	66
	line	536
	colm	30
	synt	any
	asgn
	unmark
lab L239
	mark	L240
	pnull
	var	6
	int	0
	line	537
	colm	24
	synt	any
	asgn
	unmark
lab L240
	mark	L241
	pnull
	var	66
	int	0
	line	538
	colm	26
	synt	any
	asgn
	unmark
lab L241
	mark	L242
	pnull
	var	28
	pnull
	pnull
	var	7
	line	539
	colm	28
	synt	any
	field	gl_list
	line	539
	colm	37
	synt	any
	field	lh_first
	line	539
	colm	22
	synt	any
	asgn
	unmark
lab L242
	mark	L243
lab L244
	line	540
	colm	17
	synt	while
	mark0
	pnull
	var	28
	line	540
	colm	23
	synt	any
	nonnull
	unmark
	mark	L244
	mark	L247
	pnull
	var	32
	pnull
	var	28
	line	541
	colm	30
	synt	any
	field	cn_hd_field
	line	541
	colm	23
	synt	any
	asgn
	unmark
lab L247
	mark	L248
	line	542
	colm	21
	synt	ifelse
	mark	L249
	pnull
	pnull
	var	4
	var	62
	pnull
	var	32
	line	542
	colm	41
	synt	any
	field	ge_guard
	int	3
	line	542
	colm	38
	synt	any
	invoke	2
	line	542
	colm	28
	synt	any
	asgn
	int	3
	line	542
	colm	56
	synt	any
	numne
	unmark
	pnull
	var	6
	int	3
	line	543
	colm	32
	synt	any
	asgn
	goto	L250
lab L249
	mark	L251
	pnull
	var	17
	var	72
	pnull
	var	32
	line	546
	colm	44
	synt	any
	field	ge_guard
	line	546
	colm	41
	synt	any
	invoke	1
	line	546
	colm	32
	synt	any
	asgn
	unmark
lab L251
	line	547
	colm	25
	synt	if
	mark0
	pnull
	pnull
	var	17
	line	547
	colm	36
	synt	any
	field	sig_done
	int	3
	line	547
	colm	47
	synt	any
	numeq
	unmark
	line	548
	colm	29
	synt	ifelse
	mark	L252
	pnull
	pnull
	var	4
	var	62
	var	17
	int	3
	line	548
	colm	46
	synt	any
	invoke	2
	line	548
	colm	36
	synt	any
	asgn
	int	3
	line	548
	colm	59
	synt	any
	numeq
	unmark
	pnull
	pnull
	var	32
	line	549
	colm	35
	synt	any
	field	ge_guard
	var	17
	line	549
	colm	46
	synt	any
	asgn
	goto	L253
lab L252
	mark	L254
	var	73
	var	17
	line	551
	colm	38
	synt	any
	invoke	1
	unmark
lab L254
	mark	L255
	pnull
	pnull
	var	7
	line	552
	colm	35
	synt	any
	field	sig_done
	int	3
	line	552
	colm	46
	synt	any
	asgn
	unmark
lab L255
	mark	L256
	pnull
	var	66
	var	9
	line	553
	colm	42
	synt	any
	asgn
	unmark
lab L256
	mark	L257
	var	32
	line	554
	colm	33
	synt	any
	pret
lab L257
	synt	any
	pfail
lab L253
	line	548
	colm	29
	synt	endifelse
	line	547
	colm	25
	synt	endif
lab L250
	line	542
	colm	21
	synt	endifelse
	unmark
lab L248
	mark	L258
	line	558
	colm	21
	synt	if
	mark0
	pnull
	pnull
	var	4
	var	62
	pnull
	var	32
	line	558
	colm	40
	synt	any
	field	ge_element
	int	0
	line	558
	colm	37
	synt	any
	invoke	2
	line	558
	colm	27
	synt	any
	asgn
	int	3
	line	558
	colm	57
	synt	any
	numne
	unmark
	pnull
	var	6
	int	3
	line	559
	colm	32
	synt	any
	asgn
	line	558
	colm	21
	synt	endif
	unmark
lab L258
	pnull
	var	28
	pnull
	var	28
	line	561
	colm	33
	synt	any
	field	cn_tl_field
	line	561
	colm	26
	synt	any
	asgn
lab L245
	unmark
	goto	L244
lab L246
	line	540
	colm	17
	synt	endwhile
	unmark
lab L243
	mark	L259
	pnull
	var	66
	var	9
	line	563
	colm	26
	synt	any
	asgn
	unmark
lab L259
	mark	L260
	pnull
	pnull
	var	7
	line	564
	colm	19
	synt	any
	field	signature
	var	68
	line	564
	colm	31
	synt	any
	asgn
	unmark
lab L260
	mark	L261
	line	565
	colm	17
	synt	if
	mark0
	pnull
	var	6
	int	3
	line	565
	colm	28
	synt	any
	numeq
	unmark
	pnull
	var	70
	var	71
	var	7
	var	70
	line	566
	colm	41
	synt	any
	invoke	2
	line	566
	colm	31
	synt	any
	asgn
	line	565
	colm	17
	synt	endif
	unmark
lab L261
	mark	L262
	pnull
	pnull
	var	7
	line	567
	colm	19
	synt	any
	field	sig_done
	int	2
	line	567
	colm	30
	synt	any
	asgn
	unmark
lab L262
	mark	L263
	int	3
	line	568
	colm	17
	synt	any
	pret
lab L263
	synt	any
	pfail
	goto	L13
lab L238
	mark	L264
	ccase
	int	21
	line	571
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L265
	var	91
	str	22
	line	573
	colm	24
	synt	any
	invoke	1
	unmark
lab L265
	mark	L266
	int	3
	line	574
	colm	17
	synt	any
	pret
lab L266
	synt	any
	pfail
	goto	L13
lab L264
	mark	L267
	ccase
	int	23
	line	576
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L268
	var	92
	str	24
	line	578
	colm	23
	synt	any
	invoke	1
	unmark
lab L268
	mark	L269
	int	3
	line	579
	colm	17
	synt	any
	pret
lab L269
	synt	any
	pfail
	goto	L13
lab L267
	mark	L270
	ccase
	int	25
	line	581
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L271
	line	52
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	4
	var	93
	var	7
	line	52
	colm	25
	synt	any
	invoke	1
	line	52
	colm	12
	synt	any
	asgn
	int	3
	line	52
	colm	30
	synt	any
	numne
	unmark
	mark	L272
	pnull
	pnull
	var	7
	line	53
	colm	11
	synt	any
	field	sig_done
	int	3
	line	53
	colm	22
	synt	any
	asgn
	unmark
lab L272
	mark	L273
	var	4
	line	54
	colm	9
	synt	any
	pret
lab L273
	synt	any
	pfail
	line	52
	colm	5
	synt	endif
	unmark
lab L271
	mark	L274
	line	56
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	7
	line	56
	colm	14
	synt	any
	field	sel_type
	line	56
	colm	9
	synt	any
	null
	unmark
	mark	L275
	line	57
	colm	9
	synt	case
	mark0
	pnull
	var	7
	line	57
	colm	17
	synt	any
	field	kind
	eret
	mark	L277
	ccase
	int	25
	line	58
	colm	15
	synt	any
	eqv
	unmark
	pop
	var	94
	pnull
	str	26
	pnull
	var	7
	line	59
	colm	63
	synt	any
	field	str_string
	line	59
	colm	58
	synt	any
	cat
	var	7
	line	59
	colm	30
	synt	any
	invoke	2
	goto	L276
lab L277
	mark	L278
	ccase
	int	27
	line	60
	colm	15
	synt	any
	eqv
	unmark
	pop
	var	94
	pnull
	str	26
	pnull
	var	7
	line	61
	colm	61
	synt	any
	field	str_string
	line	61
	colm	56
	synt	any
	cat
	var	7
	line	61
	colm	29
	synt	any
	invoke	2
	goto	L276
lab L278
	efail
lab L276
	line	57
	colm	9
	synt	endcase
	unmark
lab L275
	mark	L279
	pnull
	pnull
	var	7
	line	63
	colm	11
	synt	any
	field	signature
	int	2
	line	63
	colm	23
	synt	any
	asgn
	unmark
lab L279
	mark	L280
	pnull
	pnull
	var	7
	line	64
	colm	11
	synt	any
	field	sig_done
	int	2
	line	64
	colm	22
	synt	any
	asgn
	unmark
lab L280
	mark	L281
	int	3
	line	65
	colm	9
	synt	any
	pret
lab L281
	synt	any
	pfail
	line	56
	colm	5
	synt	endif
	unmark
lab L274
	mark	L282
	line	67
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	4
	var	62
	pnull
	var	7
	line	67
	colm	25
	synt	any
	field	sel_type
	var	1
	line	67
	colm	22
	synt	any
	invoke	2
	line	67
	colm	12
	synt	any
	asgn
	int	3
	line	67
	colm	51
	synt	any
	numne
	unmark
	mark	L283
	pnull
	pnull
	var	7
	line	68
	colm	11
	synt	any
	field	sig_done
	int	3
	line	68
	colm	22
	synt	any
	asgn
	unmark
lab L283
	mark	L284
	var	4
	line	69
	colm	9
	synt	any
	pret
lab L284
	synt	any
	pfail
	line	67
	colm	5
	synt	endif
	unmark
lab L282
	mark	L285
	mark	L286
	pnull
	var	55
	pnull
	pnull
	var	7
	line	76
	colm	22
	synt	any
	field	sel_type
	line	76
	colm	33
	synt	any
	field	signature
	line	76
	colm	17
	synt	any
	asgn
	unmark
lab L286
	mark	L287
	line	77
	colm	9
	synt	if
	mark0
	pnull
	var	55
	int	2
	line	77
	colm	21
	synt	any
	numeq
	unmark
	mark	L288
	pnull
	pnull
	var	7
	line	78
	colm	15
	synt	any
	field	signature
	int	2
	line	78
	colm	27
	synt	any
	asgn
	unmark
lab L288
	mark	L289
	pnull
	pnull
	var	7
	line	79
	colm	15
	synt	any
	field	sig_done
	int	2
	line	79
	colm	26
	synt	any
	asgn
	unmark
lab L289
	mark	L290
	int	3
	line	80
	colm	13
	synt	any
	pret
lab L290
	synt	any
	pfail
	line	77
	colm	9
	synt	endif
	unmark
lab L287
	mark	L291
	line	82
	colm	9
	synt	ifelse
	mark	L292
	pnull
	pnull
	var	55
	line	82
	colm	21
	synt	any
	field	ts_string_max
	pnull
	int	0
	line	82
	colm	39
	synt	any
	neg
	line	82
	colm	37
	synt	any
	numeq
	unmark
	pnull
	var	56
	var	95
	line	83
	colm	20
	synt	any
	asgn
	goto	L293
lab L292
	pnull
	var	56
	pnull
	var	55
	line	85
	colm	31
	synt	any
	field	ts_string_max
	line	85
	colm	20
	synt	any
	asgn
lab L293
	line	82
	colm	9
	synt	endifelse
	unmark
lab L291
	line	87
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	55
	line	87
	colm	24
	synt	any
	field	ts_string_code
	line	87
	colm	13
	synt	any
	nonnull
	pop
	pnull
	pnull
	var	55
	line	88
	colm	24
	synt	any
	field	ts_element_code
	line	88
	colm	13
	synt	any
	nonnull
	pop
	pnull
	pnull
	pnull
	var	7
	line	89
	colm	17
	synt	any
	field	str_string
	line	89
	colm	13
	synt	any
	size
	var	56
	line	89
	colm	31
	synt	any
	numle
	pop
	pnull
	pnull
	pnull
	var	7
	line	90
	colm	15
	synt	any
	field	sel_type
	line	90
	colm	26
	synt	any
	field	kind
	int	5
	line	90
	colm	33
	synt	any
	numeq
	pop
	pnull
	pnull
	pnull
	var	7
	line	91
	colm	18
	synt	any
	field	sel_type
	line	91
	colm	29
	synt	any
	field	sel_type
	line	91
	colm	13
	synt	any
	null
	unmark
	mark	L294
	line	92
	colm	17
	synt	if
	mark0
	pnull
	pnull
	var	5
	var	96
	pnull
	var	7
	line	92
	colm	42
	synt	any
	field	sel_type
	line	92
	colm	39
	synt	any
	invoke	1
	line	92
	colm	24
	synt	any
	asgn
	var	97
	line	92
	colm	55
	synt	any
	numne
	unmark
	mark	L295
	pnull
	pnull
	var	7
	line	93
	colm	23
	synt	any
	field	sig_done
	int	3
	line	93
	colm	34
	synt	any
	asgn
	unmark
lab L295
	mark	L296
	var	5
	line	94
	colm	21
	synt	any
	pret
lab L296
	synt	any
	pfail
	line	92
	colm	17
	synt	endif
	unmark
lab L294
	mark	L297
	var	60
	var	7
	var	76
	pnull
	int	6
	pnull
	var	7
	line	97
	colm	41
	synt	any
	field	sel_type
	line	97
	colm	35
	synt	any
	llist	2
	line	97
	colm	34
	synt	any
	invoke	1
	line	97
	colm	24
	synt	any
	invoke	2
	unmark
lab L297
	mark	L298
	pnull
	pnull
	var	7
	line	98
	colm	19
	synt	any
	field	sig_done
	int	2
	line	98
	colm	30
	synt	any
	asgn
	unmark
lab L298
	mark	L299
	int	3
	line	99
	colm	17
	synt	any
	pret
lab L299
	synt	any
	pfail
	line	87
	colm	9
	synt	endif
	unmark
lab L285
	mark	L300
	line	102
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	7
	line	102
	colm	14
	synt	any
	field	str_expansion
	line	102
	colm	9
	synt	any
	null
	unmark
	pnull
	pnull
	var	7
	line	103
	colm	10
	synt	any
	field	str_expansion
	var	98
	var	7
	line	103
	colm	38
	synt	any
	invoke	1
	line	103
	colm	25
	synt	any
	asgn
	line	102
	colm	5
	synt	endif
	unmark
lab L300
	line	105
	colm	5
	synt	ifelse
	mark	L301
	pnull
	pnull
	var	4
	var	62
	pnull
	var	7
	line	105
	colm	25
	synt	any
	field	str_expansion
	var	1
	line	105
	colm	22
	synt	any
	invoke	2
	line	105
	colm	12
	synt	any
	asgn
	int	3
	line	105
	colm	56
	synt	any
	numeq
	unmark
	mark	L303
	var	60
	var	7
	pnull
	pnull
	var	7
	line	106
	colm	22
	synt	any
	field	str_expansion
	line	106
	colm	38
	synt	any
	field	signature
	line	106
	colm	16
	synt	any
	invoke	2
	unmark
lab L303
	mark	L304
	pnull
	pnull
	var	7
	line	107
	colm	11
	synt	any
	field	sig_done
	int	2
	line	107
	colm	22
	synt	any
	asgn
	unmark
lab L304
	mark	L305
	int	3
	line	108
	colm	9
	synt	any
	pret
lab L305
	synt	any
	pfail
	goto	L302
lab L301
	mark	L306
	pnull
	pnull
	var	7
	line	110
	colm	11
	synt	any
	field	sig_done
	int	3
	line	110
	colm	22
	synt	any
	asgn
	unmark
lab L306
	mark	L307
	var	4
	line	111
	colm	9
	synt	any
	pret
lab L307
	synt	any
	pfail
lab L302
	line	105
	colm	5
	synt	endifelse
	goto	L13
lab L270
	mark	L308
	ccase
	int	27
	line	585
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L309
	line	52
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	4
	var	93
	var	7
	line	52
	colm	25
	synt	any
	invoke	1
	line	52
	colm	12
	synt	any
	asgn
	int	3
	line	52
	colm	30
	synt	any
	numne
	unmark
	mark	L310
	pnull
	pnull
	var	7
	line	53
	colm	11
	synt	any
	field	sig_done
	int	3
	line	53
	colm	22
	synt	any
	asgn
	unmark
lab L310
	mark	L311
	var	4
	line	54
	colm	9
	synt	any
	pret
lab L311
	synt	any
	pfail
	line	52
	colm	5
	synt	endif
	unmark
lab L309
	mark	L312
	line	56
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	7
	line	56
	colm	14
	synt	any
	field	sel_type
	line	56
	colm	9
	synt	any
	null
	unmark
	mark	L313
	line	57
	colm	9
	synt	case
	mark0
	pnull
	var	7
	line	57
	colm	17
	synt	any
	field	kind
	eret
	mark	L315
	ccase
	int	25
	line	58
	colm	15
	synt	any
	eqv
	unmark
	pop
	var	94
	pnull
	str	26
	pnull
	var	7
	line	59
	colm	63
	synt	any
	field	str_string
	line	59
	colm	58
	synt	any
	cat
	var	7
	line	59
	colm	30
	synt	any
	invoke	2
	goto	L314
lab L315
	mark	L316
	ccase
	int	27
	line	60
	colm	15
	synt	any
	eqv
	unmark
	pop
	var	94
	pnull
	str	26
	pnull
	var	7
	line	61
	colm	61
	synt	any
	field	str_string
	line	61
	colm	56
	synt	any
	cat
	var	7
	line	61
	colm	29
	synt	any
	invoke	2
	goto	L314
lab L316
	efail
lab L314
	line	57
	colm	9
	synt	endcase
	unmark
lab L313
	mark	L317
	pnull
	pnull
	var	7
	line	63
	colm	11
	synt	any
	field	signature
	int	2
	line	63
	colm	23
	synt	any
	asgn
	unmark
lab L317
	mark	L318
	pnull
	pnull
	var	7
	line	64
	colm	11
	synt	any
	field	sig_done
	int	2
	line	64
	colm	22
	synt	any
	asgn
	unmark
lab L318
	mark	L319
	int	3
	line	65
	colm	9
	synt	any
	pret
lab L319
	synt	any
	pfail
	line	56
	colm	5
	synt	endif
	unmark
lab L312
	mark	L320
	line	67
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	4
	var	62
	pnull
	var	7
	line	67
	colm	25
	synt	any
	field	sel_type
	var	1
	line	67
	colm	22
	synt	any
	invoke	2
	line	67
	colm	12
	synt	any
	asgn
	int	3
	line	67
	colm	51
	synt	any
	numne
	unmark
	mark	L321
	pnull
	pnull
	var	7
	line	68
	colm	11
	synt	any
	field	sig_done
	int	3
	line	68
	colm	22
	synt	any
	asgn
	unmark
lab L321
	mark	L322
	var	4
	line	69
	colm	9
	synt	any
	pret
lab L322
	synt	any
	pfail
	line	67
	colm	5
	synt	endif
	unmark
lab L320
	mark	L323
	mark	L324
	pnull
	var	55
	pnull
	pnull
	var	7
	line	76
	colm	22
	synt	any
	field	sel_type
	line	76
	colm	33
	synt	any
	field	signature
	line	76
	colm	17
	synt	any
	asgn
	unmark
lab L324
	mark	L325
	line	77
	colm	9
	synt	if
	mark0
	pnull
	var	55
	int	2
	line	77
	colm	21
	synt	any
	numeq
	unmark
	mark	L326
	pnull
	pnull
	var	7
	line	78
	colm	15
	synt	any
	field	signature
	int	2
	line	78
	colm	27
	synt	any
	asgn
	unmark
lab L326
	mark	L327
	pnull
	pnull
	var	7
	line	79
	colm	15
	synt	any
	field	sig_done
	int	2
	line	79
	colm	26
	synt	any
	asgn
	unmark
lab L327
	mark	L328
	int	3
	line	80
	colm	13
	synt	any
	pret
lab L328
	synt	any
	pfail
	line	77
	colm	9
	synt	endif
	unmark
lab L325
	mark	L329
	line	82
	colm	9
	synt	ifelse
	mark	L330
	pnull
	pnull
	var	55
	line	82
	colm	21
	synt	any
	field	ts_string_max
	pnull
	int	0
	line	82
	colm	39
	synt	any
	neg
	line	82
	colm	37
	synt	any
	numeq
	unmark
	pnull
	var	56
	var	95
	line	83
	colm	20
	synt	any
	asgn
	goto	L331
lab L330
	pnull
	var	56
	pnull
	var	55
	line	85
	colm	31
	synt	any
	field	ts_string_max
	line	85
	colm	20
	synt	any
	asgn
lab L331
	line	82
	colm	9
	synt	endifelse
	unmark
lab L329
	line	87
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	55
	line	87
	colm	24
	synt	any
	field	ts_string_code
	line	87
	colm	13
	synt	any
	nonnull
	pop
	pnull
	pnull
	var	55
	line	88
	colm	24
	synt	any
	field	ts_element_code
	line	88
	colm	13
	synt	any
	nonnull
	pop
	pnull
	pnull
	pnull
	var	7
	line	89
	colm	17
	synt	any
	field	str_string
	line	89
	colm	13
	synt	any
	size
	var	56
	line	89
	colm	31
	synt	any
	numle
	pop
	pnull
	pnull
	pnull
	var	7
	line	90
	colm	15
	synt	any
	field	sel_type
	line	90
	colm	26
	synt	any
	field	kind
	int	5
	line	90
	colm	33
	synt	any
	numeq
	pop
	pnull
	pnull
	pnull
	var	7
	line	91
	colm	18
	synt	any
	field	sel_type
	line	91
	colm	29
	synt	any
	field	sel_type
	line	91
	colm	13
	synt	any
	null
	unmark
	mark	L332
	line	92
	colm	17
	synt	if
	mark0
	pnull
	pnull
	var	5
	var	96
	pnull
	var	7
	line	92
	colm	42
	synt	any
	field	sel_type
	line	92
	colm	39
	synt	any
	invoke	1
	line	92
	colm	24
	synt	any
	asgn
	var	97
	line	92
	colm	55
	synt	any
	numne
	unmark
	mark	L333
	pnull
	pnull
	var	7
	line	93
	colm	23
	synt	any
	field	sig_done
	int	3
	line	93
	colm	34
	synt	any
	asgn
	unmark
lab L333
	mark	L334
	var	5
	line	94
	colm	21
	synt	any
	pret
lab L334
	synt	any
	pfail
	line	92
	colm	17
	synt	endif
	unmark
lab L332
	mark	L335
	var	60
	var	7
	var	76
	pnull
	int	6
	pnull
	var	7
	line	97
	colm	41
	synt	any
	field	sel_type
	line	97
	colm	35
	synt	any
	llist	2
	line	97
	colm	34
	synt	any
	invoke	1
	line	97
	colm	24
	synt	any
	invoke	2
	unmark
lab L335
	mark	L336
	pnull
	pnull
	var	7
	line	98
	colm	19
	synt	any
	field	sig_done
	int	2
	line	98
	colm	30
	synt	any
	asgn
	unmark
lab L336
	mark	L337
	int	3
	line	99
	colm	17
	synt	any
	pret
lab L337
	synt	any
	pfail
	line	87
	colm	9
	synt	endif
	unmark
lab L323
	mark	L338
	line	102
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	7
	line	102
	colm	14
	synt	any
	field	str_expansion
	line	102
	colm	9
	synt	any
	null
	unmark
	pnull
	pnull
	var	7
	line	103
	colm	10
	synt	any
	field	str_expansion
	var	98
	var	7
	line	103
	colm	38
	synt	any
	invoke	1
	line	103
	colm	25
	synt	any
	asgn
	line	102
	colm	5
	synt	endif
	unmark
lab L338
	line	105
	colm	5
	synt	ifelse
	mark	L339
	pnull
	pnull
	var	4
	var	62
	pnull
	var	7
	line	105
	colm	25
	synt	any
	field	str_expansion
	var	1
	line	105
	colm	22
	synt	any
	invoke	2
	line	105
	colm	12
	synt	any
	asgn
	int	3
	line	105
	colm	56
	synt	any
	numeq
	unmark
	mark	L341
	var	60
	var	7
	pnull
	pnull
	var	7
	line	106
	colm	22
	synt	any
	field	str_expansion
	line	106
	colm	38
	synt	any
	field	signature
	line	106
	colm	16
	synt	any
	invoke	2
	unmark
lab L341
	mark	L342
	pnull
	pnull
	var	7
	line	107
	colm	11
	synt	any
	field	sig_done
	int	2
	line	107
	colm	22
	synt	any
	asgn
	unmark
lab L342
	mark	L343
	int	3
	line	108
	colm	9
	synt	any
	pret
lab L343
	synt	any
	pfail
	goto	L340
lab L339
	mark	L344
	pnull
	pnull
	var	7
	line	110
	colm	11
	synt	any
	field	sig_done
	int	3
	line	110
	colm	22
	synt	any
	asgn
	unmark
lab L344
	mark	L345
	var	4
	line	111
	colm	9
	synt	any
	pret
lab L345
	synt	any
	pfail
lab L340
	line	105
	colm	5
	synt	endifelse
	goto	L13
lab L308
	mark	L346
	ccase
	int	13
	line	589
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L347
	var	99
	var	7
	line	591
	colm	33
	synt	any
	invoke	1
	line	591
	colm	17
	synt	any
	pret
lab L347
	synt	any
	pfail
	goto	L13
lab L346
	mark	L348
	ccase
	int	17
	line	593
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L349
	pnull
	var	20
	pnull
	var	7
	line	595
	colm	31
	synt	any
	field	prod_components
	line	595
	colm	26
	synt	any
	asgn
	unmark
lab L349
	mark	L350
	pnull
	var	22
	var	81
	var	100
	line	596
	colm	44
	synt	any
	invoke	0
	line	596
	colm	34
	synt	any
	invoke	1
	line	596
	colm	27
	synt	any
	asgn
	unmark
lab L350
	mark	L351
	line	597
	colm	17
	synt	ifelse
	mark	L352
	pnull
	pnull
	var	7
	line	597
	colm	25
	synt	any
	field	prod_local_type_id
	line	597
	colm	20
	synt	any
	null
	unmark
	pnull
	var	23
	var	76
	pnull
	int	5
	var	101
	line	598
	colm	40
	synt	any
	llist	2
	line	598
	colm	39
	synt	any
	invoke	1
	line	598
	colm	30
	synt	any
	asgn
	goto	L353
lab L352
	pnull
	var	23
	var	102
	pnull
	var	7
	line	599
	colm	45
	synt	any
	field	prod_local_type_id
	line	599
	colm	42
	synt	any
	invoke	1
	line	599
	colm	31
	synt	any
	asgn
lab L353
	line	597
	colm	17
	synt	endifelse
	unmark
lab L351
	mark	L354
	pnull
	var	24
	var	76
	pnull
	int	6
	var	23
	line	600
	colm	35
	synt	any
	llist	2
	line	600
	colm	34
	synt	any
	invoke	1
	line	600
	colm	25
	synt	any
	asgn
	unmark
lab L354
	mark	L355
	pnull
	var	25
	int	0
	line	601
	colm	29
	synt	any
	asgn
	unmark
lab L355
	mark	L356
	pnull
	var	26
	var	103
	var	20
	line	602
	colm	30
	synt	any
	invoke	1
	line	602
	colm	21
	synt	any
	asgn
	unmark
lab L356
	mark	L357
	line	604
	colm	17
	synt	ifelse
	mark	L358
	pnull
	var	63
	int	3
	line	604
	colm	27
	synt	any
	numne
	unmark
	mark	L360
	pnull
	var	26
	int	3
	line	605
	colm	25
	synt	any
	asgn
	unmark
lab L360
	mark	L361
	pnull
	var	28
	pnull
	var	20
	line	606
	colm	37
	synt	any
	field	lh_first
	line	606
	colm	26
	synt	any
	asgn
	unmark
lab L361
lab L362
	line	607
	colm	21
	synt	while
	mark0
	pnull
	var	28
	line	607
	colm	27
	synt	any
	nonnull
	unmark
	mark	L362
	mark	L365
	pnull
	var	32
	pnull
	var	28
	line	608
	colm	34
	synt	any
	field	cn_hd_field
	line	608
	colm	27
	synt	any
	asgn
	unmark
lab L365
	mark	L366
	line	609
	colm	25
	synt	if
	mark0
	pnull
	var	104
	pnull
	var	32
	line	609
	colm	43
	synt	any
	field	par_signature
	line	609
	colm	40
	synt	any
	invoke	1
	int	3
	line	609
	colm	60
	synt	any
	numeq
	unmark
	pnull
	var	26
	dup
	int	0
	line	610
	colm	33
	synt	any
	plus
	asgn
	line	609
	colm	25
	synt	endif
	unmark
lab L366
	pnull
	var	28
	pnull
	var	28
	line	612
	colm	37
	synt	any
	field	cn_tl_field
	line	612
	colm	30
	synt	any
	asgn
lab L363
	unmark
	goto	L362
lab L364
	line	607
	colm	21
	synt	endwhile
	goto	L359
lab L358
	pnull
	var	26
	var	103
	var	20
	line	615
	colm	34
	synt	any
	invoke	1
	line	615
	colm	25
	synt	any
	asgn
lab L359
	line	604
	colm	17
	synt	endifelse
	unmark
lab L357
	mark	L367
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	106
	line	619
	colm	38
	synt	any
	invoke	1
	var	102
	var	107
	line	620
	colm	38
	synt	any
	invoke	1
	line	618
	colm	29
	synt	any
	llist	3
	line	618
	colm	28
	synt	any
	invoke	1
	line	618
	colm	19
	synt	any
	asgn
	unmark
lab L367
	mark	L368
	pnull
	pnull
	pnull
	var	5
	line	621
	colm	18
	synt	any
	field	tsc_signature
	line	621
	colm	33
	synt	any
	field	fsig_special
	var	108
	int	0
	var	26
	line	621
	colm	59
	synt	any
	invoke	2
	line	621
	colm	48
	synt	any
	asgn
	unmark
lab L368
	mark	L369
	var	109
	var	5
	line	622
	colm	28
	synt	any
	invoke	1
	unmark
lab L369
	mark	L370
	var	110
	var	22
	var	5
	line	623
	colm	25
	synt	any
	invoke	2
	unmark
lab L370
	mark	L371
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	111
	line	625
	colm	38
	synt	any
	invoke	1
	var	102
	var	112
	line	626
	colm	38
	synt	any
	invoke	1
	line	624
	colm	29
	synt	any
	llist	3
	line	624
	colm	28
	synt	any
	invoke	1
	line	624
	colm	19
	synt	any
	asgn
	unmark
lab L371
	mark	L372
	pnull
	pnull
	pnull
	var	5
	line	627
	colm	19
	synt	any
	field	tsc_signature
	line	627
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	29
	var	26
	line	627
	colm	60
	synt	any
	invoke	2
	line	627
	colm	50
	synt	any
	asgn
	unmark
lab L372
	mark	L373
	var	109
	var	5
	line	628
	colm	28
	synt	any
	invoke	1
	unmark
lab L373
	mark	L374
	var	110
	var	22
	var	5
	line	629
	colm	25
	synt	any
	invoke	2
	unmark
lab L374
	mark	L375
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	113
	line	631
	colm	37
	synt	any
	invoke	1
	var	102
	var	114
	line	632
	colm	37
	synt	any
	invoke	1
	line	630
	colm	28
	synt	any
	llist	3
	line	630
	colm	27
	synt	any
	invoke	1
	line	630
	colm	19
	synt	any
	numeq
	unmark
lab L375
	mark	L376
	pnull
	pnull
	pnull
	var	5
	line	633
	colm	19
	synt	any
	field	tsc_signature
	line	633
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	2
	var	26
	line	633
	colm	61
	synt	any
	invoke	2
	line	633
	colm	50
	synt	any
	asgn
	unmark
lab L376
	mark	L377
	var	109
	var	5
	line	634
	colm	28
	synt	any
	invoke	1
	unmark
lab L377
	mark	L378
	var	110
	var	22
	var	5
	line	635
	colm	25
	synt	any
	invoke	2
	unmark
lab L378
	mark	L379
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	115
	line	638
	colm	38
	synt	any
	invoke	1
	var	76
	pnull
	int	8
	var	69
	var	20
	var	24
	line	639
	colm	37
	synt	any
	llist	4
	line	639
	colm	36
	synt	any
	invoke	1
	line	637
	colm	29
	synt	any
	llist	3
	line	637
	colm	28
	synt	any
	invoke	1
	line	637
	colm	19
	synt	any
	asgn
	unmark
lab L379
	mark	L380
	pnull
	pnull
	pnull
	var	5
	line	644
	colm	19
	synt	any
	field	tsc_signature
	line	644
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	7
	var	26
	line	644
	colm	61
	synt	any
	invoke	2
	line	644
	colm	50
	synt	any
	asgn
	unmark
lab L380
	mark	L381
	var	109
	var	5
	line	645
	colm	28
	synt	any
	invoke	1
	unmark
lab L381
	mark	L382
	var	110
	var	22
	var	5
	line	646
	colm	25
	synt	any
	invoke	2
	unmark
lab L382
	mark	L383
	mark	L384
	pnull
	var	29
	var	100
	line	648
	colm	37
	synt	any
	invoke	0
	line	648
	colm	25
	synt	any
	asgn
	unmark
lab L384
	mark	L385
	pnull
	var	30
	var	100
	line	650
	colm	37
	synt	any
	invoke	0
	line	650
	colm	25
	synt	any
	asgn
	unmark
lab L385
	mark	L386
	var	110
	var	29
	pnull
	var	31
	var	76
	pnull
	int	2
	var	69
	var	24
	line	654
	colm	47
	synt	any
	llist	3
	line	654
	colm	46
	synt	any
	invoke	1
	line	654
	colm	37
	synt	any
	asgn
	line	654
	colm	29
	synt	any
	invoke	2
	unmark
lab L386
	mark	L387
	pnull
	pnull
	var	31
	line	655
	colm	23
	synt	any
	field	pre_num
	var	116
	line	655
	colm	33
	synt	any
	asgn
	unmark
lab L387
	mark	L388
	pnull
	var	116
	dup
	int	0
	line	656
	colm	30
	synt	any
	plus
	asgn
	unmark
lab L388
	mark	L389
	var	110
	var	30
	pnull
	var	31
	var	76
	pnull
	int	5
	var	101
	line	658
	colm	47
	synt	any
	llist	2
	line	658
	colm	46
	synt	any
	invoke	1
	line	658
	colm	37
	synt	any
	asgn
	line	658
	colm	29
	synt	any
	invoke	2
	unmark
lab L389
	mark	L390
	pnull
	pnull
	var	31
	line	659
	colm	23
	synt	any
	field	id_last_definition
	var	117
	var	29
	line	659
	colm	52
	synt	any
	invoke	1
	line	659
	colm	44
	synt	any
	asgn
	unmark
lab L390
	mark	L391
	pnull
	pnull
	var	31
	line	660
	colm	23
	synt	any
	field	id_def_found
	int	0
	line	660
	colm	38
	synt	any
	asgn
	unmark
lab L391
	mark	L392
	pnull
	var	21
	var	81
	var	100
	line	663
	colm	47
	synt	any
	invoke	0
	line	663
	colm	37
	synt	any
	invoke	1
	line	663
	colm	30
	synt	any
	asgn
	unmark
lab L392
	mark	L393
	pnull
	var	28
	pnull
	var	20
	line	664
	colm	37
	synt	any
	field	lh_first
	line	664
	colm	26
	synt	any
	asgn
	unmark
lab L393
	mark	L394
lab L395
	line	665
	colm	21
	synt	while
	mark0
	pnull
	var	28
	line	665
	colm	27
	synt	any
	nonnull
	unmark
	mark	L395
	mark	L398
	pnull
	var	32
	pnull
	var	28
	line	666
	colm	34
	synt	any
	field	cn_hd_field
	line	666
	colm	27
	synt	any
	asgn
	unmark
lab L398
	mark	L399
	pnull
	var	5
	var	102
	pnull
	var	32
	line	667
	colm	41
	synt	any
	field	par_id
	line	667
	colm	38
	synt	any
	invoke	1
	line	667
	colm	27
	synt	any
	asgn
	unmark
lab L399
	mark	L400
	pnull
	pnull
	var	5
	line	668
	colm	27
	synt	any
	field	sel_type
	var	23
	line	668
	colm	38
	synt	any
	asgn
	unmark
lab L400
	mark	L401
	pnull
	pnull
	var	5
	line	669
	colm	27
	synt	any
	field	id_last_definition
	var	69
	line	669
	colm	48
	synt	any
	asgn
	unmark
lab L401
	mark	L402
	pnull
	pnull
	var	5
	line	670
	colm	27
	synt	any
	field	id_def_found
	int	0
	line	670
	colm	42
	synt	any
	asgn
	unmark
lab L402
	mark	L403
	pnull
	var	5
	var	76
	pnull
	int	14
	var	5
	var	30
	line	671
	colm	37
	synt	any
	llist	3
	line	671
	colm	36
	synt	any
	invoke	1
	line	671
	colm	27
	synt	any
	asgn
	unmark
lab L403
	mark	L404
	var	110
	var	21
	var	5
	line	672
	colm	33
	synt	any
	invoke	2
	unmark
lab L404
	pnull
	var	28
	pnull
	var	28
	line	673
	colm	37
	synt	any
	field	cn_tl_field
	line	673
	colm	30
	synt	any
	asgn
lab L396
	unmark
	goto	L395
lab L397
	line	665
	colm	21
	synt	endwhile
	unmark
lab L394
	mark	L405
	pnull
	var	27
	int	3
	line	675
	colm	23
	synt	any
	asgn
	unmark
lab L405
	mark	L406
	pnull
	var	28
	pnull
	var	20
	line	676
	colm	37
	synt	any
	field	lh_first
	line	676
	colm	26
	synt	any
	asgn
	unmark
lab L406
lab L407
	line	677
	colm	21
	synt	while
	mark0
	pnull
	var	28
	line	677
	colm	27
	synt	any
	nonnull
	unmark
	mark	L407
	mark	L410
	pnull
	var	32
	pnull
	var	28
	line	678
	colm	34
	synt	any
	field	cn_hd_field
	line	678
	colm	27
	synt	any
	asgn
	unmark
lab L410
	mark	L411
	line	679
	colm	25
	synt	ifelse
	mark	L412
	pnull
	var	63
	int	3
	line	679
	colm	34
	synt	any
	numne
	pop
	var	104
	pnull
	var	32
	line	679
	colm	55
	synt	any
	field	par_signature
	line	679
	colm	52
	synt	any
	invoke	1
	unmark
	pnull
	var	33
	int	0
	line	680
	colm	36
	synt	any
	asgn
	goto	L413
lab L412
	pnull
	var	33
	int	3
	line	681
	colm	36
	synt	any
	asgn
lab L413
	line	679
	colm	25
	synt	endifelse
	unmark
lab L411
	mark	L414
	pnull
	var	5
	var	76
	pnull
	int	8
	var	69
	var	29
	var	118
	pnull
	var	32
	line	686
	colm	46
	synt	any
	field	par_signature
	var	20
	var	21
	line	686
	colm	43
	synt	any
	invoke	3
	line	683
	colm	37
	synt	any
	llist	4
	line	683
	colm	36
	synt	any
	invoke	1
	line	683
	colm	27
	synt	any
	asgn
	unmark
lab L414
	mark	L415
	line	690
	colm	25
	synt	ifelse
	mark	L416
	pnull
	var	33
	int	3
	line	690
	colm	33
	synt	any
	numeq
	unmark
	pnull
	pnull
	var	5
	line	691
	colm	31
	synt	any
	field	fsig_special
	var	108
	int	6
	var	27
	line	691
	colm	56
	synt	any
	invoke	2
	line	691
	colm	46
	synt	any
	asgn
	goto	L417
lab L416
	pnull
	pnull
	var	5
	line	693
	colm	31
	synt	any
	field	fsig_special
	var	108
	int	30
	int	3
	line	693
	colm	56
	synt	any
	invoke	2
	line	693
	colm	46
	synt	any
	asgn
lab L417
	line	690
	colm	25
	synt	endifelse
	unmark
lab L415
	mark	L418
	line	695
	colm	25
	synt	if
	mark0
	pnull
	pnull
	var	32
	line	695
	colm	35
	synt	any
	field	par_id
	line	695
	colm	30
	synt	any
	null
	unmark
	var	94
	str	31
	var	32
	line	696
	colm	41
	synt	any
	invoke	2
	line	695
	colm	25
	synt	endif
	unmark
lab L418
	mark	L419
	pnull
	var	5
	var	76
	pnull
	int	28
	pnull
	var	32
	line	698
	colm	43
	synt	any
	field	par_id
	var	5
	line	698
	colm	37
	synt	any
	llist	3
	line	698
	colm	36
	synt	any
	invoke	1
	line	698
	colm	27
	synt	any
	asgn
	unmark
lab L419
	mark	L420
	var	109
	var	5
	line	699
	colm	36
	synt	any
	invoke	1
	unmark
lab L420
	mark	L421
	var	110
	var	22
	var	5
	line	700
	colm	33
	synt	any
	invoke	2
	unmark
lab L421
	mark	L422
	line	701
	colm	25
	synt	if
	mark0
	pnull
	var	33
	int	3
	line	701
	colm	33
	synt	any
	numeq
	unmark
	pnull
	var	27
	dup
	int	0
	line	702
	colm	31
	synt	any
	plus
	asgn
	line	701
	colm	25
	synt	endif
	unmark
lab L422
	pnull
	var	28
	pnull
	var	28
	line	704
	colm	37
	synt	any
	field	cn_tl_field
	line	704
	colm	30
	synt	any
	asgn
lab L408
	unmark
	goto	L407
lab L409
	line	677
	colm	21
	synt	endwhile
	unmark
lab L383
	mark	L423
	var	60
	var	7
	var	76
	pnull
	int	9
	var	23
	var	22
	var	69
	var	69
	var	69
	line	707
	colm	35
	synt	any
	llist	6
	line	707
	colm	34
	synt	any
	invoke	1
	line	707
	colm	24
	synt	any
	invoke	2
	unmark
lab L423
	mark	L424
	pnull
	pnull
	pnull
	var	7
	line	711
	colm	19
	synt	any
	field	signature
	line	711
	colm	31
	synt	any
	field	pre_num
	var	116
	line	711
	colm	41
	synt	any
	asgn
	unmark
lab L424
	mark	L425
	pnull
	var	116
	dup
	int	0
	line	712
	colm	26
	synt	any
	plus
	asgn
	unmark
lab L425
	mark	L426
	var	119
	pnull
	var	7
	line	714
	colm	30
	synt	any
	field	signature
	line	714
	colm	27
	synt	any
	invoke	1
	unmark
lab L426
	mark	L427
	pnull
	pnull
	var	23
	line	718
	colm	26
	synt	any
	field	id_def_found
	int	0
	line	718
	colm	41
	synt	any
	asgn
	unmark
lab L427
	mark	L428
	pnull
	pnull
	var	23
	line	719
	colm	26
	synt	any
	field	id_last_definition
	pnull
	var	7
	line	719
	colm	52
	synt	any
	field	signature
	line	719
	colm	47
	synt	any
	asgn
	unmark
lab L428
	mark	L429
	pnull
	pnull
	var	7
	line	720
	colm	19
	synt	any
	field	signature
	var	120
	pnull
	var	7
	line	720
	colm	43
	synt	any
	field	signature
	var	7
	var	23
	int	3
	line	720
	colm	40
	synt	any
	invoke	4
	line	720
	colm	31
	synt	any
	asgn
	unmark
lab L429
	mark	L430
	pnull
	pnull
	var	23
	line	725
	colm	26
	synt	any
	field	id_def_found
	int	0
	line	725
	colm	41
	synt	any
	asgn
	unmark
lab L430
	mark	L431
	pnull
	pnull
	var	23
	line	726
	colm	26
	synt	any
	field	id_last_definition
	pnull
	var	7
	line	726
	colm	52
	synt	any
	field	signature
	line	726
	colm	47
	synt	any
	asgn
	unmark
lab L431
	mark	L432
	pnull
	pnull
	var	7
	line	727
	colm	19
	synt	any
	field	sig_done
	int	2
	line	727
	colm	30
	synt	any
	asgn
	unmark
lab L432
	mark	L433
	pnull
	var	28
	pnull
	var	20
	line	729
	colm	33
	synt	any
	field	lh_first
	line	729
	colm	22
	synt	any
	asgn
	unmark
lab L433
	mark	L434
lab L435
	line	730
	colm	17
	synt	while
	mark0
	pnull
	var	28
	line	730
	colm	23
	synt	any
	nonnull
	unmark
	mark	L435
	mark	L438
	pnull
	var	32
	pnull
	var	28
	line	731
	colm	30
	synt	any
	field	cn_hd_field
	line	731
	colm	23
	synt	any
	asgn
	unmark
lab L438
	mark	L439
	line	732
	colm	21
	synt	case
	mark0
	pnull
	pnull
	var	32
	line	732
	colm	29
	synt	any
	field	par_signature
	line	732
	colm	45
	synt	any
	field	kind
	eret
	mark	L441
	ccase
	int	8
	line	733
	colm	26
	synt	any
	eqv
	unmark
	pop
	pnull
	var	25
	int	3
	line	734
	colm	41
	synt	any
	asgn
	goto	L440
lab L441
	mark	L442
	ccase
	int	9
	line	735
	colm	26
	synt	any
	eqv
	unmark
	pop
	pnull
	var	25
	int	3
	line	736
	colm	41
	synt	any
	asgn
	goto	L440
lab L442
	mark	L443
	ccase
	int	6
	line	737
	colm	26
	synt	any
	eqv
	unmark
	pop
	line	739
	colm	33
	synt	ifelse
	mark	L444
	pnull
	var	62
	pnull
	pnull
	var	32
	line	739
	colm	46
	synt	any
	field	par_signature
	line	739
	colm	60
	synt	any
	field	val_denotation
	int	3
	line	739
	colm	44
	synt	any
	invoke	2
	int	3
	line	739
	colm	80
	synt	any
	numne
	unmark
	pnull
	var	25
	int	3
	line	740
	colm	49
	synt	any
	asgn
	goto	L445
lab L444
	mark	L446
	pnull
	var	19
	pnull
	pnull
	pnull
	var	32
	line	742
	colm	49
	synt	any
	field	par_signature
	line	742
	colm	63
	synt	any
	field	val_denotation
	line	742
	colm	78
	synt	any
	field	signature
	line	742
	colm	45
	synt	any
	asgn
	unmark
lab L446
	line	743
	colm	37
	synt	if
	mark0
	pnull
	var	19
	int	2
	line	743
	colm	49
	synt	any
	numne
	pop
	pnull
	pnull
	var	19
	line	743
	colm	63
	synt	any
	field	kind
	int	9
	line	743
	colm	69
	synt	any
	numeq
	unmark
	line	744
	colm	41
	synt	ifelse
	mark	L447
	pnull
	var	25
	int	3
	line	744
	colm	56
	synt	any
	numne
	pop
	pnull
	pnull
	var	19
	line	744
	colm	71
	synt	any
	field	ts_simple_type
	int	3
	line	744
	colm	88
	synt	any
	numne
	unmark
	pnull
	var	25
	int	0
	line	745
	colm	57
	synt	any
	asgn
	goto	L448
lab L447
	pnull
	var	25
	int	3
	line	746
	colm	58
	synt	any
	asgn
lab L448
	line	744
	colm	41
	synt	endifelse
	line	743
	colm	37
	synt	endif
lab L445
	line	739
	colm	33
	synt	endifelse
	goto	L440
lab L443
	efail
lab L440
	line	732
	colm	21
	synt	endcase
	unmark
lab L439
	pnull
	var	28
	pnull
	var	28
	line	752
	colm	34
	synt	any
	field	cn_tl_field
	line	752
	colm	26
	synt	any
	asgn
lab L436
	unmark
	goto	L435
lab L437
	line	730
	colm	17
	synt	endwhile
	unmark
lab L434
	mark	L449
	pnull
	pnull
	pnull
	var	7
	line	754
	colm	19
	synt	any
	field	signature
	line	754
	colm	31
	synt	any
	field	ts_simple_type
	var	25
	line	754
	colm	48
	synt	any
	asgn
	unmark
lab L449
	mark	L450
	var	82
	var	22
	line	755
	colm	23
	synt	any
	invoke	1
	unmark
lab L450
	mark	L451
	var	82
	var	21
	line	756
	colm	23
	synt	any
	invoke	1
	unmark
lab L451
	mark	L452
	var	73
	var	21
	line	757
	colm	22
	synt	any
	invoke	1
	unmark
lab L452
	mark	L453
	int	3
	line	758
	colm	17
	synt	any
	pret
lab L453
	synt	any
	pfail
	goto	L13
lab L348
	mark	L454
	ccase
	int	32
	line	760
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L455
	mark	L456
	pnull
	var	34
	pnull
	var	7
	line	763
	colm	37
	synt	any
	field	prod_components
	line	763
	colm	32
	synt	any
	asgn
	unmark
lab L456
	mark	L457
	pnull
	var	22
	var	81
	var	100
	line	764
	colm	48
	synt	any
	invoke	0
	line	764
	colm	38
	synt	any
	invoke	1
	line	764
	colm	31
	synt	any
	asgn
	unmark
lab L457
	mark	L458
	line	765
	colm	21
	synt	ifelse
	mark	L459
	pnull
	pnull
	var	7
	line	765
	colm	29
	synt	any
	field	prod_local_type_id
	line	765
	colm	24
	synt	any
	null
	unmark
	pnull
	var	23
	var	76
	pnull
	int	5
	var	101
	line	766
	colm	44
	synt	any
	llist	2
	line	766
	colm	43
	synt	any
	invoke	1
	line	766
	colm	34
	synt	any
	asgn
	goto	L460
lab L459
	pnull
	var	23
	var	102
	pnull
	var	7
	line	767
	colm	49
	synt	any
	field	prod_local_type_id
	line	767
	colm	46
	synt	any
	invoke	1
	line	767
	colm	35
	synt	any
	asgn
lab L460
	line	765
	colm	21
	synt	endifelse
	unmark
lab L458
	mark	L461
	pnull
	var	24
	var	76
	pnull
	int	6
	var	23
	line	768
	colm	38
	synt	any
	llist	2
	line	768
	colm	37
	synt	any
	invoke	1
	line	768
	colm	29
	synt	any
	numeq
	unmark
lab L461
	mark	L462
	pnull
	var	26
	var	103
	var	34
	line	769
	colm	34
	synt	any
	invoke	1
	line	769
	colm	25
	synt	any
	asgn
	unmark
lab L462
	mark	L463
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	106
	line	772
	colm	42
	synt	any
	invoke	1
	var	102
	var	107
	line	773
	colm	42
	synt	any
	invoke	1
	line	771
	colm	33
	synt	any
	llist	3
	line	771
	colm	32
	synt	any
	invoke	1
	line	771
	colm	23
	synt	any
	asgn
	unmark
lab L463
	mark	L464
	pnull
	pnull
	pnull
	var	5
	line	774
	colm	23
	synt	any
	field	tsc_signature
	line	774
	colm	39
	synt	any
	field	fsig_special
	var	108
	int	8
	var	26
	line	774
	colm	64
	synt	any
	invoke	2
	line	774
	colm	54
	synt	any
	asgn
	unmark
lab L464
	mark	L465
	var	109
	var	5
	line	775
	colm	32
	synt	any
	invoke	1
	unmark
lab L465
	mark	L466
	var	110
	var	22
	var	5
	line	776
	colm	29
	synt	any
	invoke	2
	unmark
lab L466
	mark	L467
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	111
	line	778
	colm	42
	synt	any
	invoke	1
	var	102
	var	112
	line	779
	colm	42
	synt	any
	invoke	1
	line	777
	colm	33
	synt	any
	llist	3
	line	777
	colm	32
	synt	any
	invoke	1
	line	777
	colm	23
	synt	any
	asgn
	unmark
lab L467
	mark	L468
	pnull
	pnull
	pnull
	var	5
	line	780
	colm	23
	synt	any
	field	tsc_signature
	line	780
	colm	39
	synt	any
	field	fsig_special
	var	108
	int	28
	var	26
	line	780
	colm	64
	synt	any
	invoke	2
	line	780
	colm	54
	synt	any
	asgn
	unmark
lab L468
	mark	L469
	var	109
	var	5
	line	781
	colm	32
	synt	any
	invoke	1
	unmark
lab L469
	mark	L470
	var	110
	var	22
	var	5
	line	782
	colm	29
	synt	any
	invoke	2
	unmark
lab L470
	mark	L471
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	113
	line	784
	colm	41
	synt	any
	invoke	1
	var	102
	var	114
	line	785
	colm	41
	synt	any
	invoke	1
	line	783
	colm	32
	synt	any
	llist	3
	line	783
	colm	31
	synt	any
	invoke	1
	line	783
	colm	23
	synt	any
	numeq
	unmark
lab L471
	mark	L472
	pnull
	pnull
	pnull
	var	5
	line	786
	colm	23
	synt	any
	field	tsc_signature
	line	786
	colm	39
	synt	any
	field	fsig_special
	var	108
	int	9
	var	26
	line	786
	colm	64
	synt	any
	invoke	2
	line	786
	colm	54
	synt	any
	asgn
	unmark
lab L472
	mark	L473
	var	109
	var	5
	line	787
	colm	32
	synt	any
	invoke	1
	unmark
lab L473
	mark	L474
	var	110
	var	22
	var	5
	line	788
	colm	29
	synt	any
	invoke	2
	unmark
lab L474
	mark	L475
	pnull
	var	29
	var	100
	line	790
	colm	40
	synt	any
	invoke	0
	line	790
	colm	29
	synt	any
	numeq
	unmark
lab L475
	mark	L476
	var	110
	var	29
	pnull
	var	31
	var	76
	pnull
	int	2
	var	69
	var	121
	line	793
	colm	51
	synt	any
	llist	3
	line	793
	colm	50
	synt	any
	invoke	1
	line	793
	colm	41
	synt	any
	asgn
	line	793
	colm	33
	synt	any
	invoke	2
	unmark
lab L476
	mark	L477
	pnull
	pnull
	var	31
	line	794
	colm	27
	synt	any
	field	pre_num
	var	116
	line	794
	colm	37
	synt	any
	numeq
	unmark
lab L477
	mark	L478
	pnull
	var	116
	dup
	int	0
	line	795
	colm	34
	synt	any
	plus
	asgn
	unmark
lab L478
	mark	L479
	pnull
	var	27
	int	3
	line	797
	colm	27
	synt	any
	asgn
	unmark
lab L479
	mark	L480
	pnull
	var	28
	pnull
	var	34
	line	798
	colm	43
	synt	any
	field	lh_first
	line	798
	colm	30
	synt	any
	asgn
	unmark
lab L480
	mark	L481
lab L482
	line	799
	colm	25
	synt	while
	mark0
	pnull
	var	28
	line	799
	colm	31
	synt	any
	nonnull
	unmark
	mark	L482
	mark	L485
	pnull
	var	32
	pnull
	var	28
	line	800
	colm	38
	synt	any
	field	cn_hd_field
	line	800
	colm	31
	synt	any
	asgn
	unmark
lab L485
	mark	L486
	line	802
	colm	29
	synt	ifelse
	mark	L487
	pnull
	var	63
	int	3
	line	802
	colm	38
	synt	any
	numeq
	pop
	var	104
	pnull
	var	32
	line	802
	colm	58
	synt	any
	field	par_signature
	line	802
	colm	55
	synt	any
	invoke	1
	unmark
	pnull
	var	33
	int	0
	line	803
	colm	45
	synt	any
	asgn
	goto	L488
lab L487
	pnull
	var	33
	int	3
	line	804
	colm	38
	synt	any
	asgn
lab L488
	line	802
	colm	29
	synt	endifelse
	unmark
lab L486
	mark	L489
	line	806
	colm	29
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	32
	line	806
	colm	35
	synt	any
	field	par_id
	line	806
	colm	44
	synt	any
	field	kind
	int	5
	line	806
	colm	51
	synt	any
	numne
	unmark
	var	58
	pnull
	str	33
	var	122
	pnull
	pnull
	var	32
	line	808
	colm	51
	synt	any
	field	par_id
	line	808
	colm	60
	synt	any
	field	id_str_table_index
	line	808
	colm	48
	synt	any
	invoke	1
	line	807
	colm	66
	synt	any
	cat
	line	807
	colm	40
	synt	any
	invoke	1
	line	806
	colm	29
	synt	endif
	unmark
lab L489
	mark	L490
	pnull
	var	5
	var	76
	pnull
	int	8
	var	69
	var	29
	pnull
	var	32
	line	814
	colm	43
	synt	any
	field	par_signature
	line	811
	colm	40
	synt	any
	llist	4
	line	811
	colm	39
	synt	any
	invoke	1
	line	811
	colm	31
	synt	any
	numeq
	unmark
lab L490
	mark	L491
	line	816
	colm	29
	synt	ifelse
	mark	L492
	pnull
	var	33
	int	3
	line	816
	colm	37
	synt	any
	numeq
	unmark
	mark	L494
	pnull
	pnull
	var	5
	line	817
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	10
	var	27
	line	817
	colm	60
	synt	any
	invoke	2
	line	817
	colm	50
	synt	any
	asgn
	unmark
lab L494
	pnull
	goto	L493
lab L492
	mark	L495
	pnull
	pnull
	var	5
	line	819
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	30
	int	3
	line	819
	colm	60
	synt	any
	invoke	2
	line	819
	colm	50
	synt	any
	asgn
	unmark
lab L495
	pnull
lab L493
	line	816
	colm	29
	synt	endifelse
	unmark
lab L491
	mark	L496
	pnull
	pnull
	var	5
	line	821
	colm	31
	synt	any
	field	fsig_inline_code
	var	123
	pnull
	var	5
	line	822
	colm	52
	synt	any
	field	fsig_special
	line	822
	colm	49
	synt	any
	invoke	1
	line	821
	colm	50
	synt	any
	asgn
	unmark
lab L496
	mark	L497
	var	110
	var	22
	var	76
	pnull
	int	28
	var	124
	str	34
	pnull
	var	32
	line	825
	colm	63
	synt	any
	field	par_id
	line	825
	colm	53
	synt	any
	invoke	2
	var	5
	line	824
	colm	45
	synt	any
	llist	3
	line	824
	colm	44
	synt	any
	invoke	1
	line	823
	colm	37
	synt	any
	invoke	2
	unmark
lab L497
	mark	L498
	pnull
	var	5
	var	76
	pnull
	int	8
	var	69
	var	29
	var	90
	line	829
	colm	41
	synt	any
	llist	4
	line	829
	colm	40
	synt	any
	invoke	1
	line	829
	colm	31
	synt	any
	asgn
	unmark
lab L498
	mark	L499
	pnull
	pnull
	var	5
	line	834
	colm	31
	synt	any
	field	fsig_special
	var	108
	int	16
	var	27
	line	834
	colm	56
	synt	any
	invoke	2
	line	834
	colm	46
	synt	any
	asgn
	unmark
lab L499
	mark	L500
	pnull
	pnull
	var	5
	line	835
	colm	31
	synt	any
	field	fsig_inline_code
	var	123
	pnull
	var	5
	line	835
	colm	72
	synt	any
	field	fsig_special
	line	835
	colm	69
	synt	any
	invoke	1
	line	835
	colm	50
	synt	any
	asgn
	unmark
lab L500
	mark	L501
	var	110
	var	22
	var	76
	pnull
	int	28
	var	124
	str	35
	pnull
	var	32
	line	838
	colm	63
	synt	any
	field	par_id
	line	838
	colm	53
	synt	any
	invoke	2
	var	5
	line	837
	colm	45
	synt	any
	llist	3
	line	837
	colm	44
	synt	any
	invoke	1
	line	836
	colm	37
	synt	any
	invoke	2
	unmark
lab L501
	mark	L502
	pnull
	var	5
	var	76
	pnull
	int	8
	var	69
	var	125
	pnull
	var	76
	int	2
	var	69
	pnull
	var	32
	line	846
	colm	60
	synt	any
	field	par_signature
	line	844
	colm	57
	synt	any
	invoke	3
	pnull
	line	844
	colm	49
	synt	any
	llist	2
	line	844
	colm	48
	synt	any
	invoke	1
	var	24
	line	842
	colm	41
	synt	any
	llist	4
	line	842
	colm	40
	synt	any
	invoke	1
	line	842
	colm	31
	synt	any
	asgn
	unmark
lab L502
	mark	L503
	line	851
	colm	29
	synt	ifelse
	mark	L504
	pnull
	var	33
	int	3
	line	851
	colm	37
	synt	any
	numeq
	unmark
	pnull
	pnull
	var	5
	line	852
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	36
	var	27
	line	852
	colm	59
	synt	any
	invoke	2
	line	852
	colm	50
	synt	any
	numeq
	goto	L505
lab L504
	pnull
	pnull
	var	5
	line	854
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	37
	var	27
	line	854
	colm	59
	synt	any
	invoke	2
	line	854
	colm	50
	synt	any
	numeq
lab L505
	line	851
	colm	29
	synt	endifelse
	unmark
lab L503
	mark	L506
	pnull
	pnull
	var	5
	line	856
	colm	31
	synt	any
	field	fsig_inline_code
	var	123
	pnull
	var	5
	line	857
	colm	52
	synt	any
	field	fsig_special
	line	857
	colm	49
	synt	any
	invoke	1
	line	856
	colm	50
	synt	any
	asgn
	unmark
lab L506
	mark	L507
	var	110
	var	22
	var	76
	pnull
	int	28
	var	124
	str	38
	pnull
	var	32
	line	860
	colm	65
	synt	any
	field	par_id
	line	860
	colm	53
	synt	any
	invoke	2
	var	5
	line	859
	colm	45
	synt	any
	llist	3
	line	859
	colm	44
	synt	any
	invoke	1
	line	858
	colm	37
	synt	any
	invoke	2
	unmark
lab L507
	pnull
	var	27
	dup
	int	0
	line	863
	colm	31
	synt	any
	plus
	asgn
lab L483
	unmark
	goto	L482
lab L484
	line	799
	colm	25
	synt	endwhile
	unmark
lab L481
	pnull
	var	28
	pnull
	var	28
	line	865
	colm	37
	synt	any
	field	cn_tl_field
	line	865
	colm	30
	synt	any
	asgn
	unmark
lab L455
	mark	L508
	var	60
	var	7
	var	76
	pnull
	int	9
	var	69
	var	22
	var	69
	var	69
	var	69
	line	868
	colm	35
	synt	any
	llist	6
	line	868
	colm	34
	synt	any
	invoke	1
	line	868
	colm	24
	synt	any
	invoke	2
	unmark
lab L508
	mark	L509
	pnull
	pnull
	pnull
	var	7
	line	869
	colm	19
	synt	any
	field	signature
	line	869
	colm	31
	synt	any
	field	pre_num
	var	116
	line	869
	colm	41
	synt	any
	asgn
	unmark
lab L509
	mark	L510
	pnull
	var	116
	dup
	int	0
	line	870
	colm	26
	synt	any
	plus
	asgn
	unmark
lab L510
	mark	L511
	var	119
	pnull
	var	7
	line	872
	colm	30
	synt	any
	field	signature
	line	872
	colm	27
	synt	any
	invoke	1
	unmark
lab L511
	mark	L512
	pnull
	pnull
	var	23
	line	876
	colm	26
	synt	any
	field	id_def_found
	int	0
	line	876
	colm	41
	synt	any
	asgn
	unmark
lab L512
	mark	L513
	pnull
	pnull
	var	23
	line	877
	colm	26
	synt	any
	field	id_last_definition
	pnull
	var	7
	line	877
	colm	52
	synt	any
	field	signature
	line	877
	colm	47
	synt	any
	asgn
	unmark
lab L513
	mark	L514
	pnull
	pnull
	var	7
	line	878
	colm	19
	synt	any
	field	signature
	var	120
	pnull
	var	7
	line	878
	colm	43
	synt	any
	field	signature
	var	7
	var	23
	int	3
	line	878
	colm	40
	synt	any
	invoke	4
	line	878
	colm	31
	synt	any
	asgn
	unmark
lab L514
	mark	L515
	pnull
	pnull
	var	23
	line	883
	colm	26
	synt	any
	field	id_last_definition
	pnull
	var	7
	line	883
	colm	52
	synt	any
	field	signature
	line	883
	colm	47
	synt	any
	asgn
	unmark
lab L515
	mark	L516
	pnull
	pnull
	var	7
	line	884
	colm	19
	synt	any
	field	sig_done
	int	2
	line	884
	colm	30
	synt	any
	asgn
	unmark
lab L516
	mark	L517
	pnull
	var	28
	pnull
	var	34
	line	886
	colm	35
	synt	any
	field	lh_first
	line	886
	colm	22
	synt	any
	asgn
	unmark
lab L517
	mark	L518
lab L519
	line	887
	colm	17
	synt	while
	mark0
	pnull
	var	28
	line	887
	colm	23
	synt	any
	nonnull
	unmark
	mark	L519
	mark	L522
	pnull
	var	32
	pnull
	var	28
	line	888
	colm	30
	synt	any
	field	cn_hd_field
	line	888
	colm	23
	synt	any
	asgn
	unmark
lab L522
	mark	L523
	line	890
	colm	21
	synt	case
	mark0
	pnull
	pnull
	var	32
	line	890
	colm	29
	synt	any
	field	par_signature
	line	890
	colm	45
	synt	any
	field	kind
	eret
	mark	L525
	ccase
	int	8
	line	891
	colm	26
	synt	any
	eqv
	unmark
	pop
	pnull
	var	25
	int	3
	line	892
	colm	41
	synt	any
	asgn
	goto	L524
lab L525
	mark	L526
	ccase
	int	9
	line	893
	colm	26
	synt	any
	eqv
	unmark
	pop
	pnull
	var	25
	int	3
	line	894
	colm	41
	synt	any
	asgn
	goto	L524
lab L526
	mark	L527
	ccase
	int	6
	line	895
	colm	26
	synt	any
	eqv
	unmark
	pop
	line	897
	colm	33
	synt	ifelse
	mark	L528
	pnull
	var	62
	pnull
	pnull
	var	32
	line	897
	colm	46
	synt	any
	field	par_signature
	line	897
	colm	62
	synt	any
	field	val_denotation
	int	3
	line	897
	colm	43
	synt	any
	invoke	2
	int	3
	line	897
	colm	84
	synt	any
	numne
	unmark
	pnull
	var	25
	int	3
	line	898
	colm	49
	synt	any
	asgn
	goto	L529
lab L528
	mark	L530
	pnull
	var	19
	pnull
	pnull
	pnull
	var	32
	line	900
	colm	50
	synt	any
	field	par_signature
	line	900
	colm	66
	synt	any
	field	val_denotation
	line	900
	colm	82
	synt	any
	field	signature
	line	900
	colm	45
	synt	any
	asgn
	unmark
lab L530
	line	901
	colm	37
	synt	if
	mark0
	pnull
	var	19
	int	2
	line	901
	colm	49
	synt	any
	numne
	pop
	pnull
	pnull
	var	19
	line	902
	colm	49
	synt	any
	field	kind
	int	9
	line	902
	colm	56
	synt	any
	numeq
	unmark
	line	903
	colm	45
	synt	ifelse
	mark	L531
	pnull
	var	25
	int	3
	line	903
	colm	61
	synt	any
	numne
	pop
	pnull
	pnull
	var	19
	line	904
	colm	57
	synt	any
	field	ts_simple_type
	int	3
	line	904
	colm	74
	synt	any
	numne
	unmark
	pnull
	var	25
	int	0
	line	905
	colm	61
	synt	any
	asgn
	goto	L532
lab L531
	pnull
	var	25
	var	126
	line	907
	colm	61
	synt	any
	asgn
lab L532
	line	903
	colm	45
	synt	endifelse
	line	901
	colm	37
	synt	endif
lab L529
	line	897
	colm	33
	synt	endifelse
	goto	L524
lab L527
	efail
lab L524
	line	890
	colm	21
	synt	endcase
	unmark
lab L523
	pnull
	var	28
	pnull
	var	28
	line	913
	colm	33
	synt	any
	field	cn_tl_field
	line	913
	colm	26
	synt	any
	asgn
lab L520
	unmark
	goto	L519
lab L521
	line	887
	colm	17
	synt	endwhile
	unmark
lab L518
	mark	L533
	pnull
	pnull
	pnull
	var	7
	line	915
	colm	19
	synt	any
	field	signature
	line	915
	colm	31
	synt	any
	field	ts_simple_type
	var	25
	line	915
	colm	48
	synt	any
	asgn
	unmark
lab L533
	mark	L534
	var	73
	var	22
	line	916
	colm	22
	synt	any
	invoke	1
	unmark
lab L534
	mark	L535
	int	3
	line	917
	colm	17
	synt	any
	pret
lab L535
	synt	any
	pfail
	goto	L13
lab L454
	mark	L536
	ccase
	int	39
	line	920
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L537
	pnull
	var	35
	pnull
	var	7
	line	922
	colm	30
	synt	any
	field	enum_id_list
	line	922
	colm	25
	synt	any
	asgn
	unmark
lab L537
	mark	L538
	pnull
	var	22
	var	81
	var	100
	line	923
	colm	44
	synt	any
	invoke	0
	line	923
	colm	34
	synt	any
	invoke	1
	line	923
	colm	27
	synt	any
	asgn
	unmark
lab L538
	mark	L539
	pnull
	var	23
	var	76
	pnull
	int	5
	pnull
	int	0
	line	924
	colm	41
	synt	any
	neg
	line	924
	colm	36
	synt	any
	llist	2
	line	924
	colm	35
	synt	any
	invoke	1
	line	924
	colm	26
	synt	any
	asgn
	unmark
lab L539
	mark	L540
	pnull
	var	24
	var	76
	pnull
	int	6
	var	23
	line	925
	colm	34
	synt	any
	llist	2
	line	925
	colm	33
	synt	any
	invoke	1
	line	925
	colm	25
	synt	any
	numeq
	unmark
lab L540
	mark	L541
	pnull
	var	36
	var	76
	pnull
	int	2
	var	69
	var	24
	line	926
	colm	38
	synt	any
	llist	3
	line	926
	colm	37
	synt	any
	invoke	1
	line	926
	colm	28
	synt	any
	asgn
	unmark
lab L541
	mark	L542
	pnull
	var	37
	var	125
	pnull
	var	36
	line	927
	colm	38
	synt	any
	llist	1
	line	927
	colm	37
	synt	any
	invoke	1
	line	927
	colm	28
	synt	any
	asgn
	unmark
lab L542
	mark	L543
	pnull
	var	38
	var	76
	pnull
	int	2
	var	69
	var	127
	line	928
	colm	37
	synt	any
	llist	3
	line	928
	colm	36
	synt	any
	invoke	1
	line	928
	colm	27
	synt	any
	asgn
	unmark
lab L543
	mark	L544
	pnull
	var	39
	var	125
	pnull
	var	38
	line	929
	colm	37
	synt	any
	llist	1
	line	929
	colm	36
	synt	any
	invoke	1
	line	929
	colm	27
	synt	any
	asgn
	unmark
lab L544
	mark	L545
	pnull
	var	26
	var	103
	var	35
	line	930
	colm	30
	synt	any
	invoke	1
	line	930
	colm	21
	synt	any
	asgn
	unmark
lab L545
	mark	L546
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	106
	line	933
	colm	38
	synt	any
	invoke	1
	var	102
	var	107
	line	934
	colm	38
	synt	any
	invoke	1
	line	932
	colm	29
	synt	any
	llist	3
	line	932
	colm	28
	synt	any
	invoke	1
	line	932
	colm	19
	synt	any
	asgn
	unmark
lab L546
	mark	L547
	pnull
	pnull
	pnull
	var	5
	line	935
	colm	19
	synt	any
	field	tsc_signature
	line	935
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	32
	var	26
	line	935
	colm	64
	synt	any
	invoke	2
	line	935
	colm	50
	synt	any
	asgn
	unmark
lab L547
	mark	L548
	var	109
	var	5
	line	936
	colm	28
	synt	any
	invoke	1
	unmark
lab L548
	mark	L549
	var	110
	var	22
	var	5
	line	937
	colm	25
	synt	any
	invoke	2
	unmark
lab L549
	mark	L550
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	111
	line	939
	colm	38
	synt	any
	invoke	1
	var	102
	var	112
	line	940
	colm	38
	synt	any
	invoke	1
	line	938
	colm	29
	synt	any
	llist	3
	line	938
	colm	28
	synt	any
	invoke	1
	line	938
	colm	19
	synt	any
	asgn
	unmark
lab L550
	mark	L551
	pnull
	pnull
	pnull
	var	5
	line	941
	colm	19
	synt	any
	field	tsc_signature
	line	941
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	13
	var	26
	line	941
	colm	64
	synt	any
	invoke	2
	line	941
	colm	50
	synt	any
	asgn
	unmark
lab L551
	mark	L552
	var	109
	var	5
	line	942
	colm	28
	synt	any
	invoke	1
	unmark
lab L552
	mark	L553
	var	110
	var	22
	var	5
	line	943
	colm	25
	synt	any
	invoke	2
	unmark
lab L553
	mark	L554
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	113
	line	945
	colm	38
	synt	any
	invoke	1
	var	102
	var	114
	line	946
	colm	38
	synt	any
	invoke	1
	line	944
	colm	29
	synt	any
	llist	3
	line	944
	colm	28
	synt	any
	invoke	1
	line	944
	colm	19
	synt	any
	asgn
	unmark
lab L554
	mark	L555
	pnull
	pnull
	pnull
	var	5
	line	947
	colm	19
	synt	any
	field	tsc_signature
	line	947
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	40
	var	26
	line	947
	colm	64
	synt	any
	invoke	2
	line	947
	colm	50
	synt	any
	asgn
	unmark
lab L555
	mark	L556
	var	109
	var	5
	line	948
	colm	28
	synt	any
	invoke	1
	unmark
lab L556
	mark	L557
	var	110
	var	22
	var	5
	line	949
	colm	25
	synt	any
	invoke	2
	unmark
lab L557
	mark	L558
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	128
	line	951
	colm	38
	synt	any
	invoke	1
	var	102
	var	129
	line	952
	colm	38
	synt	any
	invoke	1
	line	950
	colm	29
	synt	any
	llist	3
	line	950
	colm	28
	synt	any
	invoke	1
	line	950
	colm	19
	synt	any
	asgn
	unmark
lab L558
	mark	L559
	pnull
	pnull
	pnull
	var	5
	line	953
	colm	19
	synt	any
	field	tsc_signature
	line	953
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	41
	var	26
	line	953
	colm	64
	synt	any
	invoke	2
	line	953
	colm	50
	synt	any
	asgn
	unmark
lab L559
	mark	L560
	var	109
	var	5
	line	954
	colm	28
	synt	any
	invoke	1
	unmark
lab L560
	mark	L561
	var	110
	var	22
	var	5
	line	955
	colm	25
	synt	any
	invoke	2
	unmark
lab L561
	mark	L562
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	130
	line	957
	colm	38
	synt	any
	invoke	1
	var	102
	var	129
	line	958
	colm	38
	synt	any
	invoke	1
	line	956
	colm	29
	synt	any
	llist	3
	line	956
	colm	28
	synt	any
	invoke	1
	line	956
	colm	19
	synt	any
	asgn
	unmark
lab L562
	mark	L563
	pnull
	pnull
	pnull
	var	5
	line	959
	colm	19
	synt	any
	field	tsc_signature
	line	959
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	42
	var	26
	line	959
	colm	60
	synt	any
	invoke	2
	line	959
	colm	50
	synt	any
	asgn
	unmark
lab L563
	mark	L564
	var	109
	var	5
	line	960
	colm	28
	synt	any
	invoke	1
	unmark
lab L564
	mark	L565
	var	110
	var	22
	var	5
	line	961
	colm	25
	synt	any
	invoke	2
	unmark
lab L565
	mark	L566
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	131
	line	963
	colm	38
	synt	any
	invoke	1
	var	102
	var	132
	line	964
	colm	38
	synt	any
	invoke	1
	line	962
	colm	29
	synt	any
	llist	3
	line	962
	colm	28
	synt	any
	invoke	1
	line	962
	colm	19
	synt	any
	asgn
	unmark
lab L566
	mark	L567
	pnull
	pnull
	pnull
	var	5
	line	965
	colm	19
	synt	any
	field	tsc_signature
	line	965
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	43
	int	3
	line	965
	colm	60
	synt	any
	invoke	2
	line	965
	colm	50
	synt	any
	asgn
	unmark
lab L567
	mark	L568
	var	109
	var	5
	line	966
	colm	28
	synt	any
	invoke	1
	unmark
lab L568
	mark	L569
	var	110
	var	22
	var	5
	line	967
	colm	25
	synt	any
	invoke	2
	unmark
lab L569
	mark	L570
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	133
	line	969
	colm	38
	synt	any
	invoke	1
	var	102
	var	132
	line	970
	colm	38
	synt	any
	invoke	1
	line	968
	colm	29
	synt	any
	llist	3
	line	968
	colm	28
	synt	any
	invoke	1
	line	968
	colm	19
	synt	any
	asgn
	unmark
lab L570
	mark	L571
	pnull
	pnull
	pnull
	var	5
	line	971
	colm	19
	synt	any
	field	tsc_signature
	line	971
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	43
	pnull
	var	26
	int	0
	line	971
	colm	68
	synt	any
	minus
	line	971
	colm	60
	synt	any
	invoke	2
	line	971
	colm	50
	synt	any
	asgn
	unmark
lab L571
	mark	L572
	var	109
	var	5
	line	972
	colm	28
	synt	any
	invoke	1
	unmark
lab L572
	mark	L573
	var	110
	var	22
	var	5
	line	973
	colm	25
	synt	any
	invoke	2
	unmark
lab L573
	mark	L574
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	134
	line	975
	colm	38
	synt	any
	invoke	1
	var	76
	pnull
	int	8
	var	69
	var	37
	var	121
	line	976
	colm	37
	synt	any
	llist	4
	line	976
	colm	36
	synt	any
	invoke	1
	line	974
	colm	29
	synt	any
	llist	3
	line	974
	colm	28
	synt	any
	invoke	1
	line	974
	colm	19
	synt	any
	asgn
	unmark
lab L574
	mark	L575
	pnull
	pnull
	pnull
	var	5
	line	978
	colm	19
	synt	any
	field	tsc_signature
	line	978
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	19
	var	26
	line	978
	colm	60
	synt	any
	invoke	2
	line	978
	colm	50
	synt	any
	asgn
	unmark
lab L575
	mark	L576
	var	109
	var	5
	line	979
	colm	28
	synt	any
	invoke	1
	unmark
lab L576
	mark	L577
	var	110
	var	22
	var	5
	line	980
	colm	25
	synt	any
	invoke	2
	unmark
lab L577
	mark	L578
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	135
	line	982
	colm	38
	synt	any
	invoke	1
	var	76
	pnull
	int	8
	var	69
	var	37
	var	121
	line	983
	colm	37
	synt	any
	llist	4
	line	983
	colm	36
	synt	any
	invoke	1
	line	981
	colm	29
	synt	any
	llist	3
	line	981
	colm	28
	synt	any
	invoke	1
	line	981
	colm	19
	synt	any
	asgn
	unmark
lab L578
	mark	L579
	pnull
	pnull
	pnull
	var	5
	line	985
	colm	19
	synt	any
	field	tsc_signature
	line	985
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	21
	var	26
	line	985
	colm	60
	synt	any
	invoke	2
	line	985
	colm	50
	synt	any
	asgn
	unmark
lab L579
	mark	L580
	var	109
	var	5
	line	986
	colm	28
	synt	any
	invoke	1
	unmark
lab L580
	mark	L581
	var	110
	var	22
	var	5
	line	987
	colm	25
	synt	any
	invoke	2
	unmark
lab L581
	mark	L582
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	136
	line	989
	colm	38
	synt	any
	invoke	1
	var	76
	pnull
	int	8
	var	69
	var	37
	var	127
	line	990
	colm	37
	synt	any
	llist	4
	line	990
	colm	36
	synt	any
	invoke	1
	line	988
	colm	29
	synt	any
	llist	3
	line	988
	colm	28
	synt	any
	invoke	1
	line	988
	colm	19
	synt	any
	asgn
	unmark
lab L582
	mark	L583
	pnull
	pnull
	pnull
	var	5
	line	992
	colm	19
	synt	any
	field	tsc_signature
	line	992
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	23
	var	26
	line	992
	colm	60
	synt	any
	invoke	2
	line	992
	colm	50
	synt	any
	asgn
	unmark
lab L583
	mark	L584
	var	109
	var	5
	line	993
	colm	28
	synt	any
	invoke	1
	unmark
lab L584
	mark	L585
	var	110
	var	22
	var	5
	line	994
	colm	25
	synt	any
	invoke	2
	unmark
lab L585
	mark	L586
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	137
	line	996
	colm	38
	synt	any
	invoke	1
	var	76
	pnull
	int	8
	var	69
	var	39
	var	121
	line	997
	colm	37
	synt	any
	llist	4
	line	997
	colm	36
	synt	any
	invoke	1
	line	995
	colm	29
	synt	any
	llist	3
	line	995
	colm	28
	synt	any
	invoke	1
	line	995
	colm	19
	synt	any
	asgn
	unmark
lab L586
	mark	L587
	pnull
	pnull
	pnull
	var	5
	line	999
	colm	19
	synt	any
	field	tsc_signature
	line	999
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	23
	var	26
	line	999
	colm	60
	synt	any
	invoke	2
	line	999
	colm	50
	synt	any
	asgn
	unmark
lab L587
	mark	L588
	var	109
	var	5
	line	1000
	colm	28
	synt	any
	invoke	1
	unmark
lab L588
	mark	L589
	var	110
	var	22
	var	5
	line	1001
	colm	25
	synt	any
	invoke	2
	unmark
lab L589
	mark	L590
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	138
	line	1003
	colm	38
	synt	any
	invoke	1
	var	76
	pnull
	int	8
	var	69
	var	100
	line	1005
	colm	52
	synt	any
	invoke	0
	var	127
	line	1004
	colm	37
	synt	any
	llist	4
	line	1004
	colm	36
	synt	any
	invoke	1
	line	1002
	colm	29
	synt	any
	llist	3
	line	1002
	colm	28
	synt	any
	invoke	1
	line	1002
	colm	19
	synt	any
	asgn
	unmark
lab L590
	mark	L591
	pnull
	pnull
	pnull
	var	5
	line	1006
	colm	19
	synt	any
	field	tsc_signature
	line	1006
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	44
	var	26
	line	1006
	colm	60
	synt	any
	invoke	2
	line	1006
	colm	50
	synt	any
	asgn
	unmark
lab L591
	mark	L592
	var	109
	var	5
	line	1007
	colm	28
	synt	any
	invoke	1
	unmark
lab L592
	mark	L593
	var	110
	var	22
	var	5
	line	1008
	colm	25
	synt	any
	invoke	2
	unmark
lab L593
	mark	L594
	mark	L595
	pnull
	var	27
	int	3
	line	1012
	colm	23
	synt	any
	asgn
	unmark
lab L595
	mark	L596
	pnull
	var	28
	pnull
	var	35
	line	1013
	colm	36
	synt	any
	field	lh_first
	line	1013
	colm	26
	synt	any
	asgn
	unmark
lab L596
lab L597
	line	1014
	colm	21
	synt	while
	mark0
	pnull
	var	28
	line	1014
	colm	27
	synt	any
	nonnull
	unmark
	mark	L597
	mark	L600
	pnull
	var	32
	pnull
	var	28
	line	1015
	colm	34
	synt	any
	field	cn_hd_field
	line	1015
	colm	27
	synt	any
	asgn
	unmark
lab L600
	mark	L601
	pnull
	var	5
	var	102
	var	132
	line	1016
	colm	38
	synt	any
	invoke	1
	line	1016
	colm	27
	synt	any
	asgn
	unmark
lab L601
	mark	L602
	pnull
	pnull
	var	5
	line	1017
	colm	27
	synt	any
	field	fsig_special
	var	108
	int	43
	var	27
	line	1017
	colm	52
	synt	any
	invoke	2
	line	1017
	colm	42
	synt	any
	asgn
	unmark
lab L602
	mark	L603
	pnull
	pnull
	var	5
	line	1018
	colm	27
	synt	any
	field	fsig_inline_code
	var	123
	pnull
	var	5
	line	1019
	colm	48
	synt	any
	field	fsig_special
	line	1019
	colm	45
	synt	any
	invoke	1
	line	1018
	colm	46
	synt	any
	asgn
	unmark
lab L603
	mark	L604
	var	110
	var	22
	var	76
	pnull
	int	28
	var	32
	var	5
	line	1020
	colm	52
	synt	any
	llist	3
	line	1020
	colm	51
	synt	any
	invoke	1
	line	1020
	colm	33
	synt	any
	invoke	2
	unmark
lab L604
	mark	L605
	pnull
	var	27
	dup
	int	0
	line	1021
	colm	27
	synt	any
	plus
	asgn
	unmark
lab L605
	pnull
	var	28
	pnull
	var	28
	line	1022
	colm	37
	synt	any
	field	cn_tl_field
	line	1022
	colm	30
	synt	any
	asgn
lab L598
	unmark
	goto	L597
lab L599
	line	1014
	colm	21
	synt	endwhile
	unmark
lab L594
	mark	L606
	var	60
	var	7
	var	76
	pnull
	int	9
	var	69
	var	22
	var	69
	var	69
	var	69
	line	1025
	colm	35
	synt	any
	llist	6
	line	1025
	colm	34
	synt	any
	invoke	1
	line	1025
	colm	24
	synt	any
	invoke	2
	unmark
lab L606
	mark	L607
	var	82
	var	22
	line	1028
	colm	23
	synt	any
	invoke	1
	unmark
lab L607
	mark	L608
	pnull
	pnull
	pnull
	var	7
	line	1029
	colm	19
	synt	any
	field	signature
	line	1029
	colm	31
	synt	any
	field	pre_num
	var	116
	line	1029
	colm	41
	synt	any
	asgn
	unmark
lab L608
	mark	L609
	pnull
	var	116
	dup
	int	0
	line	1030
	colm	26
	synt	any
	plus
	asgn
	unmark
lab L609
	mark	L610
	pnull
	pnull
	var	7
	line	1031
	colm	19
	synt	any
	field	sig_done
	int	2
	line	1031
	colm	30
	synt	any
	asgn
	unmark
lab L610
	mark	L611
	var	119
	pnull
	var	7
	line	1033
	colm	30
	synt	any
	field	signature
	line	1033
	colm	27
	synt	any
	invoke	1
	unmark
lab L611
	mark	L612
	pnull
	pnull
	pnull
	var	7
	line	1034
	colm	19
	synt	any
	field	signature
	line	1034
	colm	31
	synt	any
	field	ts_simple_type
	int	0
	line	1034
	colm	48
	synt	any
	asgn
	unmark
lab L612
	mark	L613
	int	3
	line	1035
	colm	17
	synt	any
	pret
lab L613
	synt	any
	pfail
	goto	L13
lab L536
	mark	L614
	ccase
	int	45
	line	1037
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L615
	line	1039
	colm	17
	synt	if
	mark0
	pnull
	pnull
	var	4
	var	62
	pnull
	var	7
	line	1039
	colm	37
	synt	any
	field	ext_denotation
	int	3
	line	1039
	colm	34
	synt	any
	invoke	2
	line	1039
	colm	24
	synt	any
	asgn
	int	3
	line	1039
	colm	59
	synt	any
	numne
	unmark
	mark	L616
	pnull
	pnull
	var	7
	line	1040
	colm	23
	synt	any
	field	sig_done
	int	3
	line	1040
	colm	34
	synt	any
	asgn
	unmark
lab L616
	mark	L617
	var	4
	line	1041
	colm	21
	synt	any
	pret
lab L617
	synt	any
	pfail
	line	1039
	colm	17
	synt	endif
	unmark
lab L615
	mark	L618
	line	1043
	colm	17
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	7
	line	1043
	colm	23
	synt	any
	field	ext_denotation
	line	1043
	colm	40
	synt	any
	field	signature
	int	2
	line	1043
	colm	52
	synt	any
	numeq
	unmark
	mark	L619
	pnull
	pnull
	var	7
	line	1044
	colm	23
	synt	any
	field	signature
	int	2
	line	1044
	colm	35
	synt	any
	asgn
	unmark
lab L619
	mark	L620
	pnull
	pnull
	var	7
	line	1045
	colm	23
	synt	any
	field	sig_done
	int	2
	line	1045
	colm	34
	synt	any
	asgn
	unmark
lab L620
	mark	L621
	int	3
	line	1046
	colm	21
	synt	any
	pret
lab L621
	synt	any
	pfail
	line	1043
	colm	17
	synt	endif
	unmark
lab L618
	mark	L622
	pnull
	var	42
	var	81
	var	102
	pnull
	pnull
	var	7
	line	1049
	colm	40
	synt	any
	field	ext_denotation
	line	1049
	colm	57
	synt	any
	field	signature
	line	1049
	colm	37
	synt	any
	invoke	1
	line	1049
	colm	28
	synt	any
	invoke	1
	line	1049
	colm	21
	synt	any
	asgn
	unmark
lab L622
	mark	L623
	line	1050
	colm	17
	synt	if
	mark0
	pnull
	pnull
	var	42
	line	1050
	colm	25
	synt	any
	field	kind
	int	9
	line	1050
	colm	32
	synt	any
	numne
	unmark
	mark	L624
	var	58
	str	46
	line	1051
	colm	28
	synt	any
	invoke	1
	unmark
lab L624
	mark	L625
	pnull
	pnull
	var	7
	line	1052
	colm	23
	synt	any
	field	signature
	int	2
	line	1052
	colm	35
	synt	any
	asgn
	unmark
lab L625
	mark	L626
	pnull
	pnull
	var	7
	line	1053
	colm	23
	synt	any
	field	sig_done
	int	2
	line	1053
	colm	34
	synt	any
	asgn
	unmark
lab L626
	mark	L627
	int	3
	line	1054
	colm	21
	synt	any
	pret
lab L627
	synt	any
	pfail
	line	1050
	colm	17
	synt	endif
	unmark
lab L623
	mark	L628
	line	1056
	colm	17
	synt	ifelse
	mark	L629
	pnull
	pnull
	var	42
	line	1056
	colm	27
	synt	any
	field	ts_local_type_id
	line	1056
	colm	20
	synt	any
	nonnull
	unmark
	pnull
	var	23
	var	81
	var	102
	pnull
	var	42
	line	1057
	colm	51
	synt	any
	field	ts_local_type_id
	line	1057
	colm	46
	synt	any
	invoke	1
	line	1057
	colm	37
	synt	any
	invoke	1
	line	1057
	colm	30
	synt	any
	asgn
	goto	L630
lab L629
	pnull
	var	23
	var	76
	pnull
	int	5
	var	101
	line	1059
	colm	40
	synt	any
	llist	2
	line	1059
	colm	39
	synt	any
	invoke	1
	line	1059
	colm	30
	synt	any
	asgn
lab L630
	line	1056
	colm	17
	synt	endifelse
	unmark
lab L628
	mark	L631
	pnull
	pnull
	var	42
	line	1061
	colm	21
	synt	any
	field	pre_num
	var	116
	line	1061
	colm	31
	synt	any
	asgn
	unmark
lab L631
	mark	L632
	pnull
	var	116
	dup
	int	0
	line	1062
	colm	26
	synt	any
	plus
	asgn
	unmark
lab L632
	mark	L633
	pnull
	pnull
	var	42
	line	1066
	colm	21
	synt	any
	field	ts_clist
	var	139
	pnull
	var	42
	line	1066
	colm	48
	synt	any
	field	ts_clist
	line	1066
	colm	43
	synt	any
	invoke	1
	line	1066
	colm	32
	synt	any
	asgn
	unmark
lab L633
	mark	L634
	mark	L635
	pnull
	var	47
	var	42
	line	1069
	colm	26
	synt	any
	asgn
	unmark
lab L635
	mark	L636
	pnull
	pnull
	var	23
	line	1071
	colm	30
	synt	any
	field	id_last_definition
	var	42
	line	1071
	colm	51
	synt	any
	asgn
	unmark
lab L636
	mark	L637
	pnull
	pnull
	var	23
	line	1072
	colm	30
	synt	any
	field	id_def_found
	int	0
	line	1072
	colm	45
	synt	any
	asgn
	unmark
lab L637
	mark	L638
	pnull
	var	42
	var	81
	var	120
	var	42
	pnull
	pnull
	var	7
	line	1074
	colm	42
	synt	any
	field	ext_denotation
	line	1074
	colm	59
	synt	any
	field	signature
	var	23
	int	0
	line	1073
	colm	39
	synt	any
	invoke	4
	line	1073
	colm	32
	synt	any
	invoke	1
	line	1073
	colm	25
	synt	any
	asgn
	unmark
lab L638
	mark	L639
	pnull
	pnull
	var	23
	line	1077
	colm	30
	synt	any
	field	id_last_definition
	var	42
	line	1077
	colm	51
	synt	any
	asgn
	unmark
lab L639
	var	73
	var	82
	var	47
	line	1078
	colm	33
	synt	any
	invoke	1
	line	1078
	colm	26
	synt	any
	invoke	1
	unmark
lab L634
	mark	L640
	pnull
	var	45
	var	76
	pnull
	int	5
	var	140
	line	1081
	colm	32
	synt	any
	llist	2
	line	1081
	colm	31
	synt	any
	invoke	1
	line	1081
	colm	23
	synt	any
	numeq
	unmark
lab L640
	mark	L641
	pnull
	var	46
	var	76
	pnull
	int	5
	var	141
	line	1082
	colm	33
	synt	any
	llist	2
	line	1082
	colm	32
	synt	any
	invoke	1
	line	1082
	colm	24
	synt	any
	numeq
	unmark
lab L641
	mark	L642
	line	1085
	colm	17
	synt	if
	mark0
	pnull
	var	96
	pnull
	var	7
	line	1085
	colm	38
	synt	any
	field	ext_denotation
	line	1085
	colm	35
	synt	any
	invoke	1
	line	1085
	colm	20
	synt	any
	nonnull
	unmark
	mark	L643
	pnull
	pnull
	var	7
	line	1086
	colm	23
	synt	any
	field	sig_done
	int	3
	line	1086
	colm	34
	synt	any
	asgn
	unmark
lab L643
	mark	L644
	var	96
	pnull
	var	7
	line	1087
	colm	43
	synt	any
	field	ext_denotation
	line	1087
	colm	40
	synt	any
	invoke	1
	line	1087
	colm	21
	synt	any
	pret
lab L644
	synt	any
	pfail
	line	1085
	colm	17
	synt	endif
	unmark
lab L642
	mark	L645
	pnull
	var	43
	var	76
	pnull
	int	6
	pnull
	var	7
	line	1089
	colm	42
	synt	any
	field	ext_denotation
	line	1089
	colm	36
	synt	any
	llist	2
	line	1089
	colm	35
	synt	any
	invoke	1
	line	1089
	colm	26
	synt	any
	asgn
	unmark
lab L645
	mark	L646
	pnull
	var	44
	var	76
	pnull
	int	6
	var	76
	pnull
	int	5
	pnull
	int	0
	line	1090
	colm	51
	synt	any
	neg
	line	1090
	colm	46
	synt	any
	llist	2
	line	1090
	colm	45
	synt	any
	invoke	1
	line	1090
	colm	35
	synt	any
	llist	2
	line	1090
	colm	34
	synt	any
	invoke	1
	line	1090
	colm	25
	synt	any
	asgn
	unmark
lab L646
	mark	L647
	pnull
	var	20
	var	125
	pnull
	var	76
	pnull
	int	2
	var	69
	var	43
	line	1091
	colm	44
	synt	any
	llist	3
	line	1091
	colm	43
	synt	any
	invoke	1
	line	1091
	colm	36
	synt	any
	llist	1
	line	1091
	colm	35
	synt	any
	invoke	1
	line	1091
	colm	26
	synt	any
	asgn
	unmark
lab L647
	mark	L648
	pnull
	var	40
	var	76
	pnull
	int	8
	var	69
	var	20
	var	44
	line	1092
	colm	34
	synt	any
	llist	4
	line	1092
	colm	33
	synt	any
	invoke	1
	line	1092
	colm	24
	synt	any
	asgn
	unmark
lab L648
	mark	L649
	pnull
	var	20
	var	125
	pnull
	var	76
	pnull
	int	2
	var	69
	var	44
	line	1096
	colm	44
	synt	any
	llist	3
	line	1096
	colm	43
	synt	any
	invoke	1
	line	1096
	colm	36
	synt	any
	llist	1
	line	1096
	colm	35
	synt	any
	invoke	1
	line	1096
	colm	26
	synt	any
	asgn
	unmark
lab L649
	mark	L650
	pnull
	var	41
	var	76
	pnull
	int	8
	var	69
	var	20
	var	43
	line	1097
	colm	35
	synt	any
	llist	4
	line	1097
	colm	34
	synt	any
	invoke	1
	line	1097
	colm	25
	synt	any
	asgn
	unmark
lab L650
	mark	L651
	pnull
	pnull
	var	40
	line	1101
	colm	24
	synt	any
	field	fsig_special
	var	108
	int	23
	int	3
	line	1101
	colm	49
	synt	any
	invoke	2
	line	1101
	colm	39
	synt	any
	asgn
	unmark
lab L651
	mark	L652
	pnull
	pnull
	var	40
	line	1102
	colm	24
	synt	any
	field	fsig_inline_code
	var	123
	pnull
	var	40
	line	1102
	colm	70
	synt	any
	field	fsig_special
	line	1102
	colm	62
	synt	any
	invoke	1
	line	1102
	colm	43
	synt	any
	asgn
	unmark
lab L652
	mark	L653
	pnull
	pnull
	var	41
	line	1103
	colm	25
	synt	any
	field	fsig_special
	var	108
	int	23
	int	3
	line	1103
	colm	50
	synt	any
	invoke	2
	line	1103
	colm	40
	synt	any
	asgn
	unmark
lab L653
	mark	L654
	pnull
	pnull
	var	41
	line	1104
	colm	25
	synt	any
	field	fsig_inline_code
	var	123
	pnull
	var	41
	line	1104
	colm	72
	synt	any
	field	fsig_special
	line	1104
	colm	63
	synt	any
	invoke	1
	line	1104
	colm	44
	synt	any
	asgn
	unmark
lab L654
	mark	L655
	line	1108
	colm	17
	synt	if
	mark0
	pnull
	var	142
	var	42
	var	45
	var	69
	var	40
	var	42
	var	69
	int	0
	line	1108
	colm	30
	synt	any
	invoke	7
	line	1108
	colm	20
	synt	any
	nonnull
	unmark
	mark	L656
	var	94
	str	47
	var	7
	line	1110
	colm	37
	synt	any
	invoke	2
	unmark
lab L656
	pnull
	line	1108
	colm	17
	synt	endif
	unmark
lab L655
	mark	L657
	line	1112
	colm	17
	synt	if
	mark0
	pnull
	var	142
	var	42
	var	46
	var	69
	var	41
	var	42
	var	69
	int	0
	line	1112
	colm	30
	synt	any
	invoke	7
	line	1112
	colm	20
	synt	any
	nonnull
	unmark
	var	94
	str	48
	var	7
	line	1114
	colm	37
	synt	any
	invoke	2
	line	1112
	colm	17
	synt	endif
	unmark
lab L657
	mark	L658
	var	143
	var	42
	var	45
	var	40
	var	69
	line	1117
	colm	24
	synt	any
	invoke	4
	unmark
lab L658
	mark	L659
	pnull
	pnull
	var	7
	line	1118
	colm	19
	synt	any
	field	In_index
	var	144
	line	1118
	colm	30
	synt	any
	asgn
	unmark
lab L659
	mark	L660
	var	143
	var	42
	var	46
	var	41
	var	69
	line	1119
	colm	24
	synt	any
	invoke	4
	unmark
lab L660
	mark	L661
	pnull
	pnull
	var	7
	line	1120
	colm	19
	synt	any
	field	Out_index
	var	144
	line	1120
	colm	31
	synt	any
	asgn
	unmark
lab L661
	mark	L662
	var	60
	var	7
	var	42
	line	1121
	colm	24
	synt	any
	invoke	2
	unmark
lab L662
	mark	L663
	pnull
	pnull
	var	7
	line	1122
	colm	19
	synt	any
	field	sig_done
	int	2
	line	1122
	colm	30
	synt	any
	asgn
	unmark
lab L663
	mark	L664
	int	3
	line	1125
	colm	17
	synt	any
	pret
lab L664
	synt	any
	pfail
	goto	L13
lab L614
	mark	L665
	ccase
	int	49
	line	1128
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L666
	pnull
	var	34
	pnull
	var	7
	line	1130
	colm	33
	synt	any
	field	enum_id_list
	line	1130
	colm	28
	synt	any
	asgn
	unmark
lab L666
	mark	L667
	pnull
	var	22
	var	81
	var	100
	line	1131
	colm	44
	synt	any
	invoke	0
	line	1131
	colm	34
	synt	any
	invoke	1
	line	1131
	colm	27
	synt	any
	asgn
	unmark
lab L667
	mark	L668
	pnull
	var	23
	var	76
	pnull
	int	5
	pnull
	int	0
	line	1132
	colm	41
	synt	any
	neg
	line	1132
	colm	36
	synt	any
	llist	2
	line	1132
	colm	35
	synt	any
	invoke	1
	line	1132
	colm	26
	synt	any
	asgn
	unmark
lab L668
	mark	L669
	pnull
	var	121
	var	76
	pnull
	int	6
	var	23
	line	1133
	colm	32
	synt	any
	llist	2
	line	1133
	colm	31
	synt	any
	invoke	1
	line	1133
	colm	22
	synt	any
	asgn
	unmark
lab L669
	mark	L670
	pnull
	var	36
	var	76
	pnull
	int	2
	var	69
	var	24
	line	1134
	colm	38
	synt	any
	llist	3
	line	1134
	colm	37
	synt	any
	invoke	1
	line	1134
	colm	28
	synt	any
	asgn
	unmark
lab L670
	mark	L671
	pnull
	var	37
	var	125
	pnull
	var	36
	line	1135
	colm	38
	synt	any
	llist	1
	line	1135
	colm	37
	synt	any
	invoke	1
	line	1135
	colm	28
	synt	any
	asgn
	unmark
lab L671
	mark	L672
	pnull
	var	48
	var	100
	line	1136
	colm	43
	synt	any
	invoke	0
	line	1136
	colm	31
	synt	any
	asgn
	unmark
lab L672
	mark	L673
	pnull
	var	49
	var	105
	var	106
	line	1137
	colm	35
	synt	any
	invoke	1
	line	1137
	colm	24
	synt	any
	asgn
	unmark
lab L673
	mark	L674
	pnull
	var	50
	var	105
	var	111
	line	1138
	colm	39
	synt	any
	invoke	1
	line	1138
	colm	28
	synt	any
	asgn
	unmark
lab L674
	mark	L675
	pnull
	var	51
	var	105
	var	113
	line	1139
	colm	38
	synt	any
	invoke	1
	line	1139
	colm	27
	synt	any
	asgn
	unmark
lab L675
	mark	L676
	pnull
	var	26
	var	103
	var	34
	line	1140
	colm	30
	synt	any
	invoke	1
	line	1140
	colm	21
	synt	any
	asgn
	unmark
lab L676
	mark	L677
	pnull
	var	28
	pnull
	pnull
	var	7
	line	1144
	colm	27
	synt	any
	field	rec_component_list
	line	1144
	colm	47
	synt	any
	field	lh_first
	line	1144
	colm	22
	synt	any
	asgn
	unmark
lab L677
	mark	L678
lab L679
	line	1145
	colm	17
	synt	while
	mark0
	pnull
	var	28
	line	1145
	colm	23
	synt	any
	nonnull
	unmark
	mark	L679
	mark	L682
	pnull
	var	32
	pnull
	var	28
	line	1146
	colm	30
	synt	any
	field	cn_hd_field
	line	1146
	colm	23
	synt	any
	asgn
	unmark
lab L682
	mark	L683
	line	1148
	colm	21
	synt	if
	mark0
	pnull
	pnull
	var	4
	var	62
	pnull
	var	32
	line	1148
	colm	41
	synt	any
	field	re_denotation
	int	3
	line	1148
	colm	38
	synt	any
	invoke	2
	line	1148
	colm	28
	synt	any
	asgn
	int	3
	line	1148
	colm	62
	synt	any
	numne
	unmark
	mark	L684
	pnull
	pnull
	var	7
	line	1149
	colm	27
	synt	any
	field	sig_done
	int	3
	line	1149
	colm	38
	synt	any
	asgn
	unmark
lab L684
	mark	L685
	var	4
	line	1150
	colm	25
	synt	any
	pret
lab L685
	synt	any
	pfail
	line	1148
	colm	21
	synt	endif
	unmark
lab L683
	mark	L686
	pnull
	var	52
	pnull
	pnull
	var	32
	line	1152
	colm	37
	synt	any
	field	re_denotation
	line	1152
	colm	53
	synt	any
	field	signature
	line	1152
	colm	32
	synt	any
	asgn
	unmark
lab L686
	mark	L687
	line	1153
	colm	21
	synt	if
	mark0
	pnull
	var	52
	int	2
	line	1153
	colm	36
	synt	any
	numeq
	unmark
	line	1155
	colm	25
	synt	any
	pfail
	line	1153
	colm	21
	synt	endif
	unmark
lab L687
	mark	L688
	line	1157
	colm	21
	synt	if
	mark0
	pnull
	pnull
	var	52
	line	1157
	colm	36
	synt	any
	field	kind
	int	9
	line	1157
	colm	43
	synt	any
	numne
	unmark
	mark	L689
	var	94
	str	50
	var	32
	line	1158
	colm	37
	synt	any
	invoke	2
	unmark
lab L689
	pnull
	line	1157
	colm	21
	synt	endif
	unmark
lab L688
	mark	L690
	line	1161
	colm	21
	synt	if
	mark0
	pnull
	var	96
	pnull
	var	32
	line	1161
	colm	42
	synt	any
	field	re_denotation
	line	1161
	colm	39
	synt	any
	invoke	1
	line	1161
	colm	24
	synt	any
	nonnull
	unmark
	mark	L691
	pnull
	pnull
	var	7
	line	1162
	colm	27
	synt	any
	field	sig_done
	int	3
	line	1162
	colm	38
	synt	any
	asgn
	unmark
lab L691
	mark	L692
	var	96
	pnull
	var	32
	line	1163
	colm	47
	synt	any
	field	re_denotation
	line	1163
	colm	44
	synt	any
	invoke	1
	line	1163
	colm	25
	synt	any
	pret
lab L692
	synt	any
	pfail
	line	1161
	colm	21
	synt	endif
	unmark
lab L690
	mark	L693
	line	1165
	colm	21
	synt	if
	mark0
	pnull
	var	142
	var	52
	var	50
	var	69
	var	112
	var	52
	var	69
	int	0
	line	1165
	colm	34
	synt	any
	invoke	7
	line	1165
	colm	24
	synt	any
	null
	unmark
	var	94
	str	51
	var	32
	line	1168
	colm	51
	synt	any
	invoke	2
	line	1165
	colm	21
	synt	endif
	unmark
lab L693
	mark	L694
	pnull
	pnull
	var	32
	line	1170
	colm	23
	synt	any
	field	re_ValueOf_index
	var	144
	line	1170
	colm	42
	synt	any
	asgn
	unmark
lab L694
	mark	L695
	line	1171
	colm	21
	synt	if
	mark0
	pnull
	var	142
	var	52
	var	49
	var	69
	var	107
	var	52
	var	69
	int	0
	line	1171
	colm	34
	synt	any
	invoke	7
	line	1171
	colm	24
	synt	any
	null
	unmark
	var	94
	str	52
	var	32
	line	1174
	colm	51
	synt	any
	invoke	2
	line	1171
	colm	21
	synt	endif
	unmark
lab L695
	mark	L696
	pnull
	pnull
	var	32
	line	1176
	colm	23
	synt	any
	field	re_New_index
	var	144
	line	1176
	colm	38
	synt	any
	asgn
	unmark
lab L696
	mark	L697
	line	1177
	colm	21
	synt	if
	mark0
	pnull
	var	142
	var	52
	var	51
	var	69
	var	114
	var	52
	var	69
	int	0
	line	1177
	colm	34
	synt	any
	invoke	7
	line	1177
	colm	24
	synt	any
	null
	unmark
	var	145
	str	53
	var	32
	line	1180
	colm	50
	synt	any
	invoke	2
	line	1177
	colm	21
	synt	endif
	unmark
lab L697
	mark	L698
	pnull
	pnull
	var	32
	line	1182
	colm	23
	synt	any
	field	re_assign_index
	var	144
	line	1182
	colm	41
	synt	any
	asgn
	unmark
lab L698
	pnull
	var	28
	pnull
	var	28
	line	1184
	colm	32
	synt	any
	field	cn_tl_field
	line	1184
	colm	25
	synt	any
	asgn
lab L680
	unmark
	goto	L679
lab L681
	line	1145
	colm	17
	synt	endwhile
	unmark
lab L678
	mark	L699
	pnull
	var	5
	var	76
	pnull
	int	28
	var	49
	var	102
	var	107
	line	1189
	colm	38
	synt	any
	invoke	1
	line	1187
	colm	29
	synt	any
	llist	3
	line	1187
	colm	28
	synt	any
	invoke	1
	line	1187
	colm	19
	synt	any
	asgn
	unmark
lab L699
	mark	L700
	pnull
	pnull
	pnull
	var	5
	line	1190
	colm	19
	synt	any
	field	tsc_signature
	line	1190
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	18
	var	26
	line	1190
	colm	60
	synt	any
	invoke	2
	line	1190
	colm	50
	synt	any
	asgn
	unmark
lab L700
	mark	L701
	var	109
	var	5
	line	1191
	colm	28
	synt	any
	invoke	1
	unmark
lab L701
	mark	L702
	var	110
	var	22
	var	5
	line	1192
	colm	25
	synt	any
	invoke	2
	unmark
lab L702
	mark	L703
	pnull
	var	5
	var	76
	pnull
	int	28
	var	50
	var	102
	var	112
	line	1195
	colm	38
	synt	any
	invoke	1
	line	1193
	colm	29
	synt	any
	llist	3
	line	1193
	colm	28
	synt	any
	invoke	1
	line	1193
	colm	19
	synt	any
	asgn
	unmark
lab L703
	mark	L704
	pnull
	pnull
	pnull
	var	5
	line	1196
	colm	19
	synt	any
	field	tsc_signature
	line	1196
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	39
	var	26
	line	1196
	colm	60
	synt	any
	invoke	2
	line	1196
	colm	50
	synt	any
	asgn
	unmark
lab L704
	mark	L705
	var	109
	var	5
	line	1197
	colm	28
	synt	any
	invoke	1
	unmark
lab L705
	mark	L706
	var	110
	var	22
	var	5
	line	1198
	colm	25
	synt	any
	invoke	2
	unmark
lab L706
	mark	L707
	pnull
	var	5
	var	76
	pnull
	int	28
	var	51
	var	102
	var	114
	line	1201
	colm	37
	synt	any
	invoke	1
	line	1199
	colm	28
	synt	any
	llist	3
	line	1199
	colm	27
	synt	any
	invoke	1
	line	1199
	colm	19
	synt	any
	numeq
	unmark
lab L707
	mark	L708
	pnull
	pnull
	pnull
	var	5
	line	1202
	colm	19
	synt	any
	field	tsc_signature
	line	1202
	colm	35
	synt	any
	field	fsig_special
	var	108
	int	14
	var	26
	line	1202
	colm	60
	synt	any
	invoke	2
	line	1202
	colm	50
	synt	any
	asgn
	unmark
lab L708
	mark	L709
	var	109
	var	5
	line	1203
	colm	28
	synt	any
	invoke	1
	unmark
lab L709
	mark	L710
	var	110
	var	22
	var	5
	line	1204
	colm	25
	synt	any
	invoke	2
	unmark
lab L710
	mark	L711
	pnull
	var	28
	pnull
	pnull
	var	7
	line	1206
	colm	27
	synt	any
	field	rec_component_list
	line	1206
	colm	47
	synt	any
	field	lh_first
	line	1206
	colm	22
	synt	any
	asgn
	unmark
lab L711
	mark	L712
lab L713
	line	1207
	colm	17
	synt	while
	mark0
	pnull
	var	28
	line	1207
	colm	23
	synt	any
	nonnull
	unmark
	mark	L713
	mark	L716
	pnull
	var	32
	pnull
	var	28
	line	1208
	colm	30
	synt	any
	field	cn_hd_field
	line	1208
	colm	23
	synt	any
	asgn
	unmark
lab L716
	mark	L717
	pnull
	var	5
	var	76
	pnull
	int	6
	pnull
	var	32
	line	1209
	colm	39
	synt	any
	field	re_denotation
	line	1209
	colm	33
	synt	any
	llist	2
	line	1209
	colm	32
	synt	any
	invoke	1
	line	1209
	colm	23
	synt	any
	asgn
	unmark
lab L717
	mark	L718
	pnull
	var	5
	var	76
	pnull
	int	2
	var	69
	var	5
	line	1210
	colm	32
	synt	any
	llist	3
	line	1210
	colm	31
	synt	any
	invoke	1
	line	1210
	colm	23
	synt	any
	numeq
	unmark
lab L718
	mark	L719
	var	110
	var	48
	var	5
	line	1211
	colm	29
	synt	any
	invoke	2
	unmark
lab L719
	pnull
	var	28
	pnull
	var	28
	line	1212
	colm	33
	synt	any
	field	cn_tl_field
	line	1212
	colm	26
	synt	any
	asgn
lab L714
	unmark
	goto	L713
lab L715
	line	1207
	colm	17
	synt	endwhile
	unmark
lab L712
	mark	L720
	pnull
	var	5
	var	76
	pnull
	int	8
	var	69
	var	48
	var	24
	line	1214
	colm	28
	synt	any
	llist	4
	line	1214
	colm	27
	synt	any
	invoke	1
	line	1214
	colm	19
	synt	any
	numeq
	unmark
lab L720
	mark	L721
	pnull
	pnull
	var	5
	line	1216
	colm	19
	synt	any
	field	fsig_special
	var	108
	int	45
	var	26
	line	1216
	colm	44
	synt	any
	invoke	2
	line	1216
	colm	34
	synt	any
	asgn
	unmark
lab L721
	mark	L722
	pnull
	var	5
	var	76
	pnull
	int	28
	var	105
	var	115
	line	1218
	colm	37
	synt	any
	invoke	1
	var	5
	line	1217
	colm	28
	synt	any
	llist	3
	line	1217
	colm	27
	synt	any
	invoke	1
	line	1217
	colm	19
	synt	any
	numeq
	unmark
lab L722
	mark	L723
	var	109
	var	5
	line	1220
	colm	28
	synt	any
	invoke	1
	unmark
lab L723
	mark	L724
	var	110
	var	22
	var	5
	line	1221
	colm	25
	synt	any
	invoke	2
	unmark
lab L724
	mark	L725
	pnull
	var	27
	int	3
	line	1223
	colm	19
	synt	any
	numeq
	unmark
lab L725
	mark	L726
	pnull
	var	28
	pnull
	pnull
	var	7
	line	1224
	colm	27
	synt	any
	field	rec_component_list
	line	1224
	colm	47
	synt	any
	field	lh_first
	line	1224
	colm	22
	synt	any
	asgn
	unmark
lab L726
	mark	L727
lab L728
	line	1225
	colm	17
	synt	while
	mark0
	pnull
	var	28
	line	1225
	colm	23
	synt	any
	nonnull
	unmark
	mark	L728
	mark	L731
	pnull
	var	53
	var	76
	pnull
	int	8
	var	69
	var	37
	var	76
	pnull
	int	6
	pnull
	var	32
	line	1232
	colm	55
	synt	any
	field	re_denotation
	line	1231
	colm	52
	synt	any
	llist	2
	line	1231
	colm	51
	synt	any
	invoke	1
	line	1228
	colm	44
	synt	any
	llist	4
	line	1228
	colm	43
	synt	any
	invoke	1
	line	1228
	colm	34
	synt	any
	asgn
	unmark
lab L731
	mark	L732
	pnull
	var	5
	var	125
	pnull
	var	76
	pnull
	int	2
	var	69
	var	76
	pnull
	int	7
	var	23
	line	1235
	colm	49
	synt	any
	llist	2
	line	1235
	colm	48
	synt	any
	invoke	1
	line	1233
	colm	41
	synt	any
	llist	3
	line	1233
	colm	40
	synt	any
	invoke	1
	line	1233
	colm	33
	synt	any
	llist	1
	line	1233
	colm	32
	synt	any
	invoke	1
	line	1233
	colm	23
	synt	any
	asgn
	unmark
lab L732
	mark	L733
	pnull
	var	54
	var	76
	pnull
	int	8
	var	69
	var	5
	var	76
	pnull
	int	7
	pnull
	var	32
	line	1240
	colm	56
	synt	any
	field	re_denotation
	line	1239
	colm	53
	synt	any
	llist	2
	line	1239
	colm	52
	synt	any
	invoke	1
	line	1236
	colm	45
	synt	any
	llist	4
	line	1236
	colm	44
	synt	any
	invoke	1
	line	1236
	colm	34
	synt	any
	asgn
	unmark
lab L733
	mark	L734
	pnull
	pnull
	var	53
	line	1241
	colm	34
	synt	any
	field	fsig_special
	var	108
	int	17
	var	27
	line	1241
	colm	59
	synt	any
	invoke	2
	line	1241
	colm	49
	synt	any
	asgn
	unmark
lab L734
	mark	L735
	pnull
	pnull
	var	54
	line	1242
	colm	34
	synt	any
	field	fsig_special
	var	108
	int	49
	var	27
	line	1242
	colm	59
	synt	any
	invoke	2
	line	1242
	colm	49
	synt	any
	asgn
	unmark
lab L735
	mark	L736
	pnull
	var	5
	var	76
	pnull
	int	28
	pnull
	var	32
	line	1244
	colm	36
	synt	any
	field	re_id
	var	53
	line	1243
	colm	33
	synt	any
	llist	3
	line	1243
	colm	32
	synt	any
	invoke	1
	line	1243
	colm	23
	synt	any
	asgn
	unmark
lab L736
	mark	L737
	var	109
	var	5
	line	1246
	colm	32
	synt	any
	invoke	1
	unmark
lab L737
	mark	L738
	var	110
	var	22
	var	5
	line	1247
	colm	29
	synt	any
	invoke	2
	unmark
lab L738
	mark	L739
	pnull
	var	5
	var	76
	pnull
	int	28
	pnull
	var	32
	line	1249
	colm	35
	synt	any
	field	re_id
	var	54
	line	1248
	colm	32
	synt	any
	llist	3
	line	1248
	colm	31
	synt	any
	invoke	1
	line	1248
	colm	23
	synt	any
	numeq
	unmark
lab L739
	mark	L740
	var	109
	var	5
	line	1251
	colm	32
	synt	any
	invoke	1
	unmark
lab L740
	mark	L741
	var	110
	var	22
	var	5
	line	1252
	colm	29
	synt	any
	invoke	2
	unmark
lab L741
	mark	L742
	pnull
	var	27
	dup
	int	0
	line	1253
	colm	23
	synt	any
	plus
	asgn
	unmark
lab L742
	pnull
	var	28
	pnull
	var	28
	line	1255
	colm	33
	synt	any
	field	cn_tl_field
	line	1255
	colm	26
	synt	any
	asgn
lab L729
	unmark
	goto	L728
lab L730
	line	1225
	colm	17
	synt	endwhile
	unmark
lab L727
	mark	L743
	var	60
	var	7
	var	76
	pnull
	int	9
	var	69
	var	22
	var	69
	var	69
	var	69
	line	1257
	colm	35
	synt	any
	llist	6
	line	1257
	colm	34
	synt	any
	invoke	1
	line	1257
	colm	24
	synt	any
	invoke	2
	unmark
lab L743
	mark	L744
	var	82
	var	22
	line	1260
	colm	23
	synt	any
	invoke	1
	unmark
lab L744
	mark	L745
	pnull
	pnull
	pnull
	var	7
	line	1261
	colm	19
	synt	any
	field	signature
	line	1261
	colm	31
	synt	any
	field	pre_num
	var	116
	line	1261
	colm	41
	synt	any
	numeq
	unmark
lab L745
	mark	L746
	pnull
	var	116
	dup
	int	0
	line	1262
	colm	26
	synt	any
	plus
	asgn
	unmark
lab L746
	mark	L747
	pnull
	pnull
	var	7
	line	1264
	colm	19
	synt	any
	field	sig_done
	int	2
	line	1264
	colm	30
	synt	any
	asgn
	unmark
lab L747
	mark	L748
	var	119
	pnull
	var	7
	line	1266
	colm	30
	synt	any
	field	signature
	line	1266
	colm	27
	synt	any
	invoke	1
	unmark
lab L748
	mark	L749
	pnull
	pnull
	pnull
	var	7
	line	1268
	colm	19
	synt	any
	field	signature
	line	1268
	colm	31
	synt	any
	field	ts_simple_type
	int	0
	line	1268
	colm	48
	synt	any
	asgn
	unmark
lab L749
	mark	L750
	pnull
	var	28
	pnull
	pnull
	var	7
	line	1269
	colm	27
	synt	any
	field	rec_component_list
	line	1269
	colm	47
	synt	any
	field	lh_first
	line	1269
	colm	22
	synt	any
	asgn
	unmark
lab L750
	mark	L751
lab L752
	line	1270
	colm	17
	synt	while
	mark0
	pnull
	var	28
	line	1270
	colm	23
	synt	any
	nonnull
	unmark
	mark	L752
	mark	L755
	pnull
	var	32
	pnull
	var	28
	line	1271
	colm	30
	synt	any
	field	cn_hd_field
	line	1271
	colm	23
	synt	any
	asgn
	unmark
lab L755
	mark	L756
	line	1272
	colm	21
	synt	if
	mark0
	pnull
	pnull
	pnull
	pnull
	var	32
	line	1272
	colm	27
	synt	any
	field	re_denotation
	line	1272
	colm	43
	synt	any
	field	signature
	line	1272
	colm	54
	synt	any
	field	ts_simple_type
	int	3
	line	1272
	colm	71
	synt	any
	numeq
	unmark
	pnull
	pnull
	pnull
	var	7
	line	1273
	colm	27
	synt	any
	field	signature
	line	1273
	colm	39
	synt	any
	field	ts_simple_type
	int	3
	line	1273
	colm	56
	synt	any
	asgn
	line	1272
	colm	21
	synt	endif
	unmark
lab L756
	pnull
	var	28
	pnull
	var	28
	line	1275
	colm	33
	synt	any
	field	cn_tl_field
	line	1275
	colm	26
	synt	any
	asgn
lab L753
	unmark
	goto	L752
lab L754
	line	1270
	colm	17
	synt	endwhile
	unmark
lab L751
	mark	L757
	mark	L758
	int	3
	line	1277
	colm	17
	synt	any
	pret
lab L758
	synt	any
	pfail
	unmark
lab L757
	pnull
	goto	L13
lab L665
	mark	L759
	ccase
	int	54
	line	1280
	colm	11
	synt	any
	eqv
	unmark
	pop
	var	58
	str	55
	line	1281
	colm	20
	synt	any
	invoke	1
	goto	L13
lab L759
	pop
	var	58
	pnull
	str	56
	var	2
	line	1284
	colm	60
	synt	any
	cat
	line	1284
	colm	24
	synt	any
	invoke	1
lab L13
	line	204
	colm	5
	synt	endcase
	unmark
lab L12
	pnull
	line	1287
	colm	1
	synt	any
	pfail
	end
proc tl_findsig
	local	0,001000,p_orig
	local	1,001000,dont_coerce
	local	2,000020,q
	local	3,000020,p
	local	4,000000,rpt_err
	local	5,000000,fix_p
	local	6,000000,chgsig
	local	7,000000,nil
	local	8,000000,findsig
	local	9,000000,rpt_err_node
	local	10,000000,getname
	local	11,000000,dontsubst
	local	12,000000,cn_del_hd
	con	0,010000,22,164,154,137,146,151,156,144,163,151,147,072,040,160,137,157,162,151,147,040,156,151,154
	con	1,010000,17,164,154,137,146,151,156,144,163,151,147,072,040,160,040,156,151,154
	con	2,002000,2,28
	con	3,002000,1,0
	con	4,002000,2,29
	con	5,002000,2,35
	con	6,002000,1,1
	con	7,002000,2,32
	con	8,002000,2,31
	con	9,010000,40,143,151,162,143,165,154,141,162,040,163,151,147,156,141,164,165,162,145,040,144,145,160,145,156,144,145,156,143,171,040,151,156,166,157,154,166,151,156,147,040
	con	10,010000,29,103,151,162,143,165,154,141,162,040,163,151,147,156,141,164,165,162,145,040,144,145,160,145,156,144,145,156,143,171
	con	11,002000,1,2
	declend
	line	1362
	colm	12
	synt	any
	mark	L1
	line	1364
	colm	5
	synt	ifelse
	mark	L2
	pnull
	var	0
	line	1364
	colm	8
	synt	any
	null
	unmark
	var	4
	str	0
	line	1365
	colm	16
	synt	any
	invoke	1
	goto	L3
lab L2
	pnull
	var	3
	var	5
	var	0
	line	1367
	colm	19
	synt	any
	invoke	1
	line	1367
	colm	11
	synt	any
	asgn
lab L3
	line	1364
	colm	5
	synt	endifelse
	unmark
lab L1
	mark	L4
	line	1368
	colm	5
	synt	if
	mark0
	pnull
	var	3
	line	1368
	colm	8
	synt	any
	null
	unmark
	var	4
	str	1
	line	1369
	colm	16
	synt	any
	invoke	1
	line	1368
	colm	5
	synt	endif
	unmark
lab L4
	mark	L5
	line	1372
	colm	5
	synt	case
	mark0
	pnull
	var	3
	line	1372
	colm	13
	synt	any
	field	kind
	eret
	mark	L7
	ccase
	int	2
	line	1373
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L8
	var	6
	var	3
	var	7
	line	1375
	colm	23
	synt	any
	invoke	2
	unmark
lab L8
	pnull
	pnull
	var	3
	line	1376
	colm	19
	synt	any
	field	sig_done
	int	3
	line	1376
	colm	30
	synt	any
	asgn
	goto	L6
lab L7
	mark	L9
	ccase
	int	4
	line	1378
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L10
	var	6
	var	3
	var	7
	line	1380
	colm	23
	synt	any
	invoke	2
	unmark
lab L10
	pnull
	pnull
	var	3
	line	1381
	colm	19
	synt	any
	field	sig_done
	int	3
	line	1381
	colm	30
	synt	any
	asgn
	goto	L6
lab L9
	mark	L11
	ccase
	int	5
	line	1384
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	pnull
	var	3
	line	1386
	colm	23
	synt	any
	field	sig_done
	int	3
	line	1386
	colm	34
	synt	any
	asgn
	goto	L6
lab L11
	efail
lab L6
	line	1372
	colm	5
	synt	endcase
	unmark
lab L5
	mark	L12
	pnull
	var	2
	var	8
	var	3
	var	1
	line	1389
	colm	17
	synt	any
	invoke	2
	line	1389
	colm	7
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	line	1390
	colm	5
	synt	if
	mark0
	pnull
	var	2
	int	3
	line	1390
	colm	11
	synt	any
	numne
	pop
	pnull
	var	2
	int	6
	line	1390
	colm	20
	synt	any
	numne
	unmark
	mark	L14
	line	1392
	colm	13
	synt	ifelse
	mark	L15
	mark	L17
	pnull
	pnull
	var	2
	line	1392
	colm	19
	synt	any
	field	kind
	int	7
	line	1392
	colm	26
	synt	any
	numeq
	line	1392
	colm	31
	synt	any
	esusp
	goto	L18
lab L17
	pnull
	pnull
	var	2
	line	1392
	colm	35
	synt	any
	field	kind
	int	8
	line	1392
	colm	42
	synt	any
	numeq
lab L18
	unmark
	var	9
	pnull
	str	9
	var	10
	pnull
	var	2
	line	1395
	colm	91
	synt	any
	field	id_str_table_index
	line	1395
	colm	88
	synt	any
	invoke	1
	line	1395
	colm	77
	synt	any
	cat
	var	2
	line	1395
	colm	33
	synt	any
	invoke	2
	goto	L16
lab L15
	var	9
	str	10
	var	2
	line	1399
	colm	37
	synt	any
	invoke	2
lab L16
	line	1392
	colm	13
	synt	endifelse
	unmark
lab L14
	mark	L19
	line	1401
	colm	13
	synt	ifelse
	mark	L20
	pnull
	pnull
	var	3
	line	1401
	colm	19
	synt	any
	field	kind
	int	5
	line	1401
	colm	26
	synt	any
	numeq
	unmark
	pnull
	pnull
	pnull
	var	3
	line	1404
	colm	23
	synt	any
	field	signature
	line	1404
	colm	35
	synt	any
	field	fsig_result_sig
	int	11
	line	1404
	colm	53
	synt	any
	asgn
	goto	L21
lab L20
	pnull
	pnull
	var	3
	line	1408
	colm	27
	synt	any
	field	signature
	int	11
	line	1408
	colm	39
	synt	any
	asgn
lab L21
	line	1401
	colm	13
	synt	endifelse
	unmark
lab L19
	pnull
	pnull
	var	3
	line	1410
	colm	15
	synt	any
	field	sig_done
	int	11
	line	1410
	colm	26
	synt	any
	asgn
	line	1390
	colm	5
	synt	endif
	unmark
lab L13
	mark	L22
lab L23
	line	1414
	colm	5
	synt	while
	mark0
	pnull
	var	11
	line	1414
	colm	13
	synt	any
	nonnull
	unmark
	mark	L23
	pnull
	var	11
	var	12
	var	11
	line	1416
	colm	35
	synt	any
	invoke	1
	line	1416
	colm	23
	synt	any
	asgn
lab L24
	unmark
	goto	L23
lab L25
	line	1414
	colm	5
	synt	endwhile
	unmark
lab L22
	mark	L26
	mark	L27
	int	3
	line	1418
	colm	5
	synt	any
	pret
lab L27
	synt	any
	pfail
	unmark
lab L26
	pnull
	line	1420
	colm	2
	synt	any
	pfail
	end
