;Cobras- A small version of Cobra by Jude Hungerford. Created on 14/11/1999
;Last modified on: 14/11/1999.  Version number 0.02
!init
        opo     17,     3       ;Narrow scan
        #def    trn
        mov     trn,    6
!steer
        out     11,     100
        out     14,     trn
        out     14,     @3
;        jmp     !scan
!scan
        in      7,      bx
        cmp     bx,     1500
;        jls     !cspit          ;found
        jge     !steer
!cspit
        in      2,      dx      ; Are we burning?
        cmp     dx,     250 
        jge     !steer
        cmp     dx,     10
        out     14,     @3
        jls     !coverspit
;        jge     !spit
!spit
        out     15,     0       ;fire
        out     15,     -1      ;fire
        out     15,     1       ;fire
        jmp     !scan
!coverspit
        in      7,      bx
        cmp     bx,     300
        jle     !overspit
        jmp     !spit
!overspit
        mov     AX,     1
        int     4,      AX      ;overburn on
        out     15,     0       ;fire
        out     15,     -1      ;fire
        mov     AX,     1       ;fire
        int     4,      AX      ;overburn off
jmp     !scan