Проверить попадание точек в площади двух колец

.386p
point struc
    x dq ?
    y dq ?
ends
 
proverka macro in_radius, out_radius, counter
    local out_pro, inc_count
    _fcomp_and_save_swr st(1), in_radius ;st(0)=in_radius, st(1) = x[di]^2+y[di]^2
    test_al out_pro
    out_pro:
        fxch ;st(0) = st(1) 
        _fcomp_and_save_swr st(1), out_radius ;st(0) = out_radius st(1) = [di]^2+y[di]^2
        xor al, 01h
        test_al inc_count
        inc_count: inc counter
endm
 
test_al macro metka
    test al, 41h
    jnz short metka
    jmp short next
endm
 
_fcomp_and_save_swr macro arg1, arg2
    fld arg2
    fcomp arg1
    fstsw swr   ; сохраняем регистр состояния сопроцессора
    mov ax, swr
    shr ax, 8
    mov si, 2
    bt ax, si
    jc short _Error
endm
 
sqrt_stack macro x
    push QWORD ptr x
    call sqrt
    pop QWORD ptr x
endm
 
fsqrt_qword macro a
    fld QWORD ptr a
    fsqrt
endm
 
sqrt_a_plus_sqrt_b macro a, b
    fsqrt_qword a
    fsqrt_qword b
    faddp st(1), st(0)
endm
 
codesg segment byte use16
    assume cs:codesg, ds:codesg, ss:codesg
    org 100h
    start:
    jmp begin
        Array_of_points point <12.3343, 23.023>,<-5.0, 234>,<-1.0, 0.0>,<12.0, 2.34>,<-1.3, 78.2>,<0.0, 0.0>,<2.44, 4.243>,<42.234, 3.24>,<1.43, 0.023>,<1.45343, 2.923>
        in_radius1 dq 13.0
        out_radius1 dq 17.0
        in_radius2 dq 1.0
        out_radius2 dq 12.0
        counter1 db ?
        counter2 db ?
        swr dw ?
        mes db 13, 10, 'Error!!! Numbers not compare!!! $'
    begin:
        finit ;инициализируем сопроцессор
        sqrt_stack in_radius1
        sqrt_stack out_radius1      
        sqrt_stack out_radius2
        sqrt_stack in_radius2
        
        mov cx, 0ah
        lea di, Array_of_points
        _while:
            sqrt_a_plus_sqrt_b [di], [di+8] ;в st(0) x[di]^2+y[di]^2
            proverka in_radius1, out_radius1, counter1
            proverka in_radius2, out_radius2, counter2
            next: add di, 16
        cmp cx, 0 
        jne _while
        jmp short exit  
        _Error:
            mov ah, 09h
            lea dx, mes
            int 21h
        exit:mov ax, 4c00h
        int 21h
        
        sqrt proc
            push bp
            mov bp, sp
                fsqrt_qword [bp+4]
                fstp QWORD ptr[bp+4]
            pop bp
            ret
        endp
        
codesg ends
    end start