ASMB,Q,C
*     NAME:   .STX
*     SOURCE: 92071-18186 
*     RELOC:  92071-1X186 
*     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 .STX,6  92071-1X186  REV.2041  800411 
      ENT .STX
* 
* 
      EXT .X.,.Y.,.A.,.B.,.ZPRV 
* 
* 
A     EQU 0 
B     EQU 1 
* 
* 
.STX  NOP           STORE X IN MEMORX 
      JSB .ZPRV     SHARABLE ROUTINE
      DEF EXIT
      STA .A. 
      LDA .STX,I
      ISZ .STX
BACK  SSA 
      JMP RESLV 
      SZA,RSS 
      LDA D.A.      REGISTER REFERENCE
      STA .B. 
      LDA .X. 
      STA .B.,I 
      LDA .A. 
EXIT  JMP .STX,I
      DEF .STX
* 
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 
                                                                                      