COMTDBG 
COMMON
  
#     COMTDBG - COMMON DEFINITIONS FOR *SSDEBUG* PROCS.               # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
  
# 
***   COMTDBG - COMMON DEFINITIONS FOR *SSDEBUG* PROCS. 
* 
*     COMTDBG CONTAINS THE DEFINITION OF ALL THE ITEMS, ARRAYS, 
*     FETS, BUFFERS AND COMMON AREAS USED BY ALL *SSDEBUG*
*     PROCS.
# 
  
      BEGIN  # COMTDBG #
      DEF DBUFL      #O"1001"#;      # *CIO* BUFFER LENGTH #
      DEF DBDIRNM    #5#;            # NUMBER OF *SSDEBUG* DIRECTIVES - 
                                       1 #
      DEF DBFLAGNM   #8#;            # NUMBER OF FLAGS - 1 #
      DEF MAXAU      #1931#;         # MAXIMUM AU NUMBER #
      DEF DBSCR      #"SCR1"#;       # SCRATCH FILE NAME #
  
# 
*     ARRAY TO HOLD THE DIRECTIVE NAMES.  THE ORDER 
*     OF THE DIRECTIVE NAMES IS THE SAME AS THAT OF 
*     THE SWITCH SET UP IN *DBMAIN* TO PROCESS THE
*     DIRECTIVES. 
# 
  
      ARRAY DB$DIR [0:DBDIRNM] P(1);
        BEGIN 
        ITEM DB$DIRNM   C(00,00,02) = [  ## 
        "RC",                        # REMOVE MAP ENTRY # 
        "RL",                        # REMOVE *FCT* ENTRY # 
        "RP",                        # RELEASE PROBLEM CHAIN #
        "RF",                        # READ RAW FILES # 
        "RS",                        # READ RAW STREAMS # 
        "CF"];                       # CHANGE FLAG #
        END 
  
# 
*     ARRAY CONTAINING THE VALID FLAG MNEMONICS USED WITH THE 
*     *FL* PARAMETER FOR THE OP=CF DIRECTIVE, AND ASSOCIATED
*     STATUS VALUES AND FLAGS.
# 
  
      ARRAY DB$FLAGS [0:DBFLAGNM] P(1); 
        BEGIN 
        ITEM DB$FLAG    C(00,00,02)  # FLAG MNEMONIC #
          = [                        ## 
        "ME",                        # LINKAGE ERROR (MAP) #
        "FE",                        # LINKAGE ERROR (*FCT*) #
        "IB",                        # INHIBIT ALLOCATION # 
        "LC",                        # LOST CARTRIDGE # 
        "EW",                        # EXCESSIVE WRITE ERROR #
        "FR",                        # FREE CARTRIDGE # 
        "SF",                        # START OF FRAGMENT #
        "FC",                        # FROZEN CHAIN # 
        "AC"];                      # AU CONFLICT # 
  
        ITEM DB$FLCODE  U(00,12,12)  # FLAG STATUS VALUE #
          = [                        ## 
        UCF"UNUSED",
        UCF"CMAP",
        UCF"INHIB", 
        UCF"LOST",
        UCF"EWPE",
        UCF"FREEFL",
        UCF"SOF", 
        UCF"FROZ",
        UCF"CONF"]; 
  
        ITEM DB$FLSTR   B(00,24,01)  # STREAM DETAIL FLAG # 
          = [6(FALSE),
        3(TRUE)]; 
  
        END 
  
# 
*     ARRAY TO DISPLAY ABNORMAL TERMINATION MESSAGE 
*     FOR *SSDEBUG*.
# 
  
      ARRAY DBMSG [0:0] P(4); 
        BEGIN 
        ITEM DBMSG$LN   C(00,00,38);  # MESSAGE LINE #
        ITEM DBMSG$ABN  C(00,00,19) = [" SSDEBUG ABNORMAL, "];
        ITEM DBMSG$PROC C(01,54,08);  # PROC NAME # 
        ITEM DBMSG$BLNK C(02,42,10) = ["          "]; 
        ITEM DBMSG$TERM U(03,48,12) = [0];  # ZERO BYTE TERMINATOR #
        END 
  
# 
*     ARRAY TO DISPLAY MESSAGES IN THE DAYFILE AND
*     AT THE CONSOLE. 
# 
  
      ARRAY DBMSG$BUF [0:0] P(4); 
        BEGIN 
        ITEM DBMSG$LINE C(00,00,38);  # MESSAGE LINE #
        ITEM DBMSG$CSID C(00,30,01);  # SM-ID # 
        ITEM DBMSG$TRAY C(02,00,06);  # ENTRY/EXIT TRAY # 
        ITEM DBMSG$ZRO  U(03,48,12) = [0];  # ZERO BYTE TERMINATOR #
        END 
  
# 
*     COMMON AREA USED BY *SSDEBUG* PROCS.
# 
  
      COMMON TDBGCOM; 
  
        BEGIN  # TDBGCOM #
                                     # $$ # 
        ITEM $$TDBG$$   C(20) = "****** COMTDBG *****"; 
                                     # $$ # 
        ITEM ADDRSENSE  I;           # FWA OF BUFFER TO HOLD DRAWER 
                                       STATUS TABLE # 
        ITEM DBREQID    I;           # REQUESTOR ID # 
        ITEM DBSSID     I;           # SUBSYSTEM ID # 
        ITEM TRNSPORT   I;           # TRANSPORT ID # 
  
# 
*     FET AND *CIO* BUFFER USED FOR READING THE DIRECTIVES. 
# 
  
        ARRAY DB$FET [0:0] S(SFETL);; 
        ARRAY DB$CBUF [0:0] S(DBUFL);;
  
# 
*     FET AND *CIO* BUFFER USED TO WRITE TO THE SCRATCH FILE. 
# 
  
        ARRAY DSCR$FET [0:0] S(SFETL);; 
        ARRAY DSCR$BUF [0:0] S(DBUFL);; 
  
        END  # TDBGCOM #
  
      END  # COMTDBG #
  
                                               CONTROL LIST;
