;*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.;
;*****************************************************************************/
        page    ,132
;-----------------------------Module-Header-----------------------------;
; Module Name: DLLINIT.ASM
;
;   DLL's actual entry point.
;
; Created: 15-Oct-1991
; Author:  Soh Ohta     [jl09057 @ ymtvm3, IBM Japan]
;
;                       Refer to Copyright Inscruction Form No.G120-2083
;
; Exported Functions:   none
;
; Public Functions:     none
;
; Public Data:          none
;
; General Description:
;
;-----------------------------------------------------------------------;

_DATA   segment word public 'DATA'
        public  __acrtused
__acrtused      dw      0               ; no C runtime.
_DATA   ends
DGROUP  group  _DATA


_TEXT   segment word public 'CODE'
        assume  cs:_TEXT
        extrn   _DynaLinkInit:near

;-----------------------------------------------------------------------;
; DynaLinkInit
;
; Actual entry point of dynalink module at initialization time.
;
; Entry:
;      SI = module's local heap size.
;      DI = module's module handle.
; Returns:
;      AX = 0:fail,1:success
; History:
;   30-Sep-1991 -by-    Soh Ohta [jl09057 @ ymtvm3]
; Wrote it!
;-----------------------------------------------------------------------;

        public  DynaLinkInit

DynaLinkInit    proc    far

        push    ds
        mov     ax,DGROUP
        mov     ds,ax
        push    di                      ; module's module handle.
        push    si                      ; module's local heap size.
        push    ds                      ; module's default data segment
        call    _DynaLinkInit           ; AX = return value to OS/2.
        add     sp,6
        pop     ds
        ret

DynaLinkInit    endp

_TEXT   ends

end     DynaLinkInit
