Server::init:
		pushi	$3		; z
		push0
		push1
		pushi	$bb8		; 3000, BAD SELECTOR
		callk	kernel_126, $6
		bnot
		pushi	$94		; 148, init
		push0
		super	Obj, $4
		bnot
		selfID
		sag	global[$6a]
		ret

Server::dispose:
		ldi	$0
		sag	global[$6a]
		pushi	$95		; 149, dispose
		push0
		super	Obj, $4
		bnot
		ret

Server::doit:
		pToa	script
		bnt	code_0074
		pushi	$45		; 69, 'E', doit
		push0
		send	$4
		bnot
code_0074:	ret

Server::add:
		link	$1
		pushi	$b5		; 181, set
		push2
		pushi	$2cb		; 715, pServIDLo
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$2cc		; 716, pServIDHi
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$0]
		send	$8
		bnot
		pushi	$4		; scaleX
		push1
		push1
		lst	temp[$0]
		lsp	param[$1]
		callk	kernel_126, $8
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		ret

Server::delete:
		link	$1
		pushi	$b5		; 181, set
		push2
		pushi	$2cb		; 715, pServIDLo
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$2cc		; 716, pServIDHi
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$0]
		send	$8
		bnot
		pushi	$4		; scaleX
		push2
		push1
		lst	temp[$0]
		lsp	param[$1]
		callk	kernel_126, $8
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		ret

Server::lookup:
		link	$2
		lsp	param[$0]
		ldi	$1
		eq?
		bnt	code_0107
		pushi	$3		; z
		dup
		push1
		lsp	param[$1]
		callk	kernel_126, $6
		bnot
		ret

		jmp	code_0135

code_0107:	pushi	$b5		; 181, set
		push2
		lsp	param[$1]
		lsp	param[$2]
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$0]
		send	$8
		bnot
		pushi	$3		; z
		dup
		push1
		lst	temp[$0]
		callk	kernel_126, $6
		bnot
		sat	temp[$1]
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		lat	temp[$1]
		ret

code_0135:	ret

Server::lookupObj:
		pushi	$99		; 153, respondsTo
		push1
		pushi	$2ca		; 714, pServID
		lap	param[$1]
		send	$6
		bnot
		bnt	code_0170
		pushi	$2c8		; 712, lookup
		push2
		pushi	$10d		; 269, lowWord
		push0
		pushi	$2ca		; 714, pServID
		push0
		lap	param[$1]
		send	$4
		bnot
		send	$4
		bnot
		push
		pushi	$10e		; 270, hiWord
		push0
		pushi	$2ca		; 714, pServID
		push0
		lap	param[$1]
		send	$4
		bnot
		send	$4
		bnot
		push
		self	$8
		bnot
		ret

		jmp	code_018c

code_0170:	pushi	$2c8		; 712, lookup
		push2
		pushi	$2cb		; 715, pServIDLo
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$2cc		; 716, pServIDHi
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$8
		bnot
		ret

code_018c:	ret

Server::setScript:
		lap	param[$1]
		bnt	code_019b
		pushi	$94		; 148, init
		push1
		pushSelf
		&rest	$2
		send	$6
		bnot
code_019b:	ret

