Routine:        Equals  
Function:       Set a floating point number equal to another
Called by:      Pb3, Visc
Calls:          Regld, Regsv
Entry:          DE points to #1, HL to #2.
Exit:           #1=#2
Preserved:      All


EQUALS  CALL    REGSV
        LD      BC,5
        LDIR
        CALL    REGLD
        RET