#config heatsinks=3
#config scanner=5
#config weapon=2
#config armor=2
#config engine=0
#config shield=0
#msg goobers aint good
opo 17, 2
mov ax, 1
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
out 11, dx
ipo 7, ax
cmp ax, 1500
jls !track
cmp cx, 256
jae !reset
inc cx
opo 13, cx
jmp !scan
!track
opo 12, @3
ipo 2, bx
cmp bx, 275
jae !scan
;opo 15, @3
        ipo     8,      bx      ;find accuracy
        mpy     bx,     6      ;multiply bx 
        opo     12,     bx
        opo     14,     bx      ;turn based on accuracy
        
        ipo     2,      cx
        cmp     cx,     200
        jgr     3
        opo     15,     bx
        jmp     3

out 15, 0
out 15, -1
out 15, 1
jmp !scan
!reset
mov cx, 0
jmp !scan
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