;**************************************************
; Luci sequenziali,accende LED in sequenza
; SEQ.ASM
;
;**************************************************
	PROCESSOR 16F84
	RADIX DEC
	INCLUDE "P16F84.INC"
	ERRORLEVEL -302

;Setup of PIC configuration flags

;XT oscillator
;Disable watch dog timer
;Enable power up timer
;Disable code protect

	__CONFIG 0x3FF1
	
	ORG 0x0C
Count 	RES 2
Shift 	RES 1

;Reset Vector
;Program start point at CPU reset

	ORG 	0x00
	bsf 	STATUS,RP0
	movlw 	B'00011111'
	movwf 	TRISA
	movlw 	B'11110000'
	movwf 	TRISB
	bcf 	STATUS,RP0
	movlw 	B'00000001'
	movwf 	Shift
MainLoop
	movf 	Shift,W
	movwf 	PORTB
	bcf 	STATUS,C
	rlf 	Shift,F
	btfsc 	Shift,4
	swapf 	Shift,F
	call 	Delay
	goto 	MainLoop

; Subroutines

Delay
	clrf 	Count
	clrf 	Count+1
DelayLoop
	decfsz 	Count,1
	goto 	DelayLoop
	decfsz 	Count+1,1
	goto 	DelayLoop

	return

END