1*45760Sbostic /*- 2*45760Sbostic * Copyright (c) 1986 The Regents of the University of California. 3*45760Sbostic * All rights reserved. 4*45760Sbostic * 5*45760Sbostic * This code is derived from software contributed to Berkeley by 6*45760Sbostic * Computer Consoles Inc. 7*45760Sbostic * 8*45760Sbostic * %sccs.include.redist.c% 9*45760Sbostic * 10*45760Sbostic * @(#)Acmpf2.c 7.1 (Berkeley) 12/06/90 11*45760Sbostic */ 1229598Ssam 1345699Sbostic #include "align.h" cmpf2(infop)1429598Ssamcmpf2(infop) process_info *infop; 1529598Ssam /* 1629598Ssam /* Compare operand 1 with operand2 (float). 1729598Ssam /* 1829598Ssam /*************************************************/ 1929598Ssam { 2029598Ssam register float *Register_12; /* Has to be first reg ! */ 2129598Ssam register float *Register_11; 2229598Ssam register long Register_10; 2329598Ssam 2429598Ssam Register_12 = (float *) &operand(infop,0)->data; 2529598Ssam Register_11 = (float *) &operand(infop,1)->data; 2629598Ssam if ( reserved( *(long *)Register_12 ) || 2729598Ssam reserved( *(long *)Register_11 ) ) 2829598Ssam {exception(infop, ILL_OPRND);} 2929598Ssam 3029598Ssam Register_10=psl; 3129598Ssam Set_psl(r10); /* restore the user psl */ 3229598Ssam asm (" cmpf2 (r12),(r11)"); 3329598Ssam asm (" movpsl r10"); 3429598Ssam New_cc (Register_10); 3529598Ssam } 36