ASMB,R,L,C,Q
      HED $ESTB 
*     NAME:   $ESTB 
*     SOURCE: 92067-18454 
*     RELPC:  92067-16268 
*     PGMR:   G.L.M.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  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 $ESTB,6 92067-1X454 REV.2013 790202 
* 
      ENT $ESTB 
      EXT .ZPRV 
      SKP 
$ESTB NOP 
      JSB .ZPRV     GO PRIV IF IN SYS LIB 
      DEF LIBX
      LDB XEQT      FETCH CALLERS ID ADDR 
      ADB D32       ADVANCE TO SESSION WORD 
      XLB B,I         AND FETCH THE CONTENTS
      CLE,SSB,RSS 
      SZB,RSS 
      CLB,CCE 
LIBX  JMP $ESTB,I 
      DEF $ESTB     MAKE LOADER  HAPPY
      SKP 
XEQT  EQU 1717B 
D32   DEC 32
B     EQU 1 
      END 
                                                                                                                                                                                                                                                  