;
; SPLITTER - BETA - 4/3/99
;
; Chris Rasys : E-mail (ethomumm@pop.k12.vt.us) 

#def randnum
#def myrnge
#def scope
#def qscope
#def oscope
#def accur
#def accurop
#def heat
#def there
#def num


     
     ;mov       myrnge, 200
     :1
     mov        scope   128
     mov	qscope,	64
     mov	oscope, 32
     mov	there,	0
 
     opo        13,     64       ; turret : to the right
     opo        17,     scope   ; scan radius
     
     :100
     opo        11,     0

     :101
     opo        17,     scope   ; scan radius

     opo        11,     100
     ;opo        14,     4     ;turn

     ipo        7,      myrnge ;check
     cmp        myrnge, 2000   ;for
     jb         10             ;enemy

     ;ipo	10,	num	
     opo        14,     oscope     ;turn

     opo	12,	oscope     
     dec	there

     cmp	there,	0
     jbe	300
     
     jmp        101

     
     :10
     
     div	scope,	2
     div	qscope, 2
     mov	there,	5

     ipo        8,      accur
     cmp	accur,	0
     jls	150
     cmp	accur,	0
     jgr	50
     :11

     cmp	scope,	4
     jls	1000

     jmp	101
     

     :300
     add        scope,  5
     add	qscope,	5
     cmp	scope,	1
     jbe	1

     jmp        101

     :150
     mov	oscope,	qscope
     neg	oscope
     jmp	11

     :50     
     mov	oscope, qscope
     jmp	11

     :1000
     ipo        8,      accur
     opo	15,	accur
     mpy	accur,	2
     opo	15,	accur
     ;opo	15,	accur
     jmp	101

#END