Slider::init:
		link	$6
		lap	param[$0]
		bnt	code_00e2
		lap	param[$1]
		bnt	code_00e2
		lap	param[$1]
		jmp	code_00f4

code_00e2:	pToa	client
		not
		bnt	code_00f2
		pushi	$1d0		; 464, pScreen
		push0
		lag	global[$3]
		send	$4
		bnot
		jmp	code_00f4

code_00f2:	pToa	client
code_00f4:	aTop	client
		pushi	$1be		; 446, setSize
		push0
		self	$4
		bnot
		pTos	back
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_0108
		lag	global[$5d]
		aTop	back
code_0108:	pTos	fore
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_0113
		lag	global[$5c]
		aTop	fore
code_0113:	pushi	$8d		; 141, new
		push0
		class	Cast
		send	$4
		bnot
		aTop	pCast
		push0
		push0
		pToa	client
		send	$4
		bnot
		aTop	plane
		pushi	$57		; 87, 'W', draw
		push0
		self	$4
		bnot
		pushi	$1b8		; 440, addCast
		push1
		pTos	pCast
		push0
		push0
		pToa	client
		send	$4
		bnot
		send	$6
		bnot
		pushi	$9f		; 159, add
		push1
		pushSelf
		pToa	client
		send	$6
		bnot
		push1
		pushSelf
		callk	kernel_30, $2
		bnot
		pToa	thumb
		not
		bnt	code_02c7
		pToa	left
		sat	temp[$2]
		pToa	top
		sat	temp[$3]
		pToa	thumbView
		bnt	code_01ad
		pushi	$e		; 14, view
		push1
		push
		pushi	$f		; 15, loop
		push1
		pTos	thumbLoop
		pushi	$10		; 16, cel
		push1
		pTos	thumbCel
		pushi	$4a		; 74, 'J', setPri
		push1
		push1
		push0
		push0
		pToa	client
		send	$4
		bnot
		push
		callk	kernel_45, $2
		bnot
		push
		ldi	$64		; 100, 'd', moveDone
		add
		push
		pushi	$e6		; 230, sizeToCel
		pushi	$3		; z
		pTos	thumbView
		pTos	thumbLoop
		pTos	thumbCel
		pushi	$db		; 219, moveTo
		push2
		lst	temp[$2]
		lst	temp[$3]
		pushi	$94		; 148, init
		push1
		pTos	pCast
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		aTop	thumb
		send	$30
		bnot
		jmp	code_0272

code_01ad:	pushi	$4e		; 78, 'N', width
		push0
		self	$4
		bnot
		sat	temp[$4]
		pushi	$e1		; 225, height
		push0
		self	$4
		bnot
		sat	temp[$5]
		pToa	vTracking
		bnt	code_01eb
		pToa	thumbSize
		bnt	code_01ca
		sat	temp[$5]
		jmp	code_0212

code_01ca:	push2
		pushi	$8		; fixPriority
		lst	temp[$5]
		push1
		pTos	topValue
		pToa	bottomValue
		sub
		push
		callk	kernel_61, $2
		bnot
		push
		ldi	$1
		add
		div
		push
		calle	export60025_3, $4
		bnot
		sat	temp[$5]
		jmp	code_0212

code_01eb:	pToa	thumbSize
		bnt	code_01f3
		sat	temp[$4]
		jmp	code_0212

code_01f3:	push2
		pushi	$8		; fixPriority
		lst	temp[$4]
		push1
		pTos	topValue
		pToa	bottomValue
		sub
		push
		callk	kernel_61, $2
		bnot
		push
		ldi	$1
		add
		div
		push
		calle	export60025_3, $4
		bnot
		sat	temp[$4]
code_0212:	pushi	$d3		; 211, copy
		push1
		pushSelf
		pushi	$dc		; 220, posn
		push2
		lst	temp[$2]
		lst	temp[$3]
		pushi	$25		; 37, '%', fore
		push1
		pTos	fore
		pushi	$26		; 38, '&', back
		push1
		pushi	$fe		; 254, strIndex
		pushi	$e1		; 225, height
		push1
		lst	temp[$5]
		pushi	$4e		; 78, 'N', width
		push1
		lst	temp[$4]
		pushi	$11		; 17, bitmap
		push1
		pushi	$5		; scaleY
		push0
		lst	temp[$4]
		lst	temp[$5]
		pushi	$fe		; 254, strIndex
		pTos	fore
		callk	kernel_35, $a
		bnot
		push
		pushi	$4a		; 74, 'J', setPri
		push1
		push1
		push0
		push0
		pToa	client
		send	$4
		bnot
		push
		callk	kernel_45, $2
		bnot
		push
		ldi	$64		; 100, 'd', moveDone
		add
		push
		pushi	$94		; 148, init
		push1
		pTos	pCast
		pushi	$8d		; 141, new
		push0
		class	<NIL>
		send	$4
		bnot
		aTop	thumb
		send	$38
		bnot
code_0272:	pToa	vTracking
		bnt	code_028a
		pTos	bottom
		pushi	$e1		; 225, height
		push0
		pToa	thumb
		send	$4
		bnot
		sub
		aTop	maximum
		pToa	top
		aTop	minimum
		jmp	code_029b

code_028a:	pTos	right
		pushi	$4e		; 78, 'N', width
		push0
		pToa	thumb
		send	$4
		bnot
		sub
		aTop	maximum
		pToa	left
		aTop	minimum
code_029b:	pToa	value
		bnt	code_02bc
		pushi	$20e		; 526, valueToPosn
		push1
		push
		self	$6
		bnot
		sat	temp[$0]
		bnt	code_02bc
		pToa	vTracking
		bnt	code_02b8
		lst	temp[$3]
		lat	temp[$0]
		add
		sat	temp[$3]
		jmp	code_02bc

code_02b8:	lat	temp[$0]
		sat	temp[$2]
code_02bc:	pushi	$20b		; 523, drawThumb
		push2
		lst	temp[$2]
		lst	temp[$3]
		self	$8
		bnot
code_02c7:	ret

Slider::dispose:
		pushi	$95		; 149, dispose
		push0
		pToa	thumb
		send	$4
		bnot
		ldi	$0
		aTop	thumb
		pToa	pCast
		bnt	code_02e8
		pushi	$a6		; 166, release
		push0
		pushi	$95		; 149, dispose
		push0
		send	$8
		bnot
		ldi	$0
		aTop	pCast
code_02e8:	pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	<NIL>, $4
		bnot
		ret

Slider::handleEvent:
		link	$1
		pushi	$50		; 80, 'P', claimed
		push0
		lap	param[$1]
		send	$4
		bnot
		bnt	code_0302
		ldi	$0
		ret

code_0302:	pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$0]
		pushi	$1d3		; 467, modal
		push0
		pToa	client
		send	$4
		bnot
		push
		ldi	$0
		eq?
		bnt	code_037a
		pToa	pIsTracking
		bnt	code_0335
		lst	temp[$0]
		ldi	$2
		eq?
		bnt	code_0335
		ldi	$0
		aTop	pIsTracking
		pushi	$50		; 80, 'P', claimed
		push1
		push0
		lap	param[$1]
		send	$6
		bnot
		jmp	code_037a

code_0335:	lst	temp[$0]
		ldi	$1
		eq?
		bnt	code_034d
		pushi	$eb		; 235, onMe
		push1
		lsp	param[$1]
		self	$6
		bnot
		bnt	code_034d
		ldi	$1
		aTop	pIsTracking
		jmp	code_037a

code_034d:	pToa	pIsTracking
		bnt	code_0362
		lst	temp[$0]
		ldi	$0
		eq?
		bnt	code_0362
		pushi	$20c		; 524, trackSlider
		push1
		push1
		self	$6
		bnot
		jmp	code_037a

code_0362:	pToa	pIsTracking
		bnt	code_037a
		lst	temp[$0]
		ldi	$1
		eq?
		bnt	code_037a
		ldi	$0
		aTop	pIsTracking
		pushi	$50		; 80, 'P', claimed
		push1
		push0
		lap	param[$1]
		send	$6
		bnot
code_037a:	lst	temp[$0]
		ldi	$1
		eq?
		bnt	code_048c
		pushi	$eb		; 235, onMe
		push1
		lsp	param[$1]
		self	$6
		bnot
		bnt	code_048c
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		pushi	$a3		; 163, contains
		push1
		lsp	param[$1]
		pToa	thumb
		send	$6
		bnot
		bnt	code_03b8
		pushi	$20c		; 524, trackSlider
		push1
		push1
		self	$6
		bnot
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		jmp	code_0484

code_03b8:	pushi	$b9		; 185, localize
		push1
		pTos	plane
		lap	param[$1]
		send	$6
		bnot
		pToa	vTracking
		bnt	code_0428
		pToa	pSnapTo
		bnt	code_03fb
		pushi	$20d		; 525, posnToValue
		push1
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$6
		bnot
		aTop	value
		pushi	$20b		; 523, drawThumb
		push2
		pushi	$87		; 135, left
		push0
		pToa	thumb
		send	$4
		bnot
		push
		pushi	$20e		; 526, valueToPosn
		push1
		pTos	value
		self	$6
		bnot
		push
		self	$8
		bnot
		jmp	code_0484

code_03fb:	pushi	$20b		; 523, drawThumb
		push2
		pushi	$87		; 135, left
		push0
		pToa	thumb
		send	$4
		bnot
		push
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$8
		bnot
		pushi	$20d		; 525, posnToValue
		push1
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$6
		bnot
		aTop	value
		jmp	code_0484

code_0428:	pToa	pSnapTo
		bnt	code_045a
		pushi	$20d		; 525, posnToValue
		push1
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$6
		bnot
		aTop	value
		pushi	$20b		; 523, drawThumb
		push2
		pushi	$20e		; 526, valueToPosn
		push1
		pTos	value
		self	$6
		bnot
		push
		pushi	$89		; 137, top
		push0
		pToa	thumb
		send	$4
		bnot
		push
		self	$8
		bnot
		jmp	code_0484

code_045a:	pushi	$20b		; 523, drawThumb
		push2
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$89		; 137, top
		push0
		pToa	thumb
		send	$4
		bnot
		push
		self	$8
		bnot
		pushi	$20d		; 525, posnToValue
		push1
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$6
		bnot
		aTop	value
code_0484:	pushi	$45		; 69, 'E', doit
		push1
		pTos	value
		self	$6
		bnot
code_048c:	pushi	$50		; 80, 'P', claimed
		push0
		lap	param[$1]
		send	$4
		bnot
		ret

Slider::moveTo:
		link	$3
		lsp	param[$1]
		pToa	left
		sub
		sat	temp[$0]
		lsp	param[$2]
		pToa	top
		sub
		sat	temp[$1]
		pToa	vTracking
		bnt	code_04ad
		lat	temp[$1]
		jmp	code_04af

code_04ad:	lat	temp[$0]
code_04af:	sat	temp[$2]
		pTos	maximum
		add
		aTop	maximum
		pTos	minimum
		lat	temp[$2]
		add
		aTop	minimum
		pushi	$db		; 219, moveTo
		push2
		lsp	param[$1]
		lsp	param[$2]
		super	<NIL>, $8
		bnot
		pToa	thumb
		bnt	code_04ed
		pToa	thumbView
		bnt	code_04e0
		pushi	$dd		; 221, moveBy
		push2
		lst	temp[$0]
		lst	temp[$1]
		pToa	thumb
		send	$8
		bnot
		jmp	code_04ed

code_04e0:	pushi	$dd		; 221, moveBy
		push2
		lst	temp[$0]
		lst	temp[$1]
		pToa	thumb
		send	$8
		bnot
code_04ed:	ret

Slider::draw:
		link	$1
		pushi	$57		; 87, 'W', draw
		push0
		super	<NIL>, $4
		bnot
		bnt	code_04fa
		ret

code_04fa:	pToa	bitmap
		sat	temp[$0]
		bnt	code_0511
		push1
		pushSelf
		callk	kernel_31, $2
		bnot
		pushi	$9f		; 159, add
		push1
		pTos	bitmap
		lag	global[$66]
		send	$6
		bnot
code_0511:	pTos	view
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_0548
		pushi	$5		; scaleY
		push0
		pushi	$4e		; 78, 'N', width
		push0
		self	$4
		bnot
		push
		pushi	$e1		; 225, height
		push0
		self	$4
		bnot
		push
		pTos	skip
		pTos	back
		callk	kernel_35, $a
		bnot
		aTop	bitmap
		pushi	$7		; priority
		pushi	$3		; z
		pTos	bitmap
		pTos	view
		pTos	loop
		pTos	cel
		push0
		push0
		callk	kernel_35, $e
		bnot
		jmp	code_0564

code_0548:	pushi	$5		; scaleY
		push0
		pushi	$4e		; 78, 'N', width
		push0
		self	$4
		bnot
		push
		pushi	$e1		; 225, height
		push0
		self	$4
		bnot
		push
		pTos	skip
		pTos	back
		callk	kernel_35, $a
		bnot
		aTop	bitmap
code_0564:	lat	temp[$0]
		bnt	code_056e
		push1
		pushSelf
		callk	kernel_30, $2
		bnot
code_056e:	ret

Slider::drawThumb:
		link	$2
		pToa	thumb
		bnt	code_05e6
		lap	param[$0]
		bnt	code_057e
		lap	param[$1]
		jmp	code_0587

code_057e:	pushi	$87		; 135, left
		push0
		pToa	thumb
		send	$4
		bnot
code_0587:	sat	temp[$0]
		lap	param[$0]
		bnt	code_0591
		lap	param[$2]
		jmp	code_059a

code_0591:	pushi	$89		; 137, top
		push0
		pToa	thumb
		send	$4
		bnot
code_059a:	sat	temp[$1]
		pToa	vTracking
		bnt	code_05ba
		lst	temp[$1]
		pToa	minimum
		lt?
		bnt	code_05ad
		pToa	minimum
		sat	temp[$1]
		jmp	code_05d2

code_05ad:	lst	temp[$1]
		pToa	maximum
		gt?
		bnt	code_05d2
		pToa	maximum
		sat	temp[$1]
		jmp	code_05d2

code_05ba:	lst	temp[$0]
		pToa	minimum
		lt?
		bnt	code_05c7
		pToa	minimum
		sat	temp[$0]
		jmp	code_05d2

code_05c7:	lst	temp[$0]
		pToa	maximum
		gt?
		bnt	code_05d2
		pToa	maximum
		sat	temp[$0]
code_05d2:	pushi	$db		; 219, moveTo
		push2
		lst	temp[$0]
		lst	temp[$1]
		pToa	thumb
		send	$8
		bnot
		push1
		pTos	thumb
		callk	kernel_32, $2
		bnot
code_05e6:	ret

Slider::trackSlider:
		link	$5
		lap	param[$0]
		bnt	code_07c0
		lap	param[$1]
		bnt	code_07c0
		pToa	thumb
		bnt	code_07c0
		pTos	state
		ldi	$1
		and
		bnt	code_07c0
		push1
		push0
		pushi	$f4		; 244, curEvent
		push0
		lag	global[$e]
		send	$4
		bnot
		send	$4
		bnot
		push
		pushi	$87		; 135, left
		push0
		pToa	thumb
		send	$4
		bnot
		sub
		sat	temp[$3]
		push2
		push0
		pushi	$f4		; 244, curEvent
		push0
		lag	global[$e]
		send	$4
		bnot
		send	$4
		bnot
		push
		pushi	$89		; 137, top
		push0
		pToa	thumb
		send	$4
		bnot
		sub
		sat	temp[$4]
code_0636:	pushi	$2b		; 43, '+', type
		push0
		pushi	$f3		; 243, nextEvent
		push1
		pushi	$7fff		; 32767
		lag	global[$e]
		send	$6
		bnot
		sat	temp[$0]
		send	$4
		bnot
		push
		ldi	$2
		ne?
		bnt	code_072c
		pushi	$b9		; 185, localize
		push1
		pTos	plane
		lat	temp[$0]
		send	$6
		bnot
		pToa	vTracking
		bnt	code_06a5
		push2
		push0
		lat	temp[$0]
		send	$4
		bnot
		sat	temp[$1]
		pushi	$89		; 137, top
		push0
		pToa	thumb
		send	$4
		bnot
		push
		lat	temp[$4]
		add
		sat	temp[$2]
		lst	temp[$1]
		pToa	top
		lt?
		bnt	code_0684
		pToa	top
		sat	temp[$1]
code_0684:	lst	temp[$1]
		pToa	bottom
		gt?
		bnt	code_068f
		pToa	bottom
		sat	temp[$1]
code_068f:	pushi	$20b		; 523, drawThumb
		push2
		pushi	$87		; 135, left
		push0
		pToa	thumb
		send	$4
		bnot
		push
		lst	temp[$1]
		self	$8
		bnot
		jmp	code_06e6

code_06a5:	push1
		push0
		lat	temp[$0]
		send	$4
		bnot
		sat	temp[$1]
		pushi	$87		; 135, left
		push0
		pToa	thumb
		send	$4
		bnot
		push
		lat	temp[$3]
		add
		sat	temp[$2]
		lst	temp[$1]
		pToa	left
		lt?
		bnt	code_06c8
		pToa	left
		sat	temp[$1]
code_06c8:	lst	temp[$1]
		pToa	right
		gt?
		bnt	code_06d3
		pToa	right
		sat	temp[$1]
code_06d3:	pushi	$20b		; 523, drawThumb
		push2
		lst	temp[$1]
		pushi	$89		; 137, top
		push0
		pToa	thumb
		send	$4
		bnot
		push
		self	$8
		bnot
code_06e6:	pushi	$20d		; 525, posnToValue
		push1
		pToa	vTracking
		bnt	code_06f9
		pushi	$89		; 137, top
		push0
		pToa	thumb
		send	$4
		bnot
		jmp	code_0702

code_06f9:	pushi	$87		; 135, left
		push0
		pToa	thumb
		send	$4
		bnot
code_0702:	push
		self	$6
		bnot
		aTop	value
		pushi	$45		; 69, 'E', doit
		push1
		pTos	value
		self	$6
		bnot
		pushi	$1d3		; 467, modal
		push0
		pToa	client
		send	$4
		bnot
		push
		ldi	$0
		eq?
		bnt	code_0724
		jmp	code_072c

		jmp	code_0636

code_0724:	push0
		callk	kernel_33, $0
		bnot
		jmp	code_0636

code_072c:	pushi	$20d		; 525, posnToValue
		push1
		lst	temp[$1]
		self	$6
		bnot
		aTop	value
		pToa	pSnapTo
		bnt	code_077d
		pToa	vTracking
		bnt	code_075d
		pushi	$20b		; 523, drawThumb
		push2
		pushi	$87		; 135, left
		push0
		pToa	thumb
		send	$4
		bnot
		push
		pushi	$20e		; 526, valueToPosn
		push1
		pTos	value
		self	$6
		bnot
		push
		self	$8
		bnot
		jmp	code_0778

code_075d:	pushi	$20b		; 523, drawThumb
		push2
		pushi	$20e		; 526, valueToPosn
		push1
		pTos	value
		self	$6
		bnot
		push
		pushi	$89		; 137, top
		push0
		pToa	thumb
		send	$4
		bnot
		push
		self	$8
		bnot
code_0778:	push0
		callk	kernel_33, $0
		bnot
code_077d:	pTos	value
		pToa	topValue
		lt?
		bnt	code_079e
		pTos	value
		pToa	bottomValue
		lt?
		bnt	code_079e
		pTos	bottomValue
		pToa	topValue
		lt?
		bnt	code_0798
		pToa	bottomValue
		aTop	value
		jmp	code_07bd

code_0798:	pToa	topValue
		aTop	value
		jmp	code_07bd

code_079e:	pTos	value
		pToa	topValue
		gt?
		bnt	code_07bd
		pTos	value
		pToa	bottomValue
		gt?
		bnt	code_07bd
		pTos	bottomValue
		pToa	topValue
		lt?
		bnt	code_07b9
		pToa	topValue
		aTop	value
		jmp	code_07bd

code_07b9:	pToa	bottomValue
		aTop	value
code_07bd:	ldi	$1
		ret

code_07c0:	ret

Slider::highlight:
		ret

Slider::move:
		link	$4
		push1
		lsp	param[$1]
		calle	export60025_0, $2
		bnot
		sat	temp[$1]
		ldi	$1
		aTop	stepSize
		lap	param[$1]
		sat	temp[$0]
code_07d8:	pTos	stepSize
		push1
		lst	temp[$0]
		callk	kernel_61, $2
		bnot
		le?
		bnt	code_087f
		pushi	$87		; 135, left
		push0
		pToa	thumb
		send	$4
		bnot
		sat	temp[$2]
		pushi	$89		; 137, top
		push0
		pToa	thumb
		send	$4
		bnot
		sat	temp[$3]
		pToa	vTracking
		bnt	code_0820
		lst	temp[$3]
		lst	temp[$1]
		pToa	stepSize
		mul
		add
		sat	temp[$3]
		push
		pToa	maximum
		gt?
		bnt	code_0813
		pToa	maximum
		sat	temp[$3]
code_0813:	lst	temp[$3]
		pToa	minimum
		lt?
		bnt	code_083f
		pToa	minimum
		sat	temp[$3]
		jmp	code_083f

code_0820:	lst	temp[$2]
		lst	temp[$1]
		pToa	stepSize
		mul
		add
		sat	temp[$2]
		push
		pToa	maximum
		gt?
		bnt	code_0834
		pToa	maximum
		sat	temp[$2]
code_0834:	lst	temp[$2]
		pToa	minimum
		lt?
		bnt	code_083f
		pToa	minimum
		sat	temp[$2]
code_083f:	pushi	$20b		; 523, drawThumb
		push2
		lst	temp[$2]
		lst	temp[$3]
		self	$8
		bnot
		pushi	$20d		; 525, posnToValue
		push1
		pToa	vTracking
		bnt	code_0856
		lat	temp[$3]
		jmp	code_0858

code_0856:	lat	temp[$2]
code_0858:	push
		self	$6
		bnot
		aTop	value
		lsp	param[$0]
		ldi	$2
		lt?
		bt	code_0868
		lap	param[$2]
		not
code_0868:	bnt	code_0872
		pushi	$45		; 69, 'E', doit
		push1
		pTos	value
		self	$6
		bnot
code_0872:	lst	temp[$0]
		pTos	stepSize
		lat	temp[$1]
		mul
		sub
		sat	temp[$0]
		jmp	code_07d8

code_087f:	pToa	value
		ret

Slider::doit:
		pToa	handler
		bnt	code_088d
		pushi	$45		; 69, 'E', doit
		push1
		pushSelf
		send	$6
		bnot
code_088d:	pToa	theObj
		bnt	code_08a0
		push2
		push
		pTos	theSelector
		&rest	$1
		calle	export60025_5, $4
		bnot
		jmp	code_08a2

code_08a0:	pToa	value
code_08a2:	ret

Slider::posnToValue:
		link	$2
		lap	param[$0]
		bnt	code_08ad
		lap	param[$1]
		jmp	code_08c5

code_08ad:	pToa	vTracking
		bnt	code_08bc
		pushi	$89		; 137, top
		push0
		pToa	thumb
		send	$4
		bnot
		jmp	code_08c5

code_08bc:	pushi	$87		; 135, left
		push0
		pToa	thumb
		send	$4
		bnot
code_08c5:	sat	temp[$0]
		pToa	vTracking
		bnt	code_08e5
		pushi	$e1		; 225, height
		push0
		self	$4
		bnot
		push
		push1
		pTos	topValue
		pToa	bottomValue
		sub
		push
		callk	kernel_61, $2
		bnot
		push
		ldi	$1
		add
		div
		jmp	code_08fc

code_08e5:	pushi	$4e		; 78, 'N', width
		push0
		self	$4
		bnot
		push
		push1
		pTos	topValue
		pToa	bottomValue
		sub
		push
		callk	kernel_61, $2
		bnot
		push
		ldi	$1
		add
		div
code_08fc:	sat	temp[$1]
		pTos	bottomValue
		pToa	pSnapTo
		bnt	code_0913
		pTos	maximum
		lat	temp[$1]
		add
		push
		ldi	$ff		; 255, asInteger
		add
		push
		lat	temp[$0]
		sub
		jmp	code_0923

code_0913:	pTos	maximum
		lst	temp[$1]
		ldi	$2
		div
		add
		push
		ldi	$ff		; 255, asInteger
		add
		push
		lat	temp[$0]
		sub
code_0923:	push
		pTos	topValue
		pToa	bottomValue
		sub
		mul
		push
		pTos	maximum
		pToa	minimum
		sub
		div
		add
		ret

Slider::valueToPosn:
		link	$1
		lap	param[$0]
		bnt	code_093d
		lap	param[$1]
		jmp	code_0943

code_093d:	pushi	$45		; 69, 'E', doit
		push0
		self	$4
		bnot
code_0943:	sat	temp[$0]
		push
		pToa	topValue
		lt?
		bnt	code_0963
		lst	temp[$0]
		pToa	bottomValue
		lt?
		bnt	code_0963
		pTos	bottomValue
		pToa	topValue
		lt?
		bnt	code_095e
		pToa	maximum
		jmp	code_09a5

code_095e:	pToa	minimum
		jmp	code_09a5

code_0963:	lst	temp[$0]
		pToa	topValue
		gt?
		bnt	code_0983
		lst	temp[$0]
		pToa	bottomValue
		gt?
		bnt	code_0983
		pTos	bottomValue
		pToa	topValue
		lt?
		bnt	code_097e
		pToa	minimum
		jmp	code_09a5

code_097e:	pToa	maximum
		jmp	code_09a5

code_0983:	pTos	minimum
		push1
		pTos	topValue
		lat	temp[$0]
		sub
		push
		callk	kernel_61, $2
		bnot
		push
		pTos	maximum
		pToa	minimum
		sub
		mul
		push
		push1
		pTos	topValue
		pToa	bottomValue
		sub
		push
		callk	kernel_61, $2
		bnot
		div
		add
code_09a5:	ret

Slider::update:
		link	$1
		pushi	$20e		; 526, valueToPosn
		push0
		self	$4
		bnot
		push
		pToa	vTracking
		bnt	code_09bf
		pushi	$89		; 137, top
		push0
		pToa	thumb
		send	$4
		bnot
		jmp	code_09c8

code_09bf:	pushi	$87		; 135, left
		push0
		pToa	thumb
		send	$4
		bnot
code_09c8:	sub
		sat	temp[$0]
		bnt	code_09d6
		pushi	$d7		; 215, move
		push2
		push
		push1
		self	$8
		bnot
code_09d6:	ret

Slider::setSize:
		pTos	view
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_09ed
		pushi	$e6		; 230, sizeToCel
		pushi	$3		; z
		pTos	view
		pTos	loop
		pTos	cel
		self	$a
		bnot
code_09ed:	ret

Slider::advance:
		link	$1
		pushi	$45		; 69, 'E', doit
		push0
		self	$4
		bnot
		push
		push1
		pTos	bottomValue
		pToa	topValue
		sub
		push
		calle	export60025_0, $2
		bnot
		add
		sat	temp[$0]
		pushi	$d7		; 215, move
		push2
		push2
		push0
		pushi	$20e		; 526, valueToPosn
		push1
		push
		self	$6
		bnot
		push
		pToa	vTracking
		bnt	code_0a26
		pushi	$89		; 137, top
		push0
		pToa	thumb
		send	$4
		bnot
		jmp	code_0a2f

code_0a26:	pushi	$87		; 135, left
		push0
		pToa	thumb
		send	$4
		bnot
code_0a2f:	sub
		push
		calle	export60025_3, $4
		bnot
		push
		push1
		self	$8
		bnot
		pushi	$45		; 69, 'E', doit
		push1
		lst	temp[$0]
		self	$6
		bnot
		ret

Slider::retreat:
		link	$1
		pushi	$45		; 69, 'E', doit
		push0
		self	$4
		bnot
		push
		push1
		pTos	bottomValue
		pToa	topValue
		sub
		push
		calle	export60025_0, $2
		bnot
		sub
		sat	temp[$0]
		pushi	$d7		; 215, move
		push2
		push2
		push0
		pushi	$20e		; 526, valueToPosn
		push1
		push
		self	$6
		bnot
		push
		pToa	vTracking
		bnt	code_0a7e
		pushi	$89		; 137, top
		push0
		pToa	thumb
		send	$4
		bnot
		jmp	code_0a87

code_0a7e:	pushi	$87		; 135, left
		push0
		pToa	thumb
		send	$4
		bnot
code_0a87:	sub
		push
		calle	export60025_2, $4
		bnot
		push
		push1
		self	$8
		bnot
		pushi	$45		; 69, 'E', doit
		push1
		lst	temp[$0]
		self	$6
		bnot
		ret

Slider::updateThumb:
		lap	param[$0]
		bnt	code_0aa6
		lap	param[$1]
		aTop	value
code_0aa6:	pToa	vTracking
		bnt	code_0ac9
		pushi	$20b		; 523, drawThumb
		push2
		pushi	$87		; 135, left
		push0
		pToa	thumb
		send	$4
		bnot
		push
		pushi	$20e		; 526, valueToPosn
		push1
		pTos	value
		self	$6
		bnot
		push
		self	$8
		bnot
		jmp	code_0ae4

code_0ac9:	pushi	$20b		; 523, drawThumb
		push2
		pushi	$20e		; 526, valueToPosn
		push1
		pTos	value
		self	$6
		bnot
		push
		pushi	$89		; 137, top
		push0
		pToa	thumb
		send	$4
		bnot
		push
		self	$8
		bnot
code_0ae4:	ret

