-- ------------------------------------------------------------------------------------------------
--
-- Caslan File (*.CAS)
--
-- Name      : BS_Performance_Test.CAS
-- ------------------------------------------------------------------------------------------------

PROGRAM 'BS_TIME_MEASURE';  

GROUP
	g_Pin U2 : #D10; -- EBI_DQ1 


BEGIN
 	
	LDI U1, SAMPLE;
	LDI U2, SAMPLE;
	LDI U14, SAMPLE;
	IRSHIFT;
	
	ENABLE (U2 : #D10);

	LD g_Pin, 1b;
   DRSHIFT;

	LDI U2, EXTEST;
	IRSHIFT;
	
   LD g_Pin, 0b;

   LOOP 10 DO
		DRSHIFT;
      NEG g_Pin;
   END;

	DISABLE (U2 : #D10);
	DRSHIFT;

  
END.