export40206_0	= $0

SetScale::doit:
		link	$2
		lsp	param[$2]
		ldi	$2
		mul
		sat	temp[$0]
		ldi	$0
		sat	temp[$1]
code_0085:	lst	temp[$0]
		ldi	$ff		; 255, asInteger
		gt?
		bnt	code_00ce
		lst	temp[$0]
		ldi	$1
		add
		push
		ldi	$ff		; 255, asInteger
		gt?
		bnt	code_00ce
		lst	temp[$0]
		ldi	$28		; 40, '(', style
		lt?
		bnt	code_00ce
		lat	temp[$0]
		lsli	local[$c78]
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_00ce
		+at	temp[$1]
		push
		ldi	$2
		lt?
		bnt	code_00ce
		pushi	$152		; 338, xScaleAdj
		push1
		lat	temp[$0]
		lsli	local[$c78]
		lap	param[$1]
		send	$6
		bnot
		pushi	$153		; 339, yScaleAdj
		push1
		+at	temp[$0]
		lsli	local[$c78]
		lap	param[$1]
		send	$6
		bnot
		jmp	code_0085

code_00ce:	ret

