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