;
; Made by hugo
;
; 

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

	opo        13,     0          ; Port 13 - Set turret to 0 degrees
        opo        17,     5         ; 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         124
	mov        ax,     255         
	int        3		     ;keepshift.	
	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
	;sub        turangle,4       
	;add        turangle,ax
	;opo        13,     turangle   ; Port 13 - Set turret off. to rand degrees 
:3      
	opo        11,     100         ; set speed to 60 %
	
	opo        14,     5
	jmp        1


;search.
:10
	do         16
:11	
	add        turangle,12
	opo        13,     turangle   ; Port 13 - Set turret off. to rand degrees

	ipo        7,      ax         ;scan dist into ax
	cmp        ax,     1500       ; compare range to 1500
	ja         12
	xor        cx,     cx               
:12
	loop       11
	jmp        3

; alternative search
:15

	opo        17,     64         ; Port 17 - Set scan arc to 64 degrees.
	ipo        7,      ax         ;scan dist into ax
	cmp        ax,     1500       ; compare range to 1500
	ja         16                 ;    flip & try again if fail.
	ipo        8,      acc        ; get acc.
	shl        acc,    5          ;convert acc to degrees
	add        turangle, acc      ;move scanner to face thy foe.
	opo        13,     turangle   ; Port 13 - Set turret off. to rand degrees

	;next round
:123
	opo        17,     28         ; Port 17 - Set scan arc to 64 degrees.
	ipo        7,      ax         ;scan dist into ax
	cmp        ax,     1500       ; compare range to 1500
	ja         15                 ; redo last round if fail.
	ipo        8,      acc        ; get acc.
	shl        acc,    4          ;convert acc to degrees
	add        turangle, acc      ;move scanner to face thy foe.
	opo        13,     turangle   ; Port 13 - Set turret off. to rand degrees
:124
	opo        17,     13         ; Port 17 - Set scan arc to 64 degrees.
	ipo        7,      ax         ;scan dist into ax
	cmp        ax,     1500       ; compare range to 1500
	ja         123                ; redo last round on fail.
	ipo        8,      acc        ; get acc.
	shl        acc,    3          ;convert acc to degrees
	add        turangle, acc      ;move scanner to face thy foe.
	opo        13,     turangle   ; Port 13 - Set turret off. to rand degrees
:125
	opo        17,     5         ; Port 17 - Set scan arc to 64 degrees.
	ipo        7,      ax         ;scan dist into ax
	cmp        ax,     1500       ; compare range to 1500
	ja         124                ; redo last round on fail.
	ipo        8,      acc        ; get acc.
	shl        acc,    2          ;convert acc to degrees
	add        turangle, acc      ;move scanner to face thy foe.
	opo        13,     turangle   ; Port 13 - Set turret off. to rand degrees

	ipo        7,      ax         ; scan dist into ax
	cmp        ax,     1500       ; compare range to 1500
	ja         125                ; redo last round on fail.
	jmp        3
        
:16     
	add        turangle,128        ;flip scanner
	opo        13      turangle    ; "     "
	jmp        15    
	
#END