/* 	This C language subroutine provides support for the 
	double and long double types of the language.

	The double precision representation is a two word
	64-bit format, identical to IEEE 754 double.  The long
	double is the same as the double.
	
	The Run Time Library for the C Language.

	Created on 6/14/90
	Updated on 5/94 by AS
	Updated on 2/95 by AS - separated from dbl_sprt.asm

	long double ___ldsub(long double x, long double y);
	double ___dsub(double x, double y);

*/

#include "lib_glob.h"
#include "dbl_glob.h"
#include "flt_glob.h"

.SEGMENT/CODE	Code_Space_Name;
.FILE 		RTL_FILENAME;

.GLOBAL 	 ___subdf3, ___cmpdf,  ___dsub, ___ldsub;

___cmpdf:
___subdf3:
___ldsub:
___dsub:	put(R3);
		put(R5);
		put(R13);
		put(R14);
		put(R15);

		reads(R14,1);
		reads(R15,2);	
		
		CALL (PC, ___lib_dsub) (DB); /*Compute X-Y*/
		reads(R12,3);
		reads(R13,4);		/*Read Y LSW*/

restore_state:	FETCH_RETURN
		get(R15,1);
		get(R14,2);
		get(R13,3);
		get(R5,4);
		get(R3,5);
		RETURN (DB);
		RESTORE_STACK
		RESTORE_FRAME

.ENDSEG