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