home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ddkx86v5.zip / DDKX86 / SRC / DEV / DASD / OS2SCSI / SCSUBRA.ASM < prev    next >
Encoding:
Assembly Source File  |  1995-04-14  |  3.2 KB  |  136 lines
  1. ;*DDK*************************************************************************/
  2. ;
  3. ; COPYRIGHT    Copyright (C) 1995 IBM Corporation
  4. ;
  5. ;    The following IBM OS/2 WARP source code is provided to you solely for
  6. ;    the purpose of assisting you in your development of OS/2 WARP device
  7. ;    drivers. You may use this code in accordance with the IBM License
  8. ;    Agreement provided in the IBM Device Driver Source Kit for OS/2. This
  9. ;    Copyright statement may not be removed.;
  10. ;*****************************************************************************/
  11. ;       SCCSID = src/dev/dasd/os2scsi/scsubra.asm, scsy, ddk_subset, b_bdd.032 93/04/06
  12.  
  13.         page    ,132
  14. ;/*****************************************************************************
  15. ;*
  16. ;* SOURCE FILE NAME = SCSUBRA.ASM
  17. ;*
  18. ;* DESCRIPTIVE NAME = OS2SCSI.DMD - OS/2 SCSI.SYS Emulation
  19. ;*
  20. ;*
  21. ;*
  22. ;* VERSION      V2.0
  23. ;*
  24. ;* DATE
  25. ;*
  26. ;* DESCRIPTION : Assembly helper routines
  27. ;*
  28. ;*
  29. ;* CHANGE ACTIVITY =
  30. ;*   DATE      FLAG        APAR   CHANGE DESCRIPTION
  31. ;*   --------  ----------  -----  --------------------------------------
  32. ;*   04/01/93  @V65575     65575  Fix parameter stack offset - S_to_MS
  33. ;*
  34. ;*****************************************************************************/
  35.  
  36.  
  37.         title   SCSUBRA - OS/2 2.0 OS2SCSI
  38.         name    SCSUBRA
  39.  
  40.  
  41.         .xlist
  42.         include basemaca.inc
  43.         .list
  44.  
  45.  
  46. _DATA   segment dword public 'DATA'
  47.  
  48. _DATA   ends
  49.  
  50.  
  51. Code    segment dword public 'CODE'
  52.         assume  CS:Code,DS:_Data
  53.  
  54.         CPUMODE 386
  55.  
  56. ;******************************************************************************
  57. ;*
  58. ;*  SUBROUTINE NAME:   MS_to_S
  59. ;*
  60. ;*  DESCRIPTIVE NAME: Convert form milisecond to second
  61. ;*
  62. ;*  FUNCTION:     Convert from milisecond to second
  63. ;*
  64. ;*  ENTRY POINT:  MS_to_S
  65. ;*
  66. ;*  LINKAGE:      Near
  67. ;*
  68. ;******************************************************************************
  69.  
  70.  
  71.           public _MS_to_S
  72. _MS_to_S proc near
  73.  
  74.         push    bp
  75.         mov     bp,sp
  76.         push    ebx
  77.         mov     ax,[bp+6]
  78.         shl     eax,16
  79.         mov     ax,[bp+4]
  80.         xor     edx,edx
  81.         mov     ebx,1000
  82.         div     ebx
  83.         or      edx,edx
  84.         jz      not_inc
  85.         inc     ax
  86. not_inc:
  87.         push    ax
  88.         shr     eax,16
  89.         mov     dx,ax
  90.         pop     ax
  91.         pop     ebx
  92.         pop     bp
  93.         ret
  94.  
  95. _MS_to_S endp
  96.  
  97.  
  98. ;******************************************************************************
  99. ;*
  100. ;*  SUBROUTINE NAME:   S_to_MS
  101. ;*
  102. ;*  DESCRIPTIVE NAME: Convert form second to milisecond
  103. ;*
  104. ;*  FUNCTION:     Convert from second to milisecond
  105. ;*
  106. ;*  ENTRY POINT:  S_to_MS
  107. ;*
  108. ;*  LINKAGE:      Near
  109. ;*
  110. ;******************************************************************************
  111.  
  112.  
  113.           public _S_to_MS
  114. _S_to_MS proc near
  115.  
  116.         push    bp
  117.         mov     bp,sp
  118.         push    ebx
  119.         mov     eax,[bp+4]                                              ;@V65575
  120.         xor     edx,edx
  121.         mov     ebx,1000
  122.         mul     ebx
  123.         push    ax
  124.         shr     eax,16
  125.         mov     dx,ax
  126.         pop     ax
  127.         pop     ebx
  128.         pop     bp
  129.         ret
  130.  
  131. _S_to_MS endp
  132.  
  133. Code            ends
  134.  
  135.                 end
  136.