213 lines
3.0 KiB
Plaintext
213 lines
3.0 KiB
Plaintext
Prop::dispose:
|
|
pushi $c9 ; 201, setScript
|
|
push1
|
|
push0
|
|
pushi $105 ; 261, setCycle
|
|
push1
|
|
push0
|
|
self $c
|
|
bnot
|
|
pToa timer
|
|
bnt code_00c8
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_00c8: pToa scaler
|
|
bnt code_00d7
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop scaler
|
|
code_00d7: pushi $95 ; 149, dispose
|
|
push0
|
|
super View, $4
|
|
bnot
|
|
ret
|
|
|
|
Prop::doit:
|
|
link $1
|
|
pToa script
|
|
bnt code_00ec
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_00ec: pTos signal
|
|
ldi $1
|
|
and
|
|
bnt code_0107
|
|
pToa cycler
|
|
bnt code_00fd
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_00fd: pToa scaler
|
|
bnt code_0107
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_0107: pushi $45 ; 69, 'E', doit
|
|
push0
|
|
super View, $4
|
|
bnot
|
|
ret
|
|
|
|
Prop::handleEvent:
|
|
pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
super View, $6
|
|
bnot
|
|
pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
Prop::setCycle:
|
|
pToa cycler
|
|
bnt code_012f
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_012f: lap param[$1]
|
|
bnt code_015e
|
|
pushi $1007 ; 4103, -info-
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $8000 ; -32768
|
|
and
|
|
bnt code_014c
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
jmp code_014e
|
|
|
|
code_014c: lap param[$1]
|
|
code_014e: aTop cycler
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pushSelf
|
|
&rest $2
|
|
pToa cycler
|
|
send $6
|
|
bnot
|
|
jmp code_0162
|
|
|
|
code_015e: ldi $0
|
|
aTop cycler
|
|
code_0162: ret
|
|
|
|
Prop::setLoop:
|
|
link $1
|
|
pToa loop
|
|
sat temp[$0]
|
|
pushi $195 ; 405, setLoop
|
|
push0
|
|
&rest $1
|
|
super View, $4
|
|
bnot
|
|
pToa cycler
|
|
bnt code_018f
|
|
lst temp[$0]
|
|
pToa loop
|
|
ne?
|
|
bnt code_018f
|
|
pushi $15e ; 350, clientLastCel
|
|
push1
|
|
pushi $161 ; 353, lastCel
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pToa cycler
|
|
send $6
|
|
bnot
|
|
code_018f: ret
|
|
|
|
Prop::cue:
|
|
pToa script
|
|
bnt code_019b
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_019b: ret
|
|
|
|
Prop::setScript:
|
|
pToa script
|
|
bnt code_01a7
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_01a7: lap param[$1]
|
|
bnt code_01b5
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pushSelf
|
|
&rest $2
|
|
send $6
|
|
bnot
|
|
code_01b5: ret
|
|
|
|
Prop::motionCue:
|
|
pToa cycler
|
|
bnt code_01cc
|
|
pushi $154 ; 340, completed
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_01cc
|
|
pushi $159 ; 345, motionCue
|
|
push0
|
|
pToa cycler
|
|
send $4
|
|
bnot
|
|
code_01cc: ret
|
|
|
|
Prop::checkDetail:
|
|
pToa detailLevel
|
|
not
|
|
bnt code_01d4
|
|
jmp code_01fb
|
|
|
|
code_01d4: lap param[$0]
|
|
bnt code_01dc
|
|
lap param[$1]
|
|
jmp code_01e5
|
|
|
|
code_01dc: pushi $19e ; 414, detailLevel
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
code_01e5: push
|
|
pToa detailLevel
|
|
lt?
|
|
bnt code_01f4
|
|
pTos signal
|
|
ldi $fe ; 254, strIndex
|
|
and
|
|
aTop signal
|
|
jmp code_01fb
|
|
|
|
code_01f4: pTos signal
|
|
ldi $1
|
|
or
|
|
aTop signal
|
|
code_01fb: ret
|
|
|