home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / DISKB.ASM < prev    next >
Assembly Source File  |  1994-12-03  |  1KB  |  52 lines
  1.     page    66,132
  2. ;******************************** DISKB.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. comment 
  16. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(  DISK   )
  17. FIND_HOME_PATH - find the full path and filename of the executing program
  18. ;
  19. ; inputs:    nothing
  20. ; 
  21. ; output:    ES:[DI] = pointer to the the name of the executing program
  22. ;                CX  = length of path string.
  23. ;
  24. ;  note:     The filename returned is an ASCIIZ string, and may be mixed
  25. ;            upper- and lower-case characters.
  26. ;            
  27. ;* * * * * * * * * * * * * *
  28. 
  29.     public    FIND_HOME_PATH
  30. FIND_HOME_PATH    PROC    FAR
  31.    mov    es,lib_info.psp_seg
  32.    CLD
  33.    APUSH   AX,DS
  34.    MOV       ES,WORD PTR ES:[002Ch]    ;get enviorn seg
  35.    XOR     DI,DI
  36.    XOR     AL,AL
  37.    MOV     CX,0FFFFh
  38. FHP_1:
  39.    REPNZ   SCASB            ;look for name
  40.    SCASB
  41.    JNZ     FHP_1
  42.    ADD     DI,2
  43.    PUSH    ES
  44.    POP     DS
  45.    CALL    strlen2
  46.    APOP    DS,AX
  47.    RETF
  48. FIND_HOME_PATH    ENDP
  49.  
  50. LIBSEG    ENDS
  51. ;;    end
  52.