BCF	TRISC,CCP1		
 	BSF	TRISD,RD7		
	MOVLW 0x3C			
	MOVWF CCP1CON
	MOVLW D'100'		
	MOVWF PR2
	MOVLW 0x01	 	
	MOVWF T2CON
AGAIN BTFSS PORTD,RD7		
	BRA T2DUTY			
	MOVLW D'25'		
	BRA LOAD
T2DUTY MOVLW D'50'		
	BRA LOAD
LOAD	MOVWF CCPR1L		
	CLRF	 TMR2			
	BSF	 T2CON,TMR2ON	
	BCF	 PIR1,TMR2IF  	
OVER	BTFSS PIR1,TMR2IF	
	BRA	 OVER	
	GOTO	 AGAIN