list p=16F870 include "p16f870.inc" ORG 00h GOTO INICIO ORG 04h ;Comienzo de los registros para almacenar Instrucciones BCF PORTB,4 BSF PORTB,5 BCF INTCON,1 RETFIE ORG 30h ;Final de los registros para almacenar Instrucciones INICIO BSF STATUS,5 ;Cambio de Banco a 1 BCF STATUS,6 ;Cambio de Banco a 1 BCF TRISB,5 ;RB5 Salida BCF TRISB,4 ;RB4 Salida BSF TRISB,0 ;RB0 Entrada BCF STATUS,5 ;Devuelve al Banco 0 BSF INTCON,7 ;Habilita las interrupciones BSF INTCON,4 ;Habilita Interrupciones externas RB0/INT BCF PORTB,5 ; LED APAGADO BSF PORTB,4 ; LED ENCENDIDO ARRIBA ;BTFSS PORTB,5 nop GOTO ARRIBA END