'*******************************************************************************
' DEFINICIÓN DE FUSES Y OSILADOR
@ device pic16F628A, intrc_osc, pwrt_on, wdt_off, mclr_off, lvp_off, protect_off
DEFINE OSC 4
'*******************************************************************************
CMCON = 7 'Comparadores Apagados
TRISB = 0 'Puerto B Como Salidas
PORTB = 0 'Limpiamos el Puerto B
'*******************************************************************************
CLOCK VAR PORTB.0 'PORTB.0 con el nombre CLOCK
DATO_0 VAR PORTB.1 'PORTB.1 con el nombre DATA_0
'*******************************************************************************
CLOCK=1 'Valor 1 para inicio del display
'*******************************************************************************
INICIO: 'Etiqueta de inicio
shiftout DATO_0,CLOCK,0,[252] 'Enviando el Numero 0
PAUSE 500 'Espera de 500 milisegundos
shiftout DATO_0,CLOCK,0,[96] 'Enviando el Numero 1
PAUSE 500 'Espera de 500 milisegundos
shiftout DATO_0,CLOCK,0,[218] 'Enviando el Numero 2
PAUSE 500 'Espera de 500 milisegundos
shiftout DATO_0,CLOCK,0,[242] 'Enviando el Numero 3
PAUSE 500 'Espera de 500 milisegundos
shiftout DATO_0,CLOCK,0,[102] 'Enviando el Numero 4
PAUSE 500 'Espera de 500 milisegundos
shiftout DATO_0,CLOCK,0,[182] 'Enviando el Numero 5
PAUSE 500 'Espera de 500 milisegundos
shiftout DATO_0,CLOCK,0,[190] 'Enviando el Numero 6
PAUSE 500 'Espera de 500 milisegundos
shiftout DATO_0,CLOCK,0,[224] 'Enviando el Numero 7
PAUSE 500 'Espera de 500 milisegundos
shiftout DATO_0,CLOCK,0,[254] 'Enviando el Numero 8
PAUSE 500 'Espera de 500 milisegundos
shiftout DATO_0,CLOCK,0,[246] 'Enviando el Numero 9
PAUSE 500 'Espera de 500 milisegundos
GOTO INICIO 'Regresar a la etiqueta inicio
END 'Fin del Programa