;
; EXPO3	-	My second moving bot. :)
;		Made for the lightweight tournament.
;
; Henrik Hansson : E-mail (henrik@idgar.nu) 


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


#def	s_arc


!startup
mov	ax	1
int	3
mov	s_arc	32


!safe
opo	12	64


!main
opo	17	s_arc
opo	11	100
opo	14	4
ipo	7	dx
cmp	dx	1500
ja	!101
cmp	s_arc	2
je	!102
jne	!scan_dec
!101
cmp	s_arc	32
je	!safe
shl	s_arc	2
jne	!main

!102
ipo	2	dx
cmp	dx	80
jae	!103
opo	15	@3
!103
opo	12	@3
jmp	!main


!scan_dec
mov	dx	@3
shl	dx	4
cmp	s_arc	8
jne	!301
shr	dx	2
!301
opo	12	dx
shr	s_arc	2
jmp	!main