home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c221 / 1.ddi / MWHC.001 / I < prev    next >
Encoding:
Text File  |  1992-12-09  |  1.6 KB  |  62 lines
  1. small_m = 1
  2. mach386 = 1
  3. GOC = 1
  4.     title    environ data. G.Unruh 90-Apr-19
  5.  
  6. ; (C) Copyright 1987-1992;    Franklin L. DeRemer,   Thomas J. Pennello,
  7. ;                          MetaWare Incorporated;  Santa Cruz, CA 95060.
  8. ; This program is the unpublished property and trade secret of the above
  9. ; three.  It is to be utilized solely under license from MetaWare and it
  10. ; is to be  maintained  on a confidential basis for internal company use
  11. ; only.  The  security  and  protection  of  the program is paramount to
  12. ; maintenance  of  the  trade secret status.  It is to be protected from
  13. ; disclosure to unauthorized  parties, both  within the Licensee company
  14. ; and outside, in a manner not less stringent  than  that  utilized  for
  15. ; Licensee's own proprietary internal  information.  No  copies  of  the
  16. ; Source or Object Code are to leave the premises of Licensee's business
  17. ; except in strict accordance  with  the  license  agreement  signed  by
  18. ; Licensee with MetaWare.
  19. ;
  20.     include     model
  21.  
  22. _MWENVIRON segment common word 'DATA'
  23.  
  24.     ifndef    nonansi
  25.     public    _environ
  26.     else
  27.     public    environ
  28.     endif
  29.  
  30.     ifdef    Small_data
  31. DGROUP    group    _MWENVIRON
  32.     assume    ds:DGROUP
  33. offds    equ    offset DGROUP:
  34.     else
  35.     assume    ds:_MWENVIRON
  36. offds    equ    
  37.     endif
  38.  
  39.     ifdef    asm_386
  40. integer    equ    dd
  41.     else
  42. integer    equ    dw
  43.     endif
  44.     if    Ptr_size - 4
  45. pntr    equ    dw
  46.     else
  47. pntr    equ    dd
  48.     endif
  49. environ    label    byte
  50. _environ    pntr    0
  51. _MWENVIRON ends
  52.  
  53. ;
  54. ; The following code forces the initializer to call this routine at
  55. ; program start-up.
  56. ;
  57.  
  58.     extrnf    _mwinit_environ
  59.     addinit    _mwinit_environ
  60.  
  61.     end
  62.