home *** CD-ROM | disk | FTP | other *** search
/ Más de 2,500 Juegos / CD1.iso / ZIPDAT / 0951 / 0951.ZIP / OVERHEAT.AT2 < prev    next >
Encoding:
Text File  |  1997-03-03  |  1000 b   |  30 lines
  1. ;
  2. ; OVERHEAT - Finds target, Fires until it overheats and keeps firing
  3. ;
  4. ; Sample robot - by Ed T. Toton III 02/10/97
  5.  
  6. #def turn_rate
  7.  
  8. ;     mov        ax,     1           ; AX=1
  9. ;     int        4,                  ; Overburn ON!
  10. ;     opo        20,     600         ; Set shutdown level to 600...
  11.  
  12.      mov        turn_rate,      3   ; Set turn rate to 3 degrees
  13.      opo        13,     0           ; Port 13 - Set turret to 0 degrees
  14.      opo        17,     2           ; Port 17 - Set scan arc to 2 degrees.
  15. :1
  16.      opo        14,     turn_rate   ; Port 14 - turn
  17.  
  18.      ipo        7,      ax          ; Port 7 - scan,   ax=range
  19.      cmp        ax,     2000        ; is enemy in range?
  20.      ja         10                  ; if not then don't fire
  21.      jmp        100                 ; Port 15 - got to Fire routine
  22.  
  23. :10
  24.      jmp        1                   ; repeat loop
  25.  
  26.  
  27. :100
  28.         opo     15                  ; Fire!
  29.         jmp     100                 ; Repeat!
  30.