;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
; Author: Rafael Franceschi :
; Date: 01/06/05 :
; Version: 1.7 :
; Title: Prueba Matriz de Conmutacion :
; Description: Toma la senal de entrada del puerto B :
; RB4-RB7 y detecta cambios, enciende, :
; un LED's del puerto C en la interrupcion :
; senales TTL (High and Low tanto en la :
; entrada como en la salida) :
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
LIST P=Pic16F877
errorlevel -302
#include P16F877.inc
__CONFIG _CP_OFF & _DEBUG_OFF & _WRT_ENABLE_ON & _CPD_OFF & _LVP_OFF & _PWRTE_ON & _WDT_OFF & _XT_OSC
COUNT1 EQU 21h
ORG 0x00
GOTO CONFI
ORG 0x04
COMF PORTC,f
BCF INTCON, RBIF
retfie
CONFI BSF STATUS, 5 ;cambio al banco 1
MOVLW B'11110000'
MOVWF TRISB ;RB4 - RB7 son entradas
CLRF TRISC ;RC0 - RC7 como salidas
BCF STATUS, 5 ;retorno al banco cero
BSF INTCON, RBIE
BSF INTCON, GIE
MAINLOOP
goto MAINLOOP ;go back and do it again
END