*COMDECK DBGBUF 
# 
 * * * * * * * * * *  ----------  DBGBUF  ----------  * * * * * * * * * 
  
 COMMON BLOCKS TO TRACE ALL DATA TRAFFIC (DEBUG MUST BE ON) 
  
# 
 CONTROL IFEQ DEBUG,1;
# 
   COMMON BLOCK OF ALL BLOCKS AND MESSAGES RECEIVED FROM APP BY HPGET 
# 
   COMMON BGET; 
     BEGIN
     ARRAY BGT P(1);         # MARKS POSITION OF COMMON BLOCK IN DUMP  #
       BEGIN
       ITEM BGETM  C(0,0,4)=["BGET"]; 
       ITEM BGETZ  U(0,24,18)=[0];
       ITEM BGET7  U(0,42,18)=[O"777777"];
       END
     ITEM BGETP = 0;         # OFFSET PTR OF NEXT AVAIL WORD IN BUFFER #
     ARRAY BGETA [0:999]; 
       ITEM BGETW U(0,0,WL);
     END
# 
   COMMON BLOCK OF ALL SUPERVISOR MESSAGES SENT TO APP BY HPGETSM 
# 
   COMMON BGETSM; 
     BEGIN
     ARRAY BGTS P(1);            # MARKS POSITION OF COMDECK IN DUMP   #
       BEGIN
       ITEM BGTSM  C(0,0,6)=["BGETSM"]; 
       ITEM BGTSZ  U(0,36,6)=[0]; 
       ITEM BGTS7  U(0,42,18)=[O"777777"];
       END
     ITEM BGETSMP = 0;       # OFFSET PTR OF NEXT AVAIL WORD IN BUFFER #
     ARRAY BGETSMA [0:999]; 
       ITEM BGETSMW U(0,0,WL);
     END
# 
   COMMON BLOCK OF ALL UPLINE DATA RECEIVED FROM PIP
# 
   COMMON BPIPIN; 
     BEGIN
     ARRAY BPN P(1);             # MARKS POSITION OF COMDECK IN DUMP   #
       BEGIN
       ITEM BPINM  C(0,0,6)=["BPIPIN"]; 
       ITEM BPINZ  U(0,36,6)=[0]; 
       ITEM BPIN7  U(0,42,18)=[O"777777"];
       END
     ITEM BPIPINP = 0;       # OFFSET PTR OF NEXT AVAIL WORD IN BUFFER #
     ARRAY BPIPINA [0:999]; 
       ITEM BPIPINW U(0,0,WL);
     END
# 
   COMMON BLOCK OF ALL DOWNLINE DATA SENT TO PIP
# 
   COMMON BPIPOUT;
     BEGIN
     ARRAY BPOU P(1);            # MARKS POSITION OF COMDECK IN DUMP   #
       BEGIN
       ITEM BPOUM  C(0,0,7)=["BPIPOUT"];
       ITEM BPOU7  U(0,42,18)=[O"777777"];
       END
     ITEM BPIPOTP = 0;       # OFFSET PTR OF NEXT AVAIL WORD IN BUFFER #
     ARRAY BPIPOTA [0:999]; 
       ITEM BPIPOTW U(0,0,WL);
     END
# 
   COMMON BLOCK OF ALL BLOCKS AND MESSAGES SENT TO APP BY HPPUT 
# 
   COMMON BPUT; 
     BEGIN
     ARRAY BPT P(1);         # MARKS POSITION OF COMMON BLOCK IN DUMP  #
       BEGIN
       ITEM BPUTM  C(0,0,4)=["BPUT"]; 
       ITEM BPUTZ  U(0,24,18)=[0];
       ITEM BPUT7  U(0,42,18)=[O"777777"];
       END
     ITEM BPUTP = 0;         # OFFSET PTR OF NEXT AVAIL WORD IN BUFFER #
     ARRAY BPUTA [0:999]; 
       ITEM BPUTW U(0,0,WL);
     END
  
   BASED ARRAY TRAP P(1);    # BASED ARRAY FOR COPYING DATA            #
     ITEM WORD U(0,0,WL); 
  
   ITEM TRAPINDEX;           # INDEX FOR COPYING DATA INTO BUFFERS     #
  
#  ARRAY FOR STORING TIME IN PIP IN/OUT DEBUG BUFFERS                  #
      COMMON BPTITLE; 
        BEGIN 
        ARRAY PIPTIME;
          ITEM TIMENAME C(0,0,4)=["TIME"],
               TIMESECS U(0,24,36),# REAL TIME SINCE NETWORK INITIALIZA#
               TIMEWORD;
  
#  ARRAY FOR STORING PROCESS NUMBER IN APP GET/PUT/GETSM DEBUG BUFFERS #
        ARRAY PRNUM;
          ITEM PNAME C(0,0,2)=["PN"], 
               PNVALUE U(0,12,48),# APPLICATION PROCESS NUMBER         #
               PNWORD;
        END 
 CONTROL FI;
  
      COMMON BFETX; 
  
      BEGIN 
      ARRAY BFET       [0:0] S(6);  # FET FORMAT                       #
        BEGIN 
        ITEM FETLFN      C(00,00,07);  # LOGICAL FILE NAME             #
        ITEM FETSTATUS   U(00,48,11);  # STATUS RET (STATUS MACRO)     #
        ITEM FETSTAT     U(00,50,10);  # STATUS RET (READ/WRITE)       #
        ITEM FETCMPT     B(00,59,01);  # FET COMPLETE BIT              #
        ITEM FETLEN      U(01,36,06);  # FET LENGTH                    #
        ITEM FETFIRST    U(01,42,18);  # FIRST                         #
        ITEM FETIN       U(02,42,18);  # IN                            #
        ITEM FETOUT      U(03,42,18);  # OUT                           #
        ITEM FETLIMIT    U(04,42,18);  # LIMIT                         #
        ITEM FET5        U(05,00,WL);  # WORD 5                        #
        END 
  
      ITEM MSGCNT U = 0;     # RUNNING COUNT OF MESSAGES               #
      ITEM ZNRF1 C(10);      # ZERO FILLED FILE NAME                   #
      ITEM ZNRF2 C(10);      # ZERO FILLED FILE NAME                   #
      ITEM MC   U = 0;       # MC PARAMETER (MESSAGE COUNT)            #
      END 
# 
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
# 
