/******************************************************************************	Jeannette_1.c 9-step pattern sequencer using the PIC16F684 *	PORTA(RA0-RA2) will be the upper LEDs and PORTC will be the lower 
*	6 bit LEDs*	This program is a light sequencer/chaser programmed with different 
*       patterns using the Hi-Tech C compiler
*	Written by Marco Garza dba Picotek, 08/03/2011*****************************************************************************/#include <htc.h>	#define	flash_1()	(PORTC=0x01, PORTC=0x00);	#define	flash_2()	(PORTC=0x02, PORTC=0x00);#define	flash_3()	(PORTC=0x04, PORTC=0x00);#define	flash_4()	(PORTC=0x08, PORTC=0x00);#define	flash_5()	(PORTC=0x10, PORTC=0x00);#define	flash_6()	(PORTC=0x20, PORTC=0x00);#define	flash_7()	(PORTA=0x01, PORTA=0x00);#define	flash_8()	(PORTA=0x02, PORTA=0x00);#define	flash_9()	(PORTA=0x04, PORTA=0x00);/* setting the configuration fuses: ***, ***, brown out reset disabled, 
   code unprotected, MCLR off, ***, watch dog off, internal clock */__CONFIG(FCMDIS & IESODIS & BORDIS & UNPROTECT	& MCLRDIS & PWRTEN & WDTDIS & INTIO);/* first arg:higher 3 leds, 2nd arg:lower 6 leds, 3rd arg:on length*/void strobe(char upper, char lower, int duration){	int i;			//counter for duration		for (i=0; i<=duration; i++)	{			char led=0x01;	//to be anded with A and C ports		while (led < 64)		{			PORTA=(led & upper);			PORTA=0;			PORTC=(led & lower);			PORTC=0;			led = (led << 1);		}	}}			 /*	simple delay	*/void pause(int value){	int p;	for (p=0; p<value; p++);}/*	first argument is Led, second is how many long it's on	*/ void step(int led, int duration){	int i;	for(i=0; i<=duration; i++)	{		switch (led)		{			case 1:				flash_1();				break;			case 2:				flash_2();				break;			case 3:				flash_3();				break;			case 4:				flash_4();				break;			case 5:				flash_5();				break;			case 6:				flash_6();				break;			case 7:				flash_7();				break;			case 8:				flash_8();				break;			case 9:				flash_9();				break;			default:				PORTA=0;				PORTC=0;				break;		}	}}	/*	all leds on	*/void strobe_all(int duration){	int i;	for(i=0; i<duration; i++)	{		flash_1(); 		flash_2();		flash_3();		flash_4();		flash_5();		flash_6();		flash_7();		flash_8();		flash_9();	}	PORTC=0;	PORTA=0;}/*	chaser going down	*/void pattern_6(void){	strobe(0x00, 0x01, 200);	//	000 	000001	strobe(0x00, 0x02, 500);	//	000	000010	strobe(0x00, 0x04, 500);	//	000	000100	strobe(0x00, 0x08, 500);	//	000 	001000	strobe(0x00, 0x10, 500);	//	000 	010000	strobe(0x00, 0x20, 500);	//	000	100000	strobe(0x01, 0x00, 500);	//	001	000000	strobe(0x02, 0x00, 500);	//	010	000000	strobe(0x04, 0x00, 500);	//	100	000000}/*	chaser multiple led going up	*/void pattern_7(void){	strobe(0x04, 0x00, 500);	//	100	000000	strobe(0x06, 0x00, 500);	//	110	000000	strobe(0x07, 0x00, 500);	//	111	000000	strobe(0x03, 0x20, 500);	//  	011	100000	strobe(0x01, 0x30, 500);	//	001	110000	strobe(0x00, 0x38, 500);	//	000	111000	strobe(0x00, 0x1C, 500);	//	000	011100	strobe(0x00, 0x0E, 500);	//	000	001110	strobe(0x00, 0x07, 500);	//	000	000111	strobe(0x00, 0x03, 500);	//	000	000011	strobe(0x00, 0x01, 250);	//	000	000001}/*	span pattern 1	*/void pattern_8(void){	//strobe_all(200);	strobe(0x07, 0x3F, 1500);	//	111	111111	strobe(0x03, 0x3E, 150);	//	011	111110	strobe(0x01, 0x3C, 1500);	//	001	111100	strobe(0x00, 0x38, 1500);	//	000	111000	strobe(0x00, 0x10, 1500);	//	000	010000	strobe(0x00, 0x38, 1500);	//	000	111000	strobe(0x01, 0x3C, 1500);	//	001	111100	strobe(0x03, 0x3E, 1500);	//	011	111110	strobe(0x07, 0x3F, 1500);	//	111	111111	//strobe_all(200);}/*	block pattern going down	*/void pattern_9(void){		strobe(0x00, 0x01, 250);	//	000	000001	strobe(0x00, 0x03, 500);	//	000	000011	strobe(0x00, 0x07, 500);	//	000	000111	strobe(0x00, 0x0E, 500);	//	000	001110	strobe(0x00, 0x1C, 500);	//	000	011100	strobe(0x00, 0x38, 500);	//	000	111000	strobe(0x01, 0x30, 500);	//	001	110000	strobe(0x03, 0x20, 500);	//	011	100000	strobe(0x07, 0x00, 1000);	//	111	000000	strobe(0x07, 0x01, 500);	//	111	000001	strobe(0x07, 0x03, 500);	//	111	000011	strobe(0x07, 0x07, 500);	//	111	000111	strobe(0x07, 0x0E, 500);	//	111	001110	strobe(0x07, 0x1C, 500);	//	111	011100	strobe(0x07, 0x38, 1000);	//	111	111000	strobe(0x07, 0x39, 500);	//	111	111001	strobe(0x07, 0x3A, 500);	//	111	111011	strobe(0x07, 0x3F, 1000);	//	111	111111}/*	block pattern going up, reverse of pattern_9	*/void pattern_10(void)	{	strobe(0x07, 0x3F, 500);	strobe(0x07, 0x3A, 500);	strobe(0x07, 0x39, 500);	strobe(0x07, 0x38, 500);	strobe(0x07, 0x1C, 500);	strobe(0x07, 0x0E, 500);	strobe(0x07, 0x07, 500);	strobe(0x07, 0x03, 500);	strobe(0x07, 0x01, 500);	strobe(0x07, 0x00, 500);	strobe(0x03, 0x20, 500);	strobe(0x01, 0x30, 500);	strobe(0x00, 0x38, 500);	strobe(0x00, 0x1C, 500);	strobe(0x00, 0x0E, 500);	strobe(0x00, 0x07, 500);	strobe(0x00, 0x03, 500);	strobe(0x00, 0x01, 500);	strobe(0x00, 0x00, 500);}/*	 block down	*/void pattern_11(void){		strobe(0x0F, 0xFF, 1000);	//	111	111111	strobe(0x06, 0xFF, 500);	//	110	111111	strobe(0x04, 0xFF, 500);	//	100	111111	strobe(0x00, 0xFF, 1000);	//	000	111111	strobe(0x01, 0x37, 500);	//	001	110111	strobe(0x03, 0x27, 500);	//	011	100111	strobe(0x07, 0x07, 500);	//	111	000111	strobe(0x06, 0x07, 500);	//	110	000111	strobe(0x04, 0x07, 500);	//	100	000111	strobe(0x00, 0x07, 1000);	//	000	000111	strobe(0x00, 0x0E, 500);	//	000	001110	strobe(0x00, 0x1C, 500);	//	000	011100	strobe(0x00, 0x38, 500);	//	000	111000	strobe(0x01, 0x30, 500);	//	001	110000	strobe(0x03, 0x20, 500);	//	011	100000	strobe(0x07, 0x00, 500);	//	111	000000	strobe(0x06, 0x00, 500);	//	110	000000	strobe(0x04, 0x00, 500);	//	100	000000	strobe(0x00, 0x00, 1000);	//	000	000000}void fade(void){	strobe_all(1000);	int k;	for(k=0; k<400; k++)	{		strobe_all(2);		pause(k);	}}main(){	//OPTION = 0b00000001;  //no need to divide timer 1 by 4	PORTA=0;	PORTC=0;	TRISA=0;	TRISC=0;	CMCON0=7;	ANSEL=0;	while(1)	{		int h; 		int j;		int c;		for(h=0; h<2; h++)		{ 			pattern_6();			pattern_7();		}		for(j=0; j<4; j++)		{			strobe_all(5000);			pause(10000);		}		pattern_8();		strobe_all(10000);		fade();		strobe_all(5000);		pause(10000);		strobe_all(5000);		pause(10000);		pattern_7();		pause(500);		pattern_9();		pattern_10();		pattern_9();		pattern_11();		strobe_all(5000);		pause(10000);		strobe_all(5000);		pause(10000);	}			}