Upload files to "Script"
This commit is contained in:
parent
1b61d51894
commit
de8aa56534
|
|
@ -0,0 +1,152 @@
|
|||
ScaleTo::init:
|
||||
lap param[$0]
|
||||
bnt code_0080
|
||||
lap param[$1]
|
||||
aTop client
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
ge?
|
||||
bnt code_0080
|
||||
lap param[$2]
|
||||
aTop endScale
|
||||
lsp param[$0]
|
||||
ldi $3 ; z
|
||||
ge?
|
||||
bnt code_0080
|
||||
lap param[$3]
|
||||
aTop step
|
||||
lsp param[$0]
|
||||
ldi $4 ; scaleX
|
||||
ge?
|
||||
bnt code_0080
|
||||
lap param[$4]
|
||||
aTop waitCount
|
||||
lsp param[$0]
|
||||
ldi $5 ; scaleY
|
||||
ge?
|
||||
bnt code_0080
|
||||
lap param[$5]
|
||||
aTop caller
|
||||
code_0080: pToa waitCount
|
||||
aTop saveWaitCount
|
||||
pushi $6 ; maxScale
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa endScale
|
||||
le?
|
||||
bnt code_0094
|
||||
ldi $1
|
||||
code_0094: aTop scaleDir
|
||||
ret
|
||||
|
||||
ScaleTo::doit:
|
||||
link $1
|
||||
lsg global[$40]
|
||||
pToa waitCount
|
||||
sub
|
||||
push
|
||||
ldi $0
|
||||
gt?
|
||||
bnt code_010c
|
||||
pToa scaleDir
|
||||
bnt code_00b6
|
||||
pushi $6 ; maxScale
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa step
|
||||
add
|
||||
jmp code_00c2
|
||||
|
||||
code_00b6: pushi $6 ; maxScale
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa step
|
||||
sub
|
||||
code_00c2: sat temp[$0]
|
||||
pushi $6 ; maxScale
|
||||
push1
|
||||
push
|
||||
pushi $4 ; scaleX
|
||||
push1
|
||||
push
|
||||
pushi $5 ; scaleY
|
||||
push1
|
||||
push
|
||||
pToa client
|
||||
send $12
|
||||
bnot
|
||||
pToa scaleDir
|
||||
bnt code_00f0
|
||||
pushi $6 ; maxScale
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa endScale
|
||||
ge?
|
||||
bnt code_0105
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
jmp code_0105
|
||||
|
||||
code_00f0: pushi $6 ; maxScale
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa endScale
|
||||
le?
|
||||
bnt code_0105
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_0105: pTos saveWaitCount
|
||||
lag global[$40]
|
||||
add
|
||||
aTop waitCount
|
||||
code_010c: ret
|
||||
|
||||
ScaleTo::dispose:
|
||||
link $1
|
||||
ldi $0
|
||||
aTop endScale
|
||||
ldi $6 ; maxScale
|
||||
aTop step
|
||||
ldi $1
|
||||
aTop waitCount
|
||||
pushi $144 ; 324, scaler
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
pToa caller
|
||||
bnt code_0138
|
||||
sat temp[$0]
|
||||
ldi $0
|
||||
aTop caller
|
||||
pushi $c7 ; 199, cue
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
code_0138: pushi $95 ; 149, dispose
|
||||
push0
|
||||
super Scaler, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,706 @@
|
|||
MessagerDialog::init:
|
||||
link $3
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
super FancyDialog, $4
|
||||
bnot
|
||||
lap param[$1]
|
||||
aTop pMessager
|
||||
pushi $17d ; 381, addItem
|
||||
pushi $5 ; scaleY
|
||||
class TextItem
|
||||
push
|
||||
pushi $23 ; 35, '#', text
|
||||
lsp param[$2]
|
||||
pushi $25 ; 37, '%', fore
|
||||
dup
|
||||
push0
|
||||
pToa plane
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
self $e
|
||||
bnot
|
||||
sat temp[$0]
|
||||
pushi $249 ; 585, posnItem
|
||||
pushi $3 ; z
|
||||
push
|
||||
pushi $fd ; 253, strip
|
||||
pToa margin
|
||||
add
|
||||
push
|
||||
pushi $fd ; 253, strip
|
||||
pToa margin
|
||||
add
|
||||
push
|
||||
pushi $1be ; 446, setSize
|
||||
push0
|
||||
self $e
|
||||
bnot
|
||||
pushi $17d ; 381, addItem
|
||||
pushi $5 ; scaleY
|
||||
lsg global[$9]
|
||||
pushi $23 ; 35, '#', text
|
||||
lofsa string_0076 ; "Okay"
|
||||
push
|
||||
pushi $25 ; 37, '%', fore
|
||||
lsg global[$61]
|
||||
self $e
|
||||
bnot
|
||||
sat temp[$2]
|
||||
pushi $249 ; 585, posnItem
|
||||
pushi $3 ; z
|
||||
push
|
||||
pushi $fd ; 253, strip
|
||||
pToa margin
|
||||
add
|
||||
push
|
||||
pushi $8a ; 138, bottom
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $5 ; scaleY
|
||||
add
|
||||
push
|
||||
pushi $1be ; 446, setSize
|
||||
push0
|
||||
pushi $e3 ; 227, expand
|
||||
push2
|
||||
pTos margin
|
||||
pTos margin
|
||||
self $16
|
||||
bnot
|
||||
lap param[$3]
|
||||
bnt code_0148
|
||||
lap param[$4]
|
||||
bnt code_0148
|
||||
pushi $dc ; 220, posn
|
||||
push2
|
||||
lsp param[$3]
|
||||
lsp param[$4]
|
||||
pToa plane
|
||||
send $8
|
||||
bnot
|
||||
jmp code_0159
|
||||
|
||||
code_0148: pushi $de ; 222, centerIn
|
||||
push1
|
||||
push0
|
||||
push0
|
||||
lag global[$3]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa plane
|
||||
send $6
|
||||
bnot
|
||||
code_0159: pushi $248 ; 584, open
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
MessagerDialog::handleEvent:
|
||||
pushi $50 ; 80, 'P', claimed
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
bnt code_0170
|
||||
ldi $0
|
||||
ret
|
||||
|
||||
jmp code_01cf
|
||||
|
||||
code_0170: pushi $2b ; 43, '+', type
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
not
|
||||
bnt code_0180
|
||||
ldi $0
|
||||
ret
|
||||
|
||||
jmp code_01cf
|
||||
|
||||
code_0180: pushi $2b ; 43, '+', type
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $1
|
||||
and
|
||||
not
|
||||
bnt code_019d
|
||||
pushi $50 ; 80, 'P', claimed
|
||||
push1
|
||||
push1
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
ldi $0
|
||||
ret
|
||||
|
||||
jmp code_01cf
|
||||
|
||||
code_019d: pushi $48 ; 72, 'H', modifiers
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $3 ; z
|
||||
and
|
||||
bnt code_01c3
|
||||
pushi $50 ; 80, 'P', claimed
|
||||
push1
|
||||
push1
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
pushi $282 ; 642, killed
|
||||
push1
|
||||
push1
|
||||
pToa pMessager
|
||||
send $6
|
||||
bnot
|
||||
ldi $1
|
||||
ret
|
||||
|
||||
jmp code_01cf
|
||||
|
||||
code_01c3: pushi $50 ; 80, 'P', claimed
|
||||
push1
|
||||
push1
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
ldi $1
|
||||
ret
|
||||
|
||||
code_01cf: ret
|
||||
|
||||
MessagerDialog::process:
|
||||
link $1
|
||||
pushi $c8 ; 200, handleEvent
|
||||
push1
|
||||
lsp param[$1]
|
||||
self $6
|
||||
bnot
|
||||
sat temp[$0]
|
||||
bnt code_01e6
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_01e6: lat temp[$0]
|
||||
ret
|
||||
|
||||
MessagerDialog::dispose:
|
||||
pushi $c7 ; 199, cue
|
||||
push0
|
||||
pToa pMessager
|
||||
send $4
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
super FancyDialog, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Messager::getSeqSize:
|
||||
link $1
|
||||
ldi $0
|
||||
sat temp[$0]
|
||||
code_0201: pushi $6 ; maxScale
|
||||
push0
|
||||
lsp param[$4]
|
||||
lsp param[$1]
|
||||
lsp param[$2]
|
||||
lsp param[$3]
|
||||
+at temp[$0]
|
||||
push
|
||||
callk kernel_72, $c
|
||||
bnot
|
||||
bnt code_0217
|
||||
jmp code_0201
|
||||
|
||||
code_0217: -at temp[$0]
|
||||
ret
|
||||
|
||||
Messager::dispose:
|
||||
ldi $0
|
||||
aTop pLastSequence
|
||||
pToa caller
|
||||
bnt code_0253
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
pushi $cb ; 203, cuee
|
||||
push1
|
||||
push
|
||||
pushi $cc ; 204, cuer
|
||||
push1
|
||||
pushSelf
|
||||
pushi $c2 ; 194, register
|
||||
push1
|
||||
pTos killed
|
||||
pushi $9a ; 154, yourself
|
||||
push0
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Cue
|
||||
send $4
|
||||
bnot
|
||||
send $16
|
||||
bnot
|
||||
push
|
||||
pushi $ca ; 202, pCuees
|
||||
push0
|
||||
lag global[$3]
|
||||
send $4
|
||||
bnot
|
||||
send $6
|
||||
bnot
|
||||
code_0253: pushi $95 ; 149, dispose
|
||||
push0
|
||||
super Obj, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Messager::cue:
|
||||
lap param[$0]
|
||||
bnt code_0268
|
||||
lap param[$1]
|
||||
bnt code_0268
|
||||
ldi $1
|
||||
aTop killed
|
||||
code_0268: pToa oneOnly
|
||||
bt code_026e
|
||||
pToa killed
|
||||
code_026e: bnt code_0279
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
jmp code_0280
|
||||
|
||||
code_0279: pushi $288 ; 648, nextMsg
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_0280: ret
|
||||
|
||||
Messager::say:
|
||||
link $6
|
||||
ldi $0
|
||||
sat temp[$5]
|
||||
sat temp[$4]
|
||||
sat temp[$3]
|
||||
aTop caller
|
||||
aTop pCurSequence
|
||||
sat temp[$2]
|
||||
sat temp[$1]
|
||||
sat temp[$0]
|
||||
ldi $0
|
||||
aTop killed
|
||||
aTop oneOnly
|
||||
lapi param[$1]
|
||||
sat temp[$0]
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
gt?
|
||||
bnt code_02ac
|
||||
ldi $1
|
||||
lapi param[$1]
|
||||
sat temp[$1]
|
||||
code_02ac: lsp param[$0]
|
||||
ldi $2
|
||||
gt?
|
||||
bnt code_02b9
|
||||
ldi $2
|
||||
lapi param[$1]
|
||||
sat temp[$2]
|
||||
code_02b9: lsp param[$0]
|
||||
ldi $3 ; z
|
||||
gt?
|
||||
bnt code_02d2
|
||||
ldi $3 ; z
|
||||
lapi param[$1]
|
||||
bnt code_02d2
|
||||
ldi $1
|
||||
aTop oneOnly
|
||||
ldi $3 ; z
|
||||
lapi param[$1]
|
||||
aTop pCurSequence
|
||||
jmp code_02d6
|
||||
|
||||
code_02d2: ldi $1
|
||||
aTop pCurSequence
|
||||
code_02d6: lsp param[$0]
|
||||
ldi $4 ; scaleX
|
||||
gt?
|
||||
bnt code_02e3
|
||||
ldi $4 ; scaleX
|
||||
lapi param[$1]
|
||||
aTop caller
|
||||
code_02e3: lsp param[$0]
|
||||
ldi $5 ; scaleY
|
||||
gt?
|
||||
bnt code_02f2
|
||||
ldi $5 ; scaleY
|
||||
lapi param[$1]
|
||||
sat temp[$3]
|
||||
jmp code_02f6
|
||||
|
||||
code_02f2: lag global[$34]
|
||||
sat temp[$3]
|
||||
code_02f6: lsp param[$0]
|
||||
ldi $6 ; maxScale
|
||||
gt?
|
||||
bnt code_0326
|
||||
ldi $1
|
||||
aTop oneOnly
|
||||
lsp param[$0]
|
||||
ldi $7 ; priority
|
||||
gt?
|
||||
bnt code_030c
|
||||
ldi $0
|
||||
aTop oneOnly
|
||||
code_030c: push2
|
||||
push1
|
||||
pushi $419 ; 1049, getSeqSize
|
||||
pushi $4 ; scaleX
|
||||
lst temp[$0]
|
||||
lst temp[$1]
|
||||
lst temp[$2]
|
||||
lst temp[$3]
|
||||
self $c
|
||||
bnot
|
||||
push
|
||||
callk kernel_60, $4
|
||||
bnot
|
||||
aTop pCurSequence
|
||||
code_0326: pushi $6 ; maxScale
|
||||
push0
|
||||
lst temp[$3]
|
||||
lst temp[$0]
|
||||
lst temp[$1]
|
||||
lst temp[$2]
|
||||
pTos pCurSequence
|
||||
callk kernel_72, $c
|
||||
bnot
|
||||
not
|
||||
bnt code_0366
|
||||
pushi $6 ; maxScale
|
||||
lofsa string_008a ; "<Messager>\n"
|
||||
push
|
||||
lst temp[$3]
|
||||
lst temp[$0]
|
||||
lst temp[$1]
|
||||
lst temp[$2]
|
||||
pTos pCurSequence
|
||||
calle export60029_1, $c
|
||||
bnot
|
||||
ldi $ea74 ; -5516
|
||||
sat temp[$3]
|
||||
ldi $c ; 12, inBottom
|
||||
sat temp[$0]
|
||||
ldi $0
|
||||
sat temp[$2]
|
||||
sat temp[$1]
|
||||
ldi $1
|
||||
aTop pCurSequence
|
||||
jmp code_0379
|
||||
|
||||
code_0366: pushi $288 ; 648, nextMsg
|
||||
pushi $5 ; scaleY
|
||||
lst temp[$3]
|
||||
lst temp[$0]
|
||||
lst temp[$1]
|
||||
lst temp[$2]
|
||||
pTos pCurSequence
|
||||
self $e
|
||||
bnot
|
||||
code_0379: ret
|
||||
|
||||
Messager::sayRange:
|
||||
link $4
|
||||
ldi $0
|
||||
sat temp[$3]
|
||||
aTop caller
|
||||
aTop pCurSequence
|
||||
sat temp[$2]
|
||||
sat temp[$1]
|
||||
sat temp[$0]
|
||||
ldi $0
|
||||
aTop killed
|
||||
aTop oneOnly
|
||||
lapi param[$1]
|
||||
sat temp[$0]
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
gt?
|
||||
bnt code_03a1
|
||||
ldi $1
|
||||
lapi param[$1]
|
||||
sat temp[$1]
|
||||
code_03a1: lsp param[$0]
|
||||
ldi $2
|
||||
gt?
|
||||
bnt code_03ae
|
||||
ldi $2
|
||||
lapi param[$1]
|
||||
sat temp[$2]
|
||||
code_03ae: ldi $1
|
||||
aTop oneOnly
|
||||
lsp param[$0]
|
||||
ldi $3 ; z
|
||||
gt?
|
||||
bnt code_03c7
|
||||
ldi $3 ; z
|
||||
lapi param[$1]
|
||||
bnt code_03c7
|
||||
ldi $3 ; z
|
||||
lapi param[$1]
|
||||
aTop pCurSequence
|
||||
jmp code_03cb
|
||||
|
||||
code_03c7: ldi $1
|
||||
aTop pCurSequence
|
||||
code_03cb: lsp param[$0]
|
||||
ldi $4 ; scaleX
|
||||
gt?
|
||||
bnt code_03e4
|
||||
ldi $4 ; scaleX
|
||||
lapi param[$1]
|
||||
bnt code_03e4
|
||||
ldi $0
|
||||
aTop oneOnly
|
||||
ldi $4 ; scaleX
|
||||
lapi param[$1]
|
||||
aTop pLastSequence
|
||||
jmp code_03e8
|
||||
|
||||
code_03e4: pToa pCurSequence
|
||||
aTop pLastSequence
|
||||
code_03e8: lsp param[$0]
|
||||
ldi $5 ; scaleY
|
||||
gt?
|
||||
bnt code_03f5
|
||||
ldi $5 ; scaleY
|
||||
lapi param[$1]
|
||||
aTop caller
|
||||
code_03f5: lsp param[$0]
|
||||
ldi $6 ; maxScale
|
||||
gt?
|
||||
bnt code_0404
|
||||
ldi $6 ; maxScale
|
||||
lapi param[$1]
|
||||
sat temp[$3]
|
||||
jmp code_0408
|
||||
|
||||
code_0404: lag global[$34]
|
||||
sat temp[$3]
|
||||
code_0408: pushi $6 ; maxScale
|
||||
push0
|
||||
lst temp[$3]
|
||||
lst temp[$0]
|
||||
lst temp[$1]
|
||||
lst temp[$2]
|
||||
pTos pCurSequence
|
||||
callk kernel_72, $c
|
||||
bnot
|
||||
not
|
||||
bnt code_0448
|
||||
pushi $6 ; maxScale
|
||||
lofsa string_008a ; "<Messager>\n"
|
||||
push
|
||||
lst temp[$3]
|
||||
lst temp[$0]
|
||||
lst temp[$1]
|
||||
lst temp[$2]
|
||||
pTos pCurSequence
|
||||
calle export60029_1, $c
|
||||
bnot
|
||||
ldi $ea74 ; -5516
|
||||
sat temp[$3]
|
||||
ldi $c ; 12, inBottom
|
||||
sat temp[$0]
|
||||
ldi $0
|
||||
sat temp[$2]
|
||||
sat temp[$1]
|
||||
ldi $1
|
||||
aTop pCurSequence
|
||||
jmp code_045b
|
||||
|
||||
code_0448: pushi $288 ; 648, nextMsg
|
||||
pushi $5 ; scaleY
|
||||
lst temp[$3]
|
||||
lst temp[$0]
|
||||
lst temp[$1]
|
||||
lst temp[$2]
|
||||
pTos pCurSequence
|
||||
self $e
|
||||
bnot
|
||||
code_045b: ret
|
||||
|
||||
Messager::sayNext:
|
||||
ldi $0
|
||||
aTop killed
|
||||
aTop oneOnly
|
||||
aTop caller
|
||||
lap param[$0]
|
||||
bnt code_046c
|
||||
lap param[$1]
|
||||
aTop caller
|
||||
code_046c: pushi $288 ; 648, nextMsg
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Messager::sayFormat:
|
||||
link $2
|
||||
lap param[$6]
|
||||
aTop caller
|
||||
ldi $1
|
||||
aTop oneOnly
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Str
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
pushi $7 ; priority
|
||||
push0
|
||||
lsp param[$5]
|
||||
lsp param[$1]
|
||||
lsp param[$2]
|
||||
lsp param[$3]
|
||||
lsp param[$4]
|
||||
pushi $71 ; 113, 'q', data
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
callk kernel_72, $e
|
||||
bnot
|
||||
pushi $f5 ; 245, format
|
||||
push1
|
||||
pushi $71 ; 113, 'q', data
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
&rest $7 ; priority
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
lap param[$6]
|
||||
bnt code_04d1
|
||||
pushi $6 ; maxScale
|
||||
lst temp[$0]
|
||||
pushi $91 ; 145, bitPutIndex
|
||||
push2
|
||||
pushi $93 ; 147, pLine
|
||||
push
|
||||
pushi $c7 ; 199, cue
|
||||
calle export60029_0, $c
|
||||
bnot
|
||||
jmp code_04e0
|
||||
|
||||
code_04d1: pushi $3 ; z
|
||||
lst temp[$0]
|
||||
pushi $91 ; 145, bitPutIndex
|
||||
push2
|
||||
calle export60029_0, $6
|
||||
bnot
|
||||
code_04e0: pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Messager::nextMsg:
|
||||
link $5
|
||||
pushi $d1 ; 209, newWith
|
||||
push2
|
||||
pushi $190 ; 400, createPoly
|
||||
lofsa string_00c8 ; ""
|
||||
push
|
||||
class Str
|
||||
send $8
|
||||
bnot
|
||||
sat temp[$1]
|
||||
lap param[$0]
|
||||
bnt code_0520
|
||||
pushi $7 ; priority
|
||||
push0
|
||||
lsp param[$1]
|
||||
lsp param[$2]
|
||||
lsp param[$3]
|
||||
lsp param[$4]
|
||||
lsp param[$5]
|
||||
pushi $71 ; 113, 'q', data
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
callk kernel_72, $e
|
||||
bnot
|
||||
sat temp[$0]
|
||||
jmp code_0531
|
||||
|
||||
code_0520: push2
|
||||
push1
|
||||
pushi $71 ; 113, 'q', data
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
callk kernel_72, $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
code_0531: lat temp[$0]
|
||||
bnt code_055b
|
||||
pToa pLastSequence
|
||||
not
|
||||
bt code_0541
|
||||
pToa pLastSequence
|
||||
bnt code_055b
|
||||
pTos pCurSequence
|
||||
le?
|
||||
code_0541: bnt code_055b
|
||||
pushi $94 ; 148, init
|
||||
push2
|
||||
pushSelf
|
||||
lst temp[$1]
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class MessagerDialog
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$3]
|
||||
send $8
|
||||
bnot
|
||||
jmp code_056b
|
||||
|
||||
code_055b: pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_056b: ret
|
||||
|
||||
|
|
@ -0,0 +1,32 @@
|
|||
Sync::syncStart:
|
||||
ret
|
||||
|
||||
Sync::syncCheck:
|
||||
ret
|
||||
|
||||
Sync::syncStop:
|
||||
ret
|
||||
|
||||
ScriptSync::init:
|
||||
ret
|
||||
|
||||
ScriptSync::doit:
|
||||
link $1
|
||||
ret
|
||||
|
||||
ScriptSync::cue:
|
||||
ret
|
||||
|
||||
MouthSync::init:
|
||||
ret
|
||||
|
||||
MouthSync::doit:
|
||||
link $4
|
||||
ret
|
||||
|
||||
MouthSync::dispose:
|
||||
ret
|
||||
|
||||
MouthSync::cue:
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,740 @@
|
|||
PackedData::new:
|
||||
ldi $0
|
||||
aTop bitGetIndex
|
||||
aTop bitPutIndex
|
||||
aTop putIndex
|
||||
aTop getIndex
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
&rest $1
|
||||
super ByteArray, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
PackedData::dispose:
|
||||
ldi $0
|
||||
aTop bitGetIndex
|
||||
aTop bitPutIndex
|
||||
aTop putIndex
|
||||
aTop getIndex
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
&rest $1
|
||||
super ByteArray, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
PackedData::getByte:
|
||||
push2
|
||||
push2
|
||||
pushSelf
|
||||
callk kernel_156, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
PackedData::getWord:
|
||||
push2
|
||||
pushi $4 ; scaleX
|
||||
pushSelf
|
||||
callk kernel_156, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
PackedData::getLong:
|
||||
link $4
|
||||
lap param[$0]
|
||||
bnt code_00c1
|
||||
lap param[$1]
|
||||
sat temp[$1]
|
||||
not
|
||||
bnt code_00cc
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class LongInt
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$1]
|
||||
jmp code_00cc
|
||||
|
||||
code_00c1: pushi $8d ; 141, new
|
||||
push0
|
||||
class LongInt
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$1]
|
||||
code_00cc: pushi $3 ; z
|
||||
pushi $6 ; maxScale
|
||||
pushSelf
|
||||
lst temp[$1]
|
||||
callk kernel_156, $6
|
||||
bnot
|
||||
lat temp[$1]
|
||||
ret
|
||||
|
||||
PackedData::getArray:
|
||||
link $4
|
||||
pushi $136 ; 310, getLong
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
sat temp[$1]
|
||||
pushi $129 ; 297, less
|
||||
push1
|
||||
push0
|
||||
send $6
|
||||
bnot
|
||||
bt code_00f4
|
||||
pTos getIndex
|
||||
ldi $0
|
||||
lt?
|
||||
code_00f4: bnt code_0102
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
ldi $0
|
||||
ret
|
||||
|
||||
code_0102: pushi $136 ; 310, getLong
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
sat temp[$2]
|
||||
lap param[$0]
|
||||
bnt code_012e
|
||||
pushi $127 ; 295, equal
|
||||
push1
|
||||
lsp param[$1]
|
||||
lat temp[$2]
|
||||
send $6
|
||||
bnot
|
||||
not
|
||||
bnt code_012e
|
||||
pushi $3 ; z
|
||||
lofsa string_002c ; "Error in PackData getArray: got type=%d, wanted type=%d"
|
||||
push
|
||||
lst temp[$2]
|
||||
lsp param[$1]
|
||||
calle export60029_1, $6
|
||||
bnot
|
||||
code_012e: pushi $10d ; 269, lowWord
|
||||
push0
|
||||
lat temp[$2]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
dup
|
||||
ldi $0
|
||||
eq?
|
||||
bnt code_0153
|
||||
pushi $8d ; 141, new
|
||||
push1
|
||||
pushi $10d ; 269, lowWord
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
class IntArray
|
||||
send $6
|
||||
bnot
|
||||
jmp code_01b7
|
||||
|
||||
code_0153: dup
|
||||
ldi $1
|
||||
eq?
|
||||
bnt code_016e
|
||||
pushi $8d ; 141, new
|
||||
push1
|
||||
pushi $10d ; 269, lowWord
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
class IDArray
|
||||
send $6
|
||||
bnot
|
||||
jmp code_01b7
|
||||
|
||||
code_016e: dup
|
||||
ldi $2
|
||||
eq?
|
||||
bnt code_0189
|
||||
pushi $8d ; 141, new
|
||||
push1
|
||||
pushi $10d ; 269, lowWord
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
class ByteArray
|
||||
send $6
|
||||
bnot
|
||||
jmp code_01b7
|
||||
|
||||
code_0189: dup
|
||||
ldi $3 ; z
|
||||
eq?
|
||||
bnt code_01a4
|
||||
pushi $8d ; 141, new
|
||||
push1
|
||||
pushi $10d ; 269, lowWord
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
class Str
|
||||
send $6
|
||||
bnot
|
||||
jmp code_01b7
|
||||
|
||||
code_01a4: pushi $8d ; 141, new
|
||||
push1
|
||||
pushi $10d ; 269, lowWord
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
class PackedData
|
||||
send $6
|
||||
bnot
|
||||
code_01b7: toss
|
||||
sat temp[$0]
|
||||
pushi $10d ; 269, lowWord
|
||||
push0
|
||||
lat temp[$2]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
dup
|
||||
ldi $0
|
||||
eq?
|
||||
bnt code_01f5
|
||||
ldi $0
|
||||
sat temp[$3]
|
||||
code_01ce: pushi $12d ; 301, greater
|
||||
push1
|
||||
lst temp[$3]
|
||||
lat temp[$1]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_028e
|
||||
pushi $4b ; 75, 'K', at
|
||||
push2
|
||||
lst temp[$3]
|
||||
pushi $135 ; 309, getWord
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
push
|
||||
lat temp[$0]
|
||||
send $8
|
||||
bnot
|
||||
+at temp[$3]
|
||||
jmp code_01ce
|
||||
|
||||
jmp code_028e
|
||||
|
||||
code_01f5: dup
|
||||
ldi $1
|
||||
eq?
|
||||
bnt code_0225
|
||||
ldi $0
|
||||
sat temp[$3]
|
||||
code_01ff: pushi $12d ; 301, greater
|
||||
push1
|
||||
lst temp[$3]
|
||||
lat temp[$1]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_028e
|
||||
pushi $4b ; 75, 'K', at
|
||||
push2
|
||||
lst temp[$3]
|
||||
pushi $135 ; 309, getWord
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
push
|
||||
lat temp[$0]
|
||||
send $8
|
||||
bnot
|
||||
+at temp[$3]
|
||||
jmp code_01ff
|
||||
|
||||
jmp code_028e
|
||||
|
||||
code_0225: dup
|
||||
ldi $3 ; z
|
||||
eq?
|
||||
bnt code_0267
|
||||
ldi $0
|
||||
sat temp[$3]
|
||||
code_022f: pushi $12d ; 301, greater
|
||||
push1
|
||||
lst temp[$3]
|
||||
lat temp[$1]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_0252
|
||||
pushi $4b ; 75, 'K', at
|
||||
push2
|
||||
lst temp[$3]
|
||||
pushi $134 ; 308, getByte
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
push
|
||||
lat temp[$0]
|
||||
send $8
|
||||
bnot
|
||||
+at temp[$3]
|
||||
jmp code_022f
|
||||
|
||||
code_0252: pushi $4b ; 75, 'K', at
|
||||
push2
|
||||
pushi $10d ; 269, lowWord
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $8
|
||||
bnot
|
||||
jmp code_028e
|
||||
|
||||
code_0267: pushi $d2 ; 210, copyToFrom
|
||||
pushi $4 ; scaleX
|
||||
push0
|
||||
pushSelf
|
||||
pTos getIndex
|
||||
pushi $10d ; 269, lowWord
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lat temp[$0]
|
||||
send $c
|
||||
bnot
|
||||
pTos getIndex
|
||||
pushi $10d ; 269, lowWord
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
add
|
||||
aTop getIndex
|
||||
code_028e: toss
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$2]
|
||||
send $4
|
||||
bnot
|
||||
lat temp[$0]
|
||||
ret
|
||||
|
||||
PackedData::getString:
|
||||
link $5
|
||||
lap param[$0]
|
||||
bnt code_02b0
|
||||
lap param[$1]
|
||||
sat temp[$0]
|
||||
jmp code_02b4
|
||||
|
||||
code_02b0: ldi $0
|
||||
sat temp[$0]
|
||||
code_02b4: push1
|
||||
class Str
|
||||
push
|
||||
callk kernel_10, $2
|
||||
bnot
|
||||
sat temp[$4]
|
||||
pushi $71 ; 113, 'q', data
|
||||
push1
|
||||
pushi $3 ; z
|
||||
pushi $8 ; fixPriority
|
||||
pushSelf
|
||||
lst temp[$0]
|
||||
callk kernel_156, $6
|
||||
bnot
|
||||
push
|
||||
lat temp[$4]
|
||||
send $6
|
||||
bnot
|
||||
lat temp[$4]
|
||||
ret
|
||||
|
||||
PackedData::putString:
|
||||
link $3
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
gt?
|
||||
bnt code_02e4
|
||||
lap param[$2]
|
||||
sat temp[$0]
|
||||
jmp code_02ee
|
||||
|
||||
code_02e4: pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
code_02ee: ldi $0
|
||||
sat temp[$2]
|
||||
pushi $13b ; 315, putWord
|
||||
push1
|
||||
lst temp[$0]
|
||||
self $6
|
||||
bnot
|
||||
code_02fb: lat temp[$0]
|
||||
bnt code_0317
|
||||
pushi $13a ; 314, putByte
|
||||
push1
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$2]
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
push
|
||||
self $6
|
||||
bnot
|
||||
-at temp[$0]
|
||||
+at temp[$2]
|
||||
jmp code_02fb
|
||||
|
||||
code_0317: ret
|
||||
|
||||
PackedData::getBits:
|
||||
link $3
|
||||
pushi $3 ; z
|
||||
push0
|
||||
pushSelf
|
||||
lsp param[$1]
|
||||
callk kernel_156, $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
PackedData::putByte:
|
||||
link $1
|
||||
pTos putIndex
|
||||
ldi $0
|
||||
ge?
|
||||
bnt code_0349
|
||||
ldi $0
|
||||
sat temp[$0]
|
||||
code_0332: lst temp[$0]
|
||||
lap param[$0]
|
||||
lt?
|
||||
bnt code_0349
|
||||
pushi $3 ; z
|
||||
dup
|
||||
pushSelf
|
||||
lat temp[$0]
|
||||
lspi param[$1]
|
||||
callk kernel_156, $6
|
||||
bnot
|
||||
+at temp[$0]
|
||||
jmp code_0332
|
||||
|
||||
code_0349: ret
|
||||
|
||||
PackedData::putWord:
|
||||
link $1
|
||||
pTos putIndex
|
||||
ldi $0
|
||||
ge?
|
||||
bnt code_036f
|
||||
ldi $0
|
||||
sat temp[$0]
|
||||
code_0357: lst temp[$0]
|
||||
lap param[$0]
|
||||
lt?
|
||||
bnt code_036f
|
||||
pushi $3 ; z
|
||||
pushi $5 ; scaleY
|
||||
pushSelf
|
||||
lat temp[$0]
|
||||
lspi param[$1]
|
||||
callk kernel_156, $6
|
||||
bnot
|
||||
+at temp[$0]
|
||||
jmp code_0357
|
||||
|
||||
code_036f: ret
|
||||
|
||||
PackedData::putLong:
|
||||
link $1
|
||||
pTos putIndex
|
||||
ldi $0
|
||||
ge?
|
||||
bnt code_03aa
|
||||
ldi $0
|
||||
sat temp[$0]
|
||||
code_037d: lst temp[$0]
|
||||
lap param[$0]
|
||||
lt?
|
||||
bnt code_03aa
|
||||
lat temp[$0]
|
||||
lspi param[$1]
|
||||
ldi $ff ; 255, asInteger
|
||||
eq?
|
||||
bnt code_0399
|
||||
pushi $13b ; 315, putWord
|
||||
push2
|
||||
pushi $ff ; 255, asInteger
|
||||
dup
|
||||
self $8
|
||||
bnot
|
||||
jmp code_03a6
|
||||
|
||||
code_0399: pushi $3 ; z
|
||||
pushi $7 ; priority
|
||||
pushSelf
|
||||
lat temp[$0]
|
||||
lspi param[$1]
|
||||
callk kernel_156, $6
|
||||
bnot
|
||||
code_03a6: +at temp[$0]
|
||||
jmp code_037d
|
||||
|
||||
code_03aa: ret
|
||||
|
||||
PackedData::putArray:
|
||||
link $3
|
||||
pushi $8d ; 141, new
|
||||
push1
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
gt?
|
||||
bnt code_03bc
|
||||
lap param[$2]
|
||||
jmp code_03c4
|
||||
|
||||
code_03bc: pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
code_03c4: push
|
||||
class LongInt
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$0]
|
||||
pushi $129 ; 297, less
|
||||
push1
|
||||
push0
|
||||
send $6
|
||||
bnot
|
||||
bt code_03db
|
||||
pTos putIndex
|
||||
ldi $0
|
||||
lt?
|
||||
code_03db: bnt code_03e9
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
ldi $0
|
||||
ret
|
||||
|
||||
code_03e9: pushi $8d ; 141, new
|
||||
push1
|
||||
pushi $97 ; 151, isKindOf
|
||||
push1
|
||||
class PackedData
|
||||
push
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_0400
|
||||
ldi $ff ; 255, asInteger
|
||||
jmp code_0408
|
||||
|
||||
code_0400: pushi $2b ; 43, '+', type
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
code_0408: push
|
||||
class LongInt
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$1]
|
||||
pushi $13c ; 316, putLong
|
||||
push1
|
||||
lst temp[$0]
|
||||
pushi $13c ; 316, putLong
|
||||
push1
|
||||
push
|
||||
self $c
|
||||
bnot
|
||||
pushi $10d ; 269, lowWord
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
dup
|
||||
ldi $0
|
||||
eq?
|
||||
bnt code_0459
|
||||
ldi $0
|
||||
sat temp[$2]
|
||||
code_0432: pushi $12d ; 301, greater
|
||||
push1
|
||||
lst temp[$2]
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_04df
|
||||
pushi $13b ; 315, putWord
|
||||
push1
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$2]
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
push
|
||||
self $6
|
||||
bnot
|
||||
+at temp[$2]
|
||||
jmp code_0432
|
||||
|
||||
jmp code_04df
|
||||
|
||||
code_0459: dup
|
||||
ldi $1
|
||||
eq?
|
||||
bnt code_048a
|
||||
ldi $0
|
||||
sat temp[$2]
|
||||
code_0463: pushi $12d ; 301, greater
|
||||
push1
|
||||
lst temp[$2]
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_04df
|
||||
pushi $13b ; 315, putWord
|
||||
push1
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$2]
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
push
|
||||
self $6
|
||||
bnot
|
||||
+at temp[$2]
|
||||
jmp code_0463
|
||||
|
||||
jmp code_04df
|
||||
|
||||
code_048a: dup
|
||||
ldi $3 ; z
|
||||
eq?
|
||||
bnt code_04b9
|
||||
ldi $0
|
||||
sat temp[$2]
|
||||
code_0494: pushi $12d ; 301, greater
|
||||
push1
|
||||
lst temp[$2]
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_04df
|
||||
pushi $13a ; 314, putByte
|
||||
push1
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$2]
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
push
|
||||
self $6
|
||||
bnot
|
||||
+at temp[$2]
|
||||
jmp code_0494
|
||||
|
||||
jmp code_04df
|
||||
|
||||
code_04b9: pushi $d2 ; 210, copyToFrom
|
||||
pushi $4 ; scaleX
|
||||
pTos putIndex
|
||||
lsp param[$1]
|
||||
push0
|
||||
pushi $10d ; 269, lowWord
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
self $c
|
||||
bnot
|
||||
pTos putIndex
|
||||
pushi $10d ; 269, lowWord
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
add
|
||||
aTop putIndex
|
||||
code_04df: toss
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
ldi $1
|
||||
ret
|
||||
|
||||
PackedData::putBits:
|
||||
link $2
|
||||
pushi $4 ; scaleX
|
||||
push1
|
||||
pushSelf
|
||||
lsp param[$1]
|
||||
lsp param[$2]
|
||||
callk kernel_156, $8
|
||||
bnot
|
||||
ret
|
||||
|
||||
PackedData::peek:
|
||||
link $3
|
||||
pToa getIndex
|
||||
sat temp[$1]
|
||||
push2
|
||||
pushSelf
|
||||
lsp param[$1]
|
||||
calle export60025_5, $4
|
||||
bnot
|
||||
sat temp[$2]
|
||||
lat temp[$1]
|
||||
aTop getIndex
|
||||
lat temp[$2]
|
||||
ret
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue