version	U12.1.00
uid	checksigs.tmp.u1-1465334334-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,checksigs,2
	253,000005,tl_checksigs,1

proc checksigs
	local	0,001000,p_orig
	local	1,001000,dont_coerce
	local	2,000020,knd
	local	3,000020,op
	local	4,000020,sig
	local	5,000020,maxlen
	local	6,000020,temp
	local	7,000020,q
	local	8,000020,num_ars
	local	9,000020,num_params
	local	10,000020,temp1
	local	11,000020,temp2
	local	12,000020,s
	local	13,000020,r
	local	14,000020,p
	local	15,000000,fix_p
	local	16,000000,checksigs
	local	17,000000,tl_findsig
	local	18,000000,in_sig
	local	19,000000,is_unique
	local	20,000000,rpt_err
	local	21,000000,MAXSTRLEN
	local	22,000000,is_val_Void
	local	23,000000,comp_st
	local	24,000000,val_Void
	local	25,000000,nil
	local	26,000000,is_empty
	local	27,000000,psig
	local	28,000000,last
	local	29,000000,var_Void
	local	30,000000,NIL
	local	31,000000,errmsg0
	local	32,000000,yynerrs
	local	33,000000,amatch
	local	34,000000,op_sig
	local	35,000000,err_node
	local	36,000000,err_msg
	local	37,000000,num_args
	local	38,000000,length
	local	39,000000,has_sig
	local	40,000000,den
	local	41,000000,par_sig
	local	42,000000,subst
	local	43,000000,lock
	local	44,000000,failed_comp
	local	45,000000,vfree
	local	46,000000,unlock
	local	47,000000,val_Boolean
	local	48,000000,sig_structure
	local	49,000000,findsig
	local	50,000000,IFDEBUG
	local	51,000000,dbgmsg
	local	52,000000,sig_after_hiding
	local	53,000000,delcomp
	local	54,000000,old_in_sig
	local	55,000000,old_curr_tsig
	local	56,000000,curr_tsig
	local	57,000000,sig_Signature
	local	58,000000,is_ptr
	con	0,002000,1,1
	con	1,002000,2,31
	con	2,002000,1,0
	con	3,002000,1,2
	con	4,010000,32,141,155,142,151,147,165,157,165,163,040,163,145,154,145,143,164,151,157,156,040,151,156,040,163,151,147,156,141,164,165,162,145
	con	5,002000,2,32
	con	6,002000,2,33
	con	7,002000,2,34
	con	8,002000,2,35
	con	9,002000,1,5
	con	10,002000,1,4
	con	11,002000,2,37
	con	12,010000,53,127,141,162,156,151,156,147,040,055,040,154,141,163,164,040,160,141,162,141,155,145,164,145,162,040,157,146,040,145,170,164,145,162,156,040,163,150,157,165,154,144,040,142,145,040,166,141,162,040,126,157,151,144
	con	13,010000,34,106,165,156,143,164,151,157,156,040,162,145,163,165,154,164,040,163,151,147,156,141,164,165,162,145,040,155,151,163,155,141,164,143,150
	con	14,002000,2,38
	con	15,002000,2,13
	con	16,010000,31,163,151,147,156,141,164,165,162,145,040,157,146,040,162,145,163,165,154,164,040,164,171,160,145,040,151,163,040,142,141,144
	con	17,010000,25,167,162,157,156,147,040,156,165,155,142,145,162,040,157,146,040,141,162,147,165,155,145,156,164,163
	con	18,010000,27,142,141,144,040,141,162,147,165,155,145,156,164,040,164,171,160,145,040,163,151,147,156,141,164,165,162,145
	con	19,010000,27,101,162,147,165,155,145,156,164,040,160,141,162,141,155,145,164,145,162,040,155,151,163,155,141,164,143,150
	con	20,002000,1,9
	con	21,002000,2,28
	con	22,002000,2,29
	con	23,010000,33,107,165,141,162,144,040,150,141,163,040,151,156,141,160,160,162,157,160,162,151,141,164,145,040,163,151,147,156,141,164,165,162,145
	con	24,010000,43,107,165,141,162,144,145,144,040,145,170,160,162,145,163,163,151,157,156,040,150,141,163,040,151,156,143,157,162,162,145,143,164,040,163,151,147,156,141,164,165,162,145,072
	con	25,002000,2,11
	con	26,010000,36,123,151,147,156,141,164,165,162,145,040,144,157,145,163,040,156,157,164,040,155,141,164,143,150,040,144,145,143,154,141,162,141,164,151,157,156
	con	27,002000,2,12
	con	28,002000,1,7
	con	29,010000,33,116,157,156,055,164,171,160,145,040,141,160,160,145,141,162,163,040,151,156,040,165,163,145,040,164,171,160,145,040,154,151,163,164
	con	30,002000,2,25
	con	31,002000,2,20
	con	32,010000,33,103,141,156,047,164,040,146,151,156,144,040,163,151,147,156,141,164,165,162,145,040,157,146,040,167,151,164,150,040,154,151,163,164
	con	33,010000,38,142,141,144,040,164,171,160,145,040,163,151,147,156,141,164,165,162,145,040,142,145,146,157,162,145,040,155,157,144,151,146,151,143,141,164,151,157,156
	con	34,002000,2,19
	con	35,010000,25,143,150,145,143,153,163,151,147,163,072,040,142,141,144,040,167,151,164,150,040,154,151,163,164,012
	con	36,010000,41,123,151,147,156,141,164,165,162,145,040,144,157,145,163,040,156,157,164,040,155,141,164,143,150,040,127,111,124,110,040,144,145,143,154,141,162,141,164,151,157,156
	con	37,010000,26,142,141,144,040,163,151,147,156,141,164,165,162,145,040,141,146,164,145,162,040,150,151,144,151,156,147
	con	38,010000,37,142,141,144,040,163,151,147,156,141,164,165,162,145,040,141,146,164,145,162,040,141,144,144,151,156,147,040,143,157,155,160,157,156,145,156,164,163
	con	39,002000,2,17
	con	40,010000,29,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
	con	41,002000,2,18
	con	42,002000,2,16
	con	43,010000,36,120,162,157,144,165,143,164,040,163,150,157,165,154,144,156,047,164,040,150,141,166,145,040,166,141,162,040,143,157,155,160,157,156,145,156,164
	con	44,010000,34,125,156,151,157,156,040,163,150,157,165,154,144,156,047,164,040,150,141,166,145,040,166,141,162,040,143,157,155,160,157,156,145,156,164
	con	45,002000,2,14
	con	46,002000,2,15
	con	47,002000,1,8
	con	48,002000,1,6
	con	49,010000,25,143,150,145,143,153,163,151,147,163,072,040,142,141,144,040,160,141,162,141,155,145,164,145,162,012
	con	50,002000,2,10
	con	51,010000,20,143,150,145,143,153,163,151,147,163,072,040,142,141,144,040,153,151,156,144,072
	declend
	filen	pass4/checksigs.tmp.icn
	line	99
	colm	12
	synt	any
	mark	L1
	line	102
	colm	5
	synt	if
	mark0
	pnull
	var	0
	line	102
	colm	8
	synt	any
	null
	unmark
	mark	L2
	int	0
	line	102
	colm	21
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	102
	colm	5
	synt	endif
	unmark
lab L1
	mark	L3
	pnull
	var	14
	var	15
	var	0
	line	103
	colm	15
	synt	any
	invoke	1
	line	103
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	104
	colm	5
	synt	if
	mark0
	pnull
	var	14
	line	104
	colm	9
	synt	any
	null
	unmark
	mark	L5
	int	0
	line	104
	colm	19
	synt	any
	pret
lab L5
	synt	any
	pfail
	line	104
	colm	5
	synt	endif
	unmark
lab L4
	mark	L6
	pnull
	var	2
	pnull
	var	14
	line	105
	colm	13
	synt	any
	field	kind
	line	105
	colm	9
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	107
	colm	5
	synt	case
	mark0
	var	2
	eret
	mark	L9
	ccase
	int	1
	line	108
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L10
	line	52
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	14
	line	52
	colm	14
	synt	any
	field	sel_type
	line	52
	colm	9
	synt	any
	nonnull
	unmark
	mark	L11
	var	16
	pnull
	var	14
	line	55
	colm	21
	synt	any
	field	sel_type
	int	2
	line	55
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	pnull
	line	52
	colm	5
	synt	endif
	unmark
lab L10
	mark	L12
	var	17
	var	14
	var	1
	line	57
	colm	15
	synt	any
	invoke	2
	unmark
lab L12
	line	58
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	14
	line	58
	colm	13
	synt	any
	field	sel_type
	line	58
	colm	9
	synt	any
	nonnull
	pop
	pnull
	var	18
	int	0
	line	58
	colm	35
	synt	any
	numeq
	pop
	pnull
	pnull
	pnull
	var	14
	line	59
	colm	10
	synt	any
	field	sel_type
	line	59
	colm	21
	synt	any
	field	signature
	int	3
	line	59
	colm	33
	synt	any
	numne
	unmark
	line	61
	colm	13
	synt	if
	mark0
	mark	L13
	var	19
	pnull
	pnull
	var	14
	line	61
	colm	33
	synt	any
	field	sel_type
	line	61
	colm	44
	synt	any
	field	signature
	pnull
	var	14
	line	62
	colm	30
	synt	any
	field	id_str_table_index
	line	61
	colm	30
	synt	any
	invoke	2
	unmark
	efail
lab L13
	pnull
	unmark
	var	20
	str	4
	line	63
	colm	39
	synt	any
	invoke	1
	line	61
	colm	13
	synt	endif
	line	58
	colm	5
	synt	endif
	goto	L8
lab L9
	mark	L14
	ccase
	int	5
	line	112
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L15
	line	52
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	14
	line	52
	colm	14
	synt	any
	field	sel_type
	line	52
	colm	9
	synt	any
	nonnull
	unmark
	mark	L16
	var	16
	pnull
	var	14
	line	55
	colm	21
	synt	any
	field	sel_type
	int	2
	line	55
	colm	18
	synt	any
	invoke	2
	unmark
lab L16
	pnull
	line	52
	colm	5
	synt	endif
	unmark
lab L15
	mark	L17
	var	17
	var	14
	var	1
	line	57
	colm	15
	synt	any
	invoke	2
	unmark
lab L17
	line	58
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	14
	line	58
	colm	13
	synt	any
	field	sel_type
	line	58
	colm	9
	synt	any
	nonnull
	pop
	pnull
	var	18
	int	0
	line	58
	colm	35
	synt	any
	numeq
	pop
	pnull
	pnull
	pnull
	var	14
	line	59
	colm	10
	synt	any
	field	sel_type
	line	59
	colm	21
	synt	any
	field	signature
	int	3
	line	59
	colm	33
	synt	any
	numne
	unmark
	line	61
	colm	13
	synt	if
	mark0
	mark	L18
	var	19
	pnull
	pnull
	var	14
	line	61
	colm	33
	synt	any
	field	sel_type
	line	61
	colm	44
	synt	any
	field	signature
	pnull
	var	14
	line	62
	colm	30
	synt	any
	field	id_str_table_index
	line	61
	colm	30
	synt	any
	invoke	2
	unmark
	efail
lab L18
	pnull
	unmark
	var	20
	str	4
	line	63
	colm	39
	synt	any
	invoke	1
	line	61
	colm	13
	synt	endif
	line	58
	colm	5
	synt	endif
	goto	L8
lab L14
	mark	L19
	ccase
	int	6
	line	116
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L20
	var	17
	var	14
	var	1
	line	52
	colm	27
	synt	any
	invoke	2
	unmark
lab L20
	line	53
	colm	17
	synt	if
	mark0
	pnull
	pnull
	var	14
	line	53
	colm	23
	synt	any
	field	signature
	int	3
	line	53
	colm	35
	synt	any
	numne
	unmark
	mark	L21
	pnull
	var	4
	pnull
	pnull
	var	14
	line	54
	colm	28
	synt	any
	field	sel_type
	line	54
	colm	39
	synt	any
	field	signature
	line	54
	colm	23
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	line	55
	colm	19
	synt	ifelse
	mark	L23
	pnull
	pnull
	var	4
	line	55
	colm	27
	synt	any
	field	ts_string_max
	pnull
	int	0
	line	55
	colm	45
	synt	any
	neg
	line	55
	colm	43
	synt	any
	numeq
	unmark
	pnull
	var	5
	var	21
	line	56
	colm	30
	synt	any
	asgn
	goto	L24
lab L23
	pnull
	var	5
	pnull
	var	4
	line	58
	colm	37
	synt	any
	field	ts_string_max
	line	58
	colm	30
	synt	any
	asgn
lab L24
	line	55
	colm	19
	synt	endifelse
	unmark
lab L22
	line	60
	colm	19
	synt	ifelse
	mark	L25
	mark	L27
	pnull
	pnull
	var	4
	line	60
	colm	30
	synt	any
	field	ts_string_code
	line	60
	colm	23
	synt	any
	null
	line	60
	colm	48
	synt	any
	esusp
	goto	L28
lab L27
	mark	L29
	pnull
	pnull
	var	4
	line	61
	colm	30
	synt	any
	field	ts_element_code
	line	61
	colm	23
	synt	any
	null
	line	61
	colm	49
	synt	any
	esusp
	goto	L30
lab L29
	mark	L31
	pnull
	pnull
	pnull
	var	14
	line	62
	colm	28
	synt	any
	field	str_string
	line	62
	colm	24
	synt	any
	size
	var	5
	line	62
	colm	42
	synt	any
	numgt
	line	62
	colm	51
	synt	any
	esusp
	goto	L32
lab L31
	mark	L33
	pnull
	pnull
	pnull
	var	14
	line	63
	colm	26
	synt	any
	field	sel_type
	line	63
	colm	37
	synt	any
	field	kind
	int	5
	line	63
	colm	44
	synt	any
	numne
	line	63
	colm	50
	synt	any
	esusp
	goto	L34
lab L33
	pnull
	pnull
	pnull
	var	14
	line	64
	colm	31
	synt	any
	field	sel_type
	line	64
	colm	42
	synt	any
	field	sel_type
	line	64
	colm	24
	synt	any
	null
lab L34
lab L32
lab L30
lab L28
	unmark
	var	16
	pnull
	var	14
	line	65
	colm	33
	synt	any
	field	str_expansion
	var	1
	line	65
	colm	30
	synt	any
	invoke	2
	goto	L26
lab L25
	var	16
	pnull
	var	14
	line	67
	colm	33
	synt	any
	field	sel_type
	int	2
	line	67
	colm	30
	synt	any
	invoke	2
lab L26
	line	60
	colm	19
	synt	endifelse
	line	53
	colm	17
	synt	endif
	goto	L8
lab L19
	mark	L35
	ccase
	int	7
	line	121
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L36
	var	17
	var	14
	var	1
	line	52
	colm	27
	synt	any
	invoke	2
	unmark
lab L36
	line	53
	colm	17
	synt	if
	mark0
	pnull
	pnull
	var	14
	line	53
	colm	23
	synt	any
	field	signature
	int	3
	line	53
	colm	35
	synt	any
	numne
	unmark
	mark	L37
	pnull
	var	4
	pnull
	pnull
	var	14
	line	54
	colm	28
	synt	any
	field	sel_type
	line	54
	colm	39
	synt	any
	field	signature
	line	54
	colm	23
	synt	any
	asgn
	unmark
lab L37
	mark	L38
	line	55
	colm	19
	synt	ifelse
	mark	L39
	pnull
	pnull
	var	4
	line	55
	colm	27
	synt	any
	field	ts_string_max
	pnull
	int	0
	line	55
	colm	45
	synt	any
	neg
	line	55
	colm	43
	synt	any
	numeq
	unmark
	pnull
	var	5
	var	21
	line	56
	colm	30
	synt	any
	asgn
	goto	L40
lab L39
	pnull
	var	5
	pnull
	var	4
	line	58
	colm	37
	synt	any
	field	ts_string_max
	line	58
	colm	30
	synt	any
	asgn
lab L40
	line	55
	colm	19
	synt	endifelse
	unmark
lab L38
	line	60
	colm	19
	synt	ifelse
	mark	L41
	mark	L43
	pnull
	pnull
	var	4
	line	60
	colm	30
	synt	any
	field	ts_string_code
	line	60
	colm	23
	synt	any
	null
	line	60
	colm	48
	synt	any
	esusp
	goto	L44
lab L43
	mark	L45
	pnull
	pnull
	var	4
	line	61
	colm	30
	synt	any
	field	ts_element_code
	line	61
	colm	23
	synt	any
	null
	line	61
	colm	49
	synt	any
	esusp
	goto	L46
lab L45
	mark	L47
	pnull
	pnull
	pnull
	var	14
	line	62
	colm	28
	synt	any
	field	str_string
	line	62
	colm	24
	synt	any
	size
	var	5
	line	62
	colm	42
	synt	any
	numgt
	line	62
	colm	51
	synt	any
	esusp
	goto	L48
lab L47
	mark	L49
	pnull
	pnull
	pnull
	var	14
	line	63
	colm	26
	synt	any
	field	sel_type
	line	63
	colm	37
	synt	any
	field	kind
	int	5
	line	63
	colm	44
	synt	any
	numne
	line	63
	colm	50
	synt	any
	esusp
	goto	L50
lab L49
	pnull
	pnull
	pnull
	var	14
	line	64
	colm	31
	synt	any
	field	sel_type
	line	64
	colm	42
	synt	any
	field	sel_type
	line	64
	colm	24
	synt	any
	null
lab L50
lab L48
lab L46
lab L44
	unmark
	var	16
	pnull
	var	14
	line	65
	colm	33
	synt	any
	field	str_expansion
	var	1
	line	65
	colm	30
	synt	any
	invoke	2
	goto	L42
lab L41
	var	16
	pnull
	var	14
	line	67
	colm	33
	synt	any
	field	sel_type
	int	2
	line	67
	colm	30
	synt	any
	invoke	2
lab L42
	line	60
	colm	19
	synt	endifelse
	line	53
	colm	17
	synt	endif
	goto	L8
lab L35
	mark	L51
	ccase
	int	8
	line	126
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L52
	pnull
	var	22
	pnull
	var	23
	var	24
	pnull
	pnull
	var	14
	line	128
	colm	52
	synt	any
	field	signature
	line	128
	colm	64
	synt	any
	field	fsig_result_sig
	var	25
	var	25
	line	128
	colm	40
	synt	any
	invoke	4
	int	2
	line	128
	colm	93
	synt	any
	numeq
	line	128
	colm	29
	synt	any
	asgn
	unmark
lab L52
	mark	L53
	var	16
	pnull
	var	14
	line	129
	colm	29
	synt	any
	field	fc_body
	var	22
	line	129
	colm	26
	synt	any
	invoke	2
	unmark
lab L53
	mark	L54
	var	17
	var	14
	var	1
	line	130
	colm	27
	synt	any
	invoke	2
	unmark
lab L54
	mark	L55
	line	131
	colm	17
	synt	if
	mark0
	pnull
	var	18
	int	2
	line	131
	colm	28
	synt	any
	numeq
	pop
	pnull
	pnull
	pnull
	var	14
	line	132
	colm	23
	synt	any
	field	signature
	line	132
	colm	35
	synt	any
	field	fsig_result_sig
	int	3
	line	132
	colm	53
	synt	any
	numne
	unmark
	mark	L56
	pnull
	var	18
	int	0
	line	136
	colm	32
	synt	any
	asgn
	unmark
lab L56
	mark	L57
	line	137
	colm	25
	synt	if
	mark0
	pnull
	pnull
	pnull
	pnull
	var	14
	line	137
	colm	31
	synt	any
	field	signature
	line	137
	colm	43
	synt	any
	field	fsig_result_sig
	line	137
	colm	61
	synt	any
	field	kind
	int	9
	line	137
	colm	68
	synt	any
	numeq
	unmark
	var	17
	pnull
	pnull
	pnull
	var	14
	line	139
	colm	46
	synt	any
	field	signature
	line	139
	colm	58
	synt	any
	field	fsig_result_sig
	line	139
	colm	76
	synt	any
	field	val_denotation
	int	2
	line	139
	colm	43
	synt	any
	invoke	2
	line	137
	colm	25
	synt	endif
	unmark
lab L57
	mark	L58
	pnull
	var	6
	pnull
	pnull
	pnull
	var	14
	line	141
	colm	35
	synt	any
	field	signature
	line	141
	colm	47
	synt	any
	field	fsig_param_list
	line	141
	colm	64
	synt	any
	field	lh_first
	line	141
	colm	30
	synt	any
	asgn
	unmark
lab L58
	mark	L59
lab L60
	line	142
	colm	25
	synt	while
	mark0
	pnull
	var	6
	line	142
	colm	31
	synt	any
	nonnull
	unmark
	mark	L60
	mark	L63
	pnull
	var	7
	pnull
	var	6
	line	143
	colm	38
	synt	any
	field	cn_hd_field
	line	143
	colm	31
	synt	any
	asgn
	unmark
lab L63
	mark	L64
	pnull
	var	4
	pnull
	var	7
	line	144
	colm	38
	synt	any
	field	par_signature
	line	144
	colm	33
	synt	any
	asgn
	unmark
lab L64
	mark	L65
	line	145
	colm	29
	synt	if
	mark0
	pnull
	pnull
	var	4
	line	145
	colm	37
	synt	any
	field	kind
	int	10
	line	145
	colm	44
	synt	any
	numeq
	unmark
	var	17
	pnull
	var	4
	line	146
	colm	48
	synt	any
	field	var_denotation
	int	2
	line	146
	colm	43
	synt	any
	invoke	2
	line	145
	colm	29
	synt	endif
	unmark
lab L65
	pnull
	var	6
	pnull
	var	6
	line	149
	colm	41
	synt	any
	field	cn_tl_field
	line	149
	colm	34
	synt	any
	asgn
lab L61
	unmark
	goto	L60
lab L62
	line	142
	colm	25
	synt	endwhile
	unmark
lab L59
	pnull
	var	18
	int	2
	line	151
	colm	32
	synt	any
	asgn
	line	131
	colm	17
	synt	endif
	unmark
lab L55
	line	153
	colm	17
	synt	ifelse
	mark	L66
	pnull
	pnull
	pnull
	var	14
	line	153
	colm	23
	synt	any
	field	fc_body
	line	153
	colm	33
	synt	any
	field	kind
	int	11
	line	153
	colm	40
	synt	any
	numeq
	unmark
	mark	L68
	line	155
	colm	21
	synt	ifelse
	mark	L69
	var	26
	pnull
	pnull
	var	14
	line	155
	colm	36
	synt	any
	field	signature
	line	155
	colm	48
	synt	any
	field	fsig_param_list
	line	155
	colm	33
	synt	any
	invoke	1
	unmark
	pnull
	var	27
	var	25
	line	156
	colm	30
	synt	any
	asgn
	goto	L70
lab L69
	pnull
	var	27
	pnull
	var	28
	pnull
	pnull
	var	14
	line	158
	colm	40
	synt	any
	field	signature
	line	158
	colm	52
	synt	any
	field	fsig_param_list
	line	158
	colm	37
	synt	any
	invoke	1
	line	158
	colm	71
	synt	any
	field	par_signature
	line	158
	colm	30
	synt	any
	asgn
lab L70
	line	155
	colm	21
	synt	endifelse
	unmark
lab L68
	line	160
	colm	21
	synt	if
	mark0
	pnull
	var	23
	var	27
	var	29
	var	30
	var	30
	line	160
	colm	32
	synt	any
	invoke	4
	int	2
	line	160
	colm	59
	synt	any
	numne
	unmark
	mark	L71
	var	31
	var	14
	str	12
	line	161
	colm	32
	synt	any
	invoke	2
	unmark
lab L71
	pnull
	var	32
	dup
	int	0
	line	162
	colm	33
	synt	any
	minus
	asgn
	line	160
	colm	21
	synt	endif
	goto	L67
lab L66
	line	166
	colm	21
	synt	if
	mark0
	pnull
	var	22
	int	2
	line	166
	colm	37
	synt	any
	numeq
	pop
	pnull
	var	33
	pnull
	pnull
	var	14
	line	167
	colm	35
	synt	any
	field	fc_body
	line	167
	colm	45
	synt	any
	field	signature
	pnull
	pnull
	var	14
	line	168
	colm	35
	synt	any
	field	signature
	line	168
	colm	47
	synt	any
	field	fsig_result_sig
	line	167
	colm	32
	synt	any
	invoke	2
	line	167
	colm	25
	synt	any
	null
	unmark
	var	31
	var	14
	str	13
	line	169
	colm	44
	synt	any
	invoke	2
	line	166
	colm	21
	synt	endif
lab L67
	line	153
	colm	17
	synt	endifelse
	goto	L8
lab L51
	mark	L72
	ccase
	int	14
	line	174
	colm	11
	synt	any
	eqv
	unmark
	pop
	pnull
	goto	L8
lab L72
	mark	L73
	ccase
	int	15
	line	175
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L74
	var	17
	var	14
	var	1
	line	177
	colm	23
	synt	any
	invoke	2
	unmark
lab L74
	mark	L75
	pnull
	var	6
	pnull
	pnull
	var	14
	line	178
	colm	23
	synt	any
	field	ap_args
	line	178
	colm	32
	synt	any
	field	lh_first
	line	178
	colm	18
	synt	any
	asgn
	unmark
lab L75
	mark	L76
lab L77
	line	179
	colm	13
	synt	while
	mark0
	pnull
	var	6
	line	179
	colm	19
	synt	any
	nonnull
	unmark
	mark	L77
	mark	L80
	pnull
	var	7
	pnull
	var	6
	line	180
	colm	26
	synt	any
	field	cn_hd_field
	line	180
	colm	19
	synt	any
	asgn
	unmark
lab L80
	mark	L81
	var	16
	var	7
	int	2
	line	181
	colm	26
	synt	any
	invoke	2
	unmark
lab L81
	pnull
	var	6
	pnull
	var	6
	line	182
	colm	29
	synt	any
	field	cn_tl_field
	line	182
	colm	22
	synt	any
	asgn
lab L78
	unmark
	goto	L77
lab L79
	line	179
	colm	13
	synt	endwhile
	unmark
lab L76
	mark	L82
	pnull
	var	3
	pnull
	var	14
	line	184
	colm	21
	synt	any
	field	ap_operator
	line	184
	colm	16
	synt	any
	asgn
	unmark
lab L82
	mark	L83
	line	185
	colm	13
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	3
	line	185
	colm	20
	synt	any
	field	kind
	pnull
	int	1
	pnull
	var	3
	line	185
	colm	38
	synt	any
	field	kind
	line	185
	colm	32
	synt	any
	cat
	line	185
	colm	27
	synt	any
	numeq
	int	5
	line	185
	colm	45
	synt	any
	numeq
	unmark
	pnull
	pnull
	var	3
	line	187
	colm	20
	synt	any
	field	id_appl
	var	14
	line	187
	colm	30
	synt	any
	asgn
	line	185
	colm	13
	synt	endif
	unmark
lab L83
	mark	L84
	var	16
	var	3
	int	2
	line	189
	colm	22
	synt	any
	invoke	2
	unmark
lab L84
	mark	L85
	var	17
	var	14
	var	1
	line	190
	colm	23
	synt	any
	invoke	2
	unmark
lab L85
	line	191
	colm	13
	synt	if
	mark0
	pnull
	pnull
	var	14
	line	191
	colm	19
	synt	any
	field	signature
	int	3
	line	191
	colm	31
	synt	any
	numne
	pop
	pnull
	pnull
	var	3
	line	192
	colm	20
	synt	any
	field	signature
	int	3
	line	192
	colm	32
	synt	any
	numne
	unmark
	mark	L86
	pnull
	var	34
	pnull
	var	3
	line	193
	colm	34
	synt	any
	field	signature
	line	193
	colm	28
	synt	any
	asgn
	unmark
lab L86
	mark	L87
	line	201
	colm	21
	synt	if
	mark0
	pnull
	var	18
	int	2
	line	201
	colm	32
	synt	any
	numeq
	unmark
	mark	L88
	line	203
	colm	25
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	3
	line	203
	colm	35
	synt	any
	field	signature
	line	203
	colm	47
	synt	any
	field	fsig_inline_code
	line	203
	colm	29
	synt	any
	nonnull
	pop
	pnull
	pnull
	pnull
	var	3
	line	204
	colm	38
	synt	any
	field	signature
	line	204
	colm	50
	synt	any
	field	fsig_construction
	line	204
	colm	31
	synt	any
	nonnull
	unmark
	pnull
	pnull
	pnull
	var	3
	line	205
	colm	36
	synt	any
	field	signature
	line	205
	colm	48
	synt	any
	field	fsig_inline_code
	pnull
	pnull
	pnull
	pnull
	var	3
	line	205
	colm	72
	synt	any
	field	signature
	line	205
	colm	84
	synt	any
	field	fsig_construction
	line	205
	colm	104
	synt	any
	field	signature
	line	205
	colm	116
	synt	any
	field	fsig_inline_code
	line	205
	colm	67
	synt	any
	asgn
	line	203
	colm	25
	synt	endif
	unmark
lab L88
	mark	L89
	pnull
	var	18
	int	0
	line	208
	colm	32
	synt	any
	asgn
	unmark
lab L89
	mark	L90
	pnull
	var	35
	var	14
	line	209
	colm	34
	synt	any
	asgn
	unmark
lab L90
	mark	L91
	pnull
	var	36
	str	16
	line	210
	colm	33
	synt	any
	asgn
	unmark
lab L91
	mark	L92
	line	211
	colm	25
	synt	case
	mark0
	pnull
	pnull
	var	14
	line	211
	colm	33
	synt	any
	field	signature
	line	211
	colm	45
	synt	any
	field	kind
	eret
	mark	L94
	ccase
	int	9
	line	212
	colm	30
	synt	any
	eqv
	unmark
	pop
	var	17
	pnull
	pnull
	var	14
	line	213
	colm	46
	synt	any
	field	signature
	line	213
	colm	58
	synt	any
	field	val_denotation
	int	0
	line	213
	colm	43
	synt	any
	invoke	2
	goto	L93
lab L94
	mark	L95
	ccase
	int	10
	line	214
	colm	30
	synt	any
	eqv
	unmark
	pop
	var	17
	pnull
	pnull
	var	14
	line	215
	colm	46
	synt	any
	field	signature
	line	215
	colm	58
	synt	any
	field	var_denotation
	int	0
	line	215
	colm	43
	synt	any
	invoke	2
	goto	L93
lab L95
	efail
lab L93
	line	211
	colm	25
	synt	endcase
	unmark
lab L92
	mark	L96
	pnull
	var	18
	int	2
	line	217
	colm	32
	synt	any
	asgn
	unmark
lab L96
	pnull
	var	35
	var	25
	line	218
	colm	34
	synt	any
	asgn
	line	201
	colm	21
	synt	endif
	unmark
lab L87
	mark	L97
	pnull
	var	37
	var	38
	pnull
	var	14
	line	224
	colm	42
	synt	any
	field	ap_args
	line	224
	colm	39
	synt	any
	invoke	1
	line	224
	colm	30
	synt	any
	asgn
	unmark
lab L97
	mark	L98
	pnull
	var	9
	var	38
	pnull
	var	34
	line	225
	colm	49
	synt	any
	field	fsig_param_list
	line	225
	colm	41
	synt	any
	invoke	1
	line	225
	colm	32
	synt	any
	asgn
	unmark
lab L98
	line	226
	colm	21
	synt	ifelse
	mark	L99
	pnull
	var	37
	var	9
	line	226
	colm	34
	synt	any
	numne
	unmark
	var	31
	var	14
	str	17
	line	227
	colm	32
	synt	any
	invoke	2
	goto	L100
lab L99
	mark	L101
	pnull
	var	10
	pnull
	var	14
	line	229
	colm	35
	synt	any
	field	lh_first
	line	229
	colm	31
	synt	any
	asgn
	unmark
lab L101
	mark	L102
	pnull
	var	11
	pnull
	pnull
	var	34
	line	230
	colm	42
	synt	any
	field	fsig_param_list
	line	230
	colm	59
	synt	any
	field	lh_first
	line	230
	colm	31
	synt	any
	asgn
	unmark
lab L102
lab L103
	line	231
	colm	25
	synt	while
	mark0
	pnull
	var	10
	line	231
	colm	31
	synt	any
	nonnull
	pop
	pnull
	var	11
	line	231
	colm	40
	synt	any
	nonnull
	unmark
	mark	L103
	mark	L106
	pnull
	var	12
	pnull
	var	10
	line	232
	colm	39
	synt	any
	field	cn_hd_field
	line	232
	colm	31
	synt	any
	asgn
	unmark
lab L106
	mark	L107
	pnull
	var	13
	pnull
	var	11
	line	233
	colm	39
	synt	any
	field	cn_hd_field
	line	233
	colm	31
	synt	any
	asgn
	unmark
lab L107
	mark	L108
	mark	L109
	pnull
	var	4
	pnull
	var	12
	line	235
	colm	42
	synt	any
	field	signature
	line	235
	colm	37
	synt	any
	asgn
	unmark
lab L109
	mark	L110
	line	236
	colm	33
	synt	if
	mark0
	var	39
	var	12
	line	236
	colm	44
	synt	any
	invoke	1
	pop
	pnull
	pnull
	var	4
	line	237
	colm	42
	synt	any
	field	kind
	int	10
	line	237
	colm	49
	synt	any
	numeq
	pop
	pnull
	var	18
	int	2
	line	238
	colm	44
	synt	any
	numeq
	unmark
	mark	L111
	pnull
	var	18
	int	0
	line	240
	colm	48
	synt	any
	asgn
	unmark
lab L111
	mark	L112
	pnull
	var	35
	var	12
	line	241
	colm	50
	synt	any
	asgn
	unmark
lab L112
	mark	L113
	pnull
	var	36
	str	18
	line	242
	colm	49
	synt	any
	asgn
	unmark
lab L113
	mark	L114
	line	243
	colm	41
	synt	ifelse
	mark	L115
	pnull
	pnull
	var	4
	line	243
	colm	49
	synt	any
	field	kind
	int	9
	line	243
	colm	56
	synt	any
	numeq
	unmark
	pnull
	var	40
	pnull
	var	4
	line	244
	colm	55
	synt	any
	field	val_denotation
	line	244
	colm	49
	synt	any
	numeq
	goto	L116
lab L115
	pnull
	var	40
	pnull
	var	4
	line	246
	colm	55
	synt	any
	field	var_denotation
	line	246
	colm	49
	synt	any
	numeq
lab L116
	line	243
	colm	41
	synt	endifelse
	unmark
lab L114
	mark	L117
	var	17
	var	40
	int	0
	line	248
	colm	51
	synt	any
	invoke	2
	unmark
lab L117
	mark	L118
	pnull
	var	35
	var	30
	line	249
	colm	50
	synt	any
	asgn
	unmark
lab L118
	pnull
	var	18
	int	2
	line	250
	colm	48
	synt	any
	asgn
	line	236
	colm	33
	synt	endif
	unmark
lab L110
	mark	L119
	pnull
	var	41
	var	42
	pnull
	var	13
	line	252
	colm	52
	synt	any
	field	par_signature
	pnull
	var	34
	line	253
	colm	57
	synt	any
	field	fsig_param_list
	pnull
	var	14
	line	254
	colm	52
	synt	any
	field	ap_args
	line	252
	colm	49
	synt	any
	invoke	3
	line	252
	colm	41
	synt	any
	asgn
	unmark
lab L119
	mark	L120
	var	43
	var	41
	line	255
	colm	37
	synt	any
	invoke	1
	unmark
lab L120
	mark	L121
	line	256
	colm	33
	synt	if
	mark0
	pnull
	var	33
	pnull
	var	12
	line	256
	colm	47
	synt	any
	field	signature
	var	41
	line	256
	colm	44
	synt	any
	invoke	2
	line	256
	colm	37
	synt	any
	bang
	unmark
	mark	L122
	var	20
	str	19
	line	259
	colm	44
	synt	any
	invoke	1
	unmark
lab L122
	line	266
	colm	37
	synt	if
	mark0
	pnull
	var	44
	line	266
	colm	41
	synt	any
	nonnull
	unmark
	line	267
	colm	41
	synt	if
	mark0
	pnull
	pnull
	var	44
	line	267
	colm	57
	synt	any
	field	kind
	int	20
	line	267
	colm	64
	synt	any
	numeq
	unmark
	pnull
	line	267
	colm	41
	synt	endif
	line	266
	colm	37
	synt	endif
	line	256
	colm	33
	synt	endif
	unmark
lab L121
	var	45
	var	46
	var	41
	line	283
	colm	45
	synt	any
	invoke	1
	line	283
	colm	38
	synt	any
	invoke	1
	unmark
lab L108
	mark	L123
	pnull
	var	10
	pnull
	var	10
	line	285
	colm	43
	synt	any
	field	cn_tl_field
	line	285
	colm	35
	synt	any
	asgn
	unmark
lab L123
	pnull
	var	11
	pnull
	var	11
	line	286
	colm	43
	synt	any
	field	cn_tl_field
	line	286
	colm	35
	synt	any
	asgn
lab L104
	unmark
	goto	L103
lab L105
	line	231
	colm	25
	synt	endwhile
lab L100
	line	226
	colm	21
	synt	endifelse
	line	191
	colm	13
	synt	endif
	goto	L8
lab L73
	mark	L124
	ccase
	int	21
	line	291
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L125
	pnull
	var	6
	pnull
	var	14
	line	52
	colm	18
	synt	any
	field	lh_first
	line	52
	colm	14
	synt	any
	asgn
	unmark
lab L125
	mark	L126
lab L127
	line	53
	colm	9
	synt	while
	mark0
	pnull
	var	6
	line	53
	colm	15
	synt	any
	nonnull
	unmark
	mark	L127
	mark	L130
	pnull
	var	7
	pnull
	var	6
	line	54
	colm	22
	synt	any
	field	cn_hd_field
	line	54
	colm	15
	synt	any
	asgn
	unmark
lab L130
	mark	L131
	var	16
	pnull
	var	7
	line	55
	colm	25
	synt	any
	field	ge_guard
	int	2
	line	55
	colm	22
	synt	any
	invoke	2
	unmark
lab L131
	mark	L132
	var	16
	pnull
	var	7
	line	56
	colm	25
	synt	any
	field	ge_element
	pnull
	var	2
	pnull
	int	22
	var	1
	line	56
	colm	47
	synt	any
	cat
	line	56
	colm	42
	synt	any
	lexeq
	line	56
	colm	22
	synt	any
	invoke	2
	unmark
lab L132
	pnull
	var	6
	pnull
	var	6
	line	57
	colm	25
	synt	any
	field	cn_tl_field
	line	57
	colm	18
	synt	any
	asgn
lab L128
	unmark
	goto	L127
lab L129
	line	53
	colm	9
	synt	endwhile
	unmark
lab L126
	mark	L133
	var	17
	var	14
	var	1
	line	59
	colm	19
	synt	any
	invoke	2
	unmark
lab L133
	mark	L134
	pnull
	var	6
	pnull
	pnull
	var	14
	line	61
	colm	18
	synt	any
	field	gl_list
	line	61
	colm	26
	synt	any
	field	lh_first
	line	61
	colm	14
	synt	any
	asgn
	unmark
lab L134
	mark	L135
lab L136
	line	62
	colm	9
	synt	while
	mark0
	pnull
	var	6
	line	62
	colm	15
	synt	any
	nonnull
	unmark
	mark	L136
	mark	L139
	pnull
	var	7
	pnull
	var	6
	line	63
	colm	22
	synt	any
	field	lh_hd_field
	line	63
	colm	15
	synt	any
	asgn
	unmark
lab L139
	mark	L140
	line	64
	colm	13
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	7
	line	64
	colm	19
	synt	any
	field	ge_guard
	line	64
	colm	30
	synt	any
	field	signature
	int	3
	line	64
	colm	42
	synt	any
	numne
	pop
	pnull
	var	23
	pnull
	pnull
	var	7
	line	64
	colm	59
	synt	any
	field	ge_guard
	line	64
	colm	70
	synt	any
	field	signature
	var	47
	var	30
	var	30
	line	64
	colm	56
	synt	any
	invoke	4
	int	2
	line	64
	colm	105
	synt	any
	numne
	unmark
	var	20
	str	23
	line	65
	colm	36
	synt	any
	invoke	1
	line	64
	colm	13
	synt	endif
	unmark
lab L140
	pnull
	var	6
	pnull
	var	6
	line	73
	colm	25
	synt	any
	field	cn_tl_field
	line	73
	colm	18
	synt	any
	asgn
lab L137
	unmark
	goto	L136
lab L138
	line	62
	colm	9
	synt	endwhile
	unmark
lab L135
	line	75
	colm	9
	synt	if
	mark0
	pnull
	var	1
	int	2
	line	75
	colm	24
	synt	any
	numeq
	pop
	pnull
	var	2
	int	21
	line	75
	colm	34
	synt	any
	numeq
	pop
	pnull
	pnull
	var	14
	line	76
	colm	18
	synt	any
	field	signature
	int	3
	line	76
	colm	30
	synt	any
	numne
	unmark
	mark	L141
	pnull
	var	6
	pnull
	pnull
	var	14
	line	78
	colm	29
	synt	any
	field	g_list
	line	78
	colm	36
	synt	any
	field	lh_first
	line	78
	colm	25
	synt	any
	asgn
	unmark
lab L141
lab L142
	line	79
	colm	20
	synt	while
	mark0
	pnull
	var	6
	line	79
	colm	26
	synt	any
	nonnull
	unmark
	mark	L142
	mark	L145
	pnull
	var	7
	pnull
	var	6
	line	80
	colm	33
	synt	any
	field	cn_hd_field
	line	80
	colm	26
	synt	any
	asgn
	unmark
lab L145
	mark	L146
	line	82
	colm	24
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	7
	line	82
	colm	30
	synt	any
	field	ge_element
	line	82
	colm	43
	synt	any
	field	signature
	int	3
	line	82
	colm	55
	synt	any
	numne
	pop
	var	23
	pnull
	pnull
	var	7
	line	83
	colm	39
	synt	any
	field	ge_element
	line	83
	colm	52
	synt	any
	field	signature
	pnull
	var	14
	line	83
	colm	67
	synt	any
	field	signature
	var	30
	var	30
	line	83
	colm	36
	synt	any
	invoke	4
	pnull
	int	2
	line	83
	colm	91
	synt	any
	tabmat
	invoke	-1
	unmark
	var	20
	str	24
	line	84
	colm	50
	synt	any
	invoke	1
	line	82
	colm	24
	synt	endif
	unmark
lab L146
	pnull
	var	6
	pnull
	var	6
	line	93
	colm	36
	synt	any
	field	cn_tl_fild
	line	93
	colm	29
	synt	any
	asgn
lab L143
	unmark
	goto	L142
lab L144
	line	79
	colm	20
	synt	endwhile
	line	75
	colm	9
	synt	endif
	goto	L8
lab L124
	mark	L147
	ccase
	int	22
	line	295
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L148
	pnull
	var	6
	pnull
	var	14
	line	52
	colm	18
	synt	any
	field	lh_first
	line	52
	colm	14
	synt	any
	asgn
	unmark
lab L148
	mark	L149
lab L150
	line	53
	colm	9
	synt	while
	mark0
	pnull
	var	6
	line	53
	colm	15
	synt	any
	nonnull
	unmark
	mark	L150
	mark	L153
	pnull
	var	7
	pnull
	var	6
	line	54
	colm	22
	synt	any
	field	cn_hd_field
	line	54
	colm	15
	synt	any
	asgn
	unmark
lab L153
	mark	L154
	var	16
	pnull
	var	7
	line	55
	colm	25
	synt	any
	field	ge_guard
	int	2
	line	55
	colm	22
	synt	any
	invoke	2
	unmark
lab L154
	mark	L155
	var	16
	pnull
	var	7
	line	56
	colm	25
	synt	any
	field	ge_element
	pnull
	var	2
	pnull
	int	22
	var	1
	line	56
	colm	47
	synt	any
	cat
	line	56
	colm	42
	synt	any
	lexeq
	line	56
	colm	22
	synt	any
	invoke	2
	unmark
lab L155
	pnull
	var	6
	pnull
	var	6
	line	57
	colm	25
	synt	any
	field	cn_tl_field
	line	57
	colm	18
	synt	any
	asgn
lab L151
	unmark
	goto	L150
lab L152
	line	53
	colm	9
	synt	endwhile
	unmark
lab L149
	mark	L156
	var	17
	var	14
	var	1
	line	59
	colm	19
	synt	any
	invoke	2
	unmark
lab L156
	mark	L157
	pnull
	var	6
	pnull
	pnull
	var	14
	line	61
	colm	18
	synt	any
	field	gl_list
	line	61
	colm	26
	synt	any
	field	lh_first
	line	61
	colm	14
	synt	any
	asgn
	unmark
lab L157
	mark	L158
lab L159
	line	62
	colm	9
	synt	while
	mark0
	pnull
	var	6
	line	62
	colm	15
	synt	any
	nonnull
	unmark
	mark	L159
	mark	L162
	pnull
	var	7
	pnull
	var	6
	line	63
	colm	22
	synt	any
	field	lh_hd_field
	line	63
	colm	15
	synt	any
	asgn
	unmark
lab L162
	mark	L163
	line	64
	colm	13
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	7
	line	64
	colm	19
	synt	any
	field	ge_guard
	line	64
	colm	30
	synt	any
	field	signature
	int	3
	line	64
	colm	42
	synt	any
	numne
	pop
	pnull
	var	23
	pnull
	pnull
	var	7
	line	64
	colm	59
	synt	any
	field	ge_guard
	line	64
	colm	70
	synt	any
	field	signature
	var	47
	var	30
	var	30
	line	64
	colm	56
	synt	any
	invoke	4
	int	2
	line	64
	colm	105
	synt	any
	numne
	unmark
	var	20
	str	23
	line	65
	colm	36
	synt	any
	invoke	1
	line	64
	colm	13
	synt	endif
	unmark
lab L163
	pnull
	var	6
	pnull
	var	6
	line	73
	colm	25
	synt	any
	field	cn_tl_field
	line	73
	colm	18
	synt	any
	asgn
lab L160
	unmark
	goto	L159
lab L161
	line	62
	colm	9
	synt	endwhile
	unmark
lab L158
	line	75
	colm	9
	synt	if
	mark0
	pnull
	var	1
	int	2
	line	75
	colm	24
	synt	any
	numeq
	pop
	pnull
	var	2
	int	21
	line	75
	colm	34
	synt	any
	numeq
	pop
	pnull
	pnull
	var	14
	line	76
	colm	18
	synt	any
	field	signature
	int	3
	line	76
	colm	30
	synt	any
	numne
	unmark
	mark	L164
	pnull
	var	6
	pnull
	pnull
	var	14
	line	78
	colm	29
	synt	any
	field	g_list
	line	78
	colm	36
	synt	any
	field	lh_first
	line	78
	colm	25
	synt	any
	asgn
	unmark
lab L164
lab L165
	line	79
	colm	20
	synt	while
	mark0
	pnull
	var	6
	line	79
	colm	26
	synt	any
	nonnull
	unmark
	mark	L165
	mark	L168
	pnull
	var	7
	pnull
	var	6
	line	80
	colm	33
	synt	any
	field	cn_hd_field
	line	80
	colm	26
	synt	any
	asgn
	unmark
lab L168
	mark	L169
	line	82
	colm	24
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	7
	line	82
	colm	30
	synt	any
	field	ge_element
	line	82
	colm	43
	synt	any
	field	signature
	int	3
	line	82
	colm	55
	synt	any
	numne
	pop
	var	23
	pnull
	pnull
	var	7
	line	83
	colm	39
	synt	any
	field	ge_element
	line	83
	colm	52
	synt	any
	field	signature
	pnull
	var	14
	line	83
	colm	67
	synt	any
	field	signature
	var	30
	var	30
	line	83
	colm	36
	synt	any
	invoke	4
	pnull
	int	2
	line	83
	colm	91
	synt	any
	tabmat
	invoke	-1
	unmark
	var	20
	str	24
	line	84
	colm	50
	synt	any
	invoke	1
	line	82
	colm	24
	synt	endif
	unmark
lab L169
	pnull
	var	6
	pnull
	var	6
	line	93
	colm	36
	synt	any
	field	cn_tl_fild
	line	93
	colm	29
	synt	any
	asgn
lab L166
	unmark
	goto	L165
lab L167
	line	79
	colm	20
	synt	endwhile
	line	75
	colm	9
	synt	endif
	goto	L8
lab L147
	mark	L170
	ccase
	int	25
	line	300
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L171
	pnull
	var	6
	pnull
	pnull
	var	14
	line	302
	colm	27
	synt	any
	field	bld_declaration_list
	line	302
	colm	49
	synt	any
	field	lh_first
	line	302
	colm	23
	synt	any
	asgn
	unmark
lab L171
	mark	L172
lab L173
	line	303
	colm	17
	synt	while
	mark0
	pnull
	var	6
	line	303
	colm	23
	synt	any
	nonnull
	unmark
	mark	L173
	mark	L176
	pnull
	var	7
	pnull
	var	6
	line	304
	colm	30
	synt	any
	field	cn_hd_field
	line	304
	colm	23
	synt	any
	asgn
	unmark
lab L176
	mark	L177
	var	16
	pnull
	var	7
	line	305
	colm	33
	synt	any
	field	decl_denotation
	int	2
	line	305
	colm	30
	synt	any
	invoke	2
	unmark
lab L177
	mark	L178
	line	306
	colm	21
	synt	if
	mark0
	pnull
	pnull
	var	7
	line	306
	colm	30
	synt	any
	field	decl_signature
	line	306
	colm	25
	synt	any
	nonnull
	pop
	pnull
	pnull
	pnull
	var	7
	line	307
	colm	27
	synt	any
	field	decl_denotation
	line	307
	colm	45
	synt	any
	field	signature
	int	3
	line	307
	colm	57
	synt	any
	numne
	pop
	pnull
	var	23
	pnull
	var	7
	line	308
	colm	35
	synt	any
	field	decl_signature
	pnull
	pnull
	var	7
	line	308
	colm	53
	synt	any
	field	decl_denotation
	line	308
	colm	71
	synt	any
	field	signature
	var	30
	var	30
	line	308
	colm	32
	synt	any
	invoke	4
	int	2
	line	308
	colm	94
	synt	any
	numne
	unmark
	mark	L179
	var	31
	var	7
	str	26
	line	309
	colm	36
	synt	any
	invoke	2
	unmark
lab L179
	line	317
	colm	29
	synt	if
	mark0
	pnull
	pnull
	var	7
	line	317
	colm	38
	synt	any
	field	decl_signature
	line	317
	colm	33
	synt	any
	null
	unmark
	mark	L180
	pnull
	pnull
	var	7
	line	318
	colm	35
	synt	any
	field	decl_signature
	pnull
	pnull
	var	7
	line	318
	colm	57
	synt	any
	field	decl_denotation
	line	318
	colm	75
	synt	any
	field	signature
	line	318
	colm	52
	synt	any
	asgn
	unmark
lab L180
	pnull
	pnull
	var	7
	line	319
	colm	35
	synt	any
	field	decl_sig_done
	int	3
	line	319
	colm	51
	synt	any
	asgn
	line	317
	colm	29
	synt	endif
	line	306
	colm	21
	synt	endif
	unmark
lab L178
	pnull
	var	6
	pnull
	var	6
	line	322
	colm	33
	synt	any
	field	cn_tl_field
	line	322
	colm	26
	synt	any
	asgn
lab L174
	unmark
	goto	L173
lab L175
	line	303
	colm	17
	synt	endwhile
	unmark
lab L172
	mark	L181
	pnull
	var	6
	pnull
	pnull
	var	14
	line	325
	colm	26
	synt	any
	field	bld_den_seq
	line	325
	colm	38
	synt	any
	field	lh_first
	line	325
	colm	22
	synt	any
	asgn
	unmark
lab L181
	mark	L182
lab L183
	line	326
	colm	17
	synt	while
	mark0
	pnull
	var	6
	line	326
	colm	23
	synt	any
	nonnull
	unmark
	mark	L183
	mark	L186
	pnull
	var	7
	pnull
	var	6
	line	327
	colm	30
	synt	any
	field	cn_hd_field
	line	327
	colm	23
	synt	any
	asgn
	unmark
lab L186
	mark	L187
	line	330
	colm	25
	synt	ifelse
	mark	L188
	pnull
	var	7
	pnull
	pnull
	var	14
	line	330
	colm	37
	synt	any
	field	bld_den_seq
	line	330
	colm	51
	synt	any
	field	lh_last
	line	330
	colm	31
	synt	any
	eqv
	unmark
	var	16
	var	7
	var	1
	line	331
	colm	38
	synt	any
	invoke	2
	goto	L189
lab L188
	var	16
	var	7
	int	0
	line	333
	colm	38
	synt	any
	invoke	2
lab L189
	line	330
	colm	25
	synt	endifelse
	unmark
lab L187
	pnull
	var	6
	pnull
	var	6
	line	336
	colm	32
	synt	any
	field	cn_tl_field
	line	336
	colm	25
	synt	any
	asgn
lab L184
	unmark
	goto	L183
lab L185
	line	326
	colm	17
	synt	endwhile
	unmark
lab L182
	var	17
	var	14
	var	1
	line	338
	colm	27
	synt	any
	invoke	2
	goto	L8
lab L170
	mark	L190
	ccase
	int	27
	line	340
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L191
	pnull
	var	6
	pnull
	pnull
	var	14
	line	342
	colm	22
	synt	any
	field	usl_type_list
	line	342
	colm	36
	synt	any
	field	lh_first
	line	342
	colm	18
	synt	any
	asgn
	unmark
lab L191
	mark	L192
lab L193
	line	343
	colm	13
	synt	while
	mark0
	pnull
	var	6
	line	343
	colm	19
	synt	any
	nonnull
	unmark
	mark	L193
	mark	L196
	pnull
	var	7
	pnull
	var	6
	line	345
	colm	30
	synt	any
	field	cn_hd_field
	line	345
	colm	23
	synt	any
	asgn
	unmark
lab L196
	mark	L197
	var	16
	var	7
	int	2
	line	346
	colm	30
	synt	any
	invoke	2
	unmark
lab L197
	mark	L198
	line	347
	colm	21
	synt	if
	mark0
	pnull
	pnull
	var	7
	line	347
	colm	27
	synt	any
	field	signature
	int	3
	line	347
	colm	39
	synt	any
	numne
	unmark
	mark	L199
	line	348
	colm	25
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	7
	line	348
	colm	31
	synt	any
	field	signature
	line	348
	colm	43
	synt	any
	field	kind
	int	28
	line	348
	colm	50
	synt	any
	numne
	unmark
	pnull
	pnull
	var	7
	line	350
	colm	35
	synt	any
	field	signature
	var	48
	pnull
	var	7
	line	350
	colm	66
	synt	any
	field	signature
	line	350
	colm	63
	synt	any
	invoke	1
	line	350
	colm	47
	synt	any
	asgn
	line	348
	colm	25
	synt	endif
	unmark
lab L199
	line	352
	colm	25
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	7
	line	352
	colm	31
	synt	any
	field	signature
	line	352
	colm	43
	synt	any
	field	kind
	int	28
	line	352
	colm	50
	synt	any
	numne
	unmark
	var	20
	str	29
	line	353
	colm	36
	synt	any
	invoke	1
	line	352
	colm	25
	synt	endif
	line	347
	colm	21
	synt	endif
	unmark
lab L198
	pnull
	var	6
	pnull
	var	6
	line	356
	colm	33
	synt	any
	field	cn_tl_field
	line	356
	colm	26
	synt	any
	asgn
lab L194
	unmark
	goto	L193
lab L195
	line	343
	colm	13
	synt	endwhile
	unmark
lab L192
	mark	L200
	pnull
	var	6
	pnull
	pnull
	var	14
	line	358
	colm	22
	synt	any
	field	usl_den_seq
	line	358
	colm	34
	synt	any
	field	lh_first
	line	358
	colm	18
	synt	any
	asgn
	unmark
lab L200
	mark	L201
lab L202
	line	359
	colm	13
	synt	while
	mark0
	pnull
	var	6
	line	359
	colm	19
	synt	any
	nonnull
	unmark
	mark	L202
	mark	L205
	pnull
	var	7
	pnull
	var	6
	line	361
	colm	30
	synt	any
	field	cn_hd_field
	line	361
	colm	23
	synt	any
	asgn
	unmark
lab L205
	mark	L206
	line	363
	colm	25
	synt	ifelse
	mark	L207
	pnull
	var	7
	var	28
	pnull
	var	14
	line	363
	colm	40
	synt	any
	field	usl_den_seq
	line	363
	colm	37
	synt	any
	invoke	1
	line	363
	colm	31
	synt	any
	numeq
	unmark
	var	16
	var	7
	var	1
	line	364
	colm	38
	synt	any
	invoke	2
	goto	L208
lab L207
	var	16
	var	7
	int	0
	line	366
	colm	38
	synt	any
	invoke	2
lab L208
	line	363
	colm	25
	synt	endifelse
	unmark
lab L206
	pnull
	var	6
	pnull
	var	6
	line	369
	colm	33
	synt	any
	field	cn_tl_field
	line	369
	colm	26
	synt	any
	asgn
lab L203
	unmark
	goto	L202
lab L204
	line	359
	colm	13
	synt	endwhile
	unmark
lab L201
	var	17
	var	14
	var	1
	line	371
	colm	23
	synt	any
	invoke	2
	goto	L8
lab L190
	mark	L209
	ccase
	int	30
	line	373
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	17
	var	14
	var	1
	line	375
	colm	27
	synt	any
	invoke	2
	goto	L8
lab L209
	mark	L210
	ccase
	int	31
	line	378
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L211
	mark	L212
	var	16
	pnull
	var	14
	line	381
	colm	29
	synt	any
	field	mp_primary
	int	2
	line	381
	colm	26
	synt	any
	invoke	2
	unmark
lab L212
	line	386
	colm	17
	synt	if
	mark0
	pnull
	pnull
	var	7
	var	49
	var	14
	var	1
	line	386
	colm	32
	synt	any
	invoke	2
	line	386
	colm	23
	synt	any
	numeq
	int	2
	line	386
	colm	50
	synt	any
	numne
	unmark
	mark	L213
	var	20
	str	32
	line	387
	colm	28
	synt	any
	invoke	1
	unmark
lab L213
	mark	L214
	pnull
	pnull
	var	14
	line	391
	colm	22
	synt	any
	field	sig_done
	int	3
	line	391
	colm	33
	synt	any
	asgn
	unmark
lab L214
	pnull
	pnull
	var	14
	line	392
	colm	23
	synt	any
	field	signature
	int	3
	line	392
	colm	35
	synt	any
	asgn
	line	386
	colm	17
	synt	endif
	unmark
lab L211
	mark	L215
	line	395
	colm	13
	synt	if
	mark0
	pnull
	var	18
	int	2
	line	395
	colm	24
	synt	any
	numeq
	pop
	var	39
	pnull
	var	14
	line	395
	colm	40
	synt	any
	field	mp_primary
	line	395
	colm	37
	synt	any
	invoke	1
	unmark
	mark	L216
	pnull
	var	35
	var	14
	line	397
	colm	26
	synt	any
	asgn
	unmark
lab L216
	mark	L217
	pnull
	var	36
	str	33
	line	398
	colm	25
	synt	any
	asgn
	unmark
lab L217
	mark	L218
	var	16
	pnull
	pnull
	var	14
	line	399
	colm	29
	synt	any
	field	mp_primary
	line	399
	colm	42
	synt	any
	field	signature
	int	2
	line	399
	colm	26
	synt	any
	invoke	2
	unmark
lab L218
	pnull
	var	35
	var	25
	line	400
	colm	26
	synt	any
	asgn
	line	395
	colm	13
	synt	endif
	unmark
lab L215
	line	402
	colm	13
	synt	ifelse
	mark	L219
	pnull
	pnull
	var	14
	line	402
	colm	23
	synt	any
	field	mp_type_modifier
	line	402
	colm	18
	synt	any
	nonnull
	pop
	pnull
	pnull
	pnull
	var	14
	line	403
	colm	19
	synt	any
	field	mp_type_modifier
	line	403
	colm	38
	synt	any
	field	kind
	int	34
	line	403
	colm	45
	synt	any
	numeq
	unmark
	mark	L221
	pnull
	var	6
	pnull
	pnull
	pnull
	var	14
	line	405
	colm	30
	synt	any
	field	mp_type_modifier
	line	405
	colm	49
	synt	any
	field	wl_component_list
	line	405
	colm	69
	synt	any
	field	lh_first
	line	405
	colm	26
	synt	any
	asgn
	unmark
lab L221
	mark	L222
lab L223
	line	406
	colm	21
	synt	while
	mark0
	pnull
	var	6
	line	406
	colm	27
	synt	any
	nonnull
	unmark
	mark	L223
	mark	L226
	pnull
	var	7
	pnull
	var	6
	line	407
	colm	34
	synt	any
	field	lh_firs
	line	407
	colm	27
	synt	any
	asgn
	unmark
lab L226
	mark	L227
	mark	L228
	var	50
	line	410
	colm	37
	synt	if
	mark0
	pnull
	pnull
	var	7
	line	410
	colm	43
	synt	any
	field	kind
	int	0
	line	410
	colm	50
	synt	any
	numne
	unmark
	var	51
	str	35
	line	411
	colm	47
	synt	any
	invoke	1
	line	410
	colm	37
	synt	endif
	line	409
	colm	36
	synt	any
	invoke	1
	unmark
lab L228
	mark	L229
	var	16
	pnull
	var	7
	line	414
	colm	41
	synt	any
	field	decl_denotation
	var	1
	line	414
	colm	38
	synt	any
	invoke	2
	unmark
lab L229
	line	415
	colm	29
	synt	if
	mark0
	pnull
	pnull
	var	7
	line	415
	colm	38
	synt	any
	field	decl_signature
	line	415
	colm	33
	synt	any
	nonnull
	pop
	pnull
	pnull
	pnull
	var	7
	line	416
	colm	37
	synt	any
	field	decl_denotation
	line	416
	colm	55
	synt	any
	field	signature
	int	3
	line	416
	colm	67
	synt	any
	numne
	pop
	pnull
	var	23
	pnull
	var	7
	line	417
	colm	44
	synt	any
	field	decl_signature
	pnull
	pnull
	var	7
	line	417
	colm	64
	synt	any
	field	decl_denotation
	line	417
	colm	82
	synt	any
	field	signature
	var	25
	var	25
	line	417
	colm	41
	synt	any
	invoke	4
	int	2
	line	417
	colm	105
	synt	any
	numne
	unmark
	var	20
	str	36
	line	418
	colm	45
	synt	any
	invoke	1
	line	415
	colm	29
	synt	endif
	unmark
lab L227
	pnull
	var	6
	pnull
	var	6
	line	421
	colm	37
	synt	any
	field	cn_tl_field
	line	421
	colm	30
	synt	any
	asgn
lab L224
	unmark
	goto	L223
lab L225
	line	406
	colm	21
	synt	endwhile
	unmark
lab L222
	mark	L230
	var	17
	var	14
	var	1
	line	423
	colm	31
	synt	any
	invoke	2
	unmark
lab L230
	line	424
	colm	21
	synt	if
	mark0
	pnull
	var	18
	int	2
	line	424
	colm	32
	synt	any
	numeq
	pop
	var	39
	var	14
	line	424
	colm	45
	synt	any
	invoke	1
	unmark
	mark	L231
	pnull
	var	52
	var	43
	var	53
	pnull
	pnull
	var	14
	line	427
	colm	60
	synt	any
	field	mp_primary
	line	427
	colm	73
	synt	any
	field	signature
	pnull
	var	14
	line	427
	colm	90
	synt	any
	field	mp_delete_v
	line	427
	colm	57
	synt	any
	invoke	2
	line	427
	colm	49
	synt	any
	invoke	1
	line	427
	colm	42
	synt	any
	asgn
	unmark
lab L231
	mark	L232
	pnull
	var	35
	var	14
	line	429
	colm	34
	synt	any
	asgn
	unmark
lab L232
	mark	L233
	pnull
	var	36
	str	37
	line	430
	colm	33
	synt	any
	asgn
	unmark
lab L233
	mark	L234
	var	16
	var	52
	int	2
	line	431
	colm	34
	synt	any
	invoke	2
	unmark
lab L234
	mark	L235
	var	45
	var	46
	var	52
	line	432
	colm	37
	synt	any
	invoke	1
	line	432
	colm	30
	synt	any
	invoke	1
	unmark
lab L235
	mark	L236
	pnull
	var	36
	str	38
	line	435
	colm	33
	synt	any
	asgn
	unmark
lab L236
	mark	L237
	var	16
	pnull
	var	14
	line	436
	colm	36
	synt	any
	field	signature
	int	2
	line	436
	colm	34
	synt	any
	invoke	2
	unmark
lab L237
	pnull
	var	35
	var	25
	line	437
	colm	34
	synt	any
	asgn
	line	424
	colm	21
	synt	endif
	goto	L220
lab L219
	mark	L238
	var	17
	var	14
	var	1
	line	440
	colm	31
	synt	any
	invoke	2
	unmark
lab L238
	line	442
	colm	21
	synt	if
	mark0
	pnull
	var	18
	int	2
	line	442
	colm	32
	synt	any
	numeq
	pop
	var	39
	var	14
	line	442
	colm	45
	synt	any
	invoke	1
	unmark
	mark	L239
	pnull
	var	35
	var	14
	line	443
	colm	34
	synt	any
	asgn
	unmark
lab L239
	mark	L240
	pnull
	var	36
	str	37
	line	444
	colm	33
	synt	any
	asgn
	unmark
lab L240
	mark	L241
	var	16
	pnull
	var	14
	line	445
	colm	37
	synt	any
	field	signature
	int	2
	line	445
	colm	34
	synt	any
	invoke	2
	unmark
lab L241
	pnull
	var	35
	var	25
	line	446
	colm	34
	synt	any
	asgn
	line	442
	colm	21
	synt	endif
lab L220
	line	402
	colm	13
	synt	endifelse
	goto	L8
lab L210
	mark	L242
	ccase
	int	39
	line	450
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L243
	var	17
	var	14
	var	1
	line	452
	colm	23
	synt	any
	invoke	2
	unmark
lab L243
	mark	L244
	pnull
	var	6
	pnull
	pnull
	var	14
	line	453
	colm	22
	synt	any
	field	rec_component_list
	line	453
	colm	42
	synt	any
	field	lh_first
	line	453
	colm	18
	synt	any
	asgn
	unmark
lab L244
lab L245
	line	454
	colm	13
	synt	while
	mark0
	pnull
	var	6
	line	454
	colm	19
	synt	any
	nonnull
	unmark
	mark	L245
	mark	L248
	pnull
	var	7
	pnull
	var	6
	line	455
	colm	26
	synt	any
	field	cn_hd_field
	line	455
	colm	19
	synt	any
	asgn
	unmark
lab L248
	mark	L249
	var	17
	pnull
	var	7
	line	456
	colm	30
	synt	any
	field	re_denotation
	line	456
	colm	27
	synt	any
	invoke	1
	unmark
lab L249
	mark	L250
	line	457
	colm	17
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	7
	line	457
	colm	23
	synt	any
	field	re_denotation
	line	457
	colm	39
	synt	any
	field	signature
	int	3
	line	457
	colm	51
	synt	any
	numne
	pop
	pnull
	pnull
	pnull
	pnull
	var	7
	line	458
	colm	23
	synt	any
	field	re_denotation
	line	458
	colm	39
	synt	any
	field	signature
	line	458
	colm	51
	synt	any
	field	kind
	int	28
	line	458
	colm	65
	synt	any
	numne
	unmark
	var	20
	str	40
	line	459
	colm	32
	synt	any
	invoke	1
	line	457
	colm	17
	synt	endif
	unmark
lab L250
	pnull
	var	6
	pnull
	var	6
	line	461
	colm	29
	synt	any
	field	cn_tail_field
	line	461
	colm	22
	synt	any
	asgn
lab L246
	unmark
	goto	L245
lab L247
	line	454
	colm	13
	synt	endwhile
	goto	L8
lab L242
	mark	L251
	ccase
	int	41
	line	465
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L252
	var	17
	var	14
	var	1
	line	51
	colm	15
	synt	any
	invoke	2
	unmark
lab L252
	mark	L253
	pnull
	var	6
	pnull
	pnull
	var	14
	line	52
	colm	14
	synt	any
	field	cn_hd_field
	line	52
	colm	26
	synt	any
	field	lh_first
	line	52
	colm	10
	synt	any
	asgn
	unmark
lab L253
lab L254
	line	53
	colm	5
	synt	while
	mark0
	pnull
	var	6
	line	53
	colm	11
	synt	any
	nonnull
	unmark
	mark	L254
	mark	L257
	pnull
	var	7
	pnull
	var	6
	line	54
	colm	18
	synt	any
	field	cn_hd_field
	line	54
	colm	11
	synt	any
	asgn
	unmark
lab L257
	mark	L258
	line	55
	colm	9
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	7
	line	55
	colm	15
	synt	any
	field	par_signature
	line	55
	colm	31
	synt	any
	field	kind
	int	10
	line	55
	colm	38
	synt	any
	numeq
	unmark
	line	56
	colm	13
	synt	case
	mark0
	pnull
	pnull
	var	14
	line	56
	colm	20
	synt	any
	field	cn_hd_field
	line	56
	colm	33
	synt	any
	field	kind
	eret
	mark	L260
	ccase
	int	42
	line	57
	colm	19
	synt	any
	eqv
	unmark
	pop
	var	20
	str	43
	line	58
	colm	28
	synt	any
	invoke	1
	goto	L259
lab L260
	mark	L261
	ccase
	int	41
	line	59
	colm	19
	synt	any
	eqv
	unmark
	pop
	var	20
	str	44
	line	60
	colm	28
	synt	any
	invoke	1
	goto	L259
lab L261
	efail
lab L259
	line	56
	colm	13
	synt	endcase
	line	55
	colm	9
	synt	endif
	unmark
lab L258
	pnull
	var	6
	pnull
	var	6
	line	63
	colm	21
	synt	any
	field	cn_tl_field
	line	63
	colm	14
	synt	any
	asgn
lab L255
	unmark
	goto	L254
lab L256
	line	53
	colm	5
	synt	endwhile
	goto	L8
lab L251
	mark	L262
	ccase
	int	42
	line	469
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L263
	var	17
	var	14
	var	1
	line	51
	colm	15
	synt	any
	invoke	2
	unmark
lab L263
	mark	L264
	pnull
	var	6
	pnull
	pnull
	var	14
	line	52
	colm	14
	synt	any
	field	cn_hd_field
	line	52
	colm	26
	synt	any
	field	lh_first
	line	52
	colm	10
	synt	any
	asgn
	unmark
lab L264
lab L265
	line	53
	colm	5
	synt	while
	mark0
	pnull
	var	6
	line	53
	colm	11
	synt	any
	nonnull
	unmark
	mark	L265
	mark	L268
	pnull
	var	7
	pnull
	var	6
	line	54
	colm	18
	synt	any
	field	cn_hd_field
	line	54
	colm	11
	synt	any
	asgn
	unmark
lab L268
	mark	L269
	line	55
	colm	9
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	7
	line	55
	colm	15
	synt	any
	field	par_signature
	line	55
	colm	31
	synt	any
	field	kind
	int	10
	line	55
	colm	38
	synt	any
	numeq
	unmark
	line	56
	colm	13
	synt	case
	mark0
	pnull
	pnull
	var	14
	line	56
	colm	20
	synt	any
	field	cn_hd_field
	line	56
	colm	33
	synt	any
	field	kind
	eret
	mark	L271
	ccase
	int	42
	line	57
	colm	19
	synt	any
	eqv
	unmark
	pop
	var	20
	str	43
	line	58
	colm	28
	synt	any
	invoke	1
	goto	L270
lab L271
	mark	L272
	ccase
	int	41
	line	59
	colm	19
	synt	any
	eqv
	unmark
	pop
	var	20
	str	44
	line	60
	colm	28
	synt	any
	invoke	1
	goto	L270
lab L272
	efail
lab L270
	line	56
	colm	13
	synt	endcase
	line	55
	colm	9
	synt	endif
	unmark
lab L269
	pnull
	var	6
	pnull
	var	6
	line	63
	colm	21
	synt	any
	field	cn_tl_field
	line	63
	colm	14
	synt	any
	asgn
lab L266
	unmark
	goto	L265
lab L267
	line	53
	colm	5
	synt	endwhile
	goto	L8
lab L262
	mark	L273
	ccase
	int	45
	line	473
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	17
	var	14
	var	1
	line	475
	colm	23
	synt	any
	invoke	2
	goto	L8
lab L273
	mark	L274
	ccase
	int	46
	line	477
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L275
	var	16
	pnull
	var	14
	line	479
	colm	25
	synt	any
	field	ext_denotation
	line	479
	colm	22
	synt	any
	invoke	1
	unmark
lab L275
	var	17
	var	14
	var	1
	line	480
	colm	23
	synt	any
	invoke	2
	goto	L8
lab L274
	mark	L276
	ccase
	int	28
	line	482
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L277
	pnull
	var	54
	var	18
	line	484
	colm	24
	synt	any
	asgn
	unmark
lab L277
	mark	L278
	pnull
	var	55
	var	56
	line	485
	colm	27
	synt	any
	asgn
	unmark
lab L278
	mark	L279
	line	487
	colm	13
	synt	if
	mark0
	pnull
	pnull
	var	14
	line	487
	colm	23
	synt	any
	field	signature
	line	487
	colm	18
	synt	any
	null
	unmark
	pnull
	pnull
	var	14
	line	488
	colm	19
	synt	any
	field	signature
	var	57
	line	488
	colm	31
	synt	any
	asgn
	line	487
	colm	13
	synt	endif
	unmark
lab L279
	mark	L280
	pnull
	pnull
	var	14
	line	490
	colm	15
	synt	any
	field	sig_done
	int	3
	line	490
	colm	26
	synt	any
	asgn
	unmark
lab L280
	mark	L281
	pnull
	var	18
	int	0
	line	491
	colm	20
	synt	any
	asgn
	unmark
lab L281
	mark	L282
	pnull
	var	56
	var	14
	line	492
	colm	23
	synt	any
	asgn
	unmark
lab L282
	mark	L283
	pnull
	var	6
	pnull
	pnull
	var	14
	line	494
	colm	24
	synt	any
	field	ts_clist
	line	494
	colm	34
	synt	any
	field	lh_first
	line	494
	colm	18
	synt	any
	asgn
	unmark
lab L283
	mark	L284
lab L285
	line	495
	colm	13
	synt	while
	mark0
	pnull
	var	6
	line	495
	colm	19
	synt	any
	nonnull
	unmark
	mark	L285
	mark	L288
	pnull
	var	12
	pnull
	var	6
	line	496
	colm	26
	synt	any
	field	cn_hd_field
	line	496
	colm	19
	synt	any
	asgn
	unmark
lab L288
	mark	L289
	line	498
	colm	21
	synt	if
	mark0
	pnull
	pnull
	var	12
	line	498
	colm	27
	synt	any
	field	kind
	int	47
	line	498
	colm	34
	synt	any
	numeq
	unmark
	var	16
	pnull
	var	12
	line	499
	colm	37
	synt	any
	field	tsc_signature
	int	2
	line	499
	colm	34
	synt	any
	invoke	2
	line	498
	colm	21
	synt	endif
	unmark
lab L289
	pnull
	var	6
	pnull
	var	6
	line	502
	colm	29
	synt	any
	field	cn_tl_field
	line	502
	colm	22
	synt	any
	asgn
lab L286
	unmark
	goto	L285
lab L287
	line	495
	colm	13
	synt	endwhile
	unmark
lab L284
	mark	L290
	pnull
	var	18
	var	54
	line	504
	colm	20
	synt	any
	asgn
	unmark
lab L290
	pnull
	var	56
	var	55
	line	505
	colm	23
	synt	any
	asgn
	goto	L8
lab L276
	mark	L291
	ccase
	int	48
	line	508
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L292
	line	512
	colm	13
	synt	if
	mark0
	pnull
	pnull
	var	14
	line	512
	colm	21
	synt	any
	field	signature
	line	512
	colm	17
	synt	any
	null
	unmark
	pnull
	pnull
	var	14
	line	513
	colm	19
	synt	any
	field	signature
	var	57
	line	513
	colm	31
	synt	any
	asgn
	line	512
	colm	13
	synt	endif
	unmark
lab L292
	mark	L293
	pnull
	pnull
	pnull
	var	14
	line	515
	colm	14
	synt	any
	field	cn_hd_field
	line	515
	colm	27
	synt	any
	field	sig_done
	int	3
	line	515
	colm	38
	synt	any
	asgn
	unmark
lab L293
	mark	L294
	pnull
	var	6
	pnull
	pnull
	var	14
	line	516
	colm	24
	synt	any
	field	fsig_param_list
	line	516
	colm	41
	synt	any
	field	lh_first
	line	516
	colm	18
	synt	any
	asgn
	unmark
lab L294
	mark	L295
lab L296
	line	517
	colm	13
	synt	while
	mark0
	pnull
	var	6
	line	517
	colm	19
	synt	any
	nonnull
	unmark
	mark	L296
	mark	L299
	pnull
	var	12
	pnull
	var	6
	line	518
	colm	26
	synt	any
	field	cn_hd_field
	line	518
	colm	19
	synt	any
	asgn
	unmark
lab L299
	mark	L300
	var	50
	line	521
	colm	25
	synt	if
	mark0
	pnull
	pnull
	var	12
	line	521
	colm	31
	synt	any
	field	kind
	pnull
	int	3
	pnull
	var	58
	pnull
	var	12
	line	521
	colm	56
	synt	any
	field	par_signature
	line	521
	colm	53
	synt	any
	invoke	1
	line	521
	colm	46
	synt	any
	bang
	line	521
	colm	43
	synt	any
	cat
	line	521
	colm	38
	synt	any
	numne
	unmark
	var	20
	str	49
	line	522
	colm	36
	synt	any
	invoke	1
	line	521
	colm	25
	synt	endif
	line	520
	colm	24
	synt	any
	invoke	1
	unmark
lab L300
	mark	L301
	var	16
	pnull
	var	12
	line	525
	colm	29
	synt	any
	field	par_signature
	int	2
	line	525
	colm	26
	synt	any
	invoke	2
	unmark
lab L301
	pnull
	var	6
	pnull
	var	6
	line	526
	colm	29
	synt	any
	field	cn_tl_field
	line	526
	colm	22
	synt	any
	asgn
lab L297
	unmark
	goto	L296
lab L298
	line	517
	colm	13
	synt	endwhile
	unmark
lab L295
	var	16
	pnull
	var	14
	line	528
	colm	25
	synt	any
	field	fsig_result_sig
	line	528
	colm	22
	synt	any
	invoke	1
	goto	L8
lab L291
	mark	L302
	ccase
	int	9
	line	530
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L303
	line	531
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	14
	line	531
	colm	17
	synt	any
	field	signature
	line	531
	colm	13
	synt	any
	null
	unmark
	pnull
	pnull
	var	14
	line	532
	colm	15
	synt	any
	field	signature
	var	57
	line	532
	colm	27
	synt	any
	asgn
	line	531
	colm	9
	synt	endif
	unmark
lab L303
	mark	L304
	pnull
	pnull
	var	14
	line	534
	colm	11
	synt	any
	field	sig_done
	int	3
	line	534
	colm	22
	synt	any
	asgn
	unmark
lab L304
	var	16
	pnull
	pnull
	var	14
	line	535
	colm	21
	synt	any
	field	cn_hd_field
	line	535
	colm	33
	synt	any
	field	val_denotation
	int	2
	line	535
	colm	18
	synt	any
	invoke	2
	goto	L8
lab L302
	mark	L305
	ccase
	int	10
	line	537
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L306
	line	538
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	14
	line	538
	colm	19
	synt	any
	field	signature
	line	538
	colm	14
	synt	any
	null
	unmark
	pnull
	pnull
	var	14
	line	539
	colm	15
	synt	any
	field	signature
	var	57
	line	539
	colm	27
	synt	any
	asgn
	line	538
	colm	9
	synt	endif
	unmark
lab L306
	mark	L307
	pnull
	pnull
	var	14
	line	541
	colm	11
	synt	any
	field	sig_done
	int	3
	line	541
	colm	22
	synt	any
	asgn
	unmark
lab L307
	var	16
	pnull
	var	14
	line	542
	colm	21
	synt	any
	field	var_denotation
	int	2
	line	542
	colm	18
	synt	any
	invoke	2
	goto	L8
lab L305
	mark	L308
	ccase
	int	50
	line	545
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L309
	line	546
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	14
	line	546
	colm	17
	synt	any
	field	signature
	line	546
	colm	13
	synt	any
	null
	unmark
	pnull
	pnull
	var	14
	line	547
	colm	15
	synt	any
	field	signature
	var	57
	line	547
	colm	27
	synt	any
	asgn
	line	546
	colm	9
	synt	endif
	unmark
lab L309
	pnull
	pnull
	var	14
	line	549
	colm	11
	synt	any
	field	sig_done
	int	3
	line	549
	colm	22
	synt	any
	asgn
	goto	L8
lab L308
	mark	L310
	ccase
	int	11
	line	551
	colm	7
	synt	any
	eqv
	unmark
	pop
	pnull
	goto	L8
lab L310
	pop
	var	20
	str	51
	line	553
	colm	16
	synt	any
	invoke	1
lab L8
	line	107
	colm	5
	synt	endcase
	unmark
lab L7
	mark	L311
	mark	L312
	int	0
	line	556
	colm	1
	synt	any
	pret
lab L312
	synt	any
	pfail
	unmark
lab L311
	pnull
	line	557
	colm	2
	synt	any
	pfail
	end
proc tl_checksigs
	local	0,001000,p
	local	1,000000,checksigs
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	564
	colm	12
	synt	any
	mark	L1
	var	1
	var	0
	int	0
	line	565
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	mark	L2
	mark	L3
	int	1
	line	567
	colm	1
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	568
	colm	2
	synt	any
	pfail
	end
