/*
	This C language subroutine scales
	a floating point number by an 2^x

	The Run Time Library for the C Language.

	Gordon A. Sterling	(617) 461 - 3076
	DSP Development Tools Engineering

	Created on 04/22/90 
	Updated on 5/94 by AS

	#include <math.h>				<Header>
	float ldexp(float x, int exp);			<Prototype>

*/

#include "lib_glob.h"
#include "mth_glob.h"

.SEGMENT/CODE	Code_Space_Name;
.FILE 		RTL_FILENAME;

.GLOBAL	    _ldexpf;

_ldexpf:    F0=SCALB F4 BY R8, FETCH_RETURN    /*Scale by input*/

restore_state:	RETURN (DB);
		RESTORE_STACK
		RESTORE_FRAME

.ENDSEG;