COMTDBP 
COMMON
                                                                      # 
          CTEXT  COMTDBP - *SSDEBUG* CONTROL STATEMENT PARAMETERS.
                                                                      # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
  
                                                                      # 
***       COMTDBP - ADDRESSES FOR THE PROCESSED *SSDEBUG* PARAMETERS. 
* 
*         COMTDBP SETS UP THE *SYMPL*/*COMPASS* DEFINITION OF THE 
*         AREA TO HOLD THE *ASDEBUG* PROCESSED PARAMETERS.
  
  
  
  
*         ADDRESSES AND THE DEFAULT VALUES FOR THE *SSDEBUG*
*         CONTROL CARD AND THE DIRECTIVE PARAMETERS.
  
          USE    /TDBPCOM/
  
 DIR      BSS    9           BUFFER TO HOLD THE DIRECTIVE IMAGE 
 OP       DATA   0           DIRECTIVE NAME 
 PF       DATA   0           PERMANENT FILE NAME
 FO       DATA   0           *FCT* ORDINAL
 ST       DATA   0           STARTING STREAM NUMBER OF A FILE 
 FM       DATA   0           FAMILY NAME
 SB       DATA   0           SUBFAMILY IDENTIFIER 
 SM       DATA   0           SMID 
 SL       DATA   0           LOWER STREAM LIMIT 
 SU       DATA   0           UPPER STREAM LIMIT 
 CN       DATA   0           CARTRIDGE SERIAL NUMBER
 D        DATA   0           I/O DRAWER SLOT
 YI       DATA   0           Y COORDINATE 
 ZI       DATA   0           Z COORDINATE 
 FL       DATA   0           FLAG TO BE CHANGED 
 ON       DATA   0           INDICATES FLAG IS TO BE SET
 OF       DATA   0           INDICATES FLAG IS TO BE CLEARED
 I        DATA   0LINPUT     DIRECTIVE SOURCE FILE
 L        DATA   0LOUTPUT    OUTPUT FILE
 Z        DATA   0           *Z* OPTION 
 CM       DATA   2LA-        CARTRDGE MAKER ( *A-* INPLIES IBM )
          USE 
  
*         RELATIVE WORD POSITIONS OF THE PROCESSED PARAMETERS.
*         ASSEMBLY ERRORS ARE CAUSED BY A CHANGE IN THE FOLLOWING 
*         ORDER.  *DIR* IS CONSIDERED AS WORD *0* FOR *SYMPL* 
*         DECLARATIONS. 
                                                                      # 
                                            # WORD POSITIONS FOR #
#DIR      #DEF#  DIR+0       # DIR$DB #0#;   # DIRECTIVE IMAGE BUFFER # 
#OP       #DEF#  DIR+9       # OP$DB  #9#;   # *OP* # 
#PF       #DEF#  DIR+10      # PF$DB  #10#;  # *PF* # 
#FO       #DEF#  DIR+11      # FO$DB  #11#;  # *FO* # 
#ST       #DEF#  DIR+12      # ST$DB  #12#;  # *ST* # 
#FM       #DEF#  DIR+13      # FM$DB  #13#;  # *FM* # 
#SB       #DEF#  DIR+14      # SB$DB  #14#;  # *SB* # 
#SM       #DEF#  DIR+15      # SM$DB  #15#;  # *SM* # 
#SL       #DEF#  DIR+16      # SL$DB  #16#;  # *SL* # 
#SU       #DEF#  DIR+17      # SU$DB  #17#;  # *SU* # 
#CN       #DEF#  DIR+18      # CN$DB  #18#;  # *CN* # 
#D        #DEF#  DIR+19      # D$DB   #19#;  # *D* #
#YI       #DEF#  DIR+20      # YI$DB  #20#;  # *YI* # 
#ZI       #DEF#  DIR+21      # ZI$DB  #21#;  # *ZI* # 
#FL       #DEF#  DIR+22      # FL$DB  #22#;  # *FL* # 
#ON       #DEF#  DIR+23      # ON$DB  #23#;  # *ON* # 
#OF       #DEF#  DIR+24      # OF$DB  #24#;  # *OF* # 
#I        #DEF#  DIR+25      # I$DB   #25#;  # *I* #
#L        #DEF#  DIR+26      # L$DB   #26#;  # *L* #
#Z        #DEF#  DIR+27      # Z$DB   #27#;  # *Z* #
#CM       #DEF#  DIR+28      # CM$DB  #28#;  # *CM* # 
  
                                                                      # 
          COL    12 
                                                                      # 
  
           DEF DBARGL     #29#;      # LENGTH OF BUFFER TO HOLD ALL 
                                       *SSDEBUG* PROCESSED PARAMETERS 
                                       (BOTH CONTROL CARD AND DIRECT
                                       IVE) AND THE BUFFER TO HOLD
                                       THE DIRECTIVE IMAGE #
           DEF DBDIRPRML  #25#;      # NUMBER OF *SSDEBUG* DIRECTIVE
                                       PARAMETERS AND THE LENGTH OF 
                                       THE BUFFER TO HOLD THE DIRECTIVE 
                                       IMAGE #
  
           COMMON TDBPCOM;
  
             BEGIN  # TDBPCOM # 
  
                                                                      # 
*         ARRAY TO HOLD THE DIRECTIVE IMAGE AND TO
*         ACCESS THE PROCESSED *SSDEBUG* PARAMETERS.
                                                                      # 
  
             ARRAY DBARG [0:0] P(DBARGL); 
               BEGIN
               ITEM DBARG$DIRN C(00,00,03);  # DIRECTIVE NUMBER # 
               ITEM DBARG$DIRF B(00,59,01);  # DIRECTIVE ERROR FLAG # 
               ITEM DBARG$DIRI C(01,00,80);  # DIRECTIVE IMAGE #
  
                                                                      # 
*         FOLLOWING ITEMS DEFINE FIELDS FOR THE *SSDEBUG* DIRECTIVE 
*         PARAMETERS. 
                                                                      # 
  
               ITEM DBARG$OP   C(OP$DB,00,02);  # DIRECTIVE NAME #
               ITEM DBARG$WPF  U(PF$DB,00,60);  # REFERENCE TO PF$DB #
               ITEM DBARG$PF   C(PF$DB,00,07);  # PERMANENT FILE NAME # 
               ITEM DBARG$FO   I(FO$DB,00,60);  # *FCT* ORDINAL # 
               ITEM DBARG$ST   I(ST$DB,00,60);  # STARTING STREAM # 
               ITEM DBARG$WFM  U(FM$DB,00,60);  # REFERENCE TO FM$DB #
               ITEM DBARG$FM   C(FM$DB,00,07);  # FAMILY NAME # 
               ITEM DBARG$SB   U(SB$DB,00,60);  # SUBFAMILY INDEX # 
               ITEM DBARG$SMID U(SM$DB,00,06);  # SM IDENTIFIER # 
               ITEM DBARG$SM   C(SM$DB,00,01);  # REFERENCE TO SMID # 
               ITEM DBARG$WSM  U(SM$DB,06,06);  # NEXT 6 BITS TO SMID # 
               ITEM DBARG$SL   U(SL$DB,00,60);  # LOWER STREAM LIMIT #
               ITEM DBARG$SU   U(SU$DB,00,60);  # UPPER STREAM LIMIT #
               ITEM DBARG$WCN  I(CN$DB,00,60);  # REFERENCE TO CN$DB #
               ITEM DBARG$CN   C(CN$DB,00,08);  # CSN ( DIGITS ONLY ) # 
               ITEM DBARG$D    I(D$DB,00,60);   # I/O DRAWER SLOT # 
               ITEM DBARG$YI   I(YI$DB,00,60);  # Y COORDINATE #
               ITEM DBARG$ZI   I(ZI$DB,00,60);  # Z COORDIANTE #
               ITEM DBARG$FL   C(FL$DB,00,02);  # FLAG NAME # 
               ITEM DBARG$FLCD U(FL$DB,12,12);  # FLAG CODE VALUE # 
               ITEM DBARG$FLSD B(FL$DB,24,01);  # STREAM DETAIL FLAG #
               ITEM DBARG$ON   U(ON$DB,00,60);  # SET FLAG #
               ITEM DBARG$OF   U(OF$DB,00,60);  # CLEAR FLAG #
               ITEM DBARG$I    C(I$DB,00,07);   # INPUT FILE NAME # 
               ITEM DBARG$WL   U(L$DB,00,60);   # REFERENCE TO L$DB # 
               ITEM DBARG$L    C(L$DB,00,07);   # OUTPUT FILE NAME #
               ITEM DBARG$Z    I(Z$DB,00,60);   # *Z* OPTION #
               ITEM DBARG$WCM  I(CM$DB,00,60);  # REFERENCE TO CM$DB #
               ITEM DBARG$CM   C(CM$DB,00,02);  # CARTRIDGE MAKER ID #
               END
  
             END  # TDBPCOM # 
                                                                      # 
          COL    30 
          ENDX                                                        # 
                                               CONTROL LIST;
