ASMB,Q,C
* 
*   DATE: SEPTEMBER 10,1979 
*   NAME: ILUTA 
*   SOURCE: 02145-18016 
*   RELOC:  02145-16009 
*   PGMR:  D.E.B. 
* 
********************************************************************* 
*  (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.
********************************************************************* 
* 
*  THIS ROUTINE PROVIDES A FORTRAN CALLABLE ROUTINE TO RETURN THE 
*  ADDRESS OF THE START OF THE LU TABLE IN THE L-SERIES COMPUTER. 
*  ILUTA IS CALLED BY FTEST, THE L-SERIES FUNCTIONAL TEST.
* 
      NAM ILUTA,7 02145-1X016   REV.2001  791109
      ENT ILUTA 
      EXT $LUTA,.ENTR 
LUTAA NOP 
ILUTA NOP 
      JSB .ENTR 
      DEF LUTAA 
      LDA $LUTA 
      STA LUTAA,I 
      JMP ILUTA,I 
      END 
                                                                        