threememories
/
RealmFiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Upload files to "Script"

This commit is contained in:
threememories 2026-04-27 01:31:56 +00:00
parent 53de324c2f
commit cec617c7f3
5 changed files with 1820 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

637
Script/Script60004.txt Normal file
View File

@ -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

70
Script/Script60005.txt Normal file
View File

@ -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

481
Script/Script60007.txt Normal file
View File

@ -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

282
Script/Script60008.txt Normal file
View File

@ -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

350
Script/Script60009.txt Normal file
View File

@ -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