GroupMember::init:
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	Obj, $4
		bnot
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pServID
		pushi	$b5		; 181, set
		push2
		pushi	$ff		; 255, asInteger
		dup
		pToa	pServID
		send	$8
		bnot
		ret

GroupMember::dispose:
		lag	global[$d4]
		bnt	code_0091
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sag	global[$d4]
code_0091:	pToa	pServID
		bnt	code_00a0
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pServID
code_00a0:	pToa	pName
		bnt	code_00b8
		push1
		push
		calle	export60000_0, $2
		bnot
		bnt	code_00b8
		pushi	$95		; 149, dispose
		push0
		pToa	pName
		send	$4
		bnot
code_00b8:	ldi	$0
		aTop	pName
		pushi	$95		; 149, dispose
		push0
		super	Obj, $4
		bnot
		ret

GroupMember::servIDEquals:
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_00dc
		pushi	$127		; 295, equal
		push2
		lsp	param[$1]
		lsp	param[$2]
		pToa	pServID
		send	$8
		bnot
		ret

		jmp	code_00e8

code_00dc:	pushi	$128		; 296, equalLong
		push1
		lsp	param[$1]
		pToa	pServID
		send	$6
		bnot
		ret

code_00e8:	ret

GroupList::delete:
		lag	global[$d4]
		bnt	code_00f8
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sag	global[$d4]
code_00f8:	pushi	$37d		; 893, servIDEquals
		push1
		pushi	$2ca		; 714, pServID
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lag	global[$1]
		send	$6
		bnot
		bt	code_011e
		lsp	param[$1]
		pToa	pLeader
		eq?
		bt	code_011e
		pushi	$5a		; 90, 'Z', size
		push0
		self	$4
		bnot
		push
		ldi	$2
		eq?
code_011e:	bnt	code_01a5
		pushi	$b5		; 181, set
		push2
		pushi	$ff		; 255, asInteger
		dup
		pushi	$380		; 896, pWhoToFollow
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$8
		bnot
		ldi	$0
		aTop	pLeader
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$95		; 149, dispose
		self	$6
		bnot
		pushi	$a6		; 166, release
		push0
		self	$4
		bnot
		pushi	$381		; 897, pMode
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		ldi	$2
		and
		not
		bnt	code_017d
		pushi	$381		; 897, pMode
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		ldi	$4		; scaleX
		and
		not
		bnt	code_017d
		pushi	$1b4		; 436, enable
		push1
		push1
		push2
		pushi	$a410		; -23536
		pushi	$5		; scaleY
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		jmp	code_0190

code_017d:	pushi	$1b4		; 436, enable
		push2
		push0
		push1
		push2
		pushi	$a410		; -23536
		pushi	$5		; scaleY
		callk	kernel_2, $4
		bnot
		send	$8
		bnot
code_0190:	pushi	$382		; 898, updatePanel
		push1
		pushi	$383		; 899, curPanel
		push0
		lag	global[$6]
		send	$4
		bnot
		push
		lag	global[$6]
		send	$6
		bnot
		jmp	code_01b7

code_01a5:	pushi	$58		; 88, 'X', delete
		push1
		lsp	param[$1]
		super	Set, $6
		bnot
		pushi	$95		; 149, dispose
		push0
		lap	param[$1]
		send	$4
		bnot
code_01b7:	ret

GroupList::add:
		link	$3
		pushi	$5a		; 90, 'Z', size
		push0
		self	$4
		bnot
		not
		bnt	code_01c7
		lap	param[$1]
		aTop	pLeader
code_01c7:	lsp	param[$1]
		pToa	pLeader
		eq?
		not
		bnt	code_020b
		pushi	$37d		; 893, servIDEquals
		push1
		pushi	$2ca		; 714, pServID
		push0
		pToa	pLeader
		send	$4
		bnot
		push
		lag	global[$1]
		send	$6
		bnot
		not
		bnt	code_020b
		pushi	$384		; 900, pSittingOn
		push0
		lag	global[$1]
		send	$4
		bnot
		not
		bnt	code_020b
		pushi	$10f		; 271, setLong
		push1
		pushi	$2ca		; 714, pServID
		push0
		pToa	pLeader
		send	$4
		bnot
		push
		pushi	$380		; 896, pWhoToFollow
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$6
		bnot
code_020b:	pushi	$9f		; 159, add
		push1
		lsp	param[$1]
		super	Set, $6
		bnot
		pushi	$381		; 897, pMode
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		ldi	$2
		and
		not
		bnt	code_0249
		pushi	$381		; 897, pMode
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		ldi	$4		; scaleX
		and
		not
		bnt	code_0249
		pushi	$1b4		; 436, enable
		push1
		push1
		push2
		pushi	$a410		; -23536
		pushi	$5		; scaleY
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		jmp	code_025c

code_0249:	pushi	$1b4		; 436, enable
		push2
		push1
		push1
		push2
		pushi	$a410		; -23536
		pushi	$5		; scaleY
		callk	kernel_2, $4
		bnot
		send	$8
		bnot
code_025c:	pushi	$382		; 898, updatePanel
		push1
		pushi	$383		; 899, curPanel
		push0
		lag	global[$6]
		send	$4
		bnot
		push
		lag	global[$6]
		send	$6
		bnot
		ret

GroupList::findByServID:
		pushi	$a0		; 160, firstTrue
		push2
		pushi	$37d		; 893, servIDEquals
		lsp	param[$1]
		self	$8
		bnot
		ret

