ASMB,R,L
      HED SET.T ROUTINE 
*     NAME:   SET.T 
*     SOURCE: 92067-18164 
*     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 SET.T,8 92067-16125 REV.1903 740801 
      ENT SET.T 
      EXT $LIBR,$LIBX,.ENTP,$BATM 
      SUP 
* 
NT    NOP 
OT    NOP 
SET.T NOP 
      JSB $LIBR     PRIVILEGED SUBROUTINE 
      NOP 
      JSB .ENTP     FETCH PARAM ADDRS 
      DEF NT
      LDA XEQT      IF NOT IN BATCH 
      ADA D20       THEN
      LDA A,I       DO NOT SET UP 
      SSA,RSS       BATCH FLAG SET? 
      JMP EX        NO
* 
      DLD $BATM     FETCH BATCH TIME
      DST OT,I       RETURN IT AS OLD TIME
      DLD NT,I      FETCH NEW TIME
      DST $BATM      SET AS NEW BATCH TIME
EX    JSB $LIBX 
      DEF SET.T     RETURN. 
* 
D20   DEC 20
XEQT  EQU 1717B 
A     EQU 0 
B     EQU 1 
      BSS 0         SIZE OF SET.T 
      END 
                                                                                                                                                                                                                                    