#config	scanner=4
#config	engine=2
#config	weapon=4
#config	armor=2
#config	heatsinks=0
#config	mines=0

#def	trn
#def	rng

mov	trn	100
mov	rng	64

mov	ax	1
int	3

opo	17	64

int	2
mov	fx	0
int	7
sub	ax	@1
opo	14	ax

!check
ipo	3	ax
cmp	ax	@1
jne	!check

opo	11	100

!wait
opo	17	64
opo	12	128
ipo	7	ax
cmp	ax	2000
ja	!qw
!1
ipo	8	bx
shl	bx	5
opo	12	bx	
opo	17	16
ipo	7	ax
cmp	ax	2000
ja	!qw

!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
ipo	7	ax
cmp	ax	2000
ja	!2

!e
ipo	7	ax
cmp	ax	2000
ja	!qw
opo	12	@3
ipo	2	ax
cmp	ax	200
ja	!e
ipo	8	bx
shl	bx	1
opo	15	bx
cmp	@0	0
je	!qw
je	!e
jne	!e

!qw
cmp	@0	0
jne	!wait
opo	11	0

opo	14	64
!u
ipo	3	ax
cmp	ax	@1
jne	!u

!start
opo	17	64
opo	11	trn
opo	13	64
ipo	7	ax
cmp	ax	2000
jb	!attack
ipo	1	ax
cmp	ax	0
ja	!start
neg	trn
je	!start
jne	!start

!attack
: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
ipo	7	ax
cmp	ax	2000
ja	2
opo	12	@3
cmp	@0	0
jne	!ok
neg	trn
opo	11	trn
!ok
ipo	2	ax
cmp	ax	200
ja	!shoot
ipo	8	bx
shl	bx	2
opo	15	bx
opo	15	bx
je	!shoot
jne	!shoot