COMSMTR 
COMMON
          CTEXT  COMSMTR - MTR/CPUMTR EQUIVALENCES. 
 SMTR     SPACE  4
          BASE   M
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 SMTR     SPACE  4
***       COMSMTR - MTR/CPUMTR EQUIVALENCES.
*         G. R. MANSFIELD.  70/10/12. 
          SPACE  4,10 
***       *CPUMTR* LOW MEMORY LOCATIONS.
* 
*         LOCATIONS BEGIN AT *CPUMTR* RELATIVE LOCATION 0.  THE 
*         ABSOLUTE ADDRESS OF *CPUMTR* IS IN CMR WORD *CMTP*. 
* 
*T CBLP   60/ *CPUMTR* LOADED BLOCK TABLE FWA 
*T,CSXP   60/ SYSTEM CP EXCHANGE PACKAGE TABLE POINTER
*T,CXBP   60/ *EXPACS* BLOCK FWA
*T,CFPP   24/,6/ PPTL,6/ FPPTL,24/ FPPT FWA 
*T,CMST   2/1,5/,1/S,4/ FTN,48/ CPU 0 MONITOR MODE BASE TIME
*T,CMST+1 2/1,5/,1/S,4/ FTN,48/ CPU 1 MONITOR MODE BASE TIME
*T,CPBT   60/ CPU 0 PROGRAM MODE BASE TIME
*T,CPBT+1 60/ CPU 1 PROGRAM MODE BASE TIME
*T,CACX   12/ 0,20/ PB,28/
*T,CACX+1 12/ 0,20/ PB,28/
* 
*         PPTL = PREPROCESSOR TABLE LENGTH. 
*         FPPTL = FAST PP LOADER TABLE LENGTH.
*         FPPT FWA = FAST PP LOADER TABLE FWA.
*         S = 1 IF CPU SWITCH IN PROGRESS OR PERFORMED ON LAST EXIT 
*             FROM MONITOR MODE.
*         FTN = 0 IF CURRENT/LAST ENTRY INTO MONITOR MODE FROM CPU
*               EXCHANGE (OTHER THAN FROM THE PSEUDO-PP) OR *CCPF*
*               *MTR* FUNCTION. 
*             = *COMSMTR* OR *PPCOM* FUNCTION CODE IF CURRENT/LAST
*               ENTRY INTO MONITOR MODE FROM *MTR*, POOL PP, OR PSEUDO- 
*               PP EXCHANGE.
*         PB  = BIT MASK OF PP-S REQUESTING FUNCTION TO BE PROCESSED IN 
*               THIS CPU. 
* 
*         ON MACHINES SUPPORTING A FREE RUNNING COUNTER, THE MONITOR
*         MODE BASE TIME FOR THE EXECUTING CPU IS SET BY *CPUMTR* FROM
*         THE FREE RUNNING COUNTER ON ENTRY INTO MONITOR MODE AND WHEN
*         PROGRAM MODE CPU TIME IS ACCUMULATED.  THE FIELD IS CLEARED 
*         ON EXIT FROM MONITOR MODE.  ON MACHINES NOT SUPPORTING A FREE 
*         RUNNING COUNTER, THE MONITOR MODE BASE TIMES ARE ALWAYS ZERO. 
*         THE FUNCTION CODE AND CPU SWITCH FLAGS IN THE *CMST* WORDS
*         ARE UTILIZED ON ALL MACHINES.  THE PROGRAM MODE BASE TIMES
*         ARE IN MICROSECONDS ON MACHINES SUPPORTING A FREE RUNNING 
*         COUNTER AND ARE IN MILLISECONDS ON OTHER MACHINES.
  
  
 BEGIN    BSSN   0
  
 CBLP     BSSN   1           *CPUMTR* LOADED BLOCK TABLE POINTER
 CSXP     BSSN   1           SYSTEM CP EXCHANGE PACKAGE TABLE POINTER 
 CXBP     BSSN   1           *EXPACS* BLOCK POINTER 
 CFPP     BSSN   1           FAST PP LOADER TABLE POINTER 
 CMST     BSSN   2           MONITOR MODE STATUS BY CPU 
 CPBT     BSSN   2           PROGRAM MODE BASE TIME BY CPU
 CACX     BSSN   2           ALTERNATE CPU EXCHANGE REQUESTS BY CPU 
  
 CMTLL    BSSN   0           *CPUMTR* LOW MEMORY DATA AREA LENGTH 
  
 END      BSSN
 SMTR     SPACE  4
**        MTR - CPUMTR REQUESTS.
  
  
 BEGIN    BSSN   0
  
 CCPF     BSSN   1           CHECK CENTRAL PROGRAM
 CSWF     BSSN   1           SWITCH CPU 
  
 NXWF     BSSN   0           NO EXCHANGE JUMP WAIT THRESHOLD
  
 ARTF     BSSN   1           UPDATE RUNNING TIME
 CSLF     BSSN   1           CHECK SUB-CONTROL POINT TIME LIMIT 
 EPRF     BSSN   1           ENTER PROGRAM MODE REQUEST 
 RCLF     BSSN   1           RECALL CPU 
 MFLF     BSSN   1           MODIFY FL
 MRAF     BSSN   1           MODIFY RA
 MSCF     BSSN   1           MONITOR STEP CONTROL 
 PRQF     BSSN   1           PROCESS RECALL REQUEST QUEUE 
 TCSF     BSSN   1           SWITCH CPU ON TIME SLICE 
 PCXF     BSSN   1           PROCESS ALTERNATE CPU EXCHANGE 
 ARMF     BSSN   1           ADVANCE RUNNING TIME MULTI-MAINFRAME MODE
 UCCF     BSSN   1           UPDATE CTI CLOCK 
 CRAF     BSSN   1           CHANGE RA
 ADTF     BSSN   1           ADVANCE DATE AND TIME
 SKCF     BSSN   1           SET K DISPLAY COMPLETE BIT 
  
 MXPF     BSSN   0           MAXIMUM FUNCTION + 1 
  
 END      BSSN
  
          ERRNG  CPUM-MXPF   MAXIMUM *MTR* REQUEST MUST BE BELOW *CPUM* 
          ERRNZ  MXPF-21     CHANGE DEFINITION IN *COMSPDT* 
          SPACE  4
**        MTR - CPUMTR PROGRAM MODE REQUESTS. 
  
  
 BEGIN    BSSN   0
  
 MSTF     BSSN   1           STORAGE MOVE 
 PMRF     BSSN   1           PROCESS INTER-MAINFRAME FUNCTION REQUEST 
 MECF     BSSN   1           MOVE ECS STORAGE 
  
 PMXF     BSSN   0           MAXIMUM PROGRAM MODE FUNCTION + 1
  
 END      BSSN
  
          ERRNZ  PMXF-3      CHANGE DEFINITION IN *COMSPDT* 
          SPACE  4
**        PROGRAM MODE EXCHANGE PACKAGE TYPES.
  
  
 BEGIN    BSSN   0
  
 CPXT     BSSN   1           USER OR SYSTEM CONTROL POINT 
 SMXT     BSSN   1           STORAGE MOVE 
 FVXT     BSSN   1           FIELD LENGTH VERIFICATION
 PSXT     BSSN   1           PSEUDO-PP
  
 IDXT     BSSN   0           START OF IDLE PACKAGES 
  
 MIXT     BSSN   1           MAIN IDLE PACKAGE
 DIXT     BSSN   1           DUAL CPU IDLE PACKAGE FOR CPU 1
  
 MXXT     BSSN   1           MAXIMUM EXCHANGE PACKAGE TYPE + 1
  
 END      BSSN
          SPACE  4,10 
**        *CPUMTR* BREAKPOINT DEFINITIONS.
  
  
          QUAL   CPB         *CPUMTR* BREAKPOINT PACKAGE
 BEGIN    BSSN   0
          BSSN   20B         BREAKPOINT EXCHANGE PACKAGE
 CPBA     BSSN   1           BREAKPOINT ADDRESS 
 CPBP     BSSN   1           PROTOTYPE BREAKPOINT INSTRUCTION 
 CPBW     BSSN   1           TEMPORARY FOR BREAKPOINTED ADDRESS 
 CPFG     BSSN   1           BREAKPOINT PENDING FLAG
 CPBAL    BSSN   0           LWA OF BREAKPOINT DATA 
 END      BSSN
          QUAL   *
          SPACE  4,10 
**        PP EXCHANGE PACKAGE OFFSETS IN *CPUMTR* *EXPACS* BLOCK. 
  
  
          QUAL   EXPACS      EXCHANGE PACKAGE OFFSETS (FOR *DSDI*)
 BEGIN    BSSN   0
 MXP      BSSN   20B         *MTR* EXCHANGE PACKAGE 
 BXP      BSSN   /CPB/CPBAL  BREAKPOINT/HANG EXCHANGE PACKAGE AND DATA
 IXP      BSSN   24B         CPU 0 IDLE EXCHANGE PACKAGE AND DATA 
 PXP      BSSN   21B         PP EXCHANGE PACKAGE
 END      BSSN
          QUAL   *
          SPACE  4,10 
**        MISCELLANEOUS DEFINITIONS.
  
  
 CTMW     EQU    CSAW+1      SPECIAL EXCHANGE PACKAGE CPU TIME WORD 
          SPACE  4
          BASE   *
          ENDX
