FTN4,Q,C
      SUBROUTINE XTTBL(LU,DP),92067-1X540 REV.2040 800717 
C*****************************************************************
C*                                                               *
C*  (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS       *
C*  RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,        *
C*  REPRODUCED OR TRANSLATED TO ANOTHER PROGRAMMING LANGUAGE     *
C*  WITHOUT THE PRIOR WRITTEN CONSENT OF THE HEWLETT-PACKARD     *
C*  COMPANY.                                                     *
C*                                                               *
C*****************************************************************
C 
C     NAME:  XTTBL
C   SOURCE:  92067-18540
C    RELOC:  PART OF 92067-12002
C     PGMR:  J.S.W
C 
      IMPLICIT INTEGER (A-Z)
      INTEGER DP(8),ITMT(5) 
C 
C  THIS SUBROUTINE RETURNS DISC PARAMETERS AS FOLLOWS:
C 
C  DP(1) = HPIB ADDRESS 
C  DP(2) = UNIT NUMBER
C  DP(3) = STARTING HEAD
C  DP(4) = STARTING CYLINDER
C  DP(5) = NUMBER OF SPARES THIS LU 
C  DP(6) = NUMBER OF TRACKS THIS LU 
C  DP(7) = NUMBER OF SECTORS/TRACK
C  DP(8) = NUMBER OF SUFACES (OR HEADS) 
C 
C 
      CALL ZTMAP(LU,ITMT,5) 
C 
      DP(1)=IAND(ITMT(3),17B) 
      DP(2)=IAND(ITMT(5),16000B)/2000B
      DP(3)=IAND(ITMT(3),1760B)/20B 
      DP(4)=ITMT(2) 
      DP(5)=IAND(ITMT(5),377B)
      DP(6)=ITMT(4) 
      DP(7)=ITMT(1)/2 
      DP(8)=IAND(ITMT(3),176000B) 
      DP(8)=ISHL (DP(8),-10)
      RETURN
      END 
      END$
      