//********************************************
// 輸入檢測模塊測試程序  
//*******************************************

`timescale    1ns/1ns
module    ONE_PULSE_TEST; 
   reg    CLK, RB;
   reg    KEY;
   wire   OUT;
   parameter   STEP=50;

   ONE_PULSE   ONE_PULSE(CLK, OUT, RB, KEY);

   always   #(STEP/5)     CLK=~CLK;

   initial    begin
       RB=1; CLK=0; KEY=1;
       #(STEP)       RB=0;
       #(STEP/5)     RB=1; 
       #(STEP)       KEY=0;
       #(STEP)       KEY=1;
       #(STEP)
       #(STEP)       KEY=0;
       #(STEP)       KEY=1;
       #(STEP)
       #(STEP)       RB=0;
       #(STEP/5)     RB=1;
       #(STEP)
       #(STEP)
       #(STEP)      
       #(STEP)       KEY=0;
       #(STEP)       KEY=1;
       #(STEP)    
       #(STEP)
       #(STEP)
       #(STEP) 
       #(STEP/2)    $finish;
   end
endmodule