MyReg	SET	0x30			
		BSF	TRISD,RD7		
		CLRF	TRISB		
		MOVLW 0x66		
		MOVWF MyReg
BACK		BTFSS PORTD,RD7	
		BRA	OVER		
		MOVFF MyReg,PORTB	
		RRNCF MyReg,F		
		CALL DELAY		
		BRA	BACK			
OVER		MOVFF MyReg,PORTB	
		RLNCF MyReg,F		
		CALL DELAY		
		BRA	BACK