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 "..DLC" DOUBLE LOAD REAL AND COMPLEMENT NAM ..DLC,6 24998-1X117 REV.2001 750701 ENT ..DLC EXT .ZPRV * * ..DLC NOP JSB .ZPRV DEF LIBX LDA ..DLC,I GET ADDRESS OF ARGUMENT ISZ ..DLC BUMP RETURN ADDRESS STA ARG CLA SUBTRACT CLB FROM FSB ARG,I ZERO LIBX JMP ..DLC,I DEF ..DLC ARG NOP END * * *