anchor.diff:      procedure UPOPstDisDone(Sender: TObject);
       procedure UPONPStDone(Sender: TObject);
       procedure CSNPStDone(Sender: TIDContext; success: Boolean);
  +    procedure CSZavOffDone(Sender: TIDContext; success: Boolean);
   
       procedure ActivationBarriers(var barriers: TList<TJCBarrier>);
       procedure Activate(senderPnl: TIdContext; senderOR: TObject);
  
positive.code: 
  procedure TBlkPst.MenuZAVEnableClick(SenderPnl: TIdContext; SenderOR: TObject);
  begin
  end;
  
  procedure TBlkPst.MenuZAVDisableClick(SenderPnl: TIdContext; SenderOR: TObject);
  begin
  end;
  
  procedure TBlkPst.MenuHoukEnableClick(SenderPnl: TIdContext; SenderOR: TObject);
  
negative.code:     Inc(Self.m_state.emLock);
      if (Self.m_state.emLock = 1) then
      begin
        if (Self.status = pstTakeReady) then
          Self.status := pstOff;
        Self.Change();
      end;
    end else begin
      if (Self.m_state.emLock > 0) then
        Dec(Self.m_state.emLock);
      if (Self.m_state.emLock = 0) then
        Self.Change();
    end;
  end;
  
  