User Tools

Site Tools


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

Common COMTCTW

0 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comtctw +++|
00002  M01S00002.comtctw +++|#     COMTCTW - CATALOG SECTOR CONTROL WORD DESCRIPTION.              #
00003  M01S00003.comtctw +++|                                               CONTROL NOLIST;
00004  M01S00004.comtctw +++|                                               CONTROL IFEQ LISTCON,1;
00005  M01S00005.comtctw +++|                                               CONTROL LIST;
00006  M01S00006.comtctw +++|                                               CONTROL FI;
00007  M01S00007.comtctw +++|      BEGIN  # COMTCTW #
00008  M01S00008.comtctw +++|
00009  M01S00009.comtctw +++|#
00010  M01S00010.comtctw +++|***   COMTCTW - CATALOG SECTOR CONTROL WORD DESCRIPTION.
00011  M01S00011.comtctw +++|*
00012  M01S00012.comtctw +++|*     COMTCTW CONTAINS A DESCRIPTION OF THE CONTROL WORD
00013  M01S00013.comtctw +++|*     RETURNED WITH THE PERMANENT FILE CATALOG SECTOR.
00014  M01S00014.comtctw +++|#
00015  M01S00015.comtctw +++|
00016  M01S00016.comtctw +++|
00017  M01S00017.comtctw +++|      COMMON TCTWCOM;
00018  M01S00018.comtctw +++|
00019  M01S00019.comtctw +++|        BEGIN  # TCTWCOM #
00020  M01S00020.comtctw +++|
00021  M01S00021.comtctw +++|        BASED
00022  M01S00022.comtctw +++|        ARRAY CNTRWORD [0:0] P(1);   # CONTROL WORD #
00023  M01S00023.comtctw +++|          BEGIN
00024  M01S00024.comtctw +++|          ITEM CNTR$DN    U(00,00,06);  # DEVICE NUMBER #
00025  M01S00025.comtctw +++|          ITEM CNTR$EQ    U(00,24,12);  # EQUIPMENT NUMBER #
00026  M01S00026.comtctw +++|          ITEM CNTR$TRK   U(00,36,12);  # TRACK NUMBER #
00027  M01S00027.comtctw +++|          ITEM CNTR$SEC   U(00,48,12);  # SECTOR NUMBER #
00028  M01S00028.comtctw +++|          END
00029  M01S00029.comtctw +++|
00030  M01S00030.comtctw +++|        END  # TCTWCOM #
00031  M01S00031.comtctw +++|
00032  M01S00032.comtctw +++|      END  # COMTCTW #
00033  M01S00033.comtctw +++|
00034  M01S00034.comtctw +++|                                               CONTROL LIST;
00035  M01S00014.comtctw +++|COMTDBG
00036  M01S00005.comtctw +++|                                               CONTROL LIST;
00037  M01S00006.comtctw +++|                                               CONTROL FI;
00038  M01S00007.comtctw +++|
00039  M01S00008.comtctw +++|#
00040  M01S00009.comtctw +++|***   COMTDBG - COMMON DEFINITIONS FOR *SSDEBUG* PROCS.
00041  M01S00010.comtctw +++|*
00042  M01S00011.comtctw +++|*     COMTDBG CONTAINS THE DEFINITION OF ALL THE ITEMS, ARRAYS,
00043  M01S00012.comtctw +++|*     FETS, BUFFERS AND COMMON AREAS USED BY ALL *SSDEBUG*
00044  M01S00013.comtctw +++|*     PROCS.
00045  M01S00014.comtctw +++|#
00046  M01S00015.comtctw +++|
00047  M01S00016.comtctw +++|      BEGIN  # COMTDBG #
00048  M01S00017.comtctw +++|      DEF DBUFL      #O"1001"#;      # *CIO* BUFFER LENGTH #
00049  M01S00018.comtctw +++|      DEF DBDIRNM    #5#;            # NUMBER OF *SSDEBUG* DIRECTIVES -
00050  M01S00019.comtctw +++|                                       1 #
00051  M01S00020.comtctw +++|      DEF DBFLAGNM   #8#;            # NUMBER OF FLAGS - 1 #
00052  M01S00021.comtctw +++|      DEF MAXAU      #1931#;         # MAXIMUM AU NUMBER #
00053  M01S00022.comtctw +++|      DEF DBSCR      #"SCR1"#;       # SCRATCH FILE NAME #
00054  M01S00023.comtctw +++|
00055  M01S00024.comtctw +++|#
00056  M01S00025.comtctw +++|*     ARRAY TO HOLD THE DIRECTIVE NAMES.  THE ORDER
00057  M01S00026.comtctw +++|*     OF THE DIRECTIVE NAMES IS THE SAME AS THAT OF
00058  M01S00027.comtctw +++|*     THE SWITCH SET UP IN *DBMAIN* TO PROCESS THE
00059  M01S00028.comtctw +++|*     DIRECTIVES.
00060  M01S00029.comtctw +++|#
00061  M01S00030.comtctw +++|
00062  M01S00031.comtctw +++|      ARRAY DB$DIR [0:DBDIRNM] P(1);
00063  M01S00032.comtctw +++|        BEGIN
00064  M01S00033.comtctw +++|        ITEM DB$DIRNM   C(00,00,02) = [  ##
00065  M01S00034.comtctw +++|        "RC",                        # REMOVE MAP ENTRY #
00066  M01S00035.comtctw +++|        "RL",                        # REMOVE *FCT* ENTRY #
00067  M01S00036.comtctw +++|        "RP",                        # RELEASE PROBLEM CHAIN #
00068  M01S00037.comtctw +++|        "RF",                        # READ RAW FILES #
00069  M01S00038.comtctw +++|        "RS",                        # READ RAW STREAMS #
00070  M01S00039.comtctw +++|        "CF"];                       # CHANGE FLAG #
00071  M01S00040.comtctw +++|        END
00072  M01S00041.comtctw +++|
00073  M01S00042.comtctw +++|#
00074  M01S00043.comtctw +++|*     ARRAY CONTAINING THE VALID FLAG MNEMONICS USED WITH THE
00075  M01S00044.comtctw +++|*     *FL* PARAMETER FOR THE OP=CF DIRECTIVE, AND ASSOCIATED
00076  M01S00045.comtctw +++|*     STATUS VALUES AND FLAGS.
00077  M01S00046.comtctw +++|#
00078  M01S00047.comtctw +++|
00079  M01S00048.comtctw +++|      ARRAY DB$FLAGS [0:DBFLAGNM] P(1);
00080  M01S00049.comtctw +++|        BEGIN
00081  M01S00050.comtctw +++|        ITEM DB$FLAG    C(00,00,02)  # FLAG MNEMONIC #
00082  M01S00051.comtctw +++|          = [                        ##
00083  M01S00052.comtctw +++|        "ME",                        # LINKAGE ERROR (MAP) #
00084  M01S00053.comtctw +++|        "FE",                        # LINKAGE ERROR (*FCT*) #
00085  M01S00054.comtctw +++|        "IB",                        # INHIBIT ALLOCATION #
00086  M01S00055.comtctw +++|        "LC",                        # LOST CARTRIDGE #
00087  M01S00056.comtctw +++|        "EW",                        # EXCESSIVE WRITE ERROR #
00088  M01S00057.comtctw +++|        "FR",                        # FREE CARTRIDGE #
00089  M01S00058.comtctw +++|        "SF",                        # START OF FRAGMENT #
00090  M01S00059.comtctw +++|        "FC",                        # FROZEN CHAIN #
00091  M01S00060.comtctw +++|        "AC"];                      # AU CONFLICT #
00092  M01S00061.comtctw +++|
00093  M01S00062.comtctw +++|        ITEM DB$FLCODE  U(00,12,12)  # FLAG STATUS VALUE #
00094  M01S00063.comtctw +++|          = [                        ##
00095  M01S00064.comtctw +++|        UCF"UNUSED",
00096  M01S00065.comtctw +++|        UCF"CMAP",
00097  M01S00066.comtctw +++|        UCF"INHIB",
00098  M01S00067.comtctw +++|        UCF"LOST",
00099  M01S00068.comtctw +++|        UCF"EWPE",
00100  M01S00069.comtctw +++|        UCF"FREEFL",
00101  M01S00070.comtctw +++|        UCF"SOF",
00102  M01S00071.comtctw +++|        UCF"FROZ",
00103  M01S00072.comtctw +++|        UCF"CONF"];
00104  M01S00073.comtctw +++|
00105  M01S00074.comtctw +++|        ITEM DB$FLSTR   B(00,24,01)  # STREAM DETAIL FLAG #
00106  M01S00075.comtctw +++|          = [6(FALSE),
00107  M01S00076.comtctw +++|        3(TRUE)];
00108  M01S00077.comtctw +++|
00109  M01S00078.comtctw +++|        END
00110  M01S00079.comtctw +++|
00111  M01S00080.comtctw +++|#
00112  M01S00081.comtctw +++|*     ARRAY TO DISPLAY ABNORMAL TERMINATION MESSAGE
00113  M01S00082.comtctw +++|*     FOR *SSDEBUG*.
00114  M01S00083.comtctw +++|#
00115  M01S00084.comtctw +++|
00116  M01S00085.comtctw +++|      ARRAY DBMSG [0:0] P(4);
00117  M01S00086.comtctw +++|        BEGIN
00118  M01S00087.comtctw +++|        ITEM DBMSG$LN   C(00,00,38);  # MESSAGE LINE #
00119  M01S00088.comtctw +++|        ITEM DBMSG$ABN  C(00,00,19) = [" SSDEBUG ABNORMAL, "];
00120  M01S00089.comtctw +++|        ITEM DBMSG$PROC C(01,54,08);  # PROC NAME #
00121  M01S00090.comtctw +++|        ITEM DBMSG$BLNK C(02,42,10) = ["          "];
00122  M01S00091.comtctw +++|        ITEM DBMSG$TERM U(03,48,12) = [0];  # ZERO BYTE TERMINATOR #
00123  M01S00092.comtctw +++|        END
00124  M01S00093.comtctw +++|
00125  M01S00094.comtctw +++|#
00126  M01S00095.comtctw +++|*     ARRAY TO DISPLAY MESSAGES IN THE DAYFILE AND
00127  M01S00096.comtctw +++|*     AT THE CONSOLE.
00128  M01S00097.comtctw +++|#
00129  M01S00098.comtctw +++|
00130  M01S00099.comtctw +++|      ARRAY DBMSG$BUF [0:0] P(4);
00131  M01S00100.comtctw +++|        BEGIN
00132  M01S00101.comtctw +++|        ITEM DBMSG$LINE C(00,00,38);  # MESSAGE LINE #
00133  M01S00102.comtctw +++|        ITEM DBMSG$CSID C(00,30,01);  # SM-ID #
00134  M01S00103.comtctw +++|        ITEM DBMSG$TRAY C(02,00,06);  # ENTRY/EXIT TRAY #
00135  M01S00104.comtctw +++|        ITEM DBMSG$ZRO  U(03,48,12) = [0];  # ZERO BYTE TERMINATOR #
00136  M01S00105.comtctw +++|        END
00137  M01S00106.comtctw +++|
00138  M01S00107.comtctw +++|#
00139  M01S00108.comtctw +++|*     COMMON AREA USED BY *SSDEBUG* PROCS.
00140  M01S00109.comtctw +++|#
00141  M01S00110.comtctw +++|
00142  M01S00111.comtctw +++|      COMMON TDBGCOM;
00143  M01S00112.comtctw +++|
00144  M01S00113.comtctw +++|        BEGIN  # TDBGCOM #
00145  M01S00114.comtctw +++|                                     # $$ #
00146  M01S00115.comtctw +++|        ITEM $$TDBG$$   C(20) = "****** COMTDBG *****";
00147  M01S00116.comtctw +++|                                     # $$ #
00148  M01S00117.comtctw +++|        ITEM ADDRSENSE  I;           # FWA OF BUFFER TO HOLD DRAWER
00149  M01S00118.comtctw +++|                                       STATUS TABLE #
00150  M01S00119.comtctw +++|        ITEM DBREQID    I;           # REQUESTOR ID #
00151  M01S00120.comtctw +++|        ITEM DBSSID     I;           # SUBSYSTEM ID #
00152  M01S00121.comtctw +++|        ITEM TRNSPORT   I;           # TRANSPORT ID #
00153  M01S00122.comtctw +++|
00154  M01S00123.comtctw +++|#
00155  M01S00124.comtctw +++|*     FET AND *CIO* BUFFER USED FOR READING THE DIRECTIVES.
00156  M01S00125.comtctw +++|#
00157  M01S00126.comtctw +++|
00158  M01S00127.comtctw +++|        ARRAY DB$FET [0:0] S(SFETL);;
00159  M01S00128.comtctw +++|        ARRAY DB$CBUF [0:0] S(DBUFL);;
00160  M01S00129.comtctw +++|
00161  M01S00130.comtctw +++|#
00162  M01S00131.comtctw +++|*     FET AND *CIO* BUFFER USED TO WRITE TO THE SCRATCH FILE.
00163  M01S00132.comtctw +++|#
00164  M01S00133.comtctw +++|
00165  M01S00134.comtctw +++|        ARRAY DSCR$FET [0:0] S(SFETL);;
00166  M01S00135.comtctw +++|        ARRAY DSCR$BUF [0:0] S(DBUFL);;
00167  M01S00136.comtctw +++|
00168  M01S00137.comtctw +++|        END  # TDBGCOM #
00169  M01S00138.comtctw +++|
00170  M01S00139.comtctw +++|      END  # COMTDBG #
00171  M01S00140.comtctw +++|
00172  M01S00141.comtctw +++|                                               CONTROL LIST;
cdc/nos2.source/opl.opl871/common/comtctw.txt ยท Last modified: by 127.0.0.1