FTN4
      BLOCK DATA TPHDR,92069-16178 REV.2013 790413
C*****************************************************************
C 
C 
C*****************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED.
C NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
C TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR
C WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
C****************************************************************** 
C 
C 
C     SOURCE:    92069-18178
C     RELOC:     92069-16178
C 
C 
C****************************************************************:
C 
C 
C THIS BLOCK DATA SUBPROGRAM ALLOCATES SPACE FOR THREE THINGS:
C 1) THE TAPE HEADER THAT TAPEW AND TAPER USE TO HANDLE EOT.
C 2) THE DCB THAT THEY USE TO WRITE AND READ THE DATA.
C 3) THE DCB SIZE (UNUSED BY TAPER AND TAPEW).
C 
C MODULES THAT REFERENCE TPHDR ARE AS FOLLOWS:
C A) DBST2
C B) DBRS2
C C) TAPEW
C D) TAPER
C F) DBULX AND ALL ITS SEGMENTS 
C G) DBLOX AND ALL ITS SEGMENTS.
C 
C**************************************************************** 
      INTEGER HDR(24),TDCB(144),TDSZ,P5(6)
      COMMON /TPHDR/HDR,TDCB,TDSZ,P5
      DATA TDSZ/144/
      DATA HDR/24*2H  / 
      DATA P5/6*0/
      END 
                                                                                                                                                                                                                                                  