;
; CIRCLES - runs in circles firing if enemy is detected.
;
; Sample robot - by Ed T. Toton III 02/04/97


     opo        13,     0           ; Port 13 - Set turret to 0 degrees
     opo        17,     6           ; Port 17 - Set scan arc to 6 degrees.

     ipo        10      ax          ; Port 10 - Get a random number
     cmp        ax,     -1          ; is it 0 or higher?
     ja         1                   ; if so, skip along.

     xor        ax,     ax          ; ax = 0
     sub        ax,     4           ; ax = 0 - turn_rate
;     mov        turn_rate,       ax ; turn_rate = ax        let's turn left!

:1
     opo        14,     4           ; Port 14 - turn
     opo        11,     100         ; Port 11 - Throttle to 100%

     ipo        7,      ax          ; Port 7 - scan,   ax=range
     cmp        ax,     2000        ; is enemy in range?
     ja         10                  ; if not then don't fire
;     opo        15                  ; Port 15 - Fire!

:10
     jmp        1                   ; repeat loop


#END