;
;               
; My First robot - by Shaheryar Alam 12-03-97

#msg Catch me!
#def accuracy

        opo     17,     3       ; Scan-arc = 3
:1
        opo     11,     100      ; Throttle to 100%
        opo     14,     2       ; Turn to keep a circular path

        opo     12,     4       ; Turn turret 4 degrees.
:2
        ipo     7,      ax      ; Scan
        cmp     ax,     1500    ; Find anything?
        jls     3               ; If so, shoot!
        jmp     1               ; If not, continue scans.
:3
        opo     11      75      ; Slow down to 75% throttle
        
        ipo     2,      ax      ; check heat
        cmp     ax,     200     ; hotter than 200?
        jgr     2               ; if so, forget target, continue scan.
        
        ;read accuracy setting.
        ipo     8       accuracy
        ;turn using accuracy (to try to continue to face target)
        opo     12      accuracy
        opo     15,     0       ; Fire!
        ipo     7,      ax      ; Scan
        cmp     ax,     1500    ; Find one?
        jgr     1               ; If not, goto back to start

        ipo     8       accuracy; read accuracy setting
        opo     15,     accuracy; Fire!

        jmp     2               ; Scan again.

#END