;*DDK*************************************************************************/
;
; COPYRIGHT    Copyright (C) 1995 IBM Corporation
;
;    The following IBM OS/2 WARP source code is provided to you solely for
;    the purpose of assisting you in your development of OS/2 WARP device
;    drivers. You may use this code in accordance with the IBM License
;    Agreement provided in the IBM Device Driver Source Kit for OS/2. This
;    Copyright statement may not be removed.;
;*****************************************************************************/
;-------------------------------------------------------------------------
;
;   Module          = SEL2FLAT.ASM
;
;   Description     = sets up registers to do sel to flat dos call.
;
;   Functions       = DoSelToFlat
;
;
;-------------------------------------------------------------------------

INCL_GPIBITMAPS EQU     1
include os2.inc
include eddinclt.inc

?DF     equ     1       ; we dont want _TEXT segment defined
include cmacros.inc

; Declare the externals we use
extrn  DOS32FLATTOSEL    :PROC

;-------------------------------------------------------------------------


_DATA           segment use32 dword public 'DATA'
                assume  cs:FLAT, ds:FLAT, es:FLAT



_DATA           ends





;-------------------------------------------------------------------------





_TEXT           segment use32 dword public 'CODE'
                assume  cs:FLAT, ds:FLAT, es:FLAT



cProc   DoFlatToSel, <PUBLIC>, <eax, edi>

        parmD   pAddress

cBegin

        mov   edi, pAddress
        mov   eax, [edi]

        call  DOS32FLATTOSEL

        mov   edi, pAddress
        mov   [edi], eax

cEnd




_TEXT ends


END
