/*
 * 5799-WZQ (C) COPYRIGHT IBM CORPORATION 1986,1987,1988
 * LICENSED MATERIALS - PROPERTY OF IBM
 * REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083
 */
/* $Header:fpround_rtfl.s 12.0$ */
/* $ACIS:fpround_rtfl.s 12.0$ */
/* $Source: /ibm/acis/usr/src/lib/libc/ca/gen/RCS/fpround_rtfl.s,v $ */

#include "rtflgen.h"

/*
 *  argument :	none
 *  result :	integer value in r2
 */
UIC(fptestround, FP_TESTROUND, scratch_r0r3r4r5r15, scratch_fr0fr1, UI_SIZE);

/*
 *  argument :	integer value in r2
 *  result :	none
 */
UIC(fpsetround, FP_SETROUND, scratch_r0r2r3r4r5r15, scratch_fr0fr1, UI_SIZE);
