;
; EXPO2
;
; Henrik Hansson : E-mail (henrik@idgar.nu) 

#config	scanner=3	;+2
#config	weapon=3	;-1
#config	armor=3		;-1
#config	engine=2	;0
#config	heatsinks=1	;0

#def	delay
#def	s_arc
#def	t_arc
#def	t_off

mov	ax	1
int	3
int	4
mov	t_arc	32
mov	s_arc	64
mov	t_off	128
opo	17	s_arc
je	110
jne	110

:50			;scanner reset
mov	s_arc	64
mov	t_off	128
opo	17	s_arc
opo	11	100


:100			;turning
int	13
int	19
ipo	3	dx
int	2
cmp	fx	350
jbe	1100
cmp	fx	650
jae	1010
cmp	ex	350
jbe	1020
cmp	ex	650
jae	1030
:110
mov	delay	160
opo	14	t_arc
opo	11	100
ipo	10	dx
and	dx	2
cmp	dx	0
jne	200
neg	t_arc


:200			;cruising
cmp	@9	delay
ja	100
cmp	@8	0
jne	100
opo	12	t_off
ipo	7	dx
cmp	dx	1500
jb	350
cmp	s_arc	64
je	50


:300			;scanning
shl	s_arc	1
shl	t_off	1
opo	17	s_arc
je	200
jne	200

:350
cmp	s_arc	2
je	400
mov	ex	@3
add	ex	3002
je	ex
jne	ex


:400			;tracking & weapons
opo	12	@3
opo	14	@3
ipo	7	dx
opo	15	@3
cmp	dx	1500
ja	200
ipo	2	dx
cmp	dx	100
jb	400
je	50
jne	50


:1010			;turning evaluation
add	dx	128
and	dx	255
je	1100
jne	1100

:1020
add	dx	64
and	dx	255
je	1100
jne	1100

:1030
add	dx	192
and	dx	255

:1100
mov	ex	80
cmp	dx	64
jbe	1200
mov	ex	-80
cmp	dx	192
jae	1200
opo	11	100
jb	200

:1200
opo	14	ex
opo	11	100
mov	delay	80
je	200
jne	200


:3000			;scanning evaluation
shr	s_arc	1
mov	t_off	s_arc
neg	t_off
opo	17	s_arc
je	200
jne	200
:3001
shr	s_arc	1
mov	t_off	s_arc
shr	t_off	1
neg	t_off
opo	17	s_arc
je	200
jne	200
:3002
shr	s_arc	1
xor	t_off	t_off
opo	17	s_arc
je	200
jne	200
:3003
shr	s_arc	1
mov	t_off	s_arc
shr	t_off	1
opo	17	s_arc
je	200
jne	200
:3004
shr	s_arc	1
mov	t_off	s_arc
opo	17	s_arc
je	200
jne	200

!end