home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_122 / 2.ddi / CLIBSRC3.ZIP / SETENVP.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-06-10  |  4.4 KB  |  153 lines
  1. ;[]-----------------------------------------------------------------[]
  2. ;|      SETENVP.ASM -- Prepare Environment                           |
  3. ;[]-----------------------------------------------------------------[]
  4.  
  5. ;
  6. ;       C/C++ Run Time Library - Version 5.0
  7. ; 
  8. ;       Copyright (c) 1987, 1992 by Borland International
  9. ;       All Rights Reserved.
  10. ; 
  11.  
  12.  
  13.         INCLUDE RULES.ASI
  14.  
  15. ;       Segment and Group declarations
  16.  
  17. Header@
  18.  
  19. ;       External references
  20.  
  21. ExtProc@        malloc, __CDECL__
  22. ExtProc@        abort, __CDECL__
  23.  
  24. ExtSym@         _envseg, WORD, __CDECL__
  25. ExtSym@         _envLng, WORD, __CDECL__
  26. ExtSym@         _envSize, WORD, __CDECL__
  27. dPtrExt@        _C0environ, __CDECL__
  28.  
  29.         SUBTTL  Prepare Environment
  30.         PAGE
  31. ;/*                                                     */
  32. ;/*-----------------------------------------------------*/
  33. ;/*                                                     */
  34. ;/*     Prepare Environment                             */
  35. ;/*     -------------------                             */
  36. ;/*                                                     */
  37. ;/*-----------------------------------------------------*/
  38. ;/*                                                     */
  39.  
  40. ;This is the symbol which pulls in _setenvp
  41.                 public __setenvp__
  42. __setenvp__     equ     0
  43.  
  44. _INIT_          SEGMENT WORD PUBLIC 'INITDATA'
  45.                 db      0                       ;near call
  46.                 db      16                      ;priority 16
  47.                 dw      offset __setenvp
  48.                 dw      ?
  49. _INIT_          ENDS
  50.  
  51. ;       Allocate a buffer to hold environment variables
  52.  
  53. _TEXT           segment
  54.  
  55. __setenvp       proc near
  56.                 push    si
  57.                 push    di
  58.  
  59. IF      LDATA EQ 0
  60.                 mov     cx, _envLng@
  61.                 push    cx
  62.                 call    malloc@
  63.                 pop     cx
  64.                 mov     di, ax
  65.                 or      ax, ax
  66.                 jz      _Failed         ; Memory allocation failed
  67.                 push    ds
  68.                 push    ds
  69.                 pop     es
  70.                 mov     ds, _envseg@
  71.                 xor     si, si
  72.                 cld
  73.                 rep     movsb
  74.                 pop     ds
  75.                 mov     di, ax
  76. ELSE
  77.                 mov     es, _envseg@
  78.                 xor     di, di
  79. ENDIF
  80.  
  81. ;       Allocate a buffer to hold envp array
  82.  
  83.                 push    es              ; Save Environment Segment address
  84.                 push    _envSize@
  85.                 call    malloc@
  86.                 pop     bx
  87.                 mov     bx, ax
  88.                 pop     es              ; Restore Environment Segment address
  89. IF      LDATA
  90.                 mov     word ptr environ@, ax
  91.                 mov     word ptr environ@+2, dx
  92.                 push    ds
  93.                 mov     ds, dx
  94.                 or      ax, dx
  95. ELSE
  96.                 mov     word ptr environ@, ax
  97.                 or      ax, ax
  98. ENDIF
  99.                 jnz     SetEnviron
  100. _Failed         label   near            ; Memory allocation failed
  101.                 jmp     abort@
  102.  
  103.  
  104. ;       Now, store environment variables address
  105.  
  106. SetEnviron      label   near
  107.                 xor     ax, ax
  108.                 mov     cx, -1
  109. IF  LDATA
  110.                 cmp byte ptr es:[di], 0     ; Is the environment empty?
  111. ELSE
  112.                 cmp byte ptr [di], 0        ; Is the environment empty?
  113. ENDIF
  114.                 je  SetEnviron1
  115. SetEnviron0     label   near
  116.                 mov     [bx], di
  117. IF      LDATA
  118.                 mov     [bx+2], es
  119.                 add     bx, 4
  120. ELSE
  121.                 add     bx, 2
  122. ENDIF
  123.                 repnz   scasb
  124.                 cmp     es:[di], al
  125.                 jne     SetEnviron0         ; Set next pointer
  126. SetEnviron1     label   near
  127. IF      LDATA
  128.                 mov     [bx], ax
  129.                 mov     [bx+2], ax
  130.                 pop     ds
  131. ELSE
  132.                 mov     [bx], ax
  133. ENDIF
  134.                 pop     di
  135.                 pop     si
  136.  
  137. IF      LDATA
  138.                 mov     ax,word ptr _environ+2
  139.                 mov     word ptr __C0environ+2,ax
  140. ENDIF
  141.                 mov     ax,word ptr _environ
  142.                 mov     word ptr __C0environ,ax
  143.  
  144.                 ret
  145.  
  146.                 endp
  147.                 ends
  148.  
  149. _DATA           segment
  150. dPtrPub@        environ,        0,                      __CDECL__
  151.                 ends
  152.                 END
  153.