version	U12.1.00
uid	RIC.tmp.u1-1459309267-0
record	RIC_instr__state,14
	0,__s
	1,__m
	2,op_code
	3,arg_arr3
	4,n_args
	5,label_arr1
	6,next_instr
	7,prev_instr
	8,result_reg
	9,op1_reg
	10,op2_reg
	11,side_effect
	12,label_arg
	13,second_decl
record	RIC_instr__methods,0
impl	error
global	273
	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,000005,Ginline_cnvt,1
	176,000001,Vinline_cnvt,0
	177,000001,paramstop,0
	178,000001,denseqstop,0
	179,000001,condstop,0
	180,000001,declstop,0
	181,000001,stxtree,0
	182,000001,yystate,0
	183,000001,fn_count,0
	184,000001,scanstk,0
	185,000001,stktop,0
	186,000001,scansavc,0
	187,000001,yydescr,0
	188,000001,has_externs,0
	189,000001,argcnt_from_kind,0
	190,000001,parser_actions_cnt,0
	191,000001,curr_void_decl,0
	192,000001,curr_sig_transp,0
	193,000001,curr_tsig,0
	194,000001,err_node,0
	195,000001,in_sig,0
	196,000001,in_loop,0
	197,000001,linebuf,0
	198,000001,restab,0
	199,000001,cctab,0
	200,000001,tokenlgth,0
	201,000001,yynerrs,0
	202,000001,decl_num,0
	203,000001,decl_nums,0
	204,000001,Outer_arg,0
	205,000001,file_sigs,0
	206,000001,decl_num_in,0
	207,000001,sig_table,0
	208,000001,unique_node_id,0
	209,000001,objfilelist,0
	210,000001,Idtable,0
	211,000001,dump_tree_depth,0
	212,000001,next_pre,0
	213,000001,next_post,0
	214,000001,visited,0
	215,000001,Gfc_list,0
	216,000001,Glevel,0
	217,000001,Gcurrent,0
	218,000001,Goutfile,0
	219,000001,finished_accessible,0
	220,000001,all_fcs,0
	221,000001,all_fcs_tail,0
	222,000001,outer_fc,0
	223,000001,whole_program,0
	224,000001,currect_fcs,0
	225,000001,Vcurrent_func,0
	226,000001,Vcurrent_ar,0
	227,000001,Vstatic_level,0
	228,000001,Vnext_free,0
	229,000001,Vhigh_water,0
	230,000001,Vextent_limited,0
	231,000001,Vallocate_on_stack,0
	232,000001,Vcallcc,0
	233,000001,max_addr_regs,0
	234,000001,max_int_regs,0
	235,000001,n_addr_regs,0
	236,000001,n_int_regs,0
	237,000001,Vcurrent_blocks,0
	238,000001,found_non_vacuous,0
	239,000001,n_vacuous,0
	240,000001,avail_loc,0
	241,000001,compile_fcs,0
	242,000001,sl_available,0
	243,000001,stplinks,0
	244,000001,fld_table,0
	245,000001,surr_loop,0
	246,000001,callcc_call,0
	247,000001,catchsigs,0
	248,000001,Gspcl_to_inline,0
	249,000001,htable,0
	250,000001,NodeTypeName,0
	251,000011,RIC_instr__state,14
	252,000011,RIC_instr__methods,0
	253,000001,RIC_instr__oprec,0
	254,000005,RIC_instr,12
	255,000005,RIC_instrinitialize,0
	256,000005,extract_field,1
	257,000005,free_RIC,1
	258,000005,put_RIC,2
	259,000005,get_RIC,1
	260,000005,write_RIC,4
	261,000005,write_RIC_seq,4
	262,000005,genl_RIC,3
	263,000005,gen_RIC,5
	264,000005,copy_RIC,1
	265,000005,cat_RIC,2
	266,000005,RIC_inst_args,2
	267,000005,RIC_inst_rs,2
	268,000005,RIC_len,1
	269,000005,init_RIC_table,0
	270,000005,add_RIC_table,2
	271,000005,find_RIC_table,1
	272,000005,parse_RIC,1

proc RIC_instr
	local	0,001000,op_code
	local	1,001000,arg_arr3
	local	2,001000,n_args
	local	3,001000,label_arr1
	local	4,001000,next_instr
	local	5,001000,prev_instr
	local	6,001000,result_reg
	local	7,001000,op1_reg
	local	8,001000,op2_reg
	local	9,001000,side_effect
	local	10,001000,label_arg
	local	11,001000,second_decl
	local	12,000020,self
	local	13,000020,clone
	local	14,000000,RIC_instr__oprec
	local	15,000000,RIC_instrinitialize
	local	16,000000,RIC_instr__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	14
	line	8
	colm	6
	synt	any
	null
	unmark
	var	15
	line	8
	colm	48
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	12
	var	16
	line	10
	colm	28
	synt	any
	keywd	null
	var	14
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	line	10
	colm	27
	synt	any
	invoke	14
	line	10
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	12
	line	11
	colm	7
	synt	any
	field	__s
	var	12
	line	11
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	var	12
	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 RIC_instrinitialize
	local	0,000000,RIC_instr__oprec
	local	1,000000,RIC_instr__methods
	declend
	line	15
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	line	16
	colm	49
	synt	any
	invoke	0
	line	16
	colm	28
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	17
	colm	1
	synt	any
	pfail
	end
proc extract_field
	local	0,001000,p
	local	1,000000,field_buf
	local	2,000000,tab
	local	3,000000,upto
	con	0,020000,5,040,011,012,054,073
	con	1,002000,1,0
	declend
	filen	pass5d/RIC.tmp.icn
	line	183
	colm	12
	synt	any
	mark	L1
	pnull
	var	1
	var	0
	line	184
	colm	21
	synt	any
	bscan
	mark	L2
	var	2
	var	3
	cset	0
	line	184
	colm	31
	synt	any
	invoke	1
	line	184
	colm	26
	synt	any
	invoke	1
	line	184
	colm	44
	synt	any
	esusp
	goto	L3
lab L2
	pnull
	var	0
	int	1
	line	184
	colm	47
	synt	any
	subsc
lab L3
	line	184
	colm	21
	synt	any
	escan
	line	184
	colm	15
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	pnull
	var	0
	pnull
	pnull
	var	0
	pnull
	var	1
	line	185
	colm	12
	synt	any
	size
	line	185
	colm	11
	synt	any
	subsc
	int	1
	synt	any
	subsc
	line	185
	colm	7
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	var	0
	line	186
	colm	5
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	187
	colm	2
	synt	any
	pfail
	end
proc free_RIC
	local	0,001000,p
	local	1,000020,current
	local	2,000020,next2
	local	3,000000,NULL
	declend
	line	190
	colm	12
	synt	any
	mark	L1
	pnull
	var	1
	var	0
	line	193
	colm	13
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	194
	colm	5
	synt	while
	mark0
	pnull
	var	1
	line	194
	colm	11
	synt	any
	nonnull
	unmark
	mark	L3
	mark	L6
	pnull
	var	2
	pnull
	var	1
	line	195
	colm	26
	synt	any
	field	next_instr
	line	195
	colm	15
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	1
	var	3
	line	196
	colm	17
	synt	any
	asgn
	unmark
lab L7
	pnull
	var	1
	var	2
	line	197
	colm	17
	synt	any
	asgn
lab L4
	unmark
	goto	L3
lab L5
	line	194
	colm	5
	synt	endwhile
	unmark
lab L2
	pnull
	line	199
	colm	1
	synt	any
	pfail
	end
proc put_RIC
	local	0,001000,seq
	local	1,001000,f
	local	2,000020,current
	local	3,000000,writes
	local	4,000000,write
	con	0,010000,1,054
	con	1,010000,4,124,122,125,105
	con	2,010000,1,073
	con	3,002000,1,0
	con	4,002000,1,1
	con	5,002000,1,2
	declend
	line	202
	colm	12
	synt	any
	mark	L1
	pnull
	var	2
	var	0
	line	205
	colm	13
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	206
	colm	5
	synt	while
	mark0
	pnull
	var	2
	line	206
	colm	11
	synt	any
	nonnull
	unmark
	mark	L3
	mark	L6
	var	3
	var	1
	pnull
	var	2
	line	207
	colm	27
	synt	any
	field	op_code
	str	0
	line	207
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	3
	var	1
	pnull
	var	2
	line	208
	colm	27
	synt	any
	field	label_arg
	str	0
	line	208
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	3
	var	1
	pnull
	var	2
	line	209
	colm	27
	synt	any
	field	n_args
	str	0
	line	209
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	line	210
	colm	9
	synt	ifelse
	mark	L10
	pnull
	pnull
	var	2
	line	210
	colm	21
	synt	any
	field	label_arg
	str	1
	line	210
	colm	33
	synt	any
	lexeq
	unmark
	var	4
	var	1
	pnull
	var	2
	line	211
	colm	30
	synt	any
	field	label
	str	2
	line	211
	colm	18
	synt	any
	invoke	3
	goto	L11
lab L10
	mark	L12
	var	3
	var	1
	pnull
	pnull
	var	2
	line	213
	colm	31
	synt	any
	field	arg
	int	3
	line	213
	colm	36
	synt	any
	subsc
	str	0
	line	213
	colm	19
	synt	any
	invoke	3
	unmark
lab L12
	mark	L13
	var	3
	var	1
	pnull
	pnull
	var	2
	line	214
	colm	31
	synt	any
	field	arg
	int	4
	line	214
	colm	36
	synt	any
	subsc
	str	0
	line	214
	colm	19
	synt	any
	invoke	3
	unmark
lab L13
	var	4
	var	1
	pnull
	pnull
	var	2
	line	215
	colm	30
	synt	any
	field	arg
	int	5
	line	215
	colm	35
	synt	any
	subsc
	str	2
	line	215
	colm	18
	synt	any
	invoke	3
lab L11
	line	210
	colm	9
	synt	endifelse
	unmark
lab L9
	pnull
	var	2
	pnull
	var	2
	line	217
	colm	29
	synt	any
	field	next_instr
	line	217
	colm	18
	synt	any
	asgn
lab L4
	unmark
	goto	L3
lab L5
	line	206
	colm	5
	synt	endwhile
	unmark
lab L2
	mark	L14
	var	3
	var	1
	str	2
	line	220
	colm	11
	synt	any
	invoke	2
	unmark
lab L14
	pnull
	line	221
	colm	1
	synt	any
	pfail
	end
proc get_RIC
	local	0,001000,f
	local	1,000020,current
	local	2,000020,last
	local	3,000020,result
	local	4,000020,opcode
	local	5,000020,label_arg
	local	6,000020,n_args
	local	7,000020,arg0
	local	8,000020,label_buf
	local	9,000020,line
	local	10,000020,arg3
	local	11,000000,list
	local	12,000000,NULL
	local	13,000000,read
	local	14,000000,tab
	local	15,000000,upto
	local	16,000000,rest
	local	17,000000,RIC_instr
	local	18,000000,op_code
	local	19,000000,avail_loc
	local	20,000000,iand
	local	21,000000,ARG_BIT
	local	22,000000,dbgmsg
	local	23,000000,abort
	con	0,002000,1,3
	con	1,002000,1,0
	con	2,020000,1,054
	con	3,020000,1,073
	con	4,010000,4,124,122,125,105
	con	5,002000,1,1
	con	6,002000,1,2
	con	7,010000,0
	con	8,002000,2,20
	con	9,002000,9,805306368
	con	10,010000,47,147,145,164,137,122,111,103,072,040,101,164,164,145,155,160,164,040,164,157,040,144,145,143,154,141,162,145,040,141,162,147,165,155,145,156,164,040,157,162,040,162,145,163,165,154,164,012
	declend
	line	225
	colm	12
	synt	any
	mark	L1
	pnull
	var	10
	var	11
	int	0
	int	1
	line	235
	colm	23
	synt	any
	invoke	2
	line	235
	colm	16
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	3
	var	12
	line	236
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L3
lab L4
	line	238
	colm	5
	synt	while
	mark0
	pnull
	var	9
	var	13
	var	0
	line	238
	colm	23
	synt	any
	invoke	1
	line	238
	colm	16
	synt	any
	asgn
	unmark
	mark	L4
	mark	L7
	var	9
	line	239
	colm	14
	synt	any
	bscan
	pnull
	var	4
	var	14
	var	15
	cset	2
	line	239
	colm	35
	synt	any
	invoke	1
	line	239
	colm	30
	synt	any
	invoke	1
	line	239
	colm	24
	synt	any
	asgn
	pop
	pnull
	var	5
	var	14
	var	15
	cset	2
	line	240
	colm	38
	synt	any
	invoke	1
	line	240
	colm	33
	synt	any
	invoke	1
	line	240
	colm	27
	synt	any
	asgn
	pop
	pnull
	var	6
	var	14
	var	15
	cset	2
	line	241
	colm	35
	synt	any
	invoke	1
	line	241
	colm	30
	synt	any
	invoke	1
	line	241
	colm	24
	synt	any
	asgn
	pop
	pnull
	var	16
	var	14
	var	15
	cset	3
	line	242
	colm	33
	synt	any
	invoke	1
	line	242
	colm	28
	synt	any
	invoke	1
	line	242
	colm	22
	synt	any
	asgn
	line	239
	colm	14
	synt	any
	escan
	unmark
lab L7
	mark	L8
	line	243
	colm	9
	synt	ifelse
	mark	L9
	pnull
	var	5
	str	4
	line	243
	colm	22
	synt	any
	lexeq
	unmark
	pnull
	var	8
	var	16
	line	245
	colm	27
	synt	any
	asgn
	goto	L10
lab L9
	mark	L11
	var	16
	line	249
	colm	22
	synt	any
	bscan
	pnull
	pnull
	var	10
	int	5
	line	249
	colm	29
	synt	any
	subsc
	pnull
	var	7
	var	14
	var	15
	cset	2
	line	249
	colm	52
	synt	any
	invoke	1
	line	249
	colm	47
	synt	any
	invoke	1
	line	249
	colm	41
	synt	any
	asgn
	line	249
	colm	33
	synt	any
	asgn
	pop
	pnull
	pnull
	var	10
	int	6
	line	250
	colm	29
	synt	any
	subsc
	var	14
	var	15
	cset	2
	line	250
	colm	44
	synt	any
	invoke	1
	line	250
	colm	39
	synt	any
	invoke	1
	line	250
	colm	33
	synt	any
	asgn
	pop
	pnull
	pnull
	var	10
	int	0
	line	251
	colm	29
	synt	any
	subsc
	var	14
	int	1
	line	251
	colm	39
	synt	any
	invoke	1
	line	251
	colm	33
	synt	any
	asgn
	line	249
	colm	22
	synt	any
	escan
	unmark
lab L11
	pnull
	var	8
	str	7
	line	252
	colm	27
	synt	any
	asgn
lab L10
	line	243
	colm	9
	synt	endifelse
	unmark
lab L8
	mark	L12
	pnull
	var	1
	var	17
	var	18
	var	10
	var	6
	var	8
	line	254
	colm	29
	synt	any
	invoke	4
	line	254
	colm	17
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	line	256
	colm	9
	synt	if
	mark0
	pnull
	var	4
	int	8
	line	256
	colm	20
	synt	any
	numeq
	pop
	pnull
	var	7
	var	19
	line	256
	colm	32
	synt	any
	numge
	unmark
	mark	L14
	line	258
	colm	17
	synt	if
	mark0
	mark	L15
	pnull
	var	20
	var	7
	var	21
	line	258
	colm	25
	synt	any
	invoke	2
	int	1
	line	258
	colm	42
	synt	any
	numne
	line	258
	colm	47
	synt	any
	esusp
	goto	L16
lab L15
	pnull
	var	7
	int	9
	line	258
	colm	54
	synt	any
	numeq
lab L16
	unmark
	mark	L17
	var	22
	str	10
	line	260
	colm	31
	synt	any
	invoke	1
	unmark
lab L17
	var	23
	var	7
	line	261
	colm	30
	synt	any
	invoke	1
	line	258
	colm	17
	synt	endif
	unmark
lab L14
	pnull
	var	19
	pnull
	var	7
	int	5
	line	263
	colm	35
	synt	any
	plus
	line	263
	colm	27
	synt	any
	asgn
	line	256
	colm	9
	synt	endif
	unmark
lab L13
	line	266
	colm	9
	synt	ifelse
	mark	L18
	pnull
	var	3
	line	266
	colm	12
	synt	any
	null
	unmark
	pnull
	var	3
	pnull
	var	2
	var	1
	line	268
	colm	32
	synt	any
	asgn
	line	268
	colm	24
	synt	any
	asgn
	goto	L19
lab L18
	mark	L20
	pnull
	pnull
	var	2
	line	272
	colm	26
	synt	any
	field	next_instr
	var	1
	line	272
	colm	39
	synt	any
	asgn
	unmark
lab L20
	pnull
	var	2
	var	1
	line	273
	colm	26
	synt	any
	asgn
lab L19
	line	266
	colm	9
	synt	endifelse
lab L5
	unmark
	goto	L4
lab L6
	line	238
	colm	5
	synt	endwhile
	unmark
lab L3
	mark	L21
	mark	L22
	var	3
	line	276
	colm	5
	synt	any
	pret
lab L22
	synt	any
	pfail
	unmark
lab L21
	pnull
	line	277
	colm	1
	synt	any
	pfail
	end
proc write_RIC
	local	0,001000,f
	local	1,001000,RIC_i
	local	2,001000,n
	local	3,001000,rs
	local	4,000020,result
	local	5,000020,arg
	local	6,000020,i
	local	7,000020,is_ldn
	local	8,000000,writes
	local	9,000000,pattern_assign_onmatch
	local	10,000000,op_code
	local	11,000000,write
	local	12,000000,putc
	con	0,010000,7,157,160,137,143,157,144,145
	con	1,010000,1,054
	con	2,010000,4,124,122,125,105
	con	3,010000,1,073
	con	4,020000,1,000
	con	5,002000,1,1
	declend
	line	283
	colm	12
	synt	any
	mark	L1
	var	8
	var	0
	var	9
	var	1
	var	10
	str	0
	line	286
	colm	37
	synt	any
	invoke	3
	str	1
	line	286
	colm	11
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	line	287
	colm	5
	synt	ifelse
	mark	L3
	pnull
	pnull
	var	1
	line	287
	colm	15
	synt	any
	field	label_arg
	str	2
	line	287
	colm	27
	synt	any
	lexeq
	unmark
	mark	L5
	var	11
	var	0
	pnull
	var	1
	line	289
	colm	28
	synt	any
	field	label
	str	3
	line	289
	colm	18
	synt	any
	invoke	3
	unmark
lab L5
	var	12
	cset	4
	var	0
	line	290
	colm	17
	synt	any
	invoke	2
	goto	L4
lab L3
	mark	L6
lab L7
	line	294
	colm	17
	synt	while
	mark0
	pnull
	var	6
	pnull
	var	1
	line	294
	colm	32
	synt	any
	field	n_args
	line	294
	colm	25
	synt	any
	numlt
	unmark
	mark	L7
	mark	L10
	var	8
	var	0
	pnull
	pnull
	var	1
	line	295
	colm	36
	synt	any
	field	arg3
	pnull
	var	6
	int	5
	line	295
	colm	43
	synt	any
	plus
	line	295
	colm	41
	synt	any
	subsc
	str	1
	line	295
	colm	27
	synt	any
	invoke	3
	unmark
lab L10
	pnull
	var	6
	pnull
	int	5
	line	296
	colm	24
	synt	any
	tabmat
	line	296
	colm	23
	synt	any
	plus
lab L8
	unmark
	goto	L7
lab L9
	line	294
	colm	17
	synt	endwhile
	unmark
lab L6
	var	11
	var	0
	str	3
	line	298
	colm	22
	synt	any
	invoke	2
lab L4
	line	287
	colm	5
	synt	endifelse
	unmark
lab L2
	pnull
	line	300
	colm	1
	synt	any
	pfail
	end
proc write_RIC_seq
	local	0,001000,f
	local	1,001000,RIC_seq
	local	2,001000,n
	local	3,001000,rs
	local	4,000020,p
	local	5,000000,write_RIC
	declend
	line	303
	colm	12
	synt	any
	mark	L1
	pnull
	var	4
	var	1
	line	306
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	308
	colm	5
	synt	while
	mark0
	pnull
	var	4
	line	308
	colm	11
	synt	any
	nonnull
	unmark
	mark	L3
	mark	L6
	var	5
	var	0
	var	4
	var	2
	var	3
	line	309
	colm	18
	synt	any
	invoke	4
	unmark
lab L6
	pnull
	var	4
	pnull
	var	4
	line	310
	colm	15
	synt	any
	field	next_instr
	line	310
	colm	11
	synt	any
	numeq
lab L4
	unmark
	goto	L3
lab L5
	line	308
	colm	5
	synt	endwhile
	unmark
lab L2
	pnull
	line	312
	colm	1
	synt	any
	pfail
	end
proc genl_RIC
	local	0,001000,f
	local	1,001000,op
	local	2,001000,label
	local	3,000000,writes
	local	4,000000,write
	con	0,010000,1,054
	con	1,010000,1,073
	declend
	line	315
	colm	12
	synt	any
	mark	L1
	var	3
	var	0
	var	1
	str	0
	line	316
	colm	11
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	var	4
	var	0
	var	2
	str	1
	line	317
	colm	10
	synt	any
	invoke	3
	unmark
lab L2
	pnull
	line	318
	colm	1
	synt	any
	pfail
	end
proc gen_RIC
	local	0,001000,f
	local	1,001000,op
	local	2,001000,arg1
	local	3,001000,arg2
	local	4,001000,arg3
	local	5,000000,writes
	local	6,000000,write
	con	0,010000,1,054
	con	1,010000,1,073
	declend
	line	321
	colm	12
	synt	any
	mark	L1
	var	5
	var	0
	var	1
	str	0
	line	322
	colm	11
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	var	5
	var	0
	var	2
	str	0
	line	323
	colm	11
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	var	5
	var	0
	var	3
	str	0
	line	324
	colm	11
	synt	any
	invoke	3
	unmark
lab L3
	mark	L4
	var	6
	var	0
	var	4
	str	1
	line	325
	colm	10
	synt	any
	invoke	3
	unmark
lab L4
	pnull
	line	326
	colm	1
	synt	any
	pfail
	end
proc copy_RIC
	local	0,001000,p
	local	1,000020,result
	local	2,000000,deepcopy
	declend
	line	329
	colm	12
	synt	any
	mark	L1
	pnull
	var	1
	var	2
	var	0
	line	331
	colm	23
	synt	any
	invoke	1
	line	331
	colm	12
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	var	1
	line	332
	colm	5
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	333
	colm	1
	synt	any
	pfail
	end
proc cat_RIC
	local	0,001000,p
	local	1,001000,q
	local	2,000020,r
	local	3,000000,pattern_assign_onmatch
	local	4,000000,next_instr
	con	0,010000,10,156,145,170,164,137,151,156,163,164,162
	declend
	line	336
	colm	12
	synt	any
	mark	L1
	line	339
	colm	5
	synt	ifelse
	mark	L2
	pnull
	var	0
	line	339
	colm	8
	synt	any
	null
	unmark
	mark	L4
	var	1
	line	340
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	mark	L5
	pnull
	var	2
	var	0
	line	342
	colm	11
	synt	any
	asgn
	unmark
lab L5
lab L6
	line	343
	colm	9
	synt	while
	mark0
	pnull
	pnull
	var	2
	line	343
	colm	20
	synt	any
	field	next_instr
	line	343
	colm	15
	synt	any
	null
	unmark
	mark	L6
	mark	L9
	pnull
	var	3
	var	2
	var	4
	str	0
	line	343
	colm	61
	synt	any
	invoke	3
	var	1
	line	344
	colm	46
	synt	any
	numeq
	unmark
lab L9
	pnull
	var	2
	pnull
	var	2
	line	345
	colm	20
	synt	any
	field	next_instr
	line	345
	colm	15
	synt	any
	asgn
lab L7
	unmark
	goto	L6
lab L8
	line	343
	colm	9
	synt	endwhile
lab L3
	line	339
	colm	5
	synt	endifelse
	unmark
lab L1
	mark	L10
	mark	L11
	var	0
	line	348
	colm	5
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	349
	colm	1
	synt	any
	pfail
	end
proc RIC_inst_args
	local	0,001000,p
	local	1,001000,n
	local	2,000020,r
	local	3,000020,i
	local	4,000020,is_ldn
	local	5,000020,arg_no
	local	6,000000,pattern_assign_onmatch
	local	7,000000,n_args
	local	8,000000,iand
	local	9,000000,ARG_BIT
	local	10,000000,icomp
	con	0,002000,2,28
	con	1,002000,2,45
	con	2,002000,1,1
	con	3,002000,1,0
	con	4,010000,6,156,137,141,162,147,163
	con	5,010000,4,124,122,125,105
	declend
	line	354
	colm	12
	synt	any
	mark	L1
	pnull
	var	2
	var	0
	line	362
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	363
	colm	5
	synt	while
	mark0
	pnull
	var	2
	line	363
	colm	11
	synt	any
	nonnull
	unmark
	mark	L3
	mark	L6
	line	364
	colm	9
	synt	ifelse
	mark	L7
	mark	L9
	pnull
	pnull
	var	2
	line	364
	colm	15
	synt	any
	field	op_code
	int	0
	line	364
	colm	25
	synt	any
	numeq
	line	364
	colm	30
	synt	any
	esusp
	goto	L10
lab L9
	pnull
	pnull
	var	2
	line	364
	colm	34
	synt	any
	field	op_code
	int	1
	line	364
	colm	44
	synt	any
	numeq
lab L10
	unmark
	pnull
	var	4
	int	2
	line	365
	colm	20
	synt	any
	asgn
	goto	L8
lab L7
	pnull
	var	4
	int	3
	line	367
	colm	20
	synt	any
	asgn
lab L8
	line	364
	colm	9
	synt	endifelse
	unmark
lab L6
	mark	L11
	pnull
	var	3
	int	3
	line	368
	colm	11
	synt	any
	asgn
	unmark
lab L11
	mark	L12
lab L13
	line	369
	colm	9
	synt	while
	mark0
	pnull
	var	3
	var	6
	var	2
	var	7
	str	4
	line	369
	colm	41
	synt	any
	invoke	3
	line	369
	colm	17
	synt	any
	numlt
	pop
	pnull
	pnull
	var	2
	line	369
	colm	73
	synt	any
	field	label_arg
	str	5
	line	369
	colm	85
	synt	any
	lexne
	unmark
	mark	L13
	mark	L16
	line	370
	colm	13
	synt	if
	mark0
	mark	L17
	pnull
	var	4
	int	3
	line	370
	colm	24
	synt	any
	numne
	line	370
	colm	29
	synt	any
	esusp
	goto	L18
lab L17
	pnull
	var	3
	int	2
	line	370
	colm	33
	synt	any
	numge
lab L18
	unmark
	line	371
	colm	17
	synt	if
	mark0
	pnull
	pushn1
	var	8
	pnull
	pnull
	var	2
	line	371
	colm	28
	synt	any
	field	arg
	var	3
	line	371
	colm	33
	synt	any
	subsc
	line	371
	colm	25
	synt	any
	invoke	1
	var	9
	line	371
	colm	20
	synt	any
	invoke	2
	int	3
	line	371
	colm	49
	synt	any
	numne
	unmark
	mark	L19
	pnull
	var	5
	var	8
	pnull
	pnull
	var	2
	line	372
	colm	38
	synt	any
	field	arg
	pnull
	var	3
	int	2
	line	372
	colm	46
	synt	any
	plus
	line	372
	colm	43
	synt	any
	subsc
	var	10
	var	9
	line	372
	colm	58
	synt	any
	invoke	1
	line	372
	colm	35
	synt	any
	invoke	2
	line	372
	colm	28
	synt	any
	asgn
	unmark
lab L19
	pnull
	pnull
	pnull
	var	2
	line	373
	colm	23
	synt	any
	field	arg
	var	3
	line	373
	colm	28
	synt	any
	subsc
	pnull
	pnull
	var	5
	var	1
	line	373
	colm	42
	synt	any
	plus
	int	2
	line	373
	colm	46
	synt	any
	minus
	line	373
	colm	32
	synt	any
	asgn
	line	371
	colm	17
	synt	endif
	line	370
	colm	13
	synt	endif
	unmark
lab L16
	pnull
	var	3
	dup
	int	2
	line	376
	colm	15
	synt	any
	plus
	asgn
lab L14
	unmark
	goto	L13
lab L15
	line	369
	colm	9
	synt	endwhile
	unmark
lab L12
	pnull
	var	2
	pnull
	var	2
	line	378
	colm	16
	synt	any
	field	next_instr
	line	378
	colm	11
	synt	any
	asgn
lab L4
	unmark
	goto	L3
lab L5
	line	363
	colm	5
	synt	endwhile
	unmark
lab L2
	mark	L20
	mark	L21
	var	0
	line	380
	colm	5
	synt	any
	pret
lab L21
	synt	any
	pfail
	unmark
lab L20
	pnull
	line	381
	colm	1
	synt	any
	pfail
	end
proc RIC_inst_rs
	local	0,001000,p
	local	1,001000,n
	local	2,000020,r
	local	3,000020,i
	local	4,000020,is_ldn
	con	0,002000,2,28
	con	1,002000,2,45
	con	2,002000,1,1
	con	3,002000,1,0
	con	4,002000,9,805306368
	declend
	line	385
	colm	12
	synt	any
	mark	L1
	pnull
	var	2
	var	0
	line	392
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	393
	colm	5
	synt	while
	mark0
	pnull
	var	2
	line	393
	colm	11
	synt	any
	nonnull
	unmark
	mark	L3
	mark	L6
	line	394
	colm	9
	synt	ifelse
	mark	L7
	mark	L9
	pnull
	pnull
	var	2
	line	394
	colm	15
	synt	any
	field	op_code
	int	0
	line	394
	colm	25
	synt	any
	numeq
	line	394
	colm	30
	synt	any
	esusp
	goto	L10
lab L9
	pnull
	pnull
	var	2
	line	394
	colm	34
	synt	any
	field	op_code
	int	1
	line	394
	colm	44
	synt	any
	numeq
lab L10
	unmark
	pnull
	var	4
	int	2
	line	395
	colm	20
	synt	any
	asgn
	goto	L8
lab L7
	pnull
	var	4
	int	3
	line	397
	colm	20
	synt	any
	asgn
lab L8
	line	394
	colm	9
	synt	endifelse
	unmark
lab L6
	mark	L11
	pnull
	var	3
	int	3
	line	398
	colm	11
	synt	any
	asgn
	unmark
lab L11
	mark	L12
lab L13
	line	399
	colm	9
	synt	while
	mark0
	pnull
	var	3
	pnull
	var	2
	line	399
	colm	21
	synt	any
	field	n_args
	line	399
	colm	17
	synt	any
	numlt
	pop
	pnull
	pnull
	var	2
	line	399
	colm	34
	synt	any
	field	label_arg
	int	3
	line	399
	colm	46
	synt	any
	numne
	unmark
	mark	L13
	mark	L16
	line	400
	colm	13
	synt	if
	mark0
	mark	L17
	pnull
	var	4
	int	3
	line	400
	colm	24
	synt	any
	numne
	line	400
	colm	29
	synt	any
	esusp
	goto	L18
lab L17
	pnull
	var	3
	int	2
	line	400
	colm	33
	synt	any
	numge
lab L18
	unmark
	line	401
	colm	17
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	2
	line	401
	colm	24
	synt	any
	field	arg
	pnull
	var	3
	int	2
	line	401
	colm	32
	synt	any
	plus
	line	401
	colm	29
	synt	any
	subsc
	int	4
	line	401
	colm	38
	synt	any
	numeq
	unmark
	pnull
	pnull
	pnull
	var	2
	line	402
	colm	23
	synt	any
	field	arg
	var	3
	line	402
	colm	28
	synt	any
	subsc
	var	1
	line	402
	colm	32
	synt	any
	asgn
	line	401
	colm	17
	synt	endif
	line	400
	colm	13
	synt	endif
	unmark
lab L16
	pnull
	var	3
	dup
	int	2
	line	405
	colm	15
	synt	any
	plus
	asgn
lab L14
	unmark
	goto	L13
lab L15
	line	399
	colm	9
	synt	endwhile
	unmark
lab L12
	pnull
	var	2
	pnull
	var	2
	line	407
	colm	16
	synt	any
	field	next_instr
	line	407
	colm	11
	synt	any
	asgn
lab L4
	unmark
	goto	L3
lab L5
	line	393
	colm	5
	synt	endwhile
	unmark
lab L2
	mark	L19
	mark	L20
	var	0
	line	409
	colm	5
	synt	any
	pret
lab L20
	synt	any
	pfail
	unmark
lab L19
	pnull
	line	410
	colm	1
	synt	any
	pfail
	end
proc RIC_len
	local	0,001000,p
	local	1,000020,r
	local	2,000020,i
	con	0,002000,1,0
	con	1,002000,1,1
	con	2,002000,2,38
	con	3,002000,1,2
	declend
	line	414
	colm	12
	synt	any
	mark	L1
	pnull
	var	2
	int	0
	line	418
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	var	0
	line	420
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
lab L4
	line	421
	colm	5
	synt	while
	mark0
	pnull
	var	1
	line	421
	colm	11
	synt	any
	nonnull
	unmark
	mark	L4
	mark	L7
	pnull
	var	2
	dup
	int	1
	line	422
	colm	11
	synt	any
	plus
	asgn
	unmark
lab L7
	mark	L8
	line	423
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	423
	colm	15
	synt	any
	field	op_code
	int	2
	line	423
	colm	25
	synt	any
	numeq
	unmark
	mark	L9
	pnull
	var	2
	dup
	int	1
	line	424
	colm	15
	synt	any
	minus
	asgn
	unmark
lab L9
	line	425
	colm	13
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	1
	line	425
	colm	19
	synt	any
	field	arg
	int	1
	line	425
	colm	24
	synt	any
	subsc
	int	1
	line	425
	colm	28
	synt	any
	numeq
	unmark
	pnull
	var	2
	dup
	pnull
	pnull
	var	1
	line	426
	colm	25
	synt	any
	field	arg
	int	3
	line	426
	colm	30
	synt	any
	subsc
	line	426
	colm	19
	synt	any
	minus
	asgn
	line	425
	colm	13
	synt	endif
	line	423
	colm	9
	synt	endif
	unmark
lab L8
	pnull
	var	1
	pnull
	var	1
	line	429
	colm	16
	synt	any
	field	next_instr
	line	429
	colm	11
	synt	any
	asgn
lab L5
	unmark
	goto	L4
lab L6
	line	421
	colm	5
	synt	endwhile
	unmark
lab L3
	mark	L10
	mark	L11
	var	2
	line	431
	colm	5
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	432
	colm	1
	synt	any
	pfail
	end
proc init_RIC_table
	local	0,000020,i
	local	1,000020,op_code_table
	local	2,000000,RIC_table
	local	3,000000,table
	local	4,000000,RIC_op_code_cnt
	local	5,000000,add_RIC_table
	con	0,010000,1,060
	con	1,010000,2,102,122
	con	2,010000,3,102,122,124
	con	3,010000,3,102,122,106
	con	4,010000,3,103,114,114
	con	5,010000,3,114,102,114
	con	6,010000,3,105,130,124
	con	7,010000,3,114,102,101
	con	8,010000,3,102,106,116
	con	9,010000,3,124,106,102
	con	10,010000,3,124,106,105
	con	11,010000,3,120,122,117
	con	12,010000,3,101,104,124
	con	13,010000,3,105,122,122
	con	14,010000,3,102,123,106
	con	15,010000,3,114,102,122
	con	16,010000,3,104,104,124
	con	17,010000,3,106,104,124
	con	18,010000,3,104,103,114
	con	19,010000,3,125,104,103
	con	20,010000,3,101,114,110
	con	21,010000,3,107,101,122
	con	22,010000,3,101,114,123
	con	23,010000,3,114,104,111
	con	24,010000,3,123,124,111
	con	25,010000,3,103,114,111
	con	26,010000,3,114,104,116
	con	27,010000,3,122,124,116
	con	28,010000,3,114,104,114
	con	29,010000,3,115,117,126
	con	30,010000,3,124,101,122
	con	31,010000,3,120,123,110
	con	32,010000,3,101,104,120
	con	33,010000,3,103,114,103
	con	34,010000,3,101,114,101
	con	35,010000,4,110,111,116,124
	con	36,010000,3,101,122,107
	con	37,010000,3,101,104,111
	con	38,010000,3,123,102,111
	con	39,010000,3,115,114,111
	con	40,010000,3,104,126,111
	con	41,010000,3,116,107,111
	con	42,010000,3,111,104,124
	con	43,010000,3,105,121,111
	con	44,010000,3,114,124,111
	con	45,010000,3,107,124,111
	con	46,010000,3,116,105,111
	con	47,010000,3,114,105,111
	con	48,010000,3,107,105,111
	con	49,010000,3,123,110,111
	con	50,010000,3,101,102,111
	con	51,010000,3,124,122,125
	con	52,010000,3,106,114,123
	con	53,010000,3,101,116,104
	con	54,010000,2,117,122
	con	55,010000,3,116,117,124
	con	56,010000,3,114,104,123
	con	57,010000,3,114,104,103
	con	58,010000,3,101,104,106
	con	59,010000,3,123,102,106
	con	60,010000,3,115,114,106
	con	61,010000,3,104,126,106
	con	62,010000,3,116,107,106
	con	63,010000,3,105,130,106
	con	64,010000,3,105,121,106
	con	65,010000,3,114,124,106
	con	66,010000,3,107,124,106
	con	67,010000,3,116,105,106
	con	68,010000,3,114,105,106
	con	69,010000,3,107,105,106
	con	70,010000,3,123,110,106
	con	71,002000,3,200
	con	72,002000,1,0
	con	73,002000,1,1
	con	74,010000,2,122,123
	con	75,002000,9,805306368
	con	76,010000,2,101,122
	con	77,010000,2,123,120
	con	78,002000,1,2
	con	79,010000,2,107,106
	con	80,002000,1,3
	con	81,010000,2,125,116
	con	82,002000,1,4
	con	83,010000,2,123,113
	con	84,002000,1,5
	con	85,010000,2,122,114
	con	86,002000,1,6
	con	87,010000,2,124,114
	con	88,002000,1,8
	con	89,010000,2,103,060
	con	90,002000,2,10
	con	91,010000,2,103,061
	con	92,002000,2,11
	con	93,010000,2,103,062
	con	94,002000,2,12
	con	95,010000,2,103,063
	con	96,002000,2,13
	con	97,010000,2,103,064
	con	98,002000,2,14
	con	99,010000,2,124,061
	con	100,010000,2,124,062
	con	101,002000,2,16
	con	102,010000,4,101,104,104,122
	con	103,010000,3,111,116,124
	con	104,010000,5,106,114,117,101,124
	con	105,010000,9,104,102,114,137,106,114,117,101,124
	con	106,010000,3,117,120,124
	con	107,010000,2,116,120
	con	108,010000,2,120,124
	con	109,002000,1,7
	con	110,010000,2,101,114
	con	111,010000,3,104,105,101
	con	112,010000,3,116,123,103
	con	113,010000,4,123,124,123,132
	con	114,010000,4,104,105,101,104
	con	115,010000,3,107,106,125
	con	116,002000,1,9
	con	117,010000,4,114,111,126,105
	con	118,010000,2,105,124
	con	119,010000,3,117,116,123
	declend
	line	435
	colm	15
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	str	0
	str	1
	str	2
	str	3
	str	4
	str	5
	str	6
	str	7
	str	0
	str	8
	str	9
	str	10
	str	11
	str	12
	str	13
	str	14
	str	15
	str	16
	str	17
	str	0
	str	18
	str	19
	str	20
	str	21
	str	22
	str	23
	str	24
	str	25
	str	26
	str	27
	str	28
	str	29
	str	30
	str	31
	str	0
	str	32
	str	33
	str	34
	str	35
	str	36
	str	37
	str	38
	str	39
	str	40
	str	41
	str	42
	str	43
	str	44
	str	45
	str	46
	str	47
	str	48
	str	49
	str	50
	str	0
	str	0
	str	0
	str	0
	str	0
	str	0
	str	51
	str	52
	str	53
	str	54
	str	55
	str	0
	str	0
	str	0
	str	0
	str	0
	str	56
	str	57
	str	0
	str	0
	str	0
	str	0
	str	0
	str	0
	str	0
	str	0
	str	58
	str	59
	str	60
	str	61
	str	62
	str	63
	str	64
	str	65
	str	66
	str	67
	str	68
	str	69
	str	70
	str	0
	str	0
	str	0
	str	0
	str	0
	str	0
	str	0
	str	0
	str	0
	str	0
	str	0
	str	0
	line	441
	colm	18
	synt	any
	llist	105
	line	441
	colm	15
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	var	3
	int	71
	int	72
	line	468
	colm	19
	synt	any
	invoke	2
	line	468
	colm	11
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	0
	int	73
	line	472
	colm	3
	synt	any
	asgn
	unmark
lab L3
	mark	L4
lab L5
	line	473
	colm	2
	synt	while
	mark0
	pnull
	var	0
	pnull
	var	1
	line	473
	colm	14
	synt	any
	size
	line	473
	colm	11
	synt	any
	numle
	unmark
	mark	L5
	mark	L8
	line	474
	colm	1
	synt	if
	mark0
	pnull
	pnull
	var	1
	var	0
	line	474
	colm	18
	synt	any
	subsc
	str	0
	line	474
	colm	22
	synt	any
	lexne
	unmark
	mark	L9
	pnull
	var	4
	dup
	int	73
	line	475
	colm	17
	synt	any
	plus
	asgn
	unmark
lab L9
	var	5
	pnull
	var	1
	var	0
	line	476
	colm	28
	synt	any
	subsc
	pnull
	var	0
	int	73
	line	476
	colm	34
	synt	any
	minus
	line	476
	colm	14
	synt	any
	invoke	2
	line	474
	colm	1
	synt	endif
	unmark
lab L8
	pnull
	var	0
	dup
	int	73
	line	478
	colm	3
	synt	any
	plus
	asgn
lab L6
	unmark
	goto	L5
lab L7
	line	473
	colm	2
	synt	endwhile
	unmark
lab L4
	mark	L10
	var	5
	str	74
	int	75
	line	482
	colm	14
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	5
	str	76
	int	73
	line	483
	colm	14
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	5
	str	77
	int	78
	line	484
	colm	14
	synt	any
	invoke	2
	unmark
lab L12
	mark	L13
	var	5
	str	79
	int	80
	line	485
	colm	14
	synt	any
	invoke	2
	unmark
lab L13
	mark	L14
	var	5
	str	81
	int	82
	line	486
	colm	14
	synt	any
	invoke	2
	unmark
lab L14
	mark	L15
	var	5
	str	83
	int	84
	line	487
	colm	14
	synt	any
	invoke	2
	unmark
lab L15
	mark	L16
	var	5
	str	85
	int	86
	line	488
	colm	14
	synt	any
	invoke	2
	unmark
lab L16
	mark	L17
	var	5
	str	87
	int	88
	line	489
	colm	14
	synt	any
	invoke	2
	unmark
lab L17
	mark	L18
	var	5
	str	89
	int	90
	line	490
	colm	14
	synt	any
	invoke	2
	unmark
lab L18
	mark	L19
	var	5
	str	91
	int	92
	line	491
	colm	14
	synt	any
	invoke	2
	unmark
lab L19
	mark	L20
	var	5
	str	93
	int	94
	line	492
	colm	14
	synt	any
	invoke	2
	unmark
lab L20
	mark	L21
	var	5
	str	95
	int	96
	line	493
	colm	14
	synt	any
	invoke	2
	unmark
lab L21
	mark	L22
	var	5
	str	97
	int	98
	line	494
	colm	14
	synt	any
	invoke	2
	unmark
lab L22
	mark	L23
	var	5
	str	99
	int	86
	line	495
	colm	14
	synt	any
	invoke	2
	unmark
lab L23
	mark	L24
	var	5
	str	100
	int	101
	line	496
	colm	14
	synt	any
	invoke	2
	unmark
lab L24
	mark	L25
	var	5
	str	102
	int	73
	line	498
	colm	14
	synt	any
	invoke	2
	unmark
lab L25
	mark	L26
	var	5
	str	103
	int	78
	line	499
	colm	14
	synt	any
	invoke	2
	unmark
lab L26
	mark	L27
	var	5
	str	104
	int	80
	line	500
	colm	14
	synt	any
	invoke	2
	unmark
lab L27
	mark	L28
	var	5
	str	105
	int	82
	line	501
	colm	14
	synt	any
	invoke	2
	unmark
lab L28
	mark	L29
	var	5
	str	106
	int	73
	line	503
	colm	14
	synt	any
	invoke	2
	unmark
lab L29
	mark	L30
	var	5
	str	107
	int	78
	line	504
	colm	14
	synt	any
	invoke	2
	unmark
lab L30
	mark	L31
	var	5
	str	108
	int	109
	line	505
	colm	14
	synt	any
	invoke	2
	unmark
lab L31
	mark	L32
	var	5
	str	110
	int	80
	line	506
	colm	14
	synt	any
	invoke	2
	unmark
lab L32
	mark	L33
	var	5
	str	111
	int	82
	line	507
	colm	14
	synt	any
	invoke	2
	unmark
lab L33
	mark	L34
	var	5
	str	112
	int	84
	line	508
	colm	14
	synt	any
	invoke	2
	unmark
lab L34
	mark	L35
	var	5
	str	113
	int	86
	line	509
	colm	14
	synt	any
	invoke	2
	unmark
lab L35
	mark	L36
	var	5
	str	114
	int	88
	line	510
	colm	14
	synt	any
	invoke	2
	unmark
lab L36
	mark	L37
	var	5
	str	115
	int	116
	line	511
	colm	14
	synt	any
	invoke	2
	unmark
lab L37
	mark	L38
	var	5
	str	117
	int	90
	line	512
	colm	14
	synt	any
	invoke	2
	unmark
lab L38
	mark	L39
	var	5
	str	118
	int	92
	line	513
	colm	14
	synt	any
	invoke	2
	unmark
lab L39
	mark	L40
	var	5
	str	119
	int	94
	line	514
	colm	14
	synt	any
	invoke	2
	unmark
lab L40
	mark	L41
	mark	L42
	int	73
	line	515
	colm	1
	synt	any
	pret
lab L42
	synt	any
	pfail
	unmark
lab L41
	pnull
	line	516
	colm	2
	synt	any
	pfail
	end
proc add_RIC_table
	local	0,001000,nm
	local	1,001000,val
	local	2,000000,RIC_table_entry_cnt
	local	3,000000,RIC_table
	con	0,002000,1,1
	declend
	line	518
	colm	12
	synt	any
	mark	L1
	line	519
	colm	5
	synt	if
	mark0
	pnull
	var	1
	line	519
	colm	8
	synt	any
	nonnull
	unmark
	mark	L2
	pnull
	var	2
	dup
	int	0
	line	520
	colm	29
	synt	any
	plus
	asgn
	unmark
lab L2
	pnull
	pnull
	var	3
	var	0
	line	521
	colm	18
	synt	any
	subsc
	var	1
	line	521
	colm	23
	synt	any
	asgn
	line	519
	colm	5
	synt	endif
	unmark
lab L1
	mark	L3
	mark	L4
	int	0
	line	523
	colm	1
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	524
	colm	2
	synt	any
	pfail
	end
proc find_RIC_table
	local	0,001000,name
	local	1,000020,it
	local	2,000000,RIC_table
	con	0,002000,1,2
	declend
	line	530
	colm	12
	synt	any
	mark	L1
	line	532
	colm	5
	synt	ifelse
	mark	L2
	pnull
	pnull
	var	1
	line	532
	colm	9
	synt	any
	nonnull
	pnull
	var	2
	var	0
	line	532
	colm	25
	synt	any
	subsc
	line	532
	colm	13
	synt	any
	asgn
	unmark
	mark	L4
	var	1
	line	533
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	mark	L5
	pnull
	int	0
	line	535
	colm	16
	synt	any
	neg
	line	535
	colm	9
	synt	any
	pret
lab L5
	synt	any
	pfail
lab L3
	line	532
	colm	5
	synt	endifelse
	unmark
lab L1
	pnull
	line	536
	colm	1
	synt	any
	pfail
	end
proc Ginline_cnvt
	local	0,001000,s
	local	1,000020,p
	local	2,000020,first
	local	3,000020,lastq
	local	4,000020,q
	local	5,000000,nil
	local	6,000000,last
	local	7,000000,parse_RIC
	con	0,010000,1,073
	declend
	line	567
	colm	12
	synt	any
	mark	L1
	pnull
	var	1
	var	0
	line	570
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	var	5
	line	571
	colm	11
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	6
	var	5
	line	572
	colm	10
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	4
	var	5
	line	573
	colm	7
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	line	575
	colm	5
	synt	every
	mark0
	pnull
	var	1
	pnull
	var	0
	line	575
	colm	18
	synt	any
	bang
	line	575
	colm	14
	synt	any
	asgn
	pop
	mark0
	mark	L8
	line	576
	colm	9
	synt	if
	mark0
	pnull
	var	1
	str	0
	line	576
	colm	14
	synt	any
	lexeq
	unmark
	unmark
	unmark
	goto	L6
	line	576
	colm	9
	synt	endif
	unmark
lab L8
	mark	L9
	pnull
	var	4
	var	7
	var	1
	line	577
	colm	23
	synt	any
	invoke	1
	line	577
	colm	11
	synt	any
	asgn
	unmark
lab L9
	line	578
	colm	9
	synt	ifelse
	mark	L10
	pnull
	var	2
	line	578
	colm	14
	synt	any
	null
	unmark
	pnull
	var	2
	pnull
	var	6
	var	4
	line	579
	colm	27
	synt	any
	asgn
	line	579
	colm	19
	synt	any
	asgn
	goto	L11
lab L10
	mark	L12
	pnull
	pnull
	var	6
	line	581
	colm	18
	synt	any
	field	next_instr
	var	4
	line	581
	colm	31
	synt	any
	asgn
	unmark
lab L12
	pnull
	var	6
	var	4
	line	582
	colm	18
	synt	any
	asgn
lab L11
	line	578
	colm	9
	synt	endifelse
	unmark
lab L6
	efail
lab L7
	line	575
	colm	5
	synt	endevery
	unmark
lab L5
	mark	L13
	pnull
	pnull
	var	6
	line	585
	colm	10
	synt	any
	field	next_instr
	var	5
	line	585
	colm	23
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	mark	L15
	var	2
	line	589
	colm	5
	synt	any
	pret
lab L15
	synt	any
	pfail
	unmark
lab L14
	pnull
	line	590
	colm	1
	synt	any
	pfail
	end
proc parse_RIC
	local	0,001000,s
	local	1,000020,p
	local	2,000020,op_code
	local	3,000020,i
	local	4,000020,result
	local	5,000020,q
	local	6,000000,trim
	local	7,000000,extract_field
	local	8,000000,find_RIC_table
	local	9,000000,field_buf
	local	10,000000,n_args
	local	11,000000,next_instr
	local	12,000000,NULL
	local	13,000000,k
	local	14,000000,j
	local	15,000000,label
	local	16,000000,tab
	local	17,000000,upto
	local	18,000000,skip_blanks
	local	19,000000,label_arg
	local	20,000000,RIC_instr
	local	21,000000,arg_arr3
	local	22,000000,any
	con	0,020000,2,040,011
	con	1,002000,1,1
	con	2,020000,1,042
	con	3,002000,1,0
	con	4,010000,1,042
	con	5,010000,1,134
	con	6,002000,1,3
	con	7,002000,1,8
	con	8,002000,1,2
	declend
	line	595
	colm	12
	synt	any
	mark	L1
	pnull
	var	1
	var	0
	line	598
	colm	13
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	0
	var	6
	var	0
	cset	0
	int	1
	line	604
	colm	14
	synt	any
	invoke	3
	line	604
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	1
	var	7
	var	1
	line	605
	colm	23
	synt	any
	invoke	1
	line	605
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	2
	var	8
	var	9
	line	606
	colm	30
	synt	any
	invoke	1
	line	606
	colm	13
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	line	608
	colm	5
	synt	ifelse
	mark	L6
	pnull
	var	1
	cset	2
	line	608
	colm	11
	synt	any
	lexeq
	unmark
	mark	L8
	pnull
	var	1
	pnull
	pnull
	var	1
	int	1
	line	610
	colm	15
	synt	any
	subsc
	int	3
	synt	any
	subsc
	line	610
	colm	11
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	10
	int	1
	line	611
	colm	16
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	11
	var	12
	line	612
	colm	20
	synt	any
	asgn
	unmark
lab L10
	line	613
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	1
	int	1
	line	613
	colm	13
	synt	any
	subsc
	str	4
	line	613
	colm	17
	synt	any
	lexeq
	unmark
	mark	L11
	pnull
	var	1
	pnull
	pnull
	var	1
	int	1
	line	614
	colm	19
	synt	any
	subsc
	int	3
	synt	any
	subsc
	line	614
	colm	15
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	line	615
	colm	13
	synt	ifelse
	mark	L13
	pnull
	pnull
	var	1
	int	1
	line	615
	colm	17
	synt	any
	subsc
	str	5
	line	615
	colm	21
	synt	any
	numne
	unmark
	mark	L15
	pnull
	var	13
	int	3
	line	616
	colm	19
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	line	617
	colm	17
	synt	every
	mark0
	pnull
	var	14
	pnull
	int	1
	int	6
	push1
	line	617
	colm	30
	synt	any
	toby
	line	617
	colm	25
	synt	any
	asgn
	pop
	mark0
	pnull
	var	13
	pnull
	pnull
	int	7
	var	13
	line	618
	colm	27
	synt	any
	mult
	pnull
	var	1
	var	14
	line	618
	colm	33
	synt	any
	subsc
	line	618
	colm	30
	synt	any
	plus
	line	618
	colm	23
	synt	any
	asgn
	unmark
lab L17
	efail
lab L18
	line	617
	colm	17
	synt	endevery
	unmark
lab L16
	pnull
	var	15
	var	13
	line	620
	colm	23
	synt	any
	asgn
	goto	L14
lab L13
	pnull
	var	15
	var	1
	line	623
	colm	23
	synt	any
	asgn
	line	623
	colm	28
	synt	any
	bscan
	var	16
	var	17
	str	4
	line	623
	colm	39
	synt	any
	invoke	1
	line	623
	colm	34
	synt	any
	invoke	1
	line	623
	colm	28
	synt	any
	escan
lab L14
	line	615
	colm	13
	synt	endifelse
	unmark
lab L12
	mark	L19
	var	18
	unmark
lab L19
	mark	L20
	pnull
	var	19
	int	1
	line	625
	colm	23
	synt	any
	asgn
	unmark
lab L20
	pnull
	var	4
	var	20
	var	2
	pnull
	var	11
	pnull
	pnull
	pnull
	pnull
	pnull
	var	19
	pnull
	var	15
	line	627
	colm	32
	synt	any
	invoke	11
	line	627
	colm	20
	synt	any
	asgn
	line	613
	colm	9
	synt	endif
	goto	L7
lab L6
	mark	L21
	pnull
	var	19
	int	3
	line	633
	colm	23
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	pnull
	var	10
	int	3
	line	634
	colm	20
	synt	any
	asgn
	unmark
lab L22
	mark	L23
	pnull
	var	11
	var	12
	line	635
	colm	24
	synt	any
	asgn
	unmark
lab L23
	mark	L24
	pnull
	var	10
	int	3
	line	636
	colm	20
	synt	any
	asgn
	unmark
lab L24
	mark	L25
	pnull
	pnull
	var	21
	int	1
	line	637
	colm	21
	synt	any
	subsc
	var	1
	line	637
	colm	30
	synt	any
	bscan
	var	16
	var	22
	line	637
	colm	40
	synt	any
	keywd	digits
	line	637
	colm	39
	synt	any
	invoke	1
	line	637
	colm	35
	synt	any
	invoke	1
	line	637
	colm	30
	synt	any
	escan
	line	637
	colm	24
	synt	any
	asgn
	unmark
lab L25
	mark	L26
	pnull
	var	1
	pnull
	pnull
	var	1
	pnull
	pnull
	var	21
	int	1
	line	638
	colm	30
	synt	any
	subsc
	line	638
	colm	20
	synt	any
	size
	line	638
	colm	19
	synt	any
	subsc
	int	3
	synt	any
	subsc
	line	638
	colm	15
	synt	any
	asgn
	unmark
lab L26
	mark	L27
	line	639
	colm	13
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	21
	int	1
	line	639
	colm	26
	synt	any
	subsc
	line	639
	colm	16
	synt	any
	size
	int	3
	line	639
	colm	31
	synt	any
	numgt
	unmark
	mark	L28
	pnull
	var	10
	pnull
	int	1
	line	640
	colm	25
	synt	any
	tabmat
	line	640
	colm	24
	synt	any
	plus
	unmark
lab L28
	mark	L29
	pnull
	pnull
	var	21
	int	8
	line	641
	colm	25
	synt	any
	subsc
	var	1
	line	641
	colm	34
	synt	any
	bscan
	var	16
	var	22
	line	641
	colm	44
	synt	any
	keywd	digits
	line	641
	colm	43
	synt	any
	invoke	1
	line	641
	colm	39
	synt	any
	invoke	1
	line	641
	colm	34
	synt	any
	escan
	line	641
	colm	28
	synt	any
	asgn
	unmark
lab L29
	mark	L30
	pnull
	var	1
	pnull
	pnull
	var	1
	pnull
	pnull
	var	21
	int	8
	line	642
	colm	34
	synt	any
	subsc
	line	642
	colm	24
	synt	any
	size
	line	642
	colm	23
	synt	any
	subsc
	int	3
	synt	any
	subsc
	line	642
	colm	19
	synt	any
	asgn
	unmark
lab L30
	line	643
	colm	17
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	21
	int	8
	line	643
	colm	30
	synt	any
	subsc
	line	643
	colm	20
	synt	any
	size
	int	3
	line	643
	colm	35
	synt	any
	numgt
	unmark
	mark	L31
	pnull
	var	10
	pnull
	int	1
	line	644
	colm	29
	synt	any
	tabmat
	line	644
	colm	28
	synt	any
	plus
	unmark
lab L31
	mark	L32
	pnull
	pnull
	var	21
	int	6
	line	645
	colm	29
	synt	any
	subsc
	var	1
	line	645
	colm	38
	synt	any
	bscan
	var	16
	var	22
	line	645
	colm	48
	synt	any
	keywd	digits
	line	645
	colm	47
	synt	any
	invoke	1
	line	645
	colm	43
	synt	any
	invoke	1
	line	645
	colm	38
	synt	any
	escan
	line	645
	colm	32
	synt	any
	asgn
	unmark
lab L32
	mark	L33
	pnull
	var	1
	pnull
	pnull
	var	1
	pnull
	pnull
	var	21
	int	6
	line	646
	colm	38
	synt	any
	subsc
	line	646
	colm	28
	synt	any
	size
	line	646
	colm	27
	synt	any
	subsc
	int	3
	synt	any
	subsc
	line	646
	colm	23
	synt	any
	asgn
	unmark
lab L33
	line	647
	colm	21
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	21
	int	6
	line	647
	colm	34
	synt	any
	subsc
	line	647
	colm	24
	synt	any
	size
	int	3
	line	647
	colm	39
	synt	any
	numgt
	unmark
	pnull
	var	10
	pnull
	int	1
	line	648
	colm	33
	synt	any
	tabmat
	line	648
	colm	32
	synt	any
	plus
	line	647
	colm	21
	synt	endif
	line	643
	colm	17
	synt	endif
	line	639
	colm	13
	synt	endif
	unmark
lab L27
	pnull
	var	4
	var	20
	var	2
	var	21
	var	11
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	line	652
	colm	32
	synt	any
	invoke	11
	line	652
	colm	20
	synt	any
	asgn
lab L7
	line	608
	colm	5
	synt	endifelse
	unmark
lab L5
	mark	L34
	pnull
	var	0
	var	1
	line	654
	colm	7
	synt	any
	asgn
	unmark
lab L34
	mark	L35
	mark	L36
	var	4
	line	655
	colm	5
	synt	any
	pret
lab L36
	synt	any
	pfail
	unmark
lab L35
	pnull
	line	656
	colm	2
	synt	any
	pfail
	end
