home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p024 / 12.img / ADS3.LIB / MAPPHYS.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-04-27  |  6.4 KB  |  166 lines
  1.         name    mapphys
  2. ; (assemble this with "386asm mapphys")
  3. ;**************************************************************************
  4. ;     (C) Copyright 1988-1992 by Autodesk, Inc.
  5. ; 
  6. ;     This program is copyrighted by Autodesk, Inc. and is  licensed
  7. ;     to you under the following conditions.  You may not distribute
  8. ;     or  publish the source code of this program in any form.   You
  9. ;     may  incorporate this code in object form in derivative  works
  10. ;     provided  such  derivative  works  are  (i.) are  designed and 
  11. ;     intended  to  work  solely  with  Autodesk, Inc. products, and 
  12. ;     (ii.)  contain  Autodesk's  copyright  notice  "(C)  Copyright  
  13. ;     1988-1992 by Autodesk, Inc."
  14. ; 
  15. ;     AUTODESK  PROVIDES THIS PROGRAM "AS IS" AND WITH  ALL  FAULTS.
  16. ;     AUTODESK  SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF  MER-
  17. ;     CHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK,  INC.
  18. ;     DOES  NOT  WARRANT THAT THE OPERATION OF THE PROGRAM  WILL  BE
  19. ;     UNINTERRUPTED OR ERROR FREE.
  20. ;**************************************************************************
  21. ;*                                                                        *
  22. ;*      Physical Memory Mapping module for use with MetaWare's High C     *
  23. ;*      Runtime Initialization Code for small model, protected mode 386.  *
  24. ;*                                                                        *
  25. ;**************************************************************************
  26.         include model   ; Memory model.
  27.  
  28.  
  29. ;Memory Layout:
  30. ;
  31. ; High memory   +---------------+
  32. ;               | END OF MEMORY | 
  33. ;               |---------------|
  34. ;               | top-of-heap   |
  35. ;               |   ...         |
  36. ;               | bottom-of-heap|
  37. ;               |---------------| 
  38. ;               | Physical mem- |
  39. ;               | ory mapped in |
  40. ;               | by 3rd party  |
  41. ;               |---------------|
  42. ;               | Physical mem- |  (This is not applicable for ADS.  This
  43. ;               | ory mapped in |   creates a common buffer for communication
  44. ;               | for ADI       |   between AutoCAD and protect mode ADI.)
  45. ;               |---------------|
  46. ;               |   stack       |
  47. ;               |   ...         |
  48. ;               | end-of-stack  |
  49. ;               |---------------|
  50. ;               |DATA   segments|
  51. ;               |CODE   segments|
  52. ; Low memory    +---------------+
  53. ;
  54. ; The memory layout above shows where physical memory is mapped into the
  55. ; linear address space of the 3rd party application.  A 3rd party can map
  56. ; in physical memory by installing a routine in map_phys_mem(), which is 
  57. ; called from within the MetaWare High C run-time initialization module
  58. ; INITL386.ASM. 
  59. ;
  60. ; The installed routine must map a physical base address that is on a page
  61. ; boundary (a page is four kilobytes) and the amount of memory mapped must
  62. ; be a multiple of four kilobytes.  The routine must return, in EAX, the
  63. ; number of pages mapped.  (See Function 250Ah, INT 21h, in the Phar Lap
  64. ; 386|DOS-Extender Reference Manual for more details.)
  65. ;
  66. ; One page of memory is mapped on top of the stack for protect mode ADI.
  67. ; This page is mapped by code inside INITL386.ASM and serves as the
  68. ; communication buffer between protect mode ADI and AutoCAD.
  69. ;
  70. ; There is limited support for this mechanism under Microsoft Windows
  71. ; and it requires that the PHARLAP.386 driver be installed (this was done
  72. ; for AutoCAD ADI driver support).  The 2509h call will succeed only for
  73. ; linear addresses that fall within the REALBREAK part of a segment.  The
  74. ; returned value is NOT a physical address, but rather an internal DOS-X
  75. ; "handle", and when passed in to the 250Ah call will succeed in mapping
  76. ; in the REALBREAK pages at the end of the segment specified in the 250Ah
  77. ; call.
  78.  
  79.         .386
  80.         .287
  81.  
  82. ifdef   ADS
  83. map_mem_addr    equ     ads_map_mem_addr
  84. map_phys_mem    equ     ads_map_phys_mem
  85. endif   ; ADS
  86.  
  87. TRUE    EQU     1
  88. FALSE   EQU     0
  89.  
  90. DO_SAMPLE_MAP   EQU     FALSE
  91.  
  92. dseg    segment dword 'DATA'
  93. IF      DO_SAMPLE_MAP
  94.         public  map_mem_addr
  95. map_mem_addr    dd      ?
  96. m_errmsg        db      'ERROR:  Unable to map physical memory to'
  97.                 db      ' end of segment.$'
  98. ENDIF
  99. dseg    ends
  100.  
  101. DGROUP  group dseg
  102.  
  103. ?init   segment dword 'CODE'
  104. CGROUP  group   ?init
  105.         assume cs:CGROUP
  106.         
  107. ;**************************************************************************
  108. ;*  map_phys_mem()                                                        *
  109. ;*                                                                        *
  110. ;*      Returns the number of physical memory pages mapped.               *
  111. ;**************************************************************************
  112.  
  113. map_phys_mem    proc    near
  114.         public  map_phys_mem
  115.         assume  ds:DGROUP
  116.  
  117. IF      DO_SAMPLE_MAP
  118.         push    ebx
  119.         push    es
  120.  
  121.         mov     eax,0
  122.         mov     ax,cs
  123.         and     ax,3                    ; mask off rpl bits
  124.         or      ax,34h                  ; Selector mapping in 1st Meg of mem
  125.         mov     ebx,eax
  126.         mov     ax, 2508h
  127.         int     21h                     ; Get Segment Linear Base Address
  128.  
  129.         mov     ebx, ecx                ; Linear base address of segment
  130.         add     ebx, 0A0000h            ; Add in desired offset within segment
  131.         mov     ax, 2509h
  132.         int     21h                     ; Convert Linear Addr to Physical Addr
  133.  
  134.         mov     ebx, ecx                ; Physical base addr of memory to map -
  135.                                         ;    must be a multiple of 4 kilobytes
  136.         push    ds
  137.         pop     es                      ; LDT Selector of segment to modify
  138.         mov     ecx, 16                 ; # of physical 4K memory pages to map
  139.         mov     ax, 250Ah
  140.         int     21h                     ; Map physical memory at end of segment
  141.         jc      m_err
  142.  
  143.         mov     map_mem_addr, eax       ; offset in segment of mapped memory
  144.         mov     eax, 16                 ; # of mapped pages
  145.         jmp     short m_ok
  146.  
  147. m_err:
  148.         lea     edx, m_errmsg
  149.         mov     ah, 09h
  150.         int     21h                     ; Output error message
  151.         mov     eax, 0
  152.  
  153. m_ok:
  154.         pop     es
  155.         pop     ebx
  156.         ret
  157. ELSE
  158.         mov     eax,0
  159.         ret
  160. ENDIF
  161.  
  162. map_phys_mem    endp
  163.  
  164. ?init   ends
  165.         end
  166.