141 lines
2.0 KiB
Plaintext
141 lines
2.0 KiB
Plaintext
Orbit::init:
|
|
link $4
|
|
lsp param[$0]
|
|
ldi $1
|
|
ge?
|
|
bnt code_00b2
|
|
lap param[$1]
|
|
aTop client
|
|
lsp param[$0]
|
|
ldi $2
|
|
ge?
|
|
bnt code_00b2
|
|
lap param[$2]
|
|
aTop centerObj
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
ge?
|
|
bnt code_00b2
|
|
lap param[$3]
|
|
aTop radius
|
|
lsp param[$0]
|
|
ldi $4 ; scaleX
|
|
ge?
|
|
bnt code_00b2
|
|
lap param[$4]
|
|
aTop xTilt
|
|
lsp param[$0]
|
|
ldi $5 ; scaleY
|
|
ge?
|
|
bnt code_00b2
|
|
lap param[$5]
|
|
aTop yTilt
|
|
lsp param[$0]
|
|
ldi $6 ; maxScale
|
|
ge?
|
|
bnt code_00b2
|
|
lap param[$6]
|
|
aTop angleStep
|
|
lsp param[$0]
|
|
ldi $7 ; priority
|
|
ge?
|
|
bnt code_00b2
|
|
lap param[$7]
|
|
aTop winding
|
|
lsp param[$0]
|
|
ldi $8 ; fixPriority
|
|
ge?
|
|
bnt code_00b2
|
|
lap param[$8]
|
|
aTop curAngle
|
|
code_00b2: pToa centerObj
|
|
bnt code_00c8
|
|
push1
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
push2
|
|
push0
|
|
pToa centerObj
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
jmp code_00d2
|
|
|
|
code_00c8: ldi $140 ; 320, pHandle
|
|
sat temp[$0]
|
|
ldi $f0 ; 240, drawSelected
|
|
sat temp[$1]
|
|
code_00d2: push2
|
|
pTos curAngle
|
|
pTos radius
|
|
callk kernel_66, $4
|
|
bnot
|
|
sat temp[$2]
|
|
push2
|
|
pTos yTilt
|
|
lag global[$3f]
|
|
add
|
|
push
|
|
push2
|
|
pTos curAngle
|
|
pTos radius
|
|
callk kernel_67, $4
|
|
bnot
|
|
push
|
|
callk kernel_67, $4
|
|
bnot
|
|
sat temp[$3]
|
|
pToa xTilt
|
|
bnt code_010f
|
|
push2
|
|
push
|
|
lst temp[$2]
|
|
callk kernel_67, $4
|
|
bnot
|
|
sat temp[$2]
|
|
lst temp[$3]
|
|
push2
|
|
pTos xTilt
|
|
push
|
|
callk kernel_66, $4
|
|
bnot
|
|
add
|
|
sat temp[$3]
|
|
code_010f: lst temp[$0]
|
|
lat temp[$2]
|
|
add
|
|
aTop x
|
|
lst temp[$1]
|
|
lat temp[$3]
|
|
sub
|
|
aTop y
|
|
push2
|
|
pTos curAngle
|
|
pTos winding
|
|
pToa angleStep
|
|
mul
|
|
add
|
|
push
|
|
pushi $168 ; 360, pY1
|
|
calle export60025_1, $4
|
|
bnot
|
|
aTop curAngle
|
|
pushi $94 ; 148, init
|
|
pushi $3 ; z
|
|
pTos client
|
|
pTos x
|
|
pTos y
|
|
super MoveTo, $a
|
|
bnot
|
|
ret
|
|
|
|
Orbit::moveDone:
|
|
pushi $94 ; 148, init
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|