ASMB HED S/P SETBT (08/JUL/77) F. GAULLIER NAM SETBT,7 . 92903-16001 REV.1805 770708 * * SOURCE 92903-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