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