183 lines
2.5 KiB
Plaintext
183 lines
2.5 KiB
Plaintext
Sound::dispose:
|
|
pushi $141 ; 321, stop
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super Obj, $4
|
|
bnot
|
|
ret
|
|
|
|
Sound::play:
|
|
pTos pHandle
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_00e2
|
|
pushi $141 ; 321, stop
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_00e2: push2
|
|
push0
|
|
lsp param[$1]
|
|
callk kernel_117, $4
|
|
bnot
|
|
aTop pHandle
|
|
push2
|
|
push2
|
|
pTos pHandle
|
|
callk kernel_117, $4
|
|
bnot
|
|
ret
|
|
|
|
Sound::stop:
|
|
push2
|
|
push1
|
|
pTos pHandle
|
|
callk kernel_117, $4
|
|
bnot
|
|
push2
|
|
pushi $3 ; z
|
|
pTos pHandle
|
|
callk kernel_117, $4
|
|
bnot
|
|
ldi $ff ; 255, asInteger
|
|
aTop pHandle
|
|
ret
|
|
|
|
PanHandler::doit:
|
|
link $2
|
|
push1
|
|
pTos pObject
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0171
|
|
ldi $80 ; 128, lastKey
|
|
sat temp[$1]
|
|
pushi $144 ; 324, scaler
|
|
push0
|
|
pToa pObject
|
|
send $4
|
|
bnot
|
|
bnt code_013b
|
|
pushi $145 ; 325, frontSize
|
|
push0
|
|
pushi $144 ; 324, scaler
|
|
push0
|
|
pToa pObject
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
code_013b: pushi $5 ; scaleY
|
|
dup
|
|
pTos pSoundID
|
|
push1
|
|
push0
|
|
pToa pObject
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $5 ; scaleY
|
|
push0
|
|
pToa pObject
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
callk kernel_117, $a
|
|
bnot
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0182
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
lofsa SoundList
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
jmp code_0182
|
|
|
|
code_0171: pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
lofsa SoundList
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_0182: ret
|
|
|
|
SoundMgr::play:
|
|
link $3
|
|
pushi $3 ; z
|
|
push0
|
|
lsp param[$1]
|
|
lsp param[$0]
|
|
ldi $2
|
|
gt?
|
|
bnt code_0195
|
|
lap param[$3]
|
|
jmp code_0197
|
|
|
|
code_0195: ldi $1
|
|
code_0197: push
|
|
callk kernel_117, $6
|
|
bnot
|
|
sat temp[$0]
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_01d7
|
|
lap param[$2]
|
|
bnt code_01d7
|
|
pushi $142 ; 322, pObject
|
|
push1
|
|
lsp param[$2]
|
|
pushi $143 ; 323, pSoundID
|
|
push1
|
|
lst temp[$0]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class PanHandler
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
send $c
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$2]
|
|
lofsa SoundList
|
|
send $6
|
|
bnot
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
code_01d7: lat temp[$0]
|
|
ret
|
|
|
|
SoundMgr::doit:
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $45 ; 69, 'E', doit
|
|
lofsa SoundList
|
|
send $6
|
|
bnot
|
|
ret
|
|
|