ASMB,R,L
* 
* 
* 
**************************************************************
* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
* RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
* PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
* OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
**************************************************************
* 
* 
* 
*      NAME:    Z12RV -- SYMBR RETRIEVE SUBROUTINE
*      SOURCE:  92840-18112 
*      RELOC:   92840-16012 
* 
* 
* 
************************************************************* 
* 
      NAM Z12RV,8  92840-16012 REV.1913 790110
      ENT Z12RV 
      EXT .ENTR,$12CT,$12B1 
A     EQU 0 
IEQTP NOP 
IEQTB NOP 
IBUFF NOP 
IBUFR NOP 
Z12RV  NOP
      JSB .ENTR 
      DEF IEQTP 
      LDA P$BF1 
      JSB INDCK     CHECK FOR INDIRECT REFERENCE
      LDB IEQTB 
      MVW CNT 
      LDA P$BF2 
      JSB INDCK     CHECK FOR INDIRECT REFERENCE
      CAX 
      LAX 0 
      LDB IBUFR 
      STA 1,I 
      ARS 
      STA CNTR
      CXA 
      INB 
      INA 
      MVW CNTR
      JMP Z12RV,I 
CNT   DEC 16
CNTR  NOP 
P$BF1 DEF $12B1 
P$BF2 DEF $12CT 
INDCK NOP 
      SSA,RSS 
      JMP INDCK,I 
      AND B7777 
      LDA A,I 
      JMP INDCK+1 
B7777 OCT 77777 
      END 
                                                                                                                                                                                                    