178 lines
2.6 KiB
Plaintext
178 lines
2.6 KiB
Plaintext
Styler::doit:
|
|
link $2
|
|
lap param[$0]
|
|
bnt code_0088
|
|
lap param[$1]
|
|
aTop plane
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_0082
|
|
lap param[$2]
|
|
aTop style
|
|
lsp param[$0]
|
|
ldi $2
|
|
gt?
|
|
bnt code_007c
|
|
lap param[$3]
|
|
aTop seconds
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
gt?
|
|
bnt code_0076
|
|
lap param[$4]
|
|
aTop back
|
|
lsp param[$0]
|
|
ldi $4 ; scaleX
|
|
gt?
|
|
bnt code_0070
|
|
lap param[$5]
|
|
aTop animate
|
|
jmp code_0091
|
|
|
|
code_0070: ldi $0
|
|
aTop animate
|
|
jmp code_0091
|
|
|
|
code_0076: ldi $ff ; 255, asInteger
|
|
aTop back
|
|
jmp code_0091
|
|
|
|
code_007c: ldi $1
|
|
aTop seconds
|
|
jmp code_0091
|
|
|
|
code_0082: ldi $0
|
|
aTop style
|
|
jmp code_0091
|
|
|
|
code_0088: push0
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
aTop plane
|
|
code_0091: pTos style
|
|
ldi $ff ; 255, asInteger
|
|
and
|
|
aTop style
|
|
pushi $5 ; scaleY
|
|
pTos style
|
|
pushi $f ; 15, loop
|
|
pushi $10 ; 16, cel
|
|
pushi $11 ; 17, bitmap
|
|
pushi $12 ; 18, nsLeft
|
|
calle export60025_4, $a
|
|
bnot
|
|
bnt code_0133
|
|
pTos style
|
|
dup
|
|
ldi $f ; 15, loop
|
|
eq?
|
|
bnt code_00cb
|
|
pushi $3f ; 63, '?', xStep
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
mul
|
|
sat temp[$0]
|
|
ldi $0
|
|
sat temp[$1]
|
|
jmp code_010f
|
|
|
|
code_00cb: dup
|
|
ldi $10 ; 16, cel
|
|
eq?
|
|
bnt code_00e1
|
|
pushi $3f ; 63, '?', xStep
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
ldi $0
|
|
sat temp[$1]
|
|
jmp code_010f
|
|
|
|
code_00e1: dup
|
|
ldi $11 ; 17, bitmap
|
|
eq?
|
|
bnt code_00fb
|
|
ldi $0
|
|
sat temp[$0]
|
|
pushi $40 ; 64, '@', yStep
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
mul
|
|
sat temp[$1]
|
|
jmp code_010f
|
|
|
|
code_00fb: dup
|
|
ldi $12 ; 18, nsLeft
|
|
eq?
|
|
bnt code_010f
|
|
ldi $0
|
|
sat temp[$0]
|
|
pushi $40 ; 64, '@', yStep
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
code_010f: toss
|
|
pushi $6 ; maxScale
|
|
pTos plane
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
pushi $6d ; 109, 'm', picture
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
push
|
|
pTos animate
|
|
pushi $14a ; 330, cycleSpeed
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_48, $c
|
|
bnot
|
|
jmp code_0162
|
|
|
|
code_0133: pToa divisions
|
|
bnt code_014e
|
|
pushi $8 ; fixPriority
|
|
pTos style
|
|
pTos plane
|
|
pTos seconds
|
|
pTos back
|
|
pTos priority
|
|
pTos animate
|
|
pTos refFrame
|
|
push
|
|
callk kernel_46, $10
|
|
bnot
|
|
jmp code_0162
|
|
|
|
code_014e: pushi $7 ; priority
|
|
pTos style
|
|
pTos plane
|
|
pTos seconds
|
|
pTos back
|
|
pTos priority
|
|
pTos animate
|
|
pTos refFrame
|
|
callk kernel_46, $e
|
|
bnot
|
|
code_0162: ret
|
|
|