Upload files to "Script"

This commit is contained in:
threememories 2026-04-27 01:29:27 +00:00
parent 73b4c4e783
commit aae924a19a
5 changed files with 7953 additions and 0 deletions

1833
Script/Script40108.txt Normal file

File diff suppressed because it is too large Load Diff

738
Script/Script40109.txt Normal file
View File

@ -0,0 +1,738 @@
RlmInfoBar::dispose:
pushi $37c ; 892, deleteStatusBox
push1
pTos pEgoBoxSet
self $6
bnot
pushi $37c ; 892, deleteStatusBox
push1
pTos pLeftBoxSet
self $6
bnot
pushi $37c ; 892, deleteStatusBox
push1
pTos pRightBoxSet
self $6
bnot
pushi $95 ; 149, dispose
push0
pToa pEgoBoxSet
send $4
bnot
pushi $95 ; 149, dispose
push0
pToa pLeftBoxSet
send $4
bnot
pushi $95 ; 149, dispose
push0
pToa pRightBoxSet
send $4
bnot
pushi $95 ; 149, dispose
push0
&rest $1
super Plane, $4
bnot
ret
RlmInfoBar::deleteStatusBox:
link $4
push1
lsp param[$1]
calle export60000_0, $2
bnot
bnt code_013d
pushi $5a ; 90, 'Z', size
push0
lap param[$1]
send $4
bnot
sat temp[$1]
bnt code_013d
lst temp[$0]
ldi $0
eq?
code_00d1: lst temp[$0]
lat temp[$1]
lt?
bnt code_011c
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
lap param[$1]
send $6
bnot
sat temp[$3]
push1
push
calle export60000_0, $2
bnot
bnt code_010d
pushi $97 ; 151, isKindOf
push1
class View
push
lat temp[$3]
send $6
bnot
bnt code_010d
push1
lst temp[$3]
callk kernel_31, $2
bnot
pushi $95 ; 149, dispose
push0
lat temp[$3]
send $4
bnot
code_010d: pushi $4b ; 75, 'K', at
push2
lst temp[$0]
push0
lap param[$1]
send $8
bnot
+at temp[$0]
jmp code_00d1
code_011c: pushi $3 ; z
pushi $2335 ; 9013
push0
push0
callk kernel_29, $6
bnot
sat temp[$2]
push
pToa bottom
ne?
bnt code_013d
lat temp[$2]
aTop bottom
ldi $fe ; 254, strIndex
aTop picture
push1
pushSelf
callk kernel_42, $2
bnot
code_013d: ret
RlmInfoBar::init:
ret
pushi $94 ; 148, init
pushi $4 ; scaleX
push0
push0
pushi $27f ; 639, rename
pushi $3 ; z
pushi $2335 ; 9013
push0
push0
callk kernel_29, $6
bnot
push
ldi $1
sub
push
super Plane, $c
bnot
pushi $8d ; 141, new
push0
class Cast
send $4
bnot
aTop pCast
pushi $1b8 ; 440, addCast
push1
pTos pCast
self $6
bnot
pToa pBar
not
bnt code_01a3
ldi $1
aTop pBar
pushi $8d ; 141, new
push1
push2
class IntArray
send $6
bnot
aTop pEgoBoxSet
pushi $8d ; 141, new
push1
pushi $4 ; scaleX
class IntArray
send $6
bnot
aTop pLeftBoxSet
pushi $8d ; 141, new
push1
pushi $4 ; scaleX
class IntArray
send $6
bnot
aTop pRightBoxSet
jmp code_01a9
code_01a3: pushi $75 ; 117, 'u', show
push0
self $4
bnot
code_01a9: ret
RlmInfoBar::setBarText:
link $3
pToa pText
bnt code_01bb
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
aTop pText
code_01bb: pushi $f5 ; 245, format
push2
lofsa string_0058 ; "%s"
push
lsp param[$1]
class Str
send $8
bnot
sat temp[$0]
pushi $3 ; z
push1
push2
pushi $9 ; inLeft
push
callk kernel_91, $4
bnot
push
pushi $14 ; 20, nsRight
callk kernel_70, $6
bnot
sat temp[$2]
pushi $192 ; 402, getName
sub
push
ldi $2
div
sat temp[$2]
pushi $25 ; 37, '%', fore
push1
pushi $1a ; 26, signal
pushi $32b ; 811, pShadowColor
push1
pushi $5 ; scaleY
pushi $2a ; 42, '*', font
push1
pushi $14 ; 20, nsRight
pushi $94 ; 148, init
pushi $6 ; maxScale
lst temp[$0]
push
pushi $9 ; inLeft
pushi $ff ; 255, asInteger
push0
pTos pCast
pushi $9a ; 154, yourself
push0
pushi $8d ; 141, new
push0
class ShadowText
send $4
bnot
aTop pText
send $26
bnot
pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
ret
RlmInfoBar::updateBar:
link $10
lsp param[$3]
ldi $0
lt?
bnt code_0230
ret
code_0230: lsp param[$3]
ldi $0
eq?
bnt code_024d
lsp param[$0]
ldi $3 ; z
eq?
bnt code_024d
pushi $4 ; scaleX
pushi $6 ; maxScale
pushi $5 ; scaleY
lsp param[$1]
lsp param[$2]
callk kernel_118, $8
bnot
ret
code_024d: ret
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
sat temp[$d]
pushi $b5 ; 181, set
push1
lsp param[$1]
send $6
bnot
pushi $113 ; 275, mul
push1
pushi $64 ; 100, 'd', moveDone
lat temp[$d]
send $6
bnot
pushi $115 ; 277, div
push1
lsp param[$2]
lat temp[$d]
send $6
bnot
pushi $10d ; 269, lowWord
push0
lat temp[$d]
send $4
bnot
sat temp[$7]
pushi $95 ; 149, dispose
push0
lat temp[$d]
send $4
bnot
lst temp[$7]
ldi $64 ; 100, 'd', moveDone
gt?
bnt code_0299
ldi $64 ; 100, 'd', moveDone
sat temp[$7]
jmp code_02a4
code_0299: lst temp[$7]
ldi $0
lt?
bnt code_02a4
ldi $0
sat temp[$7]
code_02a4: lsp param[$3]
ldi $1
eq?
bnt code_02b6
lsp param[$1]
ldi $0
lt?
bnt code_02b6
ldi $0
sap param[$1]
code_02b6: lst temp[$7]
ldi $32 ; 50, '2', edit
gt?
bnt code_02c3
ldi $53 ; 83, 'S', restore
sat temp[$0]
jmp code_02d4
code_02c3: lst temp[$7]
ldi $1e ; 30, brRight
gt?
bnt code_02d0
ldi $40 ; 64, '@', yStep
sat temp[$0]
jmp code_02d4
code_02d0: ldi $3b ; 59, ';', b_i2
sat temp[$0]
code_02d4: ldi $0
sat temp[$9]
ldi $0
sat temp[$8]
pushi $3 ; z
pushi $2335 ; 9013
push1
push0
callk kernel_29, $6
bnot
sat temp[$4]
pushi $3 ; z
pushi $2335 ; 9013
push1
push0
callk kernel_28, $6
bnot
sat temp[$3]
lsp param[$0]
ldi $3 ; z
gt?
bnt code_03c0
lsp param[$1]
ldi $0
le?
bnt code_0318
pushi $f5 ; 245, format
push2
lofsa string_005b ; "%s: Dead"
push
lsp param[$5]
class Str
send $8
bnot
sat temp[$5]
jmp code_032d
code_0318: pushi $f5 ; 245, format
pushi $3 ; z
lofsa string_0064 ; "%s %d"
push
lsp param[$5]
lsp param[$1]
class Str
send $a
bnot
sat temp[$5]
code_032d: ldi $0
sat temp[$e]
lsp param[$3]
lat temp[$4]
mul
sat temp[$a]
pushi $3 ; z
push1
push2
pushi $9 ; inLeft
lst temp[$5]
callk kernel_91, $4
bnot
push
pushi $3e7 ; 999, pUpdatorList
callk kernel_70, $6
bnot
sat temp[$6]
push
lat temp[$3]
gt?
bnt code_035b
lst temp[$6]
ldi $4 ; scaleX
add
sat temp[$3]
code_035b: lsp param[$4]
ldi $0
eq?
bnt code_0380
pushi $87 ; 135, left
push0
push0
push0
lag global[$3]
send $4
bnot
send $4
bnot
sat temp[$8]
lag global[$d3]
bnt code_037a
ldi $f ; 15, loop
sat temp[$e]
code_037a: pToa pLeftBoxSet
sat temp[$c]
jmp code_0398
code_0380: pushi $88 ; 136, right
push0
push0
push0
lag global[$3]
send $4
bnot
send $4
bnot
push
lat temp[$3]
sub
sat temp[$8]
pToa pRightBoxSet
sat temp[$c]
code_0398: lst temp[$a]
lat temp[$e]
add
sat temp[$9]
push
lat temp[$4]
add
sat temp[$a]
ldi $0
sat temp[$e]
lst temp[$a]
pToa bottom
gt?
bnt code_03cf
lat temp[$a]
aTop bottom
ldi $fe ; 254, strIndex
aTop picture
push1
pushSelf
callk kernel_42, $2
bnot
jmp code_03cf
code_03c0: pushi $d0 ; 208, with
push1
lofsa string_006a ; "Error"
push
class Str
send $6
bnot
sat temp[$5]
code_03cf: push1
pushi $4b ; 75, 'K', at
push1
lsp param[$3]
lat temp[$c]
send $6
bnot
push
calle export60000_0, $2
bnot
bnt code_03f4
push1
pushi $4b ; 75, 'K', at
push1
lsp param[$3]
lat temp[$c]
send $6
bnot
push
callk kernel_31, $2
bnot
code_03f4: ldi $0
sat temp[$2]
lst temp[$c]
pToa pEgoBoxSet
ne?
bnt code_04ad
pushi $11 ; 17, bitmap
push1
pushi $5 ; scaleY
push0
lst temp[$3]
ldi $1
add
push
lst temp[$4]
ldi $1
add
push
pushi $ff ; 255, asInteger
lsg global[$54]
callk kernel_35, $a
bnot
push
push1
push1
lst temp[$8]
push2
push1
lst temp[$9]
pushi $7 ; priority
push1
pTos priority
ldi $1
add
push
pushi $94 ; 148, init
push1
pTos pCast
pushi $8d ; 141, new
push0
class View
send $4
bnot
sat temp[$2]
send $1e
bnot
pushi $7 ; priority
push2
pushi $11 ; 17, bitmap
push0
lat temp[$2]
send $4
bnot
push
push0
push0
lst temp[$3]
push0
pushi $5 ; scaleY
callk kernel_35, $e
bnot
pushi $7 ; priority
push2
pushi $11 ; 17, bitmap
push0
lat temp[$2]
send $4
bnot
push
push0
lst temp[$4]
lst temp[$3]
lst temp[$4]
pushi $5 ; scaleY
callk kernel_35, $e
bnot
pushi $7 ; priority
push2
pushi $11 ; 17, bitmap
push0
lat temp[$2]
send $4
bnot
push
push0
push0
push0
lst temp[$4]
pushi $5 ; scaleY
callk kernel_35, $e
bnot
pushi $7 ; priority
push2
pushi $11 ; 17, bitmap
push0
lat temp[$2]
send $4
bnot
push
lst temp[$3]
push0
lst temp[$3]
lst temp[$4]
pushi $5 ; scaleY
callk kernel_35, $e
bnot
pushi $4b ; 75, 'K', at
push2
lsp param[$3]
lst temp[$2]
lat temp[$c]
send $8
bnot
code_04ad: push1
lst temp[$2]
callk kernel_30, $2
bnot
ldi $0
sat temp[$1]
lat temp[$7]
bnt code_0519
lsp param[$3]
ldi $1
le?
bnt code_04c9
ldi $2
sat temp[$e]
jmp code_04cd
code_04c9: ldi $0
sat temp[$e]
code_04cd: lst temp[$3]
lat temp[$7]
mul
push
ldi $64 ; 100, 'd', moveDone
div
push
lat temp[$e]
sub
sat temp[$f]
push
ldi $1
lt?
bnt code_04e6
ldi $1
sat temp[$f]
code_04e6: pushi $5 ; scaleY
push0
lst temp[$f]
lst temp[$4]
ldi $2
sub
push
pushi $ff ; 255, asInteger
lst temp[$0]
callk kernel_35, $a
bnot
sat temp[$1]
pushi $5 ; scaleY
pushi $6 ; maxScale
pushi $11 ; 17, bitmap
push0
lat temp[$2]
send $4
bnot
push
lst temp[$1]
push1
push1
callk kernel_35, $a
bnot
push2
push1
lst temp[$1]
callk kernel_35, $4
bnot
code_0519: pushi $f ; 15, loop
pushi $4 ; scaleX
pushi $11 ; 17, bitmap
push0
lat temp[$2]
send $4
bnot
push
pushi $71 ; 113, 'q', data
push0
lat temp[$5]
send $4
bnot
push
push1
pushi $4 ; scaleX
lst temp[$3]
lst temp[$4]
pushi $2b ; 43, '+', type
pushi $ff ; 255, asInteger
dup
push1
push1
pushi $ff ; 255, asInteger
push0
push0
callk kernel_35, $1e
bnot
lat temp[$5]
bnt code_0552
pushi $95 ; 149, dispose
push0
send $4
bnot
code_0552: push1
lst temp[$2]
callk kernel_32, $2
bnot
ret

416
Script/Script40110.txt Normal file
View File

@ -0,0 +1,416 @@
PicInfoList::init:
pushi $94 ; 148, init
push0
&rest $1
super Set, $4
bnot
pushi $9f ; 159, add
pushi $f ; 15, loop
pushi $46f ; 1135, roomType
push1
pushi $3 ; z
pushi $6d ; 109, 'm', picture
push1
pushi $bb8 ; 3000, BAD SELECTOR
pushi $8d ; 141, new
push0
class PicInfo
send $4
bnot
send $c
bnot
push
pushi $46f ; 1135, roomType
push1
pushi $3 ; z
pushi $6d ; 109, 'm', picture
push1
pushi $bb9 ; 3001, BAD SELECTOR
pushi $8d ; 141, new
push0
class PicInfo
send $4
bnot
send $c
bnot
push
pushi $46f ; 1135, roomType
push1
pushi $3 ; z
pushi $6d ; 109, 'm', picture
push1
pushi $bc1 ; 3009, BAD SELECTOR
pushi $1ae ; 430, horizon
push1
pushi $82 ; 130, magPower
pushi $472 ; 1138, pBackY
push1
push1
pushi $473 ; 1139, pBackSize
push1
pushi $50 ; 80, 'P', claimed
pushi $470 ; 1136, polyList
push1
pushi $2b ; 43, '+', type
push1
push2
pushi $94 ; 148, init
pushi $12 ; 18, nsLeft
push0
push0
push0
pushi $f7 ; 247, cat
pushi $89 ; 137, top
pushi $96 ; 150, isClass
pushi $105 ; 261, setCycle
pushi $83 ; 131, mirrored
pushi $166 ; 358, dirLoop
pushi $80 ; 128, lastKey
pushi $1be ; 446, setSize
pushi $99 ; 153, respondsTo
pushi $23f ; 575, eatTheMice
pushi $e3 ; 227, expand
pushi $27f ; 639, rename
pushi $109 ; 265, timeLeft
pushi $27f ; 639, rename
push0
pushi $9a ; 154, yourself
push0
pushi $8d ; 141, new
push0
class Polygon
send $4
bnot
send $32
bnot
push
pushi $8d ; 141, new
push0
class PicInfo
send $4
bnot
send $24
bnot
push
pushi $46f ; 1135, roomType
push1
push2
pushi $6d ; 109, 'm', picture
push1
pushi $d4c ; 3404, BAD SELECTOR
pushi $8d ; 141, new
push0
class PicInfo
send $4
bnot
send $c
bnot
push
pushi $46f ; 1135, roomType
push1
push2
pushi $6d ; 109, 'm', picture
push1
pushi $d4d ; 3405, BAD SELECTOR
pushi $8d ; 141, new
push0
class PicInfo
send $4
bnot
send $c
bnot
push
pushi $46f ; 1135, roomType
push1
pushi $a ; 10, inTop
pushi $6d ; 109, 'm', picture
push1
pushi $bd6 ; 3030, BAD SELECTOR
pushi $470 ; 1136, polyList
push1
pushi $2b ; 43, '+', type
push1
push2
pushi $94 ; 148, init
pushi $a ; 10, inTop
push0
pushi $68 ; 104, 'h', restart
push0
pushi $13c ; 316, putLong
pushi $a0 ; 160, firstTrue
pushi $13d ; 317, putArray
pushi $174 ; 372, finalY
pushi $68 ; 104, 'h', restart
push0
pushi $68 ; 104, 'h', restart
pushi $9a ; 154, yourself
push0
pushi $8d ; 141, new
push0
class Polygon
send $4
bnot
send $22
bnot
push
pushi $8d ; 141, new
push0
class PicInfo
send $4
bnot
send $12
bnot
push
pushi $46f ; 1135, roomType
push1
pushi $a ; 10, inTop
pushi $6d ; 109, 'm', picture
push1
pushi $bd7 ; 3031, BAD SELECTOR
pushi $470 ; 1136, polyList
push1
pushi $2b ; 43, '+', type
push1
push2
pushi $94 ; 148, init
pushi $a ; 10, inTop
push0
pushi $d5 ; 213, compare
push0
pushi $13d ; 317, putArray
pushi $280 ; 640, disposeWhenDone
pushi $13c ; 316, putLong
pushi $280 ; 640, disposeWhenDone
pushi $dc ; 220, posn
push0
pushi $d5 ; 213, compare
pushi $9a ; 154, yourself
push0
pushi $8d ; 141, new
push0
class Polygon
send $4
bnot
send $22
bnot
push
pushi $8d ; 141, new
push0
class PicInfo
send $4
bnot
send $12
bnot
push
pushi $46f ; 1135, roomType
push1
pushi $a ; 10, inTop
pushi $6d ; 109, 'm', picture
push1
pushi $bd8 ; 3032, BAD SELECTOR
pushi $8d ; 141, new
push0
class PicInfo
send $4
bnot
send $c
bnot
push
pushi $46f ; 1135, roomType
push1
pushi $5 ; scaleY
pushi $6d ; 109, 'm', picture
push1
pushi $dac ; 3500, BAD SELECTOR
pushi $1ae ; 430, horizon
push1
pushi $64 ; 100, 'd', moveDone
pushi $472 ; 1138, pBackY
push1
pushi $a0 ; 160, firstTrue
pushi $473 ; 1139, pBackSize
push1
pushi $50 ; 80, 'P', claimed
pushi $474 ; 1140, pFrontY
push1
pushi $140 ; 320, pHandle
pushi $475 ; 1141, pFrontSize
push1
pushi $50 ; 80, 'P', claimed
pushi $8d ; 141, new
push0
class PicInfo
send $4
bnot
send $2a
bnot
push
pushi $46f ; 1135, roomType
push1
pushi $6 ; maxScale
pushi $6d ; 109, 'm', picture
push1
pushi $fa0 ; 4000, BAD SELECTOR
pushi $1ae ; 430, horizon
push1
pushi $5a ; 90, 'Z', size
pushi $472 ; 1138, pBackY
push1
pushi $a0 ; 160, firstTrue
pushi $473 ; 1139, pBackSize
push1
pushi $50 ; 80, 'P', claimed
pushi $474 ; 1140, pFrontY
push1
pushi $140 ; 320, pHandle
pushi $475 ; 1141, pFrontSize
push1
pushi $50 ; 80, 'P', claimed
pushi $8d ; 141, new
push0
class PicInfo
send $4
bnot
send $2a
bnot
push
pushi $46f ; 1135, roomType
push1
pushi $6 ; maxScale
pushi $6d ; 109, 'm', picture
push1
pushi $fa1 ; 4001, BAD SELECTOR
pushi $1ae ; 430, horizon
push1
pushi $5a ; 90, 'Z', size
pushi $472 ; 1138, pBackY
push1
pushi $a0 ; 160, firstTrue
pushi $473 ; 1139, pBackSize
push1
pushi $50 ; 80, 'P', claimed
pushi $474 ; 1140, pFrontY
push1
pushi $140 ; 320, pHandle
pushi $475 ; 1141, pFrontSize
push1
pushi $50 ; 80, 'P', claimed
pushi $8d ; 141, new
push0
class PicInfo
send $4
bnot
send $2a
bnot
push
pushi $46f ; 1135, roomType
push1
pushi $7 ; priority
pushi $6d ; 109, 'm', picture
push1
pushi $c81 ; 3201, BAD SELECTOR
pushi $1ae ; 430, horizon
push1
pushi $5a ; 90, 'Z', size
pushi $472 ; 1138, pBackY
push1
pushi $a0 ; 160, firstTrue
pushi $473 ; 1139, pBackSize
push1
pushi $50 ; 80, 'P', claimed
pushi $474 ; 1140, pFrontY
push1
pushi $140 ; 320, pHandle
pushi $475 ; 1141, pFrontSize
push1
pushi $50 ; 80, 'P', claimed
pushi $8d ; 141, new
push0
class PicInfo
send $4
bnot
send $2a
bnot
push
pushi $46f ; 1135, roomType
push1
pushi $8 ; fixPriority
pushi $6d ; 109, 'm', picture
push1
pushi $ce4 ; 3300, BAD SELECTOR
pushi $1ae ; 430, horizon
push1
pushi $5a ; 90, 'Z', size
pushi $472 ; 1138, pBackY
push1
pushi $a0 ; 160, firstTrue
pushi $473 ; 1139, pBackSize
push1
pushi $50 ; 80, 'P', claimed
pushi $474 ; 1140, pFrontY
push1
pushi $140 ; 320, pHandle
pushi $475 ; 1141, pFrontSize
push1
pushi $50 ; 80, 'P', claimed
pushi $8d ; 141, new
push0
class PicInfo
send $4
bnot
send $2a
bnot
push
pushi $46f ; 1135, roomType
push1
pushi $f ; 15, loop
pushi $6d ; 109, 'm', picture
push1
pushi $bff ; 3071, BAD SELECTOR
pushi $472 ; 1138, pBackY
push1
pushi $a0 ; 160, firstTrue
pushi $473 ; 1139, pBackSize
push1
pushi $70 ; 112, 'p', coordType
pushi $474 ; 1140, pFrontY
push1
pushi $140 ; 320, pHandle
pushi $475 ; 1141, pFrontSize
push1
pushi $70 ; 112, 'p', coordType
pushi $8d ; 141, new
push0
class PicInfo
send $4
bnot
send $24
bnot
push
pushi $46f ; 1135, roomType
push1
push1
pushi $6d ; 109, 'm', picture
push1
pushi $1964 ; 6500
pushi $1ae ; 430, horizon
push1
pushi $82 ; 130, magPower
pushi $472 ; 1138, pBackY
push1
push1
pushi $473 ; 1139, pBackSize
push1
pushi $50 ; 80, 'P', claimed
pushi $8d ; 141, new
push0
class PicInfo
send $4
bnot
send $1e
bnot
push
self $22
bnot
ret

4654
Script/Script40111.txt Normal file

File diff suppressed because it is too large Load Diff

312
Script/Script40112.txt Normal file
View File

@ -0,0 +1,312 @@
Mutex::init:
pushi $94 ; 148, init
push0
super Obj, $4
bnot
pushi $b1 ; 177, duplicate
push0
lap param[$1]
send $4
bnot
aTop pObjects
ret
Mutex::dispose:
pushi $58 ; 88, 'X', delete
push1
pushSelf
pushi $348 ; 840, pPendingList
push0
lofsa LockMgr
send $4
bnot
send $6
bnot
pushi $58 ; 88, 'X', delete
push1
pushSelf
pushi $349 ; 841, pLockedList
push0
lofsa LockMgr
send $4
bnot
send $6
bnot
ldi $0
aTop pActive
pushi $a6 ; 166, release
push0
pushi $95 ; 149, dispose
push0
pToa pObjects
send $8
bnot
pushi $95 ; 149, dispose
push0
&rest $1
super Obj, $4
bnot
ret
Mutex::hasConflict:
link $2
pushi $5a ; 90, 'Z', size
push0
pToa pObjects
send $4
bnot
sat temp[$1]
ldi $0
sat temp[$0]
code_00ca: lst temp[$0]
lat temp[$1]
lt?
bnt code_0103
pTos pOwner
pushi $343 ; 835, pOwner
push0
lap param[$1]
send $4
bnot
ne?
bnt code_00ff
pushi $a3 ; 163, contains
push1
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
pToa pObjects
send $6
bnot
push
pushi $344 ; 836, pObjects
push0
lap param[$1]
send $4
bnot
send $6
bnot
bnt code_00ff
ldi $1
ret
code_00ff: +at temp[$0]
jmp code_00ca
code_0103: ldi $0
ret
Mutex::hasNoConflict:
pushi $a0 ; 160, firstTrue
push2
pushi $346 ; 838, hasConflict
pushSelf
lap param[$1]
send $8
bnot
bnt code_0118
ldi $0
ret
code_0118: ldi $1
ret
LockMgr::init:
pushi $94 ; 148, init
push0
&rest $1
super Obj, $4
bnot
pushi $8d ; 141, new
push0
class Set
send $4
bnot
aTop pLockedList
pushi $8d ; 141, new
push0
class Set
send $4
bnot
aTop pPendingList
ret
LockMgr::dispose:
pToa pLockedList
bnt code_014b
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
aTop pLockedList
code_014b: pToa pPendingList
bnt code_015a
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
aTop pPendingList
code_015a: pushi $95 ; 149, dispose
push0
&rest $1
super Obj, $4
bnot
ret
LockMgr::lock:
link $3
pushi $8d ; 141, new
push0
class Set
send $4
bnot
sat temp[$2]
ldi $0
sat temp[$0]
code_0176: lst temp[$0]
lsp param[$0]
ldi $2
sub
lt?
bnt code_0197
lat temp[$0]
lapi param[$2]
bnt code_0193
pushi $9f ; 159, add
push1
lat temp[$0]
lspi param[$2]
lat temp[$2]
send $6
bnot
code_0193: +at temp[$0]
jmp code_0176
code_0197: pushi $5a ; 90, 'Z', size
push0
lat temp[$2]
send $4
bnot
bnt code_01e1
pushi $94 ; 148, init
push1
lst temp[$2]
pushi $33f ; 831, pClient
push1
lat temp[$0]
lspi param[$2]
pushi $343 ; 835, pOwner
push1
lsp param[$1]
pushi $8d ; 141, new
push0
class Mutex
send $4
bnot
sat temp[$1]
send $12
bnot
pushi $a6 ; 166, release
push0
pushi $95 ; 149, dispose
push0
lat temp[$2]
send $8
bnot
pushi $9f ; 159, add
push1
lst temp[$1]
pToa pPendingList
send $6
bnot
lat temp[$1]
ret
jmp code_01ea
code_01e1: pushi $95 ; 149, dispose
push0
lat temp[$2]
send $4
bnot
code_01ea: ldi $0
ret
LockMgr::doit:
link $1
pushi $5a ; 90, 'Z', size
push0
pToa pPendingList
send $4
bnot
bnt code_026c
code_01f9: pushi $a0 ; 160, firstTrue
push2
pushi $347 ; 839, hasNoConflict
pTos pLockedList
pToa pPendingList
send $8
bnot
sat temp[$0]
bnt code_026c
pushi $58 ; 88, 'X', delete
push1
push
pToa pPendingList
send $6
bnot
pushi $9f ; 159, add
push1
lst temp[$0]
pToa pLockedList
send $6
bnot
pushi $345 ; 837, pActive
push1
push1
lat temp[$0]
send $6
bnot
pushi $33f ; 831, pClient
push0
lat temp[$0]
send $4
bnot
bnt code_01f9
pushi $9f ; 159, add
push1
pushi $cb ; 203, cuee
push1
pushi $33f ; 831, pClient
push0
lat temp[$0]
send $4
bnot
push
pushi $9a ; 154, yourself
push0
pushi $8d ; 141, new
push0
class Cue
send $4
bnot
send $a
bnot
push
pushi $ca ; 202, pCuees
push0
pushi $279 ; 633, pFocusedRoom
push0
lag global[$30]
send $4
bnot
send $4
bnot
send $6
bnot
jmp code_01f9
code_026c: ret