LIST	P=16F84A		
	#INCLUDE	"P16F84A.inc"

	__CONFIG _XT_OSC&_CP_OFF&_WDT_OFF
	CBLOCK	0X0C
	SZAM
	ENDC

	ORG	0

	BANKSEL	TRISA
	MOVLW	b'00011111'
	MOVWF	TRISA
	MOVLW	b'00000000'
	MOVWF	TRISB
	BANKSEL	PORTB
	CLRF	PORTB
	MOVLW	D'20'
	MOVWF	SZAM
GOMB
	CALL	VAR
	BTFSC	PORTA,0
	GOTO	LED
	BTFSS	PORTA,0
	GOTO	$-1
	DECFSZ	SZAM
	GOTO	GOMB
	GOTO	LED
LED
	MOVLW	B'10000000'
	XORWF	PORTB,F
	MOVLW	D'20'
	MOVWF	SZAM
	GOTO	GOMB

VAR
	MOVLW	D'98'
	MOVWF	V1
V1
	NOP
	DECFSZ	V1,F
	GOTO	V1
	RETURN
END