{
*****************************************************************************
*  Name    : BLINK_1.BAS                                                   *
*  Author  : William Richardson                                             *
*  Notice  : Copyright (c) 2008 blueroomelectronics                         *
*          : All Rights Reserved                                            *
*  Date    : 1/7/2008                                                       *
*  Version : 1.0                                                            *
*  Notes   :                                                                *
*          :                                                                *
*****************************************************************************
}
Device = 18F1320
Clock = 4               // 4MHz clock
Include "junebug.bas"
Dim Count As Byte
While True
    For Count = 0 To 6
        LED(Count)
    DelayMS(300)        // delay in 1000s of a second
    Next
Wend        // repeat forever
End

{
*****************************************************************************
*  Name    : JUNEBUG.BAS                                                    *
*  Author  : William Richardson                                             *
*  Notice  : Copyright (c) 2008 blueroomelectronics                         *
*          : All Rights Reserved                                            *
*  Date    : 2/1/2008                                                       *
*  Version : 0.92beta                                                            *
*  Notes   :                                                                *
*          :                                                                *
*****************************************************************************
}

Module Junebug
Device  = 18F1320
Public Sub LED(x As Byte)
  Select x
    Case 1      // LED 1
    TRISA.7 = 1
    High(PORTA.0)
    Low (PORTA.6) 
    Case 2      // LED 2
    TRISA.7 = 1
    Low (PORTA.0)
    High(PORTA.6)      
    Case 3      // LED 3
    TRISA.0 = 1
    High(PORTA.6)
    Low (PORTA.7)      
    Case 4      // LED 4
    TRISA.0 = 1
    Low (PORTA.6)
    High(PORTA.7)      
    Case 5      // LED 5
    TRISA.6 = 1
    Low (PORTA.0)
    High(PORTA.7)      
    Case 6      // LED 6
    TRISA.6 = 1
    High(PORTA.0)
    Low (PORTA.7)      
  Else          // All LEDs Off 
    TRISA.0 = 1
    TRISA.6 = 1
    TRISA.7 = 1
  End Select
End Sub
Config OSC = INTIO2, WDT = OFF, LVP = OFF
ADCON1  = %11110101

OSCCON = $62            // 4 MHz clock

// *** C18 Junebug 18F1320 LED 
// 
// THIS PROGRAM MAKE TWO LEDs WALK ACROSS THE JUNEBUG AND BACK
// NOTE: Project requires a linker scrpt.
// Add either 18f1320i.lkr (for debug) or 18f1320.lkr (no debug) to your project.
//
// BY RHIANNON 

#pragma	config OSC = INTIO2, WDT = OFF, LVP = OFF, DEBUG = ON
#include <p18f1320.h>

#define byte unsigned short
#define LED_ON_FOR 50    


const byte valA[] = {0b00000001,0b01000000,0b01000000,0b10000000,0b10000000,0b00000001}; 
const byte dirA[] = {0b10111110,0b10111110,0b00111111,0b00111111,0b01111110,0b01111110};

void lightTwo(int first)
{
  int onCount,blinky;
  
  for(onCount=0; onCount<LED_ON_FOR; onCount++)
  {
    for(blinky=first; blinky<(first+2); blinky++)
    {
      LATA=valA[blinky];
      TRISA=dirA[blinky];
    }
  } 
}  
               
void main(void)
{
  int idx;

  for(idx=0;idx<5;idx++)   
  {
    lightTwo(idx);  
  }  
  
  for(idx=3;idx>0;idx--)
  {
    lightTwo(idx);
  }  
}