ASMB,Q,C
*     NAME:   .TBS
*     SOURCE: 92070-18188 
*     RELOC:  92070-1X188 
*     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 .TBS,6  92070-1X188  REV.1941  790205 
      ENT .TBS
* 
* 
      EXT .ZPRV 
* 
* 
A     EQU 0 
B     EQU 1 
* 
* 
.TBS  NOP           TEST BITS 
      JSB .ZPRV     HOLD OFF OTHER PROGRAMS 
      DEF EXIT
      STA .A. 
      LDA .TBS,I
      ISZ .TBS
      STA .B. 
      LDA .A.       IN CASE OF REGISTER REFERENCE 
      LDA .B.,I 
      CMA 
      STA .EO.      SAVE MASK 
* 
      LDA .TBS,I
      ISZ .TBS
      LDA .A.       IN CASE OF REGISTER REFERENCE 
      LDA .B.,I 
      IOR .EO.      'OR' WITH MEMORY
      CMA,SZA 
      ISZ .TBS      SOME TESTED BIT NOT SET 
      LDA .A. 
EXIT  JMP .TBS,I
      DEF .TBS
* 
.A.   NOP 
.B.   NOP 
.EO.  NOP 
      END 
                  