Add fpr to print floating-point registers.
 [rsc] --rw-rw-r-- M 1428987 glenda sys 3268 Jan 28 11:01 sys/lib/acid/386
	/n/sourcesdump/2006/0128/plan9/sys/lib/acid/386:59,64 - 
	/n/sourcesdump/2006/0129/plan9/sys/lib/acid/386:59,84
	  	gpr();
	  }
	  
	+ defn fpr()
	+ {
	+ 	print("F0\t",  *fmt(F0, 'g'), "\n");
	+ 	print("F1\t",  *fmt(F1, 'g'), "\n");
	+ 	print("F2\t",  *fmt(F2, 'g'), "\n");
	+ 	print("F3\t",  *fmt(F3, 'g'), "\n");
	+ 	print("F4\t",  *fmt(F4, 'g'), "\n");
	+ 	print("F5\t",  *fmt(F5, 'g'), "\n");
	+ 	print("F6\t",  *fmt(F6, 'g'), "\n");
	+ 	print("F7\t",  *fmt(F7, 'g'), "\n");
	+ 	print("control\t", *fmt(E0, 'x'), "\n");
	+ 	print("status\t", *fmt(E1, 'x'), "\n");
	+ 	print("tag\t", *fmt(E2, 'x'), "\n");
	+ 	print("ip offset\t", *fmt(E3, 'X'), "\n");
	+ 	print("cs selector\t", *fmt(E4, 'x'), "\n");
	+ 	print("opcode\t", *fmt(E4>>8, 'x'), "\n");
	+ 	print("data operand offset\t", *fmt(E5, 'x'), "\n");
	+ 	print("operand selector\t", *fmt(E6, 'x'), "\n");
	+ }
	+ 
	  defn mmregs()
	  {
	  	print("MM0\t", *MM0, " MM1\t", *MM1, "\n");