//
// TEST MODULE for seqiencer
//

module sequencer_test;

   initial
     begin
	$shm_open("waves.shm");
	$shm_probe("as");
     end

   wire RA, RB, TM;
   wire [1:0] STATE;
   reg 	START, JP, RESET, CLOCK;

   sequencer sequencer( START,
			JP,
			RESET,
			CLOCK,
			RA,
			RB,
			TM,
			STATE );

   //
   // CLOCK : 1MHz infinite loop
   //
   initial
     begin
	CLOCK = 1'b1;
	while(1)
	  CLOCK = #5000 ~CLOCK;
     end

   //
   //  RESET
   //
   initial
     begin
	RESET = # 0 0;	        //     0ns 
	RESET = # 15000 1;	//  1500 
	RESET = # 20000 0;	//  3500 
     end

   //
   // CONTROL
   //
   initial
     begin
	START = # 0 0;
	JP    = # 0 0;
	START = # 30000 1;
	START = # 40000 0;
	START = # 45000 1;
	JP    = # 35000 1;
	JP    = # 45000 0;
	
	# 100000 $finish;
     end

   //
   // Execution Trace
   //
   always @( posedge CLOCK )
     begin
	#3000 $display(" %x  RA=%x RB=%x TM=%x    START=%x JP=%x",
		        STATE, RA, RB, TM, START, JP);
     end

endmodule