FTN4,L
      SUBROUTINE MXGTA(LU,IDVID,LTRK,LSEC,ICYL,IHD,ISEC,ITMT
     X),92067-1X551 REV.2001 791101 
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:  MXGTA
C   SOURCE:  92067-18551
C    RELOC:  PART OF 92067-12003
C     PGMR:  J.S.W
C 
      DIMENSION IREG(2),ITMT(1) 
C 
C 
C 
C 
C   CONVERT LOGICAL TO PHYSICAL DISC ADDRESS (CYL,HD,SEC) 
C 
C 
      NOTRK=ITMT(4) 
      NHEAD=ITMT(3) 
      NHEAD=ISHL(NHEAD,-10) 
      IHD1=IAND(ITMT(3),1760B)/17B
      IHD=MOD(LTRK,NHEAD)+IHD1
      ICYL=(LTRK/NHEAD)+ITMT(2) 
      ISEC=LSEC/2 
      IDVID=IAND(ITMT(5),16000B)/4
      IDVID=IDVID+IAND(ITMT(3),17B) 
      RETURN
      END 
      END$
                          