ASMB,R,Q,C
*     NAME:   .SBT
*     SOURCE: 92070-18228 
*     RELOC:  92070-1X228 
*     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 .SBT,6  92070-1X228  REV.1941  790228 
      ENT .SBT
      EXT .ZPRV 
* THIS ROUTINE PROVIDES SOFTWARE SIMULATION OF THE SBT
* INSTRUCTION IN THE 21MX EXTENDED INSTRUCTION GROUP. 
B     EQU 1 
E.O   NOP 
CHAR  NOP 
ASAVE NOP 
* 
.SBT  NOP 
      JSB .ZPRV 
      DEF .SBTX 
      STA ASAVE     SAVE A
      AND =B377 
      STA CHAR      CHARACTER TO BE STORED
      ERA,ALS 
      SOC 
      INA 
      STA E.O       SAVE E AND O REGISTERS
      CLE,ERB 
      LDA B,I       GET PREVIOUS WORD 
      SEZ,RSS 
      ALF,ALF 
      AND =B177400  SAVE ONE BYTE 
      IOR CHAR
      SEZ,RSS 
      ALF,ALF       POSITION
      STA B,I 
      ELB 
      INB           SET FOR NEXT STORE
      LDA E.O 
      CLO 
      SLA,ELA       RESTORE E AND O REGISTERS 
      STO 
      LDA ASAVE 
.SBTX JMP .SBT,I   RETURN 
      DEF .SBT
* 
      END 
                                                                                                    