Routine:        Meas
Function:       Actual viscosity measurement
Called by:      Main, Pb2, Pb3
Calls:          Mult, Regld, Regsv, Visc
Entry:          HL holds address viscosity is to be stored at
Exit:           Viscosity stored at HL; C flag is set on error
Preserved:      All


MEAS    CALL    REGSV
        CALL    VISC
; Raw viscosity measurement.
        RET     C
        LD      B,H
        LD      C,L
        LD      DE,CALVIS
; Multiply by the calibration coefficient.
        CALL    MULT
        CALL    REGLD
        RET