source: xtideuniversalbios/trunk/XTIDE_Universal_BIOS/Inc/IdeIO.inc@ 630

; Project name  :   XTIDE Universal BIOS
; Description   :   Macros for normal I/O mapped ATA controllers.

;
; XTIDE Universal BIOS and Associated Tools
; Copyright (C) 2009-2010 by Tomi Tilli, 2011-2024 by XTIDE Universal BIOS Team.
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
; Visit http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
;

%ifndef IDE_IO_INC
%define IDE_IO_INC

;--------------------------------------------------------------------
; OUTPUT_AL_TO_IDE_REGISTER
; OUTPUT_AL_TO_IDE_CONTROL_BLOCK_REGISTER
;   Parameters:
;       AL:     Byte to output
;       %1:     IDE Register                (OUTPUT_AL_TO_IDE_REGISTER)
;               IDE Control Block Register  (OUTPUT_AL_TO_IDE_CONTROL_BLOCK_REGISTER)
;       DS:DI:  Ptr to DPT (in RAMVARS segment)
;   Returns:
;       Nothing
;   Corrupts registers:
;       BX, DX
;--------------------------------------------------------------------
%macro OUTPUT_AL_TO_IDE_REGISTER 1
%ifndef MODULE_8BIT_IDE ; Standard IDE controllers only

    %ifdef IO_SEQUENCE
        %ifndef previous_parameter
            %ifnidni %1, dx
                mov     dx, %1
            %endif
            add     dx, [di+DPT.wBasePort]
        %elif previous_parameter + 1 = %1
            inc     dx
        %elif previous_parameter - 1 = %1
            dec     dx
        %elif previous_parameter = %1
        %else
            %ifnidni %1, dx
                mov     dx, %1
            %endif
            add     dx, [di+DPT.wBasePort]
        %endif
        %define previous_parameter %1

    %else ; ~IO_SEQUENCE
        %undef previous_parameter
        %ifnidni %1, dx
            mov     dx, %1
        %endif
        add     dx, [di+DPT.wBasePort]
    %endif
    out     dx, al

%else   ; Register translations required

    %ifnidni %1, dl
        mov     dl, %1
    %endif
    call    IdeIO_OutputALtoIdeRegisterInDL

%endif
%endmacro


%macro OUTPUT_AL_TO_IDE_CONTROL_BLOCK_REGISTER 1
%ifndef MODULE_8BIT_IDE ; Standard IDE controllers only

    %ifdef IO_SEQUENCE
        %ifndef previous_parameter
            eMOVZX  bx, [di+DPT.bIdevarsOffset]
            %ifnidni %1, dx
                mov     dx, %1
            %endif
            add     dx, [cs:bx+IDEVARS.wControlBlockPort]
        %elif previous_parameter + 1 = %1
            inc     dx
        %elif previous_parameter - 1 = %1
            dec     dx
        %elif previous_parameter = %1
        %else
            eMOVZX  bx, [di+DPT.bIdevarsOffset]
            %ifnidni %1, dx
                mov     dx, %1
            %endif
            add     dx, [cs:bx+IDEVARS.wControlBlockPort]
        %endif
        %define previous_parameter %1

    %else ; ~IO_SEQUENCE
        %undef previous_parameter
        eMOVZX  bx, [di+DPT.bIdevarsOffset]
        %ifnidni %1, dx
            mov     dx, %1
        %endif
        add     dx, [cs:bx+IDEVARS.wControlBlockPort]
    %endif
    out     dx, al

%else   ; Register translations required

    %ifnidni %1, dl
        mov     dl, %1
    %endif
    call    IdeIO_OutputALtoIdeControlBlockRegisterInDL

%endif
%endmacro


;--------------------------------------------------------------------
; INPUT_TO_AL_FROM_IDE_REGISTER
;   Parameters:
;       %1:     IDE Register
;       DS:DI:  Ptr to DPT (in RAMVARS segment)
;   Returns:
;       AL:     Inputted byte
;   Corrupts registers:
;       BX, DX
;--------------------------------------------------------------------
%macro INPUT_TO_AL_FROM_IDE_REGISTER 1
%ifndef MODULE_8BIT_IDE ; Standard IDE controllers only

    %ifnidni %1, dx
        mov     dx, %1
    %endif
    add     dx, [di+DPT.wBasePort]
    in      al, dx

%else   ; Register translations required

    %ifnidni %1, dl
        mov     dl, %1
    %endif
    call    IdeIO_InputToALfromIdeRegisterInDL

%endif
%endmacro


;--------------------------------------------------------------------
; UNROLL_SECTORS_IN_CX_TO_DWORDS
; UNROLL_SECTORS_IN_CX_TO_QWORDS
; UNROLL_SECTORS_IN_CX_TO_OWORDS
;   Parameters:
;       CX:     Number of sectors in block
;   Returns:
;       CX:     Number of DWORDs, QWORDs or OWORDs in block
;   Corrupts registers:
;       Nothing
;--------------------------------------------------------------------
%macro UNROLL_SECTORS_IN_CX_TO_DWORDS 0
%ifdef USE_186
    shl     cx, 7
%else
    xchg    cl, ch      ; Sectors to WORDs (SHL CX, 8)
    shr     cx, 1
%endif
%endmacro

%macro UNROLL_SECTORS_IN_CX_TO_QWORDS 0
%ifdef USE_186
    shl     cx, 6
%else
    UNROLL_SECTORS_IN_CX_TO_DWORDS
    shr     cx, 1
%endif
%endmacro

%macro UNROLL_SECTORS_IN_CX_TO_OWORDS 0
%ifdef USE_186
    shl     cx, 5
%else
;   UNROLL_SECTORS_IN_CX_TO_QWORDS
;   shr     cx, 1
    mov     ch, cl      ; 2 bytes shorter but possibly slower
    mov     cl, 3
    shr     cx, cl
%endif
%endmacro

%macro UNROLL_SECTORS_IN_CX_TO_16WORDS 0
%ifdef USE_186
    shl     cx, 4
%else
    mov     ch, cl
    mov     cl, 4
    shr     cx, cl
%endif
%endmacro

%macro UNROLL_SECTORS_IN_CX_TO_32WORDS 0
%ifdef USE_186
    shl     cx, 3
%else
    shl     cx, 1
    shl     cx, 1
    shl     cx, 1
%endif
%endmacro


%endif ; IDE_IO_INC