Upload files to "Script"
This commit is contained in:
parent
d5d6d7ce3d
commit
2bc95b06d8
|
|
@ -0,0 +1,152 @@
|
|||
RandCycle::init:
|
||||
pushi $94 ; 148, init
|
||||
push1
|
||||
lsp param[$1]
|
||||
super Cycle, $6
|
||||
bnot
|
||||
lsp param[$0]
|
||||
ldi $4 ; scaleX
|
||||
ge?
|
||||
bnt code_0057
|
||||
lap param[$4]
|
||||
aTop reset
|
||||
code_0057: pToa reset
|
||||
bnt code_0064
|
||||
pushi $10 ; 16, cel
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
code_0064: push0
|
||||
callk kernel_121, $0
|
||||
bnot
|
||||
aTop cycleCnt
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
ge?
|
||||
bnt code_0097
|
||||
lsp param[$2]
|
||||
ldi $ff ; 255, asInteger
|
||||
ne?
|
||||
bnt code_0086
|
||||
push0
|
||||
callk kernel_121, $0
|
||||
bnot
|
||||
push
|
||||
lap param[$2]
|
||||
add
|
||||
aTop count
|
||||
jmp code_008a
|
||||
|
||||
code_0086: ldi $ff ; 255, asInteger
|
||||
aTop count
|
||||
code_008a: lsp param[$0]
|
||||
ldi $3 ; z
|
||||
ge?
|
||||
bnt code_009b
|
||||
lap param[$3]
|
||||
aTop caller
|
||||
jmp code_009b
|
||||
|
||||
code_0097: ldi $ff ; 255, asInteger
|
||||
aTop count
|
||||
code_009b: ret
|
||||
|
||||
RandCycle::doit:
|
||||
link $1
|
||||
pTos count
|
||||
push0
|
||||
callk kernel_121, $0
|
||||
bnot
|
||||
sat temp[$0]
|
||||
gt?
|
||||
bt code_00af
|
||||
pTos count
|
||||
ldi $ff ; 255, asInteger
|
||||
eq?
|
||||
code_00af: bnt code_00dc
|
||||
lst temp[$0]
|
||||
pToa cycleCnt
|
||||
sub
|
||||
push
|
||||
pushi $14a ; 330, cycleSpeed
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
gt?
|
||||
bnt code_00f0
|
||||
pushi $10 ; 16, cel
|
||||
push1
|
||||
pushi $15f ; 351, nextCel
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
push
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
push0
|
||||
callk kernel_121, $0
|
||||
bnot
|
||||
aTop cycleCnt
|
||||
jmp code_00f0
|
||||
|
||||
code_00dc: pToa reset
|
||||
bnt code_00e9
|
||||
pushi $10 ; 16, cel
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
code_00e9: pushi $160 ; 352, cycleDone
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_00f0: ret
|
||||
|
||||
RandCycle::nextCel:
|
||||
link $1
|
||||
push1
|
||||
pTos client
|
||||
callk kernel_22, $2
|
||||
bnot
|
||||
push
|
||||
ldi $1
|
||||
ne?
|
||||
bnt code_0122
|
||||
code_0100: push2
|
||||
push0
|
||||
pushi $161 ; 353, lastCel
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
callk kernel_60, $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
push
|
||||
pushi $10 ; 16, cel
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
eq?
|
||||
bnt code_0120
|
||||
jmp code_0100
|
||||
|
||||
code_0120: lat temp[$0]
|
||||
code_0122: ret
|
||||
|
||||
RandCycle::cycleDone:
|
||||
ldi $1
|
||||
aTop completed
|
||||
pushi $159 ; 345, motionCue
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,169 @@
|
|||
ActiveCursorList::addToFront:
|
||||
pushi $aa ; 170, addToFront
|
||||
push0
|
||||
&rest $1
|
||||
super Set, $4
|
||||
bnot
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
ActiveCursorList::delete:
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push0
|
||||
&rest $1
|
||||
super Set, $4
|
||||
bnot
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
ActiveCursorList::doit:
|
||||
lsg global[$b]
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
push0
|
||||
self $6
|
||||
bnot
|
||||
ne?
|
||||
bnt code_00aa
|
||||
pushi $57 ; 87, 'W', draw
|
||||
push0
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
push0
|
||||
self $6
|
||||
bnot
|
||||
sag global[$b]
|
||||
send $4
|
||||
bnot
|
||||
code_00aa: ret
|
||||
|
||||
Cursor::init:
|
||||
lap param[$0]
|
||||
bnt code_00b5
|
||||
lap param[$1]
|
||||
aTop client
|
||||
jmp code_00ba
|
||||
|
||||
code_00b5: lofsa ActiveCursorList
|
||||
aTop client
|
||||
code_00ba: ret
|
||||
|
||||
Cursor::dispose:
|
||||
pushi $1b5 ; 437, disable
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
super Rect, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Cursor::draw:
|
||||
pushi $3 ; z
|
||||
pTos view
|
||||
pTos loop
|
||||
pTos cel
|
||||
callk kernel_85, $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
Cursor::posn:
|
||||
push2
|
||||
lsp param[$1]
|
||||
lsp param[$2]
|
||||
callk kernel_85, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Cursor::show:
|
||||
push1
|
||||
lap param[$0]
|
||||
bnt code_00eb
|
||||
lap param[$1]
|
||||
jmp code_00ed
|
||||
|
||||
code_00eb: ldi $1
|
||||
code_00ed: push
|
||||
callk kernel_85, $2
|
||||
bnot
|
||||
ret
|
||||
|
||||
Cursor::setCursor:
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
gt?
|
||||
bnt code_0108
|
||||
lap param[$1]
|
||||
aTop view
|
||||
lap param[$2]
|
||||
aTop loop
|
||||
lap param[$3]
|
||||
aTop cel
|
||||
jmp code_0126
|
||||
|
||||
code_0108: pushi $e ; 14, view
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
aTop view
|
||||
pushi $f ; 15, loop
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
aTop loop
|
||||
pushi $10 ; 16, cel
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
aTop cel
|
||||
code_0126: pTos loop
|
||||
ldi $0
|
||||
lt?
|
||||
bnt code_0138
|
||||
push2
|
||||
lofsa string_006b ; "setCursor called with loop of %d"
|
||||
push
|
||||
pTos loop
|
||||
callk kernel_132, $4
|
||||
bnot
|
||||
code_0138: ret
|
||||
|
||||
Cursor::enable:
|
||||
pToa client
|
||||
bnt code_0145
|
||||
pushi $aa ; 170, addToFront
|
||||
push1
|
||||
pushSelf
|
||||
send $6
|
||||
bnot
|
||||
code_0145: ret
|
||||
|
||||
Cursor::disable:
|
||||
pToa client
|
||||
bnt code_015f
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $1
|
||||
gt?
|
||||
bnt code_015f
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
pushSelf
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
code_015f: ret
|
||||
|
||||
|
|
@ -0,0 +1,61 @@
|
|||
EventHandler::handleEvent:
|
||||
link $2
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
sat temp[$1]
|
||||
ldi $0
|
||||
sat temp[$0]
|
||||
code_0060: lst temp[$0]
|
||||
lat temp[$1]
|
||||
lt?
|
||||
bnt code_0088
|
||||
pushi $c8 ; 200, handleEvent
|
||||
push1
|
||||
lsp param[$1]
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$0]
|
||||
self $6
|
||||
bnot
|
||||
send $6
|
||||
bnot
|
||||
pushi $50 ; 80, 'P', claimed
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
bnt code_0084
|
||||
jmp code_0088
|
||||
|
||||
code_0084: +at temp[$0]
|
||||
jmp code_0060
|
||||
|
||||
code_0088: pushi $50 ; 80, 'P', claimed
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Cast::dispose:
|
||||
pToa plane
|
||||
bnt code_00a7
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
pushSelf
|
||||
pushi $cf ; 207, casts
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
send $6
|
||||
bnot
|
||||
ldi $0
|
||||
aTop plane
|
||||
code_00a7: pushi $95 ; 149, dispose
|
||||
push0
|
||||
super EventHandler, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,618 @@
|
|||
Polygon::new:
|
||||
link $1
|
||||
pushi $5b ; 91, '[', points
|
||||
push1
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class IntArray
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $16e ; 366, dynamic
|
||||
push1
|
||||
push1
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
super Obj, $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
send $c
|
||||
bnot
|
||||
pToa points
|
||||
bnt code_0083
|
||||
pushi $d3 ; 211, copy
|
||||
push1
|
||||
pushSelf
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
code_0083: lat temp[$0]
|
||||
ret
|
||||
|
||||
Polygon::init:
|
||||
link $2
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
div
|
||||
aTop size
|
||||
pushi $d0 ; 208, with
|
||||
push1
|
||||
lsp param[$1]
|
||||
&rest $2
|
||||
class IntArray
|
||||
send $6
|
||||
bnot
|
||||
aTop points
|
||||
ldi $1
|
||||
aTop dynamic
|
||||
ret
|
||||
|
||||
Polygon::dispose:
|
||||
pToa pDispose
|
||||
not
|
||||
bnt code_00b1
|
||||
push1
|
||||
lofsa string_0028 ; "Polygon being disposed without being tagged for disposal."
|
||||
push
|
||||
callk kernel_132, $2
|
||||
bnot
|
||||
code_00b1: pToa dynamic
|
||||
bnt code_00c2
|
||||
pToa points
|
||||
bnt code_00c2
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
pToa points
|
||||
send $4
|
||||
bnot
|
||||
code_00c2: pushi $95 ; 149, dispose
|
||||
push0
|
||||
super Obj, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Polygon::onMe:
|
||||
pushi $3 ; z
|
||||
lsp param[$1]
|
||||
lsp param[$2]
|
||||
pushSelf
|
||||
callk kernel_101, $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
Polygon::copy:
|
||||
pushi $d3 ; 211, copy
|
||||
push1
|
||||
pushi $5b ; 91, '[', points
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa points
|
||||
send $6
|
||||
bnot
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
aTop size
|
||||
ret
|
||||
|
||||
Polygon::scale:
|
||||
link $5
|
||||
pToa size
|
||||
sat temp[$0]
|
||||
ldi $0
|
||||
sat temp[$3]
|
||||
pushi $4e ; 78, 'N', width
|
||||
lap param[$1]
|
||||
mul
|
||||
push
|
||||
ldi $64 ; 100, 'd', moveDone
|
||||
div
|
||||
sat temp[$2]
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class LongInt
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$4]
|
||||
ldi $0
|
||||
sat temp[$1]
|
||||
code_0118: lst temp[$1]
|
||||
lat temp[$0]
|
||||
lt?
|
||||
bnt code_01a5
|
||||
pushi $b5 ; 181, set
|
||||
push1
|
||||
lst temp[$2]
|
||||
lat temp[$4]
|
||||
send $6
|
||||
bnot
|
||||
pushi $113 ; 275, mul
|
||||
push1
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$3]
|
||||
pToa points
|
||||
send $6
|
||||
bnot
|
||||
push
|
||||
lat temp[$4]
|
||||
send $6
|
||||
bnot
|
||||
pushi $115 ; 277, div
|
||||
push1
|
||||
pushi $64 ; 100, 'd', moveDone
|
||||
lat temp[$4]
|
||||
send $6
|
||||
bnot
|
||||
pushi $4b ; 75, 'K', at
|
||||
push2
|
||||
lst temp[$3]
|
||||
pushi $10d ; 269, lowWord
|
||||
push0
|
||||
lat temp[$4]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa points
|
||||
send $8
|
||||
bnot
|
||||
+at temp[$3]
|
||||
pushi $b5 ; 181, set
|
||||
push1
|
||||
lst temp[$2]
|
||||
lat temp[$4]
|
||||
send $6
|
||||
bnot
|
||||
pushi $113 ; 275, mul
|
||||
push1
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$3]
|
||||
pToa points
|
||||
send $6
|
||||
bnot
|
||||
push
|
||||
lat temp[$4]
|
||||
send $6
|
||||
bnot
|
||||
pushi $115 ; 277, div
|
||||
push1
|
||||
pushi $64 ; 100, 'd', moveDone
|
||||
lat temp[$4]
|
||||
send $6
|
||||
bnot
|
||||
pushi $4b ; 75, 'K', at
|
||||
push2
|
||||
lst temp[$3]
|
||||
pushi $10d ; 269, lowWord
|
||||
push0
|
||||
lat temp[$4]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa points
|
||||
send $8
|
||||
bnot
|
||||
+at temp[$1]
|
||||
+at temp[$3]
|
||||
jmp code_0118
|
||||
|
||||
code_01a5: pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$4]
|
||||
send $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Polygon::moveBy:
|
||||
link $3
|
||||
pToa size
|
||||
sat temp[$0]
|
||||
ldi $0
|
||||
sat temp[$2]
|
||||
ldi $0
|
||||
sat temp[$1]
|
||||
code_01bd: lst temp[$1]
|
||||
lat temp[$0]
|
||||
lt?
|
||||
bnt code_01fc
|
||||
pushi $4b ; 75, 'K', at
|
||||
push2
|
||||
lst temp[$2]
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$2]
|
||||
pToa points
|
||||
send $6
|
||||
bnot
|
||||
push
|
||||
lap param[$1]
|
||||
add
|
||||
push
|
||||
pToa points
|
||||
send $8
|
||||
bnot
|
||||
+at temp[$2]
|
||||
pushi $4b ; 75, 'K', at
|
||||
push2
|
||||
push
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
push
|
||||
pToa points
|
||||
send $6
|
||||
bnot
|
||||
push
|
||||
lap param[$2]
|
||||
add
|
||||
push
|
||||
pToa points
|
||||
send $8
|
||||
bnot
|
||||
+at temp[$1]
|
||||
+at temp[$2]
|
||||
jmp code_01bd
|
||||
|
||||
code_01fc: ret
|
||||
|
||||
Polygon::display:
|
||||
link $2
|
||||
pTos size
|
||||
ldi $2
|
||||
mul
|
||||
sat temp[$0]
|
||||
ldi $0
|
||||
sat temp[$1]
|
||||
code_020a: lst temp[$1]
|
||||
lat temp[$0]
|
||||
lt?
|
||||
bnt code_021a
|
||||
lst temp[$1]
|
||||
ldi $2
|
||||
add
|
||||
sat temp[$1]
|
||||
jmp code_020a
|
||||
|
||||
code_021a: ret
|
||||
|
||||
Polygon::clipTo:
|
||||
link $c
|
||||
pToa size
|
||||
sat temp[$0]
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Rect
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$9]
|
||||
pushi $d3 ; 211, copy
|
||||
push1
|
||||
lsp param[$1]
|
||||
send $6
|
||||
bnot
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Line
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$5]
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
push0
|
||||
pToa points
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$1]
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
push1
|
||||
pToa points
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$2]
|
||||
lat temp[$1]
|
||||
sat temp[$3]
|
||||
lat temp[$2]
|
||||
sat temp[$4]
|
||||
ldi $2
|
||||
sat temp[$a]
|
||||
ldi $1
|
||||
sat temp[$8]
|
||||
code_0266: lst temp[$8]
|
||||
lat temp[$0]
|
||||
lt?
|
||||
bnt code_0339
|
||||
pushi $94 ; 148, init
|
||||
pushi $4 ; scaleX
|
||||
lst temp[$1]
|
||||
lst temp[$2]
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$a]
|
||||
pToa points
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$6]
|
||||
push
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$a]
|
||||
ldi $1
|
||||
add
|
||||
push
|
||||
pToa points
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$7]
|
||||
push
|
||||
lat temp[$5]
|
||||
send $c
|
||||
bnot
|
||||
pushi $16b ; 363, clip
|
||||
push1
|
||||
lst temp[$9]
|
||||
lat temp[$5]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_02e2
|
||||
pushi $4b ; 75, 'K', at
|
||||
pushi $5 ; scaleY
|
||||
lst temp[$a]
|
||||
ldi $2
|
||||
sub
|
||||
push
|
||||
pushi $167 ; 359, pX1
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $168 ; 360, pY1
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $169 ; 361, pX2
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $16a ; 362, pY2
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa points
|
||||
send $e
|
||||
bnot
|
||||
jmp code_0325
|
||||
|
||||
code_02e2: pushi $16c ; 364, basicClip
|
||||
push1
|
||||
lst temp[$9]
|
||||
lat temp[$5]
|
||||
send $6
|
||||
bnot
|
||||
pushi $4b ; 75, 'K', at
|
||||
pushi $5 ; scaleY
|
||||
lst temp[$a]
|
||||
ldi $2
|
||||
sub
|
||||
push
|
||||
pushi $167 ; 359, pX1
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $168 ; 360, pY1
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $169 ; 361, pX2
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $16a ; 362, pY2
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa points
|
||||
send $e
|
||||
bnot
|
||||
code_0325: lat temp[$6]
|
||||
sat temp[$1]
|
||||
lat temp[$7]
|
||||
sat temp[$2]
|
||||
lst temp[$a]
|
||||
ldi $2
|
||||
add
|
||||
sat temp[$a]
|
||||
+at temp[$8]
|
||||
jmp code_0266
|
||||
|
||||
code_0339: pushi $94 ; 148, init
|
||||
pushi $4 ; scaleX
|
||||
lst temp[$1]
|
||||
lst temp[$2]
|
||||
lst temp[$3]
|
||||
lst temp[$4]
|
||||
lat temp[$5]
|
||||
send $c
|
||||
bnot
|
||||
pushi $16b ; 363, clip
|
||||
push1
|
||||
lst temp[$9]
|
||||
lat temp[$5]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_0393
|
||||
pushi $4b ; 75, 'K', at
|
||||
pushi $5 ; scaleY
|
||||
lst temp[$a]
|
||||
ldi $2
|
||||
sub
|
||||
push
|
||||
pushi $167 ; 359, pX1
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $168 ; 360, pY1
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $169 ; 361, pX2
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $16a ; 362, pY2
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa points
|
||||
send $e
|
||||
bnot
|
||||
jmp code_03d6
|
||||
|
||||
code_0393: pushi $16c ; 364, basicClip
|
||||
push1
|
||||
lst temp[$9]
|
||||
lat temp[$5]
|
||||
send $6
|
||||
bnot
|
||||
pushi $4b ; 75, 'K', at
|
||||
pushi $5 ; scaleY
|
||||
lst temp[$a]
|
||||
ldi $2
|
||||
sub
|
||||
push
|
||||
pushi $167 ; 359, pX1
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $168 ; 360, pY1
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $169 ; 361, pX2
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $16a ; 362, pY2
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa points
|
||||
send $e
|
||||
bnot
|
||||
code_03d6: pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
ldi $0
|
||||
ret
|
||||
|
||||
Polygon::fromRect:
|
||||
pToa points
|
||||
not
|
||||
bnt code_03fb
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class IntArray
|
||||
send $4
|
||||
bnot
|
||||
aTop points
|
||||
code_03fb: pushi $4b ; 75, 'K', at
|
||||
pushi $9 ; inLeft
|
||||
push0
|
||||
pushi $87 ; 135, left
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $89 ; 137, top
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $88 ; 136, right
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $89 ; 137, top
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $88 ; 136, right
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $8a ; 138, bottom
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $87 ; 135, left
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $8a ; 138, bottom
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa points
|
||||
send $16
|
||||
bnot
|
||||
ldi $4 ; scaleX
|
||||
aTop size
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,343 @@
|
|||
PolyPath::init:
|
||||
link $22
|
||||
lap param[$0]
|
||||
bnt code_0138
|
||||
lap param[$1]
|
||||
aTop client
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
gt?
|
||||
bnt code_0131
|
||||
lsp param[$0]
|
||||
ldi $6 ; maxScale
|
||||
ge?
|
||||
bnt code_007c
|
||||
lap param[$6]
|
||||
aTop obstacles
|
||||
jmp code_008c
|
||||
|
||||
code_007c: pToa obstacles
|
||||
not
|
||||
bnt code_008c
|
||||
pushi $16d ; 365, obstacles
|
||||
push0
|
||||
lag global[$3]
|
||||
send $4
|
||||
bnot
|
||||
aTop obstacles
|
||||
code_008c: pToa points
|
||||
bnt code_0097
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_0097: push0
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$20]
|
||||
pushi $88 ; 136, right
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $87 ; 135, left
|
||||
push0
|
||||
lat temp[$20]
|
||||
send $4
|
||||
bnot
|
||||
sub
|
||||
push
|
||||
ldi $1
|
||||
add
|
||||
sat temp[$1e]
|
||||
pushi $8a ; 138, bottom
|
||||
push0
|
||||
lat temp[$20]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $89 ; 137, top
|
||||
push0
|
||||
lat temp[$20]
|
||||
send $4
|
||||
bnot
|
||||
sub
|
||||
push
|
||||
ldi $1
|
||||
add
|
||||
sat temp[$1f]
|
||||
pushi $9 ; inLeft
|
||||
push1
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
push2
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lap param[$2]
|
||||
aTop finalX
|
||||
push
|
||||
lap param[$3]
|
||||
aTop finalY
|
||||
push
|
||||
pTos obstacles
|
||||
lst temp[$1e]
|
||||
lst temp[$1f]
|
||||
lsp param[$0]
|
||||
ldi $5 ; scaleY
|
||||
ge?
|
||||
bnt code_00ff
|
||||
lap param[$5]
|
||||
jmp code_0101
|
||||
|
||||
code_00ff: ldi $2
|
||||
code_0101: push
|
||||
lsg global[$24]
|
||||
callk kernel_100, $12
|
||||
bnot
|
||||
sat temp[$21]
|
||||
pushi $d3 ; 211, copy
|
||||
push1
|
||||
push
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class IntArray
|
||||
send $4
|
||||
bnot
|
||||
aTop points
|
||||
send $6
|
||||
bnot
|
||||
push2
|
||||
pushi $4 ; scaleX
|
||||
lst temp[$21]
|
||||
callk kernel_91, $4
|
||||
bnot
|
||||
lsp param[$0]
|
||||
ldi $3 ; z
|
||||
gt?
|
||||
bnt code_0131
|
||||
lap param[$4]
|
||||
aTop caller
|
||||
code_0131: pushi $157 ; 343, setTarget
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_0138: pushi $94 ; 148, init
|
||||
push0
|
||||
super Motion, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
PolyPath::dispose:
|
||||
pToa points
|
||||
bnt code_014c
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_014c: ldi $0
|
||||
aTop points
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
super Motion, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
PolyPath::setTarget:
|
||||
link $7
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
pTos value
|
||||
pToa points
|
||||
send $6
|
||||
bnot
|
||||
push
|
||||
ldi $7777 ; 30583
|
||||
ne?
|
||||
bnt code_0250
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
pTos value
|
||||
pToa points
|
||||
send $6
|
||||
bnot
|
||||
aTop x
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
ipToa value
|
||||
push
|
||||
pToa points
|
||||
send $6
|
||||
bnot
|
||||
aTop y
|
||||
ipToa value
|
||||
push0
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$6]
|
||||
pushi $88 ; 136, right
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $87 ; 135, left
|
||||
push0
|
||||
lat temp[$6]
|
||||
send $4
|
||||
bnot
|
||||
sub
|
||||
push
|
||||
ldi $1
|
||||
add
|
||||
sat temp[$4]
|
||||
pushi $8a ; 138, bottom
|
||||
push0
|
||||
lat temp[$6]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $89 ; 137, top
|
||||
push0
|
||||
lat temp[$6]
|
||||
send $4
|
||||
bnot
|
||||
sub
|
||||
push
|
||||
ldi $1
|
||||
add
|
||||
sat temp[$5]
|
||||
lag global[$2e]
|
||||
bnt code_0250
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
bnt code_0250
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class IntArray
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
pushi $d3 ; 211, copy
|
||||
push1
|
||||
pushi $9 ; inLeft
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
push2
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pTos x
|
||||
pTos y
|
||||
lsg global[$2e]
|
||||
lst temp[$4]
|
||||
lst temp[$5]
|
||||
push0
|
||||
lsg global[$24]
|
||||
callk kernel_100, $12
|
||||
bnot
|
||||
push
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
push2
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$1]
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
pushi $3 ; z
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$2]
|
||||
pTos x
|
||||
lat temp[$1]
|
||||
ne?
|
||||
bt code_022c
|
||||
pTos y
|
||||
lat temp[$2]
|
||||
ne?
|
||||
code_022c: bnt code_0247
|
||||
lat temp[$1]
|
||||
aTop x
|
||||
lat temp[$2]
|
||||
aTop y
|
||||
pushi $4b ; 75, 'K', at
|
||||
push2
|
||||
pTos value
|
||||
ldi $2
|
||||
add
|
||||
push
|
||||
pushi $7777 ; 30583
|
||||
pToa points
|
||||
send $8
|
||||
bnot
|
||||
code_0247: pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
code_0250: ret
|
||||
|
||||
PolyPath::moveDone:
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
pTos value
|
||||
pToa points
|
||||
send $6
|
||||
bnot
|
||||
push
|
||||
ldi $7777 ; 30583
|
||||
eq?
|
||||
bnt code_026b
|
||||
pushi $64 ; 100, 'd', moveDone
|
||||
push0
|
||||
super Motion, $4
|
||||
bnot
|
||||
jmp code_0297
|
||||
|
||||
code_026b: push1
|
||||
pTos client
|
||||
calle export60000_0, $2
|
||||
bnot
|
||||
bnt code_028c
|
||||
pushi $99 ; 153, respondsTo
|
||||
push1
|
||||
pushi $64 ; 100, 'd', moveDone
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
bnt code_028c
|
||||
pushi $64 ; 100, 'd', moveDone
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
code_028c: pushi $157 ; 343, setTarget
|
||||
push0
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
self $8
|
||||
bnot
|
||||
code_0297: ret
|
||||
|
||||
Loading…
Reference in New Issue