anchor.diff:      TBlkDiscBasicState.mounting:
         begin
           if (Now > Self.m_state.finish) then
  -        begin
  -          Self.m_state.finish := Now + EncodeTime(0, Self._ACTIVE_TO_DISABLE_TIME_SEC div 60,
  -                                                   Self._ACTIVE_TO_DISABLE_TIME_SEC mod 60, 0);
  -          Self.state := TBlkDiscBasicState.active;
  -        end;
  +          Self.Activate();
         end;
  -    TBlkDiscBasicState.active:
  -      if (Now > Self.m_state.finish) then
  -        Self.state := TBlkDiscBasicState.not_selected;
  +    TBlkDiscBasicState.active, TBlkDiscBasicState.shortTimeRemaining:
  +      begin
  +        if (Now > Self.m_state.finish) then
  +          Self.state := TBlkDiscBasicState.not_selected
  +        else if ((Now > Self.m_state.warning) and (Self.state = TBlkDiscBasicState.active)) then
  +          Self.state := TBlkDiscBasicState.shortTimeRemaining;
  +      end;
     end; // case
   
     inherited Update();
  
positive.code:       json['state'] := 'mounting';
      TBlkDiscBasicState.active:
        json['state'] := 'active';
    end;
  end;
  
  
negative.code:         case (Self.state) of
            TBlkDiscBasicState.mounting:
              Self.state := TBlkDiscBasicState.not_selected;
            TBlkDiscBasicState.active, TBlkDiscBasicState.shortTimeRemaining:
              Self.state := TBlkDiscBasicState.not_selected;
          end;
        end;
  