Trailing-Edge
-
PDP-10 Archives
-
BB-H064A-SM
-
sources/ckfile.mac
There are no other files named ckfile.mac in the archive.
TITLE CKFILE (FORTRAN ROUTINE TO CHECK FOR FILE)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;FORTRAN LIBRARY SUBROUTINE TO CHECK FOR FILE EXISTENCE
;
; COPYRIGHT (C) 1976,1977 BY
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
; CALL CKFILE ('FILNAM.EXT',ANSWER)
; AN EXPLICIT FILENAME, WITH OR WITHOUT EXTENSION, MUST BE USED.
; FILENAMES FOLLOW CONVENTIONS DESCRIBED IN CH. 12 OF FORTRAN MANUAL.
; RETURNS IN ANSWER ONE OF THE FOLLOWING INDICATORS:
; 1=NO SUCH FILE IN USER'S AREA
; 2=FILE IS IN USER'S AREA
; 3=ILLEGAL FILE NAME
; 4=NO AVAILABLE FORTRAN I/O CHANNEL TO DO OPEN/LOOKUP
; 5=LOOKUP PROBLEM OTHER THAN FILE 'NOT THERE'
; 6=OPEN ERROR FOR DEVICE 'DSK'
ARG==^O16
P==^O17
T1==2
T2==3
T3==4
T4==5
ENTRY CKFILE
EXTERN ALCHN.,DECHN.
CKFILE:
DMOVEM T1