threememories
/
RealmFiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Upload files to "Script"

This commit is contained in:
threememories 2026-04-27 01:33:57 +00:00
parent 0d26c8709a
commit 603f84c934
5 changed files with 2631 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1223
Script/Script60100.txt Normal file
View File

File diff suppressed because it is too large Load Diff

403
Script/Script62000.txt Normal file
View File

@ -0,0 +1,403 @@
code_004d: add
link $9
pushi $b9 ; 185, localize
push1
push0
push0
lag global[$3]
send $4
bnot
push
lap param[$1]
send $6
bnot
ldi $0
sat temp[$0]
ldi $0
sat temp[$1]
push2
push0
lag global[$1]
send $4
bnot
sat temp[$7]
ldi $0
sat temp[$4]
lst temp[$4]
lsp param[$0]
ldi $1
sub
lt?
bnt $d1
lat temp[$4]
lapi param[$2]
sat temp[$2]
bnt $cd
pushi $5a ; 90, 'Z', size
push0
send $4
bnot
sat temp[$8]
ldi $0
sat temp[$5]
lst temp[$5]
lat temp[$8]
lt?
bnt $cd
pushi $4b ; 75, 'K', at
push1
lst temp[$5]
lat temp[$2]
send $6
bnot
sat temp[$3]
pushi $eb ; 235, onMe
push1
lsp param[$1]
send $6
bnot
bnt $c9
push2
push0
lat temp[$3]
send $4
bnot
sat temp[$6]
push
lat temp[$1]
gt?
bnt $c9
lat temp[$3]
sat temp[$0]
lat temp[$6]
sat temp[$1]
+at temp[$5]
jmp $94
+at temp[$4]
jmp $76
lat temp[$0]
bnt $de
pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
send $6
bnot
pushi $ba ; 186, globalize
push0
lap param[$1]
send $4
bnot
lat temp[$0]
ret
curNetMsg::dispose:
link $1
pToa data
sat temp[$0]
ldi $0
aTop data
pushi $95 ; 149, dispose
push0
super NetMsg, $4
bnot
lat temp[$0]
aTop data
ldi $0
aTop claimed
ret
netMsgHandler::handleMsg:
link $2
pToa elements
bnt code_0146
pushi $8d ; 141, new
push1
pushSelf
class Sequence
send $6
bnot
sat temp[$0]
code_0117: pushi $4c ; 76, 'L', next
push0
lat temp[$0]
send $4
bnot
sat temp[$1]
bnt code_013d
pushi $50 ; 80, 'P', claimed
push0
lap param[$1]
send $4
bnot
not
bnt code_013d
pushi $9b ; 155, handleMsg
push1
lsp param[$1]
&rest $2
lat temp[$1]
send $6
bnot
jmp code_0117
code_013d: pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
code_0146: pushi $50 ; 80, 'P', claimed
push0
lap param[$1]
send $4
bnot
ret
NetUser::init:
pushi $94 ; 148, init
push0
super User, $4
bnot
lofsa netMsgHandler
sag global[$2f]
pushi $71 ; 113, 'q', data
push1
pushi $3 ; z
push0
pushi $ff ; 255, asInteger
push2
callk kernel_91, $6
bnot
push
lofsa curNetMsg
aTop curMsg
send $6
bnot
ret
NetUser::doit:
link $9
pToa curMsg
sat temp[$0]
ldi $1
sat temp[$5]
ldi $0
sat temp[$3]
code_0182: lag global[$4f]
bnt code_0198
push2
pushi $d ; 13, seenRect
pushi $71 ; 113, 'q', data
push0
lat temp[$0]
send $4
bnot
push
callk kernel_128, $4
bnot
sat temp[$3]
code_0198: bt code_019c
lat temp[$5]
code_019c: bnt code_02cb
ldi $0
sat temp[$5]
pToa curEvent
sat temp[$1]
pushi $8d ; 141, new
push1
pushi $7fff ; 32767
send $6
bnot
pushi $2b ; 43, '+', type
push0
lat temp[$1]
send $4
bnot
sat temp[$2]
pToa input
bnt code_01d7
lst temp[$2]
ldi $4 ; scaleX
eq?
bt code_01cc
lst temp[$2]
ldi $100 ; 256, strMax
eq?
code_01cc: bnt code_01d7
pushi $c8 ; 200, handleEvent
push1
lst temp[$1]
self $6
bnot
code_01d7: pToa controls
bnt code_02a6
pushi $5a ; 90, 'Z', size
push0
lag global[$4d]
send $4
bnot
bnt code_01f4
pushi $9d ; 157, eachElementDo
push2
pushi $1ce ; 462, process
lst temp[$1]
lag global[$4d]
send $8
bnot
code_01f4: lag global[$1]
bnt code_0227
pToa controls
bnt code_0227
lst temp[$2]
ldi $100 ; 256, strMax
eq?
bnt code_0227
pushi $31 ; 49, '1', message
push0
lat temp[$1]
send $4
bnot
push
ldi $8 ; fixPriority
eq?
bnt code_0227
pushi $316 ; 790, handleVerb
push1
pushi $48 ; 72, 'H', modifiers
push0
lat temp[$1]
send $4
bnot
push
lag global[$1]
send $6
bnot
jmp code_02a6
code_0227: lag global[$1]
bnt code_0296
pToa controls
bnt code_0296
lst temp[$2]
ldi $100 ; 256, strMax
eq?
bnt code_0296
pushi $31 ; 49, '1', message
push0
lat temp[$1]
send $4
bnot
push
ldi $10 ; 16, cel
eq?
bnt code_0296
push2
lst temp[$1]
pushi $f2 ; 242, pCast
push0
lag global[$3]
send $4
bnot
push
call code_004d, $4
bnot
sat temp[$4]
bnt code_02a6
pushi $2b ; 43, '+', type
push1
pushi $4000 ; 16384
pushi $31 ; 49, '1', message
push1
push2
lat temp[$1]
send $c
bnot
pushi $32d ; 813, pObj
push1
pushi $48 ; 72, 'H', modifiers
push0
lat temp[$1]
send $4
bnot
push
class WDragger
send $6
bnot
pushi $c8 ; 200, handleEvent
push2
lst temp[$1]
lst temp[$4]
lag global[$1]
send $8
bnot
pushi $32d ; 813, pObj
push1
push0
class WDragger
send $6
bnot
jmp code_02a6
code_0296: lst temp[$2]
ldi $0
ne?
bnt code_02a6
pushi $c8 ; 200, handleEvent
push1
lst temp[$1]
self $6
bnot
code_02a6: lat temp[$3]
bnt code_0182
pushi $2dc ; 732, _len_
push1
push
lat temp[$0]
send $6
bnot
pushi $9b ; 155, handleMsg
push1
lst temp[$0]
lag global[$12]
send $6
bnot
pushi $45 ; 69, 'E', doit
push0
lag global[$6a]
send $4
bnot
jmp code_0182
code_02cb: ret
NetUser::nextNetMsg:
link $2
pToa curMsg
sat temp[$1]
push2
pushi $d ; 13, seenRect
pushi $71 ; 113, 'q', data
push0
send $4
bnot
push
callk kernel_128, $4
bnot
sat temp[$0]
not
bnt code_02e8
ldi $0
ret
code_02e8: pushi $2dc ; 732, _len_
push1
lst temp[$0]
pushi $94 ; 148, init
push0
lat temp[$1]
send $a
bnot
lat temp[$1]
ret

530
Script/Script62003.txt Normal file
View File

@ -0,0 +1,530 @@
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

254
Script/Script62004.txt Normal file
View File

@ -0,0 +1,254 @@
NetMsgProcessor::init:
pushi $94 ; 148, init
push0
super Code, $4
bnot
lsg global[$12]
selfID
ne?
bnt code_006a
selfID
sag global[$12]
lag global[$28]
not
bnt code_005f
selfID
sag global[$28]
code_005f: pushi $8d ; 141, new
push0
class Set
send $4
bnot
aTop nmpQueue
code_006a: ret
NetMsgProcessor::dispose:
ldi $0
sag global[$12]
lsg global[$28]
selfID
eq?
bnt code_0079
ldi $0
sag global[$28]
code_0079: pushi $95 ; 149, dispose
push0
pToa nmpQueue
send $4
bnot
pushi $95 ; 149, dispose
push0
super Code, $4
bnot
ret
NetMsgProcessor::getMsg:
link $1
pushi $4b ; 75, 'K', at
push1
lsp param[$0]
ldi $1
ge?
bnt code_009b
lap param[$1]
jmp code_009d
code_009b: ldi $0
code_009d: push
pToa nmpQueue
send $6
bnot
sat temp[$0]
pushi $58 ; 88, 'X', delete
push1
aTop lastMsg
push
pToa nmpQueue
send $6
bnot
lat temp[$0]
ret
NetMsgProcessor::putMsg:
pushi $9f ; 159, add
push1
lsp param[$1]
pToa nmpQueue
send $6
bnot
ret
NetMsgProcessor::processMsg:
link $1
pushi $2ee ; 750, getMsg
push0
&rest $1
self $4
bnot
sat temp[$0]
not
bt code_00dc
pushi $97 ; 151, isKindOf
push1
class NetMsg
push
lat temp[$0]
send $6
bnot
not
code_00dc: bnt code_00e1
ldi $0
ret
code_00e1: pushi $2de ; 734, to
push0
lat temp[$0]
send $4
bnot
bnt code_0116
pushi $9b ; 155, handleMsg
push1
lst temp[$0]
pushi $2de ; 734, to
push0
lat temp[$0]
send $4
bnot
send $6
bnot
pushi $50 ; 80, 'P', claimed
push0
lat temp[$0]
send $4
bnot
not
bnt code_0126
pushi $9b ; 155, handleMsg
push1
lst temp[$0]
lag global[$2f]
send $6
bnot
jmp code_0126
code_0116: lag global[$4a]
bnt code_0126
push1
lofsa string_0026 ; "NMP: Msg with illegal to? property."
push
calle export60029_0, $2
bnot
code_0126: pushi $a3 ; 163, contains
push1
lst temp[$0]
pToa nmpQueue
send $6
bnot
not
bnt code_013d
pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
code_013d: ldi $0
ret
NetMsgProcessor::doit:
link $2
ldi $0
ret
pToa paused
bt code_014f
lap param[$0]
bnt code_0168
lap param[$1]
code_014f: bnt code_0168
pToa paused
sat temp[$1]
ldi $1
aTop paused
pushi $9b ; 155, handleMsg
push0
self $4
bnot
sat temp[$0]
lat temp[$1]
aTop paused
jmp code_0171
code_0168: pushi $2f0 ; 752, processMsg
push0
self $4
bnot
sat temp[$0]
code_0171: lat temp[$0]
ret
NetMsgProcessor::handleMsg:
link $1
pToa processing
not
bnt code_01dd
lsp param[$0]
ldi $1
eq?
bnt code_0186
lap param[$1]
jmp code_018f
code_0186: pushi $2f1 ; 753, nextNetMsg
push0
lag global[$e]
send $4
bnot
code_018f: sat temp[$0]
push
ldi $0
eq?
bnt code_019a
ldi $0
ret
code_019a: ldi $1
aTop processing
pushi $94 ; 148, init
push0
lat temp[$0]
send $4
bnot
pushi $2de ; 734, to
push0
lat temp[$0]
send $4
bnot
bnt code_01ce
pushi $2ef ; 751, putMsg
push1
lst temp[$0]
self $6
bnot
pToa paused
not
bnt code_01c7
pushi $2f0 ; 752, processMsg
push0
self $4
bnot
code_01c7: ldi $0
aTop processing
ldi $1
ret
code_01ce: lat temp[$0]
bnt code_01d9
pushi $95 ; 149, dispose
push0
send $4
bnot
code_01d9: ldi $0
aTop processing
code_01dd: ldi $0
ret

221
Script/Script62005.txt Normal file
View File

@ -0,0 +1,221 @@
Server::init:
pushi $3 ; z
push0
push1
pushi $bb8 ; 3000, BAD SELECTOR
callk kernel_126, $6
bnot
pushi $94 ; 148, init
push0
super Obj, $4
bnot
selfID
sag global[$6a]
ret
Server::dispose:
ldi $0
sag global[$6a]
pushi $95 ; 149, dispose
push0
super Obj, $4
bnot
ret
Server::doit:
pToa script
bnt code_0074
pushi $45 ; 69, 'E', doit
push0
send $4
bnot
code_0074: ret
Server::add:
link $1
pushi $b5 ; 181, set
push2
pushi $2cb ; 715, pServIDLo
push0
lap param[$1]
send $4
bnot
push
pushi $2cc ; 716, pServIDHi
push0
lap param[$1]
send $4
bnot
push
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
sat temp[$0]
send $8
bnot
pushi $4 ; scaleX
push1
push1
lst temp[$0]
lsp param[$1]
callk kernel_126, $8
bnot
pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
ret
Server::delete:
link $1
pushi $b5 ; 181, set
push2
pushi $2cb ; 715, pServIDLo
push0
lap param[$1]
send $4
bnot
push
pushi $2cc ; 716, pServIDHi
push0
lap param[$1]
send $4
bnot
push
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
sat temp[$0]
send $8
bnot
pushi $4 ; scaleX
push2
push1
lst temp[$0]
lsp param[$1]
callk kernel_126, $8
bnot
pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
ret
Server::lookup:
link $2
lsp param[$0]
ldi $1
eq?
bnt code_0107
pushi $3 ; z
dup
push1
lsp param[$1]
callk kernel_126, $6
bnot
ret
jmp code_0135
code_0107: pushi $b5 ; 181, set
push2
lsp param[$1]
lsp param[$2]
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
sat temp[$0]
send $8
bnot
pushi $3 ; z
dup
push1
lst temp[$0]
callk kernel_126, $6
bnot
sat temp[$1]
pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
lat temp[$1]
ret
code_0135: ret
Server::lookupObj:
pushi $99 ; 153, respondsTo
push1
pushi $2ca ; 714, pServID
lap param[$1]
send $6
bnot
bnt code_0170
pushi $2c8 ; 712, lookup
push2
pushi $10d ; 269, lowWord
push0
pushi $2ca ; 714, pServID
push0
lap param[$1]
send $4
bnot
send $4
bnot
push
pushi $10e ; 270, hiWord
push0
pushi $2ca ; 714, pServID
push0
lap param[$1]
send $4
bnot
send $4
bnot
push
self $8
bnot
ret
jmp code_018c
code_0170: pushi $2c8 ; 712, lookup
push2
pushi $2cb ; 715, pServIDLo
push0
lap param[$1]
send $4
bnot
push
pushi $2cc ; 716, pServIDHi
push0
lap param[$1]
send $4
bnot
push
self $8
bnot
ret
code_018c: ret
Server::setScript:
lap param[$1]
bnt code_019b
pushi $94 ; 148, init
push1
pushSelf
&rest $2
send $6
bnot
code_019b: ret