*DECK,DMP$UCL 
*IF,DEF,TRACE 
USETEXT DMP$PRT 
USETEXT UCL$DMP 
 PROC DMP$UCL(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 UCL8VEJERR[0:7]; 
 ITEM UCL9VEJERR C(00,00,10) = [
"JOBOK",
"JOBERR", 
"BADBUF", 
"ACCERR", 
"INPFUL", 
"BADTID", 
"LAST", 
"UNDEFINED."];
  
P<UCL$DMP> = ARRAY$ADDR;
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
H$TABLE = "UCL";
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(UCL$VEJ0); 
BUFF$NAME1 = "VEJ0";
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCDD(UCL$VEJ0); 
BUFF$DEC1 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XSFW(UCL$FETLFN); 
BUFF$NAME2 = "FETLFN";
BUFF$CHAR2 = TEMP$VAR ; 
TEMP$VAR  = XSFW(UCL$JOBNAME);
BUFF$NAME3 = "JOBNAME"; 
BUFF$CHAR3 = TEMP$VAR ; 
S$MNEM = C<0,9>UCL9VEJERR [UCL$VEJERR]; 
TEMP$VAR  = XCDD(UCL$VEJERR); 
S$VAL = C<8,2>TEMP$VAR ;
BUFF$NAME4 = "VEJERR";
BUFF$CHAR4 = S$ENTIRE;
TEMP$VAR  = XCOD(UCL$FETSTAT);
BUFF$NAME5 = "FETSTAT"; 
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(UCL$FETSTAT);
BUFF$DEC5 = C<4,6>TEMP$VAR ;
IF UCL$FETCB 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 = "FETCB"; 
BUFF$CHAR1 = TEMP$VAR ; 
TEMP$VAR  = XCOD(UCL$VEJ1); 
BUFF$NAME2 = "VEJ1";
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(UCL$VEJ1); 
BUFF$DEC2 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(UCL$VEJTID); 
BUFF$NAME3 = "VEJTID";
BUFF$OCTAL3 = C<5,5>TEMP$VAR ;
BUFF$SLASH3 = "/";
TEMP$VAR  = XCDD(UCL$VEJTID); 
BUFF$DEC3 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(UCL$VEJ2); 
BUFF$NAME4 = "VEJ2";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(UCL$VEJ2); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(UCL$VEJLWA); 
BUFF$NAME5 = "VEJLWA";
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCOD(UCL$VEJ3); 
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "VEJ3";
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCDD(UCL$VEJ3); 
BUFF$DEC1 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(UCL$VEJFWA); 
BUFF$NAME2 = "VEJFWA";
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCOD(UCL$VEJ4); 
BUFF$NAME3 = "VEJ4";
BUFF$OCTAL3 = C<5,5>TEMP$VAR ;
BUFF$SLASH3 = "/";
TEMP$VAR  = XCDD(UCL$VEJ4); 
BUFF$DEC3 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(UCL$FETFNT); 
BUFF$NAME4 = "FETFNT";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(UCL$FETFNT); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(UCL$VEJ5); 
BUFF$NAME5 = "VEJ5";
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(UCL$VEJ5); 
BUFF$DEC5 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XSFW(UCL$VEJFAM); 
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "VEJFAM";
BUFF$CHAR1 = TEMP$VAR ; 
TEMP$VAR  = XCOD(UCL$VEJ6); 
BUFF$NAME2 = "VEJ6";
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(UCL$VEJ6); 
BUFF$DEC2 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XSFW(UCL$VEJUSR); 
BUFF$NAME3 = "VEJUSR";
BUFF$CHAR3 = TEMP$VAR ; 
TEMP$VAR  = XCOD(UCL$DSP0); 
BUFF$NAME4 = "DSP0";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(UCL$DSP0); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(UCL$DSPERR); 
BUFF$NAME5 = "DSPERR";
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(UCL$DSPERR); 
BUFF$DEC5 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(UCL$DSP1); 
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "DSP1";
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCDD(UCL$DSP1); 
BUFF$DEC1 = C<4,6>TEMP$VAR ;
IF UCL$DSPABT THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME2 = "DSPABT";
BUFF$CHAR2 = TEMP$VAR ; 
IF UCL$DSPINP THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME3 = "DSPINP";
BUFF$CHAR3 = TEMP$VAR ; 
TEMP$VAR  = XSFW(UCL$DSPMNE); 
BUFF$NAME4 = "DSPMNE";
BUFF$CHAR4 = TEMP$VAR ; 
IF UCL$DSPACC THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME5 = "DSPACC";
BUFF$CHAR5 = TEMP$VAR ; 
IF UCL$DSPNDM 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 = "DSPNDM";
BUFF$CHAR1 = TEMP$VAR ; 
IF UCL$DSPDC THEN 
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME2 = "DSPDC"; 
BUFF$CHAR2 = TEMP$VAR ; 
IF UCL$DSPCS THEN 
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME3 = "DSPCS"; 
BUFF$CHAR3 = TEMP$VAR ; 
TEMP$VAR  = XCOD(UCL$DSPFLAGS); 
BUFF$NAME4 = "DSPFLAGS";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(UCL$DSPFLAGS); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(UCL$DSP2); 
BUFF$NAME5 = "DSP2";
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(UCL$DSP2); 
BUFF$DEC5 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(UCL$DSP3); 
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "DSP3";
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCDD(UCL$DSP3); 
BUFF$DEC1 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(UCL$DSP4); 
BUFF$NAME2 = "DSP4";
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(UCL$DSP4); 
BUFF$DEC2 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(UCL$DSPMSG); 
BUFF$NAME3 = "DSPMSG";
BUFF$OCTAL3 = C<5,5>TEMP$VAR ;
BUFF$SLASH3 = "/";
TEMP$VAR  = XCDD(UCL$DSPMSG); 
BUFF$DEC3 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(UCL$DSPFNT); 
BUFF$NAME4 = "DSPFNT";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(UCL$DSPFNT); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(UCL$DSP5); 
BUFF$NAME5 = "DSP5";
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(UCL$DSP5); 
BUFF$DEC5 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(UCL$DSPCARDS); 
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "DSPCARDS";
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCDD(UCL$DSPCARDS); 
BUFF$DEC1 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(UCL$DSP6); 
BUFF$NAME2 = "DSP6";
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(UCL$DSP6); 
BUFF$DEC2 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XSFW(UCL$DSPTNAME); 
BUFF$NAME3 = "DSPTNAME";
BUFF$CHAR3 = TEMP$VAR ; 
DMP$ZB5(14,PRINT$BUFF,STAT);
  
END 
TERM
*ENDIF
