[CONTACT]

[ABOUT]

[POLICY]

The author of this software is

Found at: ftp.icm.edu.pl:70/packages/netlib/fp/rnd_prod.s

/************************************************************************/
/*									*/
/* The author of this software is David M. Gay.				*/
/*									*/
/* Copyright (c) 1991 by Lucent Technologies.				*/
/*									*/
/* Permission to use, copy, modify, and distribute this software for	*/
/* any purpose without fee is hereby granted, provided that this entire	*/
/* notice is included in all copies of any software which is or		*/
/* includes a copy or modification of this software and in all copies	*/
/* of the supporting documentation for such software.			*/
/*									*/
/* THIS SOFTWARE IS BEING PROVIDED "AS IS", WITHOUT ANY EXPRESS OR	*/
/* IMPLIED WARRANTY.  IN PARTICULAR, NEITHER THE AUTHOR NOR LUCENT	*/
/* MAKES ANY REPRESENTATION OR WARRANTY OF ANY KIND CONCERNING THE	*/
/* MERCHANTABILITY OF THIS SOFTWARE OR ITS FITNESS FOR ANY PARTICULAR	*/
/* PURPOSE.								*/
/*									*/
/************************************************************************/

.text
	entry rnd_prod
	using	rnd_prod,15
	ld	0,0+64(13)
	mxd	0,8+64(13)
	lrdr	0,0
	b	2(,14)
	drop
	entry	rnd_quot
	using	rnd_quot,15
	ld	0,0+64(13)
	ldr	2,0
	ld	4,8+64(13)
	ddr	2,4
	std	2,32(13)
	mxdr	4,2
	sdr	2,2
	sxr	0,4
	dd	0,8+64(13)
	sdr	2,2
	ld	4,32(13)
	sdr	6,6
	axr	0,4
	lrdr	0,0
	b	2(,14)

.


AD:

NEW PAGES:

[ODDNUGGET]

[GOPHER]