#def	arc
#def	range
#def	acc
#def	turn


#config weapon=3
#config scanner=4
#config engine=0 
#config heatsinks=3

mov	arc	64
opo	17	arc

!start
ipo	7	range
cmp	range	1500
jgr	!adjust
ipo	8	acc
cmp	arc	1
jeq	!fire
mov	turn	arc
cmp	acc	0
jls	!turretleft
jgr	!turretright

!shrink
sar	arc	1
opo	17	arc
jmp !start


!adjust
cmp	arc	64
jls	!expand
opo	13	128
jmp	!start
!expand
shl	arc	1
opo	17	arc
jmp !start


!turretleft
neg	turn
opo	12	turn
jmp !shrink

!turretright
opo	12	turn
jmp !shrink

!fire
opo	15	acc
shr	acc	2
opo	15	acc
jmp	!start