COMBMAP 
COMMON
  
#     COMBMAP - SMMAP DEFINITIONS AND DECLARATIONS.                  #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMBMAP #
  
# 
***   COMBMAP - SMMAP DEFINITIONS AND DECLARATIONS. 
* 
*     COMBMAP CONTAINS THE DEFINITIONS, DECLARATIONS, AND 
*     STATUS LISTS NEEDED FOR SMMAP PROCESSING. 
# 
  
  
# 
**    CUBSTAT - STATUS LIST OF CODES TO INDICATE THE STATUS OF A
*               COORDINATE POSITION IN A STORAGE MODULE.
# 
  
      STATUS CUBSTAT
        UNASGN,                      # POSITION UNASSIGNED #
        CEUSE,                       # RESERVED FOR CE USE #
        SYSUSE,                      # RESERVED FOR SYSTEM USE #
        ALTCSU,                      # RESERVED FOR ALTERNATE SMMAP # 
        SCRPOOL,                     # ASSIGNED TO SCRATCH POOL # 
        SUBFAM,                      # ASSIGNED TO A SUB FAMILY # 
        NOCUBE,                      # NO CUBICLE AT THIS POSITION #
        ENDSTAT;                     # END OF STATUS LIST # 
  
      DEF MAPENTL    # 3 #;          # MAP ENTRY LENGTH # 
      DEF NOCUBES    #352#;          # NO OF CUBICLES TOTAL # 
  
# 
*     SMORD COMPUTES THE MAP ENTRY ORDINAL FROM THE Z AND Y 
*     COORDINATES OF THE UCP REQUEST. 
# 
  
      DEF  SMORD      # MAXORD - CPR$Z - (CPR$Y * (MAX$Z+1)) #; 
  
      COMMON BMAPCOM; 
  
        BEGIN  # BMAPCOM #
  
        BASED 
        ARRAY SMUMAP [0:0] S(MAPENTL);
          BEGIN 
          ITEM CM$WRD1    U(00,00,60);  # ENTRY WORD 1 #
          ITEM CM$CODE    U(00,00,06);  # ENTRY USE # 
          ITEM CM$FCTORD  U(00,06,12);  # FCT ORDINAL # 
          ITEM CM$FMLYNM  C(00,18,07);  # FAMILY NAME # 
  
          ITEM CM$WRD2    U(01,00,60);  # ENTRY WORD 2 #
          ITEM CM$FLAG1   B(01,00,01);  # ERROR FLAG #
          ITEM CM$FLAG2   B(01,01,01);  # UNUSED FLAG # 
          ITEM CM$FLAG3   B(01,02,01);  # UNUSED FLAG # 
          ITEM CM$FLAG4   B(01,03,01);  # UNUSED FLAG # 
          ITEM CM$FLAG5   B(01,04,01);  # UNUSED FLAG # 
          ITEM CM$FLAG6   B(01,05,01);  # UNUSED FLAG # 
          ITEM CM$SUB     U(01,06,06);  # SUB FAMILY DESIGNATOR # 
          ITEM CM$SMID    U(01,12,06);  # *SM* NUMBER # 
          ITEM CM$FREE1   U(01,18,36);  # UNUSED FIELD #
          ITEM CM$WRD3    U(02,00,60);  # ENTRY WORD THREE #
          ITEM CM$CCOD    C(02,00,02);  # CARTRIDGE MAKER IDENT # 
          ITEM CM$CSND    C(02,12,08);  # VSN OF CARTRDIGE #
          ITEM CM$TCSN    C(02,00,10);  # TOTAL CSN OF CARTRIDGE #
          END 
  
# 
**
*     ERRSTAT IS WHERE ERRORS ARE RETURNED FROM THE CATALOG AND MAP 
*     ACCESS ROUTINES.
# 
  
        ITEM ERRSTAT    U;           # STATUS FROM MAP/CAT ACCESS # 
  
# 
*     MAPBUFR IS A 3 WORD BUFFER TO RECEIVE THE MAP ENTRY FROM THE
*     ACCESS ROUTINES.
# 
  
        ARRAY MAPBUFR [0:0] S(MAPENTL); 
          BEGIN 
          ITEM MAPWRD1    U(00,00,60);  # FIRST WORD OF MAP ENTRY # 
          ITEM MAPWRD2    U(01,00,60);  # SECOND WORD OF MAP ENTRY #
          END 
  
        END  # BMAPCOM #
  
      END  # COMBMAP #
  
                                               CONTROL LIST;
