Upload files to "Script"
This commit is contained in:
parent
cec617c7f3
commit
a0859e9e2f
|
|
@ -0,0 +1,42 @@
|
|||
Window::new:
|
||||
pushi $1c0 ; 448, container
|
||||
push1
|
||||
lofsa screenRect
|
||||
push
|
||||
pushi $9a ; 154, yourself
|
||||
push0
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
super Plane, $4
|
||||
bnot
|
||||
send $a
|
||||
bnot
|
||||
ret
|
||||
|
||||
Window::init:
|
||||
pToa container
|
||||
not
|
||||
bnt code_0086
|
||||
lofsa screenRect
|
||||
aTop container
|
||||
code_0086: pTos back
|
||||
ldi $ff ; 255, asInteger
|
||||
eq?
|
||||
bnt code_0091
|
||||
lag global[$55]
|
||||
aTop back
|
||||
code_0091: pushi $94 ; 148, init
|
||||
push0
|
||||
&rest $1
|
||||
super Plane, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Window::center:
|
||||
pushi $de ; 222, centerIn
|
||||
push1
|
||||
pTos container
|
||||
self $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,703 @@
|
|||
Plane::init:
|
||||
pToa casts
|
||||
not
|
||||
bnt code_009b
|
||||
pushi $9f ; 159, add
|
||||
push0
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Cast
|
||||
send $4
|
||||
bnot
|
||||
aTop casts
|
||||
send $4
|
||||
bnot
|
||||
code_009b: push0
|
||||
push1
|
||||
pushSelf
|
||||
pToa casts
|
||||
send $6
|
||||
bnot
|
||||
pushi $57 ; 87, 'W', draw
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
lap param[$0]
|
||||
bnt code_00c4
|
||||
pushi $b5 ; 181, set
|
||||
pushi $4 ; scaleX
|
||||
lsp param[$1]
|
||||
lsp param[$2]
|
||||
lsp param[$3]
|
||||
lsp param[$4]
|
||||
self $c
|
||||
bnot
|
||||
push1
|
||||
pushSelf
|
||||
callk kernel_42, $2
|
||||
bnot
|
||||
code_00c4: ret
|
||||
|
||||
Plane::dispose:
|
||||
link $1
|
||||
pToa casts
|
||||
bnt code_00e8
|
||||
lag global[$3]
|
||||
bnt code_00df
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
pushi $f2 ; 242, pCast
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa casts
|
||||
send $6
|
||||
bnot
|
||||
code_00df: pushi $95 ; 149, dispose
|
||||
push0
|
||||
pToa casts
|
||||
send $4
|
||||
bnot
|
||||
code_00e8: ldi $0
|
||||
aTop bitmap
|
||||
aTop casts
|
||||
pushi $1ba ; 442, erase
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
push1
|
||||
pushSelf
|
||||
callk kernel_11, $2
|
||||
bnot
|
||||
ret
|
||||
|
||||
Plane::addCast:
|
||||
pToa casts
|
||||
bnt code_011a
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
pushi $9f ; 159, add
|
||||
push0
|
||||
push0
|
||||
push1
|
||||
pushSelf
|
||||
pushi $9a ; 154, yourself
|
||||
push0
|
||||
lap param[$1]
|
||||
send $e
|
||||
bnot
|
||||
push
|
||||
pToa casts
|
||||
send $6
|
||||
bnot
|
||||
code_011a: ret
|
||||
|
||||
Plane::deleteCast:
|
||||
pToa casts
|
||||
bnt code_0134
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
push0
|
||||
push1
|
||||
push0
|
||||
pushi $9a ; 154, yourself
|
||||
push0
|
||||
lap param[$1]
|
||||
send $a
|
||||
bnot
|
||||
push
|
||||
pToa casts
|
||||
send $6
|
||||
bnot
|
||||
code_0134: ret
|
||||
|
||||
Plane::draw:
|
||||
pushi $a3 ; 163, contains
|
||||
push1
|
||||
pushSelf
|
||||
lag global[$25]
|
||||
send $6
|
||||
bnot
|
||||
not
|
||||
bnt code_0154
|
||||
push1
|
||||
pushSelf
|
||||
callk kernel_40, $2
|
||||
bnot
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
pushSelf
|
||||
lag global[$25]
|
||||
send $6
|
||||
bnot
|
||||
jmp code_015a
|
||||
|
||||
code_0154: push1
|
||||
pushSelf
|
||||
callk kernel_42, $2
|
||||
bnot
|
||||
code_015a: ret
|
||||
|
||||
Plane::erase:
|
||||
pushi $a3 ; 163, contains
|
||||
push1
|
||||
pushSelf
|
||||
lag global[$25]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_0176
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
pushSelf
|
||||
lag global[$25]
|
||||
send $6
|
||||
bnot
|
||||
push1
|
||||
pushSelf
|
||||
callk kernel_41, $2
|
||||
bnot
|
||||
code_0176: ret
|
||||
|
||||
Plane::drawPic:
|
||||
lap param[$1]
|
||||
aTop picture
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
gt?
|
||||
bnt code_0186
|
||||
lap param[$2]
|
||||
aTop style
|
||||
code_0186: pTos style
|
||||
ldi $400 ; 1024, pEndurance
|
||||
and
|
||||
bnt code_0192
|
||||
ldi $1
|
||||
jmp code_0194
|
||||
|
||||
code_0192: ldi $0
|
||||
code_0194: aTop mirrored
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push2
|
||||
pushSelf
|
||||
pTos style
|
||||
class Styler
|
||||
send $8
|
||||
bnot
|
||||
push1
|
||||
pushSelf
|
||||
callk kernel_42, $2
|
||||
bnot
|
||||
ret
|
||||
|
||||
Plane::posn:
|
||||
link $8
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
gt?
|
||||
bnt code_01df
|
||||
pushi $87 ; 135, left
|
||||
push0
|
||||
lap param[$3]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$2]
|
||||
pushi $89 ; 137, top
|
||||
push0
|
||||
lap param[$3]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$3]
|
||||
pushi $88 ; 136, right
|
||||
push0
|
||||
lap param[$3]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$4]
|
||||
pushi $8a ; 138, bottom
|
||||
push0
|
||||
lap param[$3]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$5]
|
||||
jmp code_022c
|
||||
|
||||
code_01df: lag global[$3]
|
||||
bnt code_021a
|
||||
push0
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$6]
|
||||
bnt code_021a
|
||||
pushi $87 ; 135, left
|
||||
push0
|
||||
lat temp[$6]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$2]
|
||||
pushi $89 ; 137, top
|
||||
push0
|
||||
lat temp[$6]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$3]
|
||||
pushi $88 ; 136, right
|
||||
push0
|
||||
lat temp[$6]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$4]
|
||||
pushi $8a ; 138, bottom
|
||||
push0
|
||||
lat temp[$6]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$5]
|
||||
jmp code_022c
|
||||
|
||||
code_021a: ldi $0
|
||||
sat temp[$2]
|
||||
ldi $0
|
||||
sat temp[$3]
|
||||
ldi $27f ; 639, rename
|
||||
sat temp[$4]
|
||||
ldi $1df ; 479, validKey
|
||||
sat temp[$5]
|
||||
code_022c: pTos right
|
||||
pToa left
|
||||
sub
|
||||
sat temp[$0]
|
||||
pTos bottom
|
||||
pToa top
|
||||
sub
|
||||
sat temp[$1]
|
||||
lsp param[$1]
|
||||
ldi $ff ; 255, asInteger
|
||||
eq?
|
||||
bnt code_0255
|
||||
lst temp[$2]
|
||||
lst temp[$4]
|
||||
lat temp[$2]
|
||||
sub
|
||||
push
|
||||
lat temp[$0]
|
||||
sub
|
||||
push
|
||||
ldi $2
|
||||
div
|
||||
add
|
||||
sap param[$1]
|
||||
jmp code_025c
|
||||
|
||||
code_0255: lsp param[$1]
|
||||
lat temp[$2]
|
||||
add
|
||||
sap param[$1]
|
||||
code_025c: lsp param[$2]
|
||||
ldi $ff ; 255, asInteger
|
||||
eq?
|
||||
bnt code_0277
|
||||
lst temp[$3]
|
||||
lst temp[$5]
|
||||
lat temp[$3]
|
||||
sub
|
||||
push
|
||||
lat temp[$1]
|
||||
sub
|
||||
push
|
||||
ldi $2
|
||||
div
|
||||
add
|
||||
sap param[$2]
|
||||
jmp code_027e
|
||||
|
||||
code_0277: lsp param[$2]
|
||||
lat temp[$3]
|
||||
add
|
||||
sap param[$2]
|
||||
code_027e: pushi $b5 ; 181, set
|
||||
pushi $4 ; scaleX
|
||||
lsp param[$1]
|
||||
lsp param[$2]
|
||||
lsp param[$1]
|
||||
lat temp[$0]
|
||||
add
|
||||
push
|
||||
lsp param[$2]
|
||||
lat temp[$1]
|
||||
add
|
||||
push
|
||||
self $c
|
||||
bnot
|
||||
ret
|
||||
|
||||
Plane::scaleBitmap:
|
||||
link $b
|
||||
lap param[$0]
|
||||
bnt code_02b0
|
||||
lap param[$1]
|
||||
sat temp[$7]
|
||||
lap param[$2]
|
||||
sat temp[$8]
|
||||
lap param[$3]
|
||||
sat temp[$9]
|
||||
lap param[$4]
|
||||
sat temp[$a]
|
||||
jmp code_02c0
|
||||
|
||||
code_02b0: pToa left
|
||||
sat temp[$7]
|
||||
pToa top
|
||||
sat temp[$8]
|
||||
pToa right
|
||||
sat temp[$9]
|
||||
pToa bottom
|
||||
sat temp[$a]
|
||||
code_02c0: pushi $4e ; 78, 'N', width
|
||||
push0
|
||||
pToa bitmap
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$1]
|
||||
pushi $e1 ; 225, height
|
||||
push0
|
||||
pToa bitmap
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$3]
|
||||
lst temp[$9]
|
||||
lat temp[$7]
|
||||
sub
|
||||
push
|
||||
ldi $1
|
||||
add
|
||||
sat temp[$0]
|
||||
lst temp[$a]
|
||||
lat temp[$8]
|
||||
sub
|
||||
push
|
||||
ldi $1
|
||||
add
|
||||
sat temp[$2]
|
||||
lst temp[$0]
|
||||
ldi $fa ; 250, lower
|
||||
lt?
|
||||
bnt code_0301
|
||||
lst temp[$0]
|
||||
ldi $80 ; 128, lastKey
|
||||
mul
|
||||
push
|
||||
lat temp[$1]
|
||||
div
|
||||
sat temp[$4]
|
||||
jmp code_0315
|
||||
|
||||
code_0301: lst temp[$0]
|
||||
ldi $2
|
||||
div
|
||||
push
|
||||
ldi $80 ; 128, lastKey
|
||||
mul
|
||||
push
|
||||
lat temp[$1]
|
||||
div
|
||||
push
|
||||
ldi $2
|
||||
mul
|
||||
sat temp[$4]
|
||||
code_0315: lst temp[$2]
|
||||
ldi $80 ; 128, lastKey
|
||||
mul
|
||||
push
|
||||
lat temp[$3]
|
||||
div
|
||||
sat temp[$5]
|
||||
pushi $6a ; 106, 'j', scaleSignal
|
||||
push1
|
||||
push1
|
||||
pushi $4 ; scaleX
|
||||
push1
|
||||
lst temp[$4]
|
||||
pushi $5 ; scaleY
|
||||
push1
|
||||
push
|
||||
pToa bitmap
|
||||
send $12
|
||||
bnot
|
||||
push1
|
||||
pTos bitmap
|
||||
callk kernel_32, $2
|
||||
bnot
|
||||
ret
|
||||
|
||||
Plane::setBitmap:
|
||||
link $4
|
||||
pToa bitmap
|
||||
bnt code_034e
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
ldi $0
|
||||
aTop bitmap
|
||||
jmp code_0361
|
||||
|
||||
code_034e: pushi $8d ; 141, new
|
||||
push0
|
||||
class Cast
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
pushi $1b8 ; 440, addCast
|
||||
push1
|
||||
push
|
||||
self $6
|
||||
bnot
|
||||
code_0361: lsp param[$0]
|
||||
ldi $3 ; z
|
||||
lt?
|
||||
bnt code_038f
|
||||
pushi $dc ; 220, posn
|
||||
push2
|
||||
push0
|
||||
push0
|
||||
pushi $94 ; 148, init
|
||||
push1
|
||||
lst temp[$0]
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
aTop bitmap
|
||||
send $e
|
||||
bnot
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
gt?
|
||||
bnt code_03c3
|
||||
lap param[$2]
|
||||
sat temp[$3]
|
||||
jmp code_03c3
|
||||
|
||||
code_038f: pushi $e ; 14, view
|
||||
push1
|
||||
lsp param[$1]
|
||||
pushi $f ; 15, loop
|
||||
push1
|
||||
lsp param[$2]
|
||||
pushi $10 ; 16, cel
|
||||
push1
|
||||
lsp param[$3]
|
||||
pushi $dc ; 220, posn
|
||||
push2
|
||||
push0
|
||||
push0
|
||||
pushi $94 ; 148, init
|
||||
push1
|
||||
lst temp[$0]
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class View
|
||||
send $4
|
||||
bnot
|
||||
aTop bitmap
|
||||
send $20
|
||||
bnot
|
||||
lsp param[$0]
|
||||
ldi $3 ; z
|
||||
gt?
|
||||
bnt code_03c3
|
||||
lap param[$4]
|
||||
sat temp[$3]
|
||||
code_03c3: pushi $4e ; 78, 'N', width
|
||||
push0
|
||||
pToa bitmap
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$1]
|
||||
pushi $e1 ; 225, height
|
||||
push0
|
||||
pToa bitmap
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$2]
|
||||
lat temp[$3]
|
||||
bnt code_03e5
|
||||
pushi $1bc ; 444, scaleBitmap
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
jmp code_03fe
|
||||
|
||||
code_03e5: pushi $b5 ; 181, set
|
||||
pushi $4 ; scaleX
|
||||
pTos left
|
||||
pTos top
|
||||
pTos left
|
||||
lat temp[$1]
|
||||
add
|
||||
push
|
||||
pTos top
|
||||
lat temp[$2]
|
||||
add
|
||||
push
|
||||
self $c
|
||||
bnot
|
||||
code_03fe: ret
|
||||
|
||||
Plane::setSize:
|
||||
link $5
|
||||
pToa casts
|
||||
bnt code_04c9
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Rect
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
push2
|
||||
pushi $3 ; z
|
||||
pushi $24 ; 36, '$', elements
|
||||
push0
|
||||
pToa casts
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
callk kernel_90, $4
|
||||
bnot
|
||||
sat temp[$1]
|
||||
code_0423: lat temp[$1]
|
||||
bnt code_049a
|
||||
pushi $9e ; 158, nextNode
|
||||
push1
|
||||
push2
|
||||
pushi $6 ; maxScale
|
||||
push
|
||||
callk kernel_90, $4
|
||||
bnot
|
||||
push
|
||||
pToa casts
|
||||
send $6
|
||||
bnot
|
||||
push2
|
||||
pushi $8 ; fixPriority
|
||||
lst temp[$1]
|
||||
callk kernel_90, $4
|
||||
bnot
|
||||
sat temp[$3]
|
||||
push2
|
||||
pushi $3 ; z
|
||||
pushi $24 ; 36, '$', elements
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
callk kernel_90, $4
|
||||
bnot
|
||||
sat temp[$2]
|
||||
code_0455: lat temp[$2]
|
||||
bnt code_048d
|
||||
pushi $9e ; 158, nextNode
|
||||
push1
|
||||
push2
|
||||
pushi $6 ; maxScale
|
||||
push
|
||||
callk kernel_90, $4
|
||||
bnot
|
||||
push
|
||||
lat temp[$3]
|
||||
send $6
|
||||
bnot
|
||||
push2
|
||||
pushi $8 ; fixPriority
|
||||
lst temp[$2]
|
||||
callk kernel_90, $4
|
||||
bnot
|
||||
sat temp[$4]
|
||||
pushi $af ; 175, union
|
||||
push1
|
||||
push
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
pushi $9e ; 158, nextNode
|
||||
push0
|
||||
lat temp[$3]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$2]
|
||||
jmp code_0455
|
||||
|
||||
code_048d: pushi $9e ; 158, nextNode
|
||||
push0
|
||||
pToa casts
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$1]
|
||||
jmp code_0423
|
||||
|
||||
code_049a: pushi $b5 ; 181, set
|
||||
pushi $4 ; scaleX
|
||||
pTos left
|
||||
pTos top
|
||||
pTos left
|
||||
pushi $4e ; 78, 'N', width
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
add
|
||||
push
|
||||
pTos top
|
||||
pushi $e1 ; 225, height
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
add
|
||||
push
|
||||
self $c
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
code_04c9: ret
|
||||
|
||||
Plane::hide:
|
||||
pTos priority
|
||||
ldi $ff ; 255, asInteger
|
||||
ne?
|
||||
bnt code_04df
|
||||
pToa priority
|
||||
aTop pOldPri
|
||||
ldi $ff ; 255, asInteger
|
||||
aTop priority
|
||||
push1
|
||||
pushSelf
|
||||
callk kernel_42, $2
|
||||
bnot
|
||||
code_04df: ret
|
||||
|
||||
Plane::show:
|
||||
pTos priority
|
||||
ldi $ff ; 255, asInteger
|
||||
eq?
|
||||
bnt code_04f1
|
||||
pToa pOldPri
|
||||
aTop priority
|
||||
push1
|
||||
pushSelf
|
||||
callk kernel_42, $2
|
||||
bnot
|
||||
code_04f1: ret
|
||||
|
||||
Plane::isHidden:
|
||||
pTos priority
|
||||
ldi $ff ; 255, asInteger
|
||||
eq?
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,182 @@
|
|||
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
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,79 @@
|
|||
Clut::new:
|
||||
link $1
|
||||
pushi $8d ; 141, new
|
||||
push1
|
||||
pushi $100 ; 256, strMax
|
||||
super ByteArray, $6
|
||||
bnot
|
||||
sat temp[$0]
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
lap param[$0]
|
||||
bnt code_0057
|
||||
pushi $10c ; 268, map
|
||||
push0
|
||||
&rest $1
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
code_0057: lat temp[$0]
|
||||
ret
|
||||
|
||||
Clut::init:
|
||||
link $1
|
||||
pToa data
|
||||
not
|
||||
bnt code_0072
|
||||
pushi $d8 ; 216, callKernel
|
||||
pushi $3 ; z
|
||||
push0
|
||||
pushi $100 ; 256, strMax
|
||||
pTos type
|
||||
self $a
|
||||
bnot
|
||||
aTop data
|
||||
code_0072: ldi $0
|
||||
sat temp[$0]
|
||||
code_0076: lst temp[$0]
|
||||
ldi $100 ; 256, strMax
|
||||
lt?
|
||||
bnt code_008b
|
||||
pushi $4b ; 75, 'K', at
|
||||
push2
|
||||
lst temp[$0]
|
||||
dup
|
||||
self $8
|
||||
bnot
|
||||
+at temp[$0]
|
||||
jmp code_0076
|
||||
|
||||
code_008b: ret
|
||||
|
||||
Clut::map:
|
||||
link $1
|
||||
ldi $0
|
||||
sat temp[$0]
|
||||
code_0092: lst temp[$0]
|
||||
lap param[$0]
|
||||
lt?
|
||||
bnt code_00b2
|
||||
pushi $4b ; 75, 'K', at
|
||||
push2
|
||||
lat temp[$0]
|
||||
lspi param[$1]
|
||||
push
|
||||
ldi $1
|
||||
add
|
||||
lspi param[$1]
|
||||
self $8
|
||||
bnot
|
||||
lst temp[$0]
|
||||
ldi $2
|
||||
add
|
||||
sat temp[$0]
|
||||
jmp code_0092
|
||||
|
||||
code_00b2: ret
|
||||
|
||||
Loading…
Reference in New Issue