PIC 16f628A en Basic

Que tal gente!!! Despues de un largo tiempo me hago un espacio ..

Les dejo un programita para generar un juego de luces en el puerto b del pic16F628A. Si bien es simple, sirve como base para elaborarar algo mucho más completo....

Me comprometo a postear las simulaciones..

trisb=0
mov var byte

portb=%10000000
gosub retardo
inicio
for mov= 1 to 7
    portb=portb>>1
    gosub retardo
    next
   
for mov= 1 to 7
    portb= portb<<1
    gosub retardo
    next
    goto inicio
    retardo
    pause 50
    return
    end