SUBROUTINE  ODUMS (CALLER)
    
      INTEGER     ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      INTEGER     PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG
      INTEGER     LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV
      INTEGER     NEXT,   NUMBER, I,      IOTYPE
      INTEGER     J,      K,      L,      LABNLX, M,      N 
      INTEGER     PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE
      INTEGER     OPTOPX, OPNXTX, TOPX,   NEXTX 
      INTEGER     DUMMY,  OVCHN,  PEEKS 
      INTEGER     LO,     CI,     CO,     LOGICF, LOCSUP
      INTEGER     VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT
      INTEGER ICLP05
      LOGICAL     ENDOK,CONEND  
      COMMON   /LOGOS/  ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG   
      COMMON   /LOGOS/  PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG  
      COMMON   /LOGOS/  LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV  
      COMMON   /LOGOS/  NEXT,   NUMBER, I,      IOTYPE  
      COMMON   /LOGOS/  J,      K,      L,      LABNLX, M,      N   
      COMMON   /LOGOS/  PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE  
      COMMON   /LOGOS/  OPTOPX, OPNXTX, TOPX,   NEXTX   
      COMMON   /LOGOS/  DUMMY,  OVCHN,  PEEKS   
      COMMON   /LOGOS/  LO,     CI,     CO,     LOGICF, LOCSUP  
      COMMON   /LOGOS/  VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT  
      COMMON   /LOGOS/  ICLP05  
      COMMON   /LOGOS/  ENDOK,CONEND
    
      INTEGER  AREG,   XREG,   YREG,   NRREGS   
      INTEGER  STATUS (10),    STAREG, STXREG, STYREG   
      INTEGER  REGS (10)
      INTEGER  ACTREG (2),      ACTLO,  ACTHI   
      INTEGER  NZREG
      INTEGER ICLP10
      COMMON   / REGS / AREG,   XREG,   YREG,   NRREGS  
      COMMON   / REGS / STATUS, REGS,   ACTREG, NZREG   
      COMMON   / REGS / ICLP10  
      EQUIVALENCE    (ACTLO,  ACTREG (1))   
      EQUIVALENCE    (ACTHI,  ACTREG (2))   
      EQUIVALENCE    (STAREG, STATUS (1))   
      EQUIVALENCE    (STXREG, STATUS (2))   
      EQUIVALENCE    (STYREG, STATUS (3))   
    
      INTEGER     STK (20, 13)  
      INTEGER     NAMEX (40)
      INTEGER     OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS 
      INTEGER ICLP14
      COMMON      /SDEFS/ STK,    OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS 
      COMMON      /SDEFS/ ICLP14
      EQUIVALENCE (STK (1,1), NAMEX (1))
    
      INTEGER     MODE (40),   SUBX (20),   SUBXM (20),  BIAS (40)  
      EQUIVALENCE (STK (1, 3), MODE  (1))   
      EQUIVALENCE (STK (1, 2), SUBX  (1))   
      EQUIVALENCE (STK (1, 4), SUBXM (1))   
      EQUIVALENCE (STK (1, 5), BIAS  (1))   
    
      INTEGER     LOCFLG (20)   
      EQUIVALENCE (STK (1, 7), LOCFLG (1))  
    
      INTEGER     OSTACK (20)   
      EQUIVALENCE (STK (1, 8), OSTACK (1))  
    
      INTEGER     OPCODE (20)   
      EQUIVALENCE (STK (1, 9), OPCODE (1))  
    
      INTEGER     SUBXB (20),  WFOP (20),   WFOPND (20) 
      INTEGER     SUBOP (20),  WFSOP (20)   
      EQUIVALENCE (STK (1,  6), SUBXB  (1)) 
      EQUIVALENCE (STK (1, 10), WFOP   (1)) 
      EQUIVALENCE (STK (1, 11), WFOPND (1)) 
      EQUIVALENCE (STK (1, 12), SUBOP  (1)) 
      EQUIVALENCE (STK (1, 13), WFSOP  (1)) 
    
      INTEGER     NAME (9)  
      COMMON      /NLNAME/ NAME 
    
      INTEGER  LBUF (66)
      INTEGER  LCOUNT   
      INTEGER  PGECNT   
      INTEGER  UHEAD (15)   
      INTEGER  CHEAD (8)
      INTEGER ICLP09
      COMMON   /PRT/    LBUF
      COMMON   /PRT/    LCOUNT  
      COMMON   /PRT/    PGECNT  
      COMMON   /PRT/    UHEAD   
      COMMON   /PRT/    CHEAD   
      COMMON   /PRT/    ICLP09  
      INTEGER     CALLER (2)
      INTEGER     DSS, DSX, DSM (7), DSO (45)   
      INTEGER     II, JJ, NOSTR (6), ACTSTR (4), ASTSTR 
      INTEGER     CLOCN 
      DATA        NOSTR    /'  ',' N','EX','T ','OP',' '/   
      DATA        ACTSTR   /' A','CT','IV','E'/ 
      DATA        ASTSTR   /'**'/   
      DATA        DSM      /'SP','DP','ST','HX','  ','  ','  '/ 
      DATA        DSO      /'  ','  ',' ,',' ;',' .',' :','FO','DO','WH'
     1,'RB','LB','RE',' $',' (',' )',' [',' ]',' =',' #',' >','>=', 8252
     1,15421, '->',' +',' -',' *',' /','MD','R!','R&','OR','XO',' &','LS
     1','RS','LC','RC','AL','AR','NE', 8286, 'DE','CO','LO'/
      CALL ESP (OPX,    LBUF, 1, 6) 
      CALL ESP (NEXTX,  LBUF, 7, 12)
      CALL ESP (TOPX,   LBUF, 13, 18)   
      CALL EST (CALLER, LBUF, 30, 33)   
      CALL SGLPRT   
      II = 1
      DO  13026 DSX = 1, NRREGS 
      CALL ESP (STATUS (DSX), LBUF, II, II + 5) 
      II = II + 6   
13026 CONTINUE  
    
      CALL SGLPRT   
      CALL EST (NOSTR, LBUF, 1, 11) 
      CALL EST (DSO (NEXTOP + 1), LBUF, 12, 13) 
      CALL EST (ACTSTR, LBUF, 15, 21)   
      CALL ESP (ACTLO, LBUF, 23, 28)
      CALL ESP (ACTHI, LBUF, 30, 35)
      CALL SGLPRT   
    
      DO  13028 DSX = 1, STKSIZ 
      N = NAMEX (DSX)   
      IF (.NOT. (N .EQ. 0))GO TO 13030  
    
      GO TO 13028   
    
13030 CONTINUE  
    
      CALL ESP (DSX, LBUF, 1, 2)
      IF (DSX .EQ. OPX  ) CALL EST ('XX', LBUF, 3, 3)   
      IF (DSX .EQ. NEXTX) CALL EST ('NN', LBUF, 4, 4)   
      IF (DSX .EQ. TOPX ) CALL EST ('TT', LBUF, 5, 5)   
      JJ = CLOCN (N)
      CALL EST (NAME, LBUF, 7, 21)  
      N = SUBX (DSX)
      IF (.NOT. (N .NE. 0))GO TO 13032  
    
      JJ = CLOCN (N)
      CALL EST (NAME, LBUF, 23, 38) 
13032 CONTINUE  
    
      CALL ESP (BIAS (DSX),   LBUF, 40, 44) 
      JJ = MODE (DSX) + 1   
      CALL EST (DSM (JJ),     LBUF, 46, 47) 
      IF (LOCFLG (DSX) .NE. 0) CALL EST ('LL',      LBUF, 48, 48)   
      JJ = SUBXM (DSX) + 1  
      CALL EST (DSM (JJ),     LBUF, 50, 51) 
      JJ = IAND (OSTACK (DSX), 63) + 1  
      CALL EST (DSO (JJ),     LBUF, 53, 54) 
      CALL EHX (OPCODE (DSX), LBUF, 56, 58) 
      CALL ESP (WFOP (DSX),   LBUF, 60, 62) 
      CALL ESP (WFOPND (DSX), LBUF, 64, 66) 
      CALL EHX (SUBOP (DSX),  LBUF, 68, 70) 
      CALL ESP (WFSOP (DSX),  LBUF, 71, 73) 
      CALL ESP (SUBXB (DSX),  LBUF, 75, 79) 
      CALL SGLPRT   
13028 CONTINUE  
    
      CALL SGLPRT   
      RETURN
      END