;
; Made by hugo
;
; 

#def turn_rate
#def ownangle
#def turangle
#def acc
#msg Hello

	opo        13,     0          ; Port 13 - Set turret to 0 degrees
        opo        17,     6         ; Port 17 - Set scan arc to 10 degrees.
	opo        20,     200        ; shutdown level=300'c
	opo        11,     10         ; set speed to 10 %
	opo        19,     27         ;set transponder to my lucky number.

:1
	
	ipo        7,      ax
	cmp        ax,     1500       ; compare range to 1500
	ja         10

	int        8                 ; find out id of last scan.
	

	ipo        8,      acc       ; get acc
	shl        acc,    2         ; convert to degrees (exagerating slightly).
	add        turangle,acc
	opo        13,     turangle  ; Port 13 - Set turret off. to rand degrees 
	ipo        2,      ax        ; get temp.
	cmp        ax,     150       ; if temp>220
	ja         111               ; skip fire	
	opo        15,     0         ; fire  
:111
	ipo        10,     ax        ; get rand
	shr        ax,     13        ; 0<ax<8 
	sub        ax,     8         ; -8<ax<0
	err        ax                ;showus ax
	add        turangle,ax
	opo        13,     turangle   ; Port 13 - Set turret off. to rand degrees 

	jmp        3
:2	
	add        turangle,7
	opo        13,     turangle   ; Port 13 - Set turret off. to rand degrees 
	
:3      
	opo        11,     100         ; set speed to 60 %
	
	opo        14,     5
	jmp        1

; heat dealer with.
:4
	opo        11,     100        ; set speed to 100 %
	opo        22,
	jmp        1
;search.
:10
	do         16
:11	
	add        turangle,12
	opo        13,     turangle   ; Port 13 - Set turret off. to rand degrees

	ipo        7,      ax
	cmp        ax,     1500       ; compare range to 1500
	ja         12
	xor        cx,     cx               
:12
	loop       11
	jmp        3
#END