*COMDECK  PFCELLS 
          CTEXT - PFCELLS  PFM STORAGE DEFINATIONS
****
**        PFCELLS COMDECK 
* 
* 
*         CODE IS CONDITIONALLY ASSEMBLED DEPENDENT 
*         ON FOLLOWING FUNCTION DEFINITIONS 
* 
*            ATTACH - PFA,2PA 
*            CATALOG - PFC
*            CATALOG2 - 1FC 
*            EXTEND - PFE 
*            LOA - LPF
*            RENAME - PFR 
*            SETP - PFS 
*            TPTDEF - TPT 
* 
*                            THIS-ID PLUS 1 IS *CALL COMPBOT
*CALL COMPBOT 
  
  
BUF       BSSZ   5
SCHED     BSSZ   1
* 
FLAGS     BSSZ   1                 FLAG FOR STACK REQUEST-FNT-FET 
ORDER     BSSZ   1                 READ/WRITE/BKSP ORDER-O ADP,O.WRP,O.BPRU 
PSEUBF    BSSZ   1                 FWA BYTE IN REQUEST STACK ENTRY
REQTAB    BSSZ   3                 BYTES 0,1,2-1ST REQUEST STACK ENT WORD 
PRBR      BSSZ   5                 CONTAINS CMR WORD P.RBR/P.RBT
PRBT      EQU    PRBR 
  
          IFNONE (ATTACH,CATALOG2),1
SWAP      BSSZ   1
  
PRBT      EQU    PRBR 
          IFNONE (EXTEND,CATALOG2),1
PRUSLOT   DATA   7777B             SLOT PRU INDEX 
  
          IFNONE (ATTACH,LOA,EXTEND),1
NOPRU     BSSZ   1
          IFNONE (ATTACH,LOA,EXTEND,RENAME),1 
PRUS      BSSZ   1
  
          IFNONE (ATTACH,EXTEND,CATALOG2),1 
NASLOT    BSSZ   1
          IFNONE (ATTACH,EXTEND,CATALOG2,RENAME),1
PRUINDEX  BSSZ   1
CYMATCH   BSSZ   1                 SLOT OF MATCHED CYCLE NO.
          IF     -DEF,LOA,4 
          IF     -DEF,LOA,4 
          IF     DEF,RENAME,1 
CYNUM     BSSZ    1                CYCLE NUMBER OF PFC ENTRY            1400   9
  
          IFNONE (ATTACH,RENAME),1
RBTCSZ    BSSZ   1                 TOTAL LENGTH OF RBTC ENTRY 
  
          IFNONE (EXTEND,RENAME),1
DEVTYPE   BSSZ   1
          IF     -DEF,EXTEND,1
FRBT      BSSZ   1                 FIRST RBT ADDR OF FILE 
RBTA      BSSZ   1
RBTO      BSSZ   1
TCOUNT    EQU    RBTO 
PRU       BSSZ   1
          IFNONE (ATTACH,CATALOG,RENAME),1
RBSIZE    BSSZ   1
          IF     -DEF,CATALOG2,1
JTEMP3    BSSZ   1
          IFNONE (RENAME),1 
MULTIPRU  BSSZ   1
          IFNONE (ATTACH,LOA,EXTEND,CATALOG2),1 
ENTCSAVE  BSSZ   1
          IF     DEF,CATALOG2,1 
SETATTR   BSSZ   1
          IFNONE (EXTEND,CATALOG2),1
EMAPFO    BSSZ   1                 ORDINAL OF RESERVED EMPTY SLOT IN APF
          IFNONE (EXTEND,CATALOG2,RENAME),1 
APFORD    BSSZ   1
PFMIL     BIT    S.MSPFMI 
UTIL      BIT    S.MSUTIL 
  
          IFNONE (ATTACH,EXTEND,CATALOG2,RENAME),1
LPFMR     BSSZ   1
  
          IFNONE (EXTEND,CATALOG2),1
FRB       BSSZ   1
          IFNONE (ATTACH,EXTEND,CATALOG2,RENAME),1
ENTRIES   BSSZ   1
          IFNONE (ATTACH,EXTEND,RENAME),1 
PASTRBT   DATA   7777B
PASSWDS   EQU    7777B-5*5         ADDRESS OF HIGH CORE STORAGE AREA
*                                  USED BY PFC-1FC TO PASS PASSWORDS
          SPACE  3
RBTCPT    EQU    RBTC 
  
XYZ       IF     -DEF,EXTEND
RBTWRD    EQU    D.FNT
XYZ       ENDIF 
  
QQQ       IF     DEF,RENAME 
MODE      EQU    UFNT              **EQUATE TO SAVE MODE IN EVENT STACK*
QQQ       ENDIF 
          SPACE  3
LOAD      IF     DEF,LOA
  
PWBUF     BSSZ   5*5               PASSWORD BUFFER
JTAB      BSSZ   20D               LPF COMMUNICATION BLOCK
VSN1      BSSZ   5                 VSN-S (TAPE) 
VSN2      BSSZ   5
TAPEFNT   BSSZ   1                 TAPE FNT ADDRESS 
          BSSZ   3
NUMPRUS   BSSZ   1                 NUMBER OF PRU-S READ FROM TAPE 
*                                    INTO CP BUFFER 
  
LOAD      ENDIF 
          SPACE  3
  
*         TABLE OF POINTERS TO PFD ENTRIES
PTRTBL    IFANY  (CATALOG,RENAME,LOA) 
  
PTRTBL    BSS    0
  
HASHPTR   BSSZ   2                 POINTER TO HASH POINT
ENTRYPTR  BSSZ   2                 POINTER TO ENTRY WITH MATCHING PFN/ID
EMPTYPTR  BSSZ   2                 POINTER TO FIRST EMPTY ENTRY 
LASTPTR   BSSZ   2                 POINTER TO LAST ENTRY IN A SD
FLAGPTR   BSSZ   2                 POINTER TO ENTRY WITH S.PDESD SET
PTRTBL    ENDIF 
  
*         TABLES USED FOR ISSUING DAYFILE MESSAGES
  
DFM       IF     DEF,CATALOG
NUMMSG    EQU    5                 NUM OF DAYFILE MESSAGES IN TABLE 
DFMFLAG   BSSZ   NUMMSG 
MSGTBL    CON    MESS1             NEW CYCLE MSG
          CON    MESS2             INITIAL CYCLE MSG
          CON    MESS8             CY NUM ALREADY IN USE MSG
          CON    MESS6             INVALID CY NUM MSG 
          CON    MESS13            PF CYCLE NUM MSG 
DFM       ENDIF 
DFM       IF     DEF,RENAME 
NUMMSG    EQU    4                 NUM OF DAYFILE MESSAGES IN TABLE 
DFMFLAG   BSSZ   NUMMSG 
MSGTBL    CON    MESS6             INVALID CY NUM MSG 
          CON    MESSR30           RP TOO LARGE MSG 
          CON    MESS7             ID-PFN PAIR ALREADY EXIST MSG
          CON    MESSR8            INCOMPLETE CYCLE MSG 
DFM       ENDIF 
****
**        END OF PFCELLS
 PFCELLS  ENDX
