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