;Zilocker

;original
#config   scanner=3
#config    weapon=1
#config     armor=4
#config    engine=2
#config heatsinks=2
#config     mines=0
#config    shield=0


#msg 

#def scan
#def turn




 opo 11, 100     
opo 22,1

    


   int   3                      
opo 22,1
!begin
        mov     dx,     128   
 opo 22,1

!start
	
        opo     11,     100    
	
        opo     17,     dx     
        ipo     7,      fx     
        cmp     fx      2000
        ja      !was  
	     
       call !nav

!track
       
        mov     bx,     dx    

        mov     ax,     @3     
        add     ax      1002   
        je      ax             
        jne     ax             

:1005                          

        sar     bx,     1      
        opo     12,     bx    

        cmp     dx,     2      
        jbe     !fire          
        shr     dx,     1      

!fire
 
    ipo     2,      ax      
        cmp     ax      300     
        ja      !start    
        opo     15,     @3     
       ; ipo     2,      ax     
        cmp     ax      250     
        ja      !start       
        opo     15,     @3     
        je      !start          
        jne     !start



!was
        cmp     dx      64     
        jae     !flip           
        shl     dx      1     
        je      !start        
        jne     !start

!flip
        opo     12      128     
      call !nav
        je      !start        
        jne     !start


:1000
        shl     bx,     1       
        mov     ax,     0
        sub     ax,     bx
        mov     bx,     ax     
        jne     1005
        je      1005
:1001
        mov     ax,     0
        sub     ax,     bx
        mov     bx,     ax   
        jne     1005
        je      1005
:1002
        mov     bx,     0    
        jne     1005
        je      1005
:1003
        jne     1005
        je      1005
:1004
        shl     bx,     1     
        jne     1005
        je      1005


!nav   
   int   2                       
   cmp   ex,         150         
   jle   !li                    
   cmp   ex,         850        
   jge   !re                     
   cmp   fx,         150        
   jle   !un                     
   cmp   fx,         850         
   jge   !ob                    
opo 11,100                                 
   ret                          

!li
   mov   scan,    @1          
   mov   turn,   68         
   sub   scan,    turn   
   opo   14,         scan    
   ret                           

!re
   mov   scan,    @1         
   mov   turn,   198         
   sub   scan,    turn  
   opo   14,         scan    
   ret                           

!un
   mov   scan,    @1          
   mov   turn,   110        
   sub   scan,    turn   
   opo   14,         scan     
   ret                          

!ob
   mov   scan,    @1          
   mov   turn,   8           
   sub   scan,    turn    
   opo   14,        scan     
   ret