home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol090 / sfexist.mac < prev    next >
Encoding:
Text File  |  1984-04-29  |  496 b   |  32 lines
  1. ;
  2. ; SYSLIB Module Name:  SFEXIS
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  2.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    F$EXIST
  8. ; Module External References:
  9. ;    BDOS
  10. ;
  11.  
  12. ;
  13. ;  EXTERNALS
  14. ;
  15.     EXT    BDOS
  16.  
  17. ;
  18. ;  F$EXIST -- Search current disk and user for file whose FCB is pted
  19. ;    to by DE; return Zero Flag Set (Z) if not found, NZ if found
  20. ;
  21. F$EXIST::
  22.     PUSH    H    ; SAVE REGS
  23.     PUSH    B
  24.     MVI    C,17    ; SEARCH FOR FIRST
  25.     CALL    BDOS
  26.     POP    B    ; RESTORE REGS
  27.     POP    H
  28.     INR    A    ; 0 IF NOT FOUND
  29.     RET
  30.  
  31.     END
  32.