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_GetInfoSegs.asm < prev    next >
Assembly Source File  |  1997-03-16  |  4KB  |  136 lines
  1. ;
  2. ; $Header: d:\\32bits\\ext2-os2\\devhlp32\\rcs\\DevHlp32_GetInfoSegs.asm,v 1.3 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. SAS_SIG   equ      "SAS "
  33.  
  34. SAS struc
  35.     SAS_signature db 4 dup (?)
  36.     SAS_tables_data dw ?            ; offset to tables section
  37.     SAS_flat_sel    dw ?            ; FLAT selector for kernel data
  38.     SAS_config_data dw ?            ; offset to configuration section
  39.     SAS_dd_data     dw ?            ; offset to device driver section
  40.     SAS_vm_data     dw ?            ; offset to Virtual Memory section
  41.     SAS_task_data   dw ?            ; offset to Tasking section
  42.     SAS_RAS_data    dw ?            ; offset to RAS section
  43.     SAS_file_data   dw ?            ; offset to File System section
  44.     SAS_info_data   dw ?            ; offset to infoseg section
  45. SAS ends
  46.  
  47. ;/* Information Segment section */
  48. SAS_info_section struc
  49.     SAS_info_global  dw ?           ; selector for global info seg
  50.     SAS_info_local   dd ?           ; address of curtask local infoseg
  51.     SAS_info_localRM dd ?           ; address of DOS task's infoseg
  52.     SAS_info_CDIB    dw ?           ; selector for Codepage Data Information Block (CDIB)
  53. SAS_info_section ends
  54.  
  55.         extrn SAS_SEL : abs
  56.  
  57. CODE16 segment
  58.         ASSUME CS:CODE16, DS:FLAT
  59.  
  60.         public thunk16$DevHlp32_GetInfoSegs_1
  61.         public thunk16$DevHlp32_GetInfoSegs_2
  62.  
  63. thunk16$DevHlp32_GetInfoSegs_1:
  64.         call [DevHelp2]
  65. ;        jmp far ptr FLAT:thunk32$DevHlp32_GetInfoSegs_1
  66.         jmp32 thunk32$DevHlp32_GetInfoSegs_1
  67.  
  68. thunk16$DevHlp32_GetInfoSegs_2:
  69.         call [DevHelp2]
  70.         jmp32 thunk32$DevHlp32_GetInfoSegs_2
  71. ;        jmp far ptr FLAT:thunk32$DevHlp32_GetInfoSegs_2
  72.  
  73. CODE16 ends
  74.  
  75. CODE32 segment
  76. ASSUME CS:FLAT, DS:FLAT, ES:FLAT, SS:NOTHING
  77.  
  78.         public DevHlp32_GetInfoSegs
  79.  
  80.         public thunk32$DevHlp32_GetInfoSegs_1
  81.         public thunk32$DevHlp32_GetInfoSegs_2
  82.  
  83. ;
  84. ; int DH32ENTRY DevHlp32_GetInfoSegs(
  85. ;                    struct InfoSeg_LDT **ppLocInfoSeg,   [ebp + 8]
  86. ;                    struct InfoSeg_GDT **ppSysInfoSeg    [ebp + 12]
  87. ;                   );
  88. ;
  89. DevHlp32_GetInfoSegs proc near
  90.         push ebp
  91.         mov  ebp, esp
  92.         push es
  93.         push ebx
  94.         push esi
  95.         push edi
  96.  
  97.         mov esi, [ebp + 8]
  98.         mov edi, [ebp + 8]
  99.  
  100.         mov eax, SAS_SEL
  101.         mov es, eax
  102.         xor ebx, ebx
  103.         movzx ebx, word ptr es:[ebx].SAS_info_data
  104.         movzx eax, word ptr es:[ebx].SAS_info_global
  105.         xor esi, esi
  106.         mov edx, DevHlp_VirtToLin
  107.         jmp far ptr thunk16$DevHlp32_GetInfoSegs_1
  108. thunk32$DevHlp32_GetInfoSegs_1:
  109.         jc short @@error
  110.         mov ecx, [ebp + 8]
  111.         mov [ecx], eax
  112.  
  113.         movzx esi, word ptr es:[ebx].SAS_info_local
  114.         movzx eax, word ptr es:[ebx + 2].SAS_info_local
  115.         mov edx, DevHlp_VirtToLin
  116.         jmp far ptr thunk16$DevHlp32_GetInfoSegs_2
  117. thunk32$DevHlp32_GetInfoSegs_2:
  118.         jc short @@error
  119.         mov ecx, [ebp + 12]
  120.         mov [ecx], eax
  121.  
  122.  
  123.         mov eax, NO_ERROR
  124. @@error:
  125.         pop edi
  126.         pop esi
  127.         pop ebx
  128.         pop es
  129.         leave
  130.         ret
  131. DevHlp32_GetInfoSegs endp
  132.  
  133. CODE32  ends
  134.  
  135.         end
  136.