Routine:        Divide  
Function:       Divides two floating point numbers
Called by:      Calib, Range, Read, Visc.
Calls:          Mult, Recip, Regld, Regsv.
Entry:          BC points to #1, DE to #2, HL to result #1/#2
Exit:           Result stored at HL. Result bytes unchanged on error
Preserved:      All


DIVIDE  CALL    REGSV
        PUSH    HL
        LD      HL,PRIBUF
; Use Pribuf as temporary storage space; calculate the division by first calculating the reciprocal of the quotient then multiplying by the divisor.
        CALL    RECIP
        POP     HL
        LD      DE,PRIBUF
        CALL    MULT
        RET