Lab X1 and 16F877 examples for beginners

[Demon]

'*****************************************************************
'*  Name     : LAB X1 LEDs 2.BAS           Version : 1.0         *
'*  Author   : Demon                Date    : 2012-01-06  *
'*  Task     : Blink LEDs back and forth                         *
'*  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

WSLOOP  var byte                    ' Loop counter

    PORTD = %00000001               ' Turn 1st LED on
    pause 100                       ' Short delay

CYCLE:
    for wsloop = 1 to 7             ' Turn on next LED from right to left
        PORTD = PORTD << 1
        pause 100
    next
    for wsloop = 1 to 7             ' Turn on next LED from left to right
        PORTD = PORTD >> 1
        pause 100
    next

    GOTO    CYCLE
    end