ASMB,R,L
      HED ST.TM ROUTING 
*     NAME:   ST.TM 
*     SOURCE: 92067-18166 
*     RELOC:  92067-16125 
*     PGMR:   G.A.A.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  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 ST.TM,8 92067-16125 REV.1903 741223 
      ENT ST.TM 
      EXT .ENTR 
A     EQU 0 
* 
*  THE FOLLOWING ROUTINE SETS UP THE BATCH
*  TIME VALUES FOR :JO. 
* 
HOUR  NOP 
MIN   NOP 
* 
ST.TM NOP 
      JSB .ENTR 
      DEF HOUR
      LDA MIN 
      CLE,INA 
      LDA A,I       FETCH NUMBER OF 10'S OF 
      MPY D100      MILLISECONDS AND HOLD IT. 
      STA SEC 
      LDA HOUR,I    GET NUMBER OF MINUTES 
      MPY D60 
      ADA MIN,I     AND MULTIPLY TO GET 10'S OF 
      MPY D6000     MILLISECONDS. 
      ADA SEC       ADD TO PREVIOUS VALUE.
      SEZ           COMPENSATE FOR DOUBLE WORD
      INB           INTEGER.
      CMA,CLE,INA   COMPLEMENT AND INCREMENT THE
      CMB,SEZ,CCE   DOUBLE WORD INTEGER.
      INB 
      RBL,ERB       SET SIGN IN ANY CASE
      JMP ST.TM,I   RETURN TIME IN A AND B
* 
D100  DEC 100 
D60   DEC 60
D6000 DEC 6000
SEC   NOP 
* 
      BSS 0         SIZE OF ST.TM 
      END 
                