ASMB,R,L,C,F
* 
**************************************************************
* 
*         RELOC. TAPE:  29100-16006 
*         ERS:          29100-16006-1 
*         LISTING:      29100-16006-2 
*         SOURCE TAPE:  29100-18006 
* 
**************************************************************
* 
      NAM XERLU,7       29100-16006 REV.A 
* 
      ENT XERLU 
      EXT #ERRU,.ENTR 
* 
NUM   NOP 
* 
XERLU NOP 
      JSB .ENTR     RECEIVE PARAMETER ADDRESS 
      DEF NUM 
      LDA #ERRU     FETCH CURRENT LU
      LDB NUM,I     FETCH NEW LU
      SZB           NEW LU SENT? (LU # 0) 
      STB #ERRU      YES. SAVE
      STA NUM,I     REPORT OLD LU 
      JMP XERLU,I   RETURN
      END 
                                            