forum.hobbycomponents.com

Code: Select all

'   FILE:    PIC_16F877a_LED_Test.gcb
'   DATE:    01/08/14
'   VERSION: 0.1a
'   AUTHOR:  Anobium, based on the work of Andrew Davies dated 26/07/14

'  This test program will flash the LEDs connected to port D on the development board.
'  It was written using the Great Cow Basic (GCB) complier. Install GCB - you are recommended to use
'  GCB@SYN from the Great Cow Basic website.

'    This code is free software; you can redistribute it and/or
'    modify it under the terms of the GNU Lesser General Public
'    License as published by the Free Software Foundation; either
'    version 2.1 of the License, or (at your option) any later version.

'    This code is distributed in the hope that it will be useful,
'    but WITHOUT ANY WARRANTY; without even the implied warranty of
'    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
'    Lesser General Public License for more details.

'    If you require a copy of the GNU Lesser General Public
'    License along with this code; please write to the Free Software
'    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

'Chip settings
  #chip 16F877a, 4    ' Select the chip and the chip speed
  #config Osc = XT    ' Select the external oscillator

  dir portd out         ' Set all PORTD ports as outputs

  do forever            ' Loop for ever

      PORTD=0xFF      'Turn off LED's on port D
      wait 125 ms       'wait

      PORTD=0x00      ' Turn on LED's on port D
      wait 125 ms       'wait
  loop