Pic Cinta

5. Programación del PIC.

Programar el pic es una de las partes más difíciles a la hora de haber hecho el proyecto.

A continuación explico lo que hace el programa:

List p=16F84 ;Tipo deprocesador
include "P16F84.INC" ;Definiciones de registros internos

Temporal equ 0x0c
us_Counter equ 0x0e ;Microsegundos contador
ms_Counter equ 0x0f ;Milisegundos
Delay_Counter equ 0x10;Microsegundos

org 0x00 ;Vector de reset
goto Inicio
org 0x05 ;Salvar el vector de interrupción
include "DELAY.INC";************************************************************************************
Rele_term btfsc PORTB,0 ;Relé térmico. Activación y desactivación
goto Rele_ter1
return

Rele_ter1 movlw b'00001000'
call ms_Delay
Sigue btfsc PORTB,0 ; Pulsador relé térmico
goto Siguemovlw b'00001000'
call ms_Delay
btfss PORTA,1 ; Led contactor motor cinta transportadora
goto Rele_ter2
bcf PORTA,1
return
Rele_ter2 bsf PORTA,1
return;************************************************************************************
Reset_con btfss PORTB,1 ;Pulsador de reset. Puerto B, 1
return

movlw b'00001000'
call ms_Delay
Sigue2 btfsc PORTB,1
goto Sigue2movlw b'00001000'
call ms_Delay
movlw b'00001111'
movwf Temporal
return
;************************************************************************************
Sen_conteo btfss PORTB,4 ; Aquí inicioel sensor de conteo que
Return ; contará las 15 veces. Puerto B, 4

movlw b'00001000'
call ms_Delay
Sigue3 btfsc PORTB,4
goto Sigue3
movlw b'00001000'
call ms_Delay
btfss PORTA,1return
decfsz Temporal
return
bsf PORTA,0 ;Limite
bcf PORTA,1 ;Cinta Transportadora
return
;************************************************************************************
Iniciobsf STATUS,RP0 ;Selecciona página 1 de datos
movlw b'11111111'
movwf TRISB
clrf TRISA
bcf STATUS,RP0 ;Selecciona página 0 de datos

clrf PORTA
clrf PORTB
clrf Temporal

Inic movlw...