127 lines
1.8 KiB
Plaintext
127 lines
1.8 KiB
Plaintext
RemapObj::init:
|
|
lap param[$1]
|
|
aTop pColor
|
|
lap param[$2]
|
|
aTop pPercent
|
|
pushi $3 ; z
|
|
push2
|
|
lsp param[$1]
|
|
push
|
|
callk kernel_110, $6
|
|
bnot
|
|
ret
|
|
|
|
RemapObj::dispose:
|
|
push2
|
|
push0
|
|
pTos pColor
|
|
callk kernel_110, $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super Obj, $4
|
|
bnot
|
|
ret
|
|
|
|
Remaps::add:
|
|
link $1
|
|
pushi $a1 ; 161, firstEqual
|
|
push2
|
|
pushi $330 ; 816, pColor
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_00c1
|
|
lsp param[$2]
|
|
pushi $331 ; 817, pPercent
|
|
push0
|
|
send $4
|
|
bnot
|
|
ne?
|
|
bnt code_00a8
|
|
pushi $3 ; z
|
|
lofsa string_004b ; "Remaps::add ( %d, %d ): color overwrite"
|
|
push
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
callk kernel_132, $6
|
|
bnot
|
|
code_00a8: pushi $332 ; 818, pCount
|
|
push1
|
|
pushi $332 ; 818, pCount
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
add
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
jmp code_00e1
|
|
|
|
code_00c1: pushi $94 ; 148, init
|
|
push2
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class RemapObj
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
send $8
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$0]
|
|
super List, $6
|
|
bnot
|
|
code_00e1: ret
|
|
|
|
Remaps::delete:
|
|
link $1
|
|
pushi $a1 ; 161, firstEqual
|
|
push2
|
|
pushi $330 ; 816, pColor
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_0127
|
|
pushi $332 ; 818, pCount
|
|
push1
|
|
pushi $332 ; 818, pCount
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $332 ; 818, pCount
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_0127
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
lst temp[$0]
|
|
super List, $6
|
|
bnot
|
|
code_0127: ret
|
|
|