Identify packet device - ошибка непонятная

    xor eax, eax
    mov dx, 1F7h
@@:
    in al, dx
    test al, 80h
    jnz @b
    
    mov al, 1010000b
    dec dx
    out dx, al
    mov al, 0A1h
    inc dx
    out dx, al
    nop
    nop
    mov cx, 4
@@:
    dec cx
    jz .error
    in al, dx             ;al=0 O_O
    test al, 80h
    jnz @b
    test al, 40h
    jz @b   
    ;mov ecx, 256
    ;mov edi, .buf
    ;rep insw
    ;mov eax, [.buf]
    ;mov eax, [.buf+24]
    
.error:
    sub dx, 6
    in al, dx        ;al=1 - ошибка носителя
    jmp $
.buf dd 128 dup (0)

atapi_dev_type:
       ;Процедура для определения CD-ROM перед нами или нет
       ;Входные параметры:
       ;        DX=базовый порт
       ;        CX=номер девайса(0-Master,1-Slave)
       ;Выходные параметры:                                         
       ;         AX = Тип девайса
       ;         05h  CD-ROM
       ;         07h  Оптическое запоминающее устройство
       ;         Остальные коды смотреть в NCITS 317-1998(стр. 99)
 
    pusha
    call disable_int_ata
    add dx,07h
    mov bx,0FFh
    @@:
        dec bx
        jz adt_is_not_atapi
        in al,dx
        test al,bsy
        jnz @b
        
    sub dx,01h
    mov ax,cx
    shl ax,4
    or al,10100000b
    out dx,al
 
    add dx,01h
    mov bx,0FFh
    @@:
                dec bx
                jz adt_is_not_atapi
        in al,dx
        test al,bsy
        jnz @b
        test al,drdy
        jz @b
 
    mov al,0A1h
    out dx,al
    add dx,01ffh
    @@:
        in al,dx
        test al,bsy
        jnz @b
 
    sub dx,01ffh
    @@:
        in al,dx
        test al,atapi_err
        jnz adt_is_not_atapi
        test al,drq
        jz @b
 
    sub dx,07h
    cld
    cli
    in ax,dx
    mov bx,ax
    mov cx,255
    @@:
        in ax,dx
        loop @b
 
    sti
    mov byte [CS:adt_buff],bh
    call enable_int_ata
    popa
    mov al,byte [CS:adt_buff]
    and al,00011111b
    xor ah,ah
    ret
    adt_is_not_atapi:
        sub dx,07h
        call enable_int_ata
        popa
        mov ax,0FFFFh
        ret
 
    adt_buff db 0

xor eax, eax
    mov al, 2
    mov dx, 3F6h
    out dx, al
    mov dx, 1F7h
@@:
    in al, dx
    test al, 80h
    jnz @b