DD: This bug fix received via email, not verified!

Dear Sir,

Please find include an erratum file about float51 library. Functions
PUSHFPAC1 et PUSHFPAC2 save parameters ABOVE the stack, so any interrupt
crashes those values. The erratum.txt corrects these errors.

Best Regards

///////////////////////////////
/       Christian Frabel      /
/           APALACHES         /
/  email: cfrabel@myself.com  /
/ http://www.apalaches.wbs.fr /
///////////////////////////////

; ERRATUM
; correction bug
; sauvegarde parametre au dessus ! du stack ...
; Jean-Louis VERN
; Ste Apalaches
; 57 Bd de l'embouchure
; 31200 Toulouse
; France
; jlvern@writeme.com

pushfpac1()             /*Push fpacc1 on the stack*/
asm {
pshf1   mov     A,SP
   dec  A
   mov  R0,A
   mov  A,fpacc1mn+1    Get NSB
   push A               Save NSB
   mov  A,fpacc1mn+2    Get LSB
   push A               Save LSB
   mov  A,@R0
   push ACC
   mov  A,mantsgn1
   rlc  A               Move sign bit into carry
   mov  A,fpacc1ex      Get exponent
   rrc  A               Shift carry into exponent, exponent lsb into carry
   mov  @R0,A
   inc  R0
   mov  A,@R0
   push ACC
   mov  A,fpacc1mn      Get MSB
   rl   A               Remove implied mantissa bit 23
   rrc  A               Shift carry into mantissa bit 23
   mov  @R0,A
}


pushfpac2()             /*Push fpacc2 on the stack*/
asm {
pshf2   mov     A,SP
   dec  A
   mov  R0,A
   mov  A,fpacc2mn+1    Get NSB
   push A               Save NSB
   mov  A,fpacc2mn+2    Get LSB
   push A               Save LSB
   mov  A,@R0
   push ACC
   mov  A,mantsgn2
   rlc  A               Move sign bit into carry
   mov  A,fpacc2ex      Get exponent
   rrc  A               Shift carry into exponent, exponent lsb into carry
   mov  @R0,A
   inc  R0
   mov  A,@R0
   push ACC
   mov  A,fpacc2mn      Get MSB
   rl   A               Remove implied mantissa bit 23
   rrc  A               Shift carry into mantissa bit 23
   mov  @R0,A
}
