531 lines
7.3 KiB
Plaintext
531 lines
7.3 KiB
Plaintext
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
|
|
|