! I/O package constants added
%end %of %list

! Operating constants
%const %integer  max streams = 5;      ! ie can select input/output 0-5
%const %integer  max units   = 10;     ! # of logical disk units allowed
%const %integer  max devs    = 10;     ! # of different device names
%const %integer  max fsys    = 8_77;   ! # of directories/logical disk

! Values for TYPE field in SDFM
%const %integer  null type = -1,
                 char type = 0,
                 file type = 1

! Values for STATE field (i.e. state of SYM)
%const %integer  valid   = 0,
                 invalid = 1,
                 EOF     = 2

! Error exit codes (event info in %signal)
%const %integer  FNF      = 25,     { File Not Found }
                 bad file = 26,     { Syntax fault in file name }
                 disc flt = 27,     { Bad block number (or H/W error?) }
                 discfull = 28,     { No room in directory or on disk }
                 open2    = 29;     { File open twice for output }

! Note alias:  MAKESHARE generates
! .EVENT:: .word EVENT
%external %record(eventfm) %name %spec  ev %alias ".EVENT"

! read/write function codes to disk/device handlers
%const %integer  read fn  = 0,
                 write fn = 1

! Directory function codes for disk files
%const %integer  examine = 0,
                 getnext = 1,
                 destroy = 2,
                 create  = 3,
                 append  = 4,
                 rename  = 5,
                 rentemp = 6

%list
%end %of %file