eeprom-1.asm

实现EEPROM

        CS      EQU     P2.2                 ;片选信号由P2.2产生
        SCK     EQU     P2.3                 ;时钟信号由P2.3产生
        SI      EQU     P2.0                 ;SI由P2.0产生
        SO      EQU     P2.1                 ;SO由P2.1产生
        ADDR    EQU     07FH                 ;使用X25045地址为7FH的单元
        DAT     EQU     0AAH                 ;写入数据为0AAH
        ORG     00H                          ;主程序
XWRITE: MOV     A,      #06H                 ;发送写使能命令
        CLR     CS
        ACALL    TRAN                         ;调用发送子程序
        SETB    CS                           ;写使能命令发送结束
        MOV     A,      #02H                 ;发送写操作指令,A8=0,选择低256字节
        CLR     CS
        ACALL    TRAN                         ;
        MOV     A,      #ADDR                ;发送地址
        ACALL    TRAN                         ;
        MOV     A,      #DAT                 ;发送数据
        ACALL    TRAN
        SETB    CS                           ;
        ACALL    DELAY                       ;调用延时子程序
XREAD:  MOV     A,      #03H                ;发送读操作指令,A8=0
        CLR     CS
        ACALL    TRAN
        MOV     A,      #ADDR               ;发送地址
        ACALL    TRAN
        MOV     R0,     #08H                ;R0为位数计数器
READ1:  SETB    SCK
        CLR     SCK
        SETB    SO
        MOV     C,      SO                  ;读一位数据
        RLC     A                           ;将读入的一位数据移入A中
        DJNZ    R0,     READ1               ;判断一字节的数据是否读完
        MOV     P1,     A                   ;将读出的数据送到P1口显示
        SJMP    xwrite
TRAN:    MOV    R0,     #08H                ;发送一字节数据子程序
TRAN1:   RLC    A                           ;将A的最高位移入C中
         MOV    SI,     C                   ;将C中的数据输出到SI
         CLR    SCK                         ;SCK产生一个上跳变
         SETB   SCK
         DJNZ   R0,     TRAN1               ;8位未发送完,转移
         CLR    SI                          ;发送结束
         RET
DELAY:  MOV     R1,     #10H                ;延时子程序
LP1:    MOV     R0,     #00H
LP2:    DJNZ    R0,     LP2
        DJNZ    R1,     LP1
        RET
        end