*COMDECK DMP$PRT
   #  COMMON BLOCK: PRINT BUFFERS FOR DMP ROUTINES #
COMMON DMP$PRT; 
BEGIN 
ARRAY PRINT$BUFF  S(1); 
BEGIN 
ITEM BUFF$BUFF    C(00,00,10);
ITEM BUFF$CC      C(00,00,01);
ITEM BUFF$NAME1   C(00,06,09);
ITEM BUFF$BLANKA  C(01,00,02);
ITEM BUFF$OCTAL1  C(01,12,05);
ITEM BUFF$SLASH1  C(01,42,01);
ITEM BUFF$DEC1    C(01,48,06);
ITEM BUFF$BLANKB  C(02,24,03);
ITEM BUFF$CHAR1   C(01,12,12);
ITEM BUFF$NAME2   C(02,42,09);
ITEM BUFF$BLANKC  C(03,36,02);
ITEM BUFF$OCTAL2  C(03,48,05);
ITEM BUFF$SLASH2  C(04,18,01);
ITEM BUFF$DEC2    C(04,24,06);
ITEM BUFF$BLANKD  C(05,00,03);
ITEM BUFF$CHAR2   C(03,48,12);
ITEM BUFF$NAME3   C(05,24,09);
ITEM BUFF$BLANKE  C(06,18,02);
ITEM BUFF$OCTAL3  C(06,30,05);
ITEM BUFF$SLASH3  C(07,00,01);
ITEM BUFF$DEC3    C(07,06,06);
ITEM BUFF$BLANKF  C(07,42,03);
ITEM BUFF$CHAR3   C(06,30,12);
ITEM BUFF$NAME4   C(08,00,09);
ITEM BUFF$BLANKG  C(08,54,02);
ITEM BUFF$OCTAL4  C(09,06,05);
ITEM BUFF$SLASH4  C(09,36,01);
ITEM BUFF$DEC4    C(09,42,06);
ITEM BUFF$BLANKH  C(10,18,03);
ITEM BUFF$CHAR4   C(09,06,12);
ITEM BUFF$NAME5   C(10,36,09);
ITEM BUFF$BLANKI  C(11,30,02);
ITEM BUFF$OCTAL5  C(11,42,05);
ITEM BUFF$SLASH5  C(12,12,01);
ITEM BUFF$DEC5    C(12,18,06);
ITEM BUFF$CHAR5   C(11,42,12);
ITEM BUFF$BLANKJ  C(10,24,06);
END 
ARRAY DUMMY [15]; 
ITEM DUMMY$ITEM;
ARRAY HEAD$BUFF S(10);
BEGIN 
ITEM H$CC    C(00,00,01)=["0"]; 
ITEM H$1     C(00,06,09)=["         "]; 
ITEM H$2     C(01,00,12)=["TABLE NAME= "];
ITEM H$TABLE C(02,12,03); 
ITEM H$3     C(02,30,05)=["     "]; 
ITEM H$4     C(03,00,10)=[" ADDRESS= "];
ITEM H$ADD   C(04,00,08); 
ITEM H$5     C(04,48,15)=["  ENTRY NAME=  "]; 
ITEM H$DESCR C(06,18,12)=["            "];
ITEM H$6     C(07,30,05)=["     "]; 
ITEM H$7     C(08,00,15)=["INDEX= XXXB/XXX"]; 
ITEM H$ORDB   U(08,42,18);
ITEM H$ORDD   U(09,12,18);
END 
END 
