Flags::init:
		pToa	size
		bnt	code_0050
		pToa	array
		not
		bnt	code_0050
		pushi	$1be		; 446, setSize
		push1
		pTos	size
		self	$6
		bnot
code_0050:	ret

Flags::setSize:
		link	$2
		lsp	param[$1]
		ldi	$10		; 16, cel
		div
		sat	temp[$0]
		lsp	param[$1]
		ldi	$10		; 16, cel
		mod
		bnt	code_0063
		+at	temp[$0]
code_0063:	lst	temp[$0]
		ldi	$10		; 16, cel
		mul
		aTop	size
		pushi	$8d		; 141, new
		push1
		lst	temp[$0]
		ldi	$2
		mul
		push
		class	IntArray
		send	$6
		bnot
		aTop	array
		pushi	$d6		; 214, fill
		push2
		push0
		lst	temp[$0]
		ldi	$2
		mul
		push
		pToa	array
		send	$8
		bnot
		ret

Flags::dispose:
		pToa	array
		bnt	code_009b
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	array
code_009b:	pushi	$95		; 149, dispose
		push0
		super	Obj, $4
		bnot
		ret

Flags::set:
		link	$2
code_00a6:	lap	param[$0]
		bnt	code_00de
		-ap	param[$0]
		lspi	param[$1]
		ldi	$10		; 16, cel
		div
		push
		ldi	$2
		mul
		sat	temp[$1]
		pushi	$4b		; 75, 'K', at
		push1
		push
		pToa	array
		send	$6
		bnot
		sat	temp[$0]
		push
		pushi	$8000		; -32768
		lap	param[$0]
		lspi	param[$1]
		ldi	$10		; 16, cel
		mod
		shr
		or
		sat	temp[$0]
		pushi	$4b		; 75, 'K', at
		push2
		lst	temp[$1]
		push
		pToa	array
		send	$8
		bnot
		jmp	code_00a6

code_00de:	ret

Flags::clear:
		link	$2
code_00e1:	lap	param[$0]
		bnt	code_011a
		-ap	param[$0]
		lspi	param[$1]
		ldi	$10		; 16, cel
		div
		push
		ldi	$2
		mul
		sat	temp[$1]
		pushi	$4b		; 75, 'K', at
		push1
		push
		pToa	array
		send	$6
		bnot
		sat	temp[$0]
		push
		pushi	$8000		; -32768
		lap	param[$0]
		lspi	param[$1]
		ldi	$10		; 16, cel
		mod
		shr
		bnot
		and
		sat	temp[$0]
		pushi	$4b		; 75, 'K', at
		push2
		lst	temp[$1]
		push
		pToa	array
		send	$8
		bnot
		jmp	code_00e1

code_011a:	ret

Flags::test:
		link	$2
		lsp	param[$1]
		ldi	$10		; 16, cel
		div
		push
		ldi	$2
		mul
		sat	temp[$1]
		pushi	$4b		; 75, 'K', at
		push1
		push
		pToa	array
		send	$6
		bnot
		sat	temp[$0]
		push
		pushi	$8000		; -32768
		lsp	param[$1]
		ldi	$10		; 16, cel
		mod
		shr
		and
		ret

