device	pic16f84
	include "pic16c84.h"

counter equ	20h

	org	0


main
	; select bank 1
	bcf	STATUS,6
	bsf	STATUS,5

	movlw	1
	movwf	TRISA

	; select bank 0
	bcf	STATUS,5
loop:
	btfsc	PORTA,0
	goto	loop

	bcf	PORTA,1
	clrf	counter
loop1:
	btfsc	PORTA,0
	goto	loop2
	decfsz	counter,F
	goto	loop1
loop2:
	bsf	PORTA,1
loop3:
	btfss	PORTA,0
	goto	loop3
	goto	loop


	end