;Test3 for 5x7 Video Screen
;Program for PIC16F84 and only F84 chip
;No jumper required
;Illuminated LED shifts across 
;           bottom row of LEDs


Start   ORG 0x00
	BSF 03,5
	MOVLW 00h
	MOVWF 05h
	MOVWF 06h
	BCF 03,5

Shift	MOVLW 05
	MOVWF 19h
	BSF 05,1	;Reset 4017
	NOP
	BCF 05,1
	MOVLW 01
	MOVWF 06h
Shift1	CALL DelC
	CALL Clk
	DECFSZ 19h,1	;Dec the count file
	GOTO Shift1
	GOTO Shift


Clk	BSF 05,0
	NOP
	BCF 05,0
	RETURN
	
		

DelC 	MOVLW 03
	MOVWF 1Ah
DelC1	DECFSZ 1Bh,1
	GOTO DelC1
	DECFSZ 1Ch,1
	GOTO DelC1
	DECFSZ 1Ah,1
	GOTO DelC1
	RETURN


	END