// NeoPixel Flashlight.C
//
// NeoPixel Flashlight
// Brightness goes from 0 (A/D = 0V) to 255 (A/D = 5V)
// Input:  RA0
// Output: RD0 (NeoPixel DIN)

// Global Variables

unsigned char PIXEL @ 0x000;

const unsigned char MSG0[20] = "Flashlight          ";
const unsigned char MSG1[20] = "                    ";

// Subroutine Declarationsb
#include <pic18.h>

// Subroutines
#include        "lcd_portd.c"
  
void NeoPixel_Display(unsigned char RED, 
		unsigned char GREEN, unsigned char BLUE)
{
   PIXEL = GREEN;	asm("  call Pixel_8 ");
   PIXEL = RED;		asm("  call Pixel_8 ");
   PIXEL = BLUE;	asm("  call Pixel_8 ");

   asm("    return");


#asm
Pixel_8:
    call	Pixel_1
    call	Pixel_1
    call	Pixel_1
    call	Pixel_1
    call	Pixel_1
    call	Pixel_1
    call	Pixel_1
    call	Pixel_1
    return

Pixel_1:
	bsf		((c:3971)),0	; PORTD,0
    nop
	btfss   ((c:0000)),7
	bcf		((c:3971)),0
	rlncf   ((c:0000)),F
    nop
    nop
    bcf		((c:3971)),0
    return

#endasm
   }

void Wait(unsigned int X)
{
   unsigned int i, j;

   for (i=0; i<X; i++)
      for (j=0; j<609; j++);
   }

 

unsigned int A2D_Read(unsigned char c)
{
   unsigned int result;
   unsigned char i;
   c = c & 0x0F;
   ADCON0 = (c << 2) + 0x01; // set Channel Select
   for (i=0; i<10; i++); // wait 2.4us (approx)
   GODONE = 1; // start the A/D conversion
   while(GODONE); // wait until complete (approx 8us)
   return(ADRES);
   }   
         
// Main Routine

void main(void)
{
   unsigned int i;
   unsigned int X;
   unsigned int A2D;

   TRISA = 0;
   TRISB = 0;
   TRISC = 0;
   TRISD = 0;
   TRISE = 0;
   ADCON1 = 0x0F;

// Turn on the A/D input
   TRISA = 0xFF;
   TRISE = 0x0F;
   ADCON2 = 0x95;
   ADCON1 = 0x07;
   ADCON0 = 0x01;

// Turn on the LCD
   LCD_Init();                  // initialize the LCD
   TRISD0 = 0;

   LCD_Move(0,0);  for (i=0; i<20; i++) LCD_Write(MSG0[i]); 
   LCD_Move(1,0);  for (i=0; i<20; i++) LCD_Write(MSG1[i]); 
   Wait_ms(100); 

   while(1) {
      A2D   =  A2D_Read(0);
      X 	=  A2D/4;
      LCD_Move(1,0);  LCD_Out(X, 3, 0);
         
      NeoPixel_Display(X, X, X);
      NeoPixel_Display(X, X, X);
      NeoPixel_Display(X, X, X);
      NeoPixel_Display(X, X, X);
      NeoPixel_Display(X, X, X);
      NeoPixel_Display(X, X, X);
      NeoPixel_Display(X, X, X);
      NeoPixel_Display(X, X, X);

      Wait(5);
   }



}