*COMDECK  TABLES
          CTEXT  TABLES - PERMANENT FILE TABLES.
  
*         BITS DEFINED FOR FLAG BYTE IN P.PFM1
  
UTILMSK   BIT    4
TRANMSK   BIT    6
  
QF        IF     -DEF,QFILE 
*         SYMBOLS FOR BITS IN FLAG BYTE OF APF
  
RSVFLAG   BIT    0                 BIT FOR RESERVED EMPTY SLOT IN APF 
RBIT      BIT    0                 BIT TO PREVENT PRIORITY LOCKOUT
WBIT      BIT    1                 SINGLE WRITE BIT 
MBIT      BIT    2                 SINGLE MODIFY
EABIT     BIT    3                 EXCLUSIVE ACCESS BIT 
CBIT      BIT    4                 SET IF FILE HAS AN RB CONFLICT 
IBIT      BIT    5                 INTERLOCK BIT
S.APOM    EQU    6
APOM      BIT    S.APOM            ATTACHED ON OTHER MF 
WOMFDLY   EQU    S.APOM+5000B      WAIT ON OTHER MF DELAY 
ABIT      BIT    7                 ARCHIVE BIT
OBIT      BIT    8                 OBSOLETE FIRST RBT ADDR. BIT 
SBIT      BIT    9                 ATTACHED SYSTEM PF 
FBIT      BIT    10                FULL DUMP INDICATOR BIT
  
          SPACE  4,20 
**        PFD    PERMANENT FILE DIRCTORY
* 
*         THE PFD RESIDES ON THE MASTER DEVICE AND IS POINTED TO BY THE 
*         LABEL.  IT IS DIVIDED INTO SUBDIRECTORIES WHOSE SIZE AND
*         NUMBER ARE ALSO DEFINED IN THE MASTER LABEL.  EACH PERMANENT
*         FILE RECORDED IN THE DIRECTORY HAS A HASH VALUE DERIVED FROM
*         THE ID OF THE FILE.  THIS HASH VALUE WILL SIGNIFY WHICH 
*         SUBDIRECTORY THE FILE WILL BE ASSOCIATED WITH.  THE POSITION
*         OF THE BEGINING OF EACH SUBDIRECTORY IS A CLUSTER POINT 
*         FOR FILES BELONGING TO THAT SUBDIRECTORY. 
  
PWLNG     EQU    16D               LENGTH OF PFD ENTRY,CM WORDS 
PFDHDR0   EQU    7777B
PFDHDR1   EQU    2RPF 
PFDHDR2   EQU    2RD4 
PLNGTH    EQU    PWLNG*5           LENGTH OF PFD ENTRY,BYTES
PFLAGS    EQU    C.PDFLAG          PFD FLAG BYTE IN HEADER
PSUBD     EQU    3D                SUBD NO. STORED IN HEADER
EUFLAG    BIT    S.PFDEU           ENTRY IN USE FLAG MASK 
          IF     DEF,S.PDESD,1
PDESD     BIT    S.PDESD
C.PDMFO   EQU    1                 MAINFRAME SIGNATURE BYTE 
C.PDCYF   EQU    2                 PFD FLAG BYTE
S.PDPE    EQU    0                 PARITY ERROR FLAG
S.PDAC    EQU    1                 ARCHIVE FLAG 
S.PDIC    EQU    2                 INCOMPLETE FLAG
S.PDDUM   EQU    3                 DUMP FLAG
PE        BIT    S.PDPE 
ARC       BIT    S.PDAC 
IC        BIT    S.PDIC 
DM        BIT    S.PDDUM
CTFLAG    EQU    4                 UTILITIES FLAG 
PID       EQU    5                 OWNER-ID 
PPFN      EQU    10                PERM FILE NAME,20 BYTES
PCYNUM    EQU    30                CYCLE NUMBERS,5 BYTES
PMFORD    EQU    31                MAINFRAME ORDINAL
MMFID     EQU    31                MMF IDENTIFIER 
PDFLAG    EQU    32                CYCLE FLAGS
PCYPT     EQU    33                CYCLE POINTERS,2 BYTES 
PWTK      EQU    55                TURNKEY  PASSWORD
PWCNTL    EQU    60                CONTROL  PASSWORD
PWMOD     EQU    65                MODIFY   PASSWORD
PWEXTND   EQU    70                EXTEND PASSWORD
PWREAD    EQU    75                READ PASSWORD
          SPACE  4,20 
QF        ENDIF 
**        PFC    PERMANENT FILE CATALOG OR  RBT CATALOG (RBTC)
* 
*                EACH CYCLE HAS AN RBTC ENTRY WHICH HAS 
*                STATISTICAL INFORMATION AND INFORMATION
*                AS TO THE LOCATION OF THE FILE WHETHER IT BE 
*                ON TAPE OR DISK.  IF THE FILE RESIDES ON DISK, THE PFC 
*                CONTAINS THE RECORD OF WHERE THE FILE IS LOCATED.
  
          IFNONE (ATTACH,RENAME),1
RBTCHDR   VFD    24/-0,24/4LRBTC,12/4 
  
RPMAX     EQU    IP.RPMAX 
RPMAX     DECMIC RPMAX,3
  
IPPFRP    DECMIC IP.PFRP,3
  
  
HDRSIZE   EQU    12D+11D+20D+2
HDRSIZE   CEQU   61D               MAXIMUM PFC HEADER SIZE (CM WORDS) 
  
RHEAD     EQU    12D               PFC FIXED HEADER LENGTH (CM WORDS) 
CLNGTH    EQU    RHEAD*5           PFC FIXED HEADER LENGTH (BYTES)
L.PFMR    CEQU   11                CDC SYSTEM SLOT IN PFC ENTRY 
  
  
          IFGT   RHEAD+L.PFMR+IP.US,HDRSIZE-2,1 
          ERR    * * *   IP.US IS TOO LARGE   * * * 
  
  
EXRBTC    EQU    0                 NUMBER OF SPARE RBT WRD PAIRS
CEF       BIT    1                 ENTRY FREE FALG (WORD 0 OF THE PRU)
CABIT     BIT    4
S.PFCPLO  EQU    0                 PRIORITY LOCKOUT BIT IN PFC I/L BYTE 
S.PFCSW   EQU    1                 WRITE BIT IN PFC INTERLOCK BYTE
S.PFCSM   EQU    2                 MODIFY BIT IN PFC INTERLOCK BYTE 
S.PFCEA   EQU    3                 EXCLUSIVE ACCESS BIT IN PFC I/L BYTE 
S.PFCU    EQU    6                 UTILITY BIT IN PFC INTERLOCK BYTE
S.PFCORB  EQU    8D                OBSOLETE RBT BIT IN PFC I/L BYTE 
S.PFCAT   EQU    10D               ATTACH BIT IN PFC INTERLOCK BYTE 
PFCPLO    BIT    S.PFCPLO 
PFCSW     BIT    S.PFCSW
PFCSM     BIT    S.PFCSM
PFCEA     BIT    S.PFCEA
PFCU      BIT    S.PFCU 
PFCORB    BIT    S.PFCORB 
PFCAT     BIT    S.PFCAT
 CCYC     EQU    0           BYTE IN WORD 7 THAT CONTAINS THE CYCLE NUM 
CFLAG     EQU    C.PCFLAG          RBTC FLAG BYTE IN HEADER 
CID       EQU    5                 OWNER ID 
CRBTDAM   EQU    5                 DAM ORDINAL IN SET PFC CHAINS
CPFN      EQU    10                PERMANENT FILE NAME,4 WORDS
CPFDPT    EQU    33                PFD POINTER, 2 BYTES 
CCYCLE    EQU    30                CYCLE NUMBER 
CCDATE    EQU    35                CREATION DATE,3 BYTES
CRETN     EQU    38                RETENTION PERIOD,1 BYTE
CEST      EQU    39                EST ORDINAL,1 BYTE 
CLDATE    EQU    40                DATE OF LAST ACCESS,3 BYTES
CLTIME    EQU    43                TIME OF LAST ACCESS,2 BYTES
CMDATE    EQU    45                DATE OF LAST ALTERATION,3 BYTES
CLMTIME   EQU    48                TIME OF LAST ALTERATION,2 BYTES
CNA       EQU    50                NUMBER OF ATTACHES 
CNE       EQU    51                NUMBER OF EXTENDS
CNAR      EQU    CNA
CNAE      EQU    CNE
CNR       EQU    52                NUMBER OF REWRITES/ALTERS
CWLENG    EQU    53                LENGTH OF ENTRY
CRPT      EQU    55                R-POINT TO CDC RESERVED AREA 
CSPT      EQU    56                S-POINT TO INSTALLATION AREA 
CTPT      EQU    57                T-POINT TO RBT CHAIN,1 BYTE
CSUBD     EQU    58                SUBD NUMBER
CACCNT    EQU    60                ACCOUNT PARAMETER
CDTVRN1   EQU    65                DUMP TAPE VRN NO.1 
CPOS      EQU    68                POSITION(PRUS),2 BYTES 
CDTVRN2   EQU    70                DUMP TAPE VRN NO.2 
CDDATE    EQU    80                DATE OF LAST DUMP,3 BYTES
CDTIME    EQU    83                TIME OF LAST DUMP,2 BYTES
CTKPW     EQU    85                TURNKEY PASSWORD 
CCNPW     EQU    90                CONTROL PASSWORD 
CMDPW     EQU    95                MODIFY PASSWORD
CEXPW     EQU    100               EXTEND PASSWORD
CRDPW     EQU    105               READ PASSWORD
CPFCIL    EQU    110D              PFC INTERLOCK WORD 
  
**        END OF TABLES 
          ENDX
