;*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.;
;*****************************************************************************/
;       SCCSID = src/dev/dasd/ibm/ibm2flpy/fl2math.asm, flp2, ddk_subset, b_bdd.032 93/03/21

        page    ,132

;/*****************************************************************************
;*
;* SOURCE FILE NAME = FL2MATH.ASM
;*
;* DESCRIPTIVE NAME = IBM2FLPY.ADD - Adapter Driver for ABIOS Diskette
;*                    Device Driver Header
;*
;*
;* VERSION      V2.0
;*
;* DATE
;*
;* DESCRIPTION :  Miscellaneous arithmetic routines.
;*
;*
;*
;* CHANGE ACTIVITY =
;*   DATE      FLAG        APAR   CHANGE DESCRIPTION
;*   --------  ----------  -----  --------------------------------------
;*   mm/dd/yy  @Vnnnnn     xxxxx  xxxxxxx
;*****************************************************************************/

StaticCode segment dword public 'CODE'
        assume  cs: StaticCode

        .386

;* unsigned long far _aFuldiv( unsigned long Dividend, unsigned long Divisor )

        public  __aFuldiv

__aFuldiv proc far

;*      Divisor  = 10
;*      Dividend = 6

        push    bp
        mov     bp,sp

        mov     edx, 0
        mov     eax, [bp+6]        ;* put dividend in eax
        div     dword ptr [bp+10]  ;* divide by divisor
        mov     edx, eax           ;* put high word of eax into dx
        shr     edx, 16

        pop     bp
        ret     8                  ;* clean up the stack

__aFuldiv endp

StaticCode ends

END
