;ENIGMA by Rick Seufert

#msg Can you crack his code?
#config scanner= 4
#config weapon= 2
#config armor= 2
#config engine= 2
#config heatsinks= 2
#config mines= 0
#config shield= 0

;********start code*******
       
      do   170       ;rotate twice before moving
:1 ;**********scanning sequence********
       opo  17,2     ;set scanarc to 2
       opo   12,3     ;rotate turret 3 degrees
       ipo    7,ax    ;get scan results
       cmp   ax,1500  ;is anyone there?
       jgr   1        ;if not
       jeq   1        ;keep scanning
       jls   2        ;if yes, shoot
       loop  3        ;then move
       
:2 ;***********firing sequence**********
    call   2000      ;go to aim adjust subroutine
    opo    15,bx     ;fire
    ipo    7,cx     ;scan
    cmp    cx,maxint ;still there?
    jls    2         ;if yes SHOOT AGAIN!!
   
:3 ;********evasive action*********
     ipo    10,bx   ;get random number
     opo    14,bx   ;turn that amnt.
     opo    11,100  ;full speed ahead
     del     10     ;wait    
     ipo     1,bx      ;am i still moving?
     cmp     bx,0    
     jeq     3         ;if i'm not, move!
     del     10     ;wait
     ipo     1,bx      ;am i still moving?
     cmp     bx,0    
     jeq     3         ;if i'm not, move!
     del     10     ;wait
     ipo     1,bx      ;am i still moving?
     cmp     bx,0    
     jeq     3         ;if i'm not, move!
     del     10     ;wait

     jmp      1     ;scan again
     
    
:2000 ;subroutine 2000
     ipo    10,bx   ;apply random # to bx
     and    bx,1    ; make it 0-1
     cmp    bx,1    ;is it 1?
     jeq    2001    ;if yes go to 2001
     jls    2002    ;if it's 0 go to 2002

:2001  
     ipo    10,bx   ;apply random # to bx
     and    bx,1    ; make it 0-1
     jtl    12      ;go shoot!!!

:2002
     ipo    10,bx   ;apply random # to bx
     and    bx,-1    ; make it 0-[negative]1
     jtl    12       ;return to shootin'