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 
                                                                                                                              