      SUBROUTINE  BITDMP (A,NWORDS,MODE,HDG)
      COMPILER (ADR=IND)
      COMPILER (GEN=NOTRA)
      IMPLICIT  INTEGER (A-Z)
      DIMENSION  A(1), BUFR(36)
      DEFINE  BIT0(I)=FLD(0,1,I)
      ADR = LOC(A)
      WRITE (6,200) HDG
      IDENT = 0
      DO 100 WORD=1,NWORDS
      IF (WORD.EQ.1.OR.A(WORD).NE.A(WORD-1)) GO TO 50
          IDENT = IDENT+1
          GO TO 100
   50 IF (IDENT.EQ.0) GO TO 60
          WRITE (6,220) IDENT
          IDENT = 0
   60     CELL = A(WORD)
          DO 70 BIT=1,36
              BUFR(BIT) = BIT0(CELL)
   70         CELL = CELL*2
          IQ = 36
          WRITE (6,210) ADR,A(WORD),(BUFR(IK),IK=1,IQ)
  100     ADR = ADR+1
      IF (IDENT.NE.0) WRITE (6,220) IDENT
      RETURN
  200 FORMAT ('0BITDMP CALLED, ID = ',A6)
  210 FORMAT (6X,O6,5X,O12,5X,6(6O1,2X))
  220 FORMAT (12X,I5,' WORDS IDENTICAL TO THE ABOVE.')
      END
