Upload files to "Script"
This commit is contained in:
parent
53de324c2f
commit
cec617c7f3
|
|
@ -0,0 +1,637 @@
|
|||
Collect::new:
|
||||
pushi $24 ; 36, '$', elements
|
||||
push1
|
||||
push1
|
||||
push0
|
||||
&rest $1
|
||||
callk kernel_90, $2
|
||||
bnot
|
||||
push
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push1
|
||||
push0
|
||||
pushi $9a ; 154, yourself
|
||||
push0
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
super Obj, $4
|
||||
bnot
|
||||
send $10
|
||||
bnot
|
||||
ret
|
||||
|
||||
Collect::doit:
|
||||
pushi $9d ; 157, eachElementDo
|
||||
push1
|
||||
pushi $45 ; 69, 'E', doit
|
||||
&rest $1
|
||||
self $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
Collect::add:
|
||||
link $3
|
||||
pToa elements
|
||||
not
|
||||
bnt code_0113
|
||||
push1
|
||||
push0
|
||||
callk kernel_90, $2
|
||||
bnot
|
||||
aTop elements
|
||||
code_0113: ldi $0
|
||||
sat temp[$1]
|
||||
code_0117: lst temp[$1]
|
||||
lap param[$0]
|
||||
lt?
|
||||
bnt code_0140
|
||||
pushi $a7 ; 167, isDuplicate
|
||||
push1
|
||||
lat temp[$1]
|
||||
lspi param[$1]
|
||||
self $6
|
||||
bnot
|
||||
not
|
||||
bnt code_013c
|
||||
pushi $3 ; z
|
||||
pushi $b ; 11, inRight
|
||||
pTos elements
|
||||
lat temp[$1]
|
||||
lspi param[$1]
|
||||
callk kernel_90, $6
|
||||
bnot
|
||||
ipToa size
|
||||
code_013c: +at temp[$1]
|
||||
jmp code_0117
|
||||
|
||||
code_0140: selfID
|
||||
ret
|
||||
|
||||
Collect::delete:
|
||||
link $1
|
||||
ldi $0
|
||||
sat temp[$0]
|
||||
code_0148: lst temp[$0]
|
||||
lap param[$0]
|
||||
lt?
|
||||
bnt code_0165
|
||||
pushi $3 ; z
|
||||
pushi $10 ; 16, cel
|
||||
pTos elements
|
||||
lat temp[$0]
|
||||
lspi param[$1]
|
||||
callk kernel_90, $6
|
||||
bnot
|
||||
bnt code_0161
|
||||
dpToa size
|
||||
code_0161: +at temp[$0]
|
||||
jmp code_0148
|
||||
|
||||
code_0165: selfID
|
||||
ret
|
||||
|
||||
Collect::dispose:
|
||||
pToa elements
|
||||
bnt code_017d
|
||||
pushi $9d ; 157, eachElementDo
|
||||
push1
|
||||
pushi $95 ; 149, dispose
|
||||
self $6
|
||||
bnot
|
||||
push2
|
||||
push1
|
||||
pTos elements
|
||||
callk kernel_90, $4
|
||||
bnot
|
||||
code_017d: ldi $0
|
||||
aTop elements
|
||||
aTop size
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
super Obj, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Collect::first:
|
||||
pushi $3 ; z
|
||||
pushi $11 ; 17, bitmap
|
||||
pTos elements
|
||||
push0
|
||||
callk kernel_90, $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
Collect::next:
|
||||
push2
|
||||
pushi $6 ; maxScale
|
||||
lsp param[$1]
|
||||
callk kernel_90, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Collect::isEmpty:
|
||||
pTos elements
|
||||
ldi $0
|
||||
eq?
|
||||
bt code_01b2
|
||||
push2
|
||||
pushi $5 ; scaleY
|
||||
pTos elements
|
||||
callk kernel_90, $4
|
||||
bnot
|
||||
code_01b2: ret
|
||||
|
||||
Collect::contains:
|
||||
pushi $3 ; z
|
||||
pushi $12 ; 18, nsLeft
|
||||
pTos elements
|
||||
lsp param[$1]
|
||||
callk kernel_90, $6
|
||||
bnot
|
||||
push
|
||||
ldi $ff ; 255, asInteger
|
||||
ne?
|
||||
ret
|
||||
|
||||
Collect::eachElementDo:
|
||||
link $3
|
||||
pushi $3 ; z
|
||||
pushi $13 ; 19, nsTop
|
||||
pTos elements
|
||||
lsp param[$1]
|
||||
&rest $2
|
||||
callk kernel_90, $6
|
||||
bnot
|
||||
sat temp[$2]
|
||||
push2
|
||||
pushi $17 ; 23, lsTop
|
||||
pTos elements
|
||||
callk kernel_90, $4
|
||||
bnot
|
||||
aTop size
|
||||
lat temp[$2]
|
||||
ret
|
||||
|
||||
Collect::firstTrue:
|
||||
link $3
|
||||
pushi $3 ; z
|
||||
pushi $14 ; 20, nsRight
|
||||
pTos elements
|
||||
lsp param[$1]
|
||||
&rest $2
|
||||
callk kernel_90, $6
|
||||
bnot
|
||||
sat temp[$2]
|
||||
push2
|
||||
pushi $17 ; 23, lsTop
|
||||
pTos elements
|
||||
callk kernel_90, $4
|
||||
bnot
|
||||
aTop size
|
||||
lat temp[$2]
|
||||
ret
|
||||
|
||||
Collect::firstEqual:
|
||||
link $4
|
||||
ldi $0
|
||||
sat temp[$2]
|
||||
pToa elements
|
||||
bnt code_025a
|
||||
ldi $0
|
||||
sat temp[$3]
|
||||
code_0212: lst temp[$3]
|
||||
pToa size
|
||||
lt?
|
||||
bnt code_025a
|
||||
pushi $3 ; z
|
||||
pushi $11 ; 17, bitmap
|
||||
pTos elements
|
||||
lst temp[$3]
|
||||
callk kernel_90, $6
|
||||
bnot
|
||||
sat temp[$0]
|
||||
push1
|
||||
push
|
||||
calle export60000_0, $2
|
||||
bnot
|
||||
not
|
||||
bnt code_0235
|
||||
jmp code_0256
|
||||
|
||||
code_0235: pushi $99 ; 153, respondsTo
|
||||
push1
|
||||
lsp param[$1]
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_0256
|
||||
lsp param[$1]
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lap param[$2]
|
||||
eq?
|
||||
bnt code_0256
|
||||
lat temp[$0]
|
||||
sat temp[$2]
|
||||
jmp code_025a
|
||||
|
||||
code_0256: +at temp[$3]
|
||||
jmp code_0212
|
||||
|
||||
code_025a: lat temp[$2]
|
||||
ret
|
||||
|
||||
Collect::allTrue:
|
||||
link $3
|
||||
pushi $3 ; z
|
||||
pushi $15 ; 21, nsBottom
|
||||
pTos elements
|
||||
lsp param[$1]
|
||||
&rest $2
|
||||
callk kernel_90, $6
|
||||
bnot
|
||||
sat temp[$2]
|
||||
push2
|
||||
pushi $17 ; 23, lsTop
|
||||
pTos elements
|
||||
callk kernel_90, $4
|
||||
bnot
|
||||
aTop size
|
||||
lat temp[$2]
|
||||
ret
|
||||
|
||||
Collect::release:
|
||||
link $1
|
||||
pToa elements
|
||||
bnt code_029d
|
||||
push2
|
||||
pushi $17 ; 23, lsTop
|
||||
push
|
||||
callk kernel_90, $4
|
||||
bnot
|
||||
bnt code_029d
|
||||
push2
|
||||
push1
|
||||
pTos elements
|
||||
callk kernel_90, $4
|
||||
bnot
|
||||
push1
|
||||
push0
|
||||
callk kernel_90, $2
|
||||
bnot
|
||||
aTop elements
|
||||
code_029d: ldi $0
|
||||
aTop size
|
||||
ret
|
||||
|
||||
Collect::isDuplicate:
|
||||
ldi $0
|
||||
ret
|
||||
|
||||
List::at:
|
||||
link $1
|
||||
pushi $3 ; z
|
||||
pushi $11 ; 17, bitmap
|
||||
pTos elements
|
||||
lsp param[$1]
|
||||
callk kernel_90, $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
List::last:
|
||||
push2
|
||||
pushi $4 ; scaleX
|
||||
pTos elements
|
||||
callk kernel_90, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
List::prev:
|
||||
push2
|
||||
pushi $7 ; priority
|
||||
lsp param[$1]
|
||||
callk kernel_90, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
List::addToFront:
|
||||
link $1
|
||||
pToa elements
|
||||
not
|
||||
bnt code_02d7
|
||||
push1
|
||||
push0
|
||||
callk kernel_90, $2
|
||||
bnot
|
||||
aTop elements
|
||||
code_02d7: lsp param[$0]
|
||||
ldi $1
|
||||
sub
|
||||
sat temp[$0]
|
||||
code_02de: push0
|
||||
lat temp[$0]
|
||||
le?
|
||||
bnt code_0306
|
||||
pushi $a7 ; 167, isDuplicate
|
||||
push1
|
||||
lat temp[$0]
|
||||
lspi param[$1]
|
||||
self $6
|
||||
bnot
|
||||
not
|
||||
bnt code_0302
|
||||
pushi $3 ; z
|
||||
pushi $a ; 10, inTop
|
||||
pTos elements
|
||||
lat temp[$0]
|
||||
lspi param[$1]
|
||||
callk kernel_90, $6
|
||||
bnot
|
||||
ipToa size
|
||||
code_0302: -at temp[$0]
|
||||
jmp code_02de
|
||||
|
||||
code_0306: selfID
|
||||
ret
|
||||
|
||||
List::addToEnd:
|
||||
link $1
|
||||
pToa elements
|
||||
not
|
||||
bnt code_0317
|
||||
push1
|
||||
push0
|
||||
callk kernel_90, $2
|
||||
bnot
|
||||
aTop elements
|
||||
code_0317: ldi $0
|
||||
sat temp[$0]
|
||||
code_031b: lst temp[$0]
|
||||
lap param[$0]
|
||||
lt?
|
||||
bnt code_0344
|
||||
pushi $a7 ; 167, isDuplicate
|
||||
push1
|
||||
lat temp[$0]
|
||||
lspi param[$1]
|
||||
self $6
|
||||
bnot
|
||||
not
|
||||
bnt code_0340
|
||||
pushi $3 ; z
|
||||
pushi $b ; 11, inRight
|
||||
pTos elements
|
||||
lat temp[$0]
|
||||
lspi param[$1]
|
||||
callk kernel_90, $6
|
||||
bnot
|
||||
ipToa size
|
||||
code_0340: +at temp[$0]
|
||||
jmp code_031b
|
||||
|
||||
code_0344: selfID
|
||||
ret
|
||||
|
||||
List::addAfter:
|
||||
link $3
|
||||
-ap param[$0]
|
||||
ldi $0
|
||||
sat temp[$0]
|
||||
code_034e: lst temp[$0]
|
||||
lap param[$0]
|
||||
lt?
|
||||
bnt code_0379
|
||||
pushi $a7 ; 167, isDuplicate
|
||||
push1
|
||||
lat temp[$0]
|
||||
lspi param[$2]
|
||||
self $6
|
||||
bnot
|
||||
not
|
||||
bnt code_0375
|
||||
pushi $4 ; scaleX
|
||||
pushi $9 ; inLeft
|
||||
pTos elements
|
||||
lsp param[$1]
|
||||
lat temp[$0]
|
||||
lspi param[$2]
|
||||
callk kernel_90, $8
|
||||
bnot
|
||||
ipToa size
|
||||
code_0375: +at temp[$0]
|
||||
jmp code_034e
|
||||
|
||||
code_0379: selfID
|
||||
ret
|
||||
|
||||
List::addBefore:
|
||||
link $3
|
||||
-ap param[$0]
|
||||
ldi $0
|
||||
sat temp[$0]
|
||||
code_0383: lst temp[$0]
|
||||
lap param[$0]
|
||||
lt?
|
||||
bnt code_03ae
|
||||
pushi $a7 ; 167, isDuplicate
|
||||
push1
|
||||
lat temp[$0]
|
||||
lspi param[$2]
|
||||
self $6
|
||||
bnot
|
||||
not
|
||||
bnt code_03aa
|
||||
pushi $4 ; scaleX
|
||||
pushi $c ; 12, inBottom
|
||||
pTos elements
|
||||
lsp param[$1]
|
||||
lat temp[$0]
|
||||
lspi param[$2]
|
||||
callk kernel_90, $8
|
||||
bnot
|
||||
ipToa size
|
||||
code_03aa: +at temp[$0]
|
||||
jmp code_0383
|
||||
|
||||
code_03ae: selfID
|
||||
ret
|
||||
|
||||
List::indexOf:
|
||||
link $2
|
||||
pushi $3 ; z
|
||||
pushi $12 ; 18, nsLeft
|
||||
pTos elements
|
||||
lsp param[$1]
|
||||
callk kernel_90, $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
List::union:
|
||||
link $4
|
||||
lap param[$1]
|
||||
sap param[$1]
|
||||
pushi $b1 ; 177, duplicate
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
ldi $0
|
||||
sat temp[$3]
|
||||
code_03d2: lst temp[$3]
|
||||
lap param[$0]
|
||||
lt?
|
||||
bnt code_040e
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
lat temp[$3]
|
||||
lapi param[$1]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$2]
|
||||
ldi $0
|
||||
sat temp[$1]
|
||||
code_03e9: lst temp[$1]
|
||||
lat temp[$2]
|
||||
lt?
|
||||
bnt code_040a
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$1]
|
||||
lat temp[$3]
|
||||
lapi param[$1]
|
||||
send $6
|
||||
bnot
|
||||
push
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
+at temp[$1]
|
||||
jmp code_03e9
|
||||
|
||||
code_040a: +at temp[$3]
|
||||
jmp code_03d2
|
||||
|
||||
code_040e: lat temp[$0]
|
||||
ret
|
||||
|
||||
List::intersection:
|
||||
link $5
|
||||
lap param[$1]
|
||||
sap param[$1]
|
||||
pushi $b1 ; 177, duplicate
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
ldi $0
|
||||
sat temp[$4]
|
||||
code_0424: lst temp[$4]
|
||||
lap param[$0]
|
||||
lt?
|
||||
bnt code_046e
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
lat temp[$4]
|
||||
lapi param[$1]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$2]
|
||||
ldi $0
|
||||
sat temp[$1]
|
||||
code_043b: lst temp[$1]
|
||||
lat temp[$2]
|
||||
lt?
|
||||
bnt code_046a
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$1]
|
||||
lat temp[$4]
|
||||
lapi param[$1]
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$3]
|
||||
pushi $a3 ; 163, contains
|
||||
push1
|
||||
push
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_0466
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
lst temp[$3]
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
code_0466: +at temp[$1]
|
||||
jmp code_043b
|
||||
|
||||
code_046a: +at temp[$4]
|
||||
jmp code_0424
|
||||
|
||||
code_046e: lat temp[$0]
|
||||
ret
|
||||
|
||||
List::duplicate:
|
||||
link $3
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
sat temp[$2]
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
ldi $0
|
||||
sat temp[$1]
|
||||
code_0488: lst temp[$1]
|
||||
lat temp[$2]
|
||||
lt?
|
||||
bnt code_04a5
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$1]
|
||||
self $6
|
||||
bnot
|
||||
push
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
+at temp[$1]
|
||||
jmp code_0488
|
||||
|
||||
code_04a5: lat temp[$0]
|
||||
ret
|
||||
|
||||
List::replace:
|
||||
pushi $ac ; 172, addAfter
|
||||
push2
|
||||
lsp param[$1]
|
||||
lsp param[$2]
|
||||
&rest $3 ; z
|
||||
self $8
|
||||
bnot
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
lsp param[$1]
|
||||
self $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
Set::isDuplicate:
|
||||
pushi $a3 ; 163, contains
|
||||
push1
|
||||
lsp param[$1]
|
||||
self $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,70 @@
|
|||
Event::new:
|
||||
link $1
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
super Obj, $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
push2
|
||||
lap param[$0]
|
||||
bnt code_0059
|
||||
lap param[$1]
|
||||
jmp code_005c
|
||||
|
||||
code_0059: ldi $7fff ; 32767
|
||||
code_005c: push
|
||||
lst temp[$0]
|
||||
callk kernel_80, $4
|
||||
bnot
|
||||
lat temp[$0]
|
||||
ret
|
||||
|
||||
Event::localize:
|
||||
pTos plane
|
||||
lap param[$1]
|
||||
ne?
|
||||
bnt code_0090
|
||||
pToa plane
|
||||
bnt code_0085
|
||||
pushi $a3 ; 163, contains
|
||||
push1
|
||||
push
|
||||
lag global[$25]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_0085
|
||||
push2
|
||||
pushSelf
|
||||
pTos plane
|
||||
callk kernel_82, $4
|
||||
bnot
|
||||
code_0085: push2
|
||||
pushSelf
|
||||
lap param[$1]
|
||||
aTop plane
|
||||
push
|
||||
callk kernel_81, $4
|
||||
bnot
|
||||
code_0090: selfID
|
||||
ret
|
||||
|
||||
Event::globalize:
|
||||
pToa plane
|
||||
bnt code_00aa
|
||||
pushi $a3 ; 163, contains
|
||||
push1
|
||||
push
|
||||
lag global[$25]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_00aa
|
||||
push2
|
||||
pushSelf
|
||||
pTos plane
|
||||
callk kernel_82, $4
|
||||
bnot
|
||||
code_00aa: ldi $0
|
||||
aTop plane
|
||||
selfID
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,481 @@
|
|||
Script::doit:
|
||||
link $1
|
||||
pToa script
|
||||
bnt code_00d6
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_00d6: pToa cycles
|
||||
bnt code_00e8
|
||||
dpToa cycles
|
||||
not
|
||||
bnt code_0139
|
||||
pushi $c7 ; 199, cue
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
jmp code_0139
|
||||
|
||||
code_00e8: pToa seconds
|
||||
bnt code_010b
|
||||
push1
|
||||
push1
|
||||
callk kernel_121, $2
|
||||
bnot
|
||||
sat temp[$0]
|
||||
pTos lastSeconds
|
||||
ne?
|
||||
bnt code_0139
|
||||
lat temp[$0]
|
||||
aTop lastSeconds
|
||||
dpToa seconds
|
||||
not
|
||||
bnt code_0139
|
||||
pushi $c7 ; 199, cue
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
jmp code_0139
|
||||
|
||||
code_010b: pToa ticks
|
||||
bnt code_0139
|
||||
push
|
||||
push1
|
||||
lsg global[$40]
|
||||
pToa lastTicks
|
||||
sub
|
||||
push
|
||||
callk kernel_61, $2
|
||||
bnot
|
||||
sub
|
||||
aTop ticks
|
||||
push
|
||||
ldi $0
|
||||
le?
|
||||
bnt code_0135
|
||||
ldi $0
|
||||
aTop ticks
|
||||
lag global[$40]
|
||||
aTop lastTicks
|
||||
pushi $c7 ; 199, cue
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
jmp code_0139
|
||||
|
||||
code_0135: lag global[$40]
|
||||
aTop lastTicks
|
||||
code_0139: ret
|
||||
|
||||
Script::init:
|
||||
pToa pRoom
|
||||
not
|
||||
bnt code_0143
|
||||
lag global[$3]
|
||||
aTop pRoom
|
||||
code_0143: lag global[$40]
|
||||
aTop lastTicks
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
ge?
|
||||
bnt code_0170
|
||||
pushi $c3 ; 195, script
|
||||
push1
|
||||
pushSelf
|
||||
lap param[$1]
|
||||
aTop client
|
||||
send $6
|
||||
bnot
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
ge?
|
||||
bnt code_0170
|
||||
lap param[$2]
|
||||
aTop caller
|
||||
lsp param[$0]
|
||||
ldi $3 ; z
|
||||
ge?
|
||||
bnt code_0170
|
||||
lap param[$3]
|
||||
aTop register
|
||||
code_0170: pushi $c6 ; 198, changeState
|
||||
push1
|
||||
pTos start
|
||||
self $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
Script::dispose:
|
||||
link $1
|
||||
pToa script
|
||||
bnt code_0195
|
||||
pushi $95 ; 149, dispose
|
||||
push1
|
||||
pushi $c4 ; 196, caller
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
selfID
|
||||
eq?
|
||||
not
|
||||
push
|
||||
pToa script
|
||||
send $6
|
||||
bnot
|
||||
code_0195: pToa timer
|
||||
bnt code_01a0
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_01a0: pToa client
|
||||
bnt code_01f6
|
||||
pushi $c3 ; 195, script
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
selfID
|
||||
eq?
|
||||
bnt code_01f6
|
||||
pushi $c3 ; 195, script
|
||||
push1
|
||||
pToa next
|
||||
bnt code_01ba
|
||||
jmp code_01c8
|
||||
|
||||
code_01ba: pToa number
|
||||
bnt code_01c6
|
||||
push1
|
||||
push
|
||||
callk kernel_2, $2
|
||||
bnot
|
||||
jmp code_01c8
|
||||
|
||||
code_01c6: ldi $0
|
||||
code_01c8: sat temp[$0]
|
||||
push
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
lat temp[$0]
|
||||
not
|
||||
bnt code_01d9
|
||||
ldi $0
|
||||
jmp code_01f6
|
||||
|
||||
code_01d9: lsg global[$36]
|
||||
lag global[$34]
|
||||
eq?
|
||||
bnt code_01ed
|
||||
pushi $94 ; 148, init
|
||||
push1
|
||||
pTos client
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
jmp code_01f6
|
||||
|
||||
code_01ed: pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
code_01f6: push1
|
||||
pTos caller
|
||||
calle export60000_0, $2
|
||||
bnot
|
||||
bnt code_027b
|
||||
lsg global[$36]
|
||||
lag global[$34]
|
||||
eq?
|
||||
bnt code_027b
|
||||
lap param[$0]
|
||||
not
|
||||
bt code_0215
|
||||
lsp param[$1]
|
||||
ldi $1
|
||||
eq?
|
||||
code_0215: bnt code_027b
|
||||
pToa pRoom
|
||||
bnt code_0270
|
||||
push1
|
||||
push
|
||||
calle export60000_0, $2
|
||||
bnot
|
||||
bnt code_0270
|
||||
push1
|
||||
pushi $ca ; 202, pCuees
|
||||
push0
|
||||
pToa pRoom
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
calle export60000_0, $2
|
||||
bnot
|
||||
bnt code_0270
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
pushi $c2 ; 194, register
|
||||
push1
|
||||
pTos register
|
||||
pushi $cb ; 203, cuee
|
||||
push1
|
||||
pTos caller
|
||||
pushi $cc ; 204, cuer
|
||||
push1
|
||||
pushSelf
|
||||
pushi $9a ; 154, yourself
|
||||
push0
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
lofsa Cue
|
||||
send $4
|
||||
bnot
|
||||
send $16
|
||||
bnot
|
||||
push
|
||||
pushi $ca ; 202, pCuees
|
||||
push0
|
||||
pToa pRoom
|
||||
send $4
|
||||
bnot
|
||||
send $6
|
||||
bnot
|
||||
jmp code_027b
|
||||
|
||||
code_0270: pushi $c7 ; 199, cue
|
||||
push1
|
||||
pTos register
|
||||
pToa caller
|
||||
send $6
|
||||
bnot
|
||||
code_027b: ldi $0
|
||||
aTop caller
|
||||
aTop number
|
||||
aTop next
|
||||
aTop client
|
||||
aTop timer
|
||||
aTop script
|
||||
aTop ticks
|
||||
aTop cycles
|
||||
aTop seconds
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
super Obj, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Script::changeState:
|
||||
lap param[$1]
|
||||
aTop state
|
||||
ret
|
||||
|
||||
Script::cue:
|
||||
link $1
|
||||
pToa pRoom
|
||||
bnt code_02f4
|
||||
push1
|
||||
push
|
||||
calle export60000_0, $2
|
||||
bnot
|
||||
bnt code_02f4
|
||||
lsg global[$3]
|
||||
pToa pRoom
|
||||
ne?
|
||||
bnt code_02f4
|
||||
lag global[$3]
|
||||
sat temp[$0]
|
||||
pToa pRoom
|
||||
sag global[$3]
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
pushi $c2 ; 194, register
|
||||
push1
|
||||
pTos register
|
||||
pushi $cb ; 203, cuee
|
||||
push1
|
||||
pushSelf
|
||||
pushi $cc ; 204, cuer
|
||||
push1
|
||||
pushSelf
|
||||
pushi $9a ; 154, yourself
|
||||
push0
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
lofsa Cue
|
||||
send $4
|
||||
bnot
|
||||
send $16
|
||||
bnot
|
||||
push
|
||||
pushi $ca ; 202, pCuees
|
||||
push0
|
||||
pToa pRoom
|
||||
send $4
|
||||
bnot
|
||||
send $6
|
||||
bnot
|
||||
lat temp[$0]
|
||||
sag global[$3]
|
||||
ret
|
||||
|
||||
code_02f4: pToa client
|
||||
bnt code_030b
|
||||
lag global[$40]
|
||||
aTop lastTicks
|
||||
pushi $c6 ; 198, changeState
|
||||
push1
|
||||
pTos state
|
||||
ldi $1
|
||||
add
|
||||
push
|
||||
&rest $1
|
||||
self $6
|
||||
bnot
|
||||
code_030b: ret
|
||||
|
||||
Script::setScript:
|
||||
pToa script
|
||||
bnt code_0317
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_0317: lap param[$1]
|
||||
bnt code_0325
|
||||
pushi $94 ; 148, init
|
||||
push1
|
||||
pushSelf
|
||||
&rest $2
|
||||
send $6
|
||||
bnot
|
||||
code_0325: ret
|
||||
|
||||
Script::handleEvent:
|
||||
pToa script
|
||||
bnt code_0333
|
||||
pushi $c8 ; 200, handleEvent
|
||||
push1
|
||||
lsp param[$1]
|
||||
send $6
|
||||
bnot
|
||||
code_0333: pushi $50 ; 80, 'P', claimed
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
DemonsScript::init:
|
||||
pushi $cd ; 205, pDemons
|
||||
push0
|
||||
lag global[$3]
|
||||
send $4
|
||||
bnot
|
||||
aTop client
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
pushSelf
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
&rest $1
|
||||
super Script, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
DemonsScript::dispose:
|
||||
pToa client
|
||||
bnt code_0382
|
||||
push1
|
||||
push
|
||||
calle export60000_0, $2
|
||||
bnot
|
||||
bnt code_0382
|
||||
pushi $97 ; 151, isKindOf
|
||||
push1
|
||||
class List
|
||||
push
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
bnt code_0382
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
pushSelf
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
code_0382: ldi $0
|
||||
aTop client
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
&rest $1
|
||||
super Script, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Cue::dispose:
|
||||
pToa pList
|
||||
bnt code_039c
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
pushSelf
|
||||
send $6
|
||||
bnot
|
||||
code_039c: pushi $95 ; 149, dispose
|
||||
push0
|
||||
&rest $1
|
||||
super Obj, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Cue::handleError:
|
||||
lsp param[$1]
|
||||
pToa cuee
|
||||
eq?
|
||||
bnt code_03b5
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_03b5: ret
|
||||
|
||||
Cue::doit:
|
||||
pToa pList
|
||||
bnt code_03ef
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
pushSelf
|
||||
send $6
|
||||
bnot
|
||||
push1
|
||||
pTos cuee
|
||||
calle export60000_0, $2
|
||||
bnot
|
||||
bnt code_03e8
|
||||
pushi $99 ; 153, respondsTo
|
||||
push1
|
||||
pushi $c7 ; 199, cue
|
||||
pToa cuee
|
||||
send $6
|
||||
bnot
|
||||
bnt code_03e8
|
||||
pushi $c7 ; 199, cue
|
||||
push2
|
||||
pTos register
|
||||
pTos cuer
|
||||
pToa cuee
|
||||
send $8
|
||||
bnot
|
||||
code_03e8: pushi $95 ; 149, dispose
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_03ef: ret
|
||||
|
||||
|
|
@ -0,0 +1,282 @@
|
|||
Motion::init:
|
||||
link $2
|
||||
lap param[$0]
|
||||
bnt code_00e3
|
||||
push
|
||||
ldi $1
|
||||
ge?
|
||||
bnt code_00cd
|
||||
lap param[$1]
|
||||
aTop client
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
ge?
|
||||
bnt code_00cd
|
||||
lap param[$2]
|
||||
aTop x
|
||||
lsp param[$0]
|
||||
ldi $3 ; z
|
||||
ge?
|
||||
bnt code_00cd
|
||||
lap param[$3]
|
||||
aTop y
|
||||
lsp param[$0]
|
||||
ldi $4 ; scaleX
|
||||
ge?
|
||||
bnt code_00cd
|
||||
lap param[$4]
|
||||
aTop caller
|
||||
code_00cd: ldi $0
|
||||
aTop completed
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
aTop xLast
|
||||
push2
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
aTop yLast
|
||||
code_00e3: pushi $4 ; scaleX
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
push
|
||||
push2
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$1]
|
||||
push
|
||||
pTos x
|
||||
pTos y
|
||||
callk kernel_64, $8
|
||||
bnot
|
||||
bnt code_011b
|
||||
pushi $15a ; 346, setHeading
|
||||
push1
|
||||
pushi $4 ; scaleX
|
||||
lst temp[$0]
|
||||
lst temp[$1]
|
||||
pTos x
|
||||
pTos y
|
||||
callk kernel_63, $8
|
||||
bnot
|
||||
push
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
code_011b: push1
|
||||
pushSelf
|
||||
callk kernel_97, $2
|
||||
bnot
|
||||
pushi $15b ; 347, cycler
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$1]
|
||||
bnt code_0137
|
||||
pushi $102 ; 258, cycleCnt
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
aTop b_moveCnt
|
||||
code_0137: ret
|
||||
|
||||
Motion::dispose:
|
||||
push1
|
||||
pTos client
|
||||
calle export60000_0, $2
|
||||
bnot
|
||||
bnt code_0159
|
||||
pushi $99 ; 153, respondsTo
|
||||
push1
|
||||
pushi $64 ; 100, 'd', moveDone
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
bnt code_0159
|
||||
pushi $64 ; 100, 'd', moveDone
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
code_0159: push1
|
||||
pTos caller
|
||||
calle export60000_0, $2
|
||||
bnot
|
||||
bnt code_019b
|
||||
pToa pImmediateCue
|
||||
bnt code_0174
|
||||
pushi $c7 ; 199, cue
|
||||
push0
|
||||
pToa caller
|
||||
send $4
|
||||
bnot
|
||||
jmp code_019b
|
||||
|
||||
code_0174: pushi $9f ; 159, add
|
||||
push1
|
||||
pushi $cb ; 203, cuee
|
||||
push1
|
||||
pTos caller
|
||||
pushi $9a ; 154, yourself
|
||||
push0
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Cue
|
||||
send $4
|
||||
bnot
|
||||
send $a
|
||||
bnot
|
||||
push
|
||||
pushi $ca ; 202, pCuees
|
||||
push0
|
||||
lag global[$3]
|
||||
send $4
|
||||
bnot
|
||||
send $6
|
||||
bnot
|
||||
code_019b: pushi $95 ; 149, dispose
|
||||
push0
|
||||
&rest $1
|
||||
super Obj, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Motion::onTarget:
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa x
|
||||
eq?
|
||||
bnt code_01be
|
||||
push2
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa y
|
||||
eq?
|
||||
code_01be: ret
|
||||
|
||||
Motion::setTarget:
|
||||
lap param[$0]
|
||||
bnt code_01cb
|
||||
lap param[$1]
|
||||
aTop x
|
||||
lap param[$2]
|
||||
aTop y
|
||||
code_01cb: ret
|
||||
|
||||
Motion::doit:
|
||||
link $6
|
||||
pushi $1007 ; 4103, -info-
|
||||
push1
|
||||
pushi $1007 ; 4103, -info-
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $8 ; fixPriority
|
||||
or
|
||||
push
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
push1
|
||||
pushSelf
|
||||
callk kernel_98, $2
|
||||
bnot
|
||||
ret
|
||||
|
||||
Motion::moveDone:
|
||||
push1
|
||||
pTos client
|
||||
calle export60000_0, $2
|
||||
bnot
|
||||
bnt code_020d
|
||||
pushi $99 ; 153, respondsTo
|
||||
push1
|
||||
pushi $64 ; 100, 'd', moveDone
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
bnt code_020d
|
||||
pushi $64 ; 100, 'd', moveDone
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
code_020d: ldi $1
|
||||
aTop completed
|
||||
pushi $159 ; 345, motionCue
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Motion::motionCue:
|
||||
pushi $15c ; 348, setMotion
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
MoveTo::onTarget:
|
||||
push1
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa x
|
||||
sub
|
||||
push
|
||||
callk kernel_61, $2
|
||||
bnot
|
||||
push
|
||||
pushi $3f ; 63, '?', xStep
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
le?
|
||||
bnt code_025c
|
||||
push1
|
||||
push2
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa y
|
||||
sub
|
||||
push
|
||||
callk kernel_61, $2
|
||||
bnot
|
||||
push
|
||||
pushi $40 ; 64, '@', yStep
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
le?
|
||||
code_025c: ret
|
||||
|
||||
|
|
@ -0,0 +1,350 @@
|
|||
File::open:
|
||||
lsp param[$0]
|
||||
dup
|
||||
ldi $0
|
||||
eq?
|
||||
bnt code_0078
|
||||
pushi $3 ; z
|
||||
push0
|
||||
push2
|
||||
pushi $9 ; inLeft
|
||||
pTos name
|
||||
callk kernel_91, $4
|
||||
bnot
|
||||
push
|
||||
push0
|
||||
callk kernel_93, $6
|
||||
bnot
|
||||
jmp code_0095
|
||||
|
||||
code_0078: dup
|
||||
ldi $1
|
||||
eq?
|
||||
bnt code_0093
|
||||
pushi $3 ; z
|
||||
push0
|
||||
push2
|
||||
pushi $9 ; inLeft
|
||||
pTos name
|
||||
callk kernel_91, $4
|
||||
bnot
|
||||
push
|
||||
lsp param[$1]
|
||||
callk kernel_93, $6
|
||||
bnot
|
||||
jmp code_0095
|
||||
|
||||
code_0093: ldi $0
|
||||
code_0095: toss
|
||||
aTop handle
|
||||
pTos handle
|
||||
ldi $ff ; 255, asInteger
|
||||
eq?
|
||||
bnt code_00a3
|
||||
ldi $0
|
||||
aTop handle
|
||||
code_00a3: pToa handle
|
||||
bnt code_00aa
|
||||
selfID
|
||||
jmp code_00ac
|
||||
|
||||
code_00aa: ldi $0
|
||||
code_00ac: ret
|
||||
|
||||
File::write:
|
||||
link $1
|
||||
pToa handle
|
||||
not
|
||||
bnt code_00bb
|
||||
pushi $248 ; 584, open
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_00bb: pToa handle
|
||||
bnt code_00d6
|
||||
pushi $4 ; scaleX
|
||||
pushi $3 ; z
|
||||
push
|
||||
push2
|
||||
pushi $9 ; inLeft
|
||||
lsp param[$1]
|
||||
callk kernel_91, $4
|
||||
bnot
|
||||
push
|
||||
lsp param[$2]
|
||||
callk kernel_93, $8
|
||||
bnot
|
||||
jmp code_00d8
|
||||
|
||||
code_00d6: ldi $0
|
||||
code_00d8: ret
|
||||
|
||||
File::writeString:
|
||||
link $1
|
||||
pToa handle
|
||||
not
|
||||
bnt code_00e7
|
||||
pushi $248 ; 584, open
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_00e7: pToa handle
|
||||
bnt code_0116
|
||||
ldi $0
|
||||
sat temp[$0]
|
||||
code_00ef: lst temp[$0]
|
||||
lap param[$0]
|
||||
lt?
|
||||
bnt code_0116
|
||||
pushi $3 ; z
|
||||
pushi $6 ; maxScale
|
||||
pTos handle
|
||||
push2
|
||||
pushi $9 ; inLeft
|
||||
lat temp[$0]
|
||||
lspi param[$1]
|
||||
callk kernel_91, $4
|
||||
bnot
|
||||
push
|
||||
callk kernel_93, $6
|
||||
bnot
|
||||
not
|
||||
bnt code_0112
|
||||
ldi $0
|
||||
ret
|
||||
|
||||
code_0112: +at temp[$0]
|
||||
jmp code_00ef
|
||||
|
||||
code_0116: ldi $1
|
||||
ret
|
||||
|
||||
File::read:
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
ne?
|
||||
bnt code_0123
|
||||
ldi $0
|
||||
ret
|
||||
|
||||
code_0123: pToa handle
|
||||
not
|
||||
bnt code_0130
|
||||
pushi $248 ; 584, open
|
||||
push1
|
||||
push1
|
||||
self $6
|
||||
bnot
|
||||
code_0130: pToa handle
|
||||
bnt code_014a
|
||||
pushi $4 ; scaleX
|
||||
push2
|
||||
push
|
||||
push2
|
||||
pushi $9 ; inLeft
|
||||
lsp param[$1]
|
||||
callk kernel_91, $4
|
||||
bnot
|
||||
push
|
||||
lsp param[$2]
|
||||
callk kernel_93, $8
|
||||
bnot
|
||||
jmp code_014c
|
||||
|
||||
code_014a: ldi $0
|
||||
code_014c: ret
|
||||
|
||||
File::readString:
|
||||
link $1
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
ne?
|
||||
bnt code_0159
|
||||
ldi $0
|
||||
ret
|
||||
|
||||
code_0159: pToa handle
|
||||
not
|
||||
bnt code_0166
|
||||
pushi $248 ; 584, open
|
||||
push1
|
||||
push1
|
||||
self $6
|
||||
bnot
|
||||
code_0166: push2
|
||||
lsp param[$2]
|
||||
push2
|
||||
push1
|
||||
push2
|
||||
pushi $9 ; inLeft
|
||||
lsp param[$1]
|
||||
callk kernel_91, $4
|
||||
bnot
|
||||
push
|
||||
callk kernel_91, $4
|
||||
bnot
|
||||
push
|
||||
calle export60025_2, $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
pToa handle
|
||||
bnt code_019f
|
||||
pushi $4 ; scaleX
|
||||
pushi $5 ; scaleY
|
||||
push2
|
||||
pushi $9 ; inLeft
|
||||
lsp param[$1]
|
||||
callk kernel_91, $4
|
||||
bnot
|
||||
push
|
||||
lst temp[$0]
|
||||
pTos handle
|
||||
callk kernel_93, $8
|
||||
bnot
|
||||
jmp code_01a1
|
||||
|
||||
code_019f: ldi $0
|
||||
code_01a1: ret
|
||||
|
||||
File::getByte:
|
||||
push2
|
||||
pushi $d ; 13, seenRect
|
||||
pTos handle
|
||||
callk kernel_93, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
File::putByte:
|
||||
link $1
|
||||
ldi $0
|
||||
sat temp[$0]
|
||||
code_01b2: lst temp[$0]
|
||||
lap param[$0]
|
||||
lt?
|
||||
bnt code_01cb
|
||||
pushi $3 ; z
|
||||
pushi $e ; 14, view
|
||||
pTos handle
|
||||
lat temp[$0]
|
||||
lspi param[$1]
|
||||
callk kernel_93, $6
|
||||
bnot
|
||||
+at temp[$0]
|
||||
jmp code_01b2
|
||||
|
||||
code_01cb: ret
|
||||
|
||||
File::getWord:
|
||||
push2
|
||||
pushi $f ; 15, loop
|
||||
pTos handle
|
||||
callk kernel_93, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
File::putWord:
|
||||
link $1
|
||||
ldi $0
|
||||
sat temp[$0]
|
||||
code_01dc: lst temp[$0]
|
||||
lap param[$0]
|
||||
lt?
|
||||
bnt code_01f5
|
||||
pushi $3 ; z
|
||||
pushi $10 ; 16, cel
|
||||
pTos handle
|
||||
lat temp[$0]
|
||||
lspi param[$1]
|
||||
callk kernel_93, $6
|
||||
bnot
|
||||
+at temp[$0]
|
||||
jmp code_01dc
|
||||
|
||||
code_01f5: ret
|
||||
|
||||
File::rename:
|
||||
link $1
|
||||
pushi $3 ; z
|
||||
pushi $b ; 11, inRight
|
||||
pTos name
|
||||
lsp param[$1]
|
||||
callk kernel_93, $6
|
||||
bnot
|
||||
sat temp[$0]
|
||||
not
|
||||
bnt code_020d
|
||||
lap param[$1]
|
||||
aTop name
|
||||
code_020d: lat temp[$0]
|
||||
ret
|
||||
|
||||
File::seek:
|
||||
link $1
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
ge?
|
||||
bnt code_021d
|
||||
lap param[$2]
|
||||
jmp code_021f
|
||||
|
||||
code_021d: ldi $0
|
||||
code_021f: sat temp[$0]
|
||||
pToa handle
|
||||
not
|
||||
bnt code_022e
|
||||
pushi $248 ; 584, open
|
||||
push1
|
||||
push1
|
||||
self $6
|
||||
bnot
|
||||
code_022e: pToa handle
|
||||
bnt code_0241
|
||||
pushi $4 ; scaleX
|
||||
pushi $7 ; priority
|
||||
push
|
||||
lsp param[$1]
|
||||
lst temp[$0]
|
||||
callk kernel_93, $8
|
||||
bnot
|
||||
jmp code_0243
|
||||
|
||||
code_0241: ldi $0
|
||||
code_0243: ret
|
||||
|
||||
File::close:
|
||||
pToa handle
|
||||
bnt code_0253
|
||||
push2
|
||||
push1
|
||||
push
|
||||
callk kernel_93, $4
|
||||
bnot
|
||||
ldi $0
|
||||
aTop handle
|
||||
code_0253: ret
|
||||
|
||||
File::delete:
|
||||
pToa handle
|
||||
bnt code_025f
|
||||
pushi $253 ; 595, close
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_025f: push2
|
||||
pushi $4 ; scaleX
|
||||
pTos name
|
||||
callk kernel_93, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
File::dispose:
|
||||
pushi $253 ; 595, close
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
super Obj, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Loading…
Reference in New Issue