NetMsg::init:
		ldi	$1
		aTop	pIsBigEndian
		pToa	pToID
		not
		bnt	code_0082
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pToID
code_0082:	pToa	pFromID
		not
		bnt	code_0092
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pFromID
code_0092:	pToa	pInfo
		not
		bnt	code_00a2
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pInfo
code_00a2:	pToa	pAckCmd
		not
		bnt	code_00b2
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pAckCmd
code_00b2:	pToa	pNakCmd
		not
		bnt	code_00c2
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		aTop	pNakCmd
code_00c2:	pushi	$135		; 309, getWord
		push0
		self	$4
		bnot
		aTop	pCommand
		pushi	$135		; 309, getWord
		push0
		self	$4
		bnot
		pTos	to
		ldi	$0
		eq?
		bnt	code_00dd
		lag	global[$2f]
		aTop	to
code_00dd:	ldi	$1
		ret

NetMsg::dispose:
		pToa	pToID
		bnt	code_00ef
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pToID
code_00ef:	pToa	pFromID
		bnt	code_00fe
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pFromID
code_00fe:	pToa	pInfo
		bnt	code_010d
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pInfo
code_010d:	pToa	pAckCmd
		bnt	code_011c
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pAckCmd
code_011c:	pToa	pNakCmd
		bnt	code_012b
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pNakCmd
code_012b:	pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	PackedData, $4
		bnot
		ret

NetMsg::size:
		push2
		push1
		pTos	data
		callk	kernel_91, $4
		bnot
		ret

NetMsg::with:
		link	$1
		pushi	$8d		; 141, new
		push2
		lsp	param[$1]
		lsp	param[$2]
		self	$8
		bnot
		sat	temp[$0]
		pushi	$94		; 148, init
		push0
		send	$4
		bnot
		bnt	code_015c
		lat	temp[$0]
		ret

		jmp	code_0183

code_015c:	pushi	$7		; priority
		lofsa	string_003e	; "Unsupported message."
		push
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0053	; " Debug "
		push
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_005b	; " Ignore "
		push
		push0
		calle	export60029_0, $e
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		ldi	$0
		ret

code_0183:	lat	temp[$0]
		ret

NetMsg::wordAt:
		pToa	pIsBigEndian
		bnt	code_01a7
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		ldi	$1
		add
		push
		self	$6
		bnot
		push
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		self	$6
		bnot
		push
		ldi	$8		; fixPriority
		shl
		or
		ret

		jmp	code_01c2

code_01a7:	pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		self	$6
		bnot
		push
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		ldi	$1
		add
		push
		self	$6
		bnot
		push
		ldi	$8		; fixPriority
		shl
		or
		ret

code_01c2:	ret

NetMsg::stringAt:
		link	$4
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		sat	temp[$0]
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_01db
		lap	param[$2]
		jmp	code_01e0

code_01db:	pTos	_len_
		lap	param[$1]
		sub
code_01e0:	sat	temp[$2]
		ldi	$0
		sat	temp[$1]
code_01e6:	lst	temp[$1]
		lat	temp[$2]
		lt?
		bnt	code_020e
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		self	$6
		bnot
		sat	temp[$3]
		bnt	code_020e
		pushi	$4b		; 75, 'K', at
		push2
		lst	temp[$1]
		push
		lat	temp[$0]
		send	$8
		bnot
		jmp	code_0208

		jmp	code_020e

code_0208:	+ap	param[$1]
		+at	temp[$1]
		jmp	code_01e6

code_020e:	lat	temp[$0]
		ret

NetMsg::arrayAt:
		pushi	$d2		; 210, copyToFrom
		pushi	$4		; scaleX
		push0
		pushSelf
		lsp	param[$1]
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_0226
		lap	param[$2]
		jmp	code_022b

code_0226:	pTos	_len_
		lap	param[$1]
		sub
code_022b:	push
		pushi	$8d		; 141, new
		push0
		class	ByteArray
		send	$4
		bnot
		send	$c
		bnot
		ret

NetMsg::wordArrayAt:
		link	$3
		pushi	$8d		; 141, new
		push0
		class	IntArray
		send	$4
		bnot
		sat	temp[$0]
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_0253
		lap	param[$2]
		sat	temp[$2]
		jmp	code_025e

code_0253:	pTos	_len_
		lap	param[$1]
		sub
		push
		ldi	$2
		div
		sat	temp[$2]
code_025e:	lat	temp[$2]
		bnt	code_0283
		pushi	$4b		; 75, 'K', at
		push2
		lst	temp[$1]
		pushi	$2e4		; 740, wordAt
		push1
		lsp	param[$1]
		self	$6
		bnot
		push
		lat	temp[$0]
		send	$8
		bnot
		lsp	param[$1]
		ldi	$2
		add
		sap	param[$1]
		+at	temp[$1]
		-at	temp[$2]
		jmp	code_025e

code_0283:	ret

NetMsg::longAt:
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		self	$6
		bnot
		push
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		ldi	$1
		add
		push
		self	$6
		bnot
		push
		ldi	$8		; fixPriority
		shl
		add
		push
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		ldi	$2
		add
		push
		self	$6
		bnot
		push
		ldi	$10		; 16, cel
		shl
		add
		push
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		ldi	$3		; z
		add
		push
		self	$6
		bnot
		push
		ldi	$18		; 24, lsRight
		shl
		add
		ret

NetMsg::getString:
		link	$2
		lap	param[$0]
		bnt	code_02e7
		lap	param[$1]
		sat	temp[$0]
		push
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_02da
		pTos	_len_
		pToa	getIndex
		sub
		sat	temp[$0]
code_02da:	pushi	$139		; 313, getString
		push1
		lst	temp[$0]
		super	PackedData, $6
		bnot
		ret

		jmp	code_02f2

code_02e7:	pushi	$139		; 313, getString
		push0
		&rest	$2
		super	PackedData, $4
		bnot
		ret

code_02f2:	ret

NetMsg::clone:
		link	$1
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		class	NetMsg
		send	$4
		bnot
		sat	temp[$0]
		send	$4
		bnot
		pushi	$133		; 307, pIsBigEndian
		push1
		pTos	pIsBigEndian
		pushi	$8e		; 142, getIndex
		push1
		pTos	getIndex
		pushi	$8f		; 143, putIndex
		push1
		pTos	putIndex
		pushi	$91		; 145, bitPutIndex
		push1
		pTos	bitPutIndex
		pushi	$90		; 144, bitGetIndex
		push1
		pTos	bitGetIndex
		pushi	$2de		; 734, to
		push1
		pTos	to
		pushi	$2dd		; 733, pCommand
		push1
		pTos	pCommand
		lat	temp[$0]
		send	$2a
		bnot
		pushi	$10f		; 271, setLong
		push1
		pTos	pToID
		pushi	$2e2		; 738, pToID
		push0
		lat	temp[$0]
		send	$4
		bnot
		send	$6
		bnot
		pushi	$10f		; 271, setLong
		push1
		pTos	pFromID
		pushi	$2e3		; 739, pFromID
		push0
		lat	temp[$0]
		send	$4
		bnot
		send	$6
		bnot
		pushi	$10f		; 271, setLong
		push1
		pTos	pInfo
		pushi	$2e1		; 737, pInfo
		push0
		lat	temp[$0]
		send	$4
		bnot
		send	$6
		bnot
		pushi	$10f		; 271, setLong
		push1
		pTos	pAckCmd
		pushi	$2df		; 735, pAckCmd
		push0
		lat	temp[$0]
		send	$4
		bnot
		send	$6
		bnot
		pushi	$10f		; 271, setLong
		push1
		pTos	pNakCmd
		pushi	$2e0		; 736, pNakCmd
		push0
		lat	temp[$0]
		send	$4
		bnot
		send	$6
		bnot
		pushi	$71		; 113, 'q', data
		push0
		lat	temp[$0]
		send	$4
		bnot
		bnt	code_03aa
		push2
		pushi	$4		; scaleX
		pushi	$71		; 113, 'q', data
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		callk	kernel_91, $4
		bnot
code_03aa:	pushi	$71		; 113, 'q', data
		push1
		push2
		pushi	$8		; fixPriority
		pTos	data
		callk	kernel_91, $4
		bnot
		push
		lat	temp[$0]
		send	$6
		bnot
		lat	temp[$0]
		ret

