home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / DISKC.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  2KB  |  57 lines
  1.     page    66,132
  2. ;******************************** DISKC.ASM  *********************************
  3.  
  4. LIBSEG           segment byte public "LIB"
  5.         assume cs:LIBSEG , ds:nothing
  6.  
  7. ;----------------------------------------------------------------------------
  8. .xlist
  9.     include  mac.inc
  10.     include  common.inc
  11. .list
  12. ;----------------------------------------------------------------------------
  13.     extrn    strlen2:far
  14.     extrn    lib_info:byte
  15.     extrn    buffer_searchc:far
  16. comment 
  17. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(  DISK   )
  18. GET_PATH - search enviornment for start of path information string
  19. ;
  20. ; inputs:    nothing
  21. ; 
  22. ; output:     ES:DI = pointer to "PATH=" portion of path string.
  23. ;                CX = length of path
  24. ;
  25. ; note:  The path string consists of "PATH=" followed by path entries.
  26. ;        Each path entry is separated with ";" and the last one is
  27. ;        followed by a null character (00h).  ES:DI points at
  28. ;        the start of "PATH=".                 
  29. ;* * * * * * * * * * * * * *
  30. 
  31. path_string     db      'PATH=',0
  32.  
  33.     public    GET_PATH
  34. GET_PATH    PROC    FAR
  35.     mov    es,lib_info.psp_seg
  36.     apush    ax,ds
  37.     mov    es,word ptr es:[2ch]    ;get enviornment seg
  38.     mov    di,0
  39.  
  40.     push    cs
  41.     pop    ds
  42.     mov    si,offset path_string
  43.             
  44.     mov    cx,-1
  45.     call    buffer_searchc        ;scan for path, sets DI if found
  46.     push    es
  47.     pop    ds
  48.     call    strlen2            ;find string length -> cx       
  49.     apop    ds,ax
  50.     retf
  51. GET_PATH    ENDP
  52.  
  53. ;------------------------------------------------------------------------
  54.  
  55. LIBSEG    ENDS
  56.     end
  57.