#config	scanner=5
#config	weapon=3
#config	engine=0
#config	armor=3
#config	heatsinks=1
#config	shield=0
#config	mines=0

#def 	were1
#def 	were2
#def	arc

mov	arc	64

mov 	were1	128		
mov	were2	-128

mov	ax	1
int	3

opo	22	23
opo	22	23

!start
mov	fx	0
int	7
sub	ax	[1]
opo	14	ax
opo	11	100

!1
opo	17	arc
opo	13	were1
cmp	arc	64
jb	!increase1
ipo	7	ax
cmp	ax	2000
ja	!other

!decrease1
opo	17	arc
mov	ax	arc
mpy	ax	[3]
sar	ax	1
opo	12	ax
cmp	arc	2
jbe	!shoot1
shr	arc	1
mov	were1	[2]

opo	13	were2
ipo	7	ax
cmp	ax	2000
jbe	!decrease2
add	were2	6
opo	13	were1
ipo	7	ax
cmp	ax	2000
ja	!increase1
je	!decrease1
jne	!decrease1


!decrease2
opo	17	arc
mov	ax	arc
mpy	ax	[3]
sar	ax	1
opo	12	ax
cmp	arc	2
jbe	!shoot2
shr	arc	1
mov	were2	[2]

opo	13	were1
ipo	7	ax
cmp	ax	2000
jbe	!decrease1
add	were1	6
opo	13	were2
ipo	7	ax
cmp	ax	2000
ja	!increase2
je	!decrease2
jne	!decrease2

!shoot1
opo	11	100
ipo	2	ax
cmp	ax	200
jae	!cool1
opo	12	[3]
opo	15	
mov	were1	[2]
opo	13	were2
ipo	7	ax
cmp	ax	2000
jb	!decrease2
add	were2	6
opo	13	were1
ipo	7	ax
cmp	ax	2000
ja	!increase1
je	!shoot1
jne	!shoot1

!shoot2
opo	11	100
ipo	2	ax
cmp	ax	200
jae	!cool2
opo	12	[3]
opo	15	
mov	were2	[2]
opo	13	were1
ipo	7	ax
cmp	ax	2000
jb	!decrease1
add	were1	6
opo	13	were2
ipo	7	ax
cmp	ax	2000
ja	!increase2
je	!shoot2
jne	!shoot2

!cool1
ipo	7	ax
cmp	ax	2000
ja	!increase1
opo	12	[3]
mov	were1	[2]

opo	13	were2
ipo	7	ax
cmp	ax	2000
jb	!defor1
ja	!coolcheck1
!defor1
add	were2	6
!coolcheck1
opo	13	were1
ipo	2	ax
cmp	ax	180
jb	!start
jmp	!cool1

!cool2
ipo	7	ax
cmp	ax	2000
ja	!increase2
opo	12	[3]
mov	were2	[2]

opo	13	were1
ipo	7	ax
cmp	ax	2000
jb	!defor2
ja	!coolcheck2
!defor2
add	were1	6
!coolcheck2
opo	13	were2
ipo	2	ax
cmp	ax	180
jb	!start
jmp	!cool2


!other
opo	13	were2
ipo	7	ax
cmp	ax	2000
jb	!decrease2
jmp	!start

!increase1
opo	17	arc
shl	arc	1
ipo	7	ax
cmp	ax	2000
jb	!decrease1
mov	were1	[2]
opo	13	were2
ipo	7	ax
cmp	ax	2000
jb	!decrease2
opo	13	were1
cmp	arc	64
je	!start
jmp	!increase1

!increase2
opo	17	arc
shl	arc	1
ipo	7	ax
cmp	ax	2000
jb	!decrease2
mov	were2	[2]
opo	13	were1
ipo	7	ax
cmp	ax	2000
jb	!decrease1
opo	13	were2
cmp	arc	64
je	!start
jmp	!increase2