RCNT	 EQU	0x20		
	MYREG	 EQU	0x21		
	BCF	 TRISB,1		
	MOVLW	 0x41			
	MOVWF	 MYREG		
	BCF 	 STATUS,C		
	MOVLW	 0x8			
	MOVWF	 RCNT			
	BSF 	 PORTB,1		
AGAIN	RRCF	 MYREG,F		
	BNC	 OVER
	BSF	 PORTB,1		
	BRA	 NEXT
OVER	BCF	 PORTB,1		
NEXT	DECF	 RCNT,F
	BNZ	 AGAIN
	BSF 	 PORTB,1