1*29597Ssam /* Acmpd2.c 1.1 86/07/20 */ 2*29597Ssam 3*29597Ssam #include "../tahoealign/align.h" 4*29597Ssam cmpd2(infop) process_info *infop; 5*29597Ssam /* 6*29597Ssam /* Compare operand 1 with operand 2 (double). 7*29597Ssam /* 8*29597Ssam /****************************************************/ 9*29597Ssam { 10*29597Ssam register double *Register_12; /* Has to be first reg ! */ 11*29597Ssam register double *Register_11; 12*29597Ssam register long Register_10; 13*29597Ssam 14*29597Ssam Register_12 = (double *) &operand(infop,0)->data; 15*29597Ssam Register_11 = (double *) &operand(infop,1)->data; 16*29597Ssam if ( reserved( *(long *)Register_12 ) || 17*29597Ssam reserved( *(long *)Register_11 ) ) 18*29597Ssam exception(infop, ILL_OPRND); 19*29597Ssam Register_10=psl; 20*29597Ssam Set_psl(r10); /* restore the user psl */ 21*29597Ssam asm (" cmpd2 (r12),(r11)"); 22*29597Ssam asm (" movpsl r10"); 23*29597Ssam New_cc (Register_10); 24*29597Ssam } 25