blinking LED

[dragons_fire]

how about the easiest one out there:

Start:

High Porta.1

High porta.0
Pause 500
Low Porta.0
Pause 500                       '1 second

High porta.0
Pause 500
Low Porta.0
Pause 500                       '2 seconds

High porta.0
Pause 500
Low Porta.0
Pause 500                        '3 seconds

High porta.0
Pause 500
Low Porta.0
Pause 500                       '4 seconds

High porta.0
Pause 500
Low Porta.0
Pause 500                       '5 seconds

High porta.0
Pause 500
Low Porta.0
Pause 500                       '6 seconds

Low Porta.1
pause 1000

goto start

it might not be the smallest in code size, but it will work and its really easy to understand!!!

[sayzer]

Here is mine.

No PAUSE used !

@ DEVICE PIC16F628A, INTRC_OSC_NOCLKOUT, WDT_OFF, PWRT_OFF, MCLR_OFF,PROTECT_ON,CPD_ON ,BOD_OFF,LVP_OFF

TRISA=0
TRISB=0
CMCON=7               ' PortA=digital I/O
PAUSE 1
VRCON=0
PAUSE 1

PORTA=0
PORTB=0

T1CON=%00110001       ' 0.524ms
TMR1IF VAR PIR1.0       ' Overflow bit of Timer1.

Output1 VAR PORTA.1     ' Blink 6secs.
Output2 VAR PORTA.0     ' Blink 0.5secs.

PreLoad     VAR WORD
TimeCount   VAR BYTE
TimetoBlink VAR BYTE

PreLoad=3036 ' to get 500ms.
TMR1L=PreLoad.LowByte
TMR1H=PreLoad.HighByte

TimeCount=0
TimetoBlink=12 '12=6secs.

PAUSE 50         ' OSC to Settle.


Start:


   IF TMR1IF THEN Blink

   GOTO Start
    
    

Blink: 'Each int is 0.500 sec.
    TMR1L=PreLoad.LowByte   ' Load the timer with preload value.
    TMR1H=PreLoad.HighByte
    TimeCount=TimeCount + 1 ' Count interrupts.
    Output2=Output2 ^ 1     ' Toggle fast blinking output.    

    IF TimeCount=TimetoBlink THEN '6Secs ON, 6secs OFF.
      TimeCount=0                   
      Output1=Output1 ^ 1 
    ENDIF
   
    TMR1IF=0                ' Clear TMR1 int. flag.  
    
    GOTO Start    
    
END