;el programa apaga y enciende un LED D1 de la placa
;en funcion de como este el conmutador SW3	



		list p=16f84

STATUS	EQU	0x03
PORTA	EQU	0x05
PORTB	EQU	0x06
RP0	EQU	0x05

	ORG	0		;vector de reset
	goto	INICIO	

	ORG 5

;comienzo del programa

INICIO:	bsf 	STATUS, RP0
	clrf	PORTB
	movlw	b'00000100'
	movwf	PORTA
	bcf	STATUS, RP0
	clrf	PORTB

BUCLE:	btfss	PORTA, 2
	goto	APAGAR
	goto ENCENDER

ENCENDER:	bsf	PORTB, 0
		goto	BUCLE

APAGAR:	bcf	PORTB, 0
	goto	BUCLE

	END			;fin de programa