63 lines
815 B
Plaintext
63 lines
815 B
Plaintext
BCycle::doit:
|
|
pushi $14a ; 330, cycleSpeed
|
|
push1
|
|
pTos pCycleSpeed
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
pTos pCycleType
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_0051
|
|
pushi $105 ; 261, setCycle
|
|
push1
|
|
class Fwd
|
|
push
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
jmp code_008d
|
|
|
|
code_0051: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_0065
|
|
pushi $105 ; 261, setCycle
|
|
push1
|
|
class Rev
|
|
push
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
jmp code_008d
|
|
|
|
code_0065: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_007b
|
|
pushi $105 ; 261, setCycle
|
|
push2
|
|
class Osc
|
|
push
|
|
pushi $a ; 10, inTop
|
|
pToa pSelf
|
|
send $8
|
|
bnot
|
|
jmp code_008d
|
|
|
|
code_007b: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_008d
|
|
pushi $105 ; 261, setCycle
|
|
push1
|
|
class RandCycle
|
|
push
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
code_008d: toss
|
|
ret
|
|
|