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