device	pic16f84
config	CP=off,WDT=off,PWRT=off,OSC=xt
include "pic16f84.i"

viive1	equ	0x0c
viive2	equ	0x0d
viive3	equ	0x0e

	org	0

	bsf	STATUS,5
	clrw
	movwf	PORTB
	bcf	STATUS,5
	
alku	movlw	1
	movwf	PORTB
	
loop1	rlf	PORTB,1
	call	viive
	btfss	PORTB,6
	goto	loop1
	
loop2
	rrf	PORTB,1
	call	viive
	btfss	PORTB,0
	goto	loop2
	goto	loop1


viive	movlw	d'8' ; 0.08s
	movwf	viive1

viiveaa	call	viiveb
	decfsz	viive1,1
	goto	viiveaa
	return


viiveb	movlw	d'20' ; 20 * 500µs = 0.01s 
	movwf	viive2
	
viivebb	call	viivec
	decfsz	viive2,1
	goto	viivebb
	return
	

viivec	movlw	d'247' ; 500µs
	movwf	viive3

viivecc	decfsz	viive3,1
	goto	viivecc
	return

	end

