*** math11routines.asm.old	Wed Nov 25 16:07:54 1998
--- math11routines.asm	Thu Dec 10 16:13:42 1998
***************
*** 425,433 ****
  RTNDIV0	 LDX	#$FFFF	     ; maximum magnitude result
  	 BRA	FPMULT7	     ; do it and return.
  FPMULT1	 BCS	FPMULT2	     ; if result is plus & the carry is set then all ok
! RTNZERO	 LDAA	#UNFERR	     ; else underflow error occured.
! 	 LDX	#0	     ; zero result
! 	 STX	FPACC1MN+2   ; this clears mantsgn1 byte
  FPMULT7	 STX	FPACC1EX
  	 STX	FPACC1MN+1
  	 SEC		     ; flag error.
--- 425,441 ----
  RTNDIV0	 LDX	#$FFFF	     ; maximum magnitude result
  	 BRA	FPMULT7	     ; do it and return.
  FPMULT1	 BCS	FPMULT2	     ; if result is plus & the carry is set then all ok
! * RTNZERO	 LDAA	#UNFERR	     ; else underflow error occured.
! *	 LDX	#0	     ; zero result
! *	 STX	FPACC1MN+2   ; this clears mantsgn1 byte
! * take out underflow error -- jonh
! RTNZERO  LDX    #0           ; zero result
!          STX    FPACC1MN+2   ; this clears mantsgn1 byte also
!          STX    FPACC1EX
!          STX    FPACC1MN
!          CLRB                ; show no errors
!          RTS                 ; ignore error, returning zero
! * end jonh edits
  FPMULT7	 STX	FPACC1EX
  	 STX	FPACC1MN+1
  	 SEC		     ; flag error.