ini_sure.inc

汽车遥控制的源代码.用的单片机是PIC16F72. 大批量生产.

;#####################################
;Sub-Function-1: Intitate
;#####################################
Register_Initiate:
	;--------------------------------------------------
	;SFR initiate
	;--------------------------------------------------
	banksel	PORTA
	clrf	PORTA			

	;------------------------------

	bsf	STATUS,RP0
	movlw	b'10001111'		
	movwf	OPTION_REG		

;	movlw	b'00001011'	
;	movwf	TRISA
	movlw	b'00001011'		
	movwf	TRISA
	movlw	b'00000011'		
	movwf	TRISC
		
	movlw	b'00000001'		
	movwf	PIE1		
		
	call    0x3FF			
	movwf   OSCCAL            		
	
	movlw	b'00000000'
	movwf	WPU			
	clrf	IOC			
	clrf	VRCON			
	
;	clrf	ANSEL
	
	;--------------------------------------

	bcf	STATUS,RP0
	movlw	b'00000111'
	movwf	CMCON			
	
	movlw	b'00000101'	
	movwf	T1CON		
		
	clrf	PORTA			
	clrf	PORTC

;	clrf	ADCON0

	;--------------------------------------------------
	;GPR initiate
	;--------------------------------------------------
	
	movlw	w_temp		
	movwf	FSR
Initaite_Clr_Loop:
	clrf	INDF
	incf	FSR,F
	decf	FSR,W
	sublw	End_Register	
	skpz
	goto	Initaite_Clr_Loop	
	
	movlw	b'11100000'
	movwf	INTCON		

	return

;#####################################
;Sub-Function-2: Sure
;#####################################

Register_Sure:
	clrwdt	

	banksel	OPTION_REG
	movlw	b'10001111'		
	movwf	OPTION_REG		

;	movlw	b'00001011'		
;	movwf	TRISA
	movlw	b'00001011'		
	movwf	TRISA
	movlw	b'00000011'	
	movwf	TRISC

	movlw	b'00000001'		
	movwf	PIE1			 

	call	0x3ff
	movwf	OSCCAL

	movlw	b'00000000'
	movwf	WPU		
	clrf	IOC			
	clrf	VRCON		

;	clrf	ANSEL

;--------------------------------------

	bcf	STATUS,RP0

	clrf	PCLATH       
	
	movlw	b'00111000'
	andwf	PORTC,F

;	clrf	ADCON0
	
	movlw	b'00000101'		
	movwf	T1CON

	movlw	b'00000111'
	movwf	CMCON		

	movlw	b'11100111'
	andwf	INTCON,F
	movlw	b'11100000'
	iorwf	INTCON,F
	
	return