'Microcontroller model: pic12f629
Define CONF_WORD = 0x31c4
Define CLOCK_FREQUENCY = 4
Symbol canal0 = GPIO.0
Symbol canal1 = GPIO.1
Symbol canal2 = GPIO.2
Symbol canal3 = GPIO.4
Symbol pulsador = GPIO.5
Dim tiempo As Word
'AllDigital
'Configuracion modulos generales (E/S)-------------------------------------
CMCON = 0x07 'comparator off
VRCON = 0x00 'vref off, comparador
OSCCAL = %10000000 'MEDIA, calibracion del oscilador interno
TRISIO = %100000
tiempo = 1300 'Tiempo actualizacion salidas en mSeg.
'Bucle principal
loop:
canal0 = 1
canal1 = 0
canal2 = 0
canal3 = 1
WaitMs tiempo 'Pausa
canal0 = 1
canal1 = 1
canal2 = 0
canal3 = 0
WaitMs tiempo 'Pausa
canal0 = 0
canal1 = 1
canal2 = 1
canal3 = 0
WaitMs tiempo 'Pausa
canal0 = 0
canal1 = 0
canal2 = 1
canal3 = 1
WaitMs tiempo 'Pausa
Goto loop
End