flash.c

to light a ledfdssssssssffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff

// FLASH.C
//
// Flashes LED on RB.1 (terminal 7) of PIC16F84, 500 ms on and 500 ms
// off.
//
// Intended as a test program for the Morgan PIC Programmer.
//
// Place FLASH.HEX in the same directory as P16PRO.
//
// Copyright, Peter H. Anderson, Baltimore, MD, May, 99

#case
#include <16f84.h>
#include <defs_f84.h>  // defines regsiters and bits
#fuses xt,nowdt,noprotect

// delay routines
void delay_ms(long t);
void delay_10us(int t);

void main(void)
{
   trisb1=0;   // make rb1 an output
   while(1)  // always
   {
      rb1 = 1;
      delay_ms(500);
      rb1 = 0;
      delay_ms(500);
   }
}

// delay routines

void delay_10us(int t)
{
#asm
      BCF STATUS, RP0
DELAY_10US_1:
      CLRWDT
      NOP
      NOP
      NOP
      NOP
      NOP
      NOP
      DECFSZ t, F
      GOTO DELAY_10US_1
#endasm
}

void delay_ms(long t)	// delays t millisecs
{
   do
   {
     delay_10us(100);
   } while(--t);
}