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

#def	armor
#def	turn_rate

#msg	I'm aging

mov	ax	1
int	3

ipo	6	armor
opo	22	10
opo	22	10

opo	11	100

set	turn_rate	56

!start
opo	17	64
ipo	7	ax
cmp	ax	2000
jb	!fight
opo	12	64

ipo	6	ax
cmp	ax	armor
je	!ok1
ipo	6	armor
opo	18	1
opo	11	0
neg	turn_rate
opo	14	turn_rate
opo	11	100
opo	18	0

!ok1
ipo	1	ax
cmp	ax	0
jne	!start
opo	14	64
opo	11	100

je	!start
jne	!start

!fight
ipo	17	ax
cmp	ax	3
jbe	!shoot

!1
ipo	8	bx	
shl	bx	5
opo	12	bx
opo	17	16
ipo	7	ax
cmp	ax	2000
ja	!start

!2
ipo	8	bx
shl	bx	3
opo	12	bx
opo	17	4
ipo	7	ax
cmp	ax	2000
ja	!1

!3
ipo	8	bx
add	bx	bx
opo	12	bx
opo	17	2

!shoot
opo	11	100

ipo	6	ax
cmp	ax	armor
je	!ok
ipo	6	armor
opo	18	1
opo	11	0
neg	turn_rate
opo	14	turn_rate
opo	11	100
opo	18	0
!ok

ipo	7	ax
cmp	ax	2000
ja	!2
opo	12	@3
ipo	2	ax
cmp	ax	200
ja	!shoot

cmp	@7	0
je	!stopped

cmp	@6	128
je	!against

cmp	@6	0
je	!runaway

ipo	8	bx
cmp	@13	550
ja	!fast
shl	bx	1

!sht
opo	15	bx
opo	15	bx

set	ax	@2	
add	ax	16
opo	14	ax

je	!shoot
jne	!shoot

!fast
shl	bx	3
je	!sht
jne	!sht

!stopped
opo	17	3
opo	11	0
ipo	2	ax
cmp	ax	100
ipo	8	bx
cmp	bx	0
je	!armed
opo	12	@3
ipo	7	ax
cmp	ax	2000
jb	!stopped
ja	!shoot

!runaway
opo	17	3
ipo	2	ax
cmp	ax	200
ipo	8	bx
cmp	bx	0
je	!armed2
opo	12	@3
ipo	7	ax
cmp	ax	2000
jb	!runaway
ja	!shoot

!against
opo	17	3
ipo	2	ax
cmp	ax	150
ipo	8	bx
cmp	bx	0
je	!armed2
opo	12	@3
ipo	7	ax
cmp	ax	2000
jb	!against
ja	!shoot


!armed
opo	17	0
ipo	7	ax
cmp	ax	2000
ja	!shoot
opo	18	1
opo	15
opo	18	0
je	!armed
jne	!armed

!armed2
opo	17	0
ipo	7	ax
cmp	ax	2000
ja	!shoot
opo	18	1
opo	15
opo	15
opo	15
opo	15
opo	18	0
je	!armed
jne	!armed