ASMB
      HED S/P SETBT      (08/JUL/77)   F. GAULLIER
      NAM SETBT,7 . 92080-1X050 REV.2026  800515
* 
*     SOURCE 92080-18050
* 
      SPC 2 
**************************************************************
* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
* RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
* PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
* OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
**************************************************************
      SPC 2 
      EXT .ENTR 
      ENT SETBT 
* 
*    SET OR CLEAR ONE BIT IN A WORD 
* 
I     NOP           WORD
N     NOP           BIT # (MODULO 16) 
K     NOP           BIT VALUE (ODD OR EVEN) 
* 
SETBT  NOP
      JSB .ENTR 
      DEF I 
      CCA,CLE 
      LDB N,I 
      CMB 
      STB N         SAVE MINUS BIT # (-17 TO -1)
      ELA           SET UP MASK INTO A REG. 
      ISZ N 
      JMP *-2 
      AND I,I       CLEAR BIT N 
      STA N 
      LDA K,I 
      AND DEC1
      CLE,RSS 
      ELA 
      ISZ 1 
      JMP *-2 
      IOR N 
      STA I,I 
      JMP SETBT,I 
* 
DEC1  DEC 1 
      END 
                                                                                                