/* Aldfd.c 1.1 86/07/20 */
#include "../tahoealign/align.h"
ldfd(infop
) process_info
*infop
;
/* Load into accumulator float operand converted to double.
/***************************************************************/
register struct oprnd
*oprnd_pnt
;
oprnd_pnt
= operand(infop
,0);
if ( reserved( oprnd_pnt
->data
) )
exception(infop
, ILL_OPRND
);
acc_high
= oprnd_pnt
->data
;