Event::new:
		link	$1
		pushi	$8d		; 141, new
		push0
		super	Obj, $4
		bnot
		sat	temp[$0]
		push2
		lap	param[$0]
		bnt	code_0059
		lap	param[$1]
		jmp	code_005c

code_0059:	ldi	$7fff		; 32767
code_005c:	push
		lst	temp[$0]
		callk	kernel_80, $4
		bnot
		lat	temp[$0]
		ret

Event::localize:
		pTos	plane
		lap	param[$1]
		ne?
		bnt	code_0090
		pToa	plane
		bnt	code_0085
		pushi	$a3		; 163, contains
		push1
		push
		lag	global[$25]
		send	$6
		bnot
		bnt	code_0085
		push2
		pushSelf
		pTos	plane
		callk	kernel_82, $4
		bnot
code_0085:	push2
		pushSelf
		lap	param[$1]
		aTop	plane
		push
		callk	kernel_81, $4
		bnot
code_0090:	selfID
		ret

Event::globalize:
		pToa	plane
		bnt	code_00aa
		pushi	$a3		; 163, contains
		push1
		push
		lag	global[$25]
		send	$6
		bnot
		bnt	code_00aa
		push2
		pushSelf
		pTos	plane
		callk	kernel_82, $4
		bnot
code_00aa:	ldi	$0
		aTop	plane
		selfID
		ret

