Routine:        Calib
Function:       Calibration viscosity measurement
Called by:      Main
Calls:          Divide, Input, Print, Regld, Regsv, Visc
Entry:          None    
Exit:           Calvis holds the calibration ratio   
Preserved:      All


CALIB   CALL    REGSV
        LD      HL,CALVIS
        CALL    INPUT
; Get the calibration viscosity value from the user.
        CALL    PRINT
        LD      HL,VISCTY
        CALL    VISC
; Call subroutine Visc to measure the raw uncalibrated viscosity.
        RET     C
        LD      BC,CALVIS
        LD      DE,VISCTY
        LD      HL,CALVIS
        CALL DIVIDE
; Calculate the viscosity calibration multiplier.
        CALL REGLD
        RET