ASMB,Q,C
*     NAME:   .CBS
*     SOURCE: 92070-18166 
*     RELOC:  92070-1X166 
*     PGMR:   HLC 
* 
* 
*  **************************************************************** 
*  * (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 WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.        * 
*  **************************************************************** 
* 
* 
      NAM .CBS,6  92070-1X166  REV.1941  790205 
      ENT .CBS
* 
* 
      EXT .ZPRV 
* 
* 
A     EQU 0 
B     EQU 1 
* 
* 
.CBS  NOP           CLEAR BITS
      JSB .ZPRV     HOLD OFF OTHER PROGRAMS 
      DEF EXIT  
      STA .A. 
      LDA .CBS,I
      ISZ .CBS
      STA .B. 
      LDA .A. 
      LDA .B.,I 
      CMA 
      STA .EO.      SAVE MASK 
* 
      LDA .CBS,I
      ISZ .CBS
BACK  SSA 
      JMP RESLV 
      SZA,RSS 
      LDA D.A.      REGISTER REFERENCE
      STA .B. 
      LDA A,I 
      AND .EO.      'AND' WITH MEMORY 
      STA .B.,I 
      LDA .A. 
EXIT  JMP .CBS,I
      DEF .CBS
* 
RESLV ELA,CLE,ERA   CLEAR INDIRECT BIT
      SZA,RSS 
      LDA D.A.      REGISTER REFERENCE
      LDA A,I 
      JMP BACK
* 
D.A.  DEF .A. 
.A.   NOP 
.B.   NOP 
.EO.  NOP 
      END 
                                                                                                                                                          