version	U12.1.00
uid	codegen.tmp.u1-1465334335-0
record	Fc_Entry__state,6
	0,__s
	1,__m
	2,fc_pointer
	3,fc_level
	4,fc_fast_only
	5,fc_next
record	Fc_Entry__methods,0
impl	error
global	272
	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,000011,Fc_Entry__state,6
	253,000011,Fc_Entry__methods,0
	254,000001,Fc_Entry__oprec,0
	255,000005,Fc_Entry,4
	256,000005,Fc_Entryinitialize,0
	257,000005,add_objfile,1
	258,000005,Gfc_add,3
	259,000005,Gfc_delete,0
	260,000005,Gcompile_funcs,0
	261,000005,Ggeneratecode,2
	262,000005,Ggeneratepcode,3
	263,000005,GgenerateXcode,3
	264,000005,Gfuncconstructor,2
	265,000005,Gfunc_body,2
	266,000005,Gexpression,3
	267,000005,compile_while_loop,2
	268,000005,genl,2
	269,000005,gen2,3
	270,000005,gen1,2
	271,000005,gen0,1

proc Fc_Entry
	local	0,001000,fc_pointer
	local	1,001000,fc_level
	local	2,001000,fc_fast_only
	local	3,001000,fc_next
	local	4,000020,self
	local	5,000020,clone
	local	6,000000,Fc_Entry__oprec
	local	7,000000,Fc_Entryinitialize
	local	8,000000,Fc_Entry__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	line	8
	colm	46
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	4
	var	8
	line	10
	colm	27
	synt	any
	keywd	null
	var	6
	var	0
	var	1
	var	2
	var	3
	line	10
	colm	26
	synt	any
	invoke	6
	line	10
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	4
	line	11
	colm	7
	synt	any
	field	__s
	var	4
	line	11
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	var	4
	line	12
	colm	3
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	13
	colm	1
	synt	any
	pfail
	end
proc Fc_Entryinitialize
	local	0,000000,Fc_Entry__oprec
	local	1,000000,Fc_Entry__methods
	declend
	line	15
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	line	16
	colm	47
	synt	any
	invoke	0
	line	16
	colm	27
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	17
	colm	1
	synt	any
	pfail
	end
proc add_objfile
	local	0,001000,fn
	local	1,000020,s
	local	2,000000,objfilelist
	local	3,000000,open
	local	4,000000,stop
	local	5,000000,write
	con	0,010000,11,117,102,112,106,111,114,105,114,111,123,124
	con	1,010000,1,167
	con	2,010000,23,143,141,156,156,157,164,040,157,160,145,156,040,117,102,112,106,111,114,105,114,111,123,124
	con	3,002000,1,1
	declend
	filen	pass5d/codegen.tmp.icn
	line	131
	colm	12
	synt	any
	mark	L1
	line	133
	colm	5
	synt	if
	mark0
	pnull
	var	2
	line	133
	colm	9
	synt	any
	null
	unmark
	line	134
	colm	9
	synt	if
	mark0
	mark	L2
	pnull
	var	2
	var	3
	str	0
	str	1
	line	134
	colm	35
	synt	any
	invoke	2
	line	134
	colm	28
	synt	any
	asgn
	unmark
	efail
lab L2
	pnull
	unmark
	var	4
	str	2
	line	134
	colm	65
	synt	any
	invoke	1
	line	134
	colm	9
	synt	endif
	line	133
	colm	5
	synt	endif
	unmark
lab L1
	mark	L3
	var	5
	var	2
	var	0
	line	136
	colm	10
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	mark	L5
	int	3
	line	137
	colm	1
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	138
	colm	2
	synt	any
	pfail
	end
proc Gfc_add
	local	0,001000,ptr
	local	1,001000,lvl
	local	2,001000,fast_only
	local	3,000020,p
	local	4,000000,compile_fcs
	local	5,000000,Fc_Entry
	local	6,000000,Gfc_list
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	143
	colm	12
	synt	any
	mark	L1
	line	149
	colm	5
	synt	if
	mark0
	pnull
	var	4
	int	0
	line	149
	colm	21
	synt	any
	numeq
	unmark
	mark	L2
	int	1
	line	149
	colm	33
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	149
	colm	5
	synt	endif
	unmark
lab L1
	mark	L3
	pnull
	var	3
	var	5
	var	0
	var	1
	var	2
	var	6
	line	150
	colm	18
	synt	any
	invoke	4
	line	150
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	6
	var	3
	line	151
	colm	14
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	int	1
	line	152
	colm	2
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	153
	colm	2
	synt	any
	pfail
	end
proc Gfc_delete
	local	0,000020,p
	local	1,000000,Gfc_list
	con	0,002000,1,1
	declend
	line	155
	colm	12
	synt	any
	mark	L1
	pnull
	var	0
	var	1
	line	157
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	pnull
	var	1
	line	158
	colm	26
	synt	any
	field	fc_next
	line	158
	colm	14
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	int	0
	line	160
	colm	2
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	161
	colm	2
	synt	any
	pfail
	end
proc Gcompile_funcs
	local	0,000020,fc_ptr
	local	1,000020,fc_lvl
	local	2,000020,fc_fast_only
	local	3,000020,first_avail_loc
	local	4,000020,old_sl_avail
	local	5,000000,avail_loc
	local	6,000000,Gfc_list
	local	7,000000,Gfc_delete
	local	8,000000,Gfunc_body
	local	9,000000,has_field
	local	10,000000,sl_available
	local	11,000000,compile_fcs
	con	0,002000,1,0
	con	1,010000,13,146,143,137,143,157,155,160,154,145,170,151,164,171
	con	2,002000,1,1
	declend
	line	166
	colm	12
	synt	any
	mark	L1
	pnull
	var	3
	var	5
	line	169
	colm	21
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	170
	colm	5
	synt	while
	mark0
	pnull
	var	6
	line	170
	colm	12
	synt	any
	nonnull
	unmark
	mark	L3
	mark	L6
	pnull
	var	0
	pnull
	var	6
	line	171
	colm	28
	synt	any
	field	fc_pointer
	line	171
	colm	16
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	1
	pnull
	var	6
	line	172
	colm	28
	synt	any
	field	fc_level
	line	172
	colm	16
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	2
	pnull
	var	6
	line	173
	colm	34
	synt	any
	field	fc_fast_only
	line	173
	colm	22
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	var	7
	line	174
	colm	19
	synt	any
	invoke	0
	unmark
lab L9
	mark	L10
	line	175
	colm	9
	synt	if
	mark0
	pnull
	var	2
	int	0
	line	175
	colm	25
	synt	any
	numeq
	unmark
	mark	L11
	pnull
	var	5
	var	3
	line	178
	colm	23
	synt	any
	asgn
	unmark
lab L11
	var	8
	var	0
	var	1
	line	179
	colm	23
	synt	any
	invoke	2
	line	175
	colm	9
	synt	endif
	unmark
lab L10
	line	181
	colm	9
	synt	if
	mark0
	var	9
	var	0
	str	1
	line	181
	colm	21
	synt	any
	invoke	2
	unmark
	line	182
	colm	9
	synt	if
	mark0
	pnull
	var	0
	line	182
	colm	20
	synt	any
	field	fc_complexity
	pop
	int	2
	pop
	pnull
	var	1
	int	0
	line	182
	colm	50
	synt	any
	numne
	unmark
	mark	L12
	pnull
	var	4
	var	10
	line	183
	colm	26
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	var	10
	int	0
	line	184
	colm	26
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	line	185
	colm	13
	synt	if
	mark0
	pnull
	var	2
	int	0
	line	185
	colm	30
	synt	any
	numeq
	unmark
	pnull
	var	11
	int	0
	line	185
	colm	54
	synt	any
	asgn
	line	185
	colm	13
	synt	endif
	unmark
lab L14
	mark	L15
	pnull
	var	5
	var	3
	line	186
	colm	23
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	var	8
	var	0
	var	1
	line	187
	colm	23
	synt	any
	invoke	2
	unmark
lab L16
	mark	L17
	pnull
	var	10
	var	4
	line	188
	colm	26
	synt	any
	asgn
	unmark
lab L17
	pnull
	var	11
	int	2
	line	189
	colm	25
	synt	any
	asgn
	line	182
	colm	9
	synt	endif
	line	181
	colm	9
	synt	endif
lab L4
	unmark
	goto	L3
lab L5
	line	170
	colm	5
	synt	endwhile
	unmark
lab L2
	mark	L18
	mark	L19
	int	2
	line	192
	colm	1
	synt	any
	pret
lab L19
	synt	any
	pfail
	unmark
lab L18
	pnull
	line	193
	colm	2
	synt	any
	pfail
	end
proc Ggeneratecode
	local	0,001000,f
	local	1,001000,p
	local	2,000000,Goutfile
	local	3,000000,analyze
	local	4,000000,accessible
	local	5,000000,bld_analyze
	local	6,000000,Vallocate
	local	7,000000,sl_analyze
	local	8,000000,finished_accessible
	local	9,000000,Oflag
	local	10,000000,Vflag
	local	11,000000,write
	local	12,000000,cl_analyze
	local	13,000000,yydebug
	local	14,000000,prtree
	local	15,000000,Gfc_add
	local	16,000000,Gcompile_funcs
	con	0,010000,18,137,162,165,163,163,145,154,154,137,164,157,160,137,154,145,166,145,154
	con	1,002000,1,1
	con	2,010000,25,122,145,160,145,141,164,151,156,147,040,142,141,163,151,143,040,141,156,141,154,171,163,151,163,072
	con	3,002000,1,0
	declend
	line	197
	colm	12
	synt	any
	mark	L1
	pnull
	var	2
	var	0
	line	198
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	199
	colm	7
	synt	any
	field	fc_code_label
	str	0
	line	199
	colm	23
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	var	3
	var	1
	line	200
	colm	12
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	4
	var	1
	line	201
	colm	15
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	5
	var	1
	line	202
	colm	16
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	6
	var	1
	int	1
	line	203
	colm	15
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	7
	var	1
	line	204
	colm	15
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	pnull
	var	8
	int	1
	line	205
	colm	25
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	line	206
	colm	5
	synt	if
	mark0
	var	9
	unmark
	mark	L10
	line	208
	colm	9
	synt	if
	mark0
	pnull
	var	10
	int	1
	line	208
	colm	19
	synt	any
	numeq
	unmark
	var	11
	str	2
	line	209
	colm	18
	synt	any
	invoke	1
	line	208
	colm	9
	synt	endif
	unmark
lab L10
	var	3
	var	1
	line	211
	colm	16
	synt	any
	invoke	1
	line	206
	colm	5
	synt	endif
	unmark
lab L9
	mark	L11
	var	12
	var	1
	int	1
	line	213
	colm	15
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	line	214
	colm	5
	synt	if
	mark0
	var	13
	unmark
	var	14
	var	1
	line	214
	colm	29
	synt	any
	invoke	1
	line	214
	colm	5
	synt	endif
	unmark
lab L12
	mark	L13
	var	15
	var	1
	int	3
	int	3
	line	215
	colm	12
	synt	any
	invoke	3
	unmark
lab L13
	mark	L14
	var	16
	line	217
	colm	19
	synt	any
	invoke	0
	unmark
lab L14
	mark	L15
	mark	L16
	int	1
	line	218
	colm	1
	synt	any
	pret
lab L16
	synt	any
	pfail
	unmark
lab L15
	pnull
	line	219
	colm	2
	synt	any
	pfail
	end
proc Ggeneratepcode
	local	0,001000,f
	local	1,001000,q
	local	2,001000,p
	local	3,000000,Goutfile
	local	4,000000,analyze
	local	5,000000,write
	local	6,000000,treefile
	local	7,000000,accessible
	local	8,000000,bld_analyze
	local	9,000000,Vallocate
	local	10,000000,finished_accessible
	local	11,000000,Oflag
	local	12,000000,Vflag
	local	13,000000,has_field
	local	14,000000,str_code_buf
	local	15,000000,entry_name
	local	16,000000,genl
	local	17,000000,Glevel
	local	18,000000,Gfuncconstructor
	local	19,000000,gen0
	local	20,000000,Gcompile_funcs
	con	0,010000,18,137,162,165,163,163,145,154,154,137,164,157,160,137,154,145,166,145,154
	con	1,010000,41,142,145,147,151,156,040,107,147,145,156,145,162,141,164,145,160,143,157,144,145,040,161,056,144,165,155,160,040,141,146,164,145,162,040,141,156,141,154,171,172,145
	con	2,010000,25,145,156,144,040,107,147,145,156,145,162,141,164,145,160,143,157,144,145,040,161,056,144,165,155,160
	con	3,002000,1,0
	con	4,002000,1,1
	con	5,010000,25,122,145,160,145,141,164,151,156,147,040,142,141,163,151,143,040,141,156,141,154,171,163,151,163,072
	con	6,010000,15,141,162,137,163,164,141,164,151,143,137,154,145,166,145,154
	con	7,010000,2,155,137
	con	8,002000,1,6
	con	9,002000,1,9
	con	10,002000,2,29
	declend
	line	223
	colm	12
	synt	any
	mark	L1
	pnull
	var	3
	var	0
	line	224
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	225
	colm	7
	synt	any
	field	fc_code_label
	str	0
	line	225
	colm	23
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	var	4
	var	1
	line	227
	colm	12
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	5
	var	6
	str	1
	line	228
	colm	10
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	pnull
	var	1
	line	229
	colm	6
	synt	any
	field	dump
	var	6
	line	229
	colm	11
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	5
	var	6
	str	2
	line	230
	colm	10
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	7
	var	1
	line	234
	colm	15
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	var	8
	var	1
	line	235
	colm	16
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	var	9
	var	1
	int	3
	line	236
	colm	15
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	pnull
	var	10
	int	4
	line	238
	colm	25
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	line	239
	colm	5
	synt	if
	mark0
	var	11
	unmark
	mark	L12
	line	241
	colm	9
	synt	if
	mark0
	pnull
	var	12
	int	4
	line	241
	colm	19
	synt	any
	numeq
	unmark
	var	5
	str	5
	line	242
	colm	18
	synt	any
	invoke	1
	line	241
	colm	9
	synt	endif
	unmark
lab L12
	var	4
	var	1
	line	244
	colm	16
	synt	any
	invoke	1
	line	239
	colm	5
	synt	endif
	unmark
lab L11
	mark	L13
	line	247
	colm	5
	synt	if
	mark0
	mark	L14
	var	13
	var	2
	str	6
	line	247
	colm	21
	synt	any
	invoke	2
	unmark
	efail
lab L14
	pnull
	unmark
	pnull
	var	2
	pnull
	var	2
	line	248
	colm	15
	synt	any
	field	cn_hd_field
	line	248
	colm	11
	synt	any
	asgn
	line	247
	colm	5
	synt	endif
	unmark
lab L13
	mark	L15
	line	249
	colm	5
	synt	if
	mark0
	mark	L16
	var	13
	var	2
	str	6
	line	249
	colm	21
	synt	any
	invoke	2
	unmark
	efail
lab L16
	pnull
	unmark
	pnull
	var	2
	pnull
	var	2
	line	250
	colm	15
	synt	any
	field	cn_hd_field
	line	250
	colm	11
	synt	any
	asgn
	line	249
	colm	5
	synt	endif
	unmark
lab L15
	mark	L17
	pnull
	var	14
	pnull
	str	7
	var	15
	line	256
	colm	26
	synt	any
	cat
	line	256
	colm	18
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	var	16
	int	8
	var	14
	line	257
	colm	9
	synt	any
	invoke	2
	unmark
lab L18
	mark	L19
	var	16
	int	9
	var	14
	line	258
	colm	9
	synt	any
	invoke	2
	unmark
lab L19
	mark	L20
	pnull
	var	17
	int	3
	line	259
	colm	12
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	var	18
	var	2
	int	8
	line	260
	colm	21
	synt	any
	invoke	2
	unmark
lab L21
	mark	L22
	var	19
	int	10
	line	261
	colm	9
	synt	any
	invoke	1
	unmark
lab L22
	mark	L23
	var	20
	line	263
	colm	19
	synt	any
	invoke	0
	unmark
lab L23
	mark	L24
	mark	L25
	int	4
	line	264
	colm	1
	synt	any
	pret
lab L25
	synt	any
	pfail
	unmark
lab L24
	pnull
	line	265
	colm	2
	synt	any
	pfail
	end
proc GgenerateXcode
	local	0,001000,f
	local	1,001000,q
	local	2,001000,p
	local	3,000020,sig
	local	4,000020,name_buf
	local	5,000020,ar_name_buf
	local	6,000000,sig_structure
	local	7,000000,Goutfile
	local	8,000000,rpt_err
	local	9,000000,analyze
	local	10,000000,accessible
	local	11,000000,bld_analyze
	local	12,000000,Vallocate
	local	13,000000,sl_analyze
	local	14,000000,finished_accessible
	local	15,000000,Oflag
	local	16,000000,Vflag
	local	17,000000,write
	local	18,000000,cl_analyze
	local	19,000000,Gcurrent
	local	20,000000,Glevel
	local	21,000000,copied_globals
	local	22,000000,sl_available
	local	23,000000,xflag
	local	24,000000,entry_name
	local	25,000000,genl
	local	26,000000,gen2
	local	27,000000,gen1
	local	28,000000,gen3
	local	29,000000,Gexpression
	local	30,000000,gen0
	local	31,000000,compile_stubs
	local	32,000000,Gcompile_funcs
	con	0,010000,18,137,162,165,163,163,145,154,154,137,164,157,160,137,154,145,166,145,154
	con	1,002000,1,7
	con	2,010000,42,055,130,040,162,145,161,165,151,162,145,163,040,145,170,160,162,145,163,163,151,157,156,040,167,151,164,150,040,164,171,160,145,040,163,151,147,156,141,164,165,162,145
	con	3,002000,1,1
	con	4,002000,1,0
	con	5,010000,25,122,145,160,145,141,164,151,156,147,040,142,141,163,151,143,040,141,156,141,154,171,163,151,163,072
	con	6,010000,7,137,130,122,137,162,165,156
	con	7,010000,1,137
	con	8,002000,1,6
	con	9,002000,2,15
	con	10,002000,2,28
	con	11,002000,2,39
	con	12,002000,1,3
	con	13,002000,2,23
	con	14,002000,1,2
	con	15,010000,15,137,162,165,163,163,145,154,154,137,163,145,164,137,165,160
	con	16,002000,2,36
	con	17,002000,2,38
	con	18,002000,1,9
	con	19,002000,2,31
	con	20,010000,12,137,141,162,137,163,141,166,145,137,154,157,143
	con	21,002000,2,45
	con	22,002000,2,20
	con	23,002000,2,16
	con	24,002000,2,30
	con	25,002000,2,26
	con	26,002000,2,21
	con	27,002000,2,11
	con	28,010000,10,137,147,154,157,142,141,154,137,141,162
	con	29,010000,9,137,163,141,166,145,137,154,157,143
	con	30,002000,2,29
	declend
	line	271
	colm	12
	synt	any
	mark	L1
	pnull
	var	3
	var	6
	pnull
	var	2
	line	273
	colm	27
	synt	any
	field	signature
	line	273
	colm	24
	synt	any
	invoke	1
	line	273
	colm	9
	synt	any
	numeq
	unmark
lab L1
	mark	L2
	pnull
	var	7
	var	0
	line	274
	colm	14
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	1
	line	275
	colm	7
	synt	any
	field	fc_code_label
	str	0
	line	275
	colm	23
	synt	any
	numeq
	unmark
lab L3
	mark	L4
	line	276
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	3
	line	276
	colm	13
	synt	any
	field	kind
	int	1
	line	276
	colm	20
	synt	any
	numne
	unmark
	mark	L5
	var	8
	str	2
	line	277
	colm	16
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	int	3
	line	278
	colm	9
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	276
	colm	5
	synt	endif
	unmark
lab L4
	mark	L7
	var	9
	var	1
	line	280
	colm	12
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	var	10
	var	1
	line	281
	colm	15
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	var	11
	var	1
	line	282
	colm	16
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	var	12
	var	1
	int	4
	line	283
	colm	15
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	13
	var	1
	line	284
	colm	15
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	pnull
	var	14
	int	3
	line	285
	colm	25
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	line	286
	colm	5
	synt	if
	mark0
	pnull
	var	15
	int	3
	line	286
	colm	15
	synt	any
	numeq
	unmark
	mark	L14
	line	288
	colm	9
	synt	if
	mark0
	pnull
	var	16
	int	3
	line	288
	colm	19
	synt	any
	numeq
	unmark
	var	17
	str	5
	line	289
	colm	18
	synt	any
	invoke	1
	line	288
	colm	9
	synt	endif
	unmark
lab L14
	var	9
	var	1
	line	291
	colm	16
	synt	any
	invoke	1
	line	286
	colm	5
	synt	endif
	unmark
lab L13
	mark	L15
	var	18
	var	1
	int	3
	line	293
	colm	15
	synt	any
	invoke	2
	unmark
lab L15
	mark	L16
	pnull
	var	19
	var	1
	line	295
	colm	14
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	pnull
	var	20
	int	4
	line	296
	colm	12
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	var	21
	int	4
	line	297
	colm	20
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	pnull
	var	22
	int	3
	line	298
	colm	18
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	line	301
	colm	5
	synt	ifelse
	mark	L21
	pnull
	var	23
	int	3
	line	301
	colm	15
	synt	any
	numeq
	unmark
	pnull
	var	4
	str	6
	line	302
	colm	18
	synt	any
	asgn
	goto	L22
lab L21
	pnull
	var	4
	pnull
	pnull
	str	7
	var	24
	line	304
	colm	25
	synt	any
	cat
	str	7
	line	304
	colm	39
	synt	any
	cat
	line	304
	colm	18
	synt	any
	asgn
lab L22
	line	301
	colm	5
	synt	endifelse
	unmark
lab L20
	mark	L23
	var	25
	int	8
	var	4
	line	306
	colm	9
	synt	any
	invoke	2
	unmark
lab L23
	mark	L24
	var	25
	int	9
	var	4
	line	307
	colm	9
	synt	any
	invoke	2
	unmark
lab L24
	mark	L25
	var	26
	int	10
	pnull
	var	1
	line	310
	colm	20
	synt	any
	field	ar_size
	int	8
	line	310
	colm	13
	synt	any
	invoke	3
	unmark
lab L25
	mark	L26
	line	311
	colm	5
	synt	ifelse
	mark	L27
	pnull
	var	23
	int	3
	line	311
	colm	15
	synt	any
	numeq
	unmark
	var	26
	int	11
	int	3
	int	8
	line	312
	colm	13
	synt	any
	invoke	3
	goto	L28
lab L27
	mark	L29
	var	26
	int	11
	int	12
	int	8
	line	314
	colm	13
	synt	any
	invoke	3
	unmark
lab L29
	mark	L30
	var	26
	int	13
	int	14
	int	8
	line	315
	colm	13
	synt	any
	invoke	3
	unmark
lab L30
	mark	L31
	var	26
	int	11
	int	14
	int	8
	line	316
	colm	13
	synt	any
	invoke	3
	unmark
lab L31
	mark	L32
	var	26
	int	13
	int	3
	int	8
	line	317
	colm	13
	synt	any
	invoke	3
	unmark
lab L32
	var	26
	int	11
	int	3
	int	8
	line	318
	colm	13
	synt	any
	invoke	3
lab L28
	line	311
	colm	5
	synt	endifelse
	unmark
lab L26
	mark	L33
	var	25
	int	8
	str	15
	line	320
	colm	9
	synt	any
	invoke	2
	unmark
lab L33
	mark	L34
	var	25
	int	1
	str	15
	line	321
	colm	9
	synt	any
	invoke	2
	unmark
lab L34
	mark	L35
	line	322
	colm	5
	synt	ifelse
	mark	L36
	pnull
	var	23
	int	3
	line	322
	colm	15
	synt	any
	numeq
	unmark
	var	27
	int	16
	int	3
	line	323
	colm	13
	synt	any
	invoke	2
	goto	L37
lab L36
	var	27
	int	16
	int	12
	line	325
	colm	13
	synt	any
	invoke	2
lab L37
	line	322
	colm	5
	synt	endifelse
	unmark
lab L35
	mark	L38
	var	27
	int	17
	int	18
	line	327
	colm	9
	synt	any
	invoke	2
	unmark
lab L38
	mark	L39
	var	26
	int	19
	int	8
	int	12
	line	328
	colm	9
	synt	any
	invoke	3
	unmark
lab L39
	mark	L40
	var	26
	int	19
	int	12
	int	3
	line	329
	colm	9
	synt	any
	invoke	3
	unmark
lab L40
	mark	L41
	pnull
	var	5
	pnull
	pnull
	str	7
	var	24
	line	332
	colm	24
	synt	any
	cat
	str	20
	line	332
	colm	38
	synt	any
	cat
	line	332
	colm	17
	synt	any
	asgn
	unmark
lab L41
	mark	L42
	var	25
	int	1
	var	5
	line	333
	colm	9
	synt	any
	invoke	2
	unmark
lab L42
	mark	L43
	var	27
	int	21
	int	4
	line	334
	colm	9
	synt	any
	invoke	2
	unmark
lab L43
	mark	L44
	var	26
	int	22
	int	23
	int	3
	line	335
	colm	9
	synt	any
	invoke	3
	unmark
lab L44
	mark	L45
	var	25
	int	1
	var	5
	line	336
	colm	9
	synt	any
	invoke	2
	unmark
lab L45
	mark	L46
	var	27
	int	24
	int	23
	line	337
	colm	9
	synt	any
	invoke	2
	unmark
lab L46
	mark	L47
	var	28
	int	25
	int	23
	int	4
	int	12
	line	338
	colm	9
	synt	any
	invoke	4
	unmark
lab L47
	mark	L48
	var	27
	int	26
	int	23
	line	339
	colm	9
	synt	any
	invoke	2
	unmark
lab L48
	mark	L49
	var	26
	int	17
	int	27
	int	14
	line	345
	colm	9
	synt	any
	invoke	3
	unmark
lab L49
	mark	L50
	var	25
	int	8
	str	28
	line	346
	colm	9
	synt	any
	invoke	2
	unmark
lab L50
	mark	L51
	var	25
	int	1
	str	28
	line	352
	colm	13
	synt	any
	invoke	2
	unmark
lab L51
	mark	L52
	var	27
	int	21
	int	4
	line	353
	colm	9
	synt	any
	invoke	2
	unmark
lab L52
	mark	L53
	line	355
	colm	5
	synt	ifelse
	mark	L54
	var	23
	unmark
	pnull
	goto	L55
lab L54
	mark	L56
	var	26
	int	22
	int	23
	int	3
	line	365
	colm	13
	synt	any
	invoke	3
	unmark
lab L56
	mark	L57
	var	25
	int	1
	str	28
	line	366
	colm	13
	synt	any
	invoke	2
	unmark
lab L57
	mark	L58
	var	27
	int	24
	int	23
	line	367
	colm	13
	synt	any
	invoke	2
	unmark
lab L58
	mark	L59
	var	28
	int	25
	int	23
	int	4
	int	12
	line	368
	colm	13
	synt	any
	invoke	4
	unmark
lab L59
	var	27
	int	26
	int	23
	line	369
	colm	13
	synt	any
	invoke	2
lab L55
	line	355
	colm	5
	synt	endifelse
	unmark
lab L53
	mark	L60
	var	29
	var	2
	int	8
	int	4
	line	372
	colm	16
	synt	any
	invoke	3
	unmark
lab L60
	mark	L61
	pnull
	var	4
	pnull
	pnull
	str	7
	var	24
	line	375
	colm	21
	synt	any
	cat
	str	29
	line	375
	colm	35
	synt	any
	cat
	line	375
	colm	14
	synt	any
	asgn
	unmark
lab L61
	mark	L62
	var	25
	int	1
	var	4
	line	376
	colm	9
	synt	any
	invoke	2
	unmark
lab L62
	mark	L63
	var	27
	int	21
	int	4
	line	377
	colm	9
	synt	any
	invoke	2
	unmark
lab L63
	mark	L64
	var	26
	int	22
	int	23
	int	3
	line	378
	colm	9
	synt	any
	invoke	3
	unmark
lab L64
	mark	L65
	var	25
	int	1
	var	4
	line	379
	colm	9
	synt	any
	invoke	2
	unmark
lab L65
	mark	L66
	var	27
	int	24
	int	23
	line	380
	colm	9
	synt	any
	invoke	2
	unmark
lab L66
	mark	L67
	var	28
	int	25
	int	23
	int	4
	int	8
	line	381
	colm	9
	synt	any
	invoke	4
	unmark
lab L67
	mark	L68
	var	27
	int	26
	int	23
	line	382
	colm	9
	synt	any
	invoke	2
	unmark
lab L68
	mark	L69
	var	30
	int	30
	line	383
	colm	9
	synt	any
	invoke	1
	unmark
lab L69
	mark	L70
	var	31
	var	3
	var	4
	var	5
	line	388
	colm	18
	synt	any
	invoke	3
	unmark
lab L70
	mark	L71
	var	32
	line	390
	colm	19
	synt	any
	invoke	0
	unmark
lab L71
	mark	L72
	mark	L73
	int	3
	line	391
	colm	1
	synt	any
	pret
lab L73
	synt	any
	pfail
	unmark
lab L72
	pnull
	line	392
	colm	2
	synt	any
	pfail
	end
proc Gfuncconstructor
	local	0,001000,p
	local	1,001000,rloc
	local	2,000020,n_args
	local	3,000020,contains_globals
	local	4,000020,cl_size
	local	5,000020,fv_len
	local	6,000020,tloc
	local	7,000020,cp
	local	8,000000,avail_loc
	local	9,000000,gen2
	local	10,000000,has_field
	local	11,000000,length
	local	12,000000,ALLOC_FO
	local	13,000000,new_global_label
	local	14,000000,genl
	local	15,000000,gen1
	local	16,000000,gen3
	local	17,000000,Gident
	local	18,000000,first
	local	19,000000,temp
	local	20,000000,s
	local	21,000000,Gfc_add
	local	22,000000,Glevel
	con	0,002000,1,1
	con	1,002000,2,20
	con	2,002000,1,2
	con	3,010000,7,146,143,137,142,157,144,171
	con	4,002000,2,37
	con	5,010000,5,146,163,164,165,142
	con	6,002000,1,6
	con	7,002000,1,7
	con	8,002000,2,30
	con	9,002000,2,26
	con	10,002000,2,28
	con	11,002000,1,0
	con	12,002000,2,32
	con	13,002000,1,3
	con	14,002000,2,22
	con	15,002000,2,64
	con	16,002000,2,21
	declend
	line	396
	colm	12
	synt	any
	mark	L1
	pnull
	var	8
	dup
	int	0
	line	402
	colm	15
	synt	any
	plus
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	6
	var	8
	line	403
	colm	10
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	var	9
	int	1
	var	6
	int	2
	line	405
	colm	9
	synt	any
	invoke	3
	unmark
lab L3
	mark	L4
	line	406
	colm	5
	synt	if
	mark0
	var	10
	var	0
	str	3
	line	406
	colm	17
	synt	any
	invoke	2
	unmark
	line	407
	colm	5
	synt	ifelse
	mark	L5
	pnull
	pnull
	pnull
	var	0
	line	407
	colm	11
	synt	any
	field	fc_body
	line	407
	colm	21
	synt	any
	field	kind
	int	4
	line	407
	colm	28
	synt	any
	numeq
	unmark
	mark	L7
	pnull
	var	2
	var	11
	pnull
	pnull
	var	0
	line	408
	colm	28
	synt	any
	field	signature
	line	408
	colm	40
	synt	any
	field	fsig_param_list
	line	408
	colm	25
	synt	any
	invoke	1
	line	408
	colm	16
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	var	12
	var	1
	line	411
	colm	17
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	0
	line	414
	colm	11
	synt	any
	field	fc_code_label
	var	13
	str	5
	line	414
	colm	46
	synt	any
	invoke	1
	line	414
	colm	27
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	var	14
	int	6
	pnull
	var	0
	line	417
	colm	19
	synt	any
	field	fc_code_label
	line	417
	colm	13
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	14
	int	7
	pnull
	var	0
	line	418
	colm	19
	synt	any
	field	fc_code_label
	line	418
	colm	13
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	15
	int	8
	var	6
	line	419
	colm	13
	synt	any
	invoke	2
	unmark
lab L12
	mark	L13
	var	16
	int	9
	var	1
	int	2
	var	6
	line	420
	colm	13
	synt	any
	invoke	4
	unmark
lab L13
	mark	L14
	var	9
	int	10
	pnull
	var	2
	int	0
	line	422
	colm	25
	synt	any
	plus
	var	6
	line	422
	colm	13
	synt	any
	invoke	3
	unmark
lab L14
	mark	L15
	var	16
	int	9
	var	1
	int	11
	var	6
	line	423
	colm	13
	synt	any
	invoke	4
	unmark
lab L15
	mark	L16
	var	9
	int	10
	var	2
	var	6
	line	425
	colm	13
	synt	any
	invoke	3
	unmark
lab L16
	var	16
	int	9
	var	1
	int	0
	var	6
	line	426
	colm	13
	synt	any
	invoke	4
	goto	L6
lab L5
	mark	L17
	pnull
	var	3
	pnull
	pnull
	var	0
	line	429
	colm	32
	synt	any
	field	fc_complexity
	pop
	int	12
	int	11
	line	429
	colm	54
	synt	any
	numne
	line	429
	colm	26
	synt	any
	numeq
	unmark
lab L17
	mark	L18
	line	430
	colm	9
	synt	ifelse
	mark	L19
	pnull
	var	3
	int	0
	line	430
	colm	30
	synt	any
	numeq
	unmark
	mark	L21
	pnull
	var	5
	var	11
	pnull
	var	0
	line	431
	colm	32
	synt	any
	field	fc_free_vars
	line	431
	colm	29
	synt	any
	invoke	1
	line	431
	colm	20
	synt	any
	asgn
	unmark
lab L21
	line	432
	colm	13
	synt	ifelse
	mark	L22
	pnull
	var	5
	int	0
	line	432
	colm	24
	synt	any
	numle
	unmark
	pnull
	var	4
	int	13
	line	433
	colm	25
	synt	any
	asgn
	goto	L23
lab L22
	pnull
	var	4
	pnull
	int	13
	var	5
	line	435
	colm	30
	synt	any
	plus
	line	435
	colm	25
	synt	any
	asgn
lab L23
	line	432
	colm	13
	synt	endifelse
	goto	L20
lab L19
	pnull
	var	4
	int	13
	line	438
	colm	21
	synt	any
	asgn
lab L20
	line	430
	colm	9
	synt	endifelse
	unmark
lab L18
	mark	L24
	var	9
	int	10
	var	4
	var	6
	line	441
	colm	13
	synt	any
	invoke	3
	unmark
lab L24
	mark	L25
	var	9
	int	14
	var	6
	var	1
	line	442
	colm	13
	synt	any
	invoke	3
	unmark
lab L25
	mark	L26
	var	14
	int	6
	pnull
	var	0
	line	445
	colm	19
	synt	any
	field	fc_code_label
	line	445
	colm	13
	synt	any
	invoke	2
	unmark
lab L26
	mark	L27
	var	14
	int	7
	pnull
	var	0
	line	446
	colm	19
	synt	any
	field	fc_code_label
	line	446
	colm	13
	synt	any
	invoke	2
	unmark
lab L27
	mark	L28
	var	15
	int	8
	var	6
	line	447
	colm	13
	synt	any
	invoke	2
	unmark
lab L28
	mark	L29
	var	16
	int	9
	var	1
	int	2
	var	6
	line	448
	colm	13
	synt	any
	invoke	4
	unmark
lab L29
	mark	L30
	line	450
	colm	9
	synt	ifelse
	mark	L31
	pnull
	var	0
	line	450
	colm	15
	synt	any
	field	fc_complexity
	pop
	int	15
	unmark
	var	9
	int	10
	pnull
	var	0
	line	452
	colm	24
	synt	any
	field	ar_size
	var	6
	line	452
	colm	17
	synt	any
	invoke	3
	goto	L32
lab L31
	var	9
	int	10
	pnull
	pnull
	var	0
	line	454
	colm	26
	synt	any
	field	ar_size
	line	454
	colm	22
	synt	any
	neg
	var	6
	line	454
	colm	17
	synt	any
	invoke	3
lab L32
	line	450
	colm	9
	synt	endifelse
	unmark
lab L30
	mark	L33
	var	16
	int	9
	var	1
	int	11
	var	6
	line	456
	colm	13
	synt	any
	invoke	4
	unmark
lab L33
	line	458
	colm	9
	synt	ifelse
	mark	L34
	var	3
	unmark
	line	460
	colm	13
	synt	ifelse
	mark	L36
	pnull
	var	5
	int	0
	line	460
	colm	24
	synt	any
	numeq
	unmark
	mark	L38
	var	17
	var	18
	pnull
	var	0
	line	462
	colm	32
	synt	any
	field	fc_free_vars
	line	462
	colm	29
	synt	any
	invoke	1
	var	6
	line	462
	colm	23
	synt	any
	invoke	2
	unmark
lab L38
	var	16
	int	9
	var	1
	int	0
	var	6
	line	464
	colm	21
	synt	any
	invoke	4
	goto	L37
lab L36
	line	465
	colm	20
	synt	if
	mark0
	pnull
	var	5
	int	0
	line	465
	colm	31
	synt	any
	numgt
	unmark
	mark	L39
	var	16
	int	9
	var	1
	int	0
	var	1
	line	467
	colm	21
	synt	any
	invoke	4
	unmark
lab L39
	mark	L40
	pnull
	var	7
	int	13
	line	469
	colm	20
	synt	any
	asgn
	unmark
lab L40
	mark	L41
	pnull
	var	19
	pnull
	pnull
	var	0
	line	470
	colm	28
	synt	any
	field	fc_free_vars
	line	470
	colm	43
	synt	any
	field	lh_first
	line	470
	colm	22
	synt	any
	asgn
	unmark
lab L41
lab L42
	line	471
	colm	17
	synt	while
	mark0
	pnull
	var	19
	line	471
	colm	23
	synt	any
	nonnull
	unmark
	mark	L42
	mark	L45
	pnull
	var	20
	pnull
	var	19
	line	472
	colm	30
	synt	any
	field	cn_hd_field
	line	472
	colm	23
	synt	any
	asgn
	unmark
lab L45
	mark	L46
	var	17
	var	20
	var	6
	line	473
	colm	27
	synt	any
	invoke	2
	unmark
lab L46
	mark	L47
	var	16
	int	9
	var	1
	var	7
	var	6
	line	474
	colm	25
	synt	any
	invoke	4
	unmark
lab L47
	mark	L48
	pnull
	var	7
	dup
	int	0
	line	475
	colm	24
	synt	any
	plus
	asgn
	unmark
lab L48
	pnull
	var	19
	pnull
	var	19
	line	476
	colm	33
	synt	any
	field	cn_tl_field
	line	476
	colm	26
	synt	any
	asgn
lab L43
	unmark
	goto	L42
lab L44
	line	471
	colm	17
	synt	endwhile
	line	465
	colm	20
	synt	endif
lab L37
	line	460
	colm	13
	synt	endifelse
	goto	L35
lab L34
	var	16
	int	9
	var	1
	int	0
	int	0
	line	481
	colm	17
	synt	any
	invoke	4
lab L35
	line	458
	colm	9
	synt	endifelse
lab L6
	line	407
	colm	5
	synt	endifelse
	line	406
	colm	5
	synt	endif
	unmark
lab L4
	mark	L49
	var	15
	int	16
	var	6
	line	484
	colm	9
	synt	any
	invoke	2
	unmark
lab L49
	mark	L50
	var	21
	var	0
	pnull
	var	22
	int	0
	line	486
	colm	23
	synt	any
	plus
	int	11
	line	486
	colm	12
	synt	any
	invoke	3
	unmark
lab L50
	mark	L51
	mark	L52
	int	0
	line	487
	colm	1
	synt	any
	pret
lab L52
	synt	any
	pfail
	unmark
lab L51
	pnull
	line	488
	colm	2
	synt	any
	pfail
	end
proc Gfunc_body
	local	0,001000,p
	local	1,001000,l
	local	2,000020,is_extern
	local	3,000000,has_field
	local	4,000000,Gcurrent
	local	5,000000,Glevel
	local	6,000000,copied_globals
	local	7,000000,n_globals
	local	8,000000,length
	local	9,000000,sl_available
	local	10,000000,genl
	local	11,000000,str_code_buf
	local	12,000000,gen1
	local	13,000000,gen2
	local	14,000000,Pflag
	local	15,000000,Tflag
	local	16,000000,Gentry_trace
	local	17,000000,Fflag
	local	18,000000,first_param_loc
	local	19,000000,avail_loc
	local	20,000000,n_args
	local	21,000000,i
	local	22,000000,params
	local	23,000000,n_vacuous_params
	local	24,000000,ASSERT
	local	25,000000,j
	local	26,000000,gen3
	local	27,000000,Gexpression
	local	28,000000,Gexit_trace
	local	29,000000,gen0
	con	0,010000,7,141,162,137,163,151,172,145
	con	1,002000,1,0
	con	2,010000,7,146,143,137,142,157,144,171
	con	3,002000,2,37
	con	4,002000,1,1
	con	5,010000,13,146,143,137,143,157,155,160,154,145,170,151,164,171
	con	6,002000,2,32
	con	7,010000,12,146,143,137,146,162,145,145,137,166,141,162,163
	con	8,002000,1,6
	con	9,002000,1,9
	con	10,010000,1,106
	con	11,002000,2,15
	con	12,002000,2,38
	con	13,002000,2,31
	con	14,002000,1,3
	con	15,002000,2,12
	con	16,010000,15,146,163,151,147,137,160,141,162,141,155,137,154,151,163,164
	con	17,002000,3,128
	con	18,002000,2,20
	con	19,002000,1,2
	con	20,002000,2,23
	con	21,010000,1,122
	con	22,010000,2,122,106
	con	23,002000,1,5
	con	24,010000,45,103,141,156,047,164,040,143,157,155,160,151,154,145,040,163,164,165,142,040,167,151,164,150,157,165,164,040,141,143,164,151,166,141,164,151,157,156,040,162,145,143,157,162,144,012
	con	25,002000,2,25
	con	26,002000,2,39
	con	27,002000,2,21
	con	28,002000,1,7
	con	29,002000,2,36
	con	30,002000,2,29
	con	31,002000,2,11
	con	32,010000,12,137,145,156,164,162,171,137,141,162,137,163,172
	con	33,002000,2,45
	declend
	line	495
	colm	12
	synt	any
	mark	L1
	line	497
	colm	5
	synt	if
	mark0
	var	3
	var	0
	str	0
	line	497
	colm	17
	synt	any
	invoke	2
	unmark
	pnull
	pnull
	var	0
	line	498
	colm	7
	synt	any
	field	ar_size
	int	1
	line	498
	colm	17
	synt	any
	asgn
	line	497
	colm	5
	synt	endif
	unmark
lab L1
	mark	L2
	line	499
	colm	5
	synt	ifelse
	mark	L3
	var	3
	var	0
	str	2
	line	499
	colm	17
	synt	any
	invoke	2
	unmark
	line	500
	colm	9
	synt	ifelse
	mark	L5
	pnull
	pnull
	pnull
	var	0
	line	500
	colm	15
	synt	any
	field	fc_body
	line	500
	colm	25
	synt	any
	field	kind
	int	3
	line	500
	colm	33
	synt	any
	numeq
	unmark
	pnull
	var	2
	int	4
	line	501
	colm	23
	synt	any
	asgn
	goto	L6
lab L5
	pnull
	var	2
	int	1
	line	503
	colm	23
	synt	any
	asgn
lab L6
	line	500
	colm	9
	synt	endifelse
	goto	L4
lab L3
	pnull
	var	2
	int	1
	line	505
	colm	23
	synt	any
	asgn
lab L4
	line	499
	colm	5
	synt	endifelse
	unmark
lab L2
	mark	L7
	pnull
	var	4
	var	0
	line	509
	colm	14
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	5
	var	1
	line	510
	colm	12
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	line	511
	colm	5
	synt	ifelse
	mark	L10
	var	3
	var	4
	str	5
	line	511
	colm	17
	synt	any
	invoke	2
	unmark
	line	512
	colm	5
	synt	ifelse
	mark	L12
	pnull
	pnull
	var	4
	line	512
	colm	19
	synt	any
	field	fc_complexity
	pop
	int	6
	int	1
	line	512
	colm	41
	synt	any
	numne
	unmark
	pnull
	var	6
	int	4
	line	513
	colm	24
	synt	any
	asgn
	goto	L13
lab L12
	pnull
	var	6
	int	1
	line	515
	colm	24
	synt	any
	asgn
lab L13
	line	512
	colm	5
	synt	endifelse
	goto	L11
lab L10
	pnull
	var	6
	int	1
	line	517
	colm	24
	synt	any
	asgn
lab L11
	line	511
	colm	5
	synt	endifelse
	unmark
lab L9
	mark	L14
	line	519
	colm	5
	synt	if
	mark0
	var	6
	unmark
	line	520
	colm	9
	synt	ifelse
	mark	L15
	var	3
	var	4
	str	7
	line	520
	colm	21
	synt	any
	invoke	2
	unmark
	pnull
	var	7
	var	8
	pnull
	var	4
	line	521
	colm	42
	synt	any
	field	fc_free_vars
	line	521
	colm	32
	synt	any
	invoke	1
	line	521
	colm	23
	synt	any
	asgn
	goto	L16
lab L15
	pnull
	var	7
	int	1
	line	523
	colm	23
	synt	any
	asgn
lab L16
	line	520
	colm	9
	synt	endifelse
	line	519
	colm	5
	synt	endif
	unmark
lab L14
	mark	L17
	line	526
	colm	5
	synt	ifelse
	mark	L18
	pnull
	var	9
	int	4
	line	526
	colm	22
	synt	any
	numeq
	unmark
	mark	L20
	var	10
	int	8
	pnull
	var	0
	line	527
	colm	19
	synt	any
	field	fc_code_label
	line	527
	colm	13
	synt	any
	invoke	2
	unmark
lab L20
	var	10
	int	9
	pnull
	var	0
	line	528
	colm	19
	synt	any
	field	fc_code_label
	line	528
	colm	13
	synt	any
	invoke	2
	goto	L19
lab L18
	mark	L21
	pnull
	var	11
	pnull
	str	10
	pnull
	var	0
	line	531
	colm	34
	synt	any
	field	fc_code_label
	line	531
	colm	29
	synt	any
	cat
	line	531
	colm	22
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	var	10
	int	8
	var	11
	line	532
	colm	13
	synt	any
	invoke	2
	unmark
lab L22
	var	10
	int	11
	var	11
	line	533
	colm	13
	synt	any
	invoke	2
lab L19
	line	526
	colm	5
	synt	endifelse
	unmark
lab L17
	mark	L23
	line	536
	colm	5
	synt	if
	mark0
	pnull
	var	5
	int	1
	line	536
	colm	16
	synt	any
	numeq
	unmark
	mark	L24
	var	12
	int	12
	int	9
	line	538
	colm	13
	synt	any
	invoke	2
	unmark
lab L24
	var	13
	int	13
	int	4
	int	14
	line	539
	colm	13
	synt	any
	invoke	3
	line	536
	colm	5
	synt	endif
	unmark
lab L23
	mark	L25
	line	542
	colm	5
	synt	if
	mark0
	pnull
	var	14
	int	4
	line	542
	colm	15
	synt	any
	numeq
	unmark
	line	544
	colm	9
	synt	ifelse
	mark	L26
	pnull
	var	2
	int	4
	line	544
	colm	23
	synt	any
	numeq
	unmark
	var	10
	int	15
	pnull
	pnull
	var	0
	line	544
	colm	43
	synt	any
	field	fc_body
	line	544
	colm	53
	synt	any
	field	ext_name
	line	544
	colm	37
	synt	any
	invoke	2
	goto	L27
lab L26
	var	10
	int	15
	pnull
	var	0
	line	545
	colm	25
	synt	any
	field	fc_code_label
	line	545
	colm	18
	synt	any
	invoke	2
lab L27
	line	544
	colm	9
	synt	endifelse
	line	542
	colm	5
	synt	endif
	unmark
lab L25
	mark	L28
	line	548
	colm	5
	synt	if
	mark0
	var	15
	unmark
	line	551
	colm	9
	synt	ifelse
	mark	L29
	pnull
	var	2
	int	4
	line	551
	colm	23
	synt	any
	numeq
	unmark
	var	16
	pnull
	pnull
	var	0
	line	551
	colm	48
	synt	any
	field	fc_body
	line	551
	colm	58
	synt	any
	field	ext_name
	int	1
	line	551
	colm	45
	synt	any
	invoke	2
	goto	L30
lab L29
	line	552
	colm	14
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	552
	colm	19
	synt	any
	field	signature
	line	552
	colm	17
	synt	any
	nonnull
	unmark
	line	552
	colm	35
	synt	if
	mark0
	var	3
	pnull
	var	0
	line	552
	colm	49
	synt	any
	field	signature
	str	16
	line	552
	colm	47
	synt	any
	invoke	2
	unmark
	var	16
	pnull
	pnull
	var	0
	line	553
	colm	28
	synt	any
	field	signature
	line	553
	colm	40
	synt	any
	field	fsig_param_list
	int	1
	line	553
	colm	25
	synt	any
	invoke	2
	line	552
	colm	35
	synt	endif
	line	552
	colm	14
	synt	endif
lab L30
	line	551
	colm	9
	synt	endifelse
	line	548
	colm	5
	synt	endif
	unmark
lab L28
	mark	L31
	line	555
	colm	5
	synt	if
	mark0
	var	3
	var	0
	str	5
	line	555
	colm	17
	synt	any
	invoke	2
	unmark
	line	556
	colm	5
	synt	ifelse
	mark	L32
	mark	L34
	pnull
	var	17
	int	4
	line	556
	colm	16
	synt	any
	numeq
	line	556
	colm	20
	synt	any
	esusp
	goto	L35
lab L34
	pnull
	var	0
	line	556
	colm	25
	synt	any
	field	fc_complexity
	pop
	int	17
lab L35
	pop
	pnull
	var	9
	int	1
	line	556
	colm	64
	synt	any
	numeq
	unmark
	mark	L36
	pnull
	var	18
	var	19
	line	558
	colm	25
	synt	any
	asgn
	unmark
lab L36
	mark	L37
	pnull
	var	20
	pnull
	pnull
	var	0
	line	559
	colm	21
	synt	any
	field	ar_size
	int	4
	line	559
	colm	31
	synt	any
	minus
	line	559
	colm	16
	synt	any
	asgn
	unmark
lab L37
	mark	L38
	pnull
	var	19
	dup
	var	20
	line	560
	colm	19
	synt	any
	plus
	asgn
	unmark
lab L38
	mark	L39
	pnull
	var	21
	int	1
	line	561
	colm	11
	synt	any
	asgn
	unmark
lab L39
lab L40
	line	562
	colm	9
	synt	while
	mark0
	pnull
	var	21
	var	20
	line	562
	colm	17
	synt	any
	numlt
	unmark
	mark	L40
	mark	L43
	var	13
	int	18
	pnull
	var	18
	var	21
	line	563
	colm	38
	synt	any
	plus
	int	19
	line	563
	colm	17
	synt	any
	invoke	3
	unmark
lab L43
	var	13
	int	20
	pnull
	var	21
	int	4
	line	564
	colm	23
	synt	any
	plus
	pnull
	var	18
	var	21
	line	564
	colm	43
	synt	any
	plus
	line	564
	colm	17
	synt	any
	invoke	3
lab L41
	unmark
	goto	L40
lab L42
	line	562
	colm	9
	synt	endwhile
	goto	L33
lab L32
	line	566
	colm	12
	synt	ifelse
	mark	L44
	pnull
	var	17
	int	4
	line	566
	colm	23
	synt	any
	numeq
	pop
	pnull
	var	9
	int	1
	line	566
	colm	43
	synt	any
	numeq
	unmark
	mark	L46
	pnull
	var	18
	var	19
	line	568
	colm	25
	synt	any
	asgn
	unmark
lab L46
	mark	L47
	pnull
	var	20
	pnull
	pnull
	var	0
	line	569
	colm	21
	synt	any
	field	ar_size
	int	4
	line	569
	colm	31
	synt	any
	minus
	line	569
	colm	16
	synt	any
	asgn
	unmark
lab L47
	mark	L48
	pnull
	var	19
	dup
	var	20
	line	570
	colm	19
	synt	any
	plus
	asgn
	unmark
lab L48
	mark	L49
	pnull
	var	21
	int	1
	line	571
	colm	11
	synt	any
	asgn
	unmark
lab L49
lab L50
	line	572
	colm	9
	synt	while
	mark0
	pnull
	var	21
	var	20
	line	572
	colm	17
	synt	any
	numlt
	unmark
	mark	L50
	mark	L53
	var	13
	int	18
	pnull
	var	18
	var	21
	line	573
	colm	38
	synt	any
	plus
	int	19
	line	573
	colm	17
	synt	any
	invoke	3
	unmark
lab L53
	var	13
	int	20
	pnull
	var	21
	int	4
	line	574
	colm	23
	synt	any
	plus
	pnull
	var	18
	var	21
	line	574
	colm	43
	synt	any
	plus
	line	574
	colm	17
	synt	any
	invoke	3
lab L51
	unmark
	goto	L50
lab L52
	line	572
	colm	9
	synt	endwhile
	goto	L45
lab L44
	pnull
	var	18
	int	1
	line	578
	colm	25
	synt	any
	asgn
lab L45
	line	566
	colm	12
	synt	endifelse
lab L33
	line	556
	colm	5
	synt	endifelse
	line	555
	colm	5
	synt	endif
	unmark
lab L31
	mark	L54
	line	580
	colm	5
	synt	if
	mark0
	var	3
	var	0
	str	5
	line	580
	colm	17
	synt	any
	invoke	2
	unmark
	line	581
	colm	9
	synt	if
	mark0
	pnull
	var	0
	line	581
	colm	15
	synt	any
	field	fc_complexity
	pop
	int	17
	unmark
	mark	L55
	line	582
	colm	13
	synt	ifelse
	mark	L56
	var	9
	unmark
	pnull
	var	11
	pnull
	str	21
	pnull
	var	0
	line	583
	colm	42
	synt	any
	field	fc_code_label
	line	583
	colm	37
	synt	any
	cat
	line	583
	colm	30
	synt	any
	asgn
	goto	L57
lab L56
	pnull
	var	11
	pnull
	str	22
	pnull
	var	0
	line	585
	colm	43
	synt	any
	field	fc_code_label
	line	585
	colm	38
	synt	any
	cat
	line	585
	colm	30
	synt	any
	asgn
lab L57
	line	582
	colm	13
	synt	endifelse
	unmark
lab L55
	var	10
	int	23
	var	11
	line	587
	colm	17
	synt	any
	invoke	2
	line	581
	colm	9
	synt	endif
	line	580
	colm	5
	synt	endif
	unmark
lab L54
	mark	L58
	line	590
	colm	5
	synt	ifelse
	mark	L59
	pnull
	var	2
	int	4
	line	590
	colm	19
	synt	any
	numeq
	unmark
	mark	L61
	pnull
	var	22
	pnull
	pnull
	var	0
	line	592
	colm	21
	synt	any
	field	signature
	line	592
	colm	33
	synt	any
	field	fsig_param_list
	line	592
	colm	16
	synt	any
	asgn
	unmark
lab L61
	mark	L62
	pnull
	var	20
	pnull
	var	8
	var	22
	line	593
	colm	25
	synt	any
	invoke	1
	var	23
	var	22
	line	593
	colm	52
	synt	any
	invoke	1
	line	593
	colm	34
	synt	any
	minus
	line	593
	colm	16
	synt	any
	asgn
	unmark
lab L62
	mark	L63
	var	24
	var	9
	str	24
	line	594
	colm	15
	synt	any
	invoke	2
	unmark
lab L63
	mark	L64
	mark	L65
	pnull
	var	19
	dup
	int	4
	line	597
	colm	23
	synt	any
	plus
	asgn
	unmark
lab L65
	mark	L66
	pnull
	var	25
	var	19
	line	598
	colm	15
	synt	any
	numeq
	unmark
lab L66
	mark	L67
	var	13
	int	18
	var	25
	int	19
	line	600
	colm	17
	synt	any
	invoke	3
	unmark
lab L67
	mark	L68
	pnull
	var	21
	var	20
	line	601
	colm	15
	synt	any
	asgn
	unmark
lab L68
	mark	L69
lab L70
	line	602
	colm	13
	synt	while
	mark0
	pnull
	var	21
	int	1
	line	602
	colm	21
	synt	any
	numge
	unmark
	mark	L70
	mark	L73
	var	26
	int	25
	int	4
	var	21
	var	25
	line	603
	colm	21
	synt	any
	invoke	4
	unmark
lab L73
	mark	L74
	var	13
	int	26
	var	21
	var	25
	line	604
	colm	21
	synt	any
	invoke	3
	unmark
lab L74
	pnull
	var	21
	dup
	int	4
	line	605
	colm	19
	synt	any
	minus
	asgn
lab L71
	unmark
	goto	L70
lab L72
	line	602
	colm	13
	synt	endwhile
	unmark
lab L69
	var	12
	int	27
	var	25
	line	607
	colm	17
	synt	any
	invoke	2
	unmark
lab L64
	mark	L75
	var	10
	int	8
	pnull
	pnull
	var	0
	line	610
	colm	19
	synt	any
	field	fc_body
	line	610
	colm	29
	synt	any
	field	ext_name
	line	610
	colm	13
	synt	any
	invoke	2
	unmark
lab L75
	mark	L76
	var	10
	int	28
	pnull
	pnull
	var	0
	line	611
	colm	19
	synt	any
	field	fc_body
	line	611
	colm	29
	synt	any
	field	ext_name
	line	611
	colm	13
	synt	any
	invoke	2
	unmark
lab L76
	var	12
	int	29
	var	20
	line	612
	colm	13
	synt	any
	invoke	2
	goto	L60
lab L59
	line	616
	colm	9
	synt	if
	mark0
	var	3
	var	0
	str	2
	line	616
	colm	21
	synt	any
	invoke	2
	unmark
	var	27
	pnull
	var	0
	line	617
	colm	28
	synt	any
	field	fc_body
	int	8
	int	4
	line	617
	colm	24
	synt	any
	invoke	3
	line	616
	colm	9
	synt	endif
lab L60
	line	590
	colm	5
	synt	endifelse
	unmark
lab L58
	mark	L77
	line	620
	colm	5
	synt	if
	mark0
	mark	L78
	var	17
	line	620
	colm	16
	synt	any
	esusp
	goto	L79
lab L78
	pnull
	var	0
	line	620
	colm	21
	synt	any
	field	fc_complexity
	pop
	int	17
lab L79
	pop
	pnull
	var	9
	int	4
	line	620
	colm	60
	synt	any
	numeq
	unmark
	mark	L80
	pnull
	var	20
	pnull
	pnull
	var	0
	line	622
	colm	21
	synt	any
	field	ar_size
	int	4
	line	622
	colm	31
	synt	any
	minus
	line	622
	colm	16
	synt	any
	asgn
	unmark
lab L80
	mark	L81
	pnull
	var	21
	int	1
	line	623
	colm	11
	synt	any
	asgn
	unmark
lab L81
lab L82
	line	624
	colm	9
	synt	while
	mark0
	pnull
	var	21
	var	20
	line	624
	colm	18
	synt	any
	numlt
	unmark
	mark	L82
	mark	L85
	var	12
	int	27
	pnull
	var	18
	var	21
	line	625
	colm	38
	synt	any
	plus
	line	625
	colm	17
	synt	any
	invoke	2
	unmark
lab L85
	pnull
	var	21
	dup
	int	4
	line	626
	colm	15
	synt	any
	plus
	asgn
lab L83
	unmark
	goto	L82
lab L84
	line	624
	colm	9
	synt	endwhile
	line	620
	colm	5
	synt	endif
	unmark
lab L77
	mark	L86
	line	630
	colm	5
	synt	if
	mark0
	pnull
	var	15
	int	4
	line	630
	colm	15
	synt	any
	numeq
	unmark
	line	632
	colm	9
	synt	ifelse
	mark	L87
	pnull
	var	2
	int	4
	line	632
	colm	23
	synt	any
	numeq
	unmark
	var	28
	pnull
	pnull
	var	0
	line	632
	colm	48
	synt	any
	field	fc_body
	line	632
	colm	58
	synt	any
	field	ext_name
	line	632
	colm	45
	synt	any
	invoke	1
	goto	L88
lab L87
	var	28
	pnull
	var	0
	line	633
	colm	29
	synt	any
	field	fc_code_label
	line	633
	colm	25
	synt	any
	invoke	1
lab L88
	line	632
	colm	9
	synt	endifelse
	line	630
	colm	5
	synt	endif
	unmark
lab L86
	mark	L89
	var	29
	int	30
	line	635
	colm	9
	synt	any
	invoke	1
	unmark
lab L89
	mark	L90
	line	637
	colm	5
	synt	if
	mark0
	pnull
	var	5
	int	1
	line	637
	colm	16
	synt	any
	numeq
	unmark
	mark	L91
	var	13
	int	12
	int	31
	int	19
	line	638
	colm	13
	synt	any
	invoke	3
	unmark
lab L91
	mark	L92
	var	10
	int	8
	str	32
	line	639
	colm	13
	synt	any
	invoke	2
	unmark
lab L92
	mark	L93
	var	10
	int	28
	str	32
	line	640
	colm	13
	synt	any
	invoke	2
	unmark
lab L93
	var	12
	int	33
	pnull
	var	0
	line	641
	colm	20
	synt	any
	field	ar_size
	line	641
	colm	13
	synt	any
	invoke	2
	line	637
	colm	5
	synt	endif
	unmark
lab L90
	mark	L94
	mark	L95
	int	4
	line	643
	colm	1
	synt	any
	pret
lab L95
	synt	any
	pfail
	unmark
lab L94
	pnull
	line	644
	colm	2
	synt	any
	pfail
	end
proc Gexpression
	local	0,001000,p
	local	1,001000,rloc
	local	2,001000,last_expr
	local	3,000020,i
	local	4,000000,gen2
	local	5,000000,Gident
	local	6,000000,sig
	local	7,000000,maxlen
	local	8,000000,MAXSTRLEN
	local	9,000000,Gappl
	local	10,000000,iand
	local	11,000000,avail_loc
	local	12,000000,sz_loc
	local	13,000000,ar_loc
	local	14,000000,Glevel
	local	15,000000,gen3
	local	16,000000,gen1
	local	17,000000,temp
	local	18,000000,v
	local	19,000000,genl
	local	20,000000,getname
	local	21,000000,compile_decl
	local	22,000000,last
	local	23,000000,Gexpression
	local	24,000000,pattern_assign_onmatch
	local	25,000000,bld_flags
	local	26,000000,length
	local	27,000000,compile_while_loop
	local	28,000000,first
	local	29,000000,saw_else
	local	30,000000,L0
	local	31,000000,Gnewlabel
	local	32,000000,L1
	local	33,000000,Oflag
	local	34,000000,LAST_ITER
	local	35,000000,Gfuncconstructor
	local	36,000000,name_length
	local	37,000000,MAXSTRCODELEN
	local	38,000000,rpt_err
	local	39,000000,Vflag
	local	40,000000,write
	local	41,000000,Gcurrent
	local	42,000000,str_code_buf
	local	43,000000,r_ext_name
	local	44,000000,add_objfile
	local	45,000000,map
	local	46,000000,type_constr
	local	47,000000,findvl
	local	48,000000,yyinfo
	local	49,000000,kindname
	local	50,000000,getfn
	local	51,000000,getrl
	local	52,000000,Goutfile
	local	53,000000,flush
	con	0,002000,2,10
	con	1,002000,2,31
	con	2,002000,1,4
	con	3,002000,1,1
	con	4,002000,2,32
	con	5,002000,2,33
	con	6,002000,2,34
	con	7,002000,2,13
	con	8,002000,2,11
	con	9,002000,1,8
	con	10,002000,1,0
	con	11,002000,2,20
	con	12,002000,1,2
	con	13,002000,2,28
	con	14,002000,2,22
	con	15,002000,2,26
	con	16,002000,2,21
	con	17,002000,2,64
	con	18,002000,3,896
	con	19,002000,2,16
	con	20,002000,3,256
	con	21,002000,2,38
	con	22,002000,1,5
	con	23,010000,9,142,154,144,137,146,154,141,147,163
	con	24,002000,2,25
	con	25,002000,2,29
	con	26,010000,4,154,157,157,160
	con	27,010000,10,147,165,141,162,144,137,145,170,151,164
	con	28,010000,5,147,165,141,162,144
	con	29,002000,1,3
	con	30,002000,2,14
	con	31,010000,11,137,143,157,156,144,137,145,162,162,157,162
	con	32,002000,2,60
	con	33,002000,2,35
	con	34,010000,18,106,151,154,145,040,156,141,155,145,040,164,157,157,040,154,157,156,147
	con	35,010000,47,146,157,162,143,145,163,040,145,166,141,154,165,141,164,151,157,156,040,157,146,040,145,170,164,145,162,156,141,154,154,171,040,144,145,146,151,156,145,144,040,157,142,152,145,143,164,040
	con	36,010000,2,056,157
	con	37,010000,2,155,137
	con	38,010000,1,057
	con	39,010000,1,056
	con	40,002000,2,39
	con	41,002000,1,6
	con	42,002000,2,12
	con	43,010000,36,143,157,144,145,147,145,156,040,072,040,115,117,104,120,122,111,115,101,122,131,040,156,157,164,040,151,155,160,154,145,155,145,156,164,145,144
	con	44,002000,2,17
	con	45,002000,2,18
	con	46,002000,2,15
	con	47,010000,63,107,145,170,160,162,145,163,163,151,157,156,072,040,125,156,151,155,160,154,145,155,145,156,164,145,144,040,143,157,156,163,164,162,165,143,164,040,050,153,151,156,144,040,075,040,051,040,151,156,040,146,151,154,145,040,040,141,164,040,154,151,156,145
	con	48,010000,24,107,145,170,160,162,145,163,163,151,157,156,072,040,040,160,040,151,163,040,060,170,045,170,012
	con	49,010000,1,077
	con	50,010000,5,141,142,157,162,164
	declend
	line	654
	colm	12
	synt	any
	mark	L1
	line	658
	colm	5
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	0
	line	658
	colm	11
	synt	any
	field	signature
	line	658
	colm	23
	synt	any
	field	kind
	int	0
	line	658
	colm	30
	synt	any
	numeq
	unmark
	mark	L2
	var	4
	int	1
	int	2
	var	1
	line	660
	colm	13
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	int	3
	line	661
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	line	658
	colm	5
	synt	endif
	unmark
lab L1
	mark	L4
	line	664
	colm	5
	synt	case
	mark0
	pnull
	var	0
	line	664
	colm	14
	synt	any
	field	kind
	eret
	mark	L6
	ccase
	int	1
	line	666
	colm	12
	synt	any
	eqv
	unmark
	pop
	var	5
	var	0
	var	1
	line	667
	colm	19
	synt	any
	invoke	2
	goto	L5
lab L6
	mark	L7
	ccase
	int	4
	line	668
	colm	12
	synt	any
	eqv
	unmark
	pop
	var	5
	var	0
	var	1
	line	669
	colm	19
	synt	any
	invoke	2
	goto	L5
lab L7
	mark	L8
	ccase
	int	5
	line	670
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L9
	pnull
	var	6
	pnull
	pnull
	var	0
	line	51
	colm	17
	synt	any
	field	sel_type
	line	51
	colm	28
	synt	any
	field	signature
	line	51
	colm	13
	synt	any
	numeq
	unmark
lab L9
	line	54
	colm	9
	synt	ifelse
	mark	L10
	pnull
	pnull
	var	6
	line	54
	colm	17
	synt	any
	field	ts_string_max
	pnull
	int	3
	line	54
	colm	35
	synt	any
	neg
	line	54
	colm	33
	synt	any
	numeq
	unmark
	pnull
	var	7
	var	8
	line	55
	colm	20
	synt	any
	asgn
	goto	L11
lab L10
	pnull
	var	7
	pnull
	var	6
	line	57
	colm	27
	synt	any
	field	ts_string_max
	line	57
	colm	20
	synt	any
	asgn
lab L11
	line	54
	colm	9
	synt	endifelse
	goto	L5
lab L8
	mark	L12
	ccase
	int	6
	line	674
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L13
	pnull
	var	6
	pnull
	pnull
	var	0
	line	51
	colm	17
	synt	any
	field	sel_type
	line	51
	colm	28
	synt	any
	field	signature
	line	51
	colm	13
	synt	any
	numeq
	unmark
lab L13
	line	54
	colm	9
	synt	ifelse
	mark	L14
	pnull
	pnull
	var	6
	line	54
	colm	17
	synt	any
	field	ts_string_max
	pnull
	int	3
	line	54
	colm	35
	synt	any
	neg
	line	54
	colm	33
	synt	any
	numeq
	unmark
	pnull
	var	7
	var	8
	line	55
	colm	20
	synt	any
	asgn
	goto	L15
lab L14
	pnull
	var	7
	pnull
	var	6
	line	57
	colm	27
	synt	any
	field	ts_string_max
	line	57
	colm	20
	synt	any
	asgn
lab L15
	line	54
	colm	9
	synt	endifelse
	goto	L5
lab L12
	mark	L16
	ccase
	int	7
	line	678
	colm	12
	synt	any
	eqv
	unmark
	pop
	var	9
	var	0
	var	1
	var	2
	line	679
	colm	18
	synt	any
	invoke	3
	goto	L5
lab L16
	mark	L17
	ccase
	int	8
	line	680
	colm	12
	synt	any
	eqv
	unmark
	pop
	mark	L18
	line	682
	colm	17
	synt	if
	mark0
	pnull
	var	10
	pnull
	var	0
	line	682
	colm	30
	synt	any
	field	bld_flags
	int	9
	line	682
	colm	27
	synt	any
	invoke	2
	int	10
	line	682
	colm	47
	synt	any
	numne
	unmark
	mark	L19
	pnull
	var	11
	dup
	int	3
	line	687
	colm	31
	synt	any
	plus
	asgn
	unmark
lab L19
	mark	L20
	pnull
	var	12
	var	11
	line	688
	colm	28
	synt	any
	numeq
	unmark
lab L20
	mark	L21
	pnull
	var	11
	dup
	int	3
	line	689
	colm	31
	synt	any
	plus
	asgn
	unmark
lab L21
	mark	L22
	pnull
	var	13
	var	11
	line	690
	colm	28
	synt	any
	numeq
	unmark
lab L22
	mark	L23
	pnull
	var	14
	dup
	int	3
	line	693
	colm	28
	synt	any
	plus
	asgn
	unmark
lab L23
	mark	L24
	var	4
	int	11
	var	12
	int	12
	line	694
	colm	25
	synt	any
	invoke	3
	unmark
lab L24
	mark	L25
	var	4
	int	11
	var	13
	int	3
	line	695
	colm	25
	synt	any
	invoke	3
	unmark
lab L25
	mark	L26
	var	4
	int	13
	pnull
	var	0
	line	696
	colm	32
	synt	any
	field	ar_size
	var	12
	line	696
	colm	25
	synt	any
	invoke	3
	unmark
lab L26
	mark	L27
	var	4
	int	14
	var	12
	var	13
	line	697
	colm	25
	synt	any
	invoke	3
	unmark
lab L27
	mark	L28
	var	15
	int	15
	var	13
	int	10
	int	3
	line	698
	colm	25
	synt	any
	invoke	4
	unmark
lab L28
	mark	L29
	var	4
	int	1
	var	13
	int	3
	line	699
	colm	25
	synt	any
	invoke	3
	unmark
lab L29
	mark	L30
	var	16
	int	16
	var	12
	line	700
	colm	25
	synt	any
	invoke	2
	unmark
lab L30
	var	16
	int	16
	var	13
	line	701
	colm	25
	synt	any
	invoke	2
	line	682
	colm	17
	synt	endif
	unmark
lab L18
	mark	L31
	pnull
	var	17
	pnull
	pnull
	var	0
	line	706
	colm	27
	synt	any
	field	bld_declaration_list
	line	706
	colm	49
	synt	any
	field	lh_first
	line	706
	colm	22
	synt	any
	asgn
	unmark
lab L31
	mark	L32
lab L33
	line	707
	colm	17
	synt	while
	mark0
	pnull
	var	17
	line	707
	colm	23
	synt	any
	nonnull
	unmark
	mark	L33
	mark	L36
	pnull
	var	18
	pnull
	var	17
	line	708
	colm	30
	synt	any
	field	cn_hd_field
	line	708
	colm	23
	synt	any
	asgn
	unmark
lab L36
	mark	L37
	line	711
	colm	21
	synt	if
	mark0
	pnull
	pnull
	var	18
	line	711
	colm	27
	synt	any
	field	decl_needed
	int	3
	line	711
	colm	42
	synt	any
	numeq
	pop
	pnull
	var	18
	line	712
	colm	28
	synt	any
	field	decl_special
	pop
	mark	L38
	pnull
	int	17
	int	3
	line	712
	colm	49
	synt	any
	numeq
	line	712
	colm	53
	synt	any
	esusp
	goto	L39
lab L38
	pnull
	int	18
	int	3
	line	712
	colm	59
	synt	any
	numeq
lab L39
	unmark
	mark	L40
	var	19
	int	19
	var	20
	pnull
	pnull
	var	18
	line	713
	colm	48
	synt	any
	field	decl_id
	line	713
	colm	58
	synt	any
	field	id_str_table_index
	line	713
	colm	45
	synt	any
	invoke	1
	line	713
	colm	33
	synt	any
	invoke	2
	unmark
lab L40
	line	714
	colm	29
	synt	ifelse
	mark	L41
	pnull
	var	18
	line	714
	colm	35
	synt	any
	field	decl_special
	pop
	int	20
	unmark
	var	4
	int	11
	pnull
	var	18
	line	715
	colm	44
	synt	any
	field	displacement
	int	3
	line	715
	colm	37
	synt	any
	invoke	3
	goto	L42
lab L41
	var	4
	int	11
	pnull
	var	18
	line	717
	colm	44
	synt	any
	field	displacement
	int	12
	line	717
	colm	37
	synt	any
	invoke	3
lab L42
	line	714
	colm	29
	synt	endifelse
	line	711
	colm	21
	synt	endif
	unmark
lab L37
	mark	L43
	line	720
	colm	21
	synt	if
	mark0
	pnull
	var	18
	line	720
	colm	27
	synt	any
	field	decl_needed
	pop
	pnull
	pnull
	var	18
	line	721
	colm	27
	synt	any
	field	decl_can_be_refd
	pnull
	var	18
	line	721
	colm	51
	synt	any
	field	pre_num
	line	721
	colm	46
	synt	any
	numle
	unmark
	mark	L44
	var	4
	int	21
	int	3
	int	3
	line	723
	colm	33
	synt	any
	invoke	3
	unmark
lab L44
	line	724
	colm	29
	synt	ifelse
	mark	L45
	pnull
	var	18
	line	724
	colm	35
	synt	any
	field	decl_special
	pop
	mark	L47
	int	17
	line	724
	colm	56
	synt	any
	esusp
	goto	L48
lab L47
	int	18
lab L48
	unmark
	var	4
	int	1
	int	2
	pnull
	var	18
	line	725
	colm	47
	synt	any
	field	displacement
	line	725
	colm	37
	synt	any
	invoke	3
	goto	L46
lab L45
	var	15
	int	15
	int	3
	pnull
	var	18
	line	727
	colm	47
	synt	any
	field	displacement
	int	2
	line	727
	colm	37
	synt	any
	invoke	4
lab L46
	line	724
	colm	29
	synt	endifelse
	line	720
	colm	21
	synt	endif
	unmark
lab L43
	pnull
	var	17
	pnull
	var	17
	line	730
	colm	33
	synt	any
	field	cn_tl_field
	line	730
	colm	26
	synt	any
	asgn
lab L34
	unmark
	goto	L33
lab L35
	line	707
	colm	17
	synt	endwhile
	unmark
lab L32
	mark	L49
	pnull
	var	17
	pnull
	pnull
	var	0
	line	732
	colm	27
	synt	any
	field	bld_declaration_list
	line	732
	colm	49
	synt	any
	field	lh_first
	line	732
	colm	22
	synt	any
	asgn
	unmark
lab L49
	mark	L50
lab L51
	line	733
	colm	17
	synt	while
	mark0
	pnull
	var	17
	line	733
	colm	23
	synt	any
	nonnull
	unmark
	mark	L51
	mark	L54
	pnull
	var	18
	pnull
	var	17
	line	734
	colm	30
	synt	any
	field	cn_hd_field
	line	734
	colm	23
	synt	any
	asgn
	unmark
lab L54
	mark	L55
	var	21
	var	18
	line	735
	colm	33
	synt	any
	invoke	1
	unmark
lab L55
	pnull
	var	17
	pnull
	var	17
	line	736
	colm	33
	synt	any
	field	cn_tl_field
	line	736
	colm	26
	synt	any
	asgn
lab L52
	unmark
	goto	L51
lab L53
	line	733
	colm	17
	synt	endwhile
	unmark
lab L50
	mark	L56
	pnull
	var	17
	pnull
	pnull
	var	0
	line	738
	colm	26
	synt	any
	field	bld_den_seq
	line	738
	colm	38
	synt	any
	field	lh_first
	line	738
	colm	22
	synt	any
	asgn
	unmark
lab L56
	mark	L57
lab L58
	line	739
	colm	17
	synt	while
	mark0
	pnull
	var	17
	line	739
	colm	23
	synt	any
	nonnull
	unmark
	mark	L58
	mark	L61
	pnull
	var	18
	pnull
	var	17
	line	740
	colm	30
	synt	any
	field	cn_hd_field
	line	740
	colm	23
	synt	any
	asgn
	unmark
lab L61
	mark	L62
	line	741
	colm	21
	synt	ifelse
	mark	L63
	var	18
	pnull
	var	22
	pnull
	var	0
	line	741
	colm	37
	synt	any
	field	bld_den_seq
	line	741
	colm	34
	synt	any
	invoke	1
	line	741
	colm	28
	synt	any
	tabmat
	invoke	-1
	unmark
	var	23
	var	18
	int	22
	int	10
	line	742
	colm	36
	synt	any
	invoke	3
	goto	L64
lab L63
	var	23
	var	18
	var	1
	var	2
	line	744
	colm	36
	synt	any
	invoke	3
lab L64
	line	741
	colm	21
	synt	endifelse
	unmark
lab L62
	pnull
	var	17
	pnull
	var	17
	line	746
	colm	33
	synt	any
	field	cn_tl_field
	line	746
	colm	26
	synt	any
	asgn
lab L59
	unmark
	goto	L58
lab L60
	line	739
	colm	17
	synt	endwhile
	unmark
lab L57
	mark	L65
	pnull
	var	17
	pnull
	pnull
	var	0
	line	749
	colm	27
	synt	any
	field	bld_declaration_list
	line	749
	colm	49
	synt	any
	field	lh_first
	line	749
	colm	22
	synt	any
	asgn
	unmark
lab L65
	mark	L66
lab L67
	line	750
	colm	17
	synt	while
	mark0
	pnull
	var	17
	line	750
	colm	23
	synt	any
	nonnull
	unmark
	mark	L67
	mark	L70
	pnull
	var	18
	pnull
	var	17
	line	751
	colm	30
	synt	any
	field	cn_hd_field
	line	751
	colm	23
	synt	any
	asgn
	unmark
lab L70
	mark	L71
	line	752
	colm	21
	synt	if
	mark0
	pnull
	var	18
	line	752
	colm	27
	synt	any
	field	decl_needed
	pop
	pnull
	var	18
	line	753
	colm	28
	synt	any
	field	decl_special
	pop
	mark	L72
	pnull
	int	17
	int	3
	line	753
	colm	49
	synt	any
	numeq
	line	753
	colm	53
	synt	any
	esusp
	goto	L73
lab L72
	pnull
	int	18
	int	3
	line	753
	colm	59
	synt	any
	numeq
lab L73
	unmark
	mark	L74
	line	754
	colm	29
	synt	if
	mark0
	pnull
	var	18
	line	754
	colm	35
	synt	any
	field	decl_special
	pop
	int	9
	unmark
	var	4
	int	21
	int	0
	pnull
	var	18
	line	759
	colm	48
	synt	any
	field	displacement
	line	759
	colm	37
	synt	any
	invoke	3
	line	754
	colm	29
	synt	endif
	unmark
lab L74
	var	16
	int	16
	pnull
	var	18
	line	761
	colm	40
	synt	any
	field	displacement
	line	761
	colm	33
	synt	any
	invoke	2
	line	752
	colm	21
	synt	endif
	unmark
lab L71
	pnull
	var	17
	pnull
	var	17
	line	763
	colm	33
	synt	any
	field	cn_tl_field
	line	763
	colm	26
	synt	any
	asgn
lab L68
	unmark
	goto	L67
lab L69
	line	750
	colm	17
	synt	endwhile
	unmark
lab L66
	line	765
	colm	17
	synt	if
	mark0
	pnull
	var	10
	var	24
	var	0
	var	25
	str	23
	line	765
	colm	50
	synt	any
	invoke	3
	int	9
	line	765
	colm	26
	synt	any
	invoke	2
	int	10
	line	765
	colm	90
	synt	any
	numne
	unmark
	mark	L75
	pnull
	var	14
	dup
	int	3
	line	766
	colm	28
	synt	any
	minus
	asgn
	unmark
lab L75
	var	15
	int	24
	int	3
	int	10
	int	3
	line	767
	colm	25
	synt	any
	invoke	4
	line	765
	colm	17
	synt	endif
	goto	L5
lab L17
	mark	L76
	ccase
	int	25
	line	770
	colm	12
	synt	any
	eqv
	unmark
	pop
	line	771
	colm	13
	synt	if
	mark0
	pnull
	var	26
	pnull
	var	0
	line	771
	colm	26
	synt	any
	field	gl_list
	line	771
	colm	23
	synt	any
	invoke	1
	int	3
	line	771
	colm	37
	synt	any
	numeq
	unmark
	var	27
	var	28
	pnull
	var	0
	line	772
	colm	44
	synt	any
	field	gl_list
	line	772
	colm	41
	synt	any
	invoke	1
	var	1
	line	772
	colm	35
	synt	any
	invoke	2
	line	771
	colm	13
	synt	endif
	goto	L5
lab L76
	mark	L77
	ccase
	int	13
	line	775
	colm	12
	synt	any
	eqv
	unmark
	pop
	mark	L78
	pnull
	var	29
	int	10
	line	777
	colm	26
	synt	any
	asgn
	unmark
lab L78
	mark	L79
	line	778
	colm	17
	synt	ifelse
	mark	L80
	pnull
	pnull
	var	0
	line	778
	colm	22
	synt	any
	field	kind
	int	25
	line	778
	colm	28
	synt	any
	numeq
	unmark
	mark	L82
	pnull
	var	30
	var	31
	str	26
	line	779
	colm	36
	synt	any
	invoke	1
	line	779
	colm	24
	synt	any
	asgn
	unmark
lab L82
	var	19
	int	22
	var	30
	line	780
	colm	25
	synt	any
	invoke	2
	goto	L81
lab L80
	pnull
	var	30
	var	31
	str	27
	line	783
	colm	36
	synt	any
	invoke	1
	line	783
	colm	24
	synt	any
	asgn
lab L81
	line	778
	colm	17
	synt	endifelse
	unmark
lab L79
	mark	L83
	pnull
	var	17
	pnull
	pnull
	var	0
	line	785
	colm	26
	synt	any
	field	gl_list
	line	785
	colm	34
	synt	any
	field	lh_first
	line	785
	colm	22
	synt	any
	asgn
	unmark
lab L83
	mark	L84
lab L85
	line	786
	colm	17
	synt	while
	mark0
	pnull
	var	17
	line	786
	colm	23
	synt	any
	nonnull
	unmark
	mark	L85
	mark	L88
	pnull
	var	18
	pnull
	var	17
	line	787
	colm	30
	synt	any
	field	cn_hd_field
	line	787
	colm	23
	synt	any
	asgn
	unmark
lab L88
	mark	L89
	line	789
	colm	21
	synt	ifelse
	mark	L90
	pnull
	pnull
	pnull
	var	18
	line	789
	colm	27
	synt	any
	field	ge_guard
	line	789
	colm	38
	synt	any
	field	kind
	int	24
	line	789
	colm	45
	synt	any
	numeq
	unmark
	pnull
	var	29
	int	3
	line	790
	colm	34
	synt	any
	asgn
	goto	L91
lab L90
	mark	L92
	pnull
	var	32
	var	31
	str	28
	line	792
	colm	41
	synt	any
	invoke	1
	line	792
	colm	28
	synt	any
	asgn
	unmark
lab L92
	line	793
	colm	25
	synt	ifelse
	mark	L93
	var	33
	pop
	var	34
	pop
	pnull
	pnull
	var	0
	line	794
	colm	31
	synt	any
	field	kind
	int	13
	line	794
	colm	38
	synt	any
	numeq
	unmark
	var	23
	pnull
	var	18
	line	798
	colm	51
	synt	any
	field	ge_guard
	int	22
	int	10
	line	798
	colm	48
	synt	any
	invoke	3
	goto	L94
lab L93
	mark	L95
	var	23
	pnull
	var	18
	line	800
	colm	50
	synt	any
	field	ge_guard
	int	9
	int	10
	line	800
	colm	48
	synt	any
	invoke	3
	unmark
lab L95
	var	19
	int	29
	var	32
	line	801
	colm	41
	synt	any
	invoke	2
lab L94
	line	793
	colm	25
	synt	endifelse
lab L91
	line	789
	colm	21
	synt	endifelse
	unmark
lab L89
	mark	L96
	line	804
	colm	21
	synt	ifelse
	mark	L97
	pnull
	pnull
	var	0
	line	804
	colm	27
	synt	any
	field	kind
	int	25
	line	804
	colm	34
	synt	any
	numeq
	unmark
	mark	L99
	var	23
	pnull
	var	18
	line	805
	colm	39
	synt	any
	field	ge_element
	int	22
	int	10
	line	805
	colm	36
	synt	any
	invoke	3
	unmark
lab L99
	var	19
	int	3
	var	30
	line	806
	colm	29
	synt	any
	invoke	2
	goto	L98
lab L97
	mark	L100
	var	23
	pnull
	var	18
	line	808
	colm	39
	synt	any
	field	ge_element
	var	1
	var	2
	line	808
	colm	36
	synt	any
	invoke	3
	unmark
lab L100
	line	809
	colm	25
	synt	ifelse
	mark	L101
	var	29
	unmark
	unmark
	unmark
	pnull
	goto	L87
	goto	L102
lab L101
	var	19
	int	3
	var	30
	line	815
	colm	33
	synt	any
	invoke	2
lab L102
	line	809
	colm	25
	synt	endifelse
lab L98
	line	804
	colm	21
	synt	endifelse
	unmark
lab L96
	mark	L103
	var	19
	int	22
	var	32
	line	818
	colm	25
	synt	any
	invoke	2
	unmark
lab L103
	pnull
	var	17
	pnull
	var	17
	line	820
	colm	33
	synt	any
	field	cn_tl_field
	line	820
	colm	26
	synt	any
	asgn
lab L86
	unmark
	goto	L85
lab L87
	line	786
	colm	17
	synt	endwhile
	unmark
lab L84
	line	823
	colm	17
	synt	ifelse
	mark	L104
	pnull
	pnull
	var	0
	line	823
	colm	23
	synt	any
	field	kind
	int	25
	line	823
	colm	30
	synt	any
	numeq
	unmark
	var	4
	int	1
	int	2
	var	1
	line	825
	colm	25
	synt	any
	invoke	3
	goto	L105
lab L104
	mark	L106
	line	827
	colm	21
	synt	if
	mark0
	pnull
	var	29
	int	3
	line	827
	colm	34
	synt	any
	numeq
	unmark
	mark	L107
	var	4
	int	21
	int	3
	int	3
	line	829
	colm	29
	synt	any
	invoke	3
	unmark
lab L107
	var	19
	int	30
	str	31
	line	830
	colm	29
	synt	any
	invoke	2
	line	827
	colm	21
	synt	endif
	unmark
lab L106
	var	19
	int	22
	var	30
	line	833
	colm	25
	synt	any
	invoke	2
lab L105
	line	823
	colm	17
	synt	endifelse
	goto	L5
lab L77
	mark	L108
	ccase
	int	24
	line	837
	colm	12
	synt	any
	eqv
	unmark
	pop
	var	16
	int	32
	var	1
	line	840
	colm	21
	synt	any
	invoke	2
	goto	L5
lab L108
	mark	L109
	ccase
	int	33
	line	844
	colm	12
	synt	any
	eqv
	unmark
	pop
	var	35
	var	0
	var	1
	line	846
	colm	34
	synt	any
	invoke	2
	goto	L5
lab L109
	mark	L110
	ccase
	int	21
	line	849
	colm	12
	synt	any
	eqv
	unmark
	pop
	mark	L111
	pnull
	var	36
	pnull
	pnull
	var	0
	line	851
	colm	35
	synt	any
	field	r_ext_name
	line	851
	colm	31
	synt	any
	size
	line	851
	colm	29
	synt	any
	numeq
	unmark
lab L111
	mark	L112
	line	852
	colm	17
	synt	if
	mark0
	pnull
	pnull
	var	36
	int	29
	line	852
	colm	33
	synt	any
	plus
	var	37
	line	852
	colm	37
	synt	any
	numgt
	unmark
	var	38
	str	34
	line	853
	colm	28
	synt	any
	invoke	1
	line	852
	colm	17
	synt	endif
	unmark
lab L112
	mark	L113
	line	855
	colm	17
	synt	if
	mark0
	pnull
	var	39
	int	3
	line	855
	colm	27
	synt	any
	numeq
	unmark
	var	40
	pnull
	pnull
	pnull
	var	41
	line	856
	colm	36
	synt	any
	field	fc_code_label
	str	35
	line	856
	colm	52
	synt	any
	cat
	pnull
	var	0
	line	856
	colm	110
	synt	any
	field	r_ext_name
	line	856
	colm	105
	synt	any
	cat
	line	856
	colm	26
	synt	any
	invoke	1
	line	855
	colm	17
	synt	endif
	unmark
lab L113
	mark	L114
	pnull
	var	42
	pnull
	var	43
	str	36
	line	858
	colm	44
	synt	any
	cat
	line	858
	colm	30
	synt	any
	asgn
	unmark
lab L114
	mark	L115
	var	44
	var	42
	line	859
	colm	28
	synt	any
	invoke	1
	unmark
lab L115
	mark	L116
	pnull
	var	42
	pnull
	str	37
	pnull
	var	0
	line	860
	colm	44
	synt	any
	field	r_ext_name
	line	860
	colm	38
	synt	any
	cat
	line	860
	colm	30
	synt	any
	asgn
	unmark
lab L116
	mark	L117
	var	45
	var	42
	str	38
	str	39
	line	862
	colm	20
	synt	any
	invoke	3
	unmark
lab L117
	mark	L118
	var	4
	int	40
	int	3
	int	29
	line	863
	colm	21
	synt	any
	invoke	3
	unmark
lab L118
	mark	L119
	var	19
	int	2
	var	42
	line	864
	colm	21
	synt	any
	invoke	2
	unmark
lab L119
	var	4
	int	1
	int	41
	var	1
	line	865
	colm	21
	synt	any
	invoke	3
	goto	L5
lab L110
	mark	L120
	ccase
	int	42
	line	868
	colm	12
	synt	any
	eqv
	unmark
	pop
	mark	L121
	pnull
	var	17
	pnull
	pnull
	var	0
	line	870
	colm	26
	synt	any
	field	usl_den_seq
	line	870
	colm	38
	synt	any
	field	lh_head
	line	870
	colm	22
	synt	any
	asgn
	unmark
lab L121
lab L122
	line	871
	colm	17
	synt	while
	mark0
	pnull
	var	17
	line	871
	colm	23
	synt	any
	nonnull
	unmark
	mark	L122
	mark	L125
	pnull
	var	18
	pnull
	var	17
	line	872
	colm	30
	synt	any
	field	cn_hd_field
	line	872
	colm	23
	synt	any
	asgn
	unmark
lab L125
	mark	L126
	line	873
	colm	21
	synt	ifelse
	mark	L127
	var	18
	pnull
	var	22
	pnull
	var	0
	line	873
	colm	37
	synt	any
	field	usl_den_seq
	line	873
	colm	34
	synt	any
	invoke	1
	line	873
	colm	28
	synt	any
	tabmat
	invoke	-1
	unmark
	var	23
	var	18
	int	22
	int	10
	line	874
	colm	36
	synt	any
	invoke	3
	goto	L128
lab L127
	var	23
	var	18
	var	1
	var	2
	line	876
	colm	36
	synt	any
	invoke	3
lab L128
	line	873
	colm	21
	synt	endifelse
	unmark
lab L126
	pnull
	var	17
	pnull
	var	17
	line	878
	colm	33
	synt	any
	field	cn_tl_field
	line	878
	colm	26
	synt	any
	asgn
lab L123
	unmark
	goto	L122
lab L124
	line	871
	colm	17
	synt	endwhile
	goto	L5
lab L120
	mark	L129
	ccase
	int	11
	line	881
	colm	12
	synt	any
	eqv
	unmark
	pop
	var	38
	str	43
	line	883
	colm	24
	synt	any
	invoke	1
	goto	L5
lab L129
	mark	L130
	ccase
	int	44
	line	1032
	colm	11
	synt	any
	eqv
	unmark
	pop
	var	46
	var	0
	var	1
	line	1034
	colm	28
	synt	any
	invoke	2
	goto	L5
lab L130
	mark	L131
	ccase
	int	19
	line	1036
	colm	12
	synt	any
	eqv
	unmark
	pop
	var	46
	var	0
	var	1
	line	1038
	colm	28
	synt	any
	invoke	2
	goto	L5
lab L131
	mark	L132
	ccase
	int	45
	line	1040
	colm	12
	synt	any
	eqv
	unmark
	pop
	var	46
	var	0
	var	1
	line	1042
	colm	28
	synt	any
	invoke	2
	goto	L5
lab L132
	mark	L133
	ccase
	int	30
	line	1044
	colm	11
	synt	any
	eqv
	unmark
	pop
	var	46
	var	0
	var	1
	line	1046
	colm	28
	synt	any
	invoke	2
	goto	L5
lab L133
	mark	L134
	ccase
	int	46
	line	1048
	colm	12
	synt	any
	eqv
	unmark
	pop
	var	46
	var	0
	var	1
	line	1050
	colm	28
	synt	any
	invoke	2
	goto	L5
lab L134
	pop
	mark	L135
	var	47
	pnull
	var	0
	line	1053
	colm	23
	synt	any
	field	vlineno
	line	1053
	colm	19
	synt	any
	invoke	1
	unmark
lab L135
	mark	L136
	var	48
	pnull
	pnull
	pnull
	str	47
	var	49
	pnull
	var	0
	line	1054
	colm	96
	synt	any
	field	kind
	line	1054
	colm	94
	synt	any
	invoke	1
	line	1054
	colm	83
	synt	any
	cat
	var	20
	var	50
	line	1054
	colm	119
	synt	any
	invoke	0
	line	1054
	colm	113
	synt	any
	invoke	1
	line	1054
	colm	103
	synt	any
	cat
	var	51
	line	1054
	colm	131
	synt	any
	invoke	0
	line	1054
	colm	123
	synt	any
	cat
	line	1054
	colm	15
	synt	any
	invoke	1
	unmark
lab L136
	mark	L137
	var	48
	str	48
	line	1055
	colm	15
	synt	any
	invoke	1
	unmark
lab L137
	mark	L138
	var	40
	var	52
	str	49
	line	1056
	colm	14
	synt	any
	invoke	2
	unmark
lab L138
	mark	L139
	var	53
	var	52
	line	1057
	colm	15
	synt	any
	invoke	1
	unmark
lab L139
	var	38
	str	50
	line	1058
	colm	16
	synt	any
	invoke	1
lab L5
	line	664
	colm	5
	synt	endcase
	unmark
lab L4
	mark	L140
	mark	L141
	int	3
	line	1061
	colm	1
	synt	any
	pret
lab L141
	synt	any
	pfail
	unmark
lab L140
	pnull
	line	1062
	colm	2
	synt	any
	pfail
	end
proc compile_while_loop
	local	0,001000,p
	local	1,001000,rloc
	local	2,000000,cond_label
	local	3,000000,Gnewlabel
	local	4,000000,start_label
	local	5,000000,Ocompile_fcs
	local	6,000000,compile_fcs
	local	7,000000,OOOflag
	local	8,000000,end_label
	local	9,000000,Gexpression
	local	10,000000,genl
	local	11,000000,gen2
	con	0,010000,5,147,165,141,162,144
	con	1,010000,4,154,157,157,160
	con	2,002000,1,0
	con	3,010000,8,154,157,157,160,137,145,156,144
	con	4,002000,1,8
	con	5,002000,1,3
	con	6,002000,1,5
	con	7,002000,1,1
	con	8,002000,1,2
	con	9,002000,2,31
	con	10,002000,1,4
	declend
	line	1066
	colm	12
	synt	any
	mark	L1
	pnull
	var	2
	var	3
	str	0
	line	1067
	colm	28
	synt	any
	invoke	1
	line	1067
	colm	16
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	4
	var	3
	str	1
	line	1068
	colm	29
	synt	any
	invoke	1
	line	1068
	colm	17
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	5
	var	6
	line	1069
	colm	18
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	1071
	colm	5
	synt	if
	mark0
	var	7
	unmark
	mark	L5
	pnull
	var	6
	int	2
	line	1073
	colm	21
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	8
	var	3
	str	3
	line	1075
	colm	27
	synt	any
	invoke	1
	line	1075
	colm	15
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	var	9
	pnull
	var	0
	line	1076
	colm	23
	synt	any
	field	ge_guard
	int	4
	int	2
	line	1076
	colm	20
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	10
	int	5
	var	8
	line	1077
	colm	13
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	9
	pnull
	var	0
	line	1078
	colm	23
	synt	any
	field	ge_element
	int	6
	int	2
	line	1078
	colm	20
	synt	any
	invoke	3
	unmark
lab L9
	pnull
	var	6
	var	5
	line	1079
	colm	21
	synt	any
	asgn
	line	1071
	colm	5
	synt	endif
	unmark
lab L4
	mark	L10
	var	10
	int	7
	var	2
	line	1081
	colm	9
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	10
	int	6
	var	4
	line	1082
	colm	9
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	9
	pnull
	var	0
	line	1083
	colm	19
	synt	any
	field	ge_element
	int	6
	int	2
	line	1083
	colm	16
	synt	any
	invoke	3
	unmark
lab L12
	mark	L13
	var	10
	int	6
	var	2
	line	1084
	colm	9
	synt	any
	invoke	2
	unmark
lab L13
	mark	L14
	var	9
	pnull
	var	0
	line	1085
	colm	19
	synt	any
	field	ge_guard
	int	4
	int	2
	line	1085
	colm	16
	synt	any
	invoke	3
	unmark
lab L14
	mark	L15
	var	10
	int	8
	var	4
	line	1086
	colm	9
	synt	any
	invoke	2
	unmark
lab L15
	mark	L16
	line	1087
	colm	5
	synt	if
	mark0
	var	7
	unmark
	var	10
	int	6
	var	8
	line	1088
	colm	13
	synt	any
	invoke	2
	line	1087
	colm	5
	synt	endif
	unmark
lab L16
	mark	L17
	var	11
	int	9
	int	10
	var	1
	line	1091
	colm	9
	synt	any
	invoke	3
	unmark
lab L17
	mark	L18
	mark	L19
	int	7
	line	1092
	colm	1
	synt	any
	pret
lab L19
	synt	any
	pfail
	unmark
lab L18
	pnull
	line	1093
	colm	2
	synt	any
	pfail
	end
proc genl
	local	0,001000,op
	local	1,001000,l
	local	2,000000,genl_RIC
	local	3,000000,ofile
	con	0,002000,1,1
	declend
	line	1094
	colm	12
	synt	any
	mark	L1
	var	2
	var	3
	var	0
	var	1
	line	1095
	colm	13
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	mark	L3
	int	0
	line	1096
	colm	1
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1097
	colm	2
	synt	any
	pfail
	end
proc gen2
	local	0,001000,op
	local	1,001000,a1
	local	2,001000,a2
	local	3,000000,gen_RIC
	local	4,000000,ofile
	con	0,002000,1,5
	con	1,002000,1,1
	declend
	line	1098
	colm	12
	synt	any
	mark	L1
	var	3
	var	4
	var	0
	var	1
	var	2
	int	0
	line	1099
	colm	12
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	mark	L3
	int	1
	line	1100
	colm	1
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1101
	colm	2
	synt	any
	pfail
	end
proc gen1
	local	0,001000,op
	local	1,001000,a1
	local	2,000000,gen_RIC
	local	3,000000,ofile
	con	0,002000,1,5
	con	1,002000,1,1
	declend
	line	1102
	colm	12
	synt	any
	mark	L1
	var	2
	var	3
	var	0
	var	1
	int	0
	int	0
	line	1103
	colm	12
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	mark	L3
	int	1
	line	1104
	colm	1
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1105
	colm	2
	synt	any
	pfail
	end
proc gen0
	local	0,001000,op
	local	1,000000,gen_RIC
	local	2,000000,ofile
	con	0,002000,1,5
	con	1,002000,1,1
	declend
	line	1106
	colm	12
	synt	any
	mark	L1
	var	1
	var	2
	var	0
	int	0
	int	0
	int	0
	line	1107
	colm	12
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	mark	L3
	int	1
	line	1108
	colm	1
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1109
	colm	2
	synt	any
	pfail
	end
