Act::init:
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	Prop, $4
		bnot
		pToa	x
		aTop	xLast
		pToa	y
		aTop	yLast
		ret

Act::dispose:
		pTos	mover
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_0120
		pushi	$15c		; 348, setMotion
		push1
		push0
		self	$6
		bnot
code_0120:	pushi	$1a4		; 420, setAvoider
		push1
		push0
		self	$6
		bnot
		pToa	baseSetter
		bnt	code_0137
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	baseSetter
code_0137:	pToa	looper
		bnt	code_0146
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	looper
code_0146:	pToa	viewer
		bnt	code_0155
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	viewer
code_0155:	pToa	blocks
		bnt	code_0164
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	blocks
code_0164:	pToa	code
		bnt	code_0173
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	code
code_0173:	pushi	$95		; 149, dispose
		push0
		super	Prop, $4
		bnot
		ret

Act::doit:
		link	$4
		pToa	script
		bnt	code_0188
		pushi	$45		; 69, 'E', doit
		push0
		send	$4
		bnot
code_0188:	pTos	signal
		ldi	$1
		and
		bnt	code_0275
		pToa	mover
		bnt	code_019a
		pushi	$45		; 69, 'E', doit
		push0
		send	$4
		bnot
code_019a:	pToa	cycler
		bnt	code_01a4
		pushi	$45		; 69, 'E', doit
		push0
		send	$4
		bnot
code_01a4:	pTos	-info-
		ldi	$8		; fixPriority
		and
		bnt	code_0275
		pTos	cel
		ldi	$0
		lt?
		bnt	code_01b7
		ldi	$0
		aTop	cel
code_01b7:	pTos	scaleSignal
		ldi	$1
		and
		bnt	code_0240
		pToa	scaleX
		sat	temp[$3]
		pToa	scaler
		bnt	code_01cd
		pushi	$45		; 69, 'E', doit
		push0
		send	$4
		bnot
code_01cd:	pushi	$17c		; 380, isNotHidden
		push0
		self	$4
		bnot
		bnt	code_01dd
		pushi	$1ad		; 429, update
		push0
		self	$4
		bnot
code_01dd:	ldi	$0
		bnt	code_0250
		pTos	scaleSignal
		ldi	$4		; scaleX
		and
		not
		bnt	code_0250
		pTos	scaleX
		lat	temp[$3]
		ne?
		bnt	code_0250
		pTos	origStep
		ldi	$8		; fixPriority
		shr
		push
		pToa	scaleX
		mul
		push
		ldi	$80		; 128, lastKey
		div
		sat	temp[$2]
		bnt	code_0205
		jmp	code_0207

code_0205:	ldi	$1
code_0207:	sat	temp[$0]
		pTos	origStep
		ldi	$ff		; 255, asInteger
		and
		push
		pToa	scaleY
		mul
		push
		ldi	$80		; 128, lastKey
		div
		sat	temp[$2]
		bnt	code_021e
		jmp	code_0220

code_021e:	ldi	$1
code_0220:	sat	temp[$1]
		lst	temp[$0]
		pToa	xStep
		ne?
		bt	code_022e
		lst	temp[$1]
		pToa	yStep
		ne?
code_022e:	bnt	code_0250
		pushi	$1a9		; 425, setStep
		pushi	$3		; z
		lst	temp[$0]
		lst	temp[$1]
		push1
		self	$a
		bnot
		jmp	code_0250

code_0240:	pushi	$17c		; 380, isNotHidden
		push0
		self	$4
		bnot
		bnt	code_0250
		pushi	$1ad		; 429, update
		push0
		self	$4
		bnot
code_0250:	pTos	signal
		ldi	$20		; 32, ' ', name
		and
		not
		bnt	code_025a
		jmp	code_026d

code_025a:	pToa	baseSetter
		bnt	code_0267
		pushi	$45		; 69, 'E', doit
		push1
		pushSelf
		send	$6
		bnot
		jmp	code_026d

code_0267:	push1
		pushSelf
		callk	kernel_94, $2
		bnot
code_026d:	pToa	x
		aTop	xLast
		pToa	y
		aTop	yLast
code_0275:	ret

Act::posn:
		pushi	$dc		; 220, posn
		push2
		lsp	param[$1]
		lsp	param[$2]
		&rest	$3		; z
		super	Prop, $8
		bnot
		lap	param[$1]
		aTop	xLast
		lap	param[$2]
		aTop	yLast
		ret

Act::setMotion:
		pToa	mover
		bnt	code_02a0
		push
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_02a0
		pushi	$95		; 149, dispose
		push0
		pToa	mover
		send	$4
		bnot
code_02a0:	lap	param[$1]
		bnt	code_02ca
		pushi	$96		; 150, isClass
		push0
		send	$4
		bnot
		bnt	code_02b8
		pushi	$8d		; 141, new
		push0
		lap	param[$1]
		send	$4
		bnot
		jmp	code_02ba

code_02b8:	lap	param[$1]
code_02ba:	aTop	mover
		pushi	$94		; 148, init
		push1
		pushSelf
		&rest	$2
		pToa	mover
		send	$6
		bnot
		jmp	code_02ce

code_02ca:	ldi	$0
		aTop	mover
code_02ce:	ret

Act::setAvoider:
		pToa	avoider
		bnt	code_02da
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
code_02da:	lap	param[$1]
		bnt	code_02f7
		pushi	$1007		; 4103, -info-
		push0
		send	$4
		bnot
		push
		ldi	$8000		; -32768
		and
		bnt	code_02f7
		pushi	$8d		; 141, new
		push0
		lap	param[$1]
		send	$4
		bnot
		jmp	code_02f9

code_02f7:	lap	param[$1]
code_02f9:	aTop	avoider
		pToa	avoider
		bnt	code_0309
		pushi	$94		; 148, init
		push1
		pushSelf
		&rest	$2
		send	$6
		bnot
code_0309:	ret

Act::isStopped:
		pToa	mover
		not
		bt	code_0329
		pTos	x
		pushi	$155		; 341, xLast
		push0
		pToa	mover
		send	$4
		bnot
		eq?
		bnt	code_0329
		pTos	y
		pushi	$151		; 337, yLast
		push0
		pToa	mover
		send	$4
		bnot
		eq?
code_0329:	ret

Act::isBlocked:
		pTos	signal
		ldi	$400		; 1024, pEndurance
		and
		ret

Act::ignoreHorizon:
		lap	param[$0]
		not
		bt	code_0338
		lap	param[$1]
code_0338:	bnt	code_0344
		pTos	signal
		ldi	$2000		; 8192
		or
		aTop	signal
		jmp	code_034c

code_0344:	pTos	signal
		ldi	$dfff		; -8193
		and
		aTop	signal
code_034c:	ret

Act::observeBlocks:
		pToa	blocks
		not
		bnt	code_035d
		pushi	$8d		; 141, new
		push0
		class	Set
		send	$4
		bnot
		aTop	blocks
code_035d:	pushi	$9f		; 159, add
		push0
		&rest	$1
		pToa	blocks
		send	$4
		bnot
		ret

Act::ignoreBlocks:
		pToa	blocks
		bnt	code_038d
		pushi	$58		; 88, 'X', delete
		push0
		&rest	$1
		send	$4
		bnot
		pushi	$a4		; 164, isEmpty
		push0
		pToa	blocks
		send	$4
		bnot
		bnt	code_038d
		pushi	$95		; 149, dispose
		push0
		pToa	blocks
		send	$4
		bnot
		ldi	$0
		aTop	blocks
code_038d:	ret

Act::distanceTo:
		pushi	$5		; scaleY
		pTos	x
		pTos	y
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lsg	global[$3f]
		callk	kernel_64, $a
		bnot
		ret

Act::cantBeHere:
		link	$1
		ldi	$0
		ret

		pTos	signal
		ldi	$20		; 32, ' ', name
		and
		not
		bnt	code_03ba
		jmp	code_03cd

code_03ba:	pToa	baseSetter
		bnt	code_03c7
		pushi	$45		; 69, 'E', doit
		push1
		pushSelf
		send	$6
		bnot
		jmp	code_03cd

code_03c7:	push1
		pushSelf
		callk	kernel_94, $2
		bnot
code_03cd:	push2
		pushSelf
		pushi	$24		; 36, '$', elements
		push0
		pushi	$f2		; 242, pCast
		push0
		lag	global[$3]
		send	$4
		bnot
		send	$4
		bnot
		push
		callk	kernel_96, $4
		bnot
		bnt	code_03e7
		jmp	code_0417

code_03e7:	pTos	signal
		ldi	$2000		; 8192
		and
		not
		bnt	code_0404
		lag	global[$3]
		bnt	code_0404
		pTos	y
		pushi	$1ae		; 430, horizon
		push0
		send	$4
		bnot
		lt?
		bnt	code_0404
		ldi	$ff		; 255, asInteger
		jmp	code_0417

code_0404:	pToa	blocks
		bnt	code_0417
		pushi	$a2		; 162, allTrue
		push2
		pushi	$45		; 69, 'E', doit
		pushSelf
		send	$8
		bnot
		not
		bnt	code_0417
		ldi	$fe		; 254, strIndex
code_0417:	sat	temp[$0]
		ret

Act::inRect:
		lsp	param[$0]
		ldi	$1
		eq?
		bnt	code_0430
		pushi	$a3		; 163, contains
		push2
		pTos	x
		pTos	y
		lap	param[$1]
		send	$8
		bnot
		jmp	code_044a

code_0430:	lsp	param[$1]
		pToa	x
		le?
		bnt	code_044a
		pTos	x
		lap	param[$3]
		lt?
		bnt	code_044a
		lsp	param[$2]
		pToa	y
		le?
		bnt	code_044a
		pTos	y
		lap	param[$4]
		lt?
code_044a:	ret

Act::setStep:
		link	$2
		pTos	origStep
		ldi	$8		; fixPriority
		shr
		sat	temp[$0]
		pTos	origStep
		ldi	$ff		; 255, asInteger
		and
		sat	temp[$1]
		lsp	param[$0]
		ldi	$1
		ge?
		bnt	code_046e
		lsp	param[$1]
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_046e
		lap	param[$1]
		sat	temp[$0]
code_046e:	lsp	param[$0]
		ldi	$2
		ge?
		bnt	code_0480
		lsp	param[$2]
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_0480
		lap	param[$2]
		sat	temp[$1]
code_0480:	lsp	param[$0]
		ldi	$3		; z
		lt?
		bt	code_048a
		lap	param[$3]
		not
code_048a:	bnt	code_0497
		lst	temp[$0]
		ldi	$8		; fixPriority
		shl
		push
		lat	temp[$1]
		add
		aTop	origStep
code_0497:	lat	temp[$0]
		aTop	xStep
		lat	temp[$1]
		aTop	yStep
		pToa	mover
		bnt	code_04c8
		pushi	$98		; 152, isMemberOf
		push1
		class	MoveTo
		push
		pToa	mover
		send	$6
		bnot
		bt	code_04bd
		pushi	$98		; 152, isMemberOf
		push1
		class	PolyPath
		push
		pToa	mover
		send	$6
		bnot
code_04bd:	bnt	code_04c8
		pushi	$94		; 148, init
		push0
		pToa	mover
		send	$4
		bnot
code_04c8:	ret

Act::setDirection:
		link	$c
		pushi	$6c		; 108, 'l', vanishingY
		push0
		lag	global[$3]
		send	$4
		bnot
		sat	temp[$1]
		push
		ldi	$8ad0		; -30000
		eq?
		bnt	code_04e0
		pToa	x
		jmp	code_04e8

code_04e0:	pushi	$6b		; 107, 'k', vanishingX
		push0
		lag	global[$3]
		send	$4
		bnot
code_04e8:	sat	temp[$0]
		pTos	xStep
		ldi	$0
		eq?
		bnt	code_04f9
		pTos	yStep
		ldi	$0
		eq?
		bnt	code_04f9
		ret

code_04f9:	pushi	$7d00		; 32000
		push2
		pTos	xStep
		pTos	yStep
		calle	export60025_3, $4
		bnot
		div
		sat	temp[$5]
		lsp	param[$1]
		dup
		ldi	$0
		eq?
		bnt	code_051f
		pushi	$15c		; 348, setMotion
		push1
		push0
		self	$6
		bnot
		ret

		jmp	code_05b9

code_051f:	dup
		ldi	$1
		eq?
		bnt	code_0536
		lst	temp[$0]
		pToa	x
		sub
		sat	temp[$2]
		lst	temp[$1]
		pToa	y
		sub
		sat	temp[$3]
		jmp	code_05b9

code_0536:	dup
		ldi	$5		; scaleY
		eq?
		bnt	code_054d
		pTos	x
		lat	temp[$0]
		sub
		sat	temp[$2]
		pTos	y
		lat	temp[$1]
		sub
		sat	temp[$3]
		jmp	code_05b9

code_054d:	dup
		ldi	$3		; z
		eq?
		bnt	code_055e
		lat	temp[$5]
		sat	temp[$2]
		ldi	$0
		sat	temp[$3]
		jmp	code_05b9

code_055e:	dup
		ldi	$7		; priority
		eq?
		bnt	code_0570
		lat	temp[$5]
		neg
		sat	temp[$2]
		ldi	$0
		sat	temp[$3]
		jmp	code_05b9

code_0570:	pushi	$b4		; 180, end
		pushi	$4		; scaleX
		pTos	x
		pTos	y
		lst	temp[$0]
		lst	temp[$1]
		callk	kernel_63, $8
		bnot
		sat	temp[$4]
		lt?
		bnt	code_058e
		lst	temp[$4]
		ldi	$168		; 360, pY1
		sub
		sat	temp[$4]
code_058e:	lst	temp[$4]
		ldi	$5a		; 90, 'Z', size
		add
		push
		ldi	$2
		div
		push
		pushi	$2d		; 45, '-', cursor
		lsp	param[$1]
		ldi	$2
		sub
		mul
		add
		sat	temp[$4]
		push2
		push
		pushi	$64		; 100, 'd', moveDone
		callk	kernel_66, $4
		bnot
		sat	temp[$2]
		push2
		lst	temp[$4]
		pushi	$64		; 100, 'd', moveDone
		callk	kernel_67, $4
		bnot
		neg
		sat	temp[$3]
code_05b9:	toss
		lst	temp[$5]
		ldi	$5		; scaleY
		div
		sat	temp[$5]
code_05c1:	push1
		lst	temp[$3]
		callk	kernel_61, $2
		bnot
		push
		lat	temp[$5]
		lt?
		bnt	code_05eb
		push1
		lst	temp[$2]
		callk	kernel_61, $2
		bnot
		push
		lat	temp[$5]
		lt?
		bnt	code_05eb
		lst	temp[$2]
		ldi	$5		; scaleY
		mul
		sat	temp[$2]
		lst	temp[$3]
		ldi	$5		; scaleY
		mul
		sat	temp[$3]
		jmp	code_05c1

code_05eb:	pushi	$16d		; 365, obstacles
		push0
		lag	global[$3]
		send	$4
		bnot
		sat	temp[$7]
		bnt	code_06f9
		lag	global[$4b]
		bnt	code_06f9
		pushi	$8d		; 141, new
		push0
		class	IntArray
		send	$4
		bnot
		sat	temp[$6]
		pushi	$88		; 136, right
		push0
		pToa	plane
		send	$4
		bnot
		push
		pushi	$87		; 135, left
		push0
		pToa	plane
		send	$4
		bnot
		sub
		push
		ldi	$1
		add
		sat	temp[$a]
		pushi	$8a		; 138, bottom
		push0
		pToa	plane
		send	$4
		bnot
		push
		pushi	$89		; 137, top
		push0
		pToa	plane
		send	$4
		bnot
		sub
		push
		ldi	$1
		add
		sat	temp[$b]
		pushi	$d3		; 211, copy
		push1
		pushi	$8		; fixPriority
		pTos	x
		pTos	y
		pTos	x
		lat	temp[$2]
		add
		push
		pTos	y
		lat	temp[$3]
		add
		push
		lst	temp[$7]
		lst	temp[$a]
		lst	temp[$b]
		push0
		callk	kernel_100, $10
		bnot
		push
		lat	temp[$6]
		send	$6
		bnot
		pushi	$4b		; 75, 'K', at
		push1
		push2
		lat	temp[$6]
		send	$6
		bnot
		sat	temp[$8]
		pushi	$4b		; 75, 'K', at
		push1
		pushi	$3		; z
		lat	temp[$6]
		send	$6
		bnot
		sat	temp[$9]
		lst	temp[$8]
		pToa	x
		sub
		sat	temp[$2]
		lst	temp[$9]
		pToa	y
		sub
		sat	temp[$3]
		lag	global[$2e]
		bnt	code_06f0
		pushi	$d3		; 211, copy
		push1
		pushi	$8		; fixPriority
		pTos	x
		pTos	y
		lst	temp[$8]
		lst	temp[$9]
		push
		lst	temp[$a]
		lst	temp[$b]
		push0
		callk	kernel_100, $10
		bnot
		push
		lat	temp[$6]
		send	$6
		bnot
		pushi	$4b		; 75, 'K', at
		push1
		push2
		lat	temp[$6]
		send	$6
		bnot
		push
		pTos	x
		lat	temp[$2]
		add
		ne?
		bt	code_06cf
		pushi	$4b		; 75, 'K', at
		push1
		pushi	$3		; z
		lat	temp[$6]
		send	$6
		bnot
		push
		pTos	y
		lat	temp[$3]
		add
		ne?
code_06cf:	bnt	code_06f0
		pushi	$4b		; 75, 'K', at
		push1
		push2
		lat	temp[$6]
		send	$6
		bnot
		push
		pToa	x
		sub
		sat	temp[$2]
		pushi	$4b		; 75, 'K', at
		push1
		pushi	$3		; z
		lat	temp[$6]
		send	$6
		bnot
		push
		pToa	y
		sub
		sat	temp[$3]
code_06f0:	pushi	$95		; 149, dispose
		push0
		lat	temp[$6]
		send	$4
		bnot
code_06f9:	ret

Act::motionCue:
		pToa	mover
		bnt	code_0710
		pushi	$154		; 340, completed
		push0
		send	$4
		bnot
		bnt	code_0710
		pushi	$159		; 345, motionCue
		push0
		pToa	mover
		send	$4
		bnot
code_0710:	pushi	$159		; 345, motionCue
		push0
		super	Prop, $4
		bnot
		ret

Act::setLooper:
		link	$1
		pToa	looper
		bnt	code_072a
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	looper
code_072a:	lap	param[$0]
		bnt	code_075f
		lap	param[$1]
		bnt	code_075f
		pushi	$1007		; 4103, -info-
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$8000		; -32768
		and
		bnt	code_074f
		pushi	$8d		; 141, new
		push0
		lap	param[$1]
		send	$4
		bnot
		jmp	code_0751

code_074f:	lap	param[$1]
code_0751:	sat	temp[$0]
		pushi	$94		; 148, init
		push1
		pushSelf
		&rest	$2
		aTop	looper
		send	$6
		bnot
code_075f:	ret

Act::checkDetail:
		pToa	detailLevel
		not
		bnt	code_0768
		jmp	code_078f

code_0768:	lap	param[$0]
		bnt	code_0770
		lap	param[$1]
		jmp	code_0779

code_0770:	pushi	$19e		; 414, detailLevel
		push0
		lag	global[$2]
		send	$4
		bnot
code_0779:	push
		pToa	detailLevel
		lt?
		bnt	code_0788
		pTos	signal
		ldi	$fe		; 254, strIndex
		and
		aTop	signal
		jmp	code_078f

code_0788:	pTos	signal
		ldi	$1
		or
		aTop	signal
code_078f:	ret

Act::setSpeed:
		lap	param[$0]
		bnt	code_079a
		lap	param[$1]
		aTop	cycleSpeed
		aTop	moveSpeed
code_079a:	pToa	moveSpeed
		ret

Act::setHeading:
		lap	param[$0]
		bnt	code_07a5
		lap	param[$1]
		aTop	heading
code_07a5:	pToa	looper
		bnt	code_07c3
		pushi	$45		; 69, 'E', doit
		pushi	$3		; z
		pushSelf
		pTos	heading
		lsp	param[$0]
		ldi	$2
		ge?
		bnt	code_07ba
		lap	param[$2]
code_07ba:	push
		pToa	looper
		send	$a
		bnot
		jmp	code_07f6

code_07c3:	push2
		pushSelf
		pTos	heading
		callk	kernel_95, $4
		bnot
		lsp	param[$0]
		ldi	$2
		ge?
		bnt	code_07e1
		lap	param[$2]
		bnt	code_07e1
		pushi	$c7		; 199, cue
		push0
		&rest	$3		; z
		lap	param[$2]
		send	$4
		bnot
code_07e1:	pToa	cycler
		bnt	code_07f6
		pushi	$15e		; 350, clientLastCel
		push1
		pushi	$161		; 353, lastCel
		push0
		self	$4
		bnot
		push
		pToa	cycler
		send	$6
		bnot
code_07f6:	pToa	heading
		ret

Act::setScale:
		pToa	scaler
		bnt	code_0808
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	scaler
code_0808:	lsp	param[$0]
		dup
		ldi	$0
		eq?
		bnt	code_081b
		pushi	$19a		; 410, setScale
		push0
		super	Prop, $4
		bnot
		jmp	code_08ab

code_081b:	dup
		ldi	$1
		eq?
		bnt	code_082e
		pushi	$19a		; 410, setScale
		push1
		lsp	param[$1]
		super	Prop, $6
		bnot
		jmp	code_08ab

code_082e:	dup
		ldi	$2
		eq?
		bnt	code_086a
		pushi	$8d		; 141, new
		push0
		pushi	$144		; 324, scaler
		push0
		lap	param[$1]
		send	$4
		bnot
		send	$4
		bnot
		aTop	scaler
		pushi	$6a		; 106, 'j', scaleSignal
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	scaleSignal
		pushi	$6		; maxScale
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	maxScale
		pushi	$36		; 54, '6', client
		push1
		pushSelf
		pushi	$45		; 69, 'E', doit
		push0
		pToa	scaler
		send	$a
		bnot
		jmp	code_08ab

code_086a:	pushi	$1007		; 4103, -info-
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$8000		; -32768
		and
		bnt	code_0885
		pushi	$8d		; 141, new
		push0
		lap	param[$1]
		send	$4
		bnot
		jmp	code_0887

code_0885:	lap	param[$1]
code_0887:	aTop	scaler
		pTos	scaleSignal
		ldi	$1
		or
		aTop	scaleSignal
		pTos	scaleSignal
		ldi	$fd		; 253, strip
		and
		aTop	scaleSignal
		pushi	$94		; 148, init
		pushi	$5		; scaleY
		pushSelf
		lsp	param[$2]
		lsp	param[$3]
		lsp	param[$4]
		lsp	param[$5]
		pToa	scaler
		send	$e
		bnot
code_08ab:	toss
		ret

Act::update:
		pushi	$17c		; 380, isNotHidden
		push0
		self	$4
		bnot
		bnt	code_08bc
		push1
		pushSelf
		callk	kernel_32, $2
		bnot
code_08bc:	ret

