version	U12.1.00
uid	mkappl.tmp.u1-1459048647-0
impl	error
global	1
	0,000005,mkappl,1

proc mkappl
	local	0,001000,l
	local	1,000020,array
	local	2,000020,tree
	local	3,000020,sl
	local	4,000020,i
	local	5,000000,yyinfo
	local	6,000000,type
	local	7,000000,mkappl2
	local	8,000000,lock
	local	9,000000,is_empty
	local	10,000000,yyperror
	local	11,000000,free_array
	local	12,000000,vfree
	local	13,000000,unlock
	con	0,010000,14,155,153,141,160,160,154,040,163,151,172,145,040,075,040
	con	1,002000,1,1
	con	2,010000,14,164,171,160,145,040,142,157,144,171,040,151,040,075,040
	con	3,010000,36,105,155,160,164,171,040,141,162,147,165,155,145,156,164,040,154,151,163,164,040,167,151,164,150,157,165,164,040,157,160,145,162,141,164,157,162
	declend
	filen	pass1/applinfer/mkappl.tmp.icn
	line	136
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	var	0
	line	143
	colm	15
	synt	any
	field	list_to_array
	line	143
	colm	29
	synt	any
	invoke	0
	line	143
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	5
	pnull
	str	0
	pnull
	var	1
	line	147
	colm	37
	synt	any
	field	a_size
	line	147
	colm	29
	synt	any
	cat
	line	147
	colm	11
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	var	4
	int	1
	line	148
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
lab L5
	line	149
	colm	5
	synt	while
	mark0
	pnull
	var	4
	pnull
	var	1
	line	149
	colm	22
	synt	any
	field	a_size
	line	149
	colm	14
	synt	any
	numle
	unmark
	mark	L5
	mark	L8
	var	5
	pnull
	pnull
	str	2
	var	4
	line	150
	colm	33
	synt	any
	cat
	var	6
	pnull
	pnull
	var	1
	line	150
	colm	51
	synt	any
	field	a_body
	var	4
	line	150
	colm	58
	synt	any
	subsc
	line	150
	colm	45
	synt	any
	invoke	1
	line	150
	colm	38
	synt	any
	cat
	line	150
	colm	15
	synt	any
	invoke	1
	unmark
lab L8
	pnull
	var	4
	dup
	int	1
	line	151
	colm	11
	synt	any
	plus
	asgn
lab L6
	unmark
	goto	L5
lab L7
	line	149
	colm	5
	synt	endwhile
	unmark
lab L4
	mark	L9
	pnull
	var	3
	var	7
	pnull
	var	1
	line	154
	colm	25
	synt	any
	field	a_body
	int	1
	pnull
	var	1
	line	154
	colm	43
	synt	any
	field	a_size
	line	154
	colm	18
	synt	any
	invoke	3
	line	154
	colm	8
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	var	8
	var	3
	line	155
	colm	9
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	line	158
	colm	5
	synt	ifelse
	mark	L12
	var	9
	var	3
	line	158
	colm	17
	synt	any
	invoke	1
	unmark
	mark	L14
	var	10
	str	3
	line	159
	colm	17
	synt	any
	invoke	1
	unmark
lab L14
	pnull
	var	2
	var	8
	var	3
	line	160
	colm	21
	synt	any
	invoke	1
	line	160
	colm	14
	synt	any
	asgn
	goto	L13
lab L12
	pnull
	var	2
	var	8
	pnull
	var	3
	line	162
	colm	25
	synt	any
	field	first
	line	162
	colm	31
	synt	any
	invoke	0
	line	162
	colm	21
	synt	any
	invoke	1
	line	162
	colm	14
	synt	any
	asgn
lab L13
	line	158
	colm	5
	synt	endifelse
	unmark
lab L11
	mark	L15
	var	11
	var	1
	line	164
	colm	15
	synt	any
	invoke	1
	unmark
lab L15
	mark	L16
	var	12
	var	13
	var	3
	line	165
	colm	18
	synt	any
	invoke	1
	line	165
	colm	10
	synt	any
	invoke	1
	unmark
lab L16
	mark	L17
	mark	L18
	var	13
	var	2
	line	166
	colm	20
	synt	any
	invoke	1
	line	166
	colm	5
	synt	any
	pret
lab L18
	synt	any
	pfail
	unmark
lab L17
	pnull
	line	168
	colm	1
	synt	any
	pfail
	end
