home *** CD-ROM | disk | FTP | other *** search
/ ftp.shrubbery.net / 2015-02-07.ftp.shrubbery.net.tar / ftp.shrubbery.net / pub / pc / unix / unx.arc / EXIST.ASM < prev    next >
Assembly Source File  |  1985-06-10  |  2KB  |  75 lines
  1.     page    66,132
  2.     page
  3.  
  4. ;---- Exist.com ---------------------------------------------------------------
  5. ; Usage: exist filespec
  6. ; Sets errorlevel = {0 if file exists; 1 if file doesn't exist}
  7. ; Wildcards allowed in filename; forward or backslashes allowed in pathspec.
  8. ; DRK 30 June 84
  9. ; 
  10. ; Example of use inside batch file:
  11. ;   exist /bin/%1
  12. ;   if errorlevel 1 goto nofile
  13. ; Note: remember that "errorlevel 0" is (errlev >= 0), a tautology.
  14. ;------------------------------------------------------------------------------
  15.     extrn    _args:near,argc:word,argv:word
  16.  
  17. stderr    equ    2
  18.  
  19.  
  20. code    segment    public 'CODE'
  21. assume cs:code,ds:code
  22.  
  23.     org    100h
  24.  
  25. ; This is a .COM program.
  26. ; It takes one argument- the name of a file (wildcards ok).
  27. ; If the file exists, ERRORLEVEL is set to zero; otherwise to one.
  28. ; 
  29. ; The argument is the first nonblank string of chars.
  30. ; Either backslashes or forward slashes may be used in a pathname.
  31.  
  32. exist    proc    near
  33.  
  34.     ; Get arguments.
  35.     call    _args
  36.  
  37.     ; Check # of arguments- if not exactly one, send usage message.
  38.     cmp    argc,1
  39.     jnz    usage
  40.  
  41.     ; call DOS to see if file exists.
  42.     mov    dx, argv[2]    ; get pointer to first argument.
  43.     mov    ah, 4eh
  44.     mov    cx, 0        ; no special attribute bits set
  45.     int    21h        ; call DOS
  46.  
  47.     jc    nofile        ; if carry set, no file found.
  48. exok:    mov    al,0        ; errorlevel= 0 => file found
  49.     jmp    short exit
  50. nofile:    mov    al,1        ; errorlevel = 1 => no file found
  51. exit:    mov    ah,4ch
  52.     int    21h        ; terminate process, return status in AL.
  53.  
  54. ulen    = 0
  55. ulen    =    uend-uoff
  56.  
  57. usage:    mov    bx, stderr    ; write to error device...
  58.     mov    cx, ulen
  59.     mov    dx, offset umsg
  60.     mov    ah, 40h
  61.     int    21h
  62.     mov    al, 2        ; error2 = syntax error
  63.     jmp    exit
  64.  
  65. exist    endp
  66.                     
  67. umsg    db    'Usage: exist filespec', 13, 10
  68. bugo    db    ?
  69. uoff    equ    offset umsg
  70. uend    equ    offset bugo
  71.  
  72. code    ends
  73.  
  74.     end    exist
  75.