Letrero Luminoso

program pov3
'//Modificado para su correcto funcionamiento
'//Se modifican en la configuracion del Programador del pic
'//Oscillator : Seleccionar oscilador interno (INTRC I/O)
'//Deshabilitar el master clear (Disable)
'//PIC16F628A

symbol sensor = PortA.1

main:

dim i as byte
dim CT1 as BYTE  '//Se declara un arreglo de 68 elementos todo debe ir en un solo renglon
const luces as byte[68] =($00,$00,$00,$00,$00,$00,$00,$72,$FB,$DB,$DB,$DB,$DF,$4E,$00,$00,$00,$40,$C0,$C0,$FF,$FF,$C0,$C0,$C0,$00,$00,$00,$FF,$FF,$DB,$DB,$DB,$C3,$00,$00,$00,$FF,$FF,$D8,$D8,$DC,$FE,$73,$01,$00,$00,$00,$FF,$FF,$DB,$DB,$DB,$C3,$00,$00,$00,$FF,$FF,$70,$38,$1C,$FF,$FF,$00,$00,$00,$00)
portB=0
cmcon=7
' //inicialización del PIC
trisb = %00000000
trisa = %00000010
CT1 = 0
sinc:
     if sensor = 1 then '//los leds prenden hasta que reciban señal IR
        goto sinc
     end if

     for i= 0 to 68
         for CT1 = 0 to 3 '//determina el ancho de la letra
             portb = luces [i]
            delay_us (75)
            portb= 0
            delay_us (30)
       next CT1
     next i
GOTO MAIN

end.