ASMB,R,L,C * * **************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. 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. * * **************************************************************** * * NAME: PART OF MATH LIBRARY * SOURCE: 24998-18XXX SEE NAM FOR LAST THREE DIGITS * RELOC: PART OF 24998-12001 * PGMR: BG & JTS * HED ".PCAD" GET ADDRESS FOR PRIVILEGED ROUTINES NAM .PCAD,6 24998-1X060 REV.2001 750701 ENT .PCAD EXT .ZPRV * THIS ROUTINE WILL GET THE DIRECT ADDRESS THAT IS * POINTED TO BY THE P+1 PARAMETER. NOTE: THE P+1 * PARAMETER MAY POINT TO THE A OR B-REGS. * CALLING SEQUENCE: * JSB .PCAD * DEF
(,I) * A-REG = DIRECT ADDRESS THAT IS POINTED * TO BY THE P+1 PARAMETER * TIME: APPROX 21 2100 CYCLES + 11 PER INDIRECT + PRIV. PROC. SPC 2 .PCAD NOP JSB .ZPRV DEF LIBX STA TEMP SAVE A LDA .PCAD,I LOOP STA ADRES LDA TEMP RESTORE A LDA ADRES,I RAL,CLE,SLA,ERA JMP LOOP INDIRECT ADDRESS. DO AGAIN ISZ .PCAD BUMP RETURN ADDRESS LIBX JMP .PCAD,I DEF .PCAD ADRES NOP TEMP NOP END * *