User Tools

Site Tools


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

Common COMTDBP

0 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comtdbp +++|                                                                      #
00002  M01S00002.comtdbp +++|          CTEXT  COMTDBP - *SSDEBUG* CONTROL STATEMENT PARAMETERS.
00003  M01S00003.comtdbp +++|                                                                      #
00004  M01S00004.comtdbp +++|                                               CONTROL NOLIST;
00005  M01S00005.comtdbp +++|                                               CONTROL IFEQ LISTCON,1;
00006  M01S00006.comtdbp +++|                                               CONTROL LIST;
00007  M01S00007.comtdbp +++|                                               CONTROL FI;
00008  M01S00008.comtdbp +++|
00009  M01S00009.comtdbp +++|                                                                      #
00010  M01S00010.comtdbp +++|***       COMTDBP - ADDRESSES FOR THE PROCESSED *SSDEBUG* PARAMETERS.
00011  M01S00011.comtdbp +++|*
00012  M01S00012.comtdbp +++|*         COMTDBP SETS UP THE *SYMPL*/*COMPASS* DEFINITION OF THE
00013  M01S00013.comtdbp +++|*         AREA TO HOLD THE *ASDEBUG* PROCESSED PARAMETERS.
00014  M01S00014.comtdbp +++|
00015  M01S00015.comtdbp +++|
00016  M01S00016.comtdbp +++|
00017  M01S00017.comtdbp +++|
00018  M01S00018.comtdbp +++|*         ADDRESSES AND THE DEFAULT VALUES FOR THE *SSDEBUG*
00019  M01S00019.comtdbp +++|*         CONTROL CARD AND THE DIRECTIVE PARAMETERS.
00020  M01S00020.comtdbp +++|
00021  M01S00021.comtdbp +++|          USE    /TDBPCOM/
00022  M01S00022.comtdbp +++|
00023  M01S00023.comtdbp +++| DIR      BSS    9           BUFFER TO HOLD THE DIRECTIVE IMAGE
00024  M01S00024.comtdbp +++| OP       DATA   0           DIRECTIVE NAME
00025  M01S00025.comtdbp +++| PF       DATA   0           PERMANENT FILE NAME
00026  M01S00026.comtdbp +++| FO       DATA   0           *FCT* ORDINAL
00027  M01S00027.comtdbp +++| ST       DATA   0           STARTING STREAM NUMBER OF A FILE
00028  M01S00028.comtdbp +++| FM       DATA   0           FAMILY NAME
00029  M01S00029.comtdbp +++| SB       DATA   0           SUBFAMILY IDENTIFIER
00030  M01S00030.comtdbp +++| SM       DATA   0           SMID
00031  M01S00031.comtdbp +++| SL       DATA   0           LOWER STREAM LIMIT
00032  M01S00032.comtdbp +++| SU       DATA   0           UPPER STREAM LIMIT
00033  M01S00033.comtdbp +++| CN       DATA   0           CARTRIDGE SERIAL NUMBER
00034  M01S00034.comtdbp +++| D        DATA   0           I/O DRAWER SLOT
00035  M01S00035.comtdbp +++| YI       DATA   0           Y COORDINATE
00036  M01S00036.comtdbp +++| ZI       DATA   0           Z COORDINATE
00037  M01S00037.comtdbp +++| FL       DATA   0           FLAG TO BE CHANGED
00038  M01S00038.comtdbp +++| ON       DATA   0           INDICATES FLAG IS TO BE SET
00039  M01S00039.comtdbp +++| OF       DATA   0           INDICATES FLAG IS TO BE CLEARED
00040  M01S00040.comtdbp +++| I        DATA   0LINPUT     DIRECTIVE SOURCE FILE
00041  M01S00041.comtdbp +++| L        DATA   0LOUTPUT    OUTPUT FILE
00042  M01S00042.comtdbp +++| Z        DATA   0           *Z* OPTION
00043  M01S00043.comtdbp +++| CM       DATA   2LA-        CARTRDGE MAKER ( *A-* INPLIES IBM )
00044  M01S00044.comtdbp +++|          USE
00045  M01S00045.comtdbp +++|
00046  M01S00046.comtdbp +++|*         RELATIVE WORD POSITIONS OF THE PROCESSED PARAMETERS.
00047  M01S00047.comtdbp +++|*         ASSEMBLY ERRORS ARE CAUSED BY A CHANGE IN THE FOLLOWING
00048  M01S00048.comtdbp +++|*         ORDER.  *DIR* IS CONSIDERED AS WORD *0* FOR *SYMPL*
00049  M01S00049.comtdbp +++|*         DECLARATIONS.
00050  M01S00050.comtdbp +++|                                                                      #
00051  M01S00051.comtdbp +++|                                            # WORD POSITIONS FOR #
00052  M01S00052.comtdbp +++|#DIR      #DEF#  DIR+0       # DIR$DB #0#;   # DIRECTIVE IMAGE BUFFER #
00053  M01S00053.comtdbp +++|#OP       #DEF#  DIR+9       # OP$DB  #9#;   # *OP* #
00054  M01S00054.comtdbp +++|#PF       #DEF#  DIR+10      # PF$DB  #10#;  # *PF* #
00055  M01S00055.comtdbp +++|#FO       #DEF#  DIR+11      # FO$DB  #11#;  # *FO* #
00056  M01S00056.comtdbp +++|#ST       #DEF#  DIR+12      # ST$DB  #12#;  # *ST* #
00057  M01S00057.comtdbp +++|#FM       #DEF#  DIR+13      # FM$DB  #13#;  # *FM* #
00058  M01S00058.comtdbp +++|#SB       #DEF#  DIR+14      # SB$DB  #14#;  # *SB* #
00059  M01S00059.comtdbp +++|#SM       #DEF#  DIR+15      # SM$DB  #15#;  # *SM* #
00060  M01S00060.comtdbp +++|#SL       #DEF#  DIR+16      # SL$DB  #16#;  # *SL* #
00061  M01S00061.comtdbp +++|#SU       #DEF#  DIR+17      # SU$DB  #17#;  # *SU* #
00062  M01S00062.comtdbp +++|#CN       #DEF#  DIR+18      # CN$DB  #18#;  # *CN* #
00063  M01S00063.comtdbp +++|#D        #DEF#  DIR+19      # D$DB   #19#;  # *D* #
00064  M01S00064.comtdbp +++|#YI       #DEF#  DIR+20      # YI$DB  #20#;  # *YI* #
00065  M01S00065.comtdbp +++|#ZI       #DEF#  DIR+21      # ZI$DB  #21#;  # *ZI* #
00066  M01S00066.comtdbp +++|#FL       #DEF#  DIR+22      # FL$DB  #22#;  # *FL* #
00067  M01S00067.comtdbp +++|#ON       #DEF#  DIR+23      # ON$DB  #23#;  # *ON* #
00068  M01S00068.comtdbp +++|#OF       #DEF#  DIR+24      # OF$DB  #24#;  # *OF* #
00069  M01S00069.comtdbp +++|#I        #DEF#  DIR+25      # I$DB   #25#;  # *I* #
00070  M01S00070.comtdbp +++|#L        #DEF#  DIR+26      # L$DB   #26#;  # *L* #
00071  M01S00071.comtdbp +++|#Z        #DEF#  DIR+27      # Z$DB   #27#;  # *Z* #
00072  M01S00072.comtdbp +++|#CM       #DEF#  DIR+28      # CM$DB  #28#;  # *CM* #
00073  M01S00073.comtdbp +++|
00074  M01S00074.comtdbp +++|                                                                      #
00075  M01S00075.comtdbp +++|          COL    12
00076  M01S00076.comtdbp +++|                                                                      #
00077  M01S00077.comtdbp +++|
00078  M01S00078.comtdbp +++|           DEF DBARGL     #29#;      # LENGTH OF BUFFER TO HOLD ALL
00079  M01S00079.comtdbp +++|                                       *SSDEBUG* PROCESSED PARAMETERS
00080  M01S00080.comtdbp +++|                                       (BOTH CONTROL CARD AND DIRECT
00081  M01S00081.comtdbp +++|                                       IVE) AND THE BUFFER TO HOLD
00082  M01S00082.comtdbp +++|                                       THE DIRECTIVE IMAGE #
00083  M01S00083.comtdbp +++|           DEF DBDIRPRML  #25#;      # NUMBER OF *SSDEBUG* DIRECTIVE
00084  M01S00084.comtdbp +++|                                       PARAMETERS AND THE LENGTH OF
00085  M01S00085.comtdbp +++|                                       THE BUFFER TO HOLD THE DIRECTIVE
00086  M01S00086.comtdbp +++|                                       IMAGE #
00087  M01S00087.comtdbp +++|
00088  M01S00088.comtdbp +++|           COMMON TDBPCOM;
00089  M01S00089.comtdbp +++|
00090  M01S00090.comtdbp +++|             BEGIN  # TDBPCOM #
00091  M01S00091.comtdbp +++|
00092  M01S00092.comtdbp +++|                                                                      #
00093  M01S00093.comtdbp +++|*         ARRAY TO HOLD THE DIRECTIVE IMAGE AND TO
00094  M01S00094.comtdbp +++|*         ACCESS THE PROCESSED *SSDEBUG* PARAMETERS.
00095  M01S00095.comtdbp +++|                                                                      #
00096  M01S00096.comtdbp +++|
00097  M01S00097.comtdbp +++|             ARRAY DBARG [0:0] P(DBARGL);
00098  M01S00098.comtdbp +++|               BEGIN
00099  M01S00099.comtdbp +++|               ITEM DBARG$DIRN C(00,00,03);  # DIRECTIVE NUMBER #
00100  M01S00100.comtdbp +++|               ITEM DBARG$DIRF B(00,59,01);  # DIRECTIVE ERROR FLAG #
00101  M01S00101.comtdbp +++|               ITEM DBARG$DIRI C(01,00,80);  # DIRECTIVE IMAGE #
00102  M01S00102.comtdbp +++|
00103  M01S00103.comtdbp +++|                                                                      #
00104  M01S00104.comtdbp +++|*         FOLLOWING ITEMS DEFINE FIELDS FOR THE *SSDEBUG* DIRECTIVE
00105  M01S00105.comtdbp +++|*         PARAMETERS.
00106  M01S00106.comtdbp +++|                                                                      #
00107  M01S00107.comtdbp +++|
00108  M01S00108.comtdbp +++|               ITEM DBARG$OP   C(OP$DB,00,02);  # DIRECTIVE NAME #
00109  M01S00109.comtdbp +++|               ITEM DBARG$WPF  U(PF$DB,00,60);  # REFERENCE TO PF$DB #
00110  M01S00110.comtdbp +++|               ITEM DBARG$PF   C(PF$DB,00,07);  # PERMANENT FILE NAME #
00111  M01S00111.comtdbp +++|               ITEM DBARG$FO   I(FO$DB,00,60);  # *FCT* ORDINAL #
00112  M01S00112.comtdbp +++|               ITEM DBARG$ST   I(ST$DB,00,60);  # STARTING STREAM #
00113  M01S00113.comtdbp +++|               ITEM DBARG$WFM  U(FM$DB,00,60);  # REFERENCE TO FM$DB #
00114  M01S00114.comtdbp +++|               ITEM DBARG$FM   C(FM$DB,00,07);  # FAMILY NAME #
00115  M01S00115.comtdbp +++|               ITEM DBARG$SB   U(SB$DB,00,60);  # SUBFAMILY INDEX #
00116  M01S00116.comtdbp +++|               ITEM DBARG$SMID U(SM$DB,00,06);  # SM IDENTIFIER #
00117  M01S00117.comtdbp +++|               ITEM DBARG$SM   C(SM$DB,00,01);  # REFERENCE TO SMID #
00118  M01S00118.comtdbp +++|               ITEM DBARG$WSM  U(SM$DB,06,06);  # NEXT 6 BITS TO SMID #
00119  M01S00119.comtdbp +++|               ITEM DBARG$SL   U(SL$DB,00,60);  # LOWER STREAM LIMIT #
00120  M01S00120.comtdbp +++|               ITEM DBARG$SU   U(SU$DB,00,60);  # UPPER STREAM LIMIT #
00121  M01S00121.comtdbp +++|               ITEM DBARG$WCN  I(CN$DB,00,60);  # REFERENCE TO CN$DB #
00122  M01S00122.comtdbp +++|               ITEM DBARG$CN   C(CN$DB,00,08);  # CSN ( DIGITS ONLY ) #
00123  M01S00123.comtdbp +++|               ITEM DBARG$D    I(D$DB,00,60);   # I/O DRAWER SLOT #
00124  M01S00124.comtdbp +++|               ITEM DBARG$YI   I(YI$DB,00,60);  # Y COORDINATE #
00125  M01S00125.comtdbp +++|               ITEM DBARG$ZI   I(ZI$DB,00,60);  # Z COORDIANTE #
00126  M01S00126.comtdbp +++|               ITEM DBARG$FL   C(FL$DB,00,02);  # FLAG NAME #
00127  M01S00127.comtdbp +++|               ITEM DBARG$FLCD U(FL$DB,12,12);  # FLAG CODE VALUE #
00128  M01S00128.comtdbp +++|               ITEM DBARG$FLSD B(FL$DB,24,01);  # STREAM DETAIL FLAG #
00129  M01S00129.comtdbp +++|               ITEM DBARG$ON   U(ON$DB,00,60);  # SET FLAG #
00130  M01S00130.comtdbp +++|               ITEM DBARG$OF   U(OF$DB,00,60);  # CLEAR FLAG #
00131  M01S00131.comtdbp +++|               ITEM DBARG$I    C(I$DB,00,07);   # INPUT FILE NAME #
00132  M01S00132.comtdbp +++|               ITEM DBARG$WL   U(L$DB,00,60);   # REFERENCE TO L$DB #
00133  M01S00133.comtdbp +++|               ITEM DBARG$L    C(L$DB,00,07);   # OUTPUT FILE NAME #
00134  M01S00134.comtdbp +++|               ITEM DBARG$Z    I(Z$DB,00,60);   # *Z* OPTION #
00135  M01S00135.comtdbp +++|               ITEM DBARG$WCM  I(CM$DB,00,60);  # REFERENCE TO CM$DB #
00136  M01S00136.comtdbp +++|               ITEM DBARG$CM   C(CM$DB,00,02);  # CARTRIDGE MAKER ID #
00137  M01S00137.comtdbp +++|               END
00138  M01S00138.comtdbp +++|
00139  M01S00139.comtdbp +++|             END  # TDBPCOM #
00140  M01S00140.comtdbp +++|                                                                      #
00141  M01S00141.comtdbp +++|          COL    30
00142  M01S00142.comtdbp +++|          ENDX                                                        #
00143  M01S00143.comtdbp +++|                                               CONTROL LIST;
cdc/nos2.source/opl.opl871/common/comtdbp.txt ยท Last modified: by 127.0.0.1