RCNT	EQU	0x20		
MYREG	EQU	0x21		
	BSF	TRISC,7		
	MOVLW	0x8			
	MOVWF	RCNT			
AGAIN	BTFSC	PORTC,7		
	BSF	STATUS,C		
	BTFSS PORTC,7		
	BCF	STATUS,C		
	RRCF	MYREG,F		
	DECF	RCNT,F		
	BNZ	AGAIN