ASMB,Q,C
*     NAME: .XLB
*     SOURCE: 92071-18332 
*     RELOC: 92071-16332
*     PGMR:   DJN,HLC 
* 
* 
*  **************************************************************** 
*  * (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 .XLB,6  92071-1X332 REV.2041  800731
* 
      ENT .XLB
      EXT .A.,.B.,.ZPRV,.XLD
* 
A     EQU 0 
B     EQU 1 
* 
.XLB  NOP 
      JSB .ZPRV     SHARABLE ROUTINE
      DEF EXIT
      STA .A.       SAVE A
      LDA .XLB,I    GET THE UNRESOLVED ADDRESS
      ISZ .XLB      ADJUST RETURN 
* 
* CLEAR INDIRECT BIT AND SKIP THE 
* NEXT INSTRUCTION IF ALREADY CLEAR 
* 
BACK  SSA 
      JMP RESLV 
* 
* CHECK FOR CASE HARDWARE MESSES UP ON A=0
* 
      SZA,RSS 
      JMP BADA      DO WHAT IT SHOULD DO
      JSB .XLD      GET DATA (A HAS NO INDIRECTS) 
      DEF A,I 
      LDB A         RESULT GOES IN B
RSTA  LDA .A.       RESTORE A 
EXIT  JMP .XLB,I
      DEF .XLB
* 
RESLV ELA,CLE,ERA   CHASE INDIRECT ONE LEVEL
      STA .B.       SAVE IN CASE IT WAS A REG REF 
      LDA .A. 
      LDA .B.,I 
      JMP BACK
* 
BADA  LDB .A.       ASSUME HE WANTS LOCAL MAP EQUIV.
      JMP RSTA
      END 
                                                  