          CTEXT  COMSSSD - SUBSYSTEM DEFINITIONS.
          SPACE  4,10
          BASE   M
*COMMENT  COMSSSD - SUBSYSTEM DEFINITIONS.
*         COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992
          SPACE  4,10
***       COMSSSD - SUBSYSTEM DEFINITIONS.
*
*         R. M. DANISCH.     81/01/26.
          SPACE  4,10
**        SUBSYSTEM IDENTIFICATION NUMBERS.

 DSSI     EQU    7777        DEADSTART SEQUENCING IDENTIFIER

 MXSI     EQU    7776        HIGHEST SCP SUBSYSTEM IDENTIFIER

 IFSI     EQU    7776        IAF
 RFSI     EQU    7775        RHF
 I1SI     EQU    7774        RESERVED FOR INSTALLATION
 I2SI     EQU    7773        RESERVED FOR INSTALLATION
 TRSI     EQU    7772        TAF
 MPSI     EQU    7771        MAP III
 NMSI     EQU    7770        NAM
 NVSI     EQU    7767        NVE
 CDSI     EQU    7766        CDCS
 MCSI     EQU    7765        MCS
 RDSI     EQU    7764        RDF
 MFSI     EQU    7763        MSS

 MNSI     EQU    7763        LOWEST SCP SUBSYSTEM IDENTIFIER

 RBSI     EQU    7762        RBF
 BISI     EQU    7761        BATCHIO
 MTSI     EQU    7760        MAGNET
 STSI     EQU    7757        STIMULATOR
 MSSI     EQU    7756        MSM
 SMSI     EQU    7755        SMF
 SSSI     EQU    7753        SSF

 LSSI     EQU    7752        LOWEST SUBSYSTEM IDENTIFICATION NUMBER - 1

 ORSI     EQU    3           ALLOW OPERATOR ROLLOUT (FOR *SSJ=* JOBS)
 QCSI     EQU    2           INHIBIT ROLLOUT (USER CALL TO *QAC*)
 IRSI     EQU    1           INHIBIT ROLLOUT (USED BY *SSJ=* JOBS)
 UJSI     EQU    0           NON-SUBSYSTEM JOB (DEFAULT FOR USER JOBS)

 MAXS     EQU    14          MAXIMUM NUMBER OF SCP SUBSYSTEMS
 NBSS     EQU    MXSI-MNSI+1 NUMBER OF SCP SUBSYSTEMS
          ERRNG  MAXS-NBSS   IF TOO MANY SUBSYSTEMS FOR *SSCW* WORD
          SPACE  4,10
 .A       SET    MXSI-LSSI+4
 SSCTL    EQU    .A/5        LENGTH OF SSCT
          SPACE  4,10
          BASE   *
          ENDX
