coherent/b/lib/libm/i8087/fabs87.m - view

Return to fabs87.m CVS log

Up to [MW Coherent from dump] / coherent / b / lib / libm / i8087

File: [MW Coherent from dump] / coherent / b / lib / libm / i8087 / fabs87.m
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Wed May 29 04:56:35 2019 UTC (7 years ago) by root
Branches: MarkWilliams, MAIN
CVS tags: relic, HEAD

coherent

//////////
/ libm 8087
/ fabs(d)
//////////

#include "larges.h"
#include "ifno8087.h"

	.globl  fabs_

//////////
/ double
/ fabs(d)
/ double d;
//////////

d	=	RASIZE		/ arg offset

fabs_:
	ifno8087(_fabs_)
	mov	bx, sp

	fdld	Pss d(bx)	/ Load argument d
	fabs			/ and perform abs.

	Gret

unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.