ASMB,R,L
      HED TL ROUTINE
*     NAME:   TL. 
*     SOURCE: 92067-18165 
*     RELOC:  92067-16125 
*     PGMR:   A.M.G.
* 
*  ***************************************************************
*  * (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 TL.,8 92067-16125 REV.1903 760322 
      ENT TL. 
      EXT TL.P,$BATM
A     EQU 0 
* 
TL.   NOP            FUNCTION FALSE IF
      DLD TL.P      $BATM < TL.P < 0
      SSB,RSS       OR IF TL.P < 0 AND $BATM > 0. 
      JMP TEXIT 
      LDA D$BA      GET DIRECT ADDRESS
      RAL,CLE,SLA,ERA FOR SECOND WORD 
      LDA A,I       BATCH TIMER.
      INA 
      STA T2        SAVE IT.
      LDB T2,I      IF $BATM IS > 0 THEN
      SSB,RSS       EXIT FALSE. 
      JMP FEXIT 
      DLD TL.P
      CMA,CLE,INA   DO A COMPARISON 
      CMB,SEZ       OF $BATM AND TL.P 
      INB           REMEMBERING THAT BOTH 
      ADA $BATM     ARE DOUBLE WORD 
      SEZ           INTEGERS. 
      INB 
      ADB T2,I
      SSB 
FEXIT CLA,RSS       EXIT FALSE. 
TEXIT CCA           EXIT TRUE (-1). 
      JMP TL.,I 
* 
D$BA  DEF $BATM 
T2    NOP 
* 
      END 
                                                                                                  