#config heatsinks=2
#config scanner=5
#config weapon=2
#config armor=2
#config engine=1
#config shield=0
#config mines=0
#msg goobers aint good
;ipo 16, 100
opo 11, 100
out 14, 10
opo 17, 4
mov ax, 1
int 3, 2
do 5
out 14, 100
out 11, 100
loop 1
do 6
out 14, 50
out 11, -75
loop 1
int 2
;int 4
;out 24, 1
;!scan
;ipo 1, fx
;cmp fx 0
;je !change
;out 11,90
;out 14, 10
;out 22, 1
;in 7, ax
;in 2, 3
;cmp ax 1500
;jgr !turn
;opo 12, @3
;opo 15, -2 ; @3
;out 15, -3
;out 15, -2
;out 15, -1
;out 15, 0
;out 15, 1
;out 15, 2
;out 15, 3
!scan
;opo 17, 12
;opo 14, 100
;opo 11, 100
opo 11. 75
int 3, 2
out 14, 5
out 11, dx
ipo 7, ax
cmp ax, 1500
jls !track
cmp cx, 256
jae !reset
inc cx
opo 13, cx
ipo 2, bx
cmp bx, 200
ja !dodge
jmp !scan
!track
;call !check
out 14, -20
out 11, 100
ipo 8, dx
opo 17, 4
opo 12, @3
ipo 2, bx
cmp bx, 120
jae !scan
;ipo 8, bx
;mpy bx, 6
;opo 12, bx
;opo 14, bx
;opo 15, @3
out 15, dx
;out 15, 0
out 15, dx
out 15, -2
out 15, 2
jmp !scan
!reset
mov cx, 0
jmp !scan
jmp !scan
!turn
do 2
out 14, 100
out 11, 100
loop 1
do 2
out 14, 50
out 11, -75
loop 1
jmp !scan
;!turn
;out 22, 12
;opo 12, 5
;jmp !scan
!change
ipo 10, ex
and ex, 255
opo 14, ex
opo 11, 100
delay 8
out 22, 12
jmp !scan
!dodge
do 5
out 14, 100
out 11, 100
loop 1
do 6
out 14, 50
out 11, -75
loop 1
jmp !scan
!check
int 2
cmp ex, 900
ja !turnl
cmp ex, 100
jb !turnr
cmp fx, 900
ja !turnu
cmp fx, 100
jb !turnd
!turnl
        in     	p_random    	ax      ; random number
        and     ax      	0x40    ; now it is 0-63.
        add     ax      	0xA0    ; now it is 160-223
        call    !turn            	; turn to that heading.
        ret	
!turnr
        in     	p_random    	ax      ; random number
        and     ax      	0x40    ; now it is 0-63.
        add     ax      	0x20    ; now it is 32-95
        call    !turn            	; turn to that heading.
        ret	
!turnu
        in     	p_random    	ax      ; random number
        and     ax      	0x40    ; now it is 0-63.
        add     ax     		0E0h    ; now it is 224-287.
        and     ax     		255     ; now it is 224-255 or 0-31.
        call    !turn            	; turn to that heading.
        ret	
!turnd
        in     	p_random    	ax      ; random number
        and     ax      	0x40    ; now it is 0-63.
        add     ax      	0x60    ; now it is 96-159
        call    !turn            	; turn to that heading.
        ret