*COMDECK COMPBOT
          CTEXT  COMPBOT
**        COMPBOT COMDECK 
*         THESE ARE LOCATIONS REFERENCED BY ALL PF ROUTINES INCLUDING 
*         6PM AND 1PD.  THEY ARE RESTRICTED BY 1PD, WHICH ORIGINS AT
*         1100B.
          IFNE   *L,1002B,1 
          ERR    COMPBOT CELLS NOT IN RIGHT PLACE.
UFNT      BSSZ   1
RBTC      BSSZ   5
INTRLOCK  BSS    0
PFMI      BSSZ   1
RETADDR   BSSZ   1
          IF     -DEF,ATTACH,1
PFDHDR    VFD    12/-0,24/4LPFD4,12/0,12/10B
          IF     -DEF,ATTACH,1
SUBD      EQU    PFDHDR+3 
          IF     DEF,ATTACH,6 
PFDHDR    BSS    0
FUNCT     BSSZ   1                 PFA FUNCTION CODE SAVE AREA
SETATTR   BSSZ   1                 FLAG BYTE FROM FIRST WORD OF MST 
NASLOT    BSSZ   1
SUBD      BSSZ   1                 SUBDIRECTORY NUMBER
PRUINDEX  BSSZ   1
OWNER     BSSZ   5
PFN       BSSZ   20                PFN = PERMANENT FILE NAME
          DATA   0
          IF     -DEF,LOA,1 
LFN       BSSZ   5                 LFN = LOCAL FILE NAME
          SPACE  1
*         PFDHDR THRU LFN MUST BE TOGETHER FOR PFC
          SPACE  1
PERM      BSSZ   1
PPFM1     BSSZ   5
  
XUB       IF     DEF,LOA
DUMFNT    DATA   3232B,3232B,3220B,2700B,0000B    ZZZZZPW 
APFO      EQU    DUMFNT+C.FAPF
XUB       ELSE
APFO      BSSZ   1
XUB       ENDIF 
  
MSTORD    BSSZ   1
MFORD     BSSZ   1                 MAINFRAME ORDINAL IN MST 
STRI      BSSZ   1                 INTERNAL SR I/L FLAG 
FUNCT1    BSSZ   1                 FUNCTION CODE SAVE AREA
  
          IFGT   *,1100B,1
          ERR    COMMON CELLS GO TOO HIGH FOR 1PD.
*                * END OF COMPBOT * 
          ENDX
