SUBROUTINE  REGDMP (FLAG) 
    
      INTEGER     NAME (9)  
      COMMON      /NLNAME/ NAME 
    
      INTEGER     ACADDR (11), ACTYPE (11), ACSUBS (11) 
      INTEGER     ACSBTY (11), ACBIAS (11)  
      INTEGER     REGSTK(120)   
      COMMON      /RMCOM/  ACADDR, ACTYPE, ACSUBS, ACSBTY, ACBIAS   
      COMMON      /RMCOM/  REGSTK   
    
      INTEGER     LISTF,  SNLPRT, SUMPRT, SYMFLG
      INTEGER     PRINTF, SKIP,   COMPFL (2)
      INTEGER     LOCPRT, USFLGS, NEGFLG, SKNAME (8)
      INTEGER     ORGFLG, CTLUSE, CTLERR, TTL (8)   
      INTEGER     DUMFLG
      INTEGER ICLP01
      COMMON      /CTLCOM/    LISTF,  SNLPRT, SUMPRT, SYMFLG
      COMMON      /CTLCOM/    PRINTF, SKIP,   COMPFL
      COMMON      /CTLCOM/    LOCPRT, USFLGS, NEGFLG, SKNAME
      COMMON      /CTLCOM/    ORGFLG, CTLUSE, CTLERR, TTL   
      COMMON      /CTLCOM/    DUMFLG
      COMMON      /CTLCOM/ ICLP01   
    
      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     FLAG  
      INTEGER     CLOCN 
      INTEGER     REG, L
      IF (DUMFLG .EQ. 0) RETURN 
      CALL EST('REGDMP', LBUF, 1, 6)
      CALL ESP (FLAG, LBUF, 1, 12)  
      CALL SGLPRT   
      DO  13034 REG = 1, 11 
      IF (.NOT. (ACADDR(REG) .NE. 0))GO TO 13036
    
      CALL ESP(REG, LBUF, 1, 2) 
      L = CLOCN(ACADDR(REG))
      CALL EST(NAME, LBUF, 4, 19)   
      CALL ESP(ACTYPE(REG), LBUF, 21, 23)   
      IF (.NOT. (ACSUBS(REG) .NE. 0))GO TO 13038
    
      L = CLOCN(ACSUBS(REG))
      CALL EST(NAME, LBUF, 26, 41)  
      CALL ESP(ACSBTY(REG), LBUF, 43, 45)   
13038 CONTINUE  
    
      CALL ESP(ACBIAS(REG), LBUF, 47, 50)   
      CALL SGLPRT   
13036 CONTINUE  
    
13034 CONTINUE  
    
      END