DO    *HIVAL
      EXSR  #CALC1
90    LEAVE
      ENDDO