ASMB,L NAM SELFT 12824-1X052 REV.2026 800506 ENT SELFT EXT .ENTR ************************************************************** * * NAME: SELFT * SOURCE: 12824-18052 * RELOC: PART OF 12824-16002 * PGMR: CG * * *********************************************************** * * (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 CONSENT OF HEWLETT-PACKARD COMPANY. * * *********************************************************** * ************************************************************** * IERR BSS 1 SELFT NOP JSB .ENTR DEF IERR LIB 1 SAVE S IN B REGISTER CLA CLEAR S REGISTER OTA 1 OCT 105477 EXECUTE SELFTEST NOP SKIP ERROR RETURN LIA 1 READ RESULT OTB 1 RESTORE S REGISTER XOR =B102077 COMPARE TO HLT 77 STA IERR,I SAVE COMPARISON IN IERR JMP SELFT,I RETURN END