version	U12.1.00
uid	sig_out.tmp.u1-1444157220-0
record	decl_entry__state,5
	0,__s
	1,__m
	2,de_decl
	3,de_number
	4,de_next
record	decl_entry__methods,0
impl	error
global	198
	0,000001,dloadflag,0
	1,000001,initflag,0
	2,000001,BADflag,0
	3,000001,aflag,0
	4,000001,yydebug,0
	5,000001,ifname,0
	6,000001,ofname,0
	7,000001,sigfname,0
	8,000001,optfname,0
	9,000001,actual_ifname,0
	10,000001,Mflag,0
	11,000001,cflag,0
	12,000001,pflag,0
	13,000001,Lflag,0
	14,000001,Pflag,0
	15,000001,Tflag,0
	16,000001,Gflag,0
	17,000001,Vflag,0
	18,000001,Nflag,0
	19,000001,fflag,0
	20,000001,Fflag,0
	21,000001,Rflag,0
	22,000001,OOflag,0
	23,000001,OOOflag,0
	24,000001,Oflag,0
	25,000001,Xflag,0
	26,000001,xflag,0
	27,000001,hflag,0
	28,000001,dbgmsg,0
	29,000001,insrtptr,0
	30,000001,nil,0
	31,000001,indx_assign,0
	32,000001,indx_passign,0
	33,000001,indx_massign,0
	34,000001,indx_or,0
	35,000001,indx_and,0
	36,000001,indx_not,0
	37,000001,indx_equals,0
	38,000001,indx_less,0
	39,000001,indx_le,0
	40,000001,indx_ge,0
	41,000001,indx_ne,0
	42,000001,indx_greater,0
	43,000001,indx_plus,0
	44,000001,indx_minus,0
	45,000001,indx_times,0
	46,000001,indx_divide,0
	47,000001,indx_mod,0
	48,000001,indx_pconc,0
	49,000001,indx_sconc,0
	50,000001,indx_exp,0
	51,000001,indx_deref,0
	52,000001,indx_subscr,0
	53,000001,indx_New,0
	54,000001,indx_ValueOf,0
	55,000001,indx_First,0
	56,000001,indx_Last,0
	57,000001,indx_Pred,0
	58,000001,indx_Succ,0
	59,000001,indx_Ord,0
	60,000001,indx_OrdInv,0
	61,000001,indx_Card,0
	62,000001,indx_In,0
	63,000001,indx_Out,0
	64,000001,indx_put,0
	65,000001,indx_Callcc,0
	66,000001,indx_size,0
	67,000001,indx_ptr_New,0
	68,000001,indx_init_New,0
	69,000001,indx_empty,0
	70,000001,indx_standard,0
	71,000001,indx_inline,0
	72,000001,pend,0
	73,000001,indx_Boolean,0
	74,000001,indx_Void,0
	75,000001,indx_true,0
	76,000001,indx_false,0
	77,000001,indx_simple,0
	78,000001,indx_Null,0
	79,000001,indx_Mk,0
	80,000001,indx_Integer,0
	81,000001,indx_Array,0
	82,000001,sig_assign,0
	83,000001,sig_equals,0
	84,000001,sig_less,0
	85,000001,sig_greater,0
	86,000001,sig_New,0
	87,000001,sig_const,0
	88,000001,sig_ValueOf,0
	89,000001,sig_pconc,0
	90,000001,sig_sconc,0
	91,000001,sig_Signature,0
	92,000001,val_Boolean,0
	93,000001,val_Integer,0
	94,000001,val_Void,0
	95,000001,var_Void,0
	96,000001,sel_true,0
	97,000001,sel_false,0
	98,000001,id_Boolean,0
	99,000001,id_Integer,0
	100,000001,id_Void,0
	101,000001,id_put,0
	102,000001,id_ValueOf,0
	103,000001,id_New,0
	104,000001,id_size,0
	105,000001,id_Null,0
	106,000001,id_times,0
	107,000001,id_plus,0
	108,000001,appl_Null,0
	109,000001,yyvline,0
	110,000001,stt_table,0
	111,000001,stt_unique_cnt,0
	112,000001,stt_reference_cnt,0
	113,000001,reverse_stt,0
	114,000001,errfile,0
	115,000001,reduce,0
	116,000001,progress,0
	117,000001,debug_file,0
	118,000001,stats,0
	119,000001,nodes,0
	120,000001,ccode_file,0
	121,000001,nodes_created_file,0
	122,000001,lists_created_file,0
	123,000001,cons_file,0
	124,000001,line_cnt,0
	125,000001,char_cnt,0
	126,000001,token_cnt,0
	127,000001,reserved_id_cnt,0
	128,000001,reserved_op_cnt,0
	129,000001,numeral_cnt,0
	130,000001,nodes_total_cnt,0
	131,000001,nodes_made_cnt,0
	132,000001,lists_total_cnt,0
	133,000001,lists_made_cnt,0
	134,000001,yyn_switches_cnt,0
	135,000001,yyn_compute_cnt,0
	136,000001,newstate_cnt,0
	137,000001,setstate_cnt,0
	138,000001,backup_cnt,0
	139,000001,default_cnt,0
	140,000001,reduce_cnt,0
	141,000001,errlab_cnt,0
	142,000001,errlab1_cnt,0
	143,000001,defined_id_cnt,0
	144,000001,defined_op_cnt,0
	145,000001,seperator_cnt,0
	146,000001,RIC_table,0
	147,000001,RIC_op_code_cnt,0
	148,000001,RIC_table_entry_cnt,0
	149,000001,comments_cnt,0
	150,000001,sing_quoted_cnt,0
	151,000001,dbl_quoted_cnt,0
	152,000001,infile,0
	153,000001,optfile,0
	154,000001,entry_name,0
	155,000001,yyinfnm,0
	156,000001,yyline,0
	157,000001,addposition,0
	158,000001,inline_cnvt,0
	159,000001,Ginline_cnvt,0
	160,000001,Vinline_cnvt,0
	161,000001,paramstop,0
	162,000001,denseqstop,0
	163,000001,condstop,0
	164,000001,declstop,0
	165,000001,stxtree,0
	166,000001,yystate,0
	167,000001,global_fn_count,0
	168,000001,scanstk,0
	169,000001,stktop,0
	170,000001,scansavc,0
	171,000001,yydescr,0
	172,000001,has_externs,0
	173,000001,argcnt_from_kind,0
	174,000001,parser_actions_cnt,0
	175,000001,linebuf,0
	176,000001,restab,0
	177,000001,cctab,0
	178,000001,tokenlgth,0
	179,000001,decl_num,0
	180,000001,decl_nums,0
	181,000001,Outer_arg,0
	182,000001,file_sigs,0
	183,000001,decl_num_in,0
	184,000001,sig_table,0
	185,000001,unique_node_id,0
	186,000011,decl_entry__state,5
	187,000011,decl_entry__methods,0
	188,000001,decl_entry__oprec,0
	189,000005,decl_entry,3
	190,000005,decl_entryinitialize,0
	191,000005,add_decl,1
	192,000005,get_decl_num,1
	193,000005,put_string,2
	194,000005,put_name,2
	195,000005,sig_out,2
	196,000005,sig_out1,2
	197,000005,putw,2

proc decl_entry
	local	0,001000,de_decl
	local	1,001000,de_number
	local	2,001000,de_next
	local	3,000020,self
	local	4,000020,clone
	local	5,000000,decl_entry__oprec
	local	6,000000,decl_entryinitialize
	local	7,000000,decl_entry__state
	declend
	filen	sigio/sig_out.tmp.icn
	line	148
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	line	151
	colm	3
	synt	if
	mark0
	pnull
	var	5
	line	151
	colm	6
	synt	any
	null
	unmark
	var	6
	line	151
	colm	50
	synt	any
	invoke	0
	line	151
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	3
	var	7
	line	153
	colm	29
	synt	any
	keywd	null
	var	5
	var	0
	var	1
	var	2
	line	153
	colm	28
	synt	any
	invoke	5
	line	153
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	3
	line	154
	colm	7
	synt	any
	field	__s
	var	3
	line	154
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	var	3
	line	155
	colm	3
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	156
	colm	1
	synt	any
	pfail
	end
proc decl_entryinitialize
	local	0,000000,decl_entry__oprec
	local	1,000000,decl_entry__methods
	declend
	line	158
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	line	159
	colm	51
	synt	any
	invoke	0
	line	159
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	160
	colm	1
	synt	any
	pfail
	end
proc add_decl
	local	0,001000,decl
	local	1,000020,o
	local	2,000000,decl_num
	local	3,000000,decl_entry
	local	4,000000,decl_nums
	con	0,002000,1,1
	declend
	line	495
	colm	12
	synt	any
	mark	L1
	pnull
	var	2
	dup
	int	0
	line	497
	colm	10
	synt	any
	plus
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	var	3
	var	0
	var	2
	var	4
	line	498
	colm	20
	synt	any
	invoke	3
	line	498
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	4
	var	1
	line	499
	colm	15
	synt	any
	asgn
	unmark
lab L3
	pnull
	line	500
	colm	2
	synt	any
	pfail
	end
proc get_decl_num
	local	0,001000,decl
	local	1,000020,p
	local	2,000000,decl_nums
	con	0,002000,1,1
	declend
	line	505
	colm	12
	synt	any
	mark	L1
	pnull
	var	1
	var	2
	line	507
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	509
	colm	5
	synt	while
	mark0
	pnull
	var	1
	line	509
	colm	12
	synt	any
	nonnull
	unmark
	mark	L3
	mark	L6
	line	510
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	510
	colm	17
	synt	any
	field	pre_num
	pnull
	pnull
	var	1
	line	510
	colm	29
	synt	any
	field	de_decl
	line	510
	colm	37
	synt	any
	field	pre_num
	line	510
	colm	26
	synt	any
	numeq
	unmark
	mark	L7
	pnull
	var	1
	line	510
	colm	60
	synt	any
	field	de_number
	line	510
	colm	52
	synt	any
	pret
lab L7
	synt	any
	pfail
	line	510
	colm	9
	synt	endif
	unmark
lab L6
	pnull
	var	1
	pnull
	var	1
	line	511
	colm	15
	synt	any
	field	de_next
	line	511
	colm	11
	synt	any
	asgn
lab L4
	unmark
	goto	L3
lab L5
	line	509
	colm	5
	synt	endwhile
	unmark
lab L2
	mark	L8
	mark	L9
	pnull
	int	0
	line	513
	colm	12
	synt	any
	neg
	line	513
	colm	5
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	514
	colm	1
	synt	any
	pfail
	end
proc put_string
	local	0,001000,Soutfile
	local	1,001000,s
	declend
	line	522
	colm	12
	synt	any
	mark	L1
	pnull
	var	0
	dup
	var	1
	line	523
	colm	10
	synt	any
	lconcat
	asgn
	unmark
lab L1
	pnull
	line	524
	colm	2
	synt	any
	pfail
	end
proc put_name
	local	0,001000,Soutfile
	local	1,001000,p
	local	2,000020,string_index
	local	3,000020,name
	local	4,000020,rep
	local	5,000020,dn
	local	6,000000,get_decl_num
	local	7,000000,sig_out1
	local	8,000000,put_string
	local	9,000000,get_name
	con	0,002000,1,2
	con	1,002000,1,1
	con	2,002000,1,0
	con	3,010000,0
	declend
	line	541
	colm	12
	synt	any
	mark	L1
	pnull
	var	0
	dup
	pnull
	var	1
	line	544
	colm	21
	synt	any
	field	kind
	line	544
	colm	14
	synt	any
	lconcat
	asgn
	unmark
lab L1
	mark	L2
	line	545
	colm	5
	synt	ifelse
	mark	L3
	pnull
	pnull
	var	1
	line	545
	colm	11
	synt	any
	field	sel_type
	line	545
	colm	9
	synt	any
	nonnull
	unmark
	pnull
	var	4
	int	0
	line	546
	colm	13
	synt	any
	asgn
	goto	L4
lab L3
	line	548
	colm	9
	synt	ifelse
	mark	L5
	pnull
	pnull
	var	1
	line	548
	colm	15
	synt	any
	field	id_last_definition
	line	548
	colm	13
	synt	any
	nonnull
	pop
	pnull
	pnull
	var	5
	var	6
	pnull
	var	1
	line	549
	colm	34
	synt	any
	field	id_last_definition
	line	549
	colm	32
	synt	any
	invoke	1
	line	549
	colm	17
	synt	any
	asgn
	pnull
	int	1
	line	549
	colm	59
	synt	any
	neg
	line	549
	colm	56
	synt	any
	numne
	unmark
	pnull
	var	4
	int	2
	line	550
	colm	21
	synt	any
	asgn
	goto	L6
lab L5
	pnull
	var	4
	int	1
	line	552
	colm	21
	synt	any
	asgn
lab L6
	line	548
	colm	9
	synt	endifelse
lab L4
	line	545
	colm	5
	synt	endifelse
	unmark
lab L2
	mark	L7
	pnull
	var	0
	dup
	var	4
	line	555
	colm	14
	synt	any
	lconcat
	asgn
	unmark
lab L7
	mark	L8
	line	556
	colm	5
	synt	case
	mark0
	var	4
	eret
	mark	L10
	ccase
	int	0
	line	557
	colm	10
	synt	any
	eqv
	unmark
	pop
	var	7
	var	0
	pnull
	var	1
	line	558
	colm	33
	synt	any
	field	sel_type
	line	558
	colm	21
	synt	any
	invoke	2
	goto	L9
lab L10
	mark	L11
	ccase
	int	1
	line	559
	colm	10
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	dup
	pnull
	var	1
	line	560
	colm	29
	synt	any
	field	id_last_definition
	line	560
	colm	22
	synt	any
	lconcat
	asgn
	goto	L9
lab L11
	mark	L12
	ccase
	int	2
	line	561
	colm	10
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	dup
	var	5
	line	562
	colm	22
	synt	any
	lconcat
	asgn
	goto	L9
lab L12
	efail
lab L9
	line	556
	colm	5
	synt	endcase
	unmark
lab L8
	mark	L13
	pnull
	var	2
	pnull
	var	1
	line	564
	colm	22
	synt	any
	field	id_str_table_index
	line	564
	colm	18
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	line	565
	colm	5
	synt	ifelse
	mark	L15
	pnull
	var	2
	pnull
	int	1
	line	565
	colm	25
	synt	any
	neg
	line	565
	colm	22
	synt	any
	lexeq
	unmark
	pnull
	var	0
	dup
	str	3
	line	567
	colm	18
	synt	any
	lconcat
	asgn
	goto	L16
lab L15
	var	8
	var	0
	var	9
	var	2
	line	569
	colm	38
	synt	any
	invoke	1
	line	569
	colm	19
	synt	any
	invoke	2
lab L16
	line	565
	colm	5
	synt	endifelse
	unmark
lab L14
	pnull
	line	571
	colm	1
	synt	any
	pfail
	end
proc sig_out
	local	0,001000,Soutfile
	local	1,001000,p
	local	2,000000,decl_nums
	local	3,000000,nil
	local	4,000000,Outer_arg
	local	5,000000,sig_out1
	declend
	line	578
	colm	12
	synt	any
	mark	L1
	pnull
	var	2
	var	3
	line	579
	colm	15
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	4
	var	1
	line	580
	colm	15
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	var	5
	var	0
	var	1
	line	581
	colm	13
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	582
	colm	1
	synt	any
	pfail
	end
proc sig_out1
	local	0,001000,Soutfile
	local	1,001000,p
	local	2,000020,v
	local	3,000020,temp
	local	4,000000,putw
	local	5,000000,put_name
	local	6,000000,sig_out1
	local	7,000000,add_decl
	local	8,000000,length
	local	9,000000,pattern_assign_onmatch
	local	10,000000,bld_declaration_list
	local	11,000000,expand_str
	local	12,000000,par_id
	local	13,000000,par_signature
	local	14,000000,fsig_construction
	local	15,000000,Gflag
	local	16,000000,put_RIC
	local	17,000000,put_string
	local	18,000000,CONSTR_UNKNOWN
	local	19,000000,constr
	local	20,000000,SLINK_AVAIL
	local	21,000000,CONSTR_AVAIL
	local	22,000000,rpt_err
	con	0,002000,1,1
	con	1,002000,2,11
	con	2,010000,20,142,154,144,137,144,145,143,154,141,162,141,164,151,157,156,137,154,151,163,164
	con	3,002000,2,13
	con	4,002000,2,29
	con	5,002000,2,28
	con	6,002000,2,30
	con	7,002000,2,31
	con	8,002000,2,32
	con	9,002000,2,35
	con	10,002000,2,12
	con	11,002000,2,20
	con	12,002000,2,33
	con	13,002000,2,34
	con	14,002000,2,16
	con	15,002000,2,18
	con	16,002000,2,25
	con	17,002000,1,2
	con	18,010000,6,160,141,162,137,151,144
	con	19,010000,13,160,141,162,137,163,151,147,156,141,164,165,162,145
	con	20,002000,1,6
	con	21,002000,1,5
	con	22,002000,1,4
	con	23,002000,2,10
	con	24,002000,1,7
	con	25,002000,1,8
	con	26,002000,1,9
	con	27,010000,35,163,151,147,137,157,165,164,072,040,104,105,106,103,110,101,122,123,111,107,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,162
	con	28,002000,2,38
	con	29,002000,2,17
	con	30,010000,47,163,151,147,137,157,165,164,072,040,122,105,103,117,122,104,103,117,116,123,124,122,125,103,124,111,117,116,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144,040,171,145,164
	con	31,002000,2,15
	con	32,010000,38,163,151,147,137,157,165,164,072,040,105,130,124,105,116,123,111,117,116,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144,040,171,145,164
	con	33,002000,2,14
	con	34,010000,40,163,151,147,137,157,165,164,072,040,105,116,125,115,105,122,101,124,111,117,116,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144,040,171,145,164
	con	35,002000,1,3
	con	36,010000,42,163,151,147,137,157,165,164,072,040,122,105,103,117,122,104,105,114,105,115,105,116,124,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144,040,171,145,164
	con	37,002000,2,19
	con	38,010000,37,163,151,147,137,157,165,164,072,040,127,111,124,110,114,111,123,124,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144,040,171,145,164
	con	39,002000,2,21
	con	40,010000,39,163,151,147,137,157,165,164,072,040,105,130,120,117,122,124,114,111,123,124,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144,040,171,145,164
	con	41,002000,2,22
	con	42,010000,37,163,151,147,137,157,165,164,072,040,110,111,104,105,114,111,123,124,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144,040,171,145,164
	con	43,002000,2,23
	con	44,010000,42,163,151,147,137,157,165,164,072,040,105,130,120,117,122,124,105,114,105,115,105,116,124,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144,040,171,145,164
	con	45,002000,1,0
	con	46,010000,27,163,151,147,137,157,165,164,072,102,101,104,040,113,111,116,104,040,114,111,123,124,110,105,101,104,105,122
	con	47,002000,2,36
	con	48,002000,2,26
	con	49,002000,2,27
	con	50,002000,2,37
	declend
	line	584
	colm	13
	synt	any
	mark	L1
	line	587
	colm	2
	synt	if
	mark0
	pnull
	var	1
	line	587
	colm	6
	synt	any
	null
	unmark
	mark	L2
	var	4
	pnull
	int	0
	line	588
	colm	10
	synt	any
	neg
	var	0
	line	588
	colm	9
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	589
	colm	5
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	587
	colm	2
	synt	endif
	unmark
lab L1
	mark	L5
	line	592
	colm	1
	synt	case
	mark0
	pnull
	var	1
	line	592
	colm	9
	synt	any
	field	kind
	eret
	mark	L7
	ccase
	int	0
	line	593
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L8
	var	4
	int	0
	var	0
	line	594
	colm	13
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	5
	var	0
	pnull
	var	1
	line	596
	colm	29
	synt	any
	field	decl_id
	line	596
	colm	17
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	4
	pnull
	var	1
	line	597
	colm	15
	synt	any
	field	decl_sig_transp
	var	0
	line	597
	colm	13
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	6
	var	0
	pnull
	var	1
	line	598
	colm	29
	synt	any
	field	decl_signature
	line	598
	colm	17
	synt	any
	invoke	2
	unmark
lab L11
	var	6
	var	0
	pnull
	var	1
	line	599
	colm	29
	synt	any
	field	decl_denotation
	line	599
	colm	17
	synt	any
	invoke	2
	goto	L6
lab L7
	mark	L12
	ccase
	int	1
	line	601
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L13
	var	4
	int	1
	var	0
	line	602
	colm	13
	synt	any
	invoke	2
	unmark
lab L13
	mark	L14
	pnull
	var	3
	pnull
	var	1
	line	603
	colm	18
	synt	any
	field	bld_declaration_list
	line	603
	colm	14
	synt	any
	asgn
	unmark
lab L14
	mark	L15
lab L16
	line	604
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	604
	colm	15
	synt	any
	nonnull
	unmark
	mark	L16
	mark	L19
	pnull
	var	2
	pnull
	var	3
	line	605
	colm	22
	synt	any
	field	cn_hd_field
	line	605
	colm	15
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	var	7
	var	2
	line	606
	colm	21
	synt	any
	invoke	1
	unmark
lab L20
	pnull
	var	3
	pnull
	var	3
	line	607
	colm	25
	synt	any
	field	cn_tl_field
	line	607
	colm	18
	synt	any
	asgn
lab L17
	unmark
	goto	L16
lab L18
	line	604
	colm	9
	synt	endwhile
	unmark
lab L15
	mark	L21
	var	4
	var	8
	var	9
	var	1
	var	10
	str	2
	line	609
	colm	44
	synt	any
	invoke	3
	line	609
	colm	20
	synt	any
	invoke	1
	var	0
	line	609
	colm	13
	synt	any
	invoke	2
	unmark
lab L21
	mark	L22
	pnull
	var	3
	pnull
	var	1
	line	611
	colm	18
	synt	any
	field	bld_declaration_list
	line	611
	colm	14
	synt	any
	asgn
	unmark
lab L22
	mark	L23
lab L24
	line	612
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	612
	colm	15
	synt	any
	nonnull
	unmark
	mark	L24
	mark	L27
	pnull
	var	2
	pnull
	var	3
	line	613
	colm	22
	synt	any
	field	cn_hd_field
	line	613
	colm	15
	synt	any
	asgn
	unmark
lab L27
	mark	L28
	var	6
	var	0
	var	2
	line	614
	colm	21
	synt	any
	invoke	2
	unmark
lab L28
	pnull
	var	3
	pnull
	var	3
	line	615
	colm	25
	synt	any
	field	cn_tl_field
	line	615
	colm	18
	synt	any
	asgn
lab L25
	unmark
	goto	L24
lab L26
	line	612
	colm	9
	synt	endwhile
	unmark
lab L23
	mark	L29
	var	4
	var	8
	pnull
	var	1
	line	617
	colm	22
	synt	any
	field	bld_den_seq
	line	617
	colm	20
	synt	any
	invoke	1
	var	0
	line	617
	colm	13
	synt	any
	invoke	2
	unmark
lab L29
	mark	L30
	pnull
	var	3
	pnull
	var	1
	line	618
	colm	18
	synt	any
	field	bld_den_seq
	line	618
	colm	14
	synt	any
	asgn
	unmark
lab L30
lab L31
	line	619
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	619
	colm	15
	synt	any
	nonnull
	unmark
	mark	L31
	mark	L34
	pnull
	var	2
	pnull
	var	3
	line	620
	colm	22
	synt	any
	field	cn_hd_field
	line	620
	colm	15
	synt	any
	asgn
	unmark
lab L34
	mark	L35
	var	6
	var	0
	var	2
	line	621
	colm	21
	synt	any
	invoke	2
	unmark
lab L35
	pnull
	var	3
	pnull
	var	3
	line	622
	colm	25
	synt	any
	field	cn_tl_field
	line	622
	colm	18
	synt	any
	asgn
lab L32
	unmark
	goto	L31
lab L33
	line	619
	colm	9
	synt	endwhile
	goto	L6
lab L12
	mark	L36
	ccase
	int	3
	line	625
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L37
	var	4
	int	3
	var	0
	line	626
	colm	13
	synt	any
	invoke	2
	unmark
lab L37
	mark	L38
	var	6
	var	0
	pnull
	var	1
	line	627
	colm	29
	synt	any
	field	ap_operator
	line	627
	colm	17
	synt	any
	invoke	2
	unmark
lab L38
	mark	L39
	var	4
	var	8
	pnull
	var	1
	line	628
	colm	22
	synt	any
	field	ap_args
	line	628
	colm	20
	synt	any
	invoke	1
	var	0
	line	628
	colm	13
	synt	any
	invoke	2
	unmark
lab L39
	mark	L40
	pnull
	var	3
	pnull
	var	1
	line	629
	colm	18
	synt	any
	field	ap_rgs
	line	629
	colm	14
	synt	any
	asgn
	unmark
lab L40
lab L41
	line	630
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	630
	colm	15
	synt	any
	nonnull
	unmark
	mark	L41
	mark	L44
	pnull
	var	2
	pnull
	var	3
	line	631
	colm	22
	synt	any
	field	cn_hd_field
	line	631
	colm	15
	synt	any
	asgn
	unmark
lab L44
	mark	L45
	var	6
	var	0
	var	2
	line	632
	colm	21
	synt	any
	invoke	2
	unmark
lab L45
	pnull
	var	3
	pnull
	var	3
	line	633
	colm	25
	synt	any
	field	cn_tl_field
	line	633
	colm	18
	synt	any
	asgn
lab L42
	unmark
	goto	L41
lab L43
	line	630
	colm	9
	synt	endwhile
	goto	L6
lab L36
	mark	L46
	ccase
	int	4
	line	636
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L47
	var	4
	pnull
	var	1
	line	637
	colm	15
	synt	any
	field	kind
	var	0
	line	637
	colm	13
	synt	any
	invoke	2
	unmark
lab L47
	mark	L48
	var	4
	var	8
	pnull
	var	1
	line	638
	colm	22
	synt	any
	field	gl_list
	line	638
	colm	20
	synt	any
	invoke	1
	var	0
	line	638
	colm	13
	synt	any
	invoke	2
	unmark
lab L48
	mark	L49
	pnull
	var	3
	pnull
	var	1
	line	639
	colm	18
	synt	any
	field	gl_list
	line	639
	colm	14
	synt	any
	asgn
	unmark
lab L49
lab L50
	line	640
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	640
	colm	15
	synt	any
	nonnull
	unmark
	mark	L50
	mark	L53
	pnull
	var	2
	pnull
	var	3
	line	641
	colm	22
	synt	any
	field	cn_hd_field
	line	641
	colm	15
	synt	any
	asgn
	unmark
lab L53
	mark	L54
	var	6
	var	0
	var	2
	line	642
	colm	21
	synt	any
	invoke	2
	unmark
lab L54
	pnull
	var	3
	pnull
	var	3
	line	643
	colm	25
	synt	any
	field	cn_tl_field
	line	643
	colm	18
	synt	any
	asgn
lab L51
	unmark
	goto	L50
lab L52
	line	640
	colm	9
	synt	endwhile
	goto	L6
lab L46
	mark	L55
	ccase
	int	5
	line	646
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L56
	var	4
	pnull
	var	1
	line	647
	colm	15
	synt	any
	field	kind
	var	0
	line	647
	colm	13
	synt	any
	invoke	2
	unmark
lab L56
	mark	L57
	var	4
	var	8
	pnull
	var	1
	line	648
	colm	22
	synt	any
	field	gl_list
	line	648
	colm	20
	synt	any
	invoke	1
	var	0
	line	648
	colm	13
	synt	any
	invoke	2
	unmark
lab L57
	mark	L58
	pnull
	var	3
	pnull
	var	1
	line	649
	colm	18
	synt	any
	field	gl_list
	line	649
	colm	14
	synt	any
	asgn
	unmark
lab L58
lab L59
	line	650
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	650
	colm	15
	synt	any
	nonnull
	unmark
	mark	L59
	mark	L62
	pnull
	var	2
	pnull
	var	3
	line	651
	colm	22
	synt	any
	field	cn_hd_field
	line	651
	colm	15
	synt	any
	asgn
	unmark
lab L62
	mark	L63
	var	6
	var	0
	var	2
	line	652
	colm	21
	synt	any
	invoke	2
	unmark
lab L63
	pnull
	var	3
	pnull
	var	3
	line	653
	colm	25
	synt	any
	field	cn_tl_field
	line	653
	colm	18
	synt	any
	asgn
lab L60
	unmark
	goto	L59
lab L61
	line	650
	colm	9
	synt	endwhile
	goto	L6
lab L55
	mark	L64
	ccase
	int	6
	line	656
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L65
	var	4
	int	6
	var	0
	line	657
	colm	13
	synt	any
	invoke	2
	unmark
lab L65
	mark	L66
	var	6
	var	0
	pnull
	var	1
	line	658
	colm	29
	synt	any
	field	ge_guard
	line	658
	colm	17
	synt	any
	invoke	2
	unmark
lab L66
	mark	L67
	var	6
	var	0
	pnull
	var	1
	line	659
	colm	29
	synt	any
	field	ge_element
	line	659
	colm	17
	synt	any
	invoke	2
	unmark
lab L67
	pnull
	goto	L6
lab L64
	mark	L68
	ccase
	int	7
	line	661
	colm	7
	synt	any
	eqv
	unmark
	pop
	line	662
	colm	9
	synt	ifelse
	mark	L69
	pnull
	pnull
	var	1
	line	662
	colm	16
	synt	any
	field	sel_type
	line	662
	colm	14
	synt	any
	null
	pop
	pnull
	pnull
	var	1
	line	663
	colm	17
	synt	any
	field	id_last_definition
	line	663
	colm	13
	synt	any
	nonnull
	pop
	pnull
	pnull
	pnull
	var	1
	line	664
	colm	15
	synt	any
	field	id_last_definition
	line	664
	colm	34
	synt	any
	field	kind
	int	0
	line	664
	colm	40
	synt	any
	numeq
	pop
	pnull
	pnull
	pnull
	var	1
	line	665
	colm	16
	synt	any
	field	id_last_definition
	line	665
	colm	35
	synt	any
	field	decl_sig_transp
	line	665
	colm	14
	synt	any
	nonnull
	unmark
	var	6
	var	0
	pnull
	pnull
	var	1
	line	667
	colm	27
	synt	any
	field	id_last_definition
	line	667
	colm	46
	synt	any
	field	decl_denotation
	line	666
	colm	25
	synt	any
	invoke	2
	goto	L70
lab L69
	var	5
	var	0
	var	1
	line	669
	colm	25
	synt	any
	invoke	2
lab L70
	line	662
	colm	9
	synt	endifelse
	goto	L6
lab L68
	mark	L71
	ccase
	int	8
	line	672
	colm	7
	synt	any
	eqv
	unmark
	pop
	line	673
	colm	9
	synt	ifelse
	mark	L72
	pnull
	pnull
	var	1
	line	673
	colm	16
	synt	any
	field	sel_type
	line	673
	colm	14
	synt	any
	null
	pop
	pnull
	pnull
	var	1
	line	674
	colm	17
	synt	any
	field	id_last_definition
	line	674
	colm	13
	synt	any
	nonnull
	pop
	pnull
	pnull
	pnull
	var	1
	line	675
	colm	15
	synt	any
	field	id_last_definition
	line	675
	colm	34
	synt	any
	field	kind
	int	0
	line	675
	colm	40
	synt	any
	numeq
	pop
	pnull
	pnull
	pnull
	var	1
	line	676
	colm	16
	synt	any
	field	id_last_definition
	line	676
	colm	35
	synt	any
	field	decl_sig_transp
	line	676
	colm	14
	synt	any
	nonnull
	unmark
	var	6
	var	0
	pnull
	pnull
	var	1
	line	678
	colm	27
	synt	any
	field	id_last_definition
	line	678
	colm	46
	synt	any
	field	decl_denotation
	line	677
	colm	25
	synt	any
	invoke	2
	goto	L73
lab L72
	var	5
	var	0
	var	1
	line	680
	colm	25
	synt	any
	invoke	2
lab L73
	line	673
	colm	9
	synt	endifelse
	goto	L6
lab L71
	mark	L74
	ccase
	int	9
	line	683
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L75
	var	4
	int	9
	var	0
	line	684
	colm	13
	synt	any
	invoke	2
	unmark
lab L75
	mark	L76
	var	6
	var	0
	pnull
	var	1
	line	685
	colm	29
	synt	any
	field	signature
	line	685
	colm	17
	synt	any
	invoke	2
	unmark
lab L76
	var	6
	var	0
	pnull
	var	1
	line	686
	colm	29
	synt	any
	field	fc_body
	line	686
	colm	17
	synt	any
	invoke	2
	goto	L6
lab L74
	mark	L77
	ccase
	int	10
	line	688
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L78
	var	4
	int	10
	var	0
	line	689
	colm	13
	synt	any
	invoke	2
	unmark
lab L78
	mark	L79
	var	4
	var	8
	pnull
	var	1
	line	690
	colm	22
	synt	any
	field	usl_type_list
	line	690
	colm	20
	synt	any
	invoke	1
	var	0
	line	690
	colm	13
	synt	any
	invoke	2
	unmark
lab L79
	mark	L80
	pnull
	var	3
	pnull
	pnull
	var	1
	line	691
	colm	18
	synt	any
	field	usl
	line	691
	colm	22
	synt	any
	field	den_seq
	line	691
	colm	14
	synt	any
	asgn
	unmark
lab L80
	mark	L81
lab L82
	line	692
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	692
	colm	15
	synt	any
	nonnull
	unmark
	mark	L82
	mark	L85
	pnull
	var	2
	pnull
	var	3
	line	693
	colm	22
	synt	any
	field	cn_hd_fiel
	line	693
	colm	15
	synt	any
	asgn
	unmark
lab L85
	mark	L86
	var	6
	var	0
	var	2
	line	694
	colm	21
	synt	any
	invoke	2
	unmark
lab L86
	pnull
	var	3
	pnull
	var	3
	line	695
	colm	25
	synt	any
	field	cn_tl_field
	line	695
	colm	18
	synt	any
	asgn
lab L83
	unmark
	goto	L82
lab L84
	line	692
	colm	9
	synt	endwhile
	unmark
lab L81
	mark	L87
	var	4
	var	8
	pnull
	var	1
	line	697
	colm	22
	synt	any
	field	usl_den_seq
	line	697
	colm	20
	synt	any
	invoke	1
	var	0
	line	697
	colm	13
	synt	any
	invoke	2
	unmark
lab L87
	mark	L88
	pnull
	var	3
	pnull
	var	1
	line	698
	colm	18
	synt	any
	field	usl_den_seq
	line	698
	colm	14
	synt	any
	asgn
	unmark
lab L88
lab L89
	line	699
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	699
	colm	15
	synt	any
	nonnull
	unmark
	mark	L89
	mark	L92
	pnull
	var	2
	pnull
	var	3
	line	700
	colm	22
	synt	any
	field	cn_hd_fiel
	line	700
	colm	15
	synt	any
	asgn
	unmark
lab L92
	mark	L93
	var	6
	var	0
	var	2
	line	701
	colm	21
	synt	any
	invoke	2
	unmark
lab L93
	pnull
	var	3
	pnull
	var	3
	line	702
	colm	25
	synt	any
	field	cn_tl_field
	line	702
	colm	18
	synt	any
	asgn
lab L90
	unmark
	goto	L89
lab L91
	line	699
	colm	9
	synt	endwhile
	goto	L6
lab L77
	mark	L94
	ccase
	int	11
	line	705
	colm	7
	synt	any
	eqv
	unmark
	pop
	line	706
	colm	9
	synt	ifelse
	mark	L95
	pnull
	pnull
	var	1
	line	706
	colm	15
	synt	any
	field	mp_type_modifier
	line	706
	colm	13
	synt	any
	null
	unmark
	mark	L97
	var	6
	var	0
	pnull
	var	1
	line	708
	colm	33
	synt	any
	field	mp_primary
	line	708
	colm	21
	synt	any
	invoke	2
	unmark
lab L97
	pnull
	goto	L96
lab L95
	mark	L98
	var	7
	var	1
	line	710
	colm	21
	synt	any
	invoke	1
	unmark
lab L98
	mark	L99
	var	4
	int	11
	var	0
	line	711
	colm	17
	synt	any
	invoke	2
	unmark
lab L99
	mark	L100
	var	6
	var	0
	pnull
	var	1
	line	712
	colm	33
	synt	any
	field	mp_primary
	line	712
	colm	21
	synt	any
	invoke	2
	unmark
lab L100
	var	6
	var	0
	pnull
	var	1
	line	713
	colm	33
	synt	any
	field	mp_type_modifier
	line	713
	colm	21
	synt	any
	invoke	2
lab L96
	line	706
	colm	9
	synt	endifelse
	goto	L6
lab L94
	mark	L101
	ccase
	int	12
	line	717
	colm	7
	synt	any
	eqv
	unmark
	pop
	line	718
	colm	14
	synt	ifelse
	mark	L102
	pnull
	pnull
	var	1
	line	718
	colm	20
	synt	any
	field	str_expansion
	line	718
	colm	18
	synt	any
	null
	unmark
	var	6
	var	0
	var	11
	var	1
	line	719
	colm	47
	synt	any
	invoke	1
	line	719
	colm	26
	synt	any
	invoke	2
	goto	L103
lab L102
	var	6
	var	0
	pnull
	var	1
	line	721
	colm	38
	synt	any
	field	str_expansion
	line	721
	colm	26
	synt	any
	invoke	2
lab L103
	line	718
	colm	14
	synt	endifelse
	goto	L6
lab L101
	mark	L104
	ccase
	int	13
	line	725
	colm	7
	synt	any
	eqv
	unmark
	pop
	line	726
	colm	9
	synt	ifelse
	mark	L105
	pnull
	pnull
	var	1
	line	726
	colm	15
	synt	any
	field	str_expansion
	line	726
	colm	13
	synt	any
	null
	unmark
	var	6
	var	0
	var	11
	var	1
	line	727
	colm	42
	synt	any
	invoke	1
	line	727
	colm	21
	synt	any
	invoke	2
	goto	L106
lab L105
	var	6
	var	0
	pnull
	var	1
	line	729
	colm	33
	synt	any
	field	str_expansion
	line	729
	colm	21
	synt	any
	invoke	2
lab L106
	line	726
	colm	9
	synt	endifelse
	goto	L6
lab L104
	mark	L107
	ccase
	int	14
	line	733
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L108
	var	7
	var	1
	line	734
	colm	17
	synt	any
	invoke	1
	unmark
lab L108
	mark	L109
	var	4
	pnull
	var	1
	line	735
	colm	15
	synt	any
	field	kind
	var	0
	line	735
	colm	13
	synt	any
	invoke	2
	unmark
lab L109
	mark	L110
	var	6
	var	0
	pnull
	var	1
	line	736
	colm	29
	synt	any
	field	prod_local_type_id
	line	736
	colm	17
	synt	any
	invoke	2
	unmark
lab L110
	mark	L111
	var	4
	var	8
	pnull
	var	1
	line	737
	colm	22
	synt	any
	field	prod_components
	line	737
	colm	20
	synt	any
	invoke	1
	var	0
	line	737
	colm	13
	synt	any
	invoke	2
	unmark
lab L111
	mark	L112
	pnull
	var	3
	pnull
	var	1
	line	738
	colm	18
	synt	any
	field	prod_components
	line	738
	colm	14
	synt	any
	asgn
	unmark
lab L112
lab L113
	line	739
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	739
	colm	15
	synt	any
	nonnull
	unmark
	mark	L113
	mark	L116
	pnull
	var	2
	pnull
	var	3
	line	740
	colm	22
	synt	any
	field	cn_hd_field
	line	740
	colm	15
	synt	any
	asgn
	unmark
lab L116
	mark	L117
	var	6
	var	0
	var	2
	line	741
	colm	21
	synt	any
	invoke	2
	unmark
lab L117
	pnull
	var	3
	pnull
	var	3
	line	742
	colm	25
	synt	any
	field	cn_tl_field
	line	742
	colm	18
	synt	any
	asgn
lab L114
	unmark
	goto	L113
lab L115
	line	739
	colm	9
	synt	endwhile
	goto	L6
lab L107
	mark	L118
	ccase
	int	15
	line	745
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L119
	var	7
	var	1
	line	746
	colm	17
	synt	any
	invoke	1
	unmark
lab L119
	mark	L120
	var	4
	pnull
	var	1
	line	747
	colm	15
	synt	any
	field	kind
	var	0
	line	747
	colm	13
	synt	any
	invoke	2
	unmark
lab L120
	mark	L121
	var	6
	var	0
	pnull
	var	1
	line	748
	colm	29
	synt	any
	field	prod_local_type_id
	line	748
	colm	17
	synt	any
	invoke	2
	unmark
lab L121
	mark	L122
	var	4
	var	8
	pnull
	var	1
	line	749
	colm	22
	synt	any
	field	prod_components
	line	749
	colm	20
	synt	any
	invoke	1
	var	0
	line	749
	colm	13
	synt	any
	invoke	2
	unmark
lab L122
	mark	L123
	pnull
	var	3
	pnull
	var	1
	line	750
	colm	18
	synt	any
	field	prod_components
	line	750
	colm	14
	synt	any
	asgn
	unmark
lab L123
lab L124
	line	751
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	751
	colm	15
	synt	any
	nonnull
	unmark
	mark	L124
	mark	L127
	pnull
	var	2
	pnull
	var	3
	line	752
	colm	22
	synt	any
	field	cn_hd_field
	line	752
	colm	15
	synt	any
	asgn
	unmark
lab L127
	mark	L128
	var	6
	var	0
	var	2
	line	753
	colm	21
	synt	any
	invoke	2
	unmark
lab L128
	pnull
	var	3
	pnull
	var	3
	line	754
	colm	25
	synt	any
	field	cn_tl_field
	line	754
	colm	18
	synt	any
	asgn
lab L125
	unmark
	goto	L124
lab L126
	line	751
	colm	9
	synt	endwhile
	goto	L6
lab L118
	mark	L129
	ccase
	int	16
	line	757
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	4
	int	16
	var	0
	line	758
	colm	13
	synt	any
	invoke	2
	goto	L6
lab L129
	mark	L130
	ccase
	int	17
	line	760
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L131
	var	4
	int	17
	var	0
	line	761
	colm	13
	synt	any
	invoke	2
	unmark
lab L131
	mark	L132
	var	6
	var	0
	var	9
	var	1
	var	12
	str	18
	line	762
	colm	50
	synt	any
	invoke	3
	line	762
	colm	17
	synt	any
	invoke	2
	unmark
lab L132
	var	6
	var	0
	var	9
	var	1
	var	13
	str	19
	line	763
	colm	50
	synt	any
	invoke	3
	line	763
	colm	17
	synt	any
	invoke	2
	goto	L6
lab L130
	mark	L133
	ccase
	int	20
	line	765
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L134
	line	767
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	767
	colm	16
	synt	any
	field	fsig_inline_code
	line	767
	colm	14
	synt	any
	null
	pop
	pnull
	var	14
	line	768
	colm	14
	synt	any
	nonnull
	unmark
	pnull
	pnull
	var	1
	line	769
	colm	18
	synt	any
	field	fsig_inline_code
	pnull
	pnull
	pnull
	var	1
	line	769
	colm	40
	synt	any
	field	fsig_construction
	line	769
	colm	58
	synt	any
	field	signature
	line	769
	colm	68
	synt	any
	field	fsig_inline_code
	line	769
	colm	36
	synt	any
	asgn
	line	767
	colm	9
	synt	endif
	unmark
lab L134
	mark	L135
	var	4
	int	20
	var	0
	line	771
	colm	13
	synt	any
	invoke	2
	unmark
lab L135
	mark	L136
	var	4
	pnull
	var	1
	line	772
	colm	15
	synt	any
	field	fsig_special
	var	0
	line	772
	colm	13
	synt	any
	invoke	2
	unmark
lab L136
	mark	L137
	line	773
	colm	9
	synt	ifelse
	mark	L138
	var	15
	unmark
	mark	L140
	var	16
	pnull
	var	1
	line	774
	colm	22
	synt	any
	field	fsig_inline_code
	var	0
	line	774
	colm	20
	synt	any
	invoke	2
	unmark
lab L140
	pnull
	goto	L139
lab L138
	var	17
	var	0
	pnull
	var	1
	line	776
	colm	35
	synt	any
	field	fsig_inline_code
	line	776
	colm	23
	synt	any
	invoke	2
lab L139
	line	773
	colm	9
	synt	endifelse
	unmark
lab L137
	mark	L141
	pnull
	var	3
	pnull
	var	1
	line	779
	colm	18
	synt	any
	field	fsig_param_list
	line	779
	colm	14
	synt	any
	asgn
	unmark
lab L141
	mark	L142
lab L143
	line	780
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	780
	colm	15
	synt	any
	nonnull
	unmark
	mark	L143
	mark	L146
	pnull
	var	2
	pnull
	var	3
	line	781
	colm	22
	synt	any
	field	cn_hd_field
	line	781
	colm	15
	synt	any
	asgn
	unmark
lab L146
	mark	L147
	var	7
	var	2
	line	782
	colm	21
	synt	any
	invoke	1
	unmark
lab L147
	pnull
	var	3
	pnull
	var	3
	line	783
	colm	25
	synt	any
	field	cn_tail_field
	line	783
	colm	18
	synt	any
	asgn
lab L144
	unmark
	goto	L143
lab L145
	line	780
	colm	9
	synt	endwhile
	unmark
lab L142
	mark	L148
	var	4
	var	8
	pnull
	var	1
	line	785
	colm	22
	synt	any
	field	fsig_param_list
	line	785
	colm	20
	synt	any
	invoke	1
	var	0
	line	785
	colm	13
	synt	any
	invoke	2
	unmark
lab L148
	mark	L149
	pnull
	var	3
	pnull
	var	1
	line	786
	colm	18
	synt	any
	field	fsig_param_list
	line	786
	colm	14
	synt	any
	asgn
	unmark
lab L149
	mark	L150
lab L151
	line	787
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	787
	colm	15
	synt	any
	nonnull
	unmark
	mark	L151
	mark	L154
	pnull
	var	2
	pnull
	var	3
	line	788
	colm	22
	synt	any
	field	cn_hd_field
	line	788
	colm	15
	synt	any
	asgn
	unmark
lab L154
	mark	L155
	var	6
	var	0
	var	2
	line	789
	colm	21
	synt	any
	invoke	2
	unmark
lab L155
	pnull
	var	3
	pnull
	var	3
	line	790
	colm	25
	synt	any
	field	cn_tl_field
	line	790
	colm	18
	synt	any
	asgn
lab L152
	unmark
	goto	L151
lab L153
	line	787
	colm	9
	synt	endwhile
	unmark
lab L150
	mark	L156
	var	6
	var	0
	pnull
	var	1
	line	792
	colm	29
	synt	any
	field	fsig_result_sig
	line	792
	colm	17
	synt	any
	invoke	2
	unmark
lab L156
	line	797
	colm	5
	synt	ifelse
	mark	L157
	pnull
	pnull
	var	1
	line	797
	colm	12
	synt	any
	field	fsig_construction
	line	797
	colm	9
	synt	any
	null
	unmark
	var	4
	var	18
	var	0
	line	798
	colm	13
	synt	any
	invoke	2
	goto	L158
lab L157
	mark	L159
	pnull
	var	19
	pnull
	var	1
	line	800
	colm	20
	synt	any
	field	fsig_construction
	line	800
	colm	16
	synt	any
	asgn
	unmark
lab L159
	mark	L160
	line	801
	colm	9
	synt	ifelse
	mark	L161
	pnull
	var	1
	line	801
	colm	14
	synt	any
	field	fsig_slink_known
	unmark
	var	4
	var	20
	var	0
	line	802
	colm	17
	synt	any
	invoke	2
	goto	L162
lab L161
	var	4
	var	21
	var	0
	line	804
	colm	17
	synt	any
	invoke	2
lab L162
	line	801
	colm	9
	synt	endifelse
	unmark
lab L160
	mark	L163
	var	4
	pnull
	var	19
	line	806
	colm	20
	synt	any
	field	fc_complexity
	var	0
	line	806
	colm	13
	synt	any
	invoke	2
	unmark
lab L163
	mark	L164
	var	17
	var	0
	pnull
	var	19
	line	807
	colm	36
	synt	any
	field	fc_code_label
	line	807
	colm	19
	synt	any
	invoke	2
	unmark
lab L164
	mark	L165
	var	4
	pnull
	var	19
	line	808
	colm	20
	synt	any
	field	ar_static_level
	var	0
	line	808
	colm	13
	synt	any
	invoke	2
	unmark
lab L165
	var	4
	pnull
	var	19
	line	809
	colm	20
	synt	any
	field	ar_size
	var	0
	line	809
	colm	13
	synt	any
	invoke	2
lab L158
	line	797
	colm	5
	synt	endifelse
	goto	L6
lab L133
	mark	L166
	ccase
	int	21
	line	812
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L167
	var	4
	int	21
	var	0
	line	813
	colm	13
	synt	any
	invoke	2
	unmark
lab L167
	mark	L168
	var	6
	var	0
	pnull
	var	1
	line	814
	colm	29
	synt	any
	field	val_denotation
	line	814
	colm	17
	synt	any
	invoke	2
	unmark
lab L168
	pnull
	goto	L6
lab L166
	mark	L169
	ccase
	int	22
	line	816
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L170
	var	4
	int	22
	var	0
	line	817
	colm	13
	synt	any
	invoke	2
	unmark
lab L170
	var	6
	var	0
	pnull
	var	1
	line	818
	colm	29
	synt	any
	field	var_denotation
	line	818
	colm	17
	synt	any
	invoke	2
	goto	L6
lab L169
	mark	L171
	ccase
	int	23
	line	820
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	4
	int	23
	var	0
	line	821
	colm	13
	synt	any
	invoke	2
	goto	L6
lab L171
	mark	L172
	ccase
	int	24
	line	823
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L173
	var	7
	var	1
	line	824
	colm	17
	synt	any
	invoke	1
	unmark
lab L173
	mark	L174
	var	4
	int	24
	var	0
	line	825
	colm	13
	synt	any
	invoke	2
	unmark
lab L174
	mark	L175
	var	6
	var	0
	pnull
	var	1
	line	826
	colm	29
	synt	any
	field	ts_local_type_id
	line	826
	colm	17
	synt	any
	invoke	2
	unmark
lab L175
	mark	L176
	var	4
	var	8
	pnull
	var	1
	line	827
	colm	22
	synt	any
	field	ts_clist
	line	827
	colm	20
	synt	any
	invoke	1
	var	0
	line	827
	colm	13
	synt	any
	invoke	2
	unmark
lab L176
	mark	L177
	pnull
	var	3
	pnull
	pnull
	var	1
	line	828
	colm	18
	synt	any
	field	ts
	line	828
	colm	21
	synt	any
	field	clist
	line	828
	colm	14
	synt	any
	asgn
	unmark
lab L177
	mark	L178
lab L179
	line	829
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	829
	colm	15
	synt	any
	nonnull
	unmark
	mark	L179
	mark	L182
	pnull
	var	2
	pnull
	var	3
	line	830
	colm	22
	synt	any
	field	cn_hd_field
	line	830
	colm	15
	synt	any
	asgn
	unmark
lab L182
	mark	L183
	var	6
	var	0
	var	2
	line	831
	colm	21
	synt	any
	invoke	2
	unmark
lab L183
	pnull
	var	3
	pnull
	var	3
	line	832
	colm	25
	synt	any
	field	cn_tl_field
	line	832
	colm	18
	synt	any
	asgn
lab L180
	unmark
	goto	L179
lab L181
	line	829
	colm	9
	synt	endwhile
	unmark
lab L178
	mark	L184
	var	17
	var	0
	pnull
	var	1
	line	835
	colm	31
	synt	any
	field	ts_const_code
	line	835
	colm	19
	synt	any
	invoke	2
	unmark
lab L184
	mark	L185
	var	17
	var	0
	pnull
	var	1
	line	836
	colm	31
	synt	any
	field	ts_string_code
	line	836
	colm	19
	synt	any
	invoke	2
	unmark
lab L185
	mark	L186
	var	17
	var	0
	pnull
	var	1
	line	837
	colm	31
	synt	any
	field	ts_element_code
	line	837
	colm	19
	synt	any
	invoke	2
	unmark
lab L186
	mark	L187
	var	4
	pnull
	var	1
	line	838
	colm	15
	synt	any
	field	ts_string_max
	var	0
	line	838
	colm	13
	synt	any
	invoke	2
	unmark
lab L187
	var	4
	pnull
	var	1
	line	839
	colm	15
	synt	any
	field	ts_simple_type
	var	0
	line	839
	colm	13
	synt	any
	invoke	2
	goto	L6
lab L172
	mark	L188
	ccase
	int	25
	line	841
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L189
	var	4
	int	25
	var	0
	line	842
	colm	13
	synt	any
	invoke	2
	unmark
lab L189
	mark	L190
	var	6
	var	0
	pnull
	var	1
	line	843
	colm	29
	synt	any
	field	tsc_id
	line	843
	colm	17
	synt	any
	invoke	2
	unmark
lab L190
	var	6
	var	0
	pnull
	var	1
	line	844
	colm	29
	synt	any
	field	tsc_signature
	line	844
	colm	17
	synt	any
	invoke	2
	goto	L6
lab L188
	mark	L191
	ccase
	int	26
	line	846
	colm	6
	synt	any
	eqv
	unmark
	pop
	var	22
	str	27
	line	848
	colm	20
	synt	any
	invoke	1
	goto	L6
lab L191
	mark	L192
	ccase
	int	28
	line	860
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L193
	var	4
	int	28
	var	0
	line	861
	colm	13
	synt	any
	invoke	2
	unmark
lab L193
	var	17
	var	0
	pnull
	var	1
	line	862
	colm	31
	synt	any
	field	r_ext_name
	line	862
	colm	19
	synt	any
	invoke	2
	goto	L6
lab L192
	mark	L194
	ccase
	int	29
	line	865
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	30
	line	867
	colm	20
	synt	any
	invoke	1
	goto	L6
lab L194
	mark	L195
	ccase
	int	31
	line	869
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	32
	line	871
	colm	20
	synt	any
	invoke	1
	goto	L6
lab L195
	mark	L196
	ccase
	int	33
	line	873
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	34
	line	875
	colm	20
	synt	any
	invoke	1
	goto	L6
lab L196
	mark	L197
	ccase
	int	35
	line	877
	colm	6
	synt	any
	eqv
	unmark
	pop
	var	22
	str	36
	line	879
	colm	20
	synt	any
	invoke	1
	goto	L6
lab L197
	mark	L198
	ccase
	int	37
	line	881
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	38
	line	883
	colm	20
	synt	any
	invoke	1
	goto	L6
lab L198
	mark	L199
	ccase
	int	39
	line	885
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	40
	line	887
	colm	20
	synt	any
	invoke	1
	goto	L6
lab L199
	mark	L200
	ccase
	int	41
	line	889
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	42
	line	891
	colm	20
	synt	any
	invoke	1
	goto	L6
lab L200
	mark	L201
	ccase
	int	43
	line	893
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	44
	line	895
	colm	20
	synt	any
	invoke	1
	goto	L6
lab L201
	mark	L202
	ccase
	int	45
	line	897
	colm	6
	synt	any
	eqv
	unmark
	pop
	var	22
	str	46
	line	899
	colm	20
	synt	any
	invoke	1
	goto	L6
lab L202
	mark	L203
	ccase
	int	47
	line	901
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	46
	line	903
	colm	20
	synt	any
	invoke	1
	goto	L6
lab L203
	mark	L204
	ccase
	int	48
	line	905
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	46
	line	907
	colm	20
	synt	any
	invoke	1
	goto	L6
lab L204
	mark	L205
	ccase
	int	49
	line	909
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	46
	line	911
	colm	20
	synt	any
	invoke	1
	goto	L6
lab L205
	mark	L206
	ccase
	int	50
	line	913
	colm	7
	synt	any
	eqv
	unmark
	pop
	var	22
	str	46
	line	915
	colm	20
	synt	any
	invoke	1
	goto	L6
lab L206
	pop
	var	22
	str	46
	line	920
	colm	20
	synt	any
	invoke	1
lab L6
	line	592
	colm	1
	synt	endcase
	unmark
lab L5
	mark	L207
	mark	L208
	pnull
	line	923
	colm	1
	synt	any
	pret
lab L208
	synt	any
	pfail
	unmark
lab L207
	pnull
	line	924
	colm	2
	synt	any
	pfail
	end
proc putw
	local	0,001000,w
	local	1,001000,Soutfile
	declend
	line	925
	colm	15
	synt	any
	mark	L1
	pnull
	var	1
	dup
	var	0
	line	926
	colm	14
	synt	any
	lconcat
	asgn
	unmark
lab L1
	pnull
	line	927
	colm	2
	synt	any
	pfail
	end
