// A simple Handel-C model - shift register

set clock = external "Dummy";

void main (void)
{
	// Declarations
	unsigned 4 SR;
	unsigned 1 Serial_in;
	unsigned 1 Stop;
	unsigned 8 i;

	// Initialise simulation
	Stop = 0;

	// The stimulus and the shift register run in parallel
	par {

		// Stimulus
		{
			Serial_in = 1;
			for (i = 0; i < 12; i++ ) {
				;
			}
			Stop = 1;
		}

		// The Shift register
		while (!Stop)
			SR = SR[2:0] @ Serial_in;

	}
}