mov	ax	1
int	3
!start

!scan
ipo	3	ax
shl	ax	2
opo	14	ax
opo	11	0

!strt
opo	12	128
opo	17	64

ipo	7	ax
cmp	ax	2000
ja	!strt



!st
ipo	17	ax
opo	14	dx

sar	ax	1
mpy	ax	@3
opo	12	ax

opo	17	32
ipo	7	ax
cmp	ax	2000
ja	!strt

ipo	17	ax
sar	ax	1
mpy	ax	@3
opo	12	ax


opo	17	16
ipo	7	ax
cmp	ax	2000
ja	!strt

ipo	17	ax
sar	ax	1
mpy	ax	@3
opo	12	ax


opo	17	8
ipo	7	ax
cmp	ax	2000
ja	!strt

ipo	17	ax
sar	ax	1
mpy	ax	@3
opo	12	ax

opo	17	4
ipo	7	ax
cmp	ax	2000
ja	!strt

ipo	17	ax
sar	ax	1
mpy	ax	@3
opo	12	ax

opo	17	2

!shooting
opo	11	100
opo	12	@3
ipo	3	ax
cmp	ax	128
ja	!less
jb	!more


!begin
ipo	2	ax
cmp	ax	250
jae	!shooting
opo	14	dx
opo	15	@3



!chk
ipo	7	ax
cmp	ax	2000
jb	!begin

jmp	!strt


;;;;;;;;;;;;;;;;;;;;;;;;;;
!sp
opo	11	0
jmp	!strt


;another tracking method:
!less
add	dx	16
jmp	!begin

!more
sub	dx	16
jmp	!begin