ASMB,L      ROUTINE TO CONVERT TIME 
      HED TMVAL 
*     NAME:   MTMVL 
*     SOURCE: 92064-18219 
*     RELOC:  92064-16081 
*     PGMR:   G.A.A.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1975.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
*  ***************************************************************
* 
      NAM MTMVL,6  92064-16081  REV.1709  741120  
      ENT TMVAL 
      EXT $LIBX,$LIBR,.ENTP,$TIMV 
* 
* 
*     CALLING SEQUENCE (FORTRAN)
* 
*      CALL TMVAL(ITM,ITMAR)
* 
*      WHERE ITM IS THE TWO WORD NEGATIVE TIME IN TENS OF 
*      MS.  AND ITMAR IS A 5 WORD ARRAY TO RECIEVE THE
*      TIME.  THE ARRAY WILL BE SET UP AS:
* 
*      1.  TENS OF MS.
*      2.  SECONDS
*      3.  MINUTES
*      4.  HOURS
*      5.  CURRENT SYSTEM DAY OF YEAR (NOT RELATED TO CALL VALUES)
* 
ITM   NOP 
ITM1  NOP 
* 
TMVAL NOP 
      JSB $LIBR 
      NOP 
      JSB .ENTP     GET PRAMS 
      DEF ITM 
* 
      LDA ITM1      SET ADDRESS 
      STA RQP2      FOR SYSTEM ROUTINE
      CLA            AND ZAP THE
      STA RQP3      YEAR ADDRESS
      DLD ITM,I     GET THE TIME
      JSB $TIMV     CONVERT IT
      JSB $LIBX     EXIT
      DEF TMVAL 
* 
RQP2  EQU 1701B 
RQP3  EQU RQP2+1
      END 
                                  