User Tools

Site Tools


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

Common COMBCMD

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.combcmd +++|#     COMBCMD - CATALOG AND MAP ACCESS DECLARATIONS.                  #
00002  M01S00002.combcmd +++|                                               CONTROL NOLIST;
00003  M01S00003.combcmd +++|                                               CONTROL IFEQ LISTCON,1;
00004  M01S00004.combcmd +++|                                               CONTROL LIST;
00005  M01S00005.combcmd +++|                                               CONTROL FI;
00006  M01S00006.combcmd +++|      BEGIN  # COMBCMD #
00007  M01S00007.combcmd +++|
00008  M01S00008.combcmd +++|#
00009  M01S00009.combcmd +++|***   COMBCMD - CATALOG AND MAP ACCESS DECLARATIONS.
00010  M01S00010.combcmd +++|*
00011  M01S00011.combcmd +++|*     COMBCMD DEFINES SYMBOLS, BUFFERS, AND TABLES USED BY
00012  M01S00012.combcmd +++|*     THE M860 CATALOG AND SMMAP ACCESS SUBROUTINES.
00013  M01S00013.combcmd +++|*
00014  M01S00014.combcmd +++|*     NOTE - SPACE FOR THE BUFFERS, FETS AND TABLES IS ALLOCATED
00015  M01S00015.combcmd +++|*     OR ASSIGNED AT INITIALIZATION TIME.  THE POINTERS TO THE
00016  M01S00016.combcmd +++|*     BASED ARRAYS ARE SET AT THIS TIME.  COMDECK *COMBFAS* MUST BE
00017  M01S00017.combcmd +++|*     CALLED PRIOR TO *COMBCMD*.
00018  M01S00018.combcmd +++|#
00019  M01S00019.combcmd +++|
00020  M01S00020.combcmd +++|      DEF ABUFLEN    #O"1300"#;      # *AST* BUFFER LENGTH #
00021  M01S00021.combcmd +++|      DEF FCTBL      #1025#;         # *FCT* BUFFER LENGTH #
00022  M01S00022.combcmd +++|      DEF MAPBUFL    #O"301"#;       # MAP BUFFER LENGTH #
00023  M01S00023.combcmd +++|      DEF OCTENTL    #3#;            # *OCT* ENTRY LENGTH #
00024  M01S00024.combcmd +++|      DEF OMTENTL    #1#;            # *OMT* ENTRY LENGTH #
00025  M01S00025.combcmd +++|      DEF PRMTLEN    #(MAXSM+1)#;    # PREMABLE TABLE LENGTH #
00026  M01S00026.combcmd +++|      DEF RANBL      #1025#;         # RANDOM ACCESS BUFFER LENGTH #
00027  M01S00027.combcmd +++|      DEF SEQBL      #1025#;         # SEQUENTIAL BUFFER LENGTH #
00028  M01S00028.combcmd +++|      DEF TBUFL      #O"1001"#;      # TEMPORARY FILE BUFFER LENGTH #
00029  M01S00029.combcmd +++|      DEF WBUFL      #O"100"#;       # WORKING BUFFER LENGTH #
00030  M01S00030.combcmd +++|
00031  M01S00031.combcmd +++|#
00032  M01S00032.combcmd +++|*     M860 CATALOG AND SMMAP ERROR MESSAGES.
00033  M01S00033.combcmd +++|#
00034  M01S00034.combcmd +++|
00035  M01S00035.combcmd +++|      DEF CMSGCLOSE  #" SFMCATN FOR FAMILY FFFFFFF CLOSED."#;
Line S00036 Modification History
M01 (Added by) combcmd
M02 (Updated by) common2
Seq #  *Modification Id* Act 
----------------------------+
00036  M02S00036.common2 ---|      DEF CMSG1      #" DEVICE UNAVAILABLE ON M860 CATALOG ACCESS. "#;
00037  M01S00001.common2 +++|      DEF CMSG1      #" DEVICE UNAVAILABLE ON 7990 CATALOG ACCESS. "#;
00038  M01S00037.combcmd +++|      DEF CMSG2      #" SFM CATALOG REPLACE ERROR. "#;
Line S00038 Modification History
M01 (Added by) combcmd
M02 (Updated by) common2
Seq #  *Modification Id* Act 
----------------------------+
00039  M02S00038.common2 ---|      DEF CMSG3      #" UNABLE TO REATTACH M860 CATALOG. "#;
00040  M01S00002.common2 +++|      DEF CMSG3      #" UNABLE TO REATTACH 7990 CATALOG. "#;
00041  M01S00039.combcmd +++|      DEF MMSGCLOSE  #" SMMAPX CLOSED."#;
00042  M01S00040.combcmd +++|      DEF MMSG1      #" UNABLE TO REATTACH SM MAP. "#;
00043  M01S00041.combcmd +++|
00044  M01S00042.combcmd +++|      ARRAY CMSGAREA [0:0] P(5);     # CLOSE CATALOG AND MAP MESSAGES #
00045  M01S00043.combcmd +++|        BEGIN
00046  M01S00044.combcmd +++|        ITEM CMSGLINE   C(00,00,48);  # MESSAGE LINE #
00047  M01S00045.combcmd +++|        ITEM CMSGMAPID  U(00,36,06);  # SM MAP ID #
00048  M01S00046.combcmd +++|        ITEM CMSGCSUBF  C(00,42,01);  # SFM CATALOG SUBFAMILY ID #
00049  M01S00047.combcmd +++|        ITEM CMSGCFAM   C(02,00,07);  # SFM CATALOG FAMILY NAME #
00050  M01S00048.combcmd +++|        ITEM CMSGTERM   U(04,48,12) = [0];  # MESSAGE TERMINATOR #
00051  M01S00049.combcmd +++|        END
00052  M01S00050.combcmd +++|
00053  M01S00051.combcmd +++|      COMMON BCMDCOM;
00054  M01S00052.combcmd +++|
00055  M01S00053.combcmd +++|        BEGIN  # BCMDCOM #
00056  M01S00054.combcmd +++|                                     # $$ #
00057  M01S00055.combcmd +++|        ITEM $$BCMD$$   C(20) = "****** COMBCMD *****";
00058  M01S00056.combcmd +++|                                     # $$ #
00059  M01S00057.combcmd +++|
00060  M01S00058.combcmd +++|        ITEM EXEC       B;           # SSEXECUTIVE FLAG #
00061  M01S00059.combcmd +++|
00062  M01S00060.combcmd +++|        ARRAY CMAMSG [0:0] P(3);     # M860 CATALOG AND SMMAP ACCESS
00063  M01S00061.combcmd +++|                                       FATAL ERROR MESSAGE #
00064  M01S00062.combcmd +++|          BEGIN
00065  M01S00063.combcmd +++|          ITEM CMA$MSG    C(00,00,20) = [" PROGRAM ABNORMAL,  "];
00066  M01S00064.combcmd +++|          ITEM CMA$RTN    C(02,00,08);  # ROUTINE NAME #
00067  M01S00065.combcmd +++|          ITEM CMA$ZBYTE  U(02,48,12) = [0];  # ZERO BYTE TERMINATOR #
00068  M01S00066.combcmd +++|          END
00069  M01S00067.combcmd +++|
00070  M01S00068.combcmd +++|        ARRAY KDISBLK [0:0] P(2); ;  # K-DISPLAY REQUEST BLOCK #
00071  M01S00069.combcmd +++|
00072  M01S00070.combcmd +++|        ITEM ASTBADR    U;           # *AST* BUFFER ADDRESS #
00073  M01S00071.combcmd +++|        ITEM FCTBADR    U;           # *FCT* BUFFER ADDRESS #
00074  M01S00072.combcmd +++|        ITEM FCTFADR    U;           # *FCT* FET ADDRESS #
00075  M01S00073.combcmd +++|        ITEM MAPBADR    U;           # MAP BUFFER ADDRESS #
00076  M01S00074.combcmd +++|        ITEM MAPFADR    U;           # MAP FET ADDRESS #
00077  M01S00075.combcmd +++|        ITEM OCTADR     U;           # OPEN CATALOG TABLE ADDRESS #
00078  M01S00076.combcmd +++|        ITEM OCTLEN     I;           # OPEN CATALOG TABLE LENGTH #
00079  M01S00077.combcmd +++|        ITEM OMTADR     U;           # OPEN MAP TABLE ADDRESS #
00080  M01S00078.combcmd +++|        ITEM PRMBADR    U;           # PREAMBLE TABLE BUFFER ADDRESS #
00081  M01S00079.combcmd +++|        ITEM TBUFADR    U;           # TEMPORARY FILE BUFFER ADDRESS #
00082  M01S00080.combcmd +++|        ITEM TFETADR    U;           # TEMPORARY FILE FET ADDRESS #
00083  M01S00081.combcmd +++|        ITEM WBUFADR    U;           # WORKING BUFFER ADDRESS #
00084  M01S00082.combcmd +++|
00085  M01S00083.combcmd +++|
00086  M01S00084.combcmd +++|#
00087  M01S00085.combcmd +++|*     FETS.
00088  M01S00086.combcmd +++|#
00089  M01S00087.combcmd +++|
00090  M01S00088.combcmd +++|        BASED
00091  M01S00089.combcmd +++|        ARRAY FCTFET [0:0] S(RFETL); ;  # *FCT* FET #
00092  M01S00090.combcmd +++|
00093  M01S00091.combcmd +++|        BASED
00094  M01S00092.combcmd +++|        ARRAY MAPFET [0:0] S(RFETL); ;  # MAP FET #
00095  M01S00093.combcmd +++|
00096  M01S00094.combcmd +++|        BASED
00097  M01S00095.combcmd +++|        ARRAY TFET [0:1] S(RFETL); ;  # TEMPORARY FILE FET #
00098  M01S00096.combcmd +++|
00099  M01S00097.combcmd +++|#
00100  M01S00098.combcmd +++|*     I/O BUFFERS.
00101  M01S00099.combcmd +++|#
00102  M01S00100.combcmd +++|
00103  M01S00101.combcmd +++|        BASED
00104  M01S00102.combcmd +++|        ARRAY FCTBUF [1:FCTBL]  P(1);  # *FCT* BUFFER #
00105  M01S00103.combcmd +++|          BEGIN
00106  M01S00104.combcmd +++|          ITEM FCTB$WRD   I(00,00,60);  # *FCT* BUFFER WORD #
00107  M01S00105.combcmd +++|          END
00108  M01S00106.combcmd +++|
00109  M01S00107.combcmd +++|        ARRAY FCTBUFCW [0:0] P(1);   # *FCT* BUFFER CONTROL WORD #
00110  M01S00108.combcmd +++|          BEGIN
00111  M01S00109.combcmd +++|          ITEM FB$CWRD    I(00,00,60);  # *FCT* BUFFER CONTROL WORD #
00112  M01S00110.combcmd +++|          ITEM FB$BMF     B(00,00,01);  # BUFFER MODIFIED FLAG #
00113  M01S00111.combcmd +++|          ITEM FB$PRUCNT  U(00,30,06);  # NUMBER OF PRU-S IN BUFFER #
00114  M01S00112.combcmd +++|          ITEM FB$PRUNUM  U(00,36,15);  # BEGINNING PRU NUMBER #
00115  M01S00113.combcmd +++|          ITEM FB$ORD     U(00,51,09);  # ORDINAL OF ENTRY IN *OCT* #
00116  M01S00114.combcmd +++|          END
00117  M01S00115.combcmd +++|
00118  M01S00116.combcmd +++|        BASED
00119  M01S00117.combcmd +++|        ARRAY MAPBUF [1:MAPBUFL] P(1);  # MAP BUFFER #
00120  M01S00118.combcmd +++|          BEGIN
00121  M01S00119.combcmd +++|          ITEM MAPB$W     I(00,00,60);  # MAP BUFFER WORD #
00122  M01S00120.combcmd +++|          END
00123  M01S00121.combcmd +++|
00124  M01S00122.combcmd +++|        ARRAY MBUFCW [0:0] P(1);     # MAP BUFFER CONTROL WORD #
00125  M01S00123.combcmd +++|          BEGIN
00126  M01S00124.combcmd +++|          ITEM MB$CWRD    I(00,00,60);  # MAP BUFFER CONTROL WORD #
00127  M01S00125.combcmd +++|          ITEM MB$BMF     B(00,00,01);  # BUFFER MODIFIED FLAG #
00128  M01S00126.combcmd +++|          ITEM MB$PRUNUM  U(00,03,09);  # PRU NUMBER #
00129  M01S00127.combcmd +++|          ITEM MB$SMID    U(00,12,06);  # CSU-ID #
00130  M01S00128.combcmd +++|          ITEM MB$LFN     C(00,18,07);  # LOCAL FILE NAME #
00131  M01S00129.combcmd +++|          END
00132  M01S00130.combcmd +++|
00133  M01S00131.combcmd +++|        BASED
00134  M01S00132.combcmd +++|        ARRAY TBUF [1:TBUFL] S(3);   # TEMPORARY FILE BUFFER #
00135  M01S00133.combcmd +++|          BEGIN
00136  M01S00134.combcmd +++|          ITEM TBUF$W     I(00,00,60);  # TEMPORARY FILE BUFFER WORD #
00137  M01S00135.combcmd +++|          ITEM TBUF$W1    I(01,00,60);  # TEMPORARY BUFFER WORD 1 #
00138  M01S00136.combcmd +++|          ITEM TBUF$W2    I(02,00,60);  # TEMPORARY BUFFER WORD 2 #
00139  M01S00137.combcmd +++|          END
00140  M01S00138.combcmd +++|
00141  M01S00139.combcmd +++|        BASED
00142  M01S00140.combcmd +++|        ARRAY WBUF [1:WBUFL] P(1);   # WORKING BUFFER #
00143  M01S00141.combcmd +++|          BEGIN
00144  M01S00142.combcmd +++|          ITEM WBUF$W     I(00,00,60);  # WORKING BUFFER WORD #
00145  M01S00143.combcmd +++|          END
00146  M01S00144.combcmd +++|
00147  M01S00145.combcmd +++|#
00148  M01S00146.combcmd +++|*     TABLES.
00149  M01S00147.combcmd +++|#
00150  M01S00148.combcmd +++|
00151  M01S00149.combcmd +++|        BASED
00152  M01S00150.combcmd +++|        ARRAY OCT [1:1] S(OCTENTL);  # OPEN CATALOG TABLE #
00153  M01S00151.combcmd +++|          BEGIN
00154  M01S00152.combcmd +++|          ITEM OCT$W1     I(00,00,60);  # *OCT* WORD 1 #
00155  M01S00153.combcmd +++|          ITEM OCT$INTLK  B(00,00,01);  # CATALOG FILE INTERLOCKED #
00156  M01S00154.combcmd +++|          ITEM OCT$FAM    C(00,12,07);  # FAMILY NAME #
00157  M01S00155.combcmd +++|          ITEM OCT$SUBF   U(00,54,06);  # SUBFAMILY DESIGNATOR #
00158  M01S00156.combcmd +++|          ITEM OCT$W2     I(01,00,60);  # *OCT* WORD 2 #
00159  M01S00157.combcmd +++|          ITEM OCT$LFN    C(01,00,07);  # LOCAL FILE NAME #
00160  M01S00158.combcmd +++|          ITEM OCT$PRMA   I(01,42,18);  # PREAMBLE TABLE ADDRESS #
00161  M01S00159.combcmd +++|          ITEM OCT$W3     I(02,00,60);  # *OCT* WORD 3 #
00162  M01S00160.combcmd +++|          ITEM OCT$ATTM   C(02,00,02);  # CATALOG ATTACH MODE #
00163  M01S00161.combcmd +++|          ITEM OCT$BUFL   U(02,30,12);  # I/O BUFFER LENGTH #
00164  M01S00162.combcmd +++|          ITEM OCT$LINK   I(02,42,18);  # REQUEST LINK #
00165  M01S00163.combcmd +++|          END
00166  M01S00164.combcmd +++|
00167  M01S00165.combcmd +++|        BASED
00168  M01S00166.combcmd +++|        ARRAY OMT [1:MAXSM] S(OMTENTL);  # OPEN MAP TABLE #
00169  M01S00167.combcmd +++|          BEGIN
00170  M01S00168.combcmd +++|          ITEM OMT$W1     I(00,00,60);  # *OMT* WORD 1 #
00171  M01S00169.combcmd +++|          ITEM OMT$OPEN   B(00,00,01);  # MAP OPEN BIT #
00172  M01S00170.combcmd +++|          ITEM OMT$INTLK  B(00,01,01);  # MAP FILE INTERLOCKED #
00173  M01S00171.combcmd +++|          ITEM OMT$ATTM   C(00,06,02);  # MAP FILE ATTACH MODE #
00174  M01S00172.combcmd +++|          ITEM OMT$LFN    C(00,18,07);  # LOCAL FILE NAME #
00175  M01S00173.combcmd +++|          ITEM OMT$ZER    U(00,54,06);  # ZERO FILE NAME #
00176  M01S00174.combcmd +++|          END
00177  M01S00175.combcmd +++|
00178  M01S00176.combcmd +++|        BASED
00179  M01S00177.combcmd +++|        ARRAY PRMBUF;;               # PREAMBLE TABLE #
00180  M01S00178.combcmd +++|
00181  M01S00179.combcmd +++|        END  # BCMDCOM #
00182  M01S00180.combcmd +++|
00183  M01S00181.combcmd +++|      END  # COMBCMD #
00184  M01S00182.combcmd +++|
00185  M01S00183.combcmd +++|                                               CONTROL LIST;
cdc/nos2.source/opl.opl871/common/combcmd.txt ยท Last modified: by 127.0.0.1