COUNTREG EQU 0x20		
	L_BYTE EQU 0x06		
	H_BYTE EQU 0x07		
	CNTVAL EQU 4		
	MOVLW	 CNTVAL		
	MOVWF	 COUNTREG		
	LFSR	 0,0x40		
	CLRF	 WREG			
	CLRF	 H_BYTE		
B5	ADDWF	 POSTINC0, W	
	BNC	 OVER			
	INCF	 H_BYTE,F 		
OVER DECF	 COUNTREG,F		
	BNZ 	 B5			
	MOVWF	 L_BYTE