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

	__CONFIG _XT_OSC&_CP_OFF&_WDT_OFF
	CBLOCK	0X20
	V1
	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
START
	CALL	VAR
GOMB		
	BTFSC	PORTA,0
	GOTO	LED
	BTFSS	PORTA,0
	GOTO	SZ
	GOTO	GOMB
SZ
	DECFSZ	SZAM
	GOTO	GOMB
	MOVLW	B'00000010'
	XORWF	PORTB
	MOVLW	D'20'
	MOVWF	SZAM
	GOTO	GOMB
LED
	MOVLW	B'10000000'
	XORWF	PORTB
	GOTO	GOMB
VAR
	MOVLW	D'97'
	MOVWF	V1
VAR1
	NOP
	DECFSZ	V1,F
	GOTO	VAR1
	RETURN
END