175 lines
2.8 KiB
Plaintext
175 lines
2.8 KiB
Plaintext
ClutOverride::new:
|
|
push1
|
|
pushSelf
|
|
callk kernel_10, $2
|
|
bnot
|
|
ret
|
|
|
|
ClutOverride::init:
|
|
link $1
|
|
pToa data
|
|
not
|
|
bnt code_00a3
|
|
pushi $d8 ; 216, callKernel
|
|
pushi $3 ; z
|
|
push0
|
|
pushi $100 ; 256, strMax
|
|
pTos type
|
|
self $a
|
|
bnot
|
|
aTop data
|
|
code_00a3: ldi $0
|
|
sat temp[$0]
|
|
code_00a7: lst temp[$0]
|
|
ldi $100 ; 256, strMax
|
|
lt?
|
|
bnt code_00bd
|
|
pushi $61c ; 1564, selfAt
|
|
push2
|
|
lst temp[$0]
|
|
dup
|
|
self $8
|
|
bnot
|
|
+at temp[$0]
|
|
jmp code_00a7
|
|
|
|
code_00bd: lap param[$1]
|
|
aTop pClient
|
|
pushi $17a ; 378, clut
|
|
push0
|
|
send $4
|
|
bnot
|
|
aTop pClut
|
|
pushi $17a ; 378, clut
|
|
push1
|
|
pushSelf
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
ClutOverride::dispose:
|
|
pToa pClient
|
|
bnt code_00e2
|
|
pushi $17a ; 378, clut
|
|
push1
|
|
pTos pClut
|
|
send $6
|
|
bnot
|
|
code_00e2: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super Clut, $4
|
|
bnot
|
|
ret
|
|
|
|
ClutOverride::at:
|
|
pToa pClut
|
|
bnt code_00fa
|
|
pushi $4b ; 75, 'K', at
|
|
push0
|
|
&rest $1
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
code_00fa: ret
|
|
|
|
ClutOverride::selfAt:
|
|
pushi $4b ; 75, 'K', at
|
|
push0
|
|
&rest $1
|
|
super Clut, $4
|
|
bnot
|
|
ret
|
|
|
|
InvisibleClut::init:
|
|
link $1
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super Clut, $4
|
|
bnot
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_0115: lat temp[$0]
|
|
lsli local[$0]
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_013a
|
|
pushi $4b ; 75, 'K', at
|
|
pushi $5 ; scaleY
|
|
lat temp[$0]
|
|
lsli local[$0]
|
|
pushi $f0 ; 240, drawSelected
|
|
pushi $f1 ; 241, scale
|
|
pushi $f2 ; 242, pCast
|
|
pushi $f3 ; 243, nextEvent
|
|
self $e
|
|
bnot
|
|
+at temp[$0]
|
|
jmp code_0115
|
|
|
|
code_013a: pushi $4b ; 75, 'K', at
|
|
pushi $3 ; z
|
|
pushi $f ; 15, loop
|
|
pushi $f0 ; 240, drawSelected
|
|
pushi $f1 ; 241, scale
|
|
self $a
|
|
bnot
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
pushi $18 ; 24, lsRight
|
|
pushi $f0 ; 240, drawSelected
|
|
self $8
|
|
bnot
|
|
pushi $4b ; 75, 'K', at
|
|
pushi $5 ; scaleY
|
|
pushi $68 ; 104, 'h', restart
|
|
pushi $f3 ; 243, nextEvent
|
|
pushi $f2 ; 242, pCast
|
|
pushi $f1 ; 241, scale
|
|
pushi $f0 ; 240, drawSelected
|
|
self $e
|
|
bnot
|
|
ret
|
|
|
|
FrozenClut::init:
|
|
link $1
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super Clut, $4
|
|
bnot
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_017c: lat temp[$0]
|
|
lsli local[$0]
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_019d
|
|
pushi $4b ; 75, 'K', at
|
|
pushi $5 ; scaleY
|
|
lat temp[$0]
|
|
lsli local[$0]
|
|
pushi $35 ; 53, '5', nodePtr
|
|
pushi $36 ; 54, '6', client
|
|
pushi $37 ; 55, '7', dx
|
|
pushi $38 ; 56, '8', dy
|
|
self $e
|
|
bnot
|
|
+at temp[$0]
|
|
jmp code_017c
|
|
|
|
code_019d: pushi $4b ; 75, 'K', at
|
|
pushi $5 ; scaleY
|
|
pushi $68 ; 104, 'h', restart
|
|
pushi $38 ; 56, '8', dy
|
|
pushi $37 ; 55, '7', dx
|
|
pushi $36 ; 54, '6', client
|
|
pushi $35 ; 53, '5', nodePtr
|
|
self $e
|
|
bnot
|
|
ret
|
|
|