version	U12.1.00
uid	mkappl2.tmp.u1-1444157219-0
impl	error
global	187
	0,000001,dloadflag,0
	1,000001,initflag,0
	2,000001,BADflag,0
	3,000001,aflag,0
	4,000001,yydebug,0
	5,000001,ifname,0
	6,000001,ofname,0
	7,000001,sigfname,0
	8,000001,optfname,0
	9,000001,actual_ifname,0
	10,000001,Mflag,0
	11,000001,cflag,0
	12,000001,pflag,0
	13,000001,Lflag,0
	14,000001,Pflag,0
	15,000001,Tflag,0
	16,000001,Gflag,0
	17,000001,Vflag,0
	18,000001,Nflag,0
	19,000001,fflag,0
	20,000001,Fflag,0
	21,000001,Rflag,0
	22,000001,OOflag,0
	23,000001,OOOflag,0
	24,000001,Oflag,0
	25,000001,Xflag,0
	26,000001,xflag,0
	27,000001,hflag,0
	28,000001,dbgmsg,0
	29,000001,insrtptr,0
	30,000001,nil,0
	31,000001,indx_assign,0
	32,000001,indx_passign,0
	33,000001,indx_massign,0
	34,000001,indx_or,0
	35,000001,indx_and,0
	36,000001,indx_not,0
	37,000001,indx_equals,0
	38,000001,indx_less,0
	39,000001,indx_le,0
	40,000001,indx_ge,0
	41,000001,indx_ne,0
	42,000001,indx_greater,0
	43,000001,indx_plus,0
	44,000001,indx_minus,0
	45,000001,indx_times,0
	46,000001,indx_divide,0
	47,000001,indx_mod,0
	48,000001,indx_pconc,0
	49,000001,indx_sconc,0
	50,000001,indx_exp,0
	51,000001,indx_deref,0
	52,000001,indx_subscr,0
	53,000001,indx_New,0
	54,000001,indx_ValueOf,0
	55,000001,indx_First,0
	56,000001,indx_Last,0
	57,000001,indx_Pred,0
	58,000001,indx_Succ,0
	59,000001,indx_Ord,0
	60,000001,indx_OrdInv,0
	61,000001,indx_Card,0
	62,000001,indx_In,0
	63,000001,indx_Out,0
	64,000001,indx_put,0
	65,000001,indx_Callcc,0
	66,000001,indx_size,0
	67,000001,indx_ptr_New,0
	68,000001,indx_init_New,0
	69,000001,indx_empty,0
	70,000001,indx_standard,0
	71,000001,indx_inline,0
	72,000001,pend,0
	73,000001,indx_Boolean,0
	74,000001,indx_Void,0
	75,000001,indx_true,0
	76,000001,indx_false,0
	77,000001,indx_simple,0
	78,000001,indx_Null,0
	79,000001,indx_Mk,0
	80,000001,indx_Integer,0
	81,000001,indx_Array,0
	82,000001,sig_assign,0
	83,000001,sig_equals,0
	84,000001,sig_less,0
	85,000001,sig_greater,0
	86,000001,sig_New,0
	87,000001,sig_const,0
	88,000001,sig_ValueOf,0
	89,000001,sig_pconc,0
	90,000001,sig_sconc,0
	91,000001,sig_Signature,0
	92,000001,val_Boolean,0
	93,000001,val_Integer,0
	94,000001,val_Void,0
	95,000001,var_Void,0
	96,000001,sel_true,0
	97,000001,sel_false,0
	98,000001,id_Boolean,0
	99,000001,id_Integer,0
	100,000001,id_Void,0
	101,000001,id_put,0
	102,000001,id_ValueOf,0
	103,000001,id_New,0
	104,000001,id_size,0
	105,000001,id_Null,0
	106,000001,id_times,0
	107,000001,id_plus,0
	108,000001,appl_Null,0
	109,000001,yyvline,0
	110,000001,stt_table,0
	111,000001,stt_unique_cnt,0
	112,000001,stt_reference_cnt,0
	113,000001,reverse_stt,0
	114,000001,errfile,0
	115,000001,reduce,0
	116,000001,progress,0
	117,000001,debug_file,0
	118,000001,stats,0
	119,000001,nodes,0
	120,000001,ccode_file,0
	121,000001,nodes_created_file,0
	122,000001,lists_created_file,0
	123,000001,cons_file,0
	124,000001,line_cnt,0
	125,000001,char_cnt,0
	126,000001,token_cnt,0
	127,000001,reserved_id_cnt,0
	128,000001,reserved_op_cnt,0
	129,000001,numeral_cnt,0
	130,000001,nodes_total_cnt,0
	131,000001,nodes_made_cnt,0
	132,000001,lists_total_cnt,0
	133,000001,lists_made_cnt,0
	134,000001,yyn_switches_cnt,0
	135,000001,yyn_compute_cnt,0
	136,000001,newstate_cnt,0
	137,000001,setstate_cnt,0
	138,000001,backup_cnt,0
	139,000001,default_cnt,0
	140,000001,reduce_cnt,0
	141,000001,errlab_cnt,0
	142,000001,errlab1_cnt,0
	143,000001,defined_id_cnt,0
	144,000001,defined_op_cnt,0
	145,000001,seperator_cnt,0
	146,000001,RIC_table,0
	147,000001,RIC_op_code_cnt,0
	148,000001,RIC_table_entry_cnt,0
	149,000001,comments_cnt,0
	150,000001,sing_quoted_cnt,0
	151,000001,dbl_quoted_cnt,0
	152,000001,infile,0
	153,000001,optfile,0
	154,000001,entry_name,0
	155,000001,yyinfnm,0
	156,000001,yyline,0
	157,000001,addposition,0
	158,000001,inline_cnvt,0
	159,000001,Ginline_cnvt,0
	160,000001,Vinline_cnvt,0
	161,000001,paramstop,0
	162,000001,denseqstop,0
	163,000001,condstop,0
	164,000001,declstop,0
	165,000001,stxtree,0
	166,000001,yystate,0
	167,000001,global_fn_count,0
	168,000001,scanstk,0
	169,000001,stktop,0
	170,000001,scansavc,0
	171,000001,yydescr,0
	172,000001,has_externs,0
	173,000001,argcnt_from_kind,0
	174,000001,parser_actions_cnt,0
	175,000001,linebuf,0
	176,000001,restab,0
	177,000001,cctab,0
	178,000001,tokenlgth,0
	179,000001,decl_num,0
	180,000001,decl_nums,0
	181,000001,Outer_arg,0
	182,000001,file_sigs,0
	183,000001,decl_num_in,0
	184,000001,sig_table,0
	185,000001,unique_node_id,0
	186,000005,mkappl2,3

proc mkappl2
	local	0,001000,array
	local	1,001000,head
	local	2,001000,tail
	local	3,000020,op
	local	4,000020,result
	local	5,000020,left_arg
	local	6,000020,right_arg
	local	7,000020,rest
	local	8,000000,yyinfo
	local	9,000000,is_list
	local	10,000000,copylist
	local	11,000000,mklist
	local	12,000000,outermost_op
	local	13,000000,mkappl2
	local	14,000000,lock
	local	15,000000,emptylist
	local	16,000000,yyperror
	local	17,000000,single_arg
	local	18,000000,cand_cond
	local	19,000000,vfree
	local	20,000000,unlock
	local	21,000000,cor_cond
	local	22,000000,mknode
	local	23,000000,conc
	con	0,002000,1,1
	con	1,010000,15,155,153,141,160,160,154,062,040,150,145,141,144,040,075,040
	con	2,010000,8,040,164,141,151,154,040,075,040
	con	3,002000,1,2
	con	4,010000,31,111,155,160,162,157,160,145,162,154,171,040,142,162,141,143,153,145,164,145,144,040,145,170,160,162,145,163,163,151,157,156
	con	5,002000,2,26
	con	6,002000,2,27
	con	7,002000,2,13
	declend
	filen	pass1/applinfer/mkappl2.tmp.icn
	line	161
	colm	12
	synt	any
	mark	L1
	pnull
	var	7
	pnull
	var	2
	int	0
	line	163
	colm	18
	synt	any
	plus
	line	163
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	8
	pnull
	pnull
	pnull
	str	1
	var	1
	line	164
	colm	30
	synt	any
	cat
	str	2
	line	164
	colm	38
	synt	any
	cat
	var	2
	line	164
	colm	52
	synt	any
	cat
	line	164
	colm	11
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	line	167
	colm	5
	synt	if
	mark0
	pnull
	var	1
	var	2
	line	167
	colm	15
	synt	any
	numeq
	unmark
	line	169
	colm	13
	synt	ifelse
	mark	L4
	var	9
	pnull
	var	0
	var	1
	line	169
	colm	31
	synt	any
	subsc
	line	169
	colm	25
	synt	any
	invoke	1
	unmark
	mark	L6
	var	10
	pnull
	var	0
	var	1
	line	171
	colm	40
	synt	any
	subsc
	line	171
	colm	34
	synt	any
	invoke	1
	line	171
	colm	17
	synt	any
	pret
lab L6
	synt	any
	pfail
	goto	L5
lab L4
	mark	L7
	var	11
	pnull
	pnull
	var	0
	var	1
	line	174
	colm	39
	synt	any
	subsc
	line	174
	colm	33
	synt	any
	llist	1
	line	174
	colm	32
	synt	any
	invoke	1
	line	174
	colm	17
	synt	any
	pret
lab L7
	synt	any
	pfail
lab L5
	line	169
	colm	13
	synt	endifelse
	line	167
	colm	5
	synt	endif
	unmark
lab L3
	mark	L8
	pnull
	var	3
	var	12
	var	0
	var	1
	var	2
	line	186
	colm	23
	synt	any
	invoke	3
	line	186
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	line	188
	colm	5
	synt	ifelse
	mark	L10
	pnull
	var	3
	line	188
	colm	9
	synt	any
	null
	unmark
	line	190
	colm	9
	synt	ifelse
	mark	L12
	mark	L14
	var	9
	pnull
	var	0
	var	1
	line	190
	colm	30
	synt	any
	subsc
	line	190
	colm	24
	synt	any
	invoke	1
	unmark
	efail
lab L14
	pnull
	unmark
	mark	L15
	pnull
	var	7
	pnull
	var	1
	int	3
	line	192
	colm	25
	synt	any
	plus
	line	192
	colm	18
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	var	6
	var	13
	var	0
	pnull
	var	1
	int	0
	line	193
	colm	45
	synt	any
	plus
	pnull
	var	1
	int	0
	line	193
	colm	53
	synt	any
	plus
	line	193
	colm	33
	synt	any
	invoke	3
	line	193
	colm	23
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	var	14
	var	6
	line	194
	colm	17
	synt	any
	invoke	1
	unmark
lab L17
	mark	L18
	pnull
	var	5
	var	15
	line	195
	colm	34
	synt	any
	invoke	0
	line	195
	colm	22
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	var	14
	var	5
	line	196
	colm	17
	synt	any
	invoke	1
	unmark
lab L19
	pnull
	var	3
	var	1
	line	197
	colm	16
	synt	any
	asgn
	goto	L13
lab L12
	mark	L20
	var	16
	str	4
	line	200
	colm	21
	synt	any
	invoke	1
	unmark
lab L20
	mark	L21
	var	11
	pnull
	var	15
	line	201
	colm	38
	synt	any
	invoke	0
	line	201
	colm	28
	synt	any
	llist	1
	line	201
	colm	27
	synt	any
	invoke	1
	line	201
	colm	13
	synt	any
	pret
lab L21
	synt	any
	pfail
lab L13
	line	190
	colm	9
	synt	endifelse
	goto	L11
lab L10
	mark	L22
	line	206
	colm	9
	synt	ifelse
	mark	L23
	pnull
	var	3
	var	1
	line	206
	colm	17
	synt	any
	numeq
	unmark
	pnull
	var	5
	var	15
	line	207
	colm	34
	synt	any
	invoke	0
	line	207
	colm	22
	synt	any
	asgn
	goto	L24
lab L23
	pnull
	var	5
	var	13
	var	0
	var	1
	pnull
	var	3
	int	0
	line	209
	colm	48
	synt	any
	minus
	line	209
	colm	32
	synt	any
	invoke	3
	line	209
	colm	22
	synt	any
	asgn
lab L24
	line	206
	colm	9
	synt	endifelse
	unmark
lab L22
	mark	L25
	var	14
	var	5
	line	210
	colm	13
	synt	any
	invoke	1
	unmark
lab L25
	mark	L26
	line	213
	colm	9
	synt	ifelse
	mark	L27
	pnull
	var	3
	var	2
	line	213
	colm	17
	synt	any
	numeq
	unmark
	pnull
	var	6
	var	15
	line	214
	colm	35
	synt	any
	invoke	0
	line	214
	colm	23
	synt	any
	asgn
	goto	L28
lab L27
	pnull
	var	6
	var	13
	var	0
	pnull
	var	3
	int	0
	line	216
	colm	43
	synt	any
	plus
	var	2
	line	216
	colm	33
	synt	any
	invoke	3
	line	216
	colm	23
	synt	any
	asgn
lab L28
	line	213
	colm	9
	synt	endifelse
	unmark
lab L26
	var	14
	var	6
	line	217
	colm	13
	synt	any
	invoke	1
lab L11
	line	188
	colm	5
	synt	endifelse
	unmark
lab L9
	mark	L29
	line	222
	colm	5
	synt	case
	mark0
	pnull
	pnull
	var	0
	var	3
	line	222
	colm	18
	synt	any
	subsc
	line	222
	colm	22
	synt	any
	field	kind
	eret
	mark	L31
	ccase
	int	5
	line	223
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L32
	var	17
	var	5
	line	225
	colm	23
	synt	any
	invoke	1
	unmark
lab L32
	mark	L33
	var	17
	var	6
	line	226
	colm	23
	synt	any
	invoke	1
	unmark
lab L33
	mark	L34
	pnull
	var	4
	var	18
	var	5
	var	6
	line	227
	colm	32
	synt	any
	invoke	2
	line	227
	colm	20
	synt	any
	asgn
	unmark
lab L34
	mark	L35
	var	19
	var	20
	var	5
	line	228
	colm	25
	synt	any
	invoke	1
	line	228
	colm	18
	synt	any
	invoke	1
	unmark
lab L35
	var	19
	var	20
	var	6
	line	229
	colm	25
	synt	any
	invoke	1
	line	229
	colm	18
	synt	any
	invoke	1
	goto	L30
lab L31
	mark	L36
	ccase
	int	6
	line	231
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L37
	var	17
	var	5
	line	233
	colm	23
	synt	any
	invoke	1
	unmark
lab L37
	mark	L38
	var	17
	var	6
	line	234
	colm	23
	synt	any
	invoke	1
	unmark
lab L38
	mark	L39
	pnull
	var	4
	var	21
	var	5
	var	6
	line	235
	colm	31
	synt	any
	invoke	2
	line	235
	colm	20
	synt	any
	asgn
	unmark
lab L39
	mark	L40
	var	19
	var	20
	var	5
	line	236
	colm	25
	synt	any
	invoke	1
	line	236
	colm	18
	synt	any
	invoke	1
	unmark
lab L40
	var	19
	var	20
	var	6
	line	237
	colm	25
	synt	any
	invoke	1
	line	237
	colm	18
	synt	any
	invoke	1
	goto	L30
lab L36
	pop
	mark	L41
	var	20
	var	5
	line	240
	colm	19
	synt	any
	invoke	1
	unmark
lab L41
	mark	L42
	var	20
	var	6
	line	241
	colm	19
	synt	any
	invoke	1
	unmark
lab L42
	mark	L43
	pnull
	var	4
	var	22
	pnull
	int	7
	pnull
	var	0
	var	3
	line	242
	colm	39
	synt	any
	subsc
	var	23
	var	5
	var	6
	line	242
	colm	49
	synt	any
	invoke	2
	line	242
	colm	30
	synt	any
	llist	3
	line	242
	colm	29
	synt	any
	invoke	1
	line	242
	colm	20
	synt	any
	asgn
	unmark
lab L43
lab L44
	line	244
	colm	13
	synt	while
	mark0
	pnull
	var	7
	var	2
	line	244
	colm	25
	synt	any
	numle
	unmark
	mark	L44
	mark	L47
	pnull
	var	4
	var	22
	pnull
	int	7
	var	4
	var	13
	var	0
	var	7
	var	7
	line	246
	colm	42
	synt	any
	invoke	3
	line	245
	colm	34
	synt	any
	llist	3
	line	245
	colm	33
	synt	any
	invoke	1
	line	245
	colm	24
	synt	any
	asgn
	unmark
lab L47
	pnull
	var	7
	dup
	int	0
	line	247
	colm	22
	synt	any
	plus
	asgn
lab L45
	unmark
	goto	L44
lab L46
	line	244
	colm	13
	synt	endwhile
lab L30
	line	222
	colm	5
	synt	endcase
	unmark
lab L29
	mark	L48
	mark	L49
	var	11
	pnull
	var	4
	line	253
	colm	21
	synt	any
	llist	1
	line	253
	colm	20
	synt	any
	invoke	1
	line	253
	colm	5
	synt	any
	pret
lab L49
	synt	any
	pfail
	unmark
lab L48
	pnull
	line	255
	colm	1
	synt	any
	pfail
	end
