
	list    p=16F870
	include <p16F870.inc>

v1	equ	.32		;RAM in the 16F870 starts at 20h
v2	equ	.33
v3	equ	.34
v4 	equ	.35

	org     0x00		;Reset Vector
	goto 	main

	org	0x04		;Interrupt Vector
	clrf	INTCON
	retfie
	


;****  Main program loop  ****
main	bsf	STATUS,RP0	;Bank 1
	movlw	.0
	movwf	PORTB
	bcf	STATUS,RP0	;Bank 0

mainL	movwf	PORTB
	addlw	.1
	clrf	v1
ml2	clrf	v2	
ml3	decfsz	v2
	goto	ml3	
	decfsz	v1
	goto	ml2
	goto	mainL

	end
