*DECK,DMP$ACN 
*IF,DEF,TRACE 
USETEXT DMP$PRT 
USETEXT ACN$DMP 
 PROC DMP$ACN(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
  
 ARRAY ACN8STATE[0:6];
 ITEM ACN9STATE C(00,00,10) = [ 
"NONEXST",
"PRECONN",
"CONNECT",
"ACTIVE", 
"IDLDOWN",
"ENDCONN",
"UNDEFINED."];
  
 ARRAY ACN8DEVTYPE[0:5];
 ITEM ACN9DEVTYPE C(00,00,10) = [ 
"CONSOLE",
"CARDRDR",
"LINEPRT",
"PUNCH",
"PLOTTER",
"UNDEFINED."];
  
 ARRAY ACN8CHAIN[0:14]; 
 ITEM ACN9CHAIN C(00,00,10) = [ 
"NULL", 
"EVENT",
"SMP$", 
"EXT$CMD",
"CMD$", 
"DIS$", 
"DCM$", 
"UCM$", 
"NEW$", 
"CON$END",
"FIN$CON",
"FIN$DEV",
"QCM$", 
"BACKGRD",
"UNDEFINED."];
  
P<ACN$DMP> = ARRAY$ADDR;
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
H$TABLE = "ACN";
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(ACN$WORD); 
BUFF$NAME1 = "WORD";
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCDD(ACN$WORD); 
BUFF$DEC1 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(ACN$CTLR); 
BUFF$NAME2 = "CTLR";
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(ACN$CTLR); 
BUFF$DEC2 = C<4,6>TEMP$VAR ;
S$MNEM = C<0,9>ACN9STATE [ACN$STATE]; 
TEMP$VAR  = XCDD(ACN$STATE);
S$VAL = C<8,2>TEMP$VAR ;
BUFF$NAME3 = "STATE"; 
BUFF$CHAR3 = S$ENTIRE;
TEMP$VAR  = XCOD(ACN$MODE); 
BUFF$NAME4 = "MODE";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(ACN$MODE); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
S$MNEM = C<0,9>ACN9DEVTYPE [ACN$DEVTYPE]; 
TEMP$VAR  = XCDD(ACN$DEVTYPE);
S$VAL = C<8,2>TEMP$VAR ;
BUFF$NAME5 = "DEVTYPE"; 
BUFF$CHAR5 = S$ENTIRE;
S$MNEM = C<0,9>ACN9CHAIN [ACN$CHAIN]; 
TEMP$VAR  = XCDD(ACN$CHAIN);
S$VAL = C<8,2>TEMP$VAR ;
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "CHAIN"; 
BUFF$CHAR1 = S$ENTIRE;
TEMP$VAR  = XCOD(ACN$NEXT); 
BUFF$NAME2 = "NEXT";
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(ACN$NEXT); 
BUFF$DEC2 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(ACN$DEVINDEX); 
BUFF$NAME3 = "DEVINDEX";
BUFF$OCTAL3 = C<5,5>TEMP$VAR ;
BUFF$SLASH3 = "/";
TEMP$VAR  = XCDD(ACN$DEVINDEX); 
BUFF$DEC3 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(ACN$CB); 
BUFF$NAME4 = "CB";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(ACN$CB); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
DMP$ZB5(14,PRINT$BUFF,STAT);
  
END 
TERM
*ENDIF
