T
E
RABAJO Y
XPLICACIÓN
Loop
movf
call
movwf PORTB
Wait_0
btfss
goto
call
Wait_1
btfsc
goto
call
incf
movlw b'10'
subwf
btfsc
clrf
movf
bsf
movwf EEDATA
call
goto
end
D
P
ESARROLLO
ROYECTOS Y
PIC 16F87
X
Contador,W
Tabla
;Convierte contador a 7 segmentos
;Visualiza sobre el display
PORTA,0
;RA0 está a "1" ??
Wait_0
;No, esperar
Delay_10_ms
;Eliminar rebotes
PORTA,0
;RA0 está a "0" ??
Wait_1
;No, esperar
Delay_10_ms
;Eliminar rebotes. Ha habido un pulso
Contador,F
;Incrementa contador
Contador,W
STATUS,Z
;Contador mayor de 9 ??
Contador
;Si, vuelta a 00
Contador,W
STATUS,RP1
;Selecciona el Banco 2
EE_Write
;Graba el nuevo valor del contador en la EEPROM
Loop
P
E
ROTOTIPOS
LECTRÓNICOS
2º DPE
66