usr/src/sys/tahoe/align/Acmpd.c

/*      Acmpd.c 1.1     86/07/20        */

#include "../tahoealign/align.h"
cmpd(infop)     process_info *infop;
/*
/*      Compare accumulator (double) with operand.
/*
/****************************************************/
{
        register float  *Register_12;   /* Has to be first reg ! */
        register float  *Register_11;
        register long   Register_10;

        Register_12 = (float *) &acc_high;
        Register_11 = (float *) &operand(infop,0)->data;
        if ( reserved( *(long *)Register_11 ) )
                        exception(infop, ILL_OPRND);
        asm ("  ldd     (r12)");
        Register_10=psl;
        Set_psl(r10);   /* restore the user psl */
        asm ("  cmpd    (r11)");
        asm ("  movpsl  r10");
        New_cc (Register_10);
}