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