COMSLSD 
COMMON
          CTEXT  COMSLSD - LABEL SECTOR DEFINITION. 
          BASE   M
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4
***       COMSLSD - LABEL SECTOR DEFINITION.
*         D. A. HIVELEY.     74/09/23.
          SPACE  4
***              COMSLSD DEFINES EQUIVALENCES USED FOR REFERENCING
*         INFORMATION WHICH IS MAINTAINED IN THE LABEL SECTOR OF
*         A MASS STORAGE DEVICE.
          SPACE  4
**        DEVICE LABEL SECTOR DEFINITIONS.
          SPACE  4,10 
 LLSS     EQU    BFMS+2+3*5  LABEL LEVEL
          SPACE  4,10 
*         LEVEL 1 LABELS (LLSS = 1).
  
  
*         NOS 1.4 DEFINITION. 
  
 E4SS     EQU    LLSS+1      NOS 1.4 EQUIPMENT TYPE 
 N4SS     EQU    BFMS+2+10*5 FIRST WORD OF NOS 1.4 MASS STORAGE TABLE 
 DISS     EQU    BFMS+2+30*5 DEVICE INFORMATION TABLE 
          SPACE  4,10 
*         LEVEL 2 LABELS (LLSS = 2).
  
  
 DKSS     EQU    DISS+20*5+4 DEVICE INFORMATION TABLE CHECKSUM
 CKSS     EQU    BFMS+2+100*5-1  CHECKSUM OF THE MST/TRT UPDATE COUNTER 
                                 AND INTERLOCK FIELDS FROM *SDGL*, THE
                                 MAINFRAME ID FROM *STLL*, AND THE DIT. 
          SPACE  4
**        LABEL CHECKING EQUIVALENCES.
  
  
 FLTK     EQU    4000        FIRST LABEL TRACK
 LTKL     EQU    4020        LIMIT OF LABEL TRACK READS 
          SPACE  4
**        ERROR CODES.
  
  
 MSTERR   SPACE  4,10 
**        MSTERR - DEFINE MASS STORAGE EQUIPMENT ERROR. 
* 
*         MSTERR MN,ET
*         MN =   ERROR MNEMONIC.
*                THE TAG *MSTERR* IS DEFINED TO BE A MICRO OF ERROR 
*                MNEMONICS ORDERED BY THE VALUES OF THE TAG *ST_MN*.
*         ET =   TEXT DESCRIBING ERROR. 
*                THE TAG *ETX._MN* IS DEFINED TO BE A MICRO OF THE
*                TEXT DESCRIBING THE ERROR. 
  
  
          PURGMAC  MSTERR 
 MSTERR   MACRO  MN,ET
 ST_MN     BSSN   1 
 MSTERR   MICRO  1,, "MSTERR"".1"_MN
 .1       MICRO  1,, ,
 ETX._MN  MICRO  1,,/_ET/ 
          ENDM
 MSTERR   SPACE  4
 MSTERR   MICRO  1,,
 .1       MICRO  1,,
  
  
 BEGIN    BSSN   1
  
          MSTERR LE,(LABEL ERROR) 
          MSTERR CE,(CONFIGURATION ERROR) 
          MSTERR IL,(INCORRECT LABEL) 
          MSTERR NR,(NOT READY ERROR) 
          MSTERR LK,(PF LINKAGE ERROR)
          MSTERR TL,(TRT LENGTH ERROR)
          MSTERR DN,(DEVICE NUMBER CONFLICT ERROR)
          MSTERR PN,(PACKNAME CONFLICT ERROR) 
          MSTERR UM,(USER MASK CONFLICT ERROR)
          MSTERR NV,(NON-STANDARD DEVICE MOUNTED) 
          MSTERR SV,(SECURITY ACCESS LEVEL ERROR) 
 MNEC     BSSN   0           LIMIT OF ERRORS PROCESSED ONLY BY *MSM*
  
          MSTERR CA,(CHECKPOINT ABORT ERROR)
          MSTERR VE,(MS VALIDATION ERROR) 
          MSTERR EI,(DEVICE ERROR IDLE) 
          MSTERR CS,(PF CATALOG SIZE ERROR) 
          MSTERR FF,(FOT FULL ERROR)
          MSTERR DE,(DEVICE HARDWARE ERROR) 
          MSTERR SU,(SIMULTANEOUS UPDATE) 
  
 MXEC     BSSN   0           MAXIMUM ERROR CODES
 END      BSSN
          SPACE  4
          BASE   *
          ENDX
