*DECK,DMP$DCL 
*IF,DEF,TRACE 
USETEXT DMP$PRT 
USETEXT DCL$DMP 
 PROC DMP$DCL(ARRAY$ADDR,ITEM$TAG,ORD); 
BEGIN 
  
ITEM
 ARRAY$ADDR U,
 STAT U,
 TEMP$VAR C(10),
TEMP$VAR2 C(12),
 ITEM$TAG U,
 ORD, 
 ITER I;
 XREF BEGIN 
FUNC XCOD C(10) ; 
 FUNC XCDD C(10) ;
 FUNC XSFW C(10) ;
PROC DMP$ZB5 ;
 END
ARRAY STAT$BLD S(2);
 BEGIN
 ITEM S$MNEM   C(00,00,09); 
 ITEM S$SLASH  C(00,54,01)=["/"]; 
 ITEM S$VAL    C(01,00,02); 
 ITEM S$ENTIRE C(00,00,12); 
 END
  
P<DCL$DMP> = ARRAY$ADDR;
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
H$TABLE = "DCL";
TEMP$VAR  = XCOD(ARRAY$ADDR); 
H$ADD = C<2,8>TEMP$VAR ;
H$DESCR = "  (NONE)  "; 
TEMP$VAR  = XCDD(ORD);
H$ORDD = C<7,3>TEMP$VAR ; 
TEMP$VAR  = XCOD(ORD);
H$ORDB = C<7,3>TEMP$VAR ; 
DMP$ZB5(10,HEAD$BUFF,STAT); 
TEMP$VAR  = XCOD(DCL$ACCOUNT);
BUFF$NAME1 = "ACCOUNT"; 
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCDD(DCL$ACCOUNT);
BUFF$DEC1 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$ACCLIMIT); 
BUFF$NAME2 = "ACCLIMIT";
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(DCL$ACCLIMIT); 
BUFF$DEC2 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$PMSIZE); 
BUFF$NAME3 = "PMSIZE";
BUFF$OCTAL3 = C<5,5>TEMP$VAR ;
BUFF$SLASH3 = "/";
TEMP$VAR  = XCDD(DCL$PMSIZE); 
BUFF$DEC3 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$DAYFILE);
BUFF$NAME4 = "DAYFILE"; 
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(DCL$DAYFILE);
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$EOIPRU); 
BUFF$NAME5 = "EOIPRU";
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(DCL$EOIPRU); 
BUFF$DEC5 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$DISKERR);
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "DISKERR"; 
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCDD(DCL$DISKERR);
BUFF$DEC1 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$DSKCODE);
BUFF$NAME2 = "DSKCODE"; 
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(DCL$DSKCODE);
BUFF$DEC2 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$CURPRU); 
BUFF$NAME3 = "CURPRU";
BUFF$OCTAL3 = C<5,5>TEMP$VAR ;
BUFF$SLASH3 = "/";
TEMP$VAR  = XCDD(DCL$CURPRU); 
BUFF$DEC3 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$FNTORD); 
BUFF$NAME4 = "FNTORD";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(DCL$FNTORD); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$FILETYPE); 
BUFF$NAME5 = "FILETYPE";
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(DCL$FILETYPE); 
BUFF$DEC5 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$FILEEC); 
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "FILEEC";
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCDD(DCL$FILEEC); 
BUFF$DEC1 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$FILEIC); 
BUFF$NAME2 = "FILEIC";
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(DCL$FILEIC); 
BUFF$DEC2 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$BANNER); 
BUFF$NAME3 = "BANNER";
BUFF$OCTAL3 = C<5,5>TEMP$VAR ;
BUFF$SLASH3 = "/";
TEMP$VAR  = XCDD(DCL$BANNER); 
BUFF$DEC3 = C<4,6>TEMP$VAR ;
IF DCL$RETURN THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME4 = "RETURN";
BUFF$CHAR4 = TEMP$VAR ; 
TEMP$VAR  = XCOD(DCL$BANPUT); 
BUFF$NAME5 = "BANPUT";
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(DCL$BANPUT); 
BUFF$DEC5 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$FET0); 
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "FET0";
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCDD(DCL$FET0); 
BUFF$DEC1 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XSFW(DCL$FETLFN); 
BUFF$NAME2 = "FETLFN";
BUFF$CHAR2 = TEMP$VAR ; 
TEMP$VAR  = XCOD(DCL$FETSTAT);
BUFF$NAME3 = "FETSTAT"; 
BUFF$OCTAL3 = C<5,5>TEMP$VAR ;
BUFF$SLASH3 = "/";
TEMP$VAR  = XCDD(DCL$FETSTAT);
BUFF$DEC3 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$DSPERR); 
BUFF$NAME4 = "DSPERR";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(DCL$DSPERR); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$FETERR); 
BUFF$NAME5 = "FETERR";
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(DCL$FETERR); 
BUFF$DEC5 = C<4,6>TEMP$VAR ;
IF DCL$FETEOI THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "FETEOI";
BUFF$CHAR1 = TEMP$VAR ; 
TEMP$VAR  = XCOD(DCL$FETCODE);
BUFF$NAME2 = "FETCODE"; 
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(DCL$FETCODE);
BUFF$DEC2 = C<4,6>TEMP$VAR ;
IF DCL$FETEOR THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME3 = "FETEOR";
BUFF$CHAR3 = TEMP$VAR ; 
IF DCL$FETEOF THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME4 = "FETEOF";
BUFF$CHAR4 = TEMP$VAR ; 
IF DCL$FETCB THEN 
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME5 = "FETCB"; 
BUFF$CHAR5 = TEMP$VAR ; 
IF DCL$FETRAN THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "FETRAN";
BUFF$CHAR1 = TEMP$VAR ; 
IF DCL$FETERRP THEN 
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME2 = "FETERRP"; 
BUFF$CHAR2 = TEMP$VAR ; 
TEMP$VAR  = XCOD(DCL$FETLEN); 
BUFF$NAME3 = "FETLEN";
BUFF$OCTAL3 = C<5,5>TEMP$VAR ;
BUFF$SLASH3 = "/";
TEMP$VAR  = XCDD(DCL$FETLEN); 
BUFF$DEC3 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$FETFIRST); 
BUFF$NAME4 = "FETFIRST";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(DCL$FETFIRST); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$DSPFLAGS); 
BUFF$NAME5 = "DSPFLAGS";
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(DCL$DSPFLAGS); 
BUFF$DEC5 = C<4,6>TEMP$VAR ;
IF DCL$DSPREP THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "DSPREP";
BUFF$CHAR1 = TEMP$VAR ; 
IF DCL$DSPNDM THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME2 = "DSPNDM";
BUFF$CHAR2 = TEMP$VAR ; 
IF DCL$DSPPFL THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME3 = "DSPPFL";
BUFF$CHAR3 = TEMP$VAR ; 
TEMP$VAR  = XCOD(DCL$FETIN);
BUFF$NAME4 = "FETIN"; 
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(DCL$FETIN);
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$FETOUT); 
BUFF$NAME5 = "FETOUT";
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(DCL$FETOUT); 
BUFF$DEC5 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$DSPPR);
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "DSPPR"; 
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCDD(DCL$DSPPR);
BUFF$DEC1 = C<4,6>TEMP$VAR ;
IF DCL$DSPPRB THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME2 = "DSPPRB";
BUFF$CHAR2 = TEMP$VAR ; 
TEMP$VAR  = XCOD(DCL$FETFNT); 
BUFF$NAME3 = "FETFNT";
BUFF$OCTAL3 = C<5,5>TEMP$VAR ;
BUFF$SLASH3 = "/";
TEMP$VAR  = XCDD(DCL$FETFNT); 
BUFF$DEC3 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$FETLIMIT); 
BUFF$NAME4 = "FETLIMIT";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(DCL$FETLIMIT); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$DSPRC);
BUFF$NAME5 = "DSPRC"; 
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(DCL$DSPRC);
BUFF$DEC5 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$DSPFNT); 
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "DSPFNT";
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCDD(DCL$DSPFNT); 
BUFF$DEC1 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$CONTROL);
BUFF$NAME2 = "CONTROL"; 
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(DCL$CONTROL);
BUFF$DEC2 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$ORIGIN); 
BUFF$NAME3 = "ORIGIN";
BUFF$OCTAL3 = C<5,5>TEMP$VAR ;
BUFF$SLASH3 = "/";
TEMP$VAR  = XCDD(DCL$ORIGIN); 
BUFF$DEC3 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$FETINDEX); 
BUFF$NAME4 = "FETINDEX";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(DCL$FETINDEX); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$FETCRI); 
BUFF$NAME5 = "FETCRI";
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(DCL$FETCRI); 
BUFF$DEC5 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$FET6); 
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "FET6";
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCDD(DCL$FET6); 
BUFF$DEC1 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$ABH);
BUFF$NAME2 = "ABH"; 
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(DCL$ABH);
BUFF$DEC2 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$DATA); 
BUFF$NAME3 = "DATA";
BUFF$OCTAL3 = C<5,5>TEMP$VAR ;
BUFF$SLASH3 = "/";
TEMP$VAR  = XCDD(DCL$DATA); 
BUFF$DEC3 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(DCL$NBF);
BUFF$NAME4 = "NBF"; 
BUFF$OCTAL4 = C<5,5>TEMP$VAR; 
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(DCL$NBF);
BUFF$DEC4 = C<4,6>TEMP$VAR; 
TEMP$VAR = XCOD(DCL$PL);
BUFF$NAME5 = "PL";
BUFF$OCTAL5 = C<5,5>TEMP$VAR; 
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(DCL$PL); 
BUFF$DEC5 = C<4,6>TEMP$VAR; 
DMP$ZB5(14,PRINT$BUFF,STAT);
  
END 
TERM
*ENDIF
