! *** PREDECLARED TYPES
     
      %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL ( 2 )
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$OCTAWORD
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$OCTAWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$HFLOAT_AXP_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$F_FLOATING_COMPLEX
            SINGLE REAL_PART
            SINGLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$D_FLOATING_COMPLEX
            DOUBLE REAL_PART
            DOUBLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$G_FLOATING_COMPLEX
            GFLOAT REAL_PART
            GFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
    
    
    !  ATTRIBUTE LIST DESCRIPTION. THE ATTRIBUTE CONTROL LIST IS USED TO READ AND
    !  WRITE FILE ATTRIBUTES. IT CONSISTS OF CONCATENATED ATTRIBUTE CONTROL BLOCKS
    !  TERMINATED BY A SINGLE ZERO LONGWORD.
    ! 
      DECLARE LONG CONSTANT ATR$C_UCHAR = 3  !  4 BYTE USER FILE CHARACTERISTICS 
      DECLARE LONG CONSTANT ATR$C_RECATTR = 4  !  32 BYTES RECORD ATTRIBUTES 
      DECLARE LONG CONSTANT ATR$C_FILNAM = 5  !  6 BYTE RAD-50 FILE NAME 
      DECLARE LONG CONSTANT ATR$C_FILTYP = 6  !  2 BYTE RAD-50 FILE TYPE 
      DECLARE LONG CONSTANT ATR$C_FILVER = 7  !  2 BYTE BINARY FILE VERSION 
      DECLARE LONG CONSTANT ATR$C_EXPDAT = 8  !  7 BYTE ASCII EXPIRATION DATE 
      DECLARE LONG CONSTANT ATR$C_STATBLK = 9  !  32 BYTE STATISTICS BLOCK 
      DECLARE LONG CONSTANT ATR$C_HEADER = 10  !  512 BYTE FILE HEADER 
      DECLARE LONG CONSTANT ATR$C_BLOCKSIZE = 11  !  MAGTAPE BLOCK SIZE 
      DECLARE LONG CONSTANT ATR$C_USERLABEL = 12  !  USER FILE LABEL 
      DECLARE LONG CONSTANT ATR$C_ASCDATES = 13  !  REVISION COUNT THRU EXP DATE IN ASCII 
      DECLARE LONG CONSTANT ATR$C_ALCONTROL = 14  !  COMPATIBILITY MODE ALLOCATION DATA 
      DECLARE LONG CONSTANT ATR$C_ENDLBLAST = 15  !  END OF MAGTAPE LABEL PROCESSING AND SUPPLY AST CONTROL BLOCK 
      DECLARE LONG CONSTANT ATR$C_ASCNAME = 16  !  FILE NAME, TYPE ? VERSION IN ASCII 
      DECLARE LONG CONSTANT ATR$C_CREDATE = 17  !  64 BIT CREATION DATE 
      DECLARE LONG CONSTANT ATR$C_REVDATE = 18  !  64 BIT REVISION DATE 
      DECLARE LONG CONSTANT ATR$C_EXPDATE = 19  !  64 BIT EXPIRATION DATE 
      DECLARE LONG CONSTANT ATR$C_BAKDATE = 20  !  64 BIT BACKUP DATE 
      DECLARE LONG CONSTANT ATR$C_UIC = 21  !  4 BYTE FILE OWNER UIC 
      DECLARE LONG CONSTANT ATR$C_FPRO = 22  !  2 BYTE FILE PROTECTION 
      DECLARE LONG CONSTANT ATR$C_RPRO = 23  !  2 BYTE RECORD PROTECTION 
      DECLARE LONG CONSTANT ATR$C_ACLEVEL = 24  !  1 BYTE FILE ACCESS LEVEL 
      DECLARE LONG CONSTANT ATR$C_SEMASK = 25  !  FILE SECURITY MASK AND LIMIT 
      DECLARE LONG CONSTANT ATR$C_UIC_RO = 26  !  READ ONLY UIC 
      DECLARE LONG CONSTANT ATR$C_DIRSEQ = 27  !  DIRECTORY UPDATE SEQUENCE COUNT 
      DECLARE LONG CONSTANT ATR$C_BACKLINK = 28  !  FILE BACK LINK POINTER 
      DECLARE LONG CONSTANT ATR$C_JOURNAL = 29  !  JOURNAL CONTROL FLAGS 
      DECLARE LONG CONSTANT ATR$C_HDR1_ACC = 30  !  ANSI TAPE HEADER 1 ACCESSIBILITY 
    !   CHARACTER
      DECLARE LONG CONSTANT ATR$C_ADDACLENT = 31  !  ADD AN ACCESS CONTROL ENTRY 
      DECLARE LONG CONSTANT ATR$C_DELACLENT = 32  !  REMOVE AN ACCESS CONTROL ENTRY 
      DECLARE LONG CONSTANT ATR$C_MODACLENT = 33  !  MODIFY AN ACL ENTRY 
      DECLARE LONG CONSTANT ATR$C_FNDACLENT = 34  !  LOCATE AN ACL ENTRY 
      DECLARE LONG CONSTANT ATR$C_FNDACLTYP = 35  !  FIND A SPECIFIC TYPE OF ACE 
      DECLARE LONG CONSTANT ATR$C_DELETEACL = 36  !  DELETE ACL LEAVING PROTECTED
      DECLARE LONG CONSTANT ATR$C_READACL = 37  !  READ THE ENTIRE ACL 
      DECLARE LONG CONSTANT ATR$C_ACLLENGTH = 38  !  RETURN THE LENGTH OF THE ACL
      DECLARE LONG CONSTANT ATR$C_READACE = 39  !  READ A SINGLE ACE
      DECLARE LONG CONSTANT ATR$C_RESERVED = 40  !  MODIFY RESERVED AREA
      DECLARE LONG CONSTANT ATR$C_HIGHWATER = 41  !  HIGHWATER MARK (USER READ ONLY)    
      DECLARE LONG CONSTANT ATR$C_DUMMY_0 = 42  !  *** AVAILABLE CODE
      DECLARE LONG CONSTANT ATR$C_PRIVS_USED = 43  !  PRIVILEGES USED TO GAIN ACCESS
      DECLARE LONG CONSTANT ATR$C_MATCHING_ACE = 44  !  ACE USED TO GAIN ACCESS (IF ANY)
      DECLARE LONG CONSTANT ATR$C_ACCESS_MODE = 45  !  ACCESS MODE FOR FOLLOWING ATTRIBUTE DESCRIPTORS
      DECLARE LONG CONSTANT ATR$C_FILE_SPEC = 46  !  CONVERT FID TO FILE-SPEC
      DECLARE LONG CONSTANT ATR$C_CLASS_MASK = 47  !  Non-discretionary classification mask
      DECLARE LONG CONSTANT ATR$C_BUFFER_OFFSET = 48  !  For magnetic tape only length of buffer offset of block in file
      DECLARE LONG CONSTANT ATR$C_RU_ACTIVE = 49  !  Recoverable facility id number (if non-zero, means file has
    !  active recovery units managed by that facility)
      DECLARE LONG CONSTANT ATR$C_GRANT_ACE = 50  !  ACE granting access
      DECLARE LONG CONSTANT ATR$C_NEXT_ACE = 51  !  Increment ACE number
      DECLARE LONG CONSTANT ATR$C_DELETE_ALL = 52  !  Delete the entire ACL 
      DECLARE LONG CONSTANT ATR$C_BACKUP_DONE = 53  !  Alter backup info in RMS journaling ACEs	
    !  ISO 9660 Descriptors
      DECLARE LONG CONSTANT ATR$C_EFFDATE = 54  !  ISO 9660 Backup Date
      DECLARE LONG CONSTANT ATR$C_RCDDATE = 55  !  ISO 9660 Recorded Date
      DECLARE LONG CONSTANT ATR$C_VD = 56   !  Volume Descriptor	
      DECLARE LONG CONSTANT ATR$C_PVD = 57  !  Primary Volume Descriptor	
      DECLARE LONG CONSTANT ATR$C_SVD = 58  !  Supplementary Volume Descriptor	
      DECLARE LONG CONSTANT ATR$C_VPD = 59  !  Volume Partition Descriptor	
      DECLARE LONG CONSTANT ATR$C_VDST = 60  !  Volume Descriptor Set Terminator	
      DECLARE LONG CONSTANT ATR$C_BOOT = 61  !  Boot Record	
      DECLARE LONG CONSTANT ATR$C_PTR = 62  !  Path Table Record	
      DECLARE LONG CONSTANT ATR$C_DIR = 63  !  Directory Record	
      DECLARE LONG CONSTANT ATR$C_XAR = 64  !  Extended Attribute Record	
    !  ISO 9660 Descriptors Fields
      DECLARE LONG CONSTANT ATR$C_VOLUME_ID = 65  !  Volume Identifier
      DECLARE LONG CONSTANT ATR$C_VOLUME_FLAGS = 66  !  Volume Flags
      DECLARE LONG CONSTANT ATR$C_ESCAPE_SEQUENCES = 67  !  Escape Sequences
      DECLARE LONG CONSTANT ATR$C_VOLUME_SET_ID = 68  !  Volume Set Identifier
      DECLARE LONG CONSTANT ATR$C_COPYRIGHT_FID = 69  !  Copyright File Identifier
      DECLARE LONG CONSTANT ATR$C_ABSTRACT_FID = 70  !  Abstract File Identifier 
      DECLARE LONG CONSTANT ATR$C_BIBLIOGRAPHIC_FID = 71  !  Bibliographic File Identifier 
      DECLARE LONG CONSTANT ATR$C_CACHE_SEQ = 72  !  Cache sequence number
      DECLARE LONG CONSTANT ATR$C_FILE_SYSTEM_INFO = 73  !  File system structure level
      DECLARE LONG CONSTANT ATR$C_FILE_ATTR_CACHING_POLICY = 74  !  F64 caching only
      DECLARE LONG CONSTANT ATR$C_FILE_DATA_CACHING_POLICY = 75  !  F64 caching only
      DECLARE LONG CONSTANT ATR$C_CACHING_OPTIONS = 76  !  Spiralog/VDC caching options
      DECLARE LONG CONSTANT ATR$C_POSIX_DATA = 77  !  POSIX private data area
      DECLARE LONG CONSTANT ATR$C_ACCDATE = 78  !  ODS-5 last access time
      DECLARE LONG CONSTANT ATR$C_ATTDATE = 79  !  ODS-5 last attribute mod time
      DECLARE LONG CONSTANT ATR$C_LENGTH_HINT = 80  !  ODS-5 file length hint area
      DECLARE LONG CONSTANT ATR$C_EX_RECATTR = 81  !  ODS-5 extended RMS attributes - Reserved
    !  to Digital for future use.  Must be zero.
      DECLARE LONG CONSTANT ATR$C_EXTFLAGS = 82  !  PATHWORKS MS-DOS flags
      DECLARE LONG CONSTANT ATR$C_MODDATE = 83  !  ODS-5 last data mod time
      DECLARE LONG CONSTANT ATR$C_LINKCOUNT = 84  !  ODS-5 (hard) link count
      DECLARE LONG CONSTANT ATR$C_SYMLINK = 85  !  ODS-5 symlink data
    !  All new attributes should be
    !   added here before MAX_PLUS1
      DECLARE LONG CONSTANT ATR$C_MAX_PLUS1 = 86  !  Maximum code plus one 
      DECLARE LONG CONSTANT ATR$C_MAX_CODE = 85
      DECLARE LONG CONSTANT ATR$C_FNDACETYP = 35
    !  Valid values for ATR$C_CACHING_POLICY
      DECLARE LONG CONSTANT ATR$C_CACHE_POLICY_WRITETHRU = 1
      DECLARE LONG CONSTANT ATR$C_CACHE_POLICY_WRITEBACK = 2
      DECLARE LONG CONSTANT ATR$C_CACHE_POLICY_DEFAULT = 3
    !  ATTRIBUTE MAXIMUM LENGTHS 
      DECLARE LONG CONSTANT ATR$S_UCHAR = 4  !  4 BYTE USER FILE CHARACTERISTICS 
      DECLARE LONG CONSTANT ATR$S_RECATTR = 32  !  32 BYTES RECORD ATTRIBUTES 
      DECLARE LONG CONSTANT ATR$S_FILNAM = 6  !  6 BYTE RAD-50 FILE NAME 
      DECLARE LONG CONSTANT ATR$S_FILTYP = 2  !  2 BYTE RAD-50 FILE TYPE 
      DECLARE LONG CONSTANT ATR$S_FILVER = 2  !  2 BYTE BINARY FILE VERSION 
      DECLARE LONG CONSTANT ATR$S_EXPDAT = 7  !  7 BYTE ASCII EXPIRATION DATE 
      DECLARE LONG CONSTANT ATR$S_STATBLK = 32  !  32 BYTE STATISTICS BLOCK 
      DECLARE LONG CONSTANT ATR$S_HEADER = 512  !  512 BYTE FILE HEADER 
      DECLARE LONG CONSTANT ATR$S_BLOCKSIZE = 2  !  MAGTAPE BLOCK SIZE 
      DECLARE LONG CONSTANT ATR$S_USERLABEL = 80  !  USER FILE LABEL 
      DECLARE LONG CONSTANT ATR$S_ASCDATES = 35  !  REVISION COUNT THRU EXP DATE IN ASCII 
      DECLARE LONG CONSTANT ATR$S_ALCONTROL = 14  !  COMPATIBILITY MODE ALLOCATION DATA 
      DECLARE LONG CONSTANT ATR$S_ENDLBLAST = 4  !  END OF MAGTAPE LABEL PROCESSING AND SUPPLY AST CONTROL BLOCK 
      DECLARE LONG CONSTANT ATR$S_ASCNAME = 252  !  FILE NAME, TYPE ? VERSION
      DECLARE LONG CONSTANT ATR$S_CREDATE = 8  !  64 BIT CREATION DATE 
      DECLARE LONG CONSTANT ATR$S_REVDATE = 8  !  64 BIT REVISION DATE 
      DECLARE LONG CONSTANT ATR$S_EXPDATE = 8  !  64 BIT EXPIRATION DATE 
      DECLARE LONG CONSTANT ATR$S_BAKDATE = 8  !  64 BIT BACKUP DATE 
      DECLARE LONG CONSTANT ATR$S_UIC = 4   !  4 BYTE FILE OWNER UIC 
      DECLARE LONG CONSTANT ATR$S_FPRO = 2  !  2 BYTE FILE PROTECTION 
      DECLARE LONG CONSTANT ATR$S_RPRO = 2  !  2 BYTE RECORD PROTECTION 
      DECLARE LONG CONSTANT ATR$S_ACLEVEL = 1  !  1 BYTE FILE ACCESS LEVEL 
      DECLARE LONG CONSTANT ATR$S_SEMASK = 8  !  FILE SECURITY MASK AND LIMIT 
      DECLARE LONG CONSTANT ATR$S_UIC_RO = 4  !  READ ONLY UIC 
      DECLARE LONG CONSTANT ATR$S_DIRSEQ = 2  !  DIRECTORY UPDATE SEQUENCE COUNT 
      DECLARE LONG CONSTANT ATR$S_BACKLINK = 6  !  FILE BACK LINK POINTER 
      DECLARE LONG CONSTANT ATR$S_JOURNAL = 1  !  JOURNAL CONTROL FLAGS 
      DECLARE LONG CONSTANT ATR$S_HDR1_ACC = 1  !  ANSI TAPE HEADER 1 ACCESSIBILITY 
    !   CHARACTER
      DECLARE LONG CONSTANT ATR$S_ADDACLENT = 255  !  ADD AN ACCESS CONTROL ENTRY 
      DECLARE LONG CONSTANT ATR$S_DELACLENT = 255  !  REMOVE AN ACCESS CONTROL ENTRY 
      DECLARE LONG CONSTANT ATR$S_MODACLENT = 255  !  MODIFY AN ACL ENTRY 
      DECLARE LONG CONSTANT ATR$S_FNDACLENT = 255  !  LOCATE AN ACL ENTRY 
      DECLARE LONG CONSTANT ATR$S_FNDACLTYP = 255  !  FIND A SPECIFIC TYPE OF ACE 
      DECLARE LONG CONSTANT ATR$S_FNDACETYP = 255  !  FIND A SPECIFIC TYPE OF ACE 
      DECLARE LONG CONSTANT ATR$S_DELETEACL = 255  !  DELETE ACL LEAVING PROTECTED
      DECLARE LONG CONSTANT ATR$S_READACL = 512  !  READ THE ENTIRE ACL 
      DECLARE LONG CONSTANT ATR$S_ACLLENGTH = 4  !  RETURN THE LENGTH OF THE ACL
      DECLARE LONG CONSTANT ATR$S_READACE = 255  !  READ A SINGLE ACE
      DECLARE LONG CONSTANT ATR$S_RESERVED = 380  !  MODIFY RESERVED AREA
      DECLARE LONG CONSTANT ATR$S_HIGHWATER = 4  !  FILE HIGH WATER MARK (USER READ ONLY)    
      DECLARE LONG CONSTANT ATR$S_DUMMY_0 = 4  !  *** AVAILABLE CODE
      DECLARE LONG CONSTANT ATR$S_PRIVS_USED = 4  !  PRIVS USED TO GAIN ACCESS
      DECLARE LONG CONSTANT ATR$S_MATCHING_ACE = 255  !  ACE USED TO GAIN ACCESS
      DECLARE LONG CONSTANT ATR$S_ACCESS_MODE = 1  !  ACCESS MODE FOR FOLLOWING ATTRIBUTE DESCRIPTORS
      DECLARE LONG CONSTANT ATR$S_FILE_SPEC = 4098  !  CONVERT FID TO FILE-SPEC
      DECLARE LONG CONSTANT ATR$S_CLASS_MASK = 20  !  Non-discretionary classification mask
      DECLARE LONG CONSTANT ATR$S_BUFFER_OFFSET = 2  !  Buffer offset length field
      DECLARE LONG CONSTANT ATR$S_RU_ACTIVE = 1  !  Recoverable facility id if RUs active
      DECLARE LONG CONSTANT ATR$S_GRANT_ACE = 255  !  ACE granting access
      DECLARE LONG CONSTANT ATR$S_NEXT_ACE = 4  !  Increment ACE number
      DECLARE LONG CONSTANT ATR$S_DELETE_ALL = 255  !  Delete the entire ACL 
      DECLARE LONG CONSTANT ATR$S_BACKUP_DONE = 1  !  Alter backup info in RMS journaling ACEs
    !  ISO 9660 Descriptors
      DECLARE LONG CONSTANT ATR$S_EFFDATE = 8  !  64 BIT EFFECTIVE DATE
      DECLARE LONG CONSTANT ATR$S_RCDDATE = 8  !  64 BIT RECORDED DATE 
      DECLARE LONG CONSTANT ATR$S_VD = 7    !  Volume Descriptor	
      DECLARE LONG CONSTANT ATR$S_PVD = 1395  !  Primary Volume Descriptor	
      DECLARE LONG CONSTANT ATR$S_SVD = 1395  !  Supplementary Volume Descriptor	
      DECLARE LONG CONSTANT ATR$S_VPD = 88  !  Volume Partition Descriptor	
      DECLARE LONG CONSTANT ATR$S_VDST = 7  !  Volume Descriptor Set Terminator	
      DECLARE LONG CONSTANT ATR$S_BOOT = 71  !  Boot Record	
      DECLARE LONG CONSTANT ATR$S_PTR = 45  !  Path Table Record	
      DECLARE LONG CONSTANT ATR$S_DIR = 512  !  Directory Record	
      DECLARE LONG CONSTANT ATR$S_XAR = 512  !  Extended Attribute Record	
    !  ISO 9660 Descriptors Fields
      DECLARE LONG CONSTANT ATR$S_VOLUME_ID = 32  !  Volume Identifier
      DECLARE LONG CONSTANT ATR$S_VOLUME_FLAGS = 1  !  Volume Flags
      DECLARE LONG CONSTANT ATR$S_ESCAPE_SEQUENCES = 32  !  Escape Sequences
      DECLARE LONG CONSTANT ATR$S_VOLUME_SET_ID = 128  !  Volume Set Identifier
      DECLARE LONG CONSTANT ATR$S_COPYRIGHT_FID = 37  !  Copyright File Identifier
      DECLARE LONG CONSTANT ATR$S_ABSTRACT_FID = 37  !  Abstract File Identifier 
      DECLARE LONG CONSTANT ATR$S_BIBLIOGRAPHIC_FID = 37  !  Bibliographic File Identifier 
      DECLARE LONG CONSTANT ATR$S_CACHE_SEQ = 8  !  Cache sequence number
      DECLARE LONG CONSTANT ATR$S_FILE_SYSTEM_INFO = 2  !  file system structure level
      DECLARE LONG CONSTANT ATR$S_FILE_ATTR_CACHING_POLICY = 1  !  F64 caching only
      DECLARE LONG CONSTANT ATR$S_FILE_DATA_CACHING_POLICY = 1  !  F64 caching only
      DECLARE LONG CONSTANT ATR$S_POSIX_DATA = 64  !  F64 caching only
      DECLARE LONG CONSTANT ATR$S_CACHING_OPTIONS = 4  !  Spiralog/VDC caching options
      DECLARE LONG CONSTANT ATR$S_ACCDATE = 8  !  ODS-5 last access time
      DECLARE LONG CONSTANT ATR$S_ATTDATE = 8  !  ODS-5 last attribute mod time
      DECLARE LONG CONSTANT ATR$S_LENGTH_HINT = 16  !  ODS-5 file length hint area
      DECLARE LONG CONSTANT ATR$S_EX_RECATTR = 8  !  ODS-5 extended RMS attributes
      DECLARE LONG CONSTANT ATR$S_EXTFLAGS = 2  !  PATHWORKS MS-DOS flags
      DECLARE LONG CONSTANT ATR$S_LINKCOUNT = 2  !  ODS-5 (hard) link count
      DECLARE LONG CONSTANT ATR$S_MODDATE = 8  !  ODS-5 last data mod time
      DECLARE LONG CONSTANT ATR$S_SYMLINK = 1024  !  ODS-5 symlink data
      DECLARE LONG CONSTANT ATR$S_ATRDEF = 8
      record ATRDEF
         WORD ATR$W_SIZE                    !  SIZE OF ATTRIBUTE IN BYTES 
         WORD ATR$W_TYPE                    !  ATTRIBUTE TYPE CODE 
         LONG ATR$L_ADDR                    !  ADDRESS OF ATTRIBUTE TEXT 
    !  ATTRIBUTE CODES 
      end record ATRDEF
    
    !  Define fields and constant values for ATR$_CACHING_OPTIONS longword.
    !  These must match [STARLET]FIBDEF.SDL exactly
      DECLARE LONG CONSTANT ATR$M_FILE_ATTRIBUTES = x'0000000F'
      DECLARE LONG CONSTANT ATR$M_FILE_CONTENTS = x'000000F0'
      DECLARE LONG CONSTANT ATR$C_DEFAULT = 0
      DECLARE LONG CONSTANT ATR$C_WRITETHROUGH = 1
      DECLARE LONG CONSTANT ATR$C_WRITEBEHIND = 2
      DECLARE LONG CONSTANT ATR$C_NOCACHING = 3
      DECLARE LONG CONSTANT ATR$M_FLUSH_ON_CLOSE = x'00000F00'
      DECLARE LONG CONSTANT ATR$C_FLUSH = 1
      DECLARE LONG CONSTANT ATR$C_NOFLUSH = 2
      DECLARE LONG CONSTANT ATR$M_CACHING_OPTIONS_MBZ = x'FFFFF000'
      DECLARE LONG CONSTANT ATR$S_ATR_CACHING_OPTIONS_FLAGS = 4
      record ATR_CACHING_OPTIONS_FLAGS
         LONG FILE_ATTRIBUTES_bits   ! COMMENT ADDED BY SDL - FILE_ATTRIBUTES_bits contains bits FILE_ATTRIBUTES through  &
 ! CACHING_OPTIONS_MBZ
      end record ATR_CACHING_OPTIONS_FLAGS
    
    !  Define fields and constant values for ATR$_FILESYSTEM_INFO word.
    !  These must match [LIB]F11DEF.SDL exactly
      DECLARE LONG CONSTANT ATR$C_ODS1 = 1
      DECLARE LONG CONSTANT ATR$C_ODS2 = 2
      DECLARE LONG CONSTANT ATR$C_ODS64 = 64
      DECLARE LONG CONSTANT ATR$S_ATR_FILESYSTEM_INFO_FIELD = 2
      record ATR_FILESYSTEM_INFO_FIELDS
         BYTE ATR$B_STRUCVER
         BYTE ATR$B_STRUCLEV
      end record ATR_FILESYSTEM_INFO_FIELDS