usr/src/sys/tahoealign/Aldfd.c

/*      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 ;
        acc_low = 0;
        psl |= PSL_DBL;
        infop->acc_dbl = 1;
}