pic18f452读写EEPROM程序

   pIC18f452读写EEPROM程序       

           list    p=18f452
           #include    <P18F452.INC>
;   
;---- 18F452 RAM LOCATIONS ------
Data_EE_Addr   EQU   0X000
Data_EE_Data   EQU   0X001
EEPROM_Buffer    equ        0x02
;--------VECTORS------------

        org        0x00   
        bra     START

;-------PROGRAM--------------
   
        org        0x20
START
        rcall   INIT
;
;----   Test the WRITE EEPROM Routine ----
;
        clrf    Data_EE_Addr    ; set EEPROM start address at 0x00
        MOVlw    ’0’                ; Load a ASCII code "0" to W
        MOVwf    Data_EE_Data
EE_Write
        rcall    IN_DATA_EEW
        incf    Data_EE_Data,F    ; 0x30+ N
        incf    Data_EE_Addr,F  ; Point to next EEPROM Address
        btfss    Data_EE_Addr,5    ; Write 32 bytes ?
        goto    EE_Write
;
;----   Test the READ EEPROM Routine ----
;
        clrf    FSR0H            ; Set RAM point to 0x010
        MOVlw    0x10
        MOVwf    FSR0L
;        
        clrf    Data_EE_Addr
EE_Read
        rcall    READ_EEPROM
        MOVwf    POSTINC0        ; move W --> RAM then point + 1
;
        incf    Data_EE_Addr,F  ; Point to next EEPROM Address
        btfss    Data_EE_Addr,5    ; Read 32 bytes ?
        goto    EE_Read
;
LSTOP      
        GOTO   LSTOP         
;
;------ INTERNAL EEPROM READ ------
;
READ_EEPROM
        MOVff    Data_EE_Addr,EEADR
;
;       bcf     INTCON,GIE  
        bcf        EECON1,EEPGD
        bsf        EECON1,RD
        MOVf    EEDATA,W
;       bsf     INTCON,GIE  
        return
;    
;----INTERNAL EEPROM WRITE-----
;
IN_DATA_EEW
         MOVff  Data_EE_Addr,EEADR
         MOVff  Data_EE_Data,EEDATA
;
         BCF        EECON1,EEPGD 
         BCF       EECON1,CFGS            ; There are difference with data sheet
      
;         BCF     INTCON,GIE   
            
         BSF        EECON1,WREN 
;  
         MOVLW   0X55
         MOVWF   EECON2
         MOVLW   0XAA
         MOVWF   EECON2      
         BSF       EECON1,WR 
;         
;         BSF   INTCON,GIE 

LOOP1    BTFSS   PIR2, EEIF 
         GOTO    LOOP1 
;
         BCF       EECON1,WREN   
         BCF        PIR2,EEIF
      
         RETURN

;---------INITIAL----------------
INIT      
         BCF      PIR2,EEIF
         BCF      PIE2,EEIE
         RETURN
;--------------------------------
            END   

本文关键字：程序  PIC单片机，单片机-工控设备 - PIC单片机