;
; EXPO4	-	Another lightweight, much better than the previous.
;
;
; Henrik Hansson : E-mail (henrik@idgar.nu) 

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

mov	ax	1
int	3
mov	ax	32

!start
opo	11	100
opo	17	ax
opo	14	-8
ipo	7	bx
cmp	bx	1500
ja	!notarg
cmp	ax	2
je	!fire
mov	dx	@3
shl	dx	4
cmp	ax	8
jne	!1
shr	dx	2
!1
opo	12	dx
shr	ax	2

!fire
ipo	2	dx
cmp	dx	150
jae	!move
opo	15	@3
opo	12	@3

!move
opo	14	40
jmp	!start

!notarg
opo	12	ax
cmp	ax	32
je	!start
shl	ax	2
jne	!start