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