Battery Vehicle Society

-- ------------------------------------------------------
-- Title: Blink-a-led of the Microchip pic16f886
--
-- Author: Rob Hamerling, Copyright (c) 2008..2010, all rights reserved.
--
-- Adapted-by: Greg Fordyce on 4 Aug 2012
--
-- Compiler: 2.4o
-- Revision: $Revision: 2760 $
--
-- Original file is part of jallib  (http://jallib.googlecode.com)
-- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php)
--
-- Description:
-- Sample blink-a-led program for Microchip PIC16f690.
--
-- Sources:
--
-- Notes:
--  - Original File creation date/time: 14 Mar 2010 14:33:00.
--
--  A small program to quickly test the 6802 slave board.
--  Red and Green leds should flash alternatly.
-- ------------------------------------------------------
--
-- ******************** Compiler Results *********************************
-- Errors :0       Warnings :0
-- Code   :76/8192    Data:4/352  Hardware Stack : 0/8  Software Stack :96
-- ***********************************************************************

include 16f886                      -- target PICmicro
--
-- This program uses the internal oscillator at 8 MHz
pragma target clock 8_000_000       -- oscillator frequency
-- configuration memory settings (fuses)
pragma target OSC  INTOSC_NOCLKOUT  -- internal oscillator
pragma target WDT  disabled         -- no watchdog
pragma target MCLR external         -- reset externally
--
enable_digital_io()                 -- make all pins digital I/O
--
OSCCON_IRCF = 0b111                 -- set internal oscillator for 8 MHz
--
-- Specify the pin to which the LED (with serial resistor!) is connected:
alias   red_led      is pin_A0
pin_A0_direction =  output

alias   green_led      is pin_A1
pin_A1_direction =  output
--
forever loop
   red_led = on
   green_led = off
   _usec_delay(250_000)
   red_led = off
   green_led = on
   _usec_delay(250_000)
end loop
--