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