R1	 EQU	0x20	
COUNT	 EQU	0x21	
VALREG EQU	0x22	
		
	BCF	STATUS,C	
	CLRF	R1 		
	MOVLW	0x8 		
	MOVWF	COUNT
	MOVLW	0x97		
	MOVWF	VALREG
AGAIN	RLCF	VALREG,F   	
	BNC	NEXT    	
	INCF	R1,F     	
NEXT	DECF	COUNT,F
	BNZ AGAIN