ASMB,Q,C
*     NAME:   .STY
*     SOURCE: 92071-18187 
*     RELOC:  92071-1X187 
*     PGMR:   HLC,DJN 
* 
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  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 .STY,6  92071-1X187  REV.2041  800411 
      ENT .STY
* 
* 
      EXT .X.,.Y.,.A.,.B.,.ZPRV 
* 
* 
A     EQU 0 
B     EQU 1 
* 
* 
.STY  NOP           STORE Y IN MEMORY 
      JSB .ZPRV     SHARABLE ROUTINE
      DEF EXIT
      STA .A. 
      LDA .STY,I
      ISZ .STY
BACK  SSA 
      JMP RESLV 
      SZA,RSS 
      LDA D.A.      REGISTER REFERENCE
      STA .B. 
      LDA .Y. 
      STA .B.,I 
      LDA .A. 
EXIT  JMP .STY,I
      DEF .STY
* 
RESLV ELA,CLE,ERA   CLEAR INDIRECT BIT
      SZA,RSS 
      LDA D.A.      REGISTER REFERENCE
      LDA A,I 
      JMP BACK
* 
D.A.  DEF .A.+0 
      END 
                                                                                      