ASMB,R,Q,C
*     NAME:   LUTRU 
*     SOURCE: 92070-18207 
*     RELOC:  92070-1X207 
*     PGMR:   HLC 
* 
* 
*  **************************************************************** 
*  * (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 LUTRU,7  92070-1X207  REV.1941  790331
      ENT LUTRU 
      EXT .ENTP 
* 
* 
A     EQU 0 
B     EQU 1 
* 
* 
SESLU NOP 
SYSLU NOP 
LUTRU NOP 
      CLA 
      STA SYSLU 
      JSB .ENTP 
      DEF SESLU 
      LDA SESLU,I   .FETCH LU 
      STA SYSLU,I   .GIVE IT BACK NO CHANGE 
      JMP LUTRU,I 
      END 
                                                                                                                                        