--- cci/sys/tahoe/Kdivf.x	2019/07/28 12:24:19	1.1.1.1
+++ cci/sys/tahoe/Kdivf.x	2019/07/28 12:30:06	1.1.1.2
@@ -52,7 +52,7 @@ _Kdivf:	.word	0xffc
 				# ediv (+32), shifting r6 (-2).
 	
 over:
-	pushl	20(fp)
+	pushal	20(fp)
 	callf	$8,Kfnorm	# we can use fnorm because we have data
 				# at r1 as well.(sfnorm takes care only 
 				# of r0).
@@ -71,7 +71,10 @@ retz2:	bbc	$31,12(fp),z_div
 
 underf:
 	orl2	$HFS_UNDF,*20(fp)	
-	ret
+	movl	$0x800000,r0
+	bbc	$0,r3,1f
+	orl2	$SIGNBIT,r0
+1:	ret
 z_div:
 	orl2	$HFS_DIVZ,*20(fp)
-	ret
+	jmp	retz