;********************************************
KEY_OFF:MOVF R8 , 0
XORLW 06H
BTFSS STATUS, 2
GOTO KEY_R1
BCF p1
BCF p2
BCF FONOF
BCF FINT
BCF INTCON,GIE ;Disable INTs
MOVLW 02H
MOVWF R33 ;地址变量置初值
MOVF R18 , W
MOVWF R34
CALL OFF_WR
MOVLW 01H
MOVWF R33 ;地址变量置初值
MOVF R32 , W
MOVWF R34
CALL OFF_WR
BSF INTCON,GIE ;Enable INTs
bcf STATUS,RP0
GOTO MA1
;***************************************
OFF_WR:
BTFSC EECON1,WR ;上一次写操作是否完成
GOTO OFF_WR ;否!返回继续检测
BANKSEL EECON1 ;
MOVF R33 , 0 ; ;取地址
MOVWF EEADR ;送地址寄存器
Bcf STATUS,RP0
MOVF R34 , W ;取数据
BSf STATUS,RP0
MOVWF EEDAT ;送数据寄存器
BSF EECON1,WREN ;Enable write
MOVLW 55h ;Unlock write
MOVWF EECON2
MOVLW 0AAh
MOVWF EECON2
BSF EECON1,WR ;Start the write
BCF EECON1,WREN
bcf STATUS,RP0
RETLW 00H
|