Magnifier::init:
		lap	param[$1]
		aTop	client
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_0075
		lap	param[$2]
		aTop	view
		lsp	param[$0]
		ldi	$2
		gt?
		bnt	code_0075
		lap	param[$3]
		aTop	loop
		lsp	param[$0]
		ldi	$3		; z
		gt?
		bnt	code_0075
		lap	param[$4]
		aTop	cel
		lsp	param[$0]
		ldi	$4		; scaleX
		gt?
		bnt	code_0075
		lap	param[$5]
		aTop	power
		lsp	param[$0]
		ldi	$5		; scaleY
		gt?
		bnt	code_0075
		lap	param[$6]
		aTop	skip
code_0075:	push1
		pushSelf
		callk	kernel_24, $2
		bnot
		ret

Magnifier::dispose:
		push1
		pushSelf
		callk	kernel_25, $2
		bnot
		pushi	$81		; 129, magnifier
		push1
		push0
		pToa	client
		send	$6
		bnot
		ldi	$0
		aTop	client
		pushi	$95		; 149, dispose
		push0
		super	Obj, $4
		bnot
		ret

