*DECK,DMP$TCB 
*IF,DEF,TRACE 
USETEXT DMP$PRT 
USETEXT TCB$DMP 
 PROC DMP$TCB(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 TCB8DT[0:5]; 
 ITEM TCB9DT C(00,00,10) = [
"CONSOLE",
"CARDRDR",
"LINEPRT",
"PUNCH",
"PLOTTER",
"UNDEFINED."];
  
 ARRAY TCB8CURINPUT[0:12];
 ITEM TCB9CURINPUT C(00,00,10) = [
"NULLY",
"INPUT",
"OUTPUT", 
"RESUME", 
"INTRUPT",
"BATCMD", 
"REFRESH",
"TERFAIL",
"CONBRKN",
"USRINTR",
"READYX", 
"LASTINP",
"UNDEFINED."];
  
 ARRAY TCB8CURSTATE[0:5]; 
 ITEM TCB9CURSTATE C(00,00,10) = [
"NULLZ",
"IDLE", 
"ACTIVE", 
"GO", 
"ERROR",
"UNDEFINED."];
  
 ARRAY TCB8TC[0:18];
 ITEM TCB9TC C(00,00,10) = [
"NULL", 
"M33",
"713",
"M1240",
"2741", 
"M40",
"H2000",
"751",
"T401X",
"HASP$PST", 
"200UT",
"714$30", 
"711",
"714$10", 
"HASP$PRE", 
"734$1",
"2780", 
"3780", 
"UNDEFINED."];
  
P<TCB$DMP> = ARRAY$ADDR;
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
H$TABLE = "TCB";
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); 
IF TCB$COMPLETE THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME1 = "COMPLETE";
BUFF$CHAR1 = TEMP$VAR ; 
IF TCB$CRINTR THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME2 = "CRINTR";
BUFF$CHAR2 = TEMP$VAR ; 
IF TCB$LPINTR THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME3 = "LPINTR";
BUFF$CHAR3 = TEMP$VAR ; 
TEMP$VAR  = XCOD(TCB$INTERRPT); 
BUFF$NAME4 = "INTERRPT";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(TCB$INTERRPT); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
IF TCB$RESUME THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME5 = "RESUME";
BUFF$CHAR5 = TEMP$VAR ; 
IF TCB$REFRESH 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 = "REFRESH"; 
BUFF$CHAR1 = TEMP$VAR ; 
IF TCB$BATCH THEN 
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME2 = "BATCH"; 
BUFF$CHAR2 = TEMP$VAR ; 
TEMP$VAR  = XCOD(TCB$INPTYPE);
BUFF$NAME3 = "INPTYPE"; 
BUFF$OCTAL3 = C<5,5>TEMP$VAR ;
BUFF$SLASH3 = "/";
TEMP$VAR  = XCDD(TCB$INPTYPE);
BUFF$DEC3 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$TIME); 
BUFF$NAME4 = "TIME";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(TCB$TIME); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$EVENT);
BUFF$NAME5 = "EVENT"; 
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCOD(TCB$LINK); 
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "LINK";
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCOD(TCB$BLKSIZE);
BUFF$NAME2 = "BLKSIZE"; 
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(TCB$BLKSIZE);
BUFF$DEC2 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$REF);
BUFF$NAME3 = "REF"; 
BUFF$OCTAL3 = C<5,5>TEMP$VAR ;
BUFF$SLASH3 = "/";
TEMP$VAR  = XCDD(TCB$REF);
BUFF$DEC3 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$ACN);
BUFF$NAME4 = "ACN"; 
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(TCB$ACN);
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$ABL);
BUFF$NAME5 = "ABL"; 
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(TCB$ABL);
BUFF$DEC5 = C<4,6>TEMP$VAR ;
IF TCB$STPFLAG 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 = "STPFLAG"; 
BUFF$CHAR1 = TEMP$VAR ; 
IF TCB$IAFFLAG THEN 
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME2 = "IAFFLAG"; 
BUFF$CHAR2 = TEMP$VAR ; 
IF TCB$ENDFLAG THEN 
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME3 = "ENDFLAG"; 
BUFF$CHAR3 = TEMP$VAR ; 
IF TCB$AUTOGO THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME4 = "AUTOGO";
BUFF$CHAR4 = TEMP$VAR ; 
TEMP$VAR  = XCOD(TCB$RIC);
BUFF$NAME5 = "RIC"; 
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(TCB$RIC);
BUFF$DEC5 = C<4,6>TEMP$VAR ;
IF TCB$MD4A 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 = "MD4A";
BUFF$CHAR1 = TEMP$VAR ; 
S$MNEM = C<0,9>TCB9DT [TCB$DT]; 
TEMP$VAR  = XCDD(TCB$DT); 
S$VAL = C<8,2>TEMP$VAR ;
BUFF$NAME2 = "DT";
BUFF$CHAR2 = S$ENTIRE;
S$MNEM = C<0,9>TCB9TC [TCB$TC]; 
TEMP$VAR  = XCDD(TCB$TC); 
S$VAL = C<8,2>TEMP$VAR ;
BUFF$NAME3 = "TC";
BUFF$CHAR3 = S$ENTIRE;
TEMP$VAR  = XCOD(TCB$DTTC); 
BUFF$NAME4 = "DTTC";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(TCB$DTTC); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$NDEVICE);
BUFF$NAME5 = "NDEVICE"; 
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(TCB$NDEVICE);
BUFF$DEC5 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XSFW(TCB$TERMNAME); 
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "TERMNAME";
BUFF$CHAR1 = TEMP$VAR ; 
IF TCB$READY THEN 
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME2 = "READY"; 
BUFF$CHAR2 = TEMP$VAR ; 
IF TCB$PAGEWAIT THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME3 = "PAGEWAIT";
BUFF$CHAR3 = TEMP$VAR ; 
TEMP$VAR  = XCOD(TCB$PW); 
BUFF$NAME4 = "PW";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(TCB$PW); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$PL); 
BUFF$NAME5 = "PL";
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(TCB$PL); 
BUFF$DEC5 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XSFW(TCB$FAMNAME);
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "FAMNAME"; 
BUFF$CHAR1 = TEMP$VAR ; 
TEMP$VAR  = XCOD(TCB$FAMORD); 
BUFF$NAME2 = "FAMORD";
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(TCB$FAMORD); 
BUFF$DEC2 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$FAMWORD);
BUFF$NAME3 = "FAMWORD"; 
BUFF$OCTAL3 = C<5,5>TEMP$VAR ;
BUFF$SLASH3 = "/";
TEMP$VAR  = XCDD(TCB$FAMWORD);
BUFF$DEC3 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XSFW(TCB$USERNUM);
BUFF$NAME4 = "USERNUM"; 
BUFF$CHAR4 = TEMP$VAR ; 
TEMP$VAR  = XCOD(TCB$USERORD);
BUFF$NAME5 = "USERORD"; 
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(TCB$USERORD);
BUFF$DEC5 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$USRWORD);
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "USRWORD"; 
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCDD(TCB$USRWORD);
BUFF$DEC1 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$DIS);
BUFF$NAME2 = "DIS"; 
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(TCB$DIS);
BUFF$DEC2 = C<4,6>TEMP$VAR ;
IF TCB$JOBFLAG THEN 
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME3 = "JOBFLAG"; 
BUFF$CHAR3 = TEMP$VAR ; 
IF TCB$DEVFLAG THEN 
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME4 = "DEVFLAG"; 
BUFF$CHAR4 = TEMP$VAR ; 
TEMP$VAR  = XCOD(TCB$QFLAGS); 
BUFF$NAME5 = "QFLAGS";
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(TCB$QFLAGS); 
BUFF$DEC5 = C<4,6>TEMP$VAR ;
IF TCB$EXFLAG 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 = "EXFLAG";
BUFF$CHAR1 = TEMP$VAR ; 
TEMP$VAR  = XCOD(TCB$OQFLAGS);
BUFF$NAME2 = "OQFLAGS"; 
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(TCB$OQFLAGS);
BUFF$DEC2 = C<4,6>TEMP$VAR ;
IF TCB$PTFLAG THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME3 = "PTFLAG";
BUFF$CHAR3 = TEMP$VAR ; 
IF TCB$PUFLAG THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME4 = "PUFLAG";
BUFF$CHAR4 = TEMP$VAR ; 
IF TCB$PRFLAG THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME5 = "PRFLAG";
BUFF$CHAR5 = TEMP$VAR ; 
IF TCB$INFLAG 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 = "INFLAG";
BUFF$CHAR1 = TEMP$VAR ; 
IF TCB$MOREINQ THEN 
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME2 = "MOREINQ"; 
BUFF$CHAR2 = TEMP$VAR ; 
IF TCB$EXTDIVC1 THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME3 = "EXTDIVC1";
BUFF$CHAR3 = TEMP$VAR ; 
TEMP$VAR  = XCOD(TCB$DIVFLAGS); 
BUFF$NAME4 = "DIVFLAGS";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(TCB$DIVFLAGS); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$EXTDIVS);
BUFF$NAME5 = "EXTDIVS"; 
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(TCB$EXTDIVS);
BUFF$DEC5 = C<4,6>TEMP$VAR ;
IF TCB$EXTPTDIV 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 = "EXTPTDIV";
BUFF$CHAR1 = TEMP$VAR ; 
IF TCB$EXTPUDIV THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME2 = "EXTPUDIV";
BUFF$CHAR2 = TEMP$VAR ; 
IF TCB$EXTPRDIV THEN
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME3 = "EXTPRDIV";
BUFF$CHAR3 = TEMP$VAR ; 
TEMP$VAR  = XCOD(TCB$NEXTBSN);
BUFF$NAME4 = "NEXTBSN"; 
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(TCB$NEXTBSN);
BUFF$DEC4 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$NXTACKSN); 
BUFF$NAME5 = "NXTACKSN";
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(TCB$NXTACKSN); 
BUFF$DEC5 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$QABBUF); 
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "QABBUF";
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCDD(TCB$QABBUF); 
BUFF$DEC1 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$ANNEXORD); 
BUFF$NAME2 = "ANNEXORD";
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(TCB$ANNEXORD); 
BUFF$DEC2 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$ILAST);
BUFF$NAME3 = "ILAST"; 
BUFF$OCTAL3 = C<5,5>TEMP$VAR ;
BUFF$SLASH3 = "/";
TEMP$VAR  = XCDD(TCB$ILAST);
BUFF$DEC3 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$INPUT);
BUFF$NAME4 = "INPUT"; 
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(TCB$INPUT);
BUFF$DEC4 = C<4,6>TEMP$VAR ;
IF TCB$WAITACK THEN 
TEMP$VAR  =  "TRUE" ; 
ELSE
TEMP$VAR  =  "FALSE" ;
BUFF$NAME5 = "WAITACK"; 
BUFF$CHAR5 = TEMP$VAR ; 
TEMP$VAR  = XCOD(TCB$CITBUF); 
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "CITBUF";
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCDD(TCB$CITBUF); 
BUFF$DEC1 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$OLAST);
BUFF$NAME2 = "OLAST"; 
BUFF$OCTAL2 = C<5,5>TEMP$VAR ;
BUFF$SLASH2 = "/";
TEMP$VAR  = XCDD(TCB$OLAST);
BUFF$DEC2 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$OUTPUT); 
BUFF$NAME3 = "OUTPUT";
BUFF$OCTAL3 = C<5,5>TEMP$VAR ;
BUFF$SLASH3 = "/";
TEMP$VAR  = XCDD(TCB$OUTPUT); 
BUFF$DEC3 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XSFW(TCB$JOBNAME);
BUFF$NAME4 = "JOBNAME"; 
BUFF$CHAR4 = TEMP$VAR ; 
TEMP$VAR  = XCOD(TCB$JOBZERO);
BUFF$NAME5 = "JOBZERO"; 
BUFF$OCTAL5 = C<5,5>TEMP$VAR ;
BUFF$SLASH5 = "/";
TEMP$VAR  = XCDD(TCB$JOBZERO);
BUFF$DEC5 = C<4,6>TEMP$VAR ;
TEMP$VAR  = XCOD(TCB$CURACTN);
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "CURACTN"; 
BUFF$OCTAL1 = C<5,5>TEMP$VAR ;
BUFF$SLASH1 = "/";
TEMP$VAR  = XCDD(TCB$CURACTN);
BUFF$DEC1 = C<4,6>TEMP$VAR ;
S$MNEM = C<0,9>TCB9CURSTATE [TCB$CURSTATE]; 
TEMP$VAR  = XCDD(TCB$CURSTATE); 
S$VAL = C<8,2>TEMP$VAR ;
BUFF$NAME2 = "CURSTATE";
BUFF$CHAR2 = S$ENTIRE;
S$MNEM = C<0,9>TCB9CURINPUT [TCB$CURINPUT]; 
TEMP$VAR  = XCDD(TCB$CURINPUT); 
S$VAL = C<8,2>TEMP$VAR ;
BUFF$NAME3 = "CURINPUT";
BUFF$CHAR3 = S$ENTIRE;
TEMP$VAR  = XCOD(TCB$LASTWD); 
BUFF$NAME4 = "LASTWD";
BUFF$OCTAL4 = C<5,5>TEMP$VAR ;
BUFF$SLASH4 = "/";
TEMP$VAR  = XCDD(TCB$LASTWD); 
BUFF$DEC4 = C<4,6>TEMP$VAR ;
IF TCB$ALOFLAG THEN 
TEMP$VAR = "TRUE";
ELSE
TEMP$VAR = "FALSE"; 
BUFF$NAME5 = "ALOFLAG"; 
BUFF$CHAR5 = TEMP$VAR;
DMP$ZB5(14,PRINT$BUFF,STAT);
FOR ITER=0 STEP 1 UNTIL 13
DO BUFF$BUFF[ITER] = " "; 
BUFF$NAME1 = "ALOTIME"; 
TEMP$VAR = XCOD(TCB$ALOTIME); 
BUFF$OCTAL1 = C<5,5>TEMP$VAR; 
BUFF$SLASH1 = "/";
TEMP$VAR = XCDD(TCB$ALOTIME); 
BUFF$DEC1 = C<4,6>TEMP$VAR; 
IF TCB$HWFLAG THEN
TEMP$VAR  =  "TRUE";
ELSE
TEMP$VAR  =  "FALSE"; 
BUFF$NAME2 = "HWFLAG";
BUFF$CHAR2 = TEMP$VAR;
DMP$ZB5(14,PRINT$BUFF,STAT);
  
END 
TERM
*ENDIF
