ASMB,R,L,C
      NAM JDRTP,7 09580-16065 REV.A 770101
* 
*---------------------------------------------------------------
* 
*     RELOC.     09580-16065
*     SOURCE     09580-18065
* 
*     M.KAESSNER    REV.A   770101
* 
*     HP 92425A TEST SYSTEM SOFTWARE IS THE PROPRIETARY 
*     MATERIAL OF THE HEWLETT-PACKARD COMPANY.  USE AND 
*     DISCLOSURE THEREOF ARE RESTRICTED BY WRITTEN AGREEMENT. 
* 
*     (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977. 
*     ALL RIGHTS RESERVED.  NO PART OF THIS PROGRAM 
*     MAY BE PHOTOCOPIED, REPRODUCED OR TRANSLATED
*     TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR 
*     WRITTEN CONSENT OF THE HEWLETT-PACKARD COMPANY. 
* 
*---------------------------------------------------------------
* 
* 
A     EQU 0 
B     EQU 1 
* 
      ENT JDRTP 
      EXT DRTXX,.ENTR,$LIBR,$LIBX 
* 
AI    NOP 
AIVAL NOP 
JDRTP NOP 
      JSB .ENTR 
      DEF AI
* 
      LDA ADRTX 
      SSA,RSS       IS INIDIRECT BIT SET? 
      JMP STADR     NO
      AND MASK
      LDA A,I 
STADR STA ADRTZ 
      CLA 
      STA ADDR
      LDA AI,I      CHECK PARAMETER 
      SZA,RSS 
      JMP EX            INDEX = 0 
      SSA 
      JMP EX        INDEX IS NEGATIVE 
      LDB ADRTZ 
      SZB,RSS       NO EXTERNAL, SO GET OUT 
      JMP EX
      INB 
      CMA 
      INA 
      ADA B,I 
      SSA           INDEX IS TOO BIG
      JMP EX
* 
      LDA ADRTZ     COMPUTE ADDRESS 
      INA 
      ADA AI,I
      STA ADDR
* 
      JSB $LIBR     *** GO PRIVELEGED TO PERFORM STORE
      NOP           *** 
      LDA AIVAL,I   *** 
      STA ADDR,I    *** 
      JSB $LIBX     *** 
      DEF *+1       *** 
      DEF EX        *** 
* 
EX    LDA ADDR
      JMP           JDRTP,I 
* 
ADDR  BSS 1 
ADRTZ BSS 1 
MASK  OCT 77777 
ADRTX DEF DRTXX 
      END 
                                                                                                                                                                                                          