ASMB,Q,C
*     NAME:   .SBS
*     SOURCE: 92070-18183 
*     RELOC:  92070-1X183 
*     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 .SBS,6  92070-1X183  REV.1941  790205 
      ENT .SBS
* 
* 
      EXT .ZPRV 
* 
* 
A     EQU 0 
B     EQU 1 
* 
* 
.SBS  NOP           SET BITS
      JSB .ZPRV     HOLD OFF OTHER PROGRAMS 
      DEF EXIT
      STA .A. 
      LDA .SBS,I
      ISZ .SBS
      STA .B. 
      LDA .A. 
      LDA .B.,I 
      STA .EO.      SAVE MASK 
* 
      LDA .SBS,I
      ISZ .SBS
BACK  SSA 
      JMP RESLV 
      SZA,RSS 
      LDA D.A.      REGISTER REFERENCE
      STA .B. 
      LDA A,I 
      IOR .EO.      'OR' WITH MEMORY
      STA .B.,I 
      LDA .A. 
EXIT  JMP .SBS,I
      DEF .SBS
* 
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 
                                                                                                                                                                            