COUNT EQU 0x25	
	MOVLW d'10'		
	MOVWF COUNT		
	MOVLW 0		
AGAIN	ADDLW 3		
	DECF COUNT, F	
	BNZ AGAIN		
	MOVWF PORTB