; task3.asm
	include"P16F877.INC"
TIMREG	EQU	H'00F0'

delval 	EQU	H'0200'
delval2	EQU	H'0200'

	banksel TRISD
	clrf	PORTD
	banksel PORTD

start	movlw	0

	movwf	PORTD

loop 	incf	PORTD
	call	delay
	nop

	goto	loop

delay	movlw	delval
	movwf	TIMREG
	
time	decfsz	TIMREG
	goto 	time
	return
	end