; By-Tor 2
; by Chris King ("PiGuy") ctk314@yahoo.com

; This version is based on Mole.

#config scanner=0
#config weapon=5
#config armor=2
#config engine=5
#config heatsinks=0
#config shield=0
#config mines=0

;#def dir

	;opo 22,10
	;opo 22,10
	mov ax,1
	int 4
	int 3
	opo 13,64
	opo 17,8
	;mov dir,12
!loop
	;cmp @0,0
	;jne !move
	;neg dir
	;opo 14,128
	;del 64
;!move
	opo 11,100
	ipo 9,dx
	cmp dx,250
	jgr !chkturn
	;push @2
!scan
	opo 11,100
	ipo 7,cx
	cmp cx,1500
	jgr !resetscan
	mov ax,@3
	shl ax,2
	opo 12,ax
	opo 14,@2
	cmp cx,25
	jae !scan
	opo 11,-10
!fireloop
	opo 15,0
	opo 15,-4
	opo 15,4
	jls !fireloop
!resetscan
	;pop ax
	opo 13,64
!chkturn
	sub bx,dx
	cmp bx,0
	jgr !noturn
	;err bx
	opo 14,12
	opo 12,12
!noturn
	mov bx,dx
	jmp !loop