*DECK             DMPTRD
USETEXT   TSOURCE 
USETEXT   TCEXECQ 
USETEXT   TCOM37Q 
USETEXT   TCOM39Q 
USETEXT   TCOM78Q 
USETEXT   TC7DECS 
PROC DMPTRD(A); #FORMATS AND PRINTS TRIAD ENTRY#
ITEM A; 
$BEGIN
    BEGIN 
  
*CALL COMEX 
  
  
  
  
         ARRAY [0:QILOP"QILOP$"]S(1); ITEM
               OPNAME C (0,0,4) = [# IL OP NAME # 
               "PRIM" , "NULL" , "VALU" , 
               "ICEX" , "FCEX" , "RIEX" , "RREX" ,
               "IMNS","FMNS","RMNS","IPLS","FPLS","RPLS","PLSR",
               "ISUB","FSUB","RSUB","DIFR","IMUL","FMUL","RMUL",
               "MULR","IDIV","FDIV","RDIV","DIVR","IABS","FABS",
               "RABS","IMOD","COMP","LOR ","LAND","LXOR","LEQV",
               "LIMP","IEQU","FEQU","REQU","CEQU","EEQU","INEQ",
               "FNEQ","RNEQ","CNEQ","ENEQ","ILES","FLES","RLES",
               "CLES","ILEQ","FLEQ","RLEQ","CLEQ","IGRT","FGRT",
               "RGRT","CGRT","IGRQ","FGRQ","RGRQ","CGRQ","PNOT",
               "SUBS","PARM","SRNG","GOTO","TSST","RTRN","STOP",
               "ISWC","SSWC","LABL","SPRC","EPRC","ENTR","PRGM",
               "SWCH","ENDS","SWPT","GSWP","SIVT","GISP","INFO",
               "PAUS" , "SJOV" , "LINK" , 
               "REPL" , "SWAP" , "FRES" , 
               "FUNI" , "VALD" , "VALB" , 
               "PCAL","FCAL","ICAL","CCAL","PLST","FLST","ILST",
               "LFLX","RFLX","REVR","PTRM","CNTL","CTLD","INVI",
               "INSP" , "INSM" , "INSD" , 
               "INVT" , "SLOP" , "ENDL" , 
               "LILB" , "RILB" , "FPAR" , 
               "DEAD" , 
               "QOP$"]; 
##       ITEM I;
      CONTROL EJECT;
      IF B<"P"-1>INTOPS NQ 0 THEN 
         BEGIN
         BASED ARRAY JADMP; ITEM FROM(0,12,18);                          JANDRE 
  
#     THIS CODE WHICH PUTS THE ADDRESS OF THE CALLING ROUTINE (+1) IN  #
#     FROM RELIES ON THE RETURN ADDRESS BEING PUT IN DMPTED.  NOT VERY #
#     TRANSPORTABLE CODE I"M AFRAID                                    #
  
         P<JADMP>=LOC(DMPTRD);                                           JANDRE 
         I=A; 
        PRINT("(/,6H TRAD=O4,5XHOPTR=A4,2X5HENBY=O5,1X5HQREP=O1,5X5H$TST
=O1,5X5HEFBY=O2,4X5HROUN=O1,5X5HBASD=O1,5X5HSDEF=O1,5X5HINDX=O6)");      JANDRE 
         LIST(I); 
         LIST(OPNAME[OPTR[I]]); 
         LIST(ENBY[I]); 
         LIST(QREP[I]);                                                  JANDRE 
         LIST($TST[I]); 
         LIST(EFBY[I]); 
         LIST(ROUN[I]); 
         LIST(BASD[I]); 
         LIST(SDEF[I]); 
         LIST(INDX[I]); 
         ENDL;
         PRINT("(6H LOPD=O4,5X5HAC$S=O1,5X5HRLTL=O2,4X5HCTYP=O1,5X5HVFLG
=O1,5X5HKLSS=O1,5X5HOPTR=O3,3X5HACNT=O4,2X5H$CLG=O3,3X5HMEMR=O6)"); 
         LIST(LOPD[I]); 
         LIST(AC$S[I]); 
         LIST(RLTL[I]); 
         LIST(CTYP[I]); 
         LIST(VFLG[I]); 
         LIST(KLSS[I]); 
         LIST(OPTR[I]); 
         LIST(ACNT[I]); 
         LIST($CLG[I]); 
         LIST(MEMR[I]); 
         ENDL;
         PRINT("(6H ROPD=O4,5X5HSAVD=O1,5X5HDEAD=O1,5X5HSDFG=O1,5X5HSVNB
=O1,5X5HENBT=O3,3X5HEFBT=O3,3X5HADJF=O1,5X5HOFFS=O6,1X5HBWOR=O1)");      JANDRE 
         LIST(ROPD[I]); 
         LIST(SAVD[I]); 
         LIST(DEAD[I]); 
         LIST(SDFG[I]); 
         LIST(SVNB[I]); 
         LIST(ENBT[I]); 
         LIST(EFBT[I]); 
         LIST(ADJF[I]); 
         LIST(OFFS[I]); 
         LIST(BWOR[I]);                                                  JANDRE 
         ENDL;
         PRINT("(6H NXOP=O4,5X5HKFLG=O1,5X5HSHRT=O1,5X5HVLNG=O1,5X5HFCMP
=O1,5X5HVCMP=O1,5X5H$IGN=O1,5X5HSFLG=O1,5X5HPFLG=O1,5X5HTTST=O1)"); 
         LIST(NXOP[I]); 
         LIST(KFLG[I]); 
         LIST(SHRT[I]); 
         LIST(VLNG[I]); 
         LIST(FCMP[I]); 
         LIST(VCMP[I]); 
         LIST($IGN[I]); 
         LIST(SFLG[I]); 
         LIST(PFLG[I]); 
         LIST(TTST[I]); 
         ENDL;
         PRINT("(6H KONS=O60,11X5HSTKC=O5,1X5HTVLK=O5,1X5HFNUM=O2,4X5HCA JANDRE 
LL=O6,22X5HPOTE=O6)");                                                   JANDRE 
         LIST(KONS[I]); 
         LIST(STKC[I]); 
         LIST(TVLK[I]); 
         LIST(FNUM[I]); 
         LIST(FROM[0]);                                                  JANDRE 
         LIST(POTE[I]);                                                  JANDRE 
         ENDL;
         END
    END 
$END
TERM
