Plane::init:
		pToa	casts
		not
		bnt	code_009b
		pushi	$9f		; 159, add
		push0
		pushi	$8d		; 141, new
		push0
		class	Cast
		send	$4
		bnot
		aTop	casts
		send	$4
		bnot
code_009b:	push0
		push1
		pushSelf
		pToa	casts
		send	$6
		bnot
		pushi	$57		; 87, 'W', draw
		push0
		self	$4
		bnot
		lap	param[$0]
		bnt	code_00c4
		pushi	$b5		; 181, set
		pushi	$4		; scaleX
		lsp	param[$1]
		lsp	param[$2]
		lsp	param[$3]
		lsp	param[$4]
		self	$c
		bnot
		push1
		pushSelf
		callk	kernel_42, $2
		bnot
code_00c4:	ret

Plane::dispose:
		link	$1
		pToa	casts
		bnt	code_00e8
		lag	global[$3]
		bnt	code_00df
		pushi	$58		; 88, 'X', delete
		push1
		pushi	$f2		; 242, pCast
		push0
		send	$4
		bnot
		push
		pToa	casts
		send	$6
		bnot
code_00df:	pushi	$95		; 149, dispose
		push0
		pToa	casts
		send	$4
		bnot
code_00e8:	ldi	$0
		aTop	bitmap
		aTop	casts
		pushi	$1ba		; 442, erase
		push0
		self	$4
		bnot
		push1
		pushSelf
		callk	kernel_11, $2
		bnot
		ret

Plane::addCast:
		pToa	casts
		bnt	code_011a
		pushi	$9f		; 159, add
		push1
		pushi	$9f		; 159, add
		push0
		push0
		push1
		pushSelf
		pushi	$9a		; 154, yourself
		push0
		lap	param[$1]
		send	$e
		bnot
		push
		pToa	casts
		send	$6
		bnot
code_011a:	ret

Plane::deleteCast:
		pToa	casts
		bnt	code_0134
		pushi	$58		; 88, 'X', delete
		push1
		push0
		push1
		push0
		pushi	$9a		; 154, yourself
		push0
		lap	param[$1]
		send	$a
		bnot
		push
		pToa	casts
		send	$6
		bnot
code_0134:	ret

Plane::draw:
		pushi	$a3		; 163, contains
		push1
		pushSelf
		lag	global[$25]
		send	$6
		bnot
		not
		bnt	code_0154
		push1
		pushSelf
		callk	kernel_40, $2
		bnot
		pushi	$9f		; 159, add
		push1
		pushSelf
		lag	global[$25]
		send	$6
		bnot
		jmp	code_015a

code_0154:	push1
		pushSelf
		callk	kernel_42, $2
		bnot
code_015a:	ret

Plane::erase:
		pushi	$a3		; 163, contains
		push1
		pushSelf
		lag	global[$25]
		send	$6
		bnot
		bnt	code_0176
		pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		lag	global[$25]
		send	$6
		bnot
		push1
		pushSelf
		callk	kernel_41, $2
		bnot
code_0176:	ret

Plane::drawPic:
		lap	param[$1]
		aTop	picture
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_0186
		lap	param[$2]
		aTop	style
code_0186:	pTos	style
		ldi	$400		; 1024, pEndurance
		and
		bnt	code_0192
		ldi	$1
		jmp	code_0194

code_0192:	ldi	$0
code_0194:	aTop	mirrored
		pushi	$45		; 69, 'E', doit
		push2
		pushSelf
		pTos	style
		class	Styler
		send	$8
		bnot
		push1
		pushSelf
		callk	kernel_42, $2
		bnot
		ret

Plane::posn:
		link	$8
		lsp	param[$0]
		ldi	$2
		gt?
		bnt	code_01df
		pushi	$87		; 135, left
		push0
		lap	param[$3]
		send	$4
		bnot
		sat	temp[$2]
		pushi	$89		; 137, top
		push0
		lap	param[$3]
		send	$4
		bnot
		sat	temp[$3]
		pushi	$88		; 136, right
		push0
		lap	param[$3]
		send	$4
		bnot
		sat	temp[$4]
		pushi	$8a		; 138, bottom
		push0
		lap	param[$3]
		send	$4
		bnot
		sat	temp[$5]
		jmp	code_022c

code_01df:	lag	global[$3]
		bnt	code_021a
		push0
		push0
		send	$4
		bnot
		sat	temp[$6]
		bnt	code_021a
		pushi	$87		; 135, left
		push0
		lat	temp[$6]
		send	$4
		bnot
		sat	temp[$2]
		pushi	$89		; 137, top
		push0
		lat	temp[$6]
		send	$4
		bnot
		sat	temp[$3]
		pushi	$88		; 136, right
		push0
		lat	temp[$6]
		send	$4
		bnot
		sat	temp[$4]
		pushi	$8a		; 138, bottom
		push0
		lat	temp[$6]
		send	$4
		bnot
		sat	temp[$5]
		jmp	code_022c

code_021a:	ldi	$0
		sat	temp[$2]
		ldi	$0
		sat	temp[$3]
		ldi	$27f		; 639, rename
		sat	temp[$4]
		ldi	$1df		; 479, validKey
		sat	temp[$5]
code_022c:	pTos	right
		pToa	left
		sub
		sat	temp[$0]
		pTos	bottom
		pToa	top
		sub
		sat	temp[$1]
		lsp	param[$1]
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_0255
		lst	temp[$2]
		lst	temp[$4]
		lat	temp[$2]
		sub
		push
		lat	temp[$0]
		sub
		push
		ldi	$2
		div
		add
		sap	param[$1]
		jmp	code_025c

code_0255:	lsp	param[$1]
		lat	temp[$2]
		add
		sap	param[$1]
code_025c:	lsp	param[$2]
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_0277
		lst	temp[$3]
		lst	temp[$5]
		lat	temp[$3]
		sub
		push
		lat	temp[$1]
		sub
		push
		ldi	$2
		div
		add
		sap	param[$2]
		jmp	code_027e

code_0277:	lsp	param[$2]
		lat	temp[$3]
		add
		sap	param[$2]
code_027e:	pushi	$b5		; 181, set
		pushi	$4		; scaleX
		lsp	param[$1]
		lsp	param[$2]
		lsp	param[$1]
		lat	temp[$0]
		add
		push
		lsp	param[$2]
		lat	temp[$1]
		add
		push
		self	$c
		bnot
		ret

Plane::scaleBitmap:
		link	$b
		lap	param[$0]
		bnt	code_02b0
		lap	param[$1]
		sat	temp[$7]
		lap	param[$2]
		sat	temp[$8]
		lap	param[$3]
		sat	temp[$9]
		lap	param[$4]
		sat	temp[$a]
		jmp	code_02c0

code_02b0:	pToa	left
		sat	temp[$7]
		pToa	top
		sat	temp[$8]
		pToa	right
		sat	temp[$9]
		pToa	bottom
		sat	temp[$a]
code_02c0:	pushi	$4e		; 78, 'N', width
		push0
		pToa	bitmap
		send	$4
		bnot
		sat	temp[$1]
		pushi	$e1		; 225, height
		push0
		pToa	bitmap
		send	$4
		bnot
		sat	temp[$3]
		lst	temp[$9]
		lat	temp[$7]
		sub
		push
		ldi	$1
		add
		sat	temp[$0]
		lst	temp[$a]
		lat	temp[$8]
		sub
		push
		ldi	$1
		add
		sat	temp[$2]
		lst	temp[$0]
		ldi	$fa		; 250, lower
		lt?
		bnt	code_0301
		lst	temp[$0]
		ldi	$80		; 128, lastKey
		mul
		push
		lat	temp[$1]
		div
		sat	temp[$4]
		jmp	code_0315

code_0301:	lst	temp[$0]
		ldi	$2
		div
		push
		ldi	$80		; 128, lastKey
		mul
		push
		lat	temp[$1]
		div
		push
		ldi	$2
		mul
		sat	temp[$4]
code_0315:	lst	temp[$2]
		ldi	$80		; 128, lastKey
		mul
		push
		lat	temp[$3]
		div
		sat	temp[$5]
		pushi	$6a		; 106, 'j', scaleSignal
		push1
		push1
		pushi	$4		; scaleX
		push1
		lst	temp[$4]
		pushi	$5		; scaleY
		push1
		push
		pToa	bitmap
		send	$12
		bnot
		push1
		pTos	bitmap
		callk	kernel_32, $2
		bnot
		ret

Plane::setBitmap:
		link	$4
		pToa	bitmap
		bnt	code_034e
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	bitmap
		jmp	code_0361

code_034e:	pushi	$8d		; 141, new
		push0
		class	Cast
		send	$4
		bnot
		sat	temp[$0]
		pushi	$1b8		; 440, addCast
		push1
		push
		self	$6
		bnot
code_0361:	lsp	param[$0]
		ldi	$3		; z
		lt?
		bnt	code_038f
		pushi	$dc		; 220, posn
		push2
		push0
		push0
		pushi	$94		; 148, init
		push1
		lst	temp[$0]
		pushi	$8d		; 141, new
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	bitmap
		send	$e
		bnot
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_03c3
		lap	param[$2]
		sat	temp[$3]
		jmp	code_03c3

code_038f:	pushi	$e		; 14, view
		push1
		lsp	param[$1]
		pushi	$f		; 15, loop
		push1
		lsp	param[$2]
		pushi	$10		; 16, cel
		push1
		lsp	param[$3]
		pushi	$dc		; 220, posn
		push2
		push0
		push0
		pushi	$94		; 148, init
		push1
		lst	temp[$0]
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		aTop	bitmap
		send	$20
		bnot
		lsp	param[$0]
		ldi	$3		; z
		gt?
		bnt	code_03c3
		lap	param[$4]
		sat	temp[$3]
code_03c3:	pushi	$4e		; 78, 'N', width
		push0
		pToa	bitmap
		send	$4
		bnot
		sat	temp[$1]
		pushi	$e1		; 225, height
		push0
		pToa	bitmap
		send	$4
		bnot
		sat	temp[$2]
		lat	temp[$3]
		bnt	code_03e5
		pushi	$1bc		; 444, scaleBitmap
		push0
		self	$4
		bnot
		jmp	code_03fe

code_03e5:	pushi	$b5		; 181, set
		pushi	$4		; scaleX
		pTos	left
		pTos	top
		pTos	left
		lat	temp[$1]
		add
		push
		pTos	top
		lat	temp[$2]
		add
		push
		self	$c
		bnot
code_03fe:	ret

Plane::setSize:
		link	$5
		pToa	casts
		bnt	code_04c9
		pushi	$8d		; 141, new
		push0
		class	Rect
		send	$4
		bnot
		sat	temp[$0]
		push2
		pushi	$3		; z
		pushi	$24		; 36, '$', elements
		push0
		pToa	casts
		send	$4
		bnot
		push
		callk	kernel_90, $4
		bnot
		sat	temp[$1]
code_0423:	lat	temp[$1]
		bnt	code_049a
		pushi	$9e		; 158, nextNode
		push1
		push2
		pushi	$6		; maxScale
		push
		callk	kernel_90, $4
		bnot
		push
		pToa	casts
		send	$6
		bnot
		push2
		pushi	$8		; fixPriority
		lst	temp[$1]
		callk	kernel_90, $4
		bnot
		sat	temp[$3]
		push2
		pushi	$3		; z
		pushi	$24		; 36, '$', elements
		push0
		send	$4
		bnot
		push
		callk	kernel_90, $4
		bnot
		sat	temp[$2]
code_0455:	lat	temp[$2]
		bnt	code_048d
		pushi	$9e		; 158, nextNode
		push1
		push2
		pushi	$6		; maxScale
		push
		callk	kernel_90, $4
		bnot
		push
		lat	temp[$3]
		send	$6
		bnot
		push2
		pushi	$8		; fixPriority
		lst	temp[$2]
		callk	kernel_90, $4
		bnot
		sat	temp[$4]
		pushi	$af		; 175, union
		push1
		push
		lat	temp[$0]
		send	$6
		bnot
		pushi	$9e		; 158, nextNode
		push0
		lat	temp[$3]
		send	$4
		bnot
		sat	temp[$2]
		jmp	code_0455

code_048d:	pushi	$9e		; 158, nextNode
		push0
		pToa	casts
		send	$4
		bnot
		sat	temp[$1]
		jmp	code_0423

code_049a:	pushi	$b5		; 181, set
		pushi	$4		; scaleX
		pTos	left
		pTos	top
		pTos	left
		pushi	$4e		; 78, 'N', width
		push0
		lat	temp[$0]
		send	$4
		bnot
		add
		push
		pTos	top
		pushi	$e1		; 225, height
		push0
		lat	temp[$0]
		send	$4
		bnot
		add
		push
		self	$c
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
code_04c9:	ret

Plane::hide:
		pTos	priority
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_04df
		pToa	priority
		aTop	pOldPri
		ldi	$ff		; 255, asInteger
		aTop	priority
		push1
		pushSelf
		callk	kernel_42, $2
		bnot
code_04df:	ret

Plane::show:
		pTos	priority
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_04f1
		pToa	pOldPri
		aTop	priority
		push1
		pushSelf
		callk	kernel_42, $2
		bnot
code_04f1:	ret

Plane::isHidden:
		pTos	priority
		ldi	$ff		; 255, asInteger
		eq?
		ret

