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