; ; SYSLIB Module Name: SFEXIS ; Author: Richard Conn ; SYSLIB Version Number: 2.0 ; Module Version Number: 1.0 ; Module Entry Points: ; F$EXIST ; Module External References: ; BDOS ; ; ; EXTERNALS ; EXT BDOS ; ; F$EXIST -- Search current disk and user for file whose FCB is pted ; to by DE; return Zero Flag Set (Z) if not found, NZ if found ; F$EXIST:: PUSH H ; SAVE REGS PUSH B MVI C,17 ; SEARCH FOR FIRST CALL BDOS POP B ; RESTORE REGS POP H INR A ; 0 IF NOT FOUND RET END