546 lines
7.6 KiB
Plaintext
546 lines
7.6 KiB
Plaintext
View::init:
|
|
link $1
|
|
pTos signal
|
|
ldi $f7 ; 247, cat
|
|
and
|
|
aTop signal
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super Feature, $4
|
|
bnot
|
|
pTos view
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_00fc
|
|
pTos signal
|
|
ldi $20 ; 32, ' ', name
|
|
and
|
|
bnt code_00fc
|
|
push2
|
|
pushi $80 ; 128, lastKey
|
|
pTos view
|
|
callk kernel_5, $4
|
|
bnot
|
|
bnt code_00fc
|
|
pushi $19c ; 412, doBaseRect
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_00fc: pToa plane
|
|
bnt code_010d
|
|
pTos view
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_010d
|
|
push1
|
|
pushSelf
|
|
callk kernel_20, $2
|
|
bnot
|
|
code_010d: ret
|
|
|
|
View::dispose:
|
|
link $1
|
|
ldi $0
|
|
aTop clut
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super Feature, $4
|
|
bnot
|
|
ret
|
|
|
|
View::doit:
|
|
pTos signal
|
|
ldi $8000 ; -32768
|
|
and
|
|
bnt code_0138
|
|
pushi $7 ; priority
|
|
pushSelf
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
pTos x
|
|
pTos y
|
|
pTos z
|
|
callk kernel_26, $e
|
|
bnot
|
|
code_0138: pTos -info-
|
|
ldi $8 ; fixPriority
|
|
and
|
|
bnt code_0155
|
|
pushi $17c ; 380, isNotHidden
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_0155
|
|
push1
|
|
pushSelf
|
|
callk kernel_32, $2
|
|
bnot
|
|
pTos -info-
|
|
ldi $f7 ; 247, cat
|
|
and
|
|
aTop -info-
|
|
code_0155: ret
|
|
|
|
View::posn:
|
|
lsp param[$0]
|
|
ldi $1
|
|
ge?
|
|
bnt code_0177
|
|
lap param[$1]
|
|
aTop x
|
|
lsp param[$0]
|
|
ldi $2
|
|
ge?
|
|
bnt code_0177
|
|
lap param[$2]
|
|
aTop y
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
ge?
|
|
bnt code_0177
|
|
lap param[$3]
|
|
aTop z
|
|
code_0177: pTos -info-
|
|
ldi $8 ; fixPriority
|
|
or
|
|
aTop -info-
|
|
pTos signal
|
|
ldi $20 ; 32, ' ', name
|
|
and
|
|
bnt code_018c
|
|
pushi $19c ; 412, doBaseRect
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_018c: ret
|
|
|
|
View::setLoop:
|
|
lsp param[$0]
|
|
ldi $0
|
|
eq?
|
|
bnt code_019e
|
|
pTos signal
|
|
ldi $800 ; 2048, BAD SELECTOR
|
|
or
|
|
aTop signal
|
|
jmp code_01d0
|
|
|
|
code_019e: lsp param[$1]
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_01af
|
|
pTos signal
|
|
ldi $f7ff ; -2049
|
|
and
|
|
aTop signal
|
|
jmp code_01d0
|
|
|
|
code_01af: lap param[$1]
|
|
aTop loop
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_01d0
|
|
lap param[$2]
|
|
bnt code_01c8
|
|
pTos signal
|
|
ldi $800 ; 2048, BAD SELECTOR
|
|
or
|
|
aTop signal
|
|
jmp code_01d0
|
|
|
|
code_01c8: pTos signal
|
|
ldi $f7ff ; -2049
|
|
and
|
|
aTop signal
|
|
code_01d0: ret
|
|
|
|
View::setCel:
|
|
lap param[$1]
|
|
aTop cel
|
|
ret
|
|
|
|
View::ignoreActors:
|
|
push0
|
|
lap param[$0]
|
|
eq?
|
|
bt code_01de
|
|
lap param[$1]
|
|
code_01de: bnt code_01ea
|
|
pTos signal
|
|
ldi $4000 ; 16384
|
|
or
|
|
aTop signal
|
|
jmp code_01f2
|
|
|
|
code_01ea: pTos signal
|
|
ldi $bfff ; -16385
|
|
and
|
|
aTop signal
|
|
code_01f2: ret
|
|
|
|
View::lastLoop:
|
|
push1
|
|
pushSelf
|
|
callk kernel_21, $2
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
ret
|
|
|
|
View::lastCel:
|
|
push1
|
|
pushSelf
|
|
callk kernel_22, $2
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
ret
|
|
|
|
View::motionCue:
|
|
ret
|
|
|
|
View::checkDetail:
|
|
ret
|
|
|
|
View::onMe:
|
|
link $2
|
|
lsp param[$0]
|
|
ldi $1
|
|
eq?
|
|
bnt code_0228
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
jmp code_0230
|
|
|
|
code_0228: lap param[$1]
|
|
sat temp[$0]
|
|
lap param[$2]
|
|
sat temp[$1]
|
|
code_0230: pTos signal
|
|
ldi $8 ; fixPriority
|
|
and
|
|
bnt code_023b
|
|
ldi $0
|
|
jmp code_0260
|
|
|
|
code_023b: pToa onMeCheck
|
|
not
|
|
bnt code_0254
|
|
pushi $4 ; scaleX
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
pushSelf
|
|
pTos signal
|
|
ldi $1000 ; 4096, -objID-
|
|
and
|
|
push
|
|
callk kernel_23, $8
|
|
bnot
|
|
jmp code_0260
|
|
|
|
code_0254: pushi $eb ; 235, onMe
|
|
push2
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
super Feature, $8
|
|
bnot
|
|
code_0260: ret
|
|
|
|
View::setScale:
|
|
link $6
|
|
lap param[$0]
|
|
not
|
|
bnt code_0279
|
|
pTos scaleSignal
|
|
ldi $1
|
|
or
|
|
aTop scaleSignal
|
|
pTos scaleSignal
|
|
ldi $fd ; 253, strip
|
|
and
|
|
aTop scaleSignal
|
|
jmp code_037b
|
|
|
|
code_0279: lsp param[$0]
|
|
ldi $5 ; scaleY
|
|
eq?
|
|
bnt code_02b9
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$5]
|
|
pTos scaleSignal
|
|
ldi $1
|
|
or
|
|
aTop scaleSignal
|
|
pTos scaleSignal
|
|
ldi $fd ; 253, strip
|
|
and
|
|
aTop scaleSignal
|
|
pushi $94 ; 148, init
|
|
pushi $5 ; scaleY
|
|
pushSelf
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
lsp param[$4]
|
|
lsp param[$5]
|
|
lat temp[$5]
|
|
send $e
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$5]
|
|
send $4
|
|
bnot
|
|
jmp code_037b
|
|
|
|
code_02b9: lsp param[$0]
|
|
ldi $2
|
|
eq?
|
|
bnt code_031a
|
|
pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
callk kernel_28, $6
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
callk kernel_29, $6
|
|
bnot
|
|
sat temp[$4]
|
|
lsp param[$1]
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_02e7
|
|
lat temp[$3]
|
|
sap param[$1]
|
|
code_02e7: lsp param[$2]
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_02f2
|
|
lat temp[$4]
|
|
sap param[$2]
|
|
code_02f2: lsp param[$1]
|
|
ldi $80 ; 128, lastKey
|
|
mul
|
|
push
|
|
lat temp[$3]
|
|
div
|
|
aTop scaleX
|
|
lsp param[$2]
|
|
ldi $80 ; 128, lastKey
|
|
mul
|
|
push
|
|
lat temp[$4]
|
|
div
|
|
aTop scaleY
|
|
pTos scaleSignal
|
|
ldi $1
|
|
or
|
|
aTop scaleSignal
|
|
push1
|
|
pushSelf
|
|
callk kernel_32, $2
|
|
bnot
|
|
jmp code_037b
|
|
|
|
code_031a: lap param[$1]
|
|
not
|
|
bnt code_0328
|
|
pTos scaleSignal
|
|
ldi $fc ; 252, getToken
|
|
and
|
|
aTop scaleSignal
|
|
jmp code_037b
|
|
|
|
code_0328: lsp param[$1]
|
|
pushi $6c ; 108, 'l', vanishingY
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_0345
|
|
push2
|
|
lofsa string_007c ; "<%s setScale:> y value less than vanishingY"
|
|
push
|
|
pTos name
|
|
calle export60029_1, $4
|
|
bnot
|
|
jmp code_037b
|
|
|
|
code_0345: lsp param[$1]
|
|
pushi $6c ; 108, 'l', vanishingY
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
sub
|
|
sat temp[$0]
|
|
pushi $be ; 190, seconds
|
|
lap param[$1]
|
|
sub
|
|
sat temp[$1]
|
|
push
|
|
ldi $64 ; 100, 'd', moveDone
|
|
mul
|
|
push
|
|
lat temp[$0]
|
|
div
|
|
push
|
|
ldi $64 ; 100, 'd', moveDone
|
|
add
|
|
sat temp[$2]
|
|
pTos scaleSignal
|
|
ldi $3 ; z
|
|
or
|
|
aTop scaleSignal
|
|
lst temp[$2]
|
|
ldi $80 ; 128, lastKey
|
|
mul
|
|
push
|
|
ldi $64 ; 100, 'd', moveDone
|
|
div
|
|
aTop maxScale
|
|
code_037b: ret
|
|
|
|
View::setMagnifier:
|
|
pTos signal
|
|
ldi $8 ; fixPriority
|
|
and
|
|
not
|
|
bnt code_03a5
|
|
pToa magnifier
|
|
bnt code_038f
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_038f: lap param[$0]
|
|
bnt code_03a5
|
|
lap param[$1]
|
|
bnt code_03a5
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pushSelf
|
|
&rest $2
|
|
lap param[$1]
|
|
aTop magnifier
|
|
send $6
|
|
bnot
|
|
code_03a5: ret
|
|
|
|
View::celRect:
|
|
pushi $e7 ; 231, celRect
|
|
pushi $6 ; maxScale
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
pTos x
|
|
pTos y
|
|
pTos z
|
|
lap param[$1]
|
|
send $10
|
|
bnot
|
|
ret
|
|
|
|
View::doBaseRect:
|
|
pToa baseSetter
|
|
bnt code_03cb
|
|
pushi $45 ; 69, 'E', doit
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
jmp code_03d1
|
|
|
|
code_03cb: push1
|
|
pushSelf
|
|
callk kernel_94, $2
|
|
bnot
|
|
code_03d1: ret
|
|
|
|
View::setSignal:
|
|
link $1
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_03df
|
|
lap param[$2]
|
|
jmp code_03e1
|
|
|
|
code_03df: ldi $1
|
|
code_03e1: sat temp[$0]
|
|
bnt code_03ee
|
|
pTos signal
|
|
lap param[$1]
|
|
or
|
|
aTop signal
|
|
jmp code_03f6
|
|
|
|
code_03ee: pTos signal
|
|
lap param[$1]
|
|
bnot
|
|
and
|
|
aTop signal
|
|
code_03f6: ret
|
|
|
|
View::dragDoit:
|
|
push1
|
|
pushSelf
|
|
callk kernel_20, $2
|
|
bnot
|
|
pushi $dc ; 220, posn
|
|
push2
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pTos x
|
|
pToa left
|
|
sub
|
|
add
|
|
push
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pTos y
|
|
pToa top
|
|
sub
|
|
add
|
|
push
|
|
self $8
|
|
bnot
|
|
push1
|
|
pushSelf
|
|
callk kernel_32, $2
|
|
bnot
|
|
ret
|
|
|