home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / kernex32.zip / mwdd_src.zip / 32bits / ext2-os2 / devhlp32 / DevHlp32_GetDosVar.asm < prev    next >
Assembly Source File  |  1997-03-16  |  3KB  |  84 lines
  1. ;
  2. ; $Header: d:\\32bits\\ext2-os2\\devhlp32\\rcs\\DevHlp32_GetDosVar.asm,v 1.4 1997/03/15 16:38:23 Willm Exp $
  3. ;
  4.  
  5. ; 32 bits OS/2 device driver and IFS support. Provides 32 bits kernel 
  6. ; services (DevHelp) and utility functions to 32 bits OS/2 ring 0 code 
  7. ; (device drivers and installable file system drivers).
  8. ; Copyright (C) 1995, 1996, 1997  Matthieu WILLM (willm@ibm.net)
  9. ;
  10. ; This program is free software; you can redistribute it and/or modify
  11. ; it under the terms of the GNU General Public License as published by
  12. ; the Free Software Foundation; either version 2 of the License, or
  13. ; (at your option) any later version.
  14. ;
  15. ; This program is distributed in the hope that it will be useful,
  16. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. ; GNU General Public License for more details.
  19. ;
  20. ; You should have received a copy of the GNU General Public License
  21. ; along with this program; if not, write to the Free Software
  22. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  23.  
  24.         .386p
  25.  
  26.         INCL_DOSERRORS equ 1
  27.         include bseerr.inc
  28.         include devhlp.inc
  29.         include segdef.inc
  30.         include r0thunk.inc
  31.  
  32. CODE16 segment
  33.         ASSUME CS:CODE16, DS:FLAT
  34.  
  35.         public thunk16$DevHlp32_GetDosVar
  36.  
  37. thunk16$DevHlp32_GetDosVar:
  38.         call [DevHelp2]
  39. ;        jmp far ptr FLAT:thunk32$DevHlp32_GetDosVar
  40.         jmp32 thunk32$DevHlp32_GetDosVar
  41.  
  42. CODE16 ends
  43.  
  44. CODE32 segment
  45. ASSUME CS:FLAT, DS:FLAT, ES:FLAT, SS:NOTHING
  46.  
  47.         public thunk32$DevHlp32_GetDosVar
  48.         public         DevHlp32_GetDosVar
  49.  
  50. ;
  51. ; int DH32ENTRY DevHlp32_GetDosVar(
  52. ;                                  int     index,      /* ebp + 8  */
  53. ;                                  PTR16  *value,      /* ebp + 12 */
  54. ;                                  int     member      /* ebp + 16 */
  55. ;                                 );
  56. ;
  57. DevHlp32_GetDosVar proc near
  58.         enter 0, 0
  59.     push ebx
  60.     push esi
  61.     push edi
  62.  
  63.     mov eax, [ebp + 8]            ; index
  64.     mov ecx, [ebp + 16]            ; member
  65.         mov dl, DevHlp_GetDOSVar
  66.         jmp far ptr thunk16$DevHlp32_GetDosVar
  67. thunk32$DevHlp32_GetDosVar:
  68.         jc short @@error                   ; if error, EAX = error code
  69.     mov edi, [ebp + 12]
  70.     mov [edi], bx                         ; value (ofs)
  71.     mov [edi + 2], ax                 ; value (seg)
  72.         mov eax, NO_ERROR
  73. @@error:
  74.     pop edi
  75.     pop esi
  76.     pop ebx
  77.         leave
  78.         ret
  79. DevHlp32_GetDosVar endp
  80.  
  81. CODE32  ends
  82.  
  83.         end
  84.