module keyAny
(
     CLK,
     WR,     
     inkey,
     out,
     keyPress
);        

parameter mCNT = 131071;
parameter NRB = 8;

input  CLK;      
input  [NRB - 1:0] inkey;    
input  WR;

output [NRB - 1:0] out;    
output keyPress;    

// iienaiea eniieucoaiuo neaiaeia
reg[NRB - 1:0] out = 255;    
reg keyPress = 0;    
reg[16:0] kDel;    

//-------------------------------------------------
always @(posedge CLK) begin    //Ñèíõðîíèçàöèÿ ñ ãëîáàëüíûì CLOCK

if(WR == 1)begin
       keyPress <= 0;
       out <= 255;       
end

if (keyPress == 0) begin    //Åñëè íåò âûäà÷è èìïóëüñà
    if (inkey != out) begin    //Äîæèäàåìñÿ ñðàáàòûâàíèÿ êíîïêè
     kDel <= kDel+1;   //Èíêðåìåíò ñ÷¸ò÷èêà
     if(kDel == mCNT) begin  //Æä¸ì ïîêà äîñ÷èòàåò ñ÷¸ò÷èê
      out <= inkey;   //Ïåðåäà¸ì ñèãíàëû êíîïîê íà âûõîä
      keyPress <= 1;   //Óñòàíàâëèâàåì ñèãíàë íàæàòèÿ êíîïêè
      kDel <= 0;    //Ñáðîñ ñ÷¸ò÷èêà
     end  //if
    end  //if
    else  kDel <= 0;    //Ñáðîñ ñ÷¸ò÷èêà
end  //if
else begin
    kDel <= kDel+1;     //Èíêðåìåíò ñ÷¸ò÷èêà
    if(kDel == mCNT) keyPress <= 0;  //Ñáðàñûâàåì ñèãíàë íàæàòèÿ êíîïêè
end  //else

end  //always
endmodule