User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:combmap

Common COMBMAP

0 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.combmap +++|
00002  M01S00002.combmap +++|#     COMBMAP - SMMAP DEFINITIONS AND DECLARATIONS.                  #
00003  M01S00003.combmap +++|                                               CONTROL NOLIST;
00004  M01S00004.combmap +++|                                               CONTROL IFEQ LISTCON,1;
00005  M01S00005.combmap +++|                                               CONTROL LIST;
00006  M01S00006.combmap +++|                                               CONTROL FI;
00007  M01S00007.combmap +++|      BEGIN  # COMBMAP #
00008  M01S00008.combmap +++|
00009  M01S00009.combmap +++|#
00010  M01S00010.combmap +++|***   COMBMAP - SMMAP DEFINITIONS AND DECLARATIONS.
00011  M01S00011.combmap +++|*
00012  M01S00012.combmap +++|*     COMBMAP CONTAINS THE DEFINITIONS, DECLARATIONS, AND
00013  M01S00013.combmap +++|*     STATUS LISTS NEEDED FOR SMMAP PROCESSING.
00014  M01S00014.combmap +++|#
00015  M01S00015.combmap +++|
00016  M01S00016.combmap +++|
00017  M01S00017.combmap +++|#
00018  M01S00018.combmap +++|**    CUBSTAT - STATUS LIST OF CODES TO INDICATE THE STATUS OF A
00019  M01S00019.combmap +++|*               COORDINATE POSITION IN A STORAGE MODULE.
00020  M01S00020.combmap +++|#
00021  M01S00021.combmap +++|
00022  M01S00022.combmap +++|      STATUS CUBSTAT
00023  M01S00023.combmap +++|        UNASGN,                      # POSITION UNASSIGNED #
00024  M01S00024.combmap +++|        CEUSE,                       # RESERVED FOR CE USE #
00025  M01S00025.combmap +++|        SYSUSE,                      # RESERVED FOR SYSTEM USE #
00026  M01S00026.combmap +++|        ALTCSU,                      # RESERVED FOR ALTERNATE SMMAP #
00027  M01S00027.combmap +++|        SCRPOOL,                     # ASSIGNED TO SCRATCH POOL #
00028  M01S00028.combmap +++|        SUBFAM,                      # ASSIGNED TO A SUB FAMILY #
00029  M01S00029.combmap +++|        NOCUBE,                      # NO CUBICLE AT THIS POSITION #
00030  M01S00030.combmap +++|        ENDSTAT;                     # END OF STATUS LIST #
00031  M01S00031.combmap +++|
00032  M01S00032.combmap +++|      DEF MAPENTL    # 3 #;          # MAP ENTRY LENGTH #
00033  M01S00033.combmap +++|      DEF NOCUBES    #352#;          # NO OF CUBICLES TOTAL #
00034  M01S00034.combmap +++|
00035  M01S00035.combmap +++|#
00036  M01S00036.combmap +++|*     SMORD COMPUTES THE MAP ENTRY ORDINAL FROM THE Z AND Y
00037  M01S00037.combmap +++|*     COORDINATES OF THE UCP REQUEST.
00038  M01S00038.combmap +++|#
00039  M01S00039.combmap +++|
00040  M01S00040.combmap +++|      DEF  SMORD      # MAXORD - CPR$Z - (CPR$Y * (MAX$Z+1)) #;
00041  M01S00041.combmap +++|
00042  M01S00042.combmap +++|      COMMON BMAPCOM;
00043  M01S00043.combmap +++|
00044  M01S00044.combmap +++|        BEGIN  # BMAPCOM #
00045  M01S00045.combmap +++|
00046  M01S00046.combmap +++|        BASED
00047  M01S00047.combmap +++|        ARRAY SMUMAP [0:0] S(MAPENTL);
00048  M01S00048.combmap +++|          BEGIN
00049  M01S00049.combmap +++|          ITEM CM$WRD1    U(00,00,60);  # ENTRY WORD 1 #
00050  M01S00050.combmap +++|          ITEM CM$CODE    U(00,00,06);  # ENTRY USE #
00051  M01S00051.combmap +++|          ITEM CM$FCTORD  U(00,06,12);  # FCT ORDINAL #
00052  M01S00052.combmap +++|          ITEM CM$FMLYNM  C(00,18,07);  # FAMILY NAME #
00053  M01S00053.combmap +++|
00054  M01S00054.combmap +++|          ITEM CM$WRD2    U(01,00,60);  # ENTRY WORD 2 #
00055  M01S00055.combmap +++|          ITEM CM$FLAG1   B(01,00,01);  # ERROR FLAG #
00056  M01S00056.combmap +++|          ITEM CM$FLAG2   B(01,01,01);  # UNUSED FLAG #
00057  M01S00057.combmap +++|          ITEM CM$FLAG3   B(01,02,01);  # UNUSED FLAG #
00058  M01S00058.combmap +++|          ITEM CM$FLAG4   B(01,03,01);  # UNUSED FLAG #
00059  M01S00059.combmap +++|          ITEM CM$FLAG5   B(01,04,01);  # UNUSED FLAG #
00060  M01S00060.combmap +++|          ITEM CM$FLAG6   B(01,05,01);  # UNUSED FLAG #
00061  M01S00061.combmap +++|          ITEM CM$SUB     U(01,06,06);  # SUB FAMILY DESIGNATOR #
00062  M01S00062.combmap +++|          ITEM CM$SMID    U(01,12,06);  # *SM* NUMBER #
00063  M01S00063.combmap +++|          ITEM CM$FREE1   U(01,18,36);  # UNUSED FIELD #
00064  M01S00064.combmap +++|          ITEM CM$WRD3    U(02,00,60);  # ENTRY WORD THREE #
00065  M01S00065.combmap +++|          ITEM CM$CCOD    C(02,00,02);  # CARTRIDGE MAKER IDENT #
00066  M01S00066.combmap +++|          ITEM CM$CSND    C(02,12,08);  # VSN OF CARTRDIGE #
00067  M01S00067.combmap +++|          ITEM CM$TCSN    C(02,00,10);  # TOTAL CSN OF CARTRIDGE #
00068  M01S00068.combmap +++|          END
00069  M01S00069.combmap +++|
00070  M01S00070.combmap +++|#
00071  M01S00071.combmap +++|**
00072  M01S00072.combmap +++|*     ERRSTAT IS WHERE ERRORS ARE RETURNED FROM THE CATALOG AND MAP
00073  M01S00073.combmap +++|*     ACCESS ROUTINES.
00074  M01S00074.combmap +++|#
00075  M01S00075.combmap +++|
00076  M01S00076.combmap +++|        ITEM ERRSTAT    U;           # STATUS FROM MAP/CAT ACCESS #
00077  M01S00077.combmap +++|
00078  M01S00078.combmap +++|#
00079  M01S00079.combmap +++|*     MAPBUFR IS A 3 WORD BUFFER TO RECEIVE THE MAP ENTRY FROM THE
00080  M01S00080.combmap +++|*     ACCESS ROUTINES.
00081  M01S00081.combmap +++|#
00082  M01S00082.combmap +++|
00083  M01S00083.combmap +++|        ARRAY MAPBUFR [0:0] S(MAPENTL);
00084  M01S00084.combmap +++|          BEGIN
00085  M01S00085.combmap +++|          ITEM MAPWRD1    U(00,00,60);  # FIRST WORD OF MAP ENTRY #
00086  M01S00086.combmap +++|          ITEM MAPWRD2    U(01,00,60);  # SECOND WORD OF MAP ENTRY #
00087  M01S00087.combmap +++|          END
00088  M01S00088.combmap +++|
00089  M01S00089.combmap +++|        END  # BMAPCOM #
00090  M01S00090.combmap +++|
00091  M01S00091.combmap +++|      END  # COMBMAP #
00092  M01S00092.combmap +++|
00093  M01S00093.combmap +++|                                               CONTROL LIST;
cdc/nos2.source/opl.opl871/common/combmap.txt · Last modified: by 127.0.0.1