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