CALLCP
* /---   FILE TYPE = E
* /---   BLOCK      CALLCP     00 000   82/04/19  09.24 
          IDENT  CALLCP 
          SST    PPR
          SYSCOM
*COMMENT  CALL PLATO CPU COMMON DECKS.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
          TITLE  CALL PLATO CPU COMMON DECKS. 
          SPACE  3
*         REQUIRED EQUIVALENCES 
  
*CALL     SYSCON
*CALL     PLASMPC 
*CALL     PLASMRC 
*CALL     PLASRWX 
  
*         FOR PLACCFG 
  
 CFIG$    EQU    1
  
*         FOR PLACCFL 
  
 CFL$     EQU    1
  
*         FOR PLACMPI 
  
 INC$     EQU    1           ASSEMBLE CLEAR ROUTINE 
 INI$     EQU    1           ASSEMBLE INITIALIZE ROUTINE
 INL$     EQU    1           ASSEMBLE INTERLOCK ROUTINE 
 INR$     EQU    1           ASSEMBLE RECOVER ROUTINE 
 INV$     EQU    1           ASSEMBLE VERIFY ROUTINE
 GFR      EQU    GFR15       DEFINED IN PLASRWX 
 EFI      EQU    0
  
*         FOR PLACRCF 
  
 PMX$     EQU    1           PROCESS MAXIMUM VALUES 
 PNM$     EQU    1           PROCESS NUMERICAL VALUES 
 PON$     EQU    1           PROCESS ON / OFF VALUES
 PAL$     EQU    1           PROCESS SHORT ALPHA VALUES 
 PLA$     EQU    1           PROCESS LONG ALPHA VALUES
 NAG$     EQU    1           PROCESS NETWORK ADDR GROUPS
 PPR$     EQU    1           PROCESS PLF PRIORITIES 
  
 MAXNAG   EQU    1           MAXIMUM NETWORK ADDR GROUPS
  
*         FOR PLACSUB 
  
 OSLEV    EQU    "MODLEVEL" 
 JTLTH    EQU    1
 JSQSHF   EQU    1
 DSPBC    EQU    1
 DSPSY    EQU    1
  
*CALL     PLASGLB 
*CALL     COMCMAC 
  
  
*         FOR PLACSMD - SEE PSMDX FOR TRUE DEFINITION 
  
 FEATURE  MACRO 
          BSS    0
          ENDM
  
  
*         FOR PLACSUB - SEE MASTOR FOR THE TRUE DEFINITION
  
 FLAG     OPSYN  FEATURE
 X        OPSYN  FEATURE
 ENDOV    OPSYN  FEATURE
  
  
 TA0      MACRO  ADDR 
          SA0    ADDR 
          ENDM
  
  
 TA1      MACRO  BREG,ADDR
          SA1    BREG+ADDR
          ENDM
  
          LIST   F,X
*CALLALL  PLAC
          LIST   *
          TITLE  REQUIRED EQUIVALENCES
*         FOR PLACMPI 
  
 PID      EQU    *
 AINTTAB  EQU    *
 AINTTRC  EQU    *
 ECSPRTY  EQU    *           EM PARITY ERROR RECOVERY 
 A170     EQU    *           A170 FLAG
 SYSCLOK  EQU    *           REAL-TIME CLOCK
  
*         FOR PLACRCF 
  
 PLFNAG   EQU    *
 PLFNAGT  EQU    *
 PLFPRU   EQU    *
 PLFPRL   EQU    *
  
*         FOR PLACSEC 
  
 EM       EQU    *
          SPACE  3
*CALL     COMCCIO 
*CALL     COMCDXB 
*CALL     COMCRDC 
*CALL     COMCRDW 
*CALL     COMCSYS 
*CALL     COMCUPC 
  
*         FOR PLACSUB 
  
 DRQWK    EQU    *
 MASSUB   EQU    *
 PARAM1   EQU    *
 PARAM2   EQU    *
 PARAM3   EQU    *
 PARAM4   EQU    *
 PARAM5   EQU    *
 PARAM6   EQU    *
 PARAM7   EQU    *
 PARAM8   EQU    *
 PARAM9   EQU    *
 PARAM10  EQU    *
 PARAM11  EQU    *
 PARAM12  EQU    *
 PARAM13  EQU    *
 REQUEST  EQU    *
 AJOBTAB  EQU    *
 JOBTAB   EQU    *
 AJSQTAB  EQU    *
 II       EQU    *
 MASREQ   EQU    *
 FAMILY   EQU    *
 SUBNUM   EQU    *
 PASSW    EQU    *
 ARG1     EQU    *
 SUBUF    EQU    *
 SYOT3    EQU    *
 DSP      EQU    *
 DSPQ     EQU    *
 JINDEX   EQU    *
 SJINDEX  EQU    *
 WORK     EQU    *
          SPACE  3
          END