version	U12.1.00
uid	thread.u1-1786350459-0
record	threads__Shared_Variable__state,3
	0,__s
	1,__m
	2,value
record	threads__Shared_Variable__methods,4
	0,lock
	1,trylock
	2,unlock
	3,initially
record	threads__Thread__state,5
	0,__s
	1,__m
	2,t
	3,work
	4,cv
record	threads__Thread__methods,6
	0,reset
	1,stop
	2,pause
	3,run
	4,thread_func
	5,initially
record	threads__Task__state,13
	0,__s
	1,__m
	2,nthread
	3,active_threads
	4,func
	5,reduce_func
	6,tttype
	7,chunk_size
	8,caller
	9,cv_caller
	10,args
	11,result_list
	12,done
record	threads__Task__methods,13
	0,do_work
	1,exec
	2,exec_map
	3,exec_reduce
	4,signal
	5,is_done
	6,wait
	7,runners
	8,set_caller
	9,set_args
	10,reduce
	11,init
	12,initially
record	threads__Threads__state,11
	0,__s
	1,__m
	2,master
	3,thread_ready
	4,thread_active
	5,task_ready
	6,task_active
	7,cv_work
	8,cv_master
	9,actual_work
	10,done
record	threads__Threads__methods,9
	0,do_work
	1,thread_func
	2,master_func
	3,house_keeping
	4,submit_async
	5,submit_sync
	6,map_reduce
	7,shutdown
	8,initially
impl	local
global	64
	0,000005,threads__Shared_Variable_lock,1
	1,000005,threads__Shared_Variable_trylock,1
	2,000005,threads__Shared_Variable_unlock,1
	3,000005,threads__Shared_Variable_initially,3
	4,000011,threads__Shared_Variable__state,3
	5,000011,threads__Shared_Variable__methods,4
	6,000001,threads__Shared_Variable__oprec,0
	7,000005,threads__Shared_Variable,2
	8,000005,threads__Shared_Variableinitialize,0
	9,000005,threads__channel,2
	10,000005,threads__Thread_reset,1
	11,000005,threads__Thread_stop,1
	12,000005,threads__Thread_pause,1
	13,000005,threads__Thread_run,1
	14,000005,threads__Thread_thread_func,1
	15,000005,threads__Thread_initially,3
	16,000011,threads__Thread__state,5
	17,000011,threads__Thread__methods,6
	18,000001,threads__Thread__oprec,0
	19,000005,threads__Thread,2
	20,000005,threads__Threadinitialize,0
	21,000005,threads__Task_do_work,2
	22,000005,threads__Task_exec,1
	23,000005,threads__Task_exec_map,1
	24,000005,threads__Task_exec_reduce,1
	25,000005,threads__Task_signal,1
	26,000005,threads__Task_is_done,1
	27,000005,threads__Task_wait,1
	28,000005,threads__Task_runners,1
	29,000005,threads__Task_set_caller,2
	30,000005,threads__Task_set_args,2
	31,000005,threads__Task_reduce,2
	32,000005,threads__Task_init,6
	33,000005,threads__Task_initially,5
	34,000011,threads__Task__state,13
	35,000011,threads__Task__methods,13
	36,000001,threads__Task__oprec,0
	37,000005,threads__Task,4
	38,000005,threads__Taskinitialize,0
	39,000005,threads__Threads_do_work,1
	40,000005,threads__Threads_thread_func,1
	41,000005,threads__Threads_master_func,1
	42,000005,threads__Threads_house_keeping,1
	43,000005,threads__Threads_submit_async,5
	44,000005,threads__Threads_submit_sync,5
	45,000005,threads__Threads_map_reduce,5
	46,000005,threads__Threads_shutdown,1
	47,000005,threads__Threads_initially,2
	48,000011,threads__Threads__state,11
	49,000011,threads__Threads__methods,9
	50,000001,threads__Threads__oprec,0
	51,000005,threads__Threads,1
	52,000005,threads__Threadsinitialize,0
	53,000001,threads__ToDo,0
	54,000001,threads__Idlers,0
	55,000001,threads__Work,0
	56,000001,threads__Workforce,0
	57,000005,threads__MakePool,1
	58,000005,threads__stopWork,1
	59,000005,threads__worker,1
	60,000005,threads__Dispatch,-2
	61,000005,threads__IsIdle,0
	62,000005,threads__ClosePool,0
	63,000005,threads__TLS,1

proc threads__Shared_Variable_lock
	local	0,001000,self
	local	1,000040,builtin_lock
	local	2,000000,proc
	con	0,010000,4,154,157,143,153
	con	1,002000,1,0
	declend
	filen	thread.icn
	line	21
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	1
	var	2
	str	0
	int	1
	line	23
	colm	37
	synt	any
	invoke	2
	line	23
	colm	28
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	mark	L5
	var	1
	var	0
	line	25
	colm	26
	synt	any
	invoke	1
	line	25
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	26
	colm	1
	synt	any
	pfail
	end
proc threads__Shared_Variable_trylock
	local	0,001000,self
	local	1,000040,builtin_trylock
	local	2,000000,proc
	con	0,010000,7,164,162,171,154,157,143,153
	con	1,002000,1,0
	declend
	line	28
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	1
	var	2
	str	0
	int	1
	line	30
	colm	40
	synt	any
	invoke	2
	line	30
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	mark	L5
	var	1
	var	0
	line	32
	colm	29
	synt	any
	invoke	1
	line	32
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	33
	colm	1
	synt	any
	pfail
	end
proc threads__Shared_Variable_unlock
	local	0,001000,self
	local	1,000040,builtin_unlock
	local	2,000000,proc
	con	0,010000,6,165,156,154,157,143,153
	con	1,002000,1,0
	declend
	line	35
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	1
	var	2
	str	0
	int	1
	line	37
	colm	39
	synt	any
	invoke	2
	line	37
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	mark	L5
	var	1
	var	0
	line	39
	colm	28
	synt	any
	invoke	1
	line	39
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	40
	colm	1
	synt	any
	pfail
	end
proc threads__Shared_Variable_initially
	local	0,001000,self
	local	1,001000,v
	local	2,001000,mtx
	local	3,000000,mutex
	declend
	line	42
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	44
	colm	11
	synt	any
	field	value
	var	1
	line	44
	colm	17
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	46
	colm	7
	synt	ifelse
	mark	L3
	pnull
	var	2
	line	46
	colm	10
	synt	any
	nonnull
	unmark
	var	3
	var	0
	var	2
	line	47
	colm	17
	synt	any
	invoke	2
	goto	L4
lab L3
	var	3
	var	0
	line	49
	colm	17
	synt	any
	invoke	1
lab L4
	line	46
	colm	7
	synt	endifelse
	unmark
lab L2
	mark	L5
	mark	L6
	pnull
	line	50
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	51
	colm	1
	synt	any
	pfail
	end
proc threads__Shared_Variable
	local	0,001000,v
	local	1,001000,mtx
	local	2,000020,self
	local	3,000020,clone
	local	4,000000,threads__Shared_Variable__oprec
	local	5,000000,threads__Shared_Variableinitialize
	local	6,000000,threads__Shared_Variable__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	4
	line	8
	colm	6
	synt	any
	null
	unmark
	var	5
	line	8
	colm	78
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	2
	var	6
	line	10
	colm	43
	synt	any
	keywd	null
	var	4
	line	10
	colm	42
	synt	any
	invoke	2
	line	10
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	2
	line	11
	colm	7
	synt	any
	field	__s
	var	2
	line	11
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	pnull
	var	2
	line	12
	colm	7
	synt	any
	field	__m
	line	12
	colm	11
	synt	any
	field	initially
	var	2
	var	0
	var	1
	line	12
	colm	21
	synt	any
	invoke	3
	line	12
	colm	34
	synt	any
	esusp
	goto	L8
lab L7
	line	12
	colm	36
	synt	any
	pfail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	2
	line	13
	colm	3
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	14
	colm	1
	synt	any
	pfail
	end
proc threads__Shared_Variableinitialize
	local	0,000000,threads__Shared_Variable__oprec
	local	1,000000,threads__Shared_Variable__methods
	local	2,000000,threads__Shared_Variable_lock
	local	3,000000,threads__Shared_Variable_trylock
	local	4,000000,threads__Shared_Variable_unlock
	local	5,000000,threads__Shared_Variable_initially
	declend
	line	16
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	line	17
	colm	79
	synt	any
	invoke	4
	line	17
	colm	43
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	18
	colm	1
	synt	any
	pfail
	end
proc threads__channel
	local	0,001000,x
	local	1,001000,port
	local	2,000020,ce
	local	3,000020,T
	local	4,000020,L
	local	5,000020,chnl
	local	6,000020,TP
	local	7,000040,chTable
	local	8,000040,chTableP
	local	9,000040,chTableN
	local	10,000000,mutex
	local	11,000000,table
	local	12,000000,string
	local	13,000000,lock
	local	14,000000,member
	local	15,000000,condvar
	local	16,000000,unlock
	local	17,000000,get
	local	18,000000,delete
	local	19,000000,put
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	filen	thread.icn
	line	53
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	7
	var	10
	var	11
	line	57
	colm	34
	synt	any
	invoke	0
	line	57
	colm	26
	synt	any
	invoke	1
	line	57
	colm	16
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	8
	var	10
	var	11
	line	58
	colm	34
	synt	any
	invoke	0
	line	58
	colm	26
	synt	any
	invoke	1
	line	58
	colm	16
	synt	any
	asgn
	unmark
lab L5
	pnull
	var	9
	var	10
	var	11
	line	59
	colm	34
	synt	any
	invoke	0
	line	59
	colm	26
	synt	any
	invoke	1
	line	59
	colm	16
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L6
	line	62
	colm	4
	synt	ifelse
	mark	L7
	var	12
	var	0
	line	62
	colm	15
	synt	any
	invoke	1
	unmark
	mark	L9
	mark	L10
	var	13
	var	9
	line	63
	colm	13
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	int	0
	line	64
	colm	11
	synt	ifelse
	mark	L13
	var	14
	var	9
	var	0
	line	64
	colm	22
	synt	any
	invoke	2
	unmark
	pnull
	var	5
	pnull
	var	9
	var	0
	line	65
	colm	31
	synt	any
	subsc
	line	65
	colm	19
	synt	any
	asgn
	goto	L14
lab L13
	pnull
	pnull
	var	9
	var	0
	line	67
	colm	22
	synt	any
	subsc
	pnull
	var	5
	var	15
	pnull
	line	67
	colm	47
	synt	any
	llist	0
	line	67
	colm	46
	synt	any
	invoke	1
	line	67
	colm	34
	synt	any
	asgn
	line	67
	colm	26
	synt	any
	asgn
lab L14
	line	64
	colm	11
	synt	endifelse
	var	16
	var	9
	line	63
	colm	15
	synt	any
	invoke	1
	line	63
	colm	29
	synt	any
	invoke	2
	line	63
	colm	27
	synt	any
	esusp
	goto	L12
lab L11
	int	0
	line	63
	colm	28
	synt	any
	limit
	pushn1
	var	16
	var	9
	line	63
	colm	35
	synt	any
	invoke	1
	line	63
	colm	46
	synt	any
	keywd	fail
	line	63
	colm	28
	synt	any
	invoke	2
	lsusp
lab L12
	unmark
lab L9
	mark	L15
	var	5
	line	69
	colm	8
	synt	any
	pret
lab L15
	synt	any
	pfail
	goto	L8
lab L7
	line	71
	colm	9
	synt	ifelse
	mark	L16
	pnull
	var	1
	line	71
	colm	12
	synt	any
	null
	unmark
	mark	L18
	pnull
	var	2
	line	72
	colm	13
	synt	any
	keywd	current
	line	72
	colm	10
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	mark	L20
	var	13
	var	7
	line	73
	colm	12
	synt	any
	invoke	1
	unmark
lab L20
	mark	L21
	int	0
	mark	L23
	line	74
	colm	10
	synt	if
	mark0
	mark	L24
	var	14
	var	7
	var	2
	line	74
	colm	25
	synt	any
	invoke	2
	unmark
	efail
lab L24
	pnull
	unmark
	pnull
	pnull
	var	7
	var	2
	line	74
	colm	52
	synt	any
	subsc
	var	11
	line	74
	colm	67
	synt	any
	invoke	0
	line	74
	colm	57
	synt	any
	asgn
	line	74
	colm	10
	synt	endif
	unmark
lab L23
	mark	L25
	line	75
	colm	10
	synt	if
	mark0
	mark	L26
	var	14
	var	7
	var	0
	line	75
	colm	25
	synt	any
	invoke	2
	unmark
	efail
lab L26
	pnull
	unmark
	pnull
	pnull
	var	7
	var	0
	line	75
	colm	51
	synt	any
	subsc
	var	11
	line	75
	colm	65
	synt	any
	invoke	0
	line	75
	colm	55
	synt	any
	asgn
	line	75
	colm	10
	synt	endif
	unmark
lab L25
	line	77
	colm	10
	synt	ifelse
	mark	L27
	pnull
	pnull
	var	4
	pnull
	pnull
	var	7
	var	2
	line	77
	colm	27
	synt	any
	subsc
	var	0
	line	77
	colm	31
	synt	any
	subsc
	line	77
	colm	17
	synt	any
	asgn
	line	77
	colm	13
	synt	any
	nonnull
	pop
	pnull
	var	5
	var	17
	var	4
	line	77
	colm	51
	synt	any
	invoke	1
	line	77
	colm	43
	synt	any
	asgn
	unmark
	line	78
	colm	13
	synt	if
	mark0
	pnull
	pnull
	var	4
	line	78
	colm	16
	synt	any
	size
	int	1
	line	78
	colm	18
	synt	any
	numeq
	unmark
	var	18
	pnull
	var	7
	var	2
	line	78
	colm	42
	synt	any
	subsc
	var	0
	line	78
	colm	34
	synt	any
	invoke	2
	line	78
	colm	13
	synt	endif
	goto	L28
lab L27
	line	80
	colm	15
	synt	ifelse
	mark	L29
	pnull
	pnull
	var	4
	pnull
	pnull
	var	7
	var	0
	line	80
	colm	32
	synt	any
	subsc
	var	2
	line	80
	colm	35
	synt	any
	subsc
	line	80
	colm	22
	synt	any
	asgn
	line	80
	colm	18
	synt	any
	nonnull
	unmark
	var	19
	var	4
	pnull
	var	5
	var	15
	pnull
	line	81
	colm	43
	synt	any
	llist	0
	line	81
	colm	42
	synt	any
	invoke	1
	line	81
	colm	30
	synt	any
	asgn
	line	81
	colm	21
	synt	any
	invoke	2
	goto	L30
lab L29
	mark	L31
	pnull
	var	4
	pnull
	line	83
	colm	18
	synt	any
	llist	0
	line	83
	colm	15
	synt	any
	asgn
	unmark
lab L31
	mark	L32
	var	19
	var	4
	pnull
	var	5
	var	15
	pnull
	line	84
	colm	40
	synt	any
	llist	0
	line	84
	colm	39
	synt	any
	invoke	1
	line	84
	colm	27
	synt	any
	asgn
	line	84
	colm	18
	synt	any
	invoke	2
	unmark
lab L32
	pnull
	pnull
	pnull
	var	7
	var	0
	line	85
	colm	20
	synt	any
	subsc
	var	2
	line	85
	colm	23
	synt	any
	subsc
	var	4
	line	85
	colm	28
	synt	any
	asgn
lab L30
	line	80
	colm	15
	synt	endifelse
lab L28
	line	77
	colm	10
	synt	endifelse
	var	16
	var	7
	line	73
	colm	14
	synt	any
	invoke	1
	line	73
	colm	27
	synt	any
	invoke	2
	line	73
	colm	25
	synt	any
	esusp
	goto	L22
lab L21
	int	0
	line	73
	colm	26
	synt	any
	limit
	pushn1
	var	16
	var	7
	line	73
	colm	33
	synt	any
	invoke	1
	line	73
	colm	43
	synt	any
	keywd	fail
	line	73
	colm	26
	synt	any
	invoke	2
	lsusp
lab L22
	unmark
lab L19
	mark	L33
	var	5
	line	88
	colm	7
	synt	any
	pret
lab L33
	synt	any
	pfail
	goto	L17
lab L16
	mark	L34
	pnull
	var	2
	line	91
	colm	13
	synt	any
	keywd	current
	line	91
	colm	10
	synt	any
	asgn
	unmark
lab L34
	mark	L35
	mark	L36
	var	13
	var	8
	line	92
	colm	12
	synt	any
	invoke	1
	unmark
lab L36
	mark	L37
	int	0
	mark	L39
	line	93
	colm	10
	synt	if
	mark0
	mark	L40
	var	14
	var	8
	var	2
	line	93
	colm	25
	synt	any
	invoke	2
	unmark
	efail
lab L40
	pnull
	unmark
	pnull
	pnull
	var	8
	var	2
	line	93
	colm	54
	synt	any
	subsc
	var	11
	line	93
	colm	69
	synt	any
	invoke	0
	line	93
	colm	59
	synt	any
	asgn
	line	93
	colm	10
	synt	endif
	unmark
lab L39
	mark	L41
	line	94
	colm	10
	synt	if
	mark0
	mark	L42
	var	14
	var	8
	var	0
	line	94
	colm	25
	synt	any
	invoke	2
	unmark
	efail
lab L42
	pnull
	unmark
	pnull
	pnull
	var	8
	var	0
	line	94
	colm	53
	synt	any
	subsc
	var	11
	line	94
	colm	67
	synt	any
	invoke	0
	line	94
	colm	57
	synt	any
	asgn
	line	94
	colm	10
	synt	endif
	unmark
lab L41
	line	96
	colm	10
	synt	ifelse
	mark	L43
	pnull
	pnull
	var	6
	pnull
	pnull
	var	8
	var	2
	line	96
	colm	29
	synt	any
	subsc
	var	0
	line	96
	colm	33
	synt	any
	subsc
	line	96
	colm	18
	synt	any
	asgn
	line	96
	colm	13
	synt	any
	nonnull
	pop
	pnull
	pnull
	var	5
	pnull
	var	6
	var	1
	line	96
	colm	52
	synt	any
	subsc
	line	96
	colm	47
	synt	any
	asgn
	line	96
	colm	40
	synt	any
	nonnull
	unmark
	mark	L45
	var	18
	var	6
	var	1
	line	97
	colm	21
	synt	any
	invoke	2
	unmark
lab L45
	line	98
	colm	13
	synt	if
	mark0
	pnull
	pnull
	var	6
	line	98
	colm	16
	synt	any
	size
	int	1
	line	98
	colm	19
	synt	any
	numeq
	unmark
	var	18
	pnull
	var	8
	var	2
	line	98
	colm	44
	synt	any
	subsc
	var	0
	line	98
	colm	35
	synt	any
	invoke	2
	line	98
	colm	13
	synt	endif
	goto	L44
lab L43
	line	100
	colm	15
	synt	ifelse
	mark	L46
	pnull
	pnull
	var	6
	pnull
	pnull
	var	8
	var	0
	line	100
	colm	34
	synt	any
	subsc
	var	2
	line	100
	colm	37
	synt	any
	subsc
	line	100
	colm	23
	synt	any
	asgn
	line	100
	colm	18
	synt	any
	nonnull
	unmark
	pnull
	pnull
	var	6
	var	1
	line	101
	colm	15
	synt	any
	subsc
	pnull
	var	5
	var	15
	pnull
	line	101
	colm	43
	synt	any
	llist	0
	line	101
	colm	42
	synt	any
	invoke	1
	line	101
	colm	30
	synt	any
	asgn
	line	101
	colm	22
	synt	any
	asgn
	goto	L47
lab L46
	mark	L48
	pnull
	var	6
	var	11
	line	104
	colm	26
	synt	any
	invoke	0
	line	104
	colm	16
	synt	any
	asgn
	unmark
lab L48
	mark	L49
	pnull
	pnull
	var	6
	var	1
	line	105
	colm	15
	synt	any
	subsc
	pnull
	var	5
	var	15
	pnull
	line	105
	colm	43
	synt	any
	llist	0
	line	105
	colm	42
	synt	any
	invoke	1
	line	105
	colm	30
	synt	any
	asgn
	line	105
	colm	22
	synt	any
	asgn
	unmark
lab L49
	pnull
	pnull
	pnull
	var	8
	var	0
	line	106
	colm	21
	synt	any
	subsc
	var	2
	line	106
	colm	24
	synt	any
	subsc
	var	6
	line	106
	colm	29
	synt	any
	asgn
lab L47
	line	100
	colm	15
	synt	endifelse
lab L44
	line	96
	colm	10
	synt	endifelse
	var	16
	var	8
	line	92
	colm	14
	synt	any
	invoke	1
	line	92
	colm	28
	synt	any
	invoke	2
	line	92
	colm	26
	synt	any
	esusp
	goto	L38
lab L37
	int	0
	line	92
	colm	27
	synt	any
	limit
	pushn1
	var	16
	var	8
	line	92
	colm	34
	synt	any
	invoke	1
	line	92
	colm	45
	synt	any
	keywd	fail
	line	92
	colm	27
	synt	any
	invoke	2
	lsusp
lab L38
	unmark
lab L35
	mark	L50
	var	5
	line	109
	colm	7
	synt	any
	pret
lab L50
	synt	any
	pfail
lab L17
	line	71
	colm	9
	synt	endifelse
lab L8
	line	62
	colm	4
	synt	endifelse
	unmark
lab L6
	pnull
	line	111
	colm	1
	synt	any
	pfail
	end
proc threads__Thread_reset
	local	0,001000,self
	declend
	line	118
	colm	11
	synt	any
	line	120
	colm	1
	synt	any
	pfail
	end
proc threads__Thread_stop
	local	0,001000,self
	declend
	line	120
	colm	11
	synt	any
	line	122
	colm	1
	synt	any
	pfail
	end
proc threads__Thread_pause
	local	0,001000,self
	declend
	line	123
	colm	11
	synt	any
	line	125
	colm	1
	synt	any
	pfail
	end
proc threads__Thread_run
	local	0,001000,self
	local	1,000000,signal
	declend
	line	126
	colm	11
	synt	any
	mark	L1
	var	1
	pnull
	var	0
	line	127
	colm	17
	synt	any
	field	cv
	line	127
	colm	12
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	128
	colm	1
	synt	any
	pfail
	end
proc threads__Thread_thread_func
	local	0,001000,self
	local	1,000000,wait
	declend
	line	129
	colm	11
	synt	any
	mark	L1
	var	1
	pnull
	var	0
	line	130
	colm	16
	synt	any
	field	cv
	line	130
	colm	11
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	131
	colm	1
	synt	any
	pfail
	end
proc threads__Thread_initially
	local	0,001000,self
	local	1,001000,work
	local	2,001000,t
	local	3,000000,condvar
	local	4,000000,spawn
	declend
	line	133
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	134
	colm	8
	synt	any
	field	work
	var	1
	line	134
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	135
	colm	8
	synt	any
	field	cv
	var	3
	line	135
	colm	20
	synt	any
	invoke	0
	line	135
	colm	11
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	136
	colm	4
	synt	ifelse
	mark	L4
	pnull
	var	2
	line	136
	colm	7
	synt	any
	nonnull
	unmark
	pnull
	pnull
	var	0
	line	137
	colm	11
	synt	any
	field	t
	var	2
	line	137
	colm	14
	synt	any
	asgn
	goto	L5
lab L4
	pnull
	var	2
	var	4
	goto	L8
lab L6
	pop
	mark	L7
	pnull
	var	0
	line	139
	colm	29
	synt	any
	field	thread_func
	line	139
	colm	41
	synt	any
	invoke	0
	line	139
	colm	18
	synt	any
	coret
	efail
lab L7
	cofail
	goto	L7
lab L8
	create	L6
	line	139
	colm	17
	synt	any
	invoke	1
	line	139
	colm	9
	synt	any
	asgn
lab L5
	line	136
	colm	4
	synt	endifelse
	unmark
lab L3
	mark	L9
	mark	L10
	pnull
	line	140
	colm	7
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	141
	colm	1
	synt	any
	pfail
	end
proc threads__Thread
	local	0,001000,work
	local	1,001000,t
	local	2,000020,self
	local	3,000020,clone
	local	4,000000,threads__Thread__oprec
	local	5,000000,threads__Threadinitialize
	local	6,000000,threads__Thread__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	4
	line	8
	colm	6
	synt	any
	null
	unmark
	var	5
	line	8
	colm	60
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	2
	var	6
	line	10
	colm	34
	synt	any
	keywd	null
	var	4
	line	10
	colm	33
	synt	any
	invoke	2
	line	10
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	2
	line	11
	colm	7
	synt	any
	field	__s
	var	2
	line	11
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	pnull
	var	2
	line	12
	colm	7
	synt	any
	field	__m
	line	12
	colm	11
	synt	any
	field	initially
	var	2
	var	0
	var	1
	line	12
	colm	21
	synt	any
	invoke	3
	line	12
	colm	35
	synt	any
	esusp
	goto	L8
lab L7
	line	12
	colm	37
	synt	any
	pfail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	2
	line	13
	colm	3
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	14
	colm	1
	synt	any
	pfail
	end
proc threads__Threadinitialize
	local	0,000000,threads__Thread__oprec
	local	1,000000,threads__Thread__methods
	local	2,000000,threads__Thread_reset
	local	3,000000,threads__Thread_stop
	local	4,000000,threads__Thread_pause
	local	5,000000,threads__Thread_run
	local	6,000000,threads__Thread_thread_func
	local	7,000000,threads__Thread_initially
	declend
	line	16
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	line	17
	colm	61
	synt	any
	invoke	6
	line	17
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	18
	colm	1
	synt	any
	pfail
	end
proc threads__Task_do_work
	local	0,001000,self
	local	1,001000,args
	declend
	filen	thread.icn
	line	156
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	line	157
	colm	6
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	158
	colm	1
	synt	any
	pfail
	end
proc threads__Task_exec
	local	0,001000,self
	local	1,000020,rslt
	local	2,000000,insert
	local	3,000000,delete
	local	4,000000,put
	con	0,010000,3,131,145,163
	con	1,010000,3,171,145,163
	con	2,002000,1,0
	declend
	line	160
	colm	11
	synt	any
	mark	L1
	line	163
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	163
	colm	12
	synt	any
	field	runners
	line	163
	colm	20
	synt	any
	invoke	0
	pnull
	var	0
	line	163
	colm	27
	synt	any
	field	nthread
	line	163
	colm	22
	synt	any
	numlt
	unmark
	mark	L2
	var	2
	pnull
	var	0
	line	164
	colm	21
	synt	any
	field	active_threads
	line	164
	colm	37
	synt	any
	keywd	current
	line	164
	colm	16
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	line	165
	colm	8
	synt	ifelse
	mark	L4
	pnull
	pnull
	var	0
	line	165
	colm	16
	synt	any
	field	func
	line	165
	colm	11
	synt	any
	nonnull
	unmark
	line	166
	colm	11
	synt	if
	mark0
	pnull
	var	1
	pnull
	var	0
	line	166
	colm	26
	synt	any
	field	func
	pnull
	var	0
	line	166
	colm	36
	synt	any
	field	args
	line	166
	colm	31
	synt	any
	invoke	1
	line	166
	colm	19
	synt	any
	asgn
	unmark
	pnull
	pnull
	var	0
	line	166
	colm	51
	synt	any
	field	done
	str	0
	line	166
	colm	56
	synt	any
	asgn
	line	166
	colm	11
	synt	endif
	goto	L5
lab L4
	line	168
	colm	13
	synt	if
	mark0
	pnull
	var	1
	pnull
	var	0
	line	168
	colm	28
	synt	any
	field	do_work
	pnull
	var	0
	line	168
	colm	41
	synt	any
	field	args
	line	168
	colm	36
	synt	any
	invoke	1
	line	168
	colm	21
	synt	any
	asgn
	unmark
	pnull
	pnull
	var	0
	line	168
	colm	56
	synt	any
	field	done
	str	1
	line	168
	colm	61
	synt	any
	asgn
	line	168
	colm	13
	synt	endif
lab L5
	line	165
	colm	8
	synt	endifelse
	unmark
lab L3
	mark	L6
	var	3
	pnull
	var	0
	line	169
	colm	21
	synt	any
	field	active_threads
	line	169
	colm	37
	synt	any
	keywd	current
	line	169
	colm	16
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	4
	pnull
	var	0
	line	170
	colm	18
	synt	any
	field	result_list
	var	1
	line	170
	colm	13
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	mark	L9
	mark	L10
	pnull
	pnull
	var	0
	line	171
	colm	20
	synt	any
	field	done
	line	171
	colm	15
	synt	any
	nonnull
	line	171
	colm	25
	synt	any
	esusp
	goto	L11
lab L10
	pnull
	pnull
	pnull
	var	0
	line	171
	colm	31
	synt	any
	field	active_threads
	line	171
	colm	26
	synt	any
	size
	int	2
	line	171
	colm	46
	synt	any
	numeq
lab L11
	line	171
	colm	8
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	163
	colm	5
	synt	endif
	unmark
lab L1
	pnull
	line	173
	colm	1
	synt	any
	pfail
	end
proc threads__Task_exec_map
	local	0,001000,self
	local	1,000020,rslt
	local	2,000020,x
	local	3,000020,rslt_lst
	local	4,000020,i
	local	5,000000,put
	local	6,000000,get
	con	0,002000,1,0
	declend
	line	175
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	pnull
	line	176
	colm	30
	synt	any
	llist	0
	line	176
	colm	28
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	4
	int	0
	line	176
	colm	35
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	179
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	179
	colm	12
	synt	any
	field	runners
	line	179
	colm	20
	synt	any
	invoke	0
	pnull
	var	0
	line	179
	colm	27
	synt	any
	field	nthread
	line	179
	colm	22
	synt	any
	numlt
	pop
	pnull
	pnull
	pnull
	var	0
	line	179
	colm	41
	synt	any
	field	args
	line	179
	colm	36
	synt	any
	size
	int	0
	line	179
	colm	46
	synt	any
	numgt
	unmark
	mark	L4
lab L5
	line	181
	colm	8
	synt	while
	mark0
	pnull
	var	4
	pnull
	var	0
	line	181
	colm	20
	synt	any
	field	chunk_size
	line	181
	colm	15
	synt	any
	numlt
	pop
	var	5
	var	3
	pnull
	var	0
	line	181
	colm	49
	synt	any
	field	func
	var	6
	pnull
	var	0
	line	181
	colm	63
	synt	any
	field	args
	line	181
	colm	58
	synt	any
	invoke	1
	line	181
	colm	54
	synt	any
	invoke	1
	line	181
	colm	35
	synt	any
	invoke	2
lab L6
	unmark
	goto	L5
lab L7
	line	181
	colm	8
	synt	endwhile
	unmark
lab L4
	line	182
	colm	8
	synt	if
	mark0
	pnull
	pnull
	var	3
	line	182
	colm	11
	synt	any
	size
	int	0
	line	182
	colm	20
	synt	any
	numgt
	unmark
	mark	L8
	var	3
	line	183
	colm	11
	synt	any
	pret
lab L8
	synt	any
	pfail
	line	182
	colm	8
	synt	endif
	line	179
	colm	5
	synt	endif
	unmark
lab L3
	pnull
	line	185
	colm	1
	synt	any
	pfail
	end
proc threads__Task_exec_reduce
	local	0,001000,self
	declend
	line	187
	colm	11
	synt	any
	line	189
	colm	1
	synt	any
	pfail
	end
proc threads__Task_signal
	local	0,001000,self
	local	1,000040,bsignal
	local	2,000000,proc
	con	0,010000,6,163,151,147,156,141,154
	con	1,002000,1,0
	declend
	line	191
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	1
	var	2
	str	0
	int	1
	line	193
	colm	31
	synt	any
	invoke	2
	line	193
	colm	22
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	var	1
	pnull
	var	0
	line	194
	colm	18
	synt	any
	field	cv_caller
	line	194
	colm	13
	synt	any
	invoke	1
	unmark
lab L4
	pnull
	line	195
	colm	1
	synt	any
	pfail
	end
proc threads__Task_is_done
	local	0,001000,self
	declend
	line	197
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	198
	colm	18
	synt	any
	field	done
	line	198
	colm	13
	synt	any
	nonnull
	line	198
	colm	6
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	199
	colm	1
	synt	any
	pfail
	end
proc threads__Task_wait
	local	0,001000,self
	local	1,000040,bwait
	local	2,000000,proc
	local	3,000000,lock
	local	4,000000,unlock
	con	0,010000,4,167,141,151,164
	con	1,002000,1,0
	con	2,002000,1,1
	declend
	line	201
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	1
	var	2
	str	0
	int	1
	line	203
	colm	29
	synt	any
	invoke	2
	line	203
	colm	20
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	mark	L5
	var	3
	pnull
	var	0
	line	204
	colm	19
	synt	any
	field	cv_caller
	line	204
	colm	11
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	int	2
	var	1
	pnull
	var	0
	line	204
	colm	44
	synt	any
	field	cv_caller
	line	204
	colm	39
	synt	any
	invoke	1
	var	4
	pnull
	var	0
	line	204
	colm	67
	synt	any
	field	cv_caller
	line	204
	colm	62
	synt	any
	invoke	1
	line	204
	colm	33
	synt	any
	invoke	2
	line	204
	colm	79
	synt	any
	esusp
	goto	L7
lab L6
	int	2
	line	204
	colm	80
	synt	any
	limit
	pushn1
	var	4
	pnull
	var	0
	line	204
	colm	92
	synt	any
	field	cv_caller
	line	204
	colm	87
	synt	any
	invoke	1
	line	204
	colm	104
	synt	any
	keywd	fail
	line	204
	colm	80
	synt	any
	invoke	2
	lsusp
lab L7
	unmark
lab L4
	pnull
	line	205
	colm	1
	synt	any
	pfail
	end
proc threads__Task_runners
	local	0,001000,self
	declend
	line	207
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	208
	colm	18
	synt	any
	field	active_threads
	line	208
	colm	13
	synt	any
	size
	line	208
	colm	6
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	209
	colm	1
	synt	any
	pfail
	end
proc threads__Task_set_caller
	local	0,001000,self
	local	1,001000,c
	declend
	line	211
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	212
	colm	10
	synt	any
	field	caller
	mark	L2
	pnull
	var	1
	line	212
	colm	20
	synt	any
	nonnull
	line	212
	colm	22
	synt	any
	esusp
	goto	L3
lab L2
	line	212
	colm	23
	synt	any
	keywd	current
lab L3
	line	212
	colm	17
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	213
	colm	1
	synt	any
	pfail
	end
proc threads__Task_set_args
	local	0,001000,self
	local	1,001000,args
	declend
	line	215
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	216
	colm	10
	synt	any
	field	args
	var	1
	line	216
	colm	16
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	217
	colm	1
	synt	any
	pfail
	end
proc threads__Task_reduce
	local	0,001000,self
	local	1,001000,rslt_lst
	declend
	line	219
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	220
	colm	19
	synt	any
	field	reduce_func
	line	220
	colm	14
	synt	any
	nonnull
	var	1
	line	220
	colm	32
	synt	any
	invoke	1
	line	220
	colm	6
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	221
	colm	1
	synt	any
	pfail
	end
proc threads__Task_init
	local	0,001000,self
	local	1,001000,func
	local	2,001000,r_func
	local	3,001000,args
	local	4,001000,n
	local	5,001000,chnk_size
	local	6,000000,condvar
	local	7,000000,mutex
	local	8,000000,set
	con	0,002000,1,1
	declend
	line	223
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	4
	line	225
	colm	1
	synt	any
	null
	int	0
	line	225
	colm	4
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	5
	line	226
	colm	1
	synt	any
	null
	int	0
	line	226
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	224
	colm	10
	synt	any
	field	func
	var	1
	line	224
	colm	16
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	225
	colm	10
	synt	any
	field	reduce_func
	var	2
	line	225
	colm	23
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	0
	line	226
	colm	10
	synt	any
	field	args
	var	3
	line	226
	colm	16
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	4
	pnull
	var	4
	int	0
	line	227
	colm	12
	synt	any
	numlt
	line	227
	colm	8
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	0
	line	228
	colm	10
	synt	any
	field	nthread
	var	4
	line	228
	colm	18
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	0
	line	229
	colm	10
	synt	any
	field	cv_caller
	var	6
	line	229
	colm	29
	synt	any
	invoke	0
	line	229
	colm	20
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	0
	line	230
	colm	10
	synt	any
	field	active_threads
	var	7
	var	8
	line	230
	colm	37
	synt	any
	invoke	0
	line	230
	colm	32
	synt	any
	invoke	1
	line	230
	colm	25
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	0
	line	231
	colm	10
	synt	any
	field	result_list
	var	7
	pnull
	line	231
	colm	30
	synt	any
	llist	0
	line	231
	colm	29
	synt	any
	invoke	1
	line	231
	colm	22
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	0
	line	232
	colm	10
	synt	any
	field	chunk_size
	var	5
	line	232
	colm	21
	synt	any
	asgn
	unmark
lab L11
	pnull
	line	233
	colm	1
	synt	any
	pfail
	end
proc threads__Task_initially
	local	0,001000,self
	local	1,001000,func
	local	2,001000,r_func
	local	3,001000,ar
	local	4,001000,n
	declend
	line	235
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	237
	colm	10
	synt	any
	field	init
	var	1
	var	2
	var	3
	var	4
	line	237
	colm	15
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	238
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	239
	colm	1
	synt	any
	pfail
	end
proc threads__Task
	local	0,001000,func
	local	1,001000,r_func
	local	2,001000,ar
	local	3,001000,n
	local	4,000020,self
	local	5,000020,clone
	local	6,000000,threads__Task__oprec
	local	7,000000,threads__Taskinitialize
	local	8,000000,threads__Task__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	56
	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	32
	synt	any
	keywd	null
	var	6
	line	10
	colm	31
	synt	any
	invoke	2
	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
	pnull
	pnull
	var	4
	line	12
	colm	7
	synt	any
	field	__m
	line	12
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	12
	colm	21
	synt	any
	invoke	5
	line	12
	colm	45
	synt	any
	esusp
	goto	L8
lab L7
	line	12
	colm	47
	synt	any
	pfail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	4
	line	13
	colm	3
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	14
	colm	1
	synt	any
	pfail
	end
proc threads__Taskinitialize
	local	0,000000,threads__Task__oprec
	local	1,000000,threads__Task__methods
	local	2,000000,threads__Task_do_work
	local	3,000000,threads__Task_exec
	local	4,000000,threads__Task_exec_map
	local	5,000000,threads__Task_exec_reduce
	local	6,000000,threads__Task_signal
	local	7,000000,threads__Task_is_done
	local	8,000000,threads__Task_wait
	local	9,000000,threads__Task_runners
	local	10,000000,threads__Task_set_caller
	local	11,000000,threads__Task_set_args
	local	12,000000,threads__Task_reduce
	local	13,000000,threads__Task_init
	local	14,000000,threads__Task_initially
	declend
	line	16
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	line	17
	colm	57
	synt	any
	invoke	13
	line	17
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	18
	colm	1
	synt	any
	pfail
	end
proc threads__Threads_do_work
	local	0,001000,self
	declend
	filen	thread.icn
	line	260
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	261
	colm	8
	synt	any
	field	actual_work
	line	261
	colm	20
	synt	any
	invoke	0
	unmark
lab L1
	pnull
	line	262
	colm	1
	synt	any
	pfail
	end
proc threads__Threads_thread_func
	local	0,001000,self
	local	1,000020,tsk
	local	2,000020,rslt
	local	3,000020,rslt_lst
	local	4,000020,cur_thread
	local	5,000000,pop
	local	6,000000,insert
	local	7,000000,push
	local	8,000000,delete
	local	9,000000,put
	local	10,000000,lock
	local	11,000000,unlock
	local	12,000000,wait
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	264
	colm	11
	synt	any
	mark	L1
	pnull
	var	4
	line	265
	colm	45
	synt	any
	keywd	current
	line	265
	colm	42
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	266
	colm	4
	synt	while
	mark0
	pnull
	pnull
	var	0
	line	266
	colm	15
	synt	any
	field	done
	line	266
	colm	10
	synt	any
	null
	unmark
	mark	L3
	mark	L6
	line	267
	colm	7
	synt	if
	mark0
	pnull
	var	1
	var	5
	pnull
	var	0
	line	267
	colm	27
	synt	any
	field	task_ready
	line	267
	colm	22
	synt	any
	invoke	1
	line	267
	colm	14
	synt	any
	asgn
	unmark
	mark	L7
	var	6
	pnull
	var	1
	line	268
	colm	22
	synt	any
	field	active_threads
	line	268
	colm	39
	synt	any
	keywd	current
	line	268
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	line	269
	colm	10
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	1
	line	269
	colm	16
	synt	any
	field	runners
	line	269
	colm	24
	synt	any
	invoke	0
	int	0
	line	269
	colm	26
	synt	any
	plus
	pnull
	var	1
	line	269
	colm	32
	synt	any
	field	nthread
	line	269
	colm	28
	synt	any
	numlt
	unmark
	var	7
	pnull
	var	0
	line	270
	colm	24
	synt	any
	field	task_ready
	var	1
	line	270
	colm	19
	synt	any
	invoke	2
	line	269
	colm	10
	synt	endif
	unmark
lab L8
	mark	L9
	var	8
	pnull
	var	0
	line	272
	colm	23
	synt	any
	field	thread_ready
	var	4
	line	272
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	6
	pnull
	var	0
	line	273
	colm	23
	synt	any
	field	thread_active
	var	4
	line	273
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	line	276
	colm	10
	synt	if
	mark0
	pnull
	var	3
	pnull
	var	1
	line	276
	colm	28
	synt	any
	field	exec_map
	line	276
	colm	37
	synt	any
	invoke	0
	line	276
	colm	22
	synt	any
	asgn
	unmark
	var	9
	pnull
	var	1
	line	277
	colm	22
	synt	any
	field	result_list
	pnull
	var	1
	line	277
	colm	39
	synt	any
	field	reduce_func
	var	3
	line	277
	colm	51
	synt	any
	invoke	1
	line	277
	colm	18
	synt	any
	invoke	2
	line	276
	colm	10
	synt	endif
	unmark
lab L11
	mark	L12
	var	8
	pnull
	var	0
	line	280
	colm	23
	synt	any
	field	thread_active
	var	4
	line	280
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	mark	L13
	var	6
	pnull
	var	0
	line	281
	colm	23
	synt	any
	field	thread_ready
	var	4
	line	281
	colm	18
	synt	any
	invoke	2
	unmark
lab L13
	mark	L14
	mark	L15
	var	10
	pnull
	var	0
	line	283
	colm	23
	synt	any
	field	task_ready
	line	283
	colm	15
	synt	any
	invoke	1
	unmark
lab L15
	mark	L16
	int	0
	line	284
	colm	13
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	1
	line	284
	colm	20
	synt	any
	field	args
	line	284
	colm	16
	synt	any
	size
	int	1
	line	284
	colm	25
	synt	any
	numgt
	pop
	pnull
	var	1
	pnull
	pnull
	var	0
	line	284
	colm	41
	synt	any
	field	task_ready
	int	0
	line	284
	colm	52
	synt	any
	subsc
	line	284
	colm	33
	synt	any
	neqv
	unmark
	var	7
	pnull
	var	0
	line	285
	colm	24
	synt	any
	field	task_ready
	var	1
	line	285
	colm	19
	synt	any
	invoke	2
	line	284
	colm	13
	synt	endif
	var	11
	pnull
	var	0
	line	283
	colm	23
	synt	any
	field	task_ready
	line	283
	colm	17
	synt	any
	invoke	1
	line	283
	colm	38
	synt	any
	invoke	2
	line	283
	colm	36
	synt	any
	esusp
	goto	L17
lab L16
	int	0
	line	283
	colm	37
	synt	any
	limit
	pushn1
	var	11
	pnull
	var	0
	line	283
	colm	49
	synt	any
	field	task_ready
	line	283
	colm	44
	synt	any
	invoke	1
	line	283
	colm	62
	synt	any
	keywd	fail
	line	283
	colm	37
	synt	any
	invoke	2
	lsusp
lab L17
	unmark
lab L14
	mark	L18
	var	8
	pnull
	var	1
	line	288
	colm	22
	synt	any
	field	active_threads
	line	288
	colm	39
	synt	any
	keywd	current
	line	288
	colm	18
	synt	any
	invoke	2
	unmark
lab L18
	line	289
	colm	10
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	1
	line	289
	colm	16
	synt	any
	field	runners
	line	289
	colm	24
	synt	any
	invoke	0
	pnull
	pnull
	var	1
	line	289
	colm	31
	synt	any
	field	args
	line	289
	colm	27
	synt	any
	size
	line	289
	colm	26
	synt	any
	numeq
	int	1
	line	289
	colm	36
	synt	any
	numeq
	unmark
	pnull
	var	1
	line	289
	colm	47
	synt	any
	field	signal
	line	289
	colm	54
	synt	any
	invoke	0
	line	289
	colm	10
	synt	endif
	line	267
	colm	7
	synt	endif
	unmark
lab L6
	line	292
	colm	10
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	0
	line	292
	colm	18
	synt	any
	field	task_ready
	line	292
	colm	13
	synt	any
	size
	int	1
	line	292
	colm	29
	synt	any
	numeq
	unmark
	mark	L19
	var	10
	pnull
	var	0
	line	293
	colm	27
	synt	any
	field	cv_work
	line	293
	colm	19
	synt	any
	invoke	1
	unmark
lab L19
	mark	L20
	int	0
lab L22
	line	293
	colm	40
	synt	while
	mark0
	pnull
	pnull
	pnull
	var	0
	line	293
	colm	50
	synt	any
	field	task_ready
	line	293
	colm	45
	synt	any
	size
	int	1
	line	293
	colm	61
	synt	any
	numeq
	unmark
	mark	L22
	var	12
	pnull
	var	0
	line	294
	colm	40
	synt	any
	field	cv_work
	line	294
	colm	35
	synt	any
	invoke	1
lab L23
	unmark
	goto	L22
lab L24
	line	293
	colm	40
	synt	endwhile
	var	11
	pnull
	var	0
	line	293
	colm	27
	synt	any
	field	cv_work
	line	293
	colm	21
	synt	any
	invoke	1
	line	293
	colm	39
	synt	any
	invoke	2
	line	293
	colm	37
	synt	any
	esusp
	goto	L21
lab L20
	int	0
	line	293
	colm	38
	synt	any
	limit
	pushn1
	var	11
	pnull
	var	0
	line	293
	colm	50
	synt	any
	field	cv_work
	line	293
	colm	45
	synt	any
	invoke	1
	line	293
	colm	60
	synt	any
	keywd	fail
	line	293
	colm	38
	synt	any
	invoke	2
	lsusp
lab L21
	line	292
	colm	10
	synt	endif
lab L4
	unmark
	goto	L3
lab L5
	line	266
	colm	4
	synt	endwhile
	unmark
lab L2
	pnull
	line	296
	colm	1
	synt	any
	pfail
	end
proc threads__Threads_master_func
	local	0,001000,self
	local	1,000000,signal
	local	2,000000,delay
	con	0,002000,1,0
	con	1,002000,4,1000
	declend
	line	299
	colm	11
	synt	any
	mark	L1
lab L2
	line	300
	colm	3
	synt	while
	mark0
	pnull
	pnull
	var	0
	line	300
	colm	14
	synt	any
	field	done
	line	300
	colm	9
	synt	any
	null
	unmark
	mark	L2
	line	301
	colm	7
	synt	ifelse
	mark	L5
	pnull
	pnull
	pnull
	var	0
	line	301
	colm	15
	synt	any
	field	task_ready
	line	301
	colm	10
	synt	any
	size
	int	0
	line	301
	colm	26
	synt	any
	numgt
	pop
	pnull
	pnull
	pnull
	var	0
	line	301
	colm	34
	synt	any
	field	thread_ready
	line	301
	colm	29
	synt	any
	size
	int	0
	line	301
	colm	47
	synt	any
	numgt
	unmark
	var	1
	pnull
	var	0
	line	302
	colm	23
	synt	any
	field	cv_work
	line	302
	colm	18
	synt	any
	invoke	1
	goto	L6
lab L5
	var	2
	int	1
	line	304
	colm	17
	synt	any
	invoke	1
lab L6
	line	301
	colm	7
	synt	endifelse
lab L3
	unmark
	goto	L2
lab L4
	line	300
	colm	3
	synt	endwhile
	unmark
lab L1
	pnull
	line	307
	colm	1
	synt	any
	pfail
	end
proc threads__Threads_house_keeping
	local	0,001000,self
	declend
	line	309
	colm	11
	synt	any
	line	311
	colm	1
	synt	any
	pfail
	end
proc threads__Threads_submit_async
	local	0,001000,self
	local	1,001000,tsk
	local	2,001000,r_func
	local	3,001000,args
	local	4,001000,n
	local	5,000000,type
	local	6,000000,threads__Task
	local	7,000000,lock
	local	8,000000,put
	local	9,000000,unlock
	local	10,000000,signal
	con	0,010000,9,160,162,157,143,145,144,165,162,145
	con	1,002000,1,1
	declend
	line	312
	colm	11
	synt	any
	mark	L1
	line	313
	colm	4
	synt	ifelse
	mark	L2
	pnull
	var	5
	var	1
	line	313
	colm	14
	synt	any
	invoke	1
	str	0
	line	313
	colm	19
	synt	any
	lexeq
	unmark
	pnull
	var	1
	var	6
	var	1
	var	2
	var	3
	var	4
	line	314
	colm	27
	synt	any
	invoke	4
	line	314
	colm	11
	synt	any
	asgn
	goto	L3
lab L2
	mark	L4
	pnull
	var	1
	line	317
	colm	8
	synt	any
	field	set_args
	var	3
	line	317
	colm	17
	synt	any
	invoke	1
	unmark
lab L4
	pnull
	pnull
	var	1
	line	318
	colm	8
	synt	any
	field	nthread
	var	4
	line	318
	colm	17
	synt	any
	asgn
lab L3
	line	313
	colm	4
	synt	endifelse
	unmark
lab L1
	mark	L5
	pnull
	var	1
	line	321
	colm	7
	synt	any
	field	set_caller
	line	321
	colm	18
	synt	any
	invoke	0
	unmark
lab L5
	mark	L6
	mark	L7
	var	7
	pnull
	var	0
	line	322
	colm	17
	synt	any
	field	task_ready
	line	322
	colm	9
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	int	1
	var	8
	pnull
	var	0
	line	322
	colm	41
	synt	any
	field	task_ready
	var	1
	line	322
	colm	36
	synt	any
	invoke	2
	var	9
	pnull
	var	0
	line	322
	colm	69
	synt	any
	field	task_ready
	line	322
	colm	64
	synt	any
	invoke	1
	line	322
	colm	32
	synt	any
	invoke	2
	line	322
	colm	82
	synt	any
	esusp
	goto	L9
lab L8
	int	1
	line	322
	colm	83
	synt	any
	limit
	pushn1
	var	9
	pnull
	var	0
	line	322
	colm	95
	synt	any
	field	task_ready
	line	322
	colm	90
	synt	any
	invoke	1
	line	322
	colm	108
	synt	any
	keywd	fail
	line	322
	colm	83
	synt	any
	invoke	2
	lsusp
lab L9
	unmark
lab L6
	mark	L10
	var	10
	pnull
	var	0
	line	323
	colm	17
	synt	any
	field	cv_work
	pnull
	var	1
	line	323
	colm	29
	synt	any
	field	nthread
	line	323
	colm	12
	synt	any
	invoke	2
	unmark
lab L10
	pnull
	line	324
	colm	1
	synt	any
	pfail
	end
proc threads__Threads_submit_sync
	local	0,001000,self
	local	1,001000,tsk
	local	2,001000,r_func
	local	3,001000,args
	local	4,001000,n
	local	5,000000,type
	local	6,000000,threads__Task
	local	7,000000,lock
	local	8,000000,put
	local	9,000000,unlock
	local	10,000000,signal
	con	0,010000,9,160,162,157,143,145,144,165,162,145
	con	1,002000,1,1
	declend
	line	326
	colm	11
	synt	any
	mark	L1
	line	327
	colm	4
	synt	ifelse
	mark	L2
	pnull
	var	5
	var	1
	line	327
	colm	14
	synt	any
	invoke	1
	str	0
	line	327
	colm	19
	synt	any
	lexeq
	unmark
	pnull
	var	1
	var	6
	var	1
	var	2
	var	3
	var	4
	line	328
	colm	27
	synt	any
	invoke	4
	line	328
	colm	11
	synt	any
	asgn
	goto	L3
lab L2
	mark	L4
	pnull
	var	1
	line	331
	colm	10
	synt	any
	field	set_args
	var	3
	line	331
	colm	19
	synt	any
	invoke	1
	unmark
lab L4
	pnull
	pnull
	var	1
	line	332
	colm	10
	synt	any
	field	nthread
	var	4
	line	332
	colm	19
	synt	any
	asgn
lab L3
	line	327
	colm	4
	synt	endifelse
	unmark
lab L1
	mark	L5
	pnull
	var	1
	line	335
	colm	7
	synt	any
	field	set_caller
	line	335
	colm	18
	synt	any
	invoke	0
	unmark
lab L5
	mark	L6
	mark	L7
	var	7
	pnull
	var	0
	line	336
	colm	17
	synt	any
	field	task_ready
	line	336
	colm	9
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	int	1
	var	8
	pnull
	var	0
	line	336
	colm	41
	synt	any
	field	task_ready
	var	1
	line	336
	colm	36
	synt	any
	invoke	2
	var	9
	pnull
	var	0
	line	336
	colm	69
	synt	any
	field	task_ready
	line	336
	colm	64
	synt	any
	invoke	1
	line	336
	colm	32
	synt	any
	invoke	2
	line	336
	colm	82
	synt	any
	esusp
	goto	L9
lab L8
	int	1
	line	336
	colm	83
	synt	any
	limit
	pushn1
	var	9
	pnull
	var	0
	line	336
	colm	95
	synt	any
	field	task_ready
	line	336
	colm	90
	synt	any
	invoke	1
	line	336
	colm	108
	synt	any
	keywd	fail
	line	336
	colm	83
	synt	any
	invoke	2
	lsusp
lab L9
	unmark
lab L6
	mark	L10
	var	10
	pnull
	var	0
	line	337
	colm	17
	synt	any
	field	cv_work
	pnull
	var	1
	line	337
	colm	29
	synt	any
	field	nthread
	line	337
	colm	12
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	pnull
	var	1
	line	339
	colm	7
	synt	any
	field	wait
	line	339
	colm	12
	synt	any
	invoke	0
	unmark
lab L11
	mark	L12
	mark	L13
	pnull
	var	1
	line	340
	colm	14
	synt	any
	field	reduce
	pnull
	var	1
	line	340
	colm	25
	synt	any
	field	result_list
	line	340
	colm	21
	synt	any
	invoke	1
	line	340
	colm	4
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	341
	colm	1
	synt	any
	pfail
	end
proc threads__Threads_map_reduce
	local	0,001000,self
	local	1,001000,tsk
	local	2,001000,r_func
	local	3,001000,args
	local	4,001000,n
	local	5,000000,type
	local	6,000000,threads__Task
	local	7,000000,lock
	local	8,000000,put
	local	9,000000,unlock
	local	10,000000,signal
	con	0,010000,9,160,162,157,143,145,144,165,162,145
	con	1,002000,1,1
	declend
	line	344
	colm	11
	synt	any
	mark	L1
	line	345
	colm	4
	synt	ifelse
	mark	L2
	pnull
	var	5
	var	1
	line	345
	colm	14
	synt	any
	invoke	1
	str	0
	line	345
	colm	19
	synt	any
	lexeq
	unmark
	pnull
	var	1
	var	6
	var	1
	var	2
	var	3
	var	4
	line	346
	colm	27
	synt	any
	invoke	4
	line	346
	colm	11
	synt	any
	asgn
	goto	L3
lab L2
	mark	L4
	pnull
	var	1
	line	349
	colm	10
	synt	any
	field	set_args
	var	3
	line	349
	colm	19
	synt	any
	invoke	1
	unmark
lab L4
	pnull
	pnull
	var	1
	line	350
	colm	10
	synt	any
	field	nthread
	var	4
	line	350
	colm	19
	synt	any
	asgn
lab L3
	line	345
	colm	4
	synt	endifelse
	unmark
lab L1
	mark	L5
	pnull
	var	1
	line	353
	colm	7
	synt	any
	field	set_caller
	line	353
	colm	18
	synt	any
	invoke	0
	unmark
lab L5
	mark	L6
	mark	L7
	var	7
	pnull
	var	0
	line	354
	colm	17
	synt	any
	field	task_ready
	line	354
	colm	9
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	int	1
	var	8
	pnull
	var	0
	line	354
	colm	41
	synt	any
	field	task_ready
	var	1
	line	354
	colm	36
	synt	any
	invoke	2
	var	9
	pnull
	var	0
	line	354
	colm	69
	synt	any
	field	task_ready
	line	354
	colm	64
	synt	any
	invoke	1
	line	354
	colm	32
	synt	any
	invoke	2
	line	354
	colm	82
	synt	any
	esusp
	goto	L9
lab L8
	int	1
	line	354
	colm	83
	synt	any
	limit
	pushn1
	var	9
	pnull
	var	0
	line	354
	colm	95
	synt	any
	field	task_ready
	line	354
	colm	90
	synt	any
	invoke	1
	line	354
	colm	108
	synt	any
	keywd	fail
	line	354
	colm	83
	synt	any
	invoke	2
	lsusp
lab L9
	unmark
lab L6
	mark	L10
	var	10
	pnull
	var	0
	line	355
	colm	17
	synt	any
	field	cv_work
	pnull
	var	1
	line	355
	colm	29
	synt	any
	field	nthread
	line	355
	colm	12
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	pnull
	var	1
	line	357
	colm	7
	synt	any
	field	wait
	line	357
	colm	12
	synt	any
	invoke	0
	unmark
lab L11
	mark	L12
	mark	L13
	pnull
	var	1
	line	358
	colm	14
	synt	any
	field	reduce
	pnull
	var	1
	line	358
	colm	25
	synt	any
	field	result_list
	line	358
	colm	21
	synt	any
	invoke	1
	line	358
	colm	4
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	359
	colm	1
	synt	any
	pfail
	end
proc threads__Threads_shutdown
	local	0,001000,self
	con	0,010000,5,146,157,162,143,145
	declend
	line	361
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	362
	colm	8
	synt	any
	field	done
	str	0
	line	362
	colm	13
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	363
	colm	1
	synt	any
	pfail
	end
proc threads__Threads_initially
	local	0,001000,self
	local	1,001000,n
	local	2,000000,condvar
	local	3,000000,mutex
	local	4,000000,set
	local	5,000000,insert
	local	6,000000,spawn
	con	0,002000,1,1
	con	1,002000,1,8
	declend
	line	365
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	366
	colm	8
	synt	any
	field	cv_work
	var	2
	line	366
	colm	25
	synt	any
	invoke	0
	line	366
	colm	16
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	367
	colm	8
	synt	any
	field	cv_master
	var	2
	line	367
	colm	27
	synt	any
	invoke	0
	line	367
	colm	18
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	368
	colm	4
	synt	if
	mark0
	mark	L4
	pnull
	var	1
	line	368
	colm	7
	synt	any
	null
	line	368
	colm	10
	synt	any
	esusp
	goto	L5
lab L4
	pnull
	var	1
	int	0
	line	368
	colm	13
	synt	any
	numlt
lab L5
	unmark
	pnull
	var	1
	int	1
	line	368
	colm	23
	synt	any
	asgn
	line	368
	colm	4
	synt	endif
	unmark
lab L3
	mark	L6
	pnull
	pnull
	var	0
	line	369
	colm	8
	synt	any
	field	thread_ready
	var	3
	var	4
	line	369
	colm	32
	synt	any
	invoke	0
	line	369
	colm	28
	synt	any
	invoke	1
	line	369
	colm	21
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	0
	line	370
	colm	8
	synt	any
	field	thread_active
	var	3
	var	4
	line	370
	colm	33
	synt	any
	invoke	0
	line	370
	colm	29
	synt	any
	invoke	1
	line	370
	colm	22
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	0
	line	371
	colm	8
	synt	any
	field	task_ready
	var	3
	pnull
	line	371
	colm	27
	synt	any
	llist	0
	line	371
	colm	26
	synt	any
	invoke	1
	line	371
	colm	19
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	0
	line	372
	colm	8
	synt	any
	field	task_active
	var	3
	pnull
	line	372
	colm	28
	synt	any
	llist	0
	line	372
	colm	27
	synt	any
	invoke	1
	line	372
	colm	20
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	line	373
	colm	4
	synt	every
	mark0
	pnull
	int	0
	var	1
	push1
	line	373
	colm	12
	synt	any
	toby
	pop
	mark0
	var	5
	pnull
	var	0
	line	373
	colm	33
	synt	any
	field	thread_ready
	var	6
	goto	L15
lab L13
	pop
	mark	L14
	pnull
	var	0
	line	373
	colm	64
	synt	any
	field	thread_func
	line	373
	colm	76
	synt	any
	invoke	0
	line	373
	colm	53
	synt	any
	coret
	efail
lab L14
	cofail
	goto	L14
lab L15
	create	L13
	line	373
	colm	52
	synt	any
	invoke	1
	line	373
	colm	28
	synt	any
	invoke	2
	unmark
lab L11
	efail
lab L12
	line	373
	colm	4
	synt	endevery
	unmark
lab L10
	mark	L16
	pnull
	pnull
	var	0
	line	375
	colm	8
	synt	any
	field	master
	var	6
	goto	L19
lab L17
	pop
	mark	L18
	pnull
	var	0
	line	375
	colm	34
	synt	any
	field	master_func
	line	375
	colm	46
	synt	any
	invoke	0
	line	375
	colm	23
	synt	any
	coret
	efail
lab L18
	cofail
	goto	L18
lab L19
	create	L17
	line	375
	colm	22
	synt	any
	invoke	1
	line	375
	colm	15
	synt	any
	asgn
	unmark
lab L16
	mark	L20
	mark	L21
	pnull
	line	376
	colm	7
	synt	any
	pret
lab L21
	synt	any
	pfail
	unmark
lab L20
	pnull
	line	377
	colm	1
	synt	any
	pfail
	end
proc threads__Threads
	local	0,001000,n
	local	1,000020,self
	local	2,000020,clone
	local	3,000000,threads__Threads__oprec
	local	4,000000,threads__Threadsinitialize
	local	5,000000,threads__Threads__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	3
	line	8
	colm	6
	synt	any
	null
	unmark
	var	4
	line	8
	colm	62
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	1
	var	5
	line	10
	colm	35
	synt	any
	keywd	null
	var	3
	line	10
	colm	34
	synt	any
	invoke	2
	line	10
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	1
	line	11
	colm	7
	synt	any
	field	__s
	var	1
	line	11
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	pnull
	var	1
	line	12
	colm	7
	synt	any
	field	__m
	line	12
	colm	11
	synt	any
	field	initially
	var	1
	var	0
	line	12
	colm	21
	synt	any
	invoke	2
	line	12
	colm	30
	synt	any
	esusp
	goto	L8
lab L7
	line	12
	colm	32
	synt	any
	pfail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	1
	line	13
	colm	3
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	14
	colm	1
	synt	any
	pfail
	end
proc threads__Threadsinitialize
	local	0,000000,threads__Threads__oprec
	local	1,000000,threads__Threads__methods
	local	2,000000,threads__Threads_do_work
	local	3,000000,threads__Threads_thread_func
	local	4,000000,threads__Threads_master_func
	local	5,000000,threads__Threads_house_keeping
	local	6,000000,threads__Threads_submit_async
	local	7,000000,threads__Threads_submit_sync
	local	8,000000,threads__Threads_map_reduce
	local	9,000000,threads__Threads_shutdown
	local	10,000000,threads__Threads_initially
	declend
	line	16
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	line	17
	colm	63
	synt	any
	invoke	9
	line	17
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	18
	colm	1
	synt	any
	pfail
	end
proc threads__MakePool
	local	0,001000,n
	local	1,000020,id
	local	2,000000,threads__Work
	local	3,000000,mutex
	local	4,000000,threads__ToDo
	local	5,000000,threads__Idlers
	local	6,000000,threads__Workforce
	local	7,000000,integer
	local	8,000000,runerr
	local	9,000000,tab
	local	10,000000,put
	local	11,000000,spawn
	local	12,000000,threads__worker
	con	0,002000,1,0
	con	1,002000,3,101
	con	2,010000,10,103,120,125,040,143,157,162,145,163,040
	con	3,002000,1,2
	con	4,002000,1,1
	declend
	line	31
	colm	12
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	2
	var	3
	line	34
	colm	29
	synt	any
	invoke	0
	line	34
	colm	22
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	4
	var	3
	pnull
	line	35
	colm	30
	synt	any
	llist	0
	var	2
	line	35
	colm	29
	synt	any
	invoke	2
	line	35
	colm	22
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	5
	var	3
	pnull
	line	36
	colm	32
	synt	any
	llist	0
	var	2
	line	36
	colm	31
	synt	any
	invoke	2
	line	36
	colm	24
	synt	any
	asgn
	unmark
lab L6
	pnull
	var	6
	pnull
	line	37
	colm	29
	synt	any
	llist	0
	line	37
	colm	27
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L7
	pnull
	pnull
	var	0
	line	39
	colm	1
	synt	any
	null
	int	0
	line	39
	colm	4
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	0
	mark	L9
	var	7
	var	0
	line	40
	colm	13
	synt	any
	invoke	1
	line	40
	colm	17
	synt	any
	esusp
	goto	L10
lab L9
	var	8
	int	1
	var	0
	line	40
	colm	25
	synt	any
	invoke	2
lab L10
	line	40
	colm	3
	synt	any
	asgn
	unmark
lab L8
	mark	L11
	filen	thread.icn
	line	414
	colm	5
	synt	if
	mark0
	pnull
	var	0
	int	0
	line	414
	colm	10
	synt	any
	numle
	unmark
	line	415
	colm	9
	synt	any
	keywd	features
	line	415
	colm	19
	synt	any
	bscan
	pnull
	str	2
	line	415
	colm	23
	synt	any
	tabmat
	pop
	pnull
	var	0
	pnull
	int	3
	var	9
	int	0
	line	415
	colm	53
	synt	any
	invoke	1
	line	415
	colm	46
	synt	any
	plus
	line	415
	colm	41
	synt	any
	asgn
	line	415
	colm	19
	synt	any
	escan
	line	414
	colm	5
	synt	endif
	unmark
lab L11
	mark	L12
lab L13
	line	419
	colm	5
	synt	while
	mark0
	pnull
	int	0
	pnull
	var	0
	dup
	int	4
	line	419
	colm	18
	synt	any
	minus
	asgn
	line	419
	colm	13
	synt	any
	numle
	unmark
	mark	L13
	mark	L16
	var	10
	var	6
	pnull
	var	1
	var	11
	goto	L19
lab L17
	pop
	mark	L18
	var	12
	pnull
	pnull
	pnull
	line	419
	colm	89
	synt	any
	rcvbk
	line	419
	colm	88
	synt	any
	invoke	1
	line	419
	colm	66
	synt	any
	coret
	efail
lab L18
	cofail
	goto	L18
lab L19
	create	L17
	line	419
	colm	65
	synt	any
	invoke	1
	line	419
	colm	57
	synt	any
	asgn
	line	419
	colm	35
	synt	any
	invoke	2
	unmark
lab L16
	pnull
	var	1
	var	1
	line	419
	colm	99
	synt	any
	sndbk
lab L14
	unmark
	goto	L13
lab L15
	line	419
	colm	5
	synt	endwhile
	unmark
lab L12
	mark	L20
	mark	L21
	pnull
	line	421
	colm	5
	synt	any
	pret
lab L21
	synt	any
	pfail
	unmark
lab L20
	pnull
	line	422
	colm	2
	synt	any
	pfail
	end
proc threads__stopWork
	local	0,001000,reason
	local	1,000000,string
	local	2,000000,runerr
	local	3,000000,stop
	con	0,010000,0
	con	1,002000,3,103
	con	2,010000,16,105,155,145,162,147,145,156,143,171,040,105,170,151,164,072,040
	declend
	line	427
	colm	12
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	428
	colm	1
	synt	any
	null
	str	0
	line	428
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	0
	mark	L3
	var	1
	var	0
	line	429
	colm	17
	synt	any
	invoke	1
	line	429
	colm	26
	synt	any
	esusp
	goto	L4
lab L3
	var	2
	int	1
	var	0
	line	429
	colm	34
	synt	any
	invoke	2
lab L4
	line	429
	colm	8
	synt	any
	asgn
	unmark
lab L2
	mark	L5
	var	3
	str	2
	var	0
	line	428
	colm	11
	synt	any
	invoke	2
	unmark
lab L5
	pnull
	line	429
	colm	1
	synt	any
	pfail
	end
proc threads__worker
	local	0,001000,MyId
	local	1,000020,task
	local	2,000020,proc
	local	3,000000,type
	local	4,000000,threads__stopWork
	local	5,000000,lock
	local	6,000000,threads__Work
	local	7,000000,threads__ToDo
	local	8,000000,push
	local	9,000000,threads__Idlers
	local	10,000000,unlock
	local	11,000000,get
	local	12,000000,pop
	con	0,010000,6,164,150,162,145,141,144
	con	1,010000,17,111,156,166,141,154,151,144,040,164,150,162,145,141,144,040,111,144
	con	2,002000,1,0
	declend
	line	434
	colm	12
	synt	any
	mark	L1
	line	436
	colm	5
	synt	if
	mark0
	pnull
	var	3
	var	0
	line	436
	colm	14
	synt	any
	invoke	1
	str	0
	line	436
	colm	21
	synt	any
	lexne
	unmark
	var	4
	str	1
	line	436
	colm	56
	synt	any
	invoke	1
	line	436
	colm	5
	synt	endif
	unmark
lab L1
	mark	L2
lab L3
	line	438
	colm	5
	synt	repeat
	mark	L3
	mark	L6
	var	5
	var	6
	line	439
	colm	15
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	line	440
	colm	9
	synt	ifelse
	mark	L8
	pnull
	int	2
	pnull
	var	7
	line	440
	colm	16
	synt	any
	size
	line	440
	colm	14
	synt	any
	numeq
	unmark
	mark	L10
	var	8
	var	9
	var	0
	line	441
	colm	19
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	10
	var	6
	line	442
	colm	21
	synt	any
	invoke	1
	unmark
lab L11
	pnull
	var	1
	pnull
	pnull
	pnull
	line	443
	colm	21
	synt	any
	rcvbk
	line	443
	colm	18
	synt	any
	asgn
	goto	L9
lab L8
	mark	L12
	pnull
	var	1
	var	11
	var	7
	line	445
	colm	26
	synt	any
	invoke	1
	line	445
	colm	18
	synt	any
	asgn
	unmark
lab L12
	var	10
	var	6
	line	446
	colm	21
	synt	any
	invoke	1
lab L9
	line	440
	colm	9
	synt	endifelse
	unmark
lab L7
	mark	L13
	pnull
	var	2
	var	12
	var	1
	line	448
	colm	22
	synt	any
	invoke	1
	line	448
	colm	14
	synt	any
	asgn
	unmark
lab L13
	line	449
	colm	9
	synt	ifelse
	mark	L14
	pnull
	var	2
	var	4
	line	449
	colm	18
	synt	any
	eqv
	unmark
	mark	L16
	pnull
	line	449
	colm	45
	synt	any
	pret
lab L16
	synt	any
	pfail
	goto	L15
lab L14
	var	2
	var	1
	invoke	-1
lab L15
	line	449
	colm	9
	synt	endifelse
lab L4
	unmark
	goto	L3
lab L5
	line	438
	colm	5
	synt	endrepeat
	unmark
lab L2
	pnull
	line	451
	colm	1
	synt	any
	pfail
	end
proc threads__Dispatch
	local	0,001000,p
	local	1,001000,args
	local	2,000020,worker
	local	3,000000,type
	local	4,000000,push
	local	5,000000,lock
	local	6,000000,threads__Work
	local	7,000000,threads__Idlers
	local	8,000000,pop
	local	9,000000,unlock
	local	10,000000,put
	local	11,000000,threads__ToDo
	con	0,010000,9,160,162,157,143,145,144,165,162,145
	con	1,002000,1,0
	declend
	line	456
	colm	12
	synt	any
	mark	L1
	line	458
	colm	5
	synt	if
	mark0
	pnull
	var	3
	var	0
	line	458
	colm	14
	synt	any
	invoke	1
	str	0
	line	458
	colm	18
	synt	any
	lexeq
	unmark
	mark	L2
	var	4
	var	1
	var	0
	line	459
	colm	15
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	5
	var	6
	line	460
	colm	15
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	line	461
	colm	9
	synt	ifelse
	mark	L5
	pnull
	int	1
	pnull
	var	7
	line	461
	colm	16
	synt	any
	size
	line	461
	colm	14
	synt	any
	numlt
	unmark
	mark	L7
	pnull
	var	2
	var	8
	var	7
	line	462
	colm	28
	synt	any
	invoke	1
	line	462
	colm	20
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	var	9
	var	6
	line	463
	colm	21
	synt	any
	invoke	1
	unmark
lab L8
	pnull
	var	1
	var	2
	line	464
	colm	18
	synt	any
	sndbk
	goto	L6
lab L5
	mark	L9
	var	10
	var	11
	var	1
	line	466
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	var	9
	var	6
	line	467
	colm	21
	synt	any
	invoke	1
lab L6
	line	461
	colm	9
	synt	endifelse
	unmark
lab L4
	mark	L10
	pnull
	line	469
	colm	9
	synt	any
	pret
lab L10
	synt	any
	pfail
	line	458
	colm	5
	synt	endif
	unmark
lab L1
	mark	L11
	line	472
	colm	5
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	473
	colm	2
	synt	any
	pfail
	end
proc threads__IsIdle
	local	0,000000,lock
	local	1,000000,threads__Work
	local	2,000000,threads__Idlers
	local	3,000000,threads__Workforce
	local	4,000000,threads__ToDo
	local	5,000000,unlock
	con	0,002000,1,0
	declend
	line	477
	colm	12
	synt	any
	mark	L1
	var	0
	var	1
	line	478
	colm	11
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	line	479
	colm	5
	synt	if
	mark0
	mark	L3
	pnull
	pnull
	var	2
	line	479
	colm	10
	synt	any
	size
	pnull
	var	3
	line	479
	colm	28
	synt	any
	size
	line	479
	colm	26
	synt	any
	numne
	line	479
	colm	48
	synt	any
	esusp
	goto	L4
lab L3
	pnull
	pnull
	var	4
	line	479
	colm	50
	synt	any
	size
	int	0
	line	479
	colm	64
	synt	any
	numgt
lab L4
	unmark
	mark	L5
	var	5
	var	1
	line	479
	colm	79
	synt	any
	invoke	1
	unmark
lab L5
	line	479
	colm	95
	synt	any
	pfail
	line	479
	colm	5
	synt	endif
	unmark
lab L2
	mark	L6
	var	5
	var	1
	line	481
	colm	13
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	mark	L8
	pnull
	line	482
	colm	5
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	483
	colm	2
	synt	any
	pfail
	end
proc threads__ClosePool
	local	0,000020,n
	local	1,000000,threads__Workforce
	local	2,000000,threads__Dispatch
	local	3,000000,threads__stopWork
	local	4,000000,wait
	local	5,000000,threads__Idlers
	local	6,000000,stop
	local	7,000000,threads__ToDo
	local	8,000000,write
	con	0,002000,1,1
	con	1,002000,1,0
	con	2,010000,34,050,103,154,157,163,145,120,157,157,154,051,040,111,144,154,145,162,163,040,161,165,145,165,145,040,156,157,164,040,145,155,160,164,171
	con	3,010000,51,127,141,162,156,151,156,147,040,050,103,154,157,163,145,120,157,157,154,051,072,040,123,157,155,145,040,167,157,162,153,040,151,163,040,154,145,146,164,040,151,156,040,164,150,145,040,161,165,145,165,145
	declend
	line	488
	colm	12
	synt	any
	mark	L1
	line	490
	colm	5
	synt	every
	mark0
	pnull
	var	0
	pnull
	int	0
	pnull
	var	1
	line	490
	colm	21
	synt	any
	size
	push1
	line	490
	colm	18
	synt	any
	toby
	line	490
	colm	13
	synt	any
	asgn
	pop
	mark0
	var	2
	var	3
	line	490
	colm	61
	synt	any
	invoke	1
	unmark
lab L2
	efail
lab L3
	line	490
	colm	5
	synt	endevery
	unmark
lab L1
	mark	L4
	line	491
	colm	5
	synt	every
	mark0
	var	4
	pnull
	var	1
	line	491
	colm	18
	synt	any
	bang
	line	491
	colm	17
	synt	any
	invoke	1
	pop
lab L5
	efail
lab L6
	line	491
	colm	5
	synt	endevery
	unmark
lab L4
	mark	L7
	line	494
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	5
	line	494
	colm	8
	synt	any
	size
	int	1
	line	494
	colm	24
	synt	any
	numgt
	unmark
	var	6
	str	2
	line	494
	colm	36
	synt	any
	invoke	1
	line	494
	colm	5
	synt	endif
	unmark
lab L7
	mark	L8
	pnull
	var	1
	pnull
	line	496
	colm	25
	synt	any
	llist	0
	line	496
	colm	23
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	line	499
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	7
	line	499
	colm	8
	synt	any
	size
	int	1
	line	499
	colm	22
	synt	any
	numgt
	unmark
	mark	L10
	var	8
	line	500
	colm	17
	synt	any
	keywd	errout
	str	3
	line	500
	colm	16
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	pnull
	var	7
	pnull
	line	501
	colm	24
	synt	any
	llist	0
	line	501
	colm	22
	synt	any
	asgn
	unmark
lab L11
	line	502
	colm	9
	synt	any
	pfail
	line	499
	colm	5
	synt	endif
	unmark
lab L9
	mark	L12
	mark	L13
	pnull
	line	504
	colm	5
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	505
	colm	2
	synt	any
	pfail
	end
proc threads__TLS
	local	0,001000,var
	local	1,000020,thr
	local	2,000040,TT
	local	3,000000,mutex
	local	4,000000,table
	local	5,000000,serial
	declend
	line	509
	colm	12
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	2
	var	3
	var	4
	line	511
	colm	29
	synt	any
	invoke	0
	line	511
	colm	23
	synt	any
	invoke	1
	line	511
	colm	15
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	pnull
	pnull
	var	2
	pnull
	var	1
	var	5
	line	512
	colm	19
	synt	any
	invoke	0
	line	512
	colm	11
	synt	any
	asgn
	line	512
	colm	7
	synt	any
	subsc
	line	512
	colm	4
	synt	any
	null
	var	4
	line	512
	colm	31
	synt	any
	invoke	0
	line	512
	colm	23
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	2
	var	1
	line	513
	colm	13
	synt	any
	subsc
	var	0
	line	513
	colm	18
	synt	any
	subsc
	line	513
	colm	4
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	514
	colm	1
	synt	any
	pfail
	end
