*DECK CDUMP 
USETEXT   TSOURCE 
PROC CDUMP (ADDR,NUMR,TP);
BEGIN 
ITEM NUMR;
BASED ARRAY ADDR[0]; ITEM DITM; 
ITEM TP C(20);
ARRAY TITLE [0:0] S(3); 
  BEGIN 
  ITEM PCTL C(0,0,1) = [" "]; 
  ITEM TYTL C(0,6,29);
  END 
$BEGIN
ITEM I,K,CNTR;
XREF
      BEGIN 
      PROC PTLSTV;
      PROC PRINT; 
      PROC LIST;
      PROC ENDL;
      END 
TYTL = TP;
PTLSTV(TITLE,2);
CNTR=LOC(ADDR); 
PRINT("(1X,O6,4(10X,O20))");
FOR I=0 STEP 4 UNTIL NUMR DO BEGIN
      LIST(CNTR); 
      FOR K=0 STEP 1 UNTIL 3 DO LIST(DITM[K+I]);
      CNTR=CNTR+4;
      END 
ENDL; 
RETURN; 
$END
END 
TERM
