Lab X1 and 16F877 examples for beginners

[Demon]

'*****************************************************************
'*  Name     : LAB X1 LEDs.BAS             Version : 1.0         *
'*  Author   : Demon                Date    : 2012-01-06  *
'*  Task     : Blink LEDs in sequence                            *
'*  Hardware : PIC 16F877, 20mhz crystal                         *
'*           : Lab X1 Experimental Board                         *
'*           : MeLabs U2 Programmer v4.32                        *
'*  Software : PIC Basic Pro v2.60C                              *
'*           : MicroCode Studio Plus v2.2.1.1                    *
'*           : MeLabs PM Assembler                               *
'*****************************************************************
'define  LOADER_USED 1
@ DEVICE PIC16F877, HS_OSC, WDT_OFF, PWRT_ON, BOD_ON, LVP_OFF, CPD_OFF, WRT_OFF, DEBUG_OFF, PROTECT_OFF

define  OSC 20

TRISD = %00000000                   ' Set all port D pins to output
ADCON1 = 7                          ' A/D off, all digital

LED1 var PORTD.0                    ' LEDs, starting from the right
LED2 var PORTD.1
LED3 var PORTD.2
LED4 var PORTD.3
LED5 var PORTD.4
LED6 var PORTD.5
LED7 var PORTD.6
LED8 var PORTD.7

    PORTD = %00000000               ' Turn off all LEDs

CYCLE:
    TOGGLE LED1                     ' Turn 1st LED ON
    pause 100                       ' Short delay
    TOGGLE LED1                     ' Turn LED back off
    pause 100

    TOGGLE LED2
    pause 100
    TOGGLE LED2
    pause 100

    TOGGLE LED3
    pause 100
    TOGGLE LED3
    pause 100

    TOGGLE LED4
    pause 100
    TOGGLE LED4
    pause 100

    TOGGLE LED5
    pause 100
    TOGGLE LED5
    pause 100

    TOGGLE LED6
    pause 100
    TOGGLE LED6
    pause 100

    TOGGLE LED7
    pause 100
    TOGGLE LED7
    pause 100

    TOGGLE LED8
    pause 100
    TOGGLE LED8
    pause 100

    GOTO    CYCLE
    end