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