*COMDECK  PREAMB
*         PREAMB COMDECK
* 
*         PREAMB DEFINES CONSTANTS AND VARIABLES USED BY PF ROUTINES
* 
*         CALLS  PFDC01, PFCELLS
* 
          ORG    C.PPFWA
* 
          LJM  PFMGR
*CALL PFCD01 PERMANENT FILE COMDECK 01 PF PPU MACROS
*CALL PFCELLS 
          CTEXT  PREAMB 
****
*         PF SYSTEM ERRORS
* 
*                IF IP.DEBUG=1 A BAD MONITOR REQUEST OF 77B IS
*                ISSUED, IF IP.DEBUG=0, THE JOB IS ABORTED
* 
CODE1     EQU    01B               *PFD ENTRY COUNT ERROR*
CODE2     EQU    02B               *RBTC ENTRY LENGTH IN ERROR* 
CODE3     EQU    03B               *CYCLE NOT FOUND*
CODE4     EQU    04B               *FIRST WORD OF RBTC PRU IN ERR*
CODE5     EQU    05B               *BAD PFD FNT*
CODE6     EQU    06B               *BAD RBTC FNT* 
CODE7     EQU    07B               *BAD STATUS RETURNED IN PFT FNT* 
CODE8     EQU    10B               *PURGE ON NOT IN USE ENTRY*
CODE9     EQU    11B               *BAD PFA CYCLE SEARCH* 
CODE10    EQU    12B               *SYSTEM ERROR,BAD FNT* 
CODE11    EQU    13B               *BAD PFD POINTER IN RBTC*
CODE12    EQU    14B               *BAD CY NO. IN RBTC* 
CODE13    EQU    15B               *INTERLOCK PROBLEM*
CODE14    EQU    16B               *BAD RBTC PTR* 
CODE15    EQU    17B               *DUPLICATE APF ENTRY*
CODE16    EQU    0                 (NOT USED) 
CODE17    EQU    21B               *ILL. FUNCTION ATTEMPT ON INC. CYCLE*
CODE18    EQU    22B               *CM CHAIN SHORTER THAN RBTC CHAIN* 
CODE19    EQU    23B               *RTB-RBTC CHAINS ARE NOT EQUAL*
CODE20    EQU    24B               *FNT ADDRESS INVALID*
CODE21    EQU    25B               *BAD PRU INDEX*
CODE22    EQU    26B               *BAD RBT POINTER*
CODE23    EQU    27B               *BAD CURRENT RB BYTE*
CODE24    EQU    30B               *RB SIZE EXCEEDED* 
CODE25    EQU    31B               *S.PDESD SET BEFORE LAST ENTRY*
CODE26    EQU    0                 (NOT USED) 
CODE27    EQU    0                 (NOT USED) 
CODE28    EQU    0                 (NOT USED) 
CODE29    EQU    0                 (NOT USED) 
CODE30    EQU    36B               *NO DUMFNT FNT*                      1550  11
CODE31    EQU    0                 (NOT USED) 
CODE32    EQU    0                 (NOT USED) 
CODE33    EQU    0                 (NOT USED) 
CODE34    EQU    0                 (NOT USED) 
CODE35    EQU    0                 (NOT USED) 
CODE36    EQU    0                 (NOT USED) 
CODE37    EQU    0                 (NOT USED) 
CODE38    EQU    0                 (NOT USED) 
CODE39    EQU    0                 (NOT USED) 
CODE40    EQU    50B               *VSN NOT IN SMT* 
CODE41    EQU    51B               *1ST WP BYTE COUNT IS NOT 3* 
CODE42    EQU    52B               *RBR ORDINAL OUT OF RANGE* 
CODE43    EQU    53B         *NO EST MATCH IN DDT*
CODE44    EQU    54B               *NO EST MATCH IN RBR*
CODE45    EQU    55B               *BAD DAM ORDINAL*
CODE46    EQU    56B               *BAD MST ORDINAL OR VSN* 
CODE47    EQU    57B               *NO CORRESPONDING RBR* 
****
          SPACE  4,20 
*         DIRECT CELL ASSIGNMENT
  
MFOADDR   EQU    D.SX7             ADDRESS OF PFC I/L BYTE IN PFC ENTRY 
FDB       EQU    D.FF3             FDB ADDRESS
TEMP      EQU    D.SX0             SCRATCH
TEMP1     EQU    D.SX1             SCRATCH
TEMP2     EQU    D.SX2             SCRATCH
SCRATCH   EQU    D.SV3             SCRATCH BYTE FOR LOW-LEVEL SUBS
POINT     EQU    D.TH2             PFD POINTER - FOUR BYTES 
STACKRE1  EQU    D.TH6             (D.TH6-D.FR2)
STACKRE2  EQU    D.FR3             (D.FR3-D.FR7)
RBTCIX    EQU    D.FF7             REL. PRU BYTE ADDR OF RBTC ENTRY 
TIME      EQU    D.SX4             DELAY STACK TIME 
COUNT     EQU    D.SX3
CYCLE     EQU    D.SX5             CYCLE NUMBER 
CPTFLGS   EQU    D.SX6
REMAIN    EQU    D.SV1             SCRATCH
ENTCOUNT  EQU    D.SV2             REL PRU ADDRESS OF PFD ENTRY (BYTES) 
          SPACE  4,12 
*         INTERLOCK DELAYS
* 
*                THOSE GREATER THAN 1000B ARE FOR GOING INTO EVENT
*                STACK. THOSE LESS THAN 1000B MAY CAUSE AN
*                INTERNAL DELAY OR AN ENTRY INTO THE DELAY STACK
  
PFMDLY    EQU    S.MSPFMI+1000B    BIT NUMBER OF PFM I/L
UTILDLY   EQU    S.MSUTIL+1000B    BIT NUMBER OF UTILITY I/L
FLAGDLY   EQU    5005B             WAIT ON APF FLAG IN APF ENTRY
RWDELAY   EQU    100               STACK PROCESSOR INTERFACE DELAY
*                                  USED IN SRPRU
MSTFLAGS  SPACE  4,15 
*         SYMBOLS FOR MST SET ATTRIBUTE BITS
  
 SYSSET   BIT    S.MSSYS-S.MSSYS
 DPFSET   BIT    S.MSDPF-S.MSSYS
 QSET     BIT    S.MSQ-S.MSSYS
 SCRSET   BIT    S.MSSCR-S.MSSYS
RBTFLAGS  SPACE  4,12 
*         SYMBOLS FOR RBT FLAG BYTE BITS
  
RBTDEV    BIT    S.RBTDEV 
RBTNEW    BIT    S.RBTNEW 
RBTOVF    BIT    S.RBTOVF 
RBTPFC    BIT    S.RBTPFC 
RBTPFD    BIT    S.RBTPFD 
RBTQ      BIT    S.RBTQ 
RBTRND    BIT    S.RBTRND 
RBTSAM    BIT    S.RBTSAM 
RBTSYS    BIT    S.RBTSYS 
RBTVSN    BIT    S.RBTVSN 
          SPACE  4,20 
****
* 
*         CPTFLGS   BIT MASKS 
* 
*                WHEN  PF  PP  ROUTINES CALL EACH OTHER THEY PASS 
*                THREE CM WORDS OF INFORMATION IN THEIR MESSAGE 
*                BUFFER. ONE BYTE CONTAINS FLAGS IT IS REFERENCED 
*                BY THE NAME CPTFLGS
* 
RELEASE   BIT    0                 RELEASE OLD RBT CHAIN AND RBS
*                                  ALSO USED BY PFA TO SIGNIFY ARC.RET. 
CHAINCM   BIT    1                 CHAIN IN CM
ARCHIVE   BIT    2                 ARCHIVE FILE - SET BY LPF FOR 1FC
* 
*   NOTE----- A CHANGE IN THE VALUES FOR EITHER ARCHIVE OR PARITY WILL
*             REQUIRE CODE TO BE CHANGED IN 1FC............ 
* 
INCOM     BIT    3                 INCOMPLETE CYCLE 
RAPFF     BIT    4
STIL      BIT    S.STIL 
ACTCNT    BIT    4
ACCOUNTF  BIT    5                 SET TO 1 IF ACCOUNTING REQUESTED     T10M  69
IGNRBIT   BIT    6                 IGNORE R BIT - HE"S BEEN IN QUE
PARITY    BIT    7                 PARITY FLAG FOR 1FC, SET BY LPF
PURPFN    BIT    8                  PURGE BY PFN
LPFCL     BIT    9                 LPF CLOSE
APFF      BIT    10                THIS ROUTINE SET APF FLAG IF=1 
LPFF      BIT    11                FLAGS HEADER IN BUFFER MODE
****
BUFLNG    EQU    320D              LENGTH OF BUFFER(1 PRU) IN BYTES 
PRULNG    EQU    64D               LENGTH OF BUFFER(1 PRU), CM WORDS
          IF     -DEF,LOA,1 
          IF     -DEF,LOA,1 
PUBLIC    VFD    54/6APUBLIC,6/14B
SYSTEM    VFD    54/6ASYSTEM,6/14B
          IF     DEF,LOA,1
TPFOLD    VFD    48/7LZZZZZOD 
          SPACE  4,20 
**
*         THE    INSTALLATION DEFINES TWO PASSWORDS-
* 
* 
*                THE UNIVERSAL PASSWORD-UNIV-WHICH IS USED TO 
*                GRANT THE PERMISSIONS SPECIFIED BY IP.UP 
*                THIS UNIVERSAL PASSWORD HAS MEANING ON PUBLIC
*                DEVICE SETS. EACH PRIVATE DEVICE SET HAS A UNIVERSAL 
*                PASSWORD(UV= ) STORED IN THE MASTER DEVICE LABEL.
* 
*                THE PUBLIC ID PASSWORD - IDPERM-WHICH GRANTS 
*                PERMISSION TO CATALOG A FILE WITH AN ID OF 
*                PUBLIC. THIS PUBLIC PASSWORD HAS MEANING ON PUBLIC 
*                DEVICE SETS. EACH PRIVATE DEVICE SET HAS A PUBLIC
*                PASSWORD(PB= ) STORED IN THE MASTER DEVICE LABEL.
  
 U        IFNONE (CATALOG2,LOA,EXTEND,RENAME) 
 UNIV     VFD    54/9RUNIVRPERM,6/0 
          ORG    UNIV+5 
 U        ENDIF 
          SPACE  4
 P        IFNONE (ATTACH,CATALOG2,LOA,EXTEND) 
 IDPERM   VFD    54/9RPBLICPERM,6/0 
          ORG    IDPERM+5 
 P        ENDIF 
  
C.JDLINK  EQU    C.JDLNK
W.JDLINK  EQU    W.JDLNK
  
          ENDX
