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