home *** CD-ROM | disk | FTP | other *** search
/ Más de 2,500 Juegos / CD1.iso / ZIPDAT / 0951 / 0951.ZIP / CIRCLES.AT2 < prev    next >
Encoding:
Text File  |  1997-02-13  |  1.1 KB  |  34 lines
  1. ;
  2. ; CIRCLES - runs in circles firing if enemy is detected.
  3. ;
  4. ; Sample robot - by Ed T. Toton III 02/04/97
  5.  
  6. #def turn_rate
  7.  
  8.      mov        turn_rate,      4   ; Set turn rate to 4 degrees
  9.      opo        13,     0           ; Port 13 - Set turret to 0 degrees
  10.      opo        17,     6           ; Port 17 - Set scan arc to 6 degrees.
  11.  
  12.      ipo        10      ax          ; Port 10 - Get a random number
  13.      cmp        ax,     -1          ; is it 0 or higher?
  14.      ja         1                   ; if so, skip along.
  15.  
  16.      xor        ax,     ax          ; ax = 0
  17.      sub        ax,     turn_rate   ; ax = 0 - turn_rate
  18.      mov        turn_rate,       ax ; turn_rate = ax        let's turn left!
  19.  
  20. :1
  21.      opo        14,     turn_rate   ; Port 14 - turn
  22.      opo        11,     100         ; Port 11 - Throttle to 100%
  23.  
  24.      ipo        7,      ax          ; Port 7 - scan,   ax=range
  25.      cmp        ax,     2000        ; is enemy in range?
  26.      ja         10                  ; if not then don't fire
  27.      opo        15                  ; Port 15 - Fire!
  28.  
  29. :10
  30.      jmp        1                   ; repeat loop
  31.  
  32.  
  33. #END
  34.