export45018_0	= makeCharacter_Page4

prevBtn::doit:
		link	$1
		pushi	$24e		; 590, handsOff
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		lag	global[$9e]
		send	$6
		bnot
		sat	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		pushi	$23		; 35, '#', text
		push0
		lofsa	textField
		send	$4
		bnot
		send	$4
		bnot
		bnt	code_0091
		pushi	$4ca		; 1226, setBiography
		push1
		pushi	$23		; 35, '#', text
		push0
		lofsa	textField
		send	$4
		bnot
		push
		lat	temp[$0]
		send	$6
		bnot
		jmp	code_009e

code_0091:	pushi	$4ca		; 1226, setBiography
		push1
		lofsa	string_0359	; ""
		push
		lat	temp[$0]
		send	$6
		bnot
code_009e:	ldi	$afd9		; -20519
		sag	global[$36]
		ret

mainBtn::doit:
		pushi	$7		; priority
		lofsa	string_0367	; "Warning! Your character will not be saved!\n"
		push
		pushi	$77		; 119, 'w', textTop
		lofsa	string_03c7	; "Yes"
		push
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_03cb	; "No"
		push
		push0
		calle	export60029_0, $e
		bnot
		bnt	code_00e8
		pushi	$24e		; 590, handsOff
		push0
		lag	global[$2]
		send	$4
		bnot
		push1
		lsg	global[$a0]
		calle	export60000_0, $2
		bnot
		bnt	code_00e3
		pushi	$95		; 149, dispose
		push0
		lag	global[$a0]
		send	$4
		bnot
		ldi	$0
		sag	global[$a0]
code_00e3:	ldi	$afd6		; -20522
		sag	global[$36]
code_00e8:	ret

saveBtn::doit:
		link	$1
		pushi	$24e		; 590, handsOff
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		lag	global[$9e]
		send	$6
		bnot
		sat	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		pushi	$23		; 35, '#', text
		push0
		lofsa	textField
		send	$4
		bnot
		send	$4
		bnot
		bnt	code_0128
		pushi	$4ca		; 1226, setBiography
		push1
		pushi	$23		; 35, '#', text
		push0
		lofsa	textField
		send	$4
		bnot
		push
		lat	temp[$0]
		send	$6
		bnot
		jmp	code_0135

code_0128:	pushi	$4ca		; 1226, setBiography
		push1
		lofsa	string_0359	; ""
		push
		lat	temp[$0]
		send	$6
		bnot
code_0135:	pushi	$c9		; 201, setScript
		push1
		pushi	$8d		; 141, new
		push0
		lofsa	CreateCharacter
		send	$4
		bnot
		push
		lag	global[$3]
		send	$6
		bnot
		ret

textField::init:
		pToa	text
		not
		bnt	code_015a
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		aTop	text
code_015a:	pTos	state
		ldi	$8		; fixPriority
		or
		aTop	state
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	EditItem, $4
		bnot
		ret

textField::drawSelected:
		ret

makeCharacter_Page4::init:
		link	$9
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	StaticRealmRoom, $4
		bnot
		ldi	$0
		sag	global[$d3]
		ldi	$0
		sag	global[$c8]
		pushi	$2f4		; 756, pConnected
		push0
		lag	global[$6a]
		send	$4
		bnot
		not
		bnt	code_019f
		lag	global[$9e]
		not
		bnt	code_019f
		pushi	$8d		; 141, new
		push0
		class	fNBody
		send	$4
		bnot
		sag	global[$9e]
code_019f:	ldi	$3		; z
		sat	temp[$5]
		pushi	$3		; z
		pushi	$2332		; 9010
		push0
		push0
		callk	kernel_28, $6
		bnot
		sat	temp[$6]
		pushi	$27f		; 639, rename
		push
		lat	temp[$5]
		mul
		sub
		push
		lst	temp[$5]
		ldi	$1
		add
		div
		sat	temp[$4]
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		sat	temp[$1]
		pushi	$7		; priority
		push0
		pushi	$afc8		; -20536
		push2
		pushi	$6		; maxScale
		push0
		push1
		pushi	$71		; 113, 'q', data
		push0
		send	$4
		bnot
		push
		callk	kernel_72, $e
		bnot
		pushi	$1c8		; 456, helpStr
		push1
		lst	temp[$1]
		pushi	$94		; 148, init
		push0
		pushi	$db		; 219, moveTo
		push2
		lst	temp[$4]
		pushi	$1b0		; 432, prevDir
		lofsa	prevBtn
		send	$12
		bnot
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		sat	temp[$1]
		pushi	$7		; priority
		push0
		pushi	$afc8		; -20536
		push1
		pushi	$6		; maxScale
		push0
		push1
		pushi	$71		; 113, 'q', data
		push0
		send	$4
		bnot
		push
		callk	kernel_72, $e
		bnot
		pushi	$1c8		; 456, helpStr
		push1
		lst	temp[$1]
		pushi	$94		; 148, init
		push0
		pushi	$db		; 219, moveTo
		push2
		lst	temp[$4]
		ldi	$2
		mul
		push
		lat	temp[$6]
		add
		push
		pushi	$1b0		; 432, prevDir
		lofsa	saveBtn
		send	$12
		bnot
		pushi	$37d		; 893, servIDEquals
		push2
		pushi	$ff		; 255, asInteger
		dup
		lag	global[$9e]
		send	$8
		bnot
		bnt	code_0259
		pushi	$1b4		; 436, enable
		push2
		push1
		push0
		lofsa	saveBtn
		send	$8
		bnot
		jmp	code_0265

code_0259:	pushi	$1b4		; 436, enable
		push2
		push0
		push1
		lofsa	saveBtn
		send	$8
		bnot
code_0265:	pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		sat	temp[$1]
		pushi	$7		; priority
		push0
		pushi	$afc8		; -20536
		pushi	$7		; priority
		pushi	$6		; maxScale
		push0
		push1
		pushi	$71		; 113, 'q', data
		push0
		send	$4
		bnot
		push
		callk	kernel_72, $e
		bnot
		pushi	$1c8		; 456, helpStr
		push1
		lst	temp[$1]
		pushi	$94		; 148, init
		push0
		pushi	$db		; 219, moveTo
		push2
		lst	temp[$4]
		ldi	$3		; z
		mul
		push
		lst	temp[$6]
		ldi	$2
		mul
		add
		push
		pushi	$1b0		; 432, prevDir
		lofsa	mainBtn
		send	$12
		bnot
		pushi	$e		; 14, view
		push1
		pushi	$2330		; 9008
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		sat	temp[$2]
		send	$10
		bnot
		push2
		lst	temp[$2]
		pushi	$a		; 10, inTop
		calle	export45011_0, $4
		bnot
		pushi	$e		; 14, view
		push1
		pushi	$2331		; 9009
		pushi	$f		; 15, loop
		push1
		push2
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		sat	temp[$3]
		send	$10
		bnot
		push2
		lst	temp[$3]
		pushi	$50		; 80, 'P', claimed
		calle	export45011_0, $4
		bnot
		pushi	$d0		; 208, with
		push1
		lofsa	string_03ed	; "Please enter any personal information about your character."
		push
		class	Str
		send	$6
		bnot
		sat	temp[$1]
		pushi	$3		; z
		push1
		push2
		pushi	$9		; inLeft
		push
		callk	kernel_91, $4
		bnot
		push
		pushi	$14		; 20, nsRight
		callk	kernel_70, $6
		bnot
		sat	temp[$7]
		pushi	$25		; 37, '%', fore
		push1
		pushi	$1a		; 26, signal
		pushi	$23		; 35, '#', text
		push1
		lst	temp[$1]
		pushi	$2a		; 42, '*', font
		push1
		pushi	$14		; 20, nsRight
		pushi	$1be		; 446, setSize
		push1
		push
		pushi	$db		; 219, moveTo
		push2
		pushi	$13f		; 319, putString
		push
		ldi	$2
		div
		sub
		push
		ldi	$5		; scaleY
		add
		push
		pushi	$73		; 115, 's', center
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		class	TextItem
		send	$4
		bnot
		sat	temp[$8]
		send	$24
		bnot
		pushi	$e		; 14, view
		push1
		pushi	$2331		; 9009
		pushi	$f		; 15, loop
		push1
		pushi	$3		; z
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		sat	temp[$3]
		send	$10
		bnot
		push2
		lst	temp[$3]
		pushi	$17c		; 380, isNotHidden
		calle	export45011_0, $4
		bnot
		pushi	$e		; 14, view
		push1
		pushi	$2330		; 9008
		pushi	$f		; 15, loop
		push1
		push1
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		sat	temp[$3]
		send	$10
		bnot
		push2
		lst	temp[$3]
		pushi	$94		; 148, init
		calle	export45011_0, $4
		bnot
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		lag	global[$9e]
		send	$6
		bnot
		sat	temp[$0]
		pushi	$4c8		; 1224, pBiography
		push0
		send	$4
		bnot
		not
		bnt	code_03cf
		pushi	$4ca		; 1226, setBiography
		push1
		lofsa	string_0359	; ""
		push
		lat	temp[$0]
		send	$6
		bnot
code_03cf:	pushi	$d0		; 208, with
		push1
		pushi	$4c8		; 1224, pBiography
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		class	Str
		send	$6
		bnot
		sat	temp[$1]
		pushi	$23		; 35, '#', text
		push1
		push
		pushi	$94		; 148, init
		push0
		lofsa	textField
		send	$a
		bnot
		pushi	$57		; 87, 'W', draw
		push0
		pushi	$1d0		; 464, pScreen
		push0
		lag	global[$3]
		send	$4
		bnot
		send	$4
		bnot
		pushi	$276		; 630, handsOn
		push0
		lag	global[$2]
		send	$4
		bnot
		ret

nameCharacter::new:
		link	$1
		pushi	$8d		; 141, new
		push0
		super	EditItem, $4
		bnot
		sat	temp[$0]
		pushi	$23		; 35, '#', text
		push1
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		push
		lat	temp[$0]
		send	$6
		bnot
		ret

nameCharacter::init:
		pTos	state
		ldi	$8		; fixPriority
		or
		aTop	state
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	EditItem, $4
		bnot
		pushi	$1be		; 446, setSize
		push1
		pTos	right
		self	$6
		bnot
		ret

nameCharacter::dispose:
		ldi	$0
		aTop	text
		pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	EditItem, $4
		bnot
		ret

nameCharacter::validKey:
		pushi	$7c		; 124, '|', titleBack
		lap	param[$1]
		ne?
		bnt	code_047f
		push1
		lsp	param[$1]
		calle	export60027_5, $2
		bnot
		bnt	code_047f
		push1
		lsp	param[$1]
		calle	export60027_7, $2
		bnot
		not
		bnt	code_047f
		push1
		lsp	param[$1]
		calle	export60027_2, $2
		bnot
		not
code_047f:	bt	code_04a9
		pushi	$c		; 12, inBottom
		lsp	param[$1]
		pushi	$3		; z
		pushi	$4700		; 18176
		pushi	$4b00		; 19200
		pushi	$4d00		; 19712
		pushi	$4f00		; 20224
		pushi	$5200		; 20992
		pushi	$5300		; 21248
		pushi	$d		; 13, seenRect
		pushi	$9		; inLeft
		pushi	$f00		; 3840, BAD SELECTOR
		pushi	$8		; fixPriority
		calle	export60025_4, $18
		bnot
code_04a9:	ret

RepromptName::changeState:
		link	$2
		lap	param[$1]
		aTop	state
		push
		dup
		ldi	$0
		eq?
		bnt	code_052c
		pushi	$276		; 630, handsOn
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		lag	global[$1]
		send	$6
		bnot
		sat	temp[$1]
		pushi	$f5		; 245, format
		pushi	$4		; scaleX
		lofsa	string_044b	; "%c%s%c is already in use.\n"
		push
		pushi	$22		; 34, '"', time
		pushi	$35d		; 861, pProperName
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		pushi	$22		; 34, '"', time
		class	Str
		send	$c
		bnot
		sat	temp[$0]
		pushi	$12		; 18, nsLeft
		push
		pushi	$81		; 129, magnifier
		pushi	$8d		; 141, new
		push0
		lofsa	nameCharacter
		send	$4
		bnot
		aTop	scratch
		push
		pushi	$fdf5		; -523
		lsg	global[$55]
		pushi	$8b		; 139, numLines
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0483	; " OK "
		push
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0488	; "Cancel"
		push
		push0
		pushi	$93		; 147, pLine
		pushSelf
		pushi	$c8		; 200, handleEvent
		pushi	$91		; 145, bitPutIndex
		push2
		calle	export60029_0, $24
		bnot
		jmp	code_0557

code_052c:	dup
		ldi	$1
		eq?
		bnt	code_0557
		pushi	$24e		; 590, handsOff
		push0
		lag	global[$2]
		send	$4
		bnot
		push1
		pTos	scratch
		calle	export60000_0, $2
		bnot
		bnt	code_0550
		pushi	$95		; 149, dispose
		push0
		pToa	scratch
		send	$4
		bnot
code_0550:	pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_0557:	toss
		ret

RepromptName::handleEvent:
		link	$1
		lap	param[$0]
		bnt	code_0631
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		lag	global[$1]
		send	$6
		bnot
		sat	temp[$0]
		lsp	param[$1]
		dup
		ldi	$0
		eq?
		bnt	code_05a0
		push1
		pTos	scratch
		calle	export60000_0, $2
		bnot
		bnt	code_058b
		pushi	$95		; 149, dispose
		push0
		pToa	scratch
		send	$4
		bnot
code_058b:	pushi	$24e		; 590, handsOff
		push0
		lag	global[$2]
		send	$4
		bnot
		ldi	$afd6		; -20522
		sag	global[$36]
		ldi	$0
		aTop	caller
		jmp	code_062b

code_05a0:	dup
		ldi	$1
		eq?
		bnt	code_0618
		push2
		pushi	$a		; 10, inTop
		pushi	$71		; 113, 'q', data
		push0
		pushi	$23		; 35, '#', text
		push0
		pToa	scratch
		send	$4
		bnot
		send	$4
		bnot
		push
		callk	kernel_92, $4
		bnot
		push1
		lofsa	nameCharacter
		push
		calle	export60000_0, $2
		bnot
		bnt	code_060b
		pushi	$5a		; 90, 'Z', size
		push0
		pushi	$23		; 35, '#', text
		push0
		pToa	scratch
		send	$4
		bnot
		send	$4
		bnot
		push
		ldi	$0
		gt?
		bnt	code_060b
		pushi	$ae		; 174, indexOf
		push1
		pushi	$2a		; 42, '*', font
		pushi	$23		; 35, '#', text
		push0
		pToa	scratch
		send	$4
		bnot
		send	$6
		bnot
		push
		ldi	$0
		ge?
		not
		bnt	code_060b
		pushi	$35d		; 861, pProperName
		push1
		pushi	$23		; 35, '#', text
		push0
		pToa	scratch
		send	$4
		bnot
		push
		lat	temp[$0]
		send	$6
		bnot
		jmp	code_062b

code_060b:	pushi	$24e		; 590, handsOff
		push0
		lag	global[$2]
		send	$4
		bnot
		dpToa	state
		jmp	code_062b

code_0618:	pushi	$3		; z
		lofsa	string_048f	; "Error in name entry!\n"
		push
		pushi	$77		; 119, 'w', textTop
		lofsa	string_04b6	; "Okay"
		push
		calle	export60029_0, $6
		bnot
code_062b:	toss
		ldi	$1
		aTop	cycles
		ret

code_0631:	ret

CreateCharacter::handleError:
		link	$3
		ldi	$0
		sat	temp[$0]
		ldi	$0
		sat	temp[$1]
		pushi	$f5		; 245, format
		push1
		lofsa	string_04c8	; "Unable to create character."
		push
		class	Str
		send	$6
		bnot
		sat	temp[$1]
		lsp	param[$1]
		lag	global[$6a]
		eq?
		bnt	code_06fb
		pTos	state
		ldi	$0
		eq?
		bnt	code_0667
		pushi	$95		; 149, dispose
		push0
		lag	global[$9e]
		send	$4
		bnot
		lag	global[$1]
		sag	global[$9e]
code_0667:	lsp	param[$3]
		dup
		ldi	$271e		; 10014
		eq?
		bnt	code_0682
		pushi	$f5		; 245, format
		push1
		lofsa	string_04e4	; "We're sorry, but in this demo version, you are not allowed to save characters that you create. If you wish to experience the full capabilities of The Realm, please visit our website at http://www.realmserver.com for ordering information. Thank you and happy adventures!\n"
		push
		class	Str
		send	$6
		bnot
		sat	temp[$0]
		jmp	code_06fa

code_0682:	dup
		ldi	$2716		; 10006
		eq?
		bnt	code_069b
		pushi	$f5		; 245, format
		push1
		lofsa	string_05f3	; "Data Error: Server process unavailable.\n"
		push
		class	Str
		send	$6
		bnot
		sat	temp[$0]
		jmp	code_06fa

code_069b:	dup
		ldi	$2714		; 10004
		eq?
		bnt	code_06b3
		pushi	$f5		; 245, format
		push1
		lofsa	string_061c	; "Data Error: Object data not found.\n"
		push
		class	Str
		send	$6
		bnot
		sat	temp[$0]
		jmp	code_06fa

code_06b3:	dup
		ldi	$2711		; 10001
		eq?
		bnt	code_06eb
		pushi	$271		; 625, handsLevel
		push0
		lag	global[$2]
		send	$4
		bnot
		not
		bnt	code_06cf
		pushi	$24e		; 590, handsOff
		push0
		lag	global[$2]
		send	$4
		bnot
code_06cf:	pushi	$c9		; 201, setScript
		push2
		pushi	$8d		; 141, new
		push0
		lofsa	RepromptName
		send	$4
		bnot
		push
		pushSelf
		self	$8
		bnot
		pTos	start
		ldi	$1
		sub
		aTop	state
		jmp	code_06fa

code_06eb:	pushi	$f5		; 245, format
		push1
		lofsa	string_0640	; "Data Error: Unknown.\n"
		push
		class	Str
		send	$6
		bnot
		sat	temp[$0]
code_06fa:	toss
code_06fb:	lat	temp[$0]
		bnt	code_072c
		pushi	$6		; maxScale
		pushi	$f7		; 247, cat
		push1
		lst	temp[$1]
		send	$6
		bnot
		push
		pushi	$65		; 101, 'e', topString
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_04b6	; "Okay"
		push
		push0
		calle	export60029_0, $c
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_072c:	pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$4
		bnot
		ret

CreateCharacter::changeState:
		link	$3
		lap	param[$1]
		aTop	state
		push
		dup
		ldi	$0
		eq?
		bnt	code_07ca
		lag	global[$9e]
		sag	global[$1]
		pushi	$8d		; 141, new
		push0
		class	WorldEgo
		send	$4
		bnot
		sag	global[$9e]
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		lag	global[$1]
		send	$6
		bnot
		sat	temp[$1]
		pushi	$35d		; 861, pProperName
		push1
		push1
		pushi	$35d		; 861, pProperName
		push0
		send	$4
		bnot
		push
		calle	export60027_14, $2
		bnot
		push
		lat	temp[$1]
		send	$6
		bnot
		pushi	$5a2		; 1442, createCharacter
		pushi	$9		; inLeft
		lsg	global[$9e]
		pushi	$35d		; 861, pProperName
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		pushi	$4c7		; 1223, pTitle
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		pushi	$4c5		; 1221, pProfession
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		pushi	$30b		; 779, pRace
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		pushi	$30c		; 780, pSex
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		pushi	$433		; 1075, pPeaceful
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		lsg	global[$1]
		pushSelf
		lag	global[$6a]
		send	$16
		bnot
		jmp	code_089d

code_07ca:	dup
		ldi	$1
		eq?
		bnt	code_07e3
		pushi	$5a8		; 1448, setHeadData
		pushi	$3		; z
		lsg	global[$9e]
		lsg	global[$1]
		pushSelf
		lag	global[$6a]
		send	$a
		bnot
		jmp	code_089d

code_07e3:	dup
		ldi	$2
		eq?
		bnt	code_081a
		pushi	$d0		; 208, with
		push1
		pushi	$4c8		; 1224, pBiography
		push0
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		lag	global[$1]
		send	$6
		bnot
		send	$4
		bnot
		push
		class	Str
		send	$6
		bnot
		sat	temp[$0]
		pushi	$4ca		; 1226, setBiography
		pushi	$3		; z
		lsg	global[$9e]
		push
		pushSelf
		lag	global[$6a]
		send	$a
		bnot
		jmp	code_089d

code_081a:	dup
		ldi	$3		; z
		eq?
		bnt	code_0857
		pushi	$4ca		; 1226, setBiography
		push1
		pushi	$d0		; 208, with
		push1
		pushi	$4c8		; 1224, pBiography
		push0
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		lag	global[$1]
		send	$6
		bnot
		send	$4
		bnot
		push
		class	Str
		send	$6
		bnot
		push
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		lag	global[$9e]
		send	$6
		bnot
		send	$6
		bnot
		ldi	$1
		aTop	cycles
		jmp	code_089d

code_0857:	dup
		ldi	$4		; scaleX
		eq?
		bnt	code_086e
		pushi	$9f		; 159, add
		push1
		lsg	global[$9e]
		class	StockCharacters
		send	$6
		bnot
		ldi	$1
		aTop	cycles
		jmp	code_089d

code_086e:	dup
		ldi	$5		; scaleY
		eq?
		bnt	code_0887
		pushi	$95		; 149, dispose
		push0
		lag	global[$1]
		send	$4
		bnot
		ldi	$0
		sag	global[$1]
		ldi	$1
		aTop	cycles
		jmp	code_089d

code_0887:	dup
		ldi	$6		; maxScale
		eq?
		bnt	code_089d
		ldi	$1
		sag	global[$c8]
		ldi	$afd6		; -20522
		sag	global[$36]
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_089d:	toss
		ret

