DELAY_1	        	movwf	W_TEMP		
				movf	STATUS,W	
				movwf	STATUS_TEMP    	
				movlw b'10100000' 
				movwf INTCON
				BSF STATUS,RP0
				clrw 
		      		movwf	OPTION_REG
			 	
			        BCF STATUS,RP0                                 
				MOVLW		B'11111100'
				MOVWF TMR0
			 
          TMR0_OVER_WAIT BTFSS INTCON,T0IF
					GOTO TMR0_OVER_WAIT  ;*******

			movf	STATUS_TEMP,W
			movwf	STATUS	
			swapf	W_TEMP,F		
			swapf	W_TEMP,W	
					BCF INTCON,T0IF			
				BCF INTCON,GIE
 			retFIE