COMSMST 
COMMON
          CTEXT  COMSMST - MST FLAG/INTERLOCK DEFINITIONS.
          BASE   D
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4
***       COMSMST - MST FLAG/INTERLOCK DEFINITIONS. 
*         P. D. HAAS.        75/09/23.
          SPACE  4
***              COMSMST CONTAINS SYMBOL DEFINITIONS FOR THE
*         VARIOUS FLAG AND INTERLOCK BITS IN THE MST. 
          SPACE  4
***       MACRO TO GENERATE SYMBOL DEFINITION + ASSOCIATED MASK.
* 
*SYM      MSTF   BIT
  
  
          MACRO  MSTF,SYM,BIT 
 SYM      =      BIT
 PP       IFPP
 .2       SET    BIT/12*12
 M_SYM    BITSET BIT-.2 
 PP       ENDIF 
 MSTF     ENDM
          SPACE  4
**        GLOBAL AREA SYMBOLS - ACGL WORD.
  
  
 GCTI     MSTF   59          *CTI* PRESENT
 GDSF     MSTF   58          SYSTEM DEADSTART FILE PRESENT
 GCTO     MSTF   57          CATALOG TRACK OVERFLOW 
 GPDA     MSTF   48          PARITY DEVICE ACCESS BITS (MACHINE MASKS)
  
 GRDR     MSTF   11          REDEFINITION REQUESTED 
 GPRS     MSTF   7           SHARED RMS PRESET REQUEST
 GLAP     MSTF   6           SECTOR OF LOCAL AREAS PRESENT
 GUNL     MSTF   5           UNLOADED - ALL MACHINES
 GDEI     MSTF   4           DEVICE ERROR IDLE
 GDRI     MSTF   3           DAS PARITY RESTORE INITIATION
 GDPL     MSTF   2           DAS PARITY PROTECTION LOST 
 GDER     MSTF   1           DAS ERROR RECOVERY IN PROGRESS 
 GDUR     MSTF   0           DAS PARITY UNIT RESTORE IN PROGRESS
          SPACE  4
**        LOCAL AREA SYMBOLS - STLL WORD. 
  
  
 LFPR     MSTF   59          FORMAT PACK REQUEST
 LIAL     MSTF   58          INITIALIZE ALL 
 LIHD     MSTF   57          INITIALIZE HALF TRACK DEVICE 
 LIFD     MSTF   56          INITIALIZE FULL TRACK DEVICE 
 LIPF     MSTF   55          INITIALIZE PERMANENT FILES 
 LIQF     MSTF   54          INITIALIZE INACTIVE QUEUE FILES
 LIRP     MSTF   53          INITIALIZE REQUEST PENDING 
 LPTU     MSTF   52          PROHIBIT TABLE UPDATE FROM ISD 
 LUNL     MSTF   51          UNLOAD REQUESTED 
 LCKP     MSTF   50          CHECKPOINT REQUEST 
 LDUL     MSTF   49          DEVICE UNLOADED
 RASD     MSTF   48          ALTERNATE SYSTEM DEVICE
  
 LIDF     MSTF   47          INITIALIZE INACTIVE DAYFILE
 LIAF     MSTF   46          INITIALIZE INACTIVE ACCOUNT FILE 
 LIEF     MSTF   45          INITIALIZE INACTIVE ERRLOG 
 LIMF     MSTF   44          INITIALIZE INACTIVE MAINTENANCE LOG
 L1MV     MSTF   43          *1MV* ACTIVE FLAG
  
 LDIU     MSTF   2           DEVICE IN USE
 LUAI     MSTF   1           UTILITY ACTIVE INTERLOCK 
 LMTI     MSTF   0           LOCAL AREA MST INTERLOCK 
  
  
          BASE   *
 PP       IFPP
          SPACE  4
***       MACROS TO SET/CLEAR MST FLAGS.
* 
*         REQUIRES COMMON DECKS - COMPTGB, COMPTLB. 
  
  
          NOREF  .A 
          SPACE  4
**        SMSTF - SET SPECIFIED MST FLAG. 
* 
*         SMSTF  A
  
  
 SMSTF    MACRO  A
          MACREF SMSTF
 .A       MICRO  1,1, A 
          LDN    A
          RJM    T".A"B 
 SMSTF    ENDM
          SPACE  4
**        CMSTF - CLEAR SPECIFIED MST FLAG. 
* 
*         CMSTF  A
  
  
 CMSTF    MACRO  A
          MACREF CMSTF
 .A       MICRO  1,1, A 
          LCN    A
          RJM    T".A"B 
 CMSTF    ENDM
 PP       ENDIF 
          ENDX
