2051对X25045的写入和读出汇编程序

;*************************************************************
;* title:     X25045
;*实现2051对 X25045 的写入和读出，及看门狗超时周期的设置。
;* version:   1.0
;* last date: 01.03.27
;* target:    At89c2051 at 12Mhz
;* design by: Heyuesheng 010-64889568
;*************************************************************
;**** define register ****
 
;**** code
 
 
        ORG     0000H
        AJMP    START
 
        ORG     0040H
START:  MOV     SP,#60H
        MOV     R0,#10H;将状态寄存器置为 00010000(即无写保护，看门狗超时周期为 600 毫秒)
        ACALL   WRSR
 
TEST:
        MOV     R0,#89H;定义R0 为写入的数据(89H) 
        MOV     R1,#00H;定义R1 为写入数据的地址(00H) 
        ACALL   WRITE
 
        MOV     R0,#51H;定义R0 为写入的数据(51H) 
        MOV     R1,#01H;定义R1 为写入数据的地址(01H) 
        ACALL   WRITE
    
        MOV     R1,#00H;定义R1 为读出数据的地址(00H) 
        ACALL   READ
        MOV     R4,A;将读出的数据存入 R4
        
        MOV     R1,#01H;定义R1 为读出数据的地址(01H) 
        ACALL   READ
        MOV     R5,A;将读出的数据存入 R5
  
        SJMP     TEST
;*******本子程序写状态寄存器
;*入口参数：R0 
WRSR:   SETB    P1.4     
        MOV     R7,#10H
        ACALL   DELAY
        CLR     P1.4
 
        MOV     A,#01H;写状态寄存器指令
        ACALL   SIN
 
        MOV     A,R0;将状态寄存器置为 R0 的值
        ACALL   SIN
 
        SETB    P1.4
        RET
 
 
;*******写使能子程序
;*入口参数：无
WREN:   SETB    P1.2 ;将 WP 写保护管脚置高，打开写保护。
        SETB    P1.4
        MOV     R7,#10H
        ACALL   DELAY
        CLR     P1.4
 
        MOV     A,#06H;写使能指令
        ACALL   SIN
 
        SETB    P1.4
        RET
 
;*******写入子程序
;*入口参数：
;*R0 要写入的数据
;*R1 要写入的地址
WRITE:  ACALL   WREN      
 
        SETB    P1.4
        MOV     R7,#10H
        ACALL   DELAY
        CLR     P1.4
 MOV     A,#02H;写指令
        ACALL   SIN
 
        MOV     A,R1;写入数据的开始地址
        ACALL   SIN
 
        MOV     A,R0;将 RO 的值写入地址为 R1的单元  
        ACALL  SIN
 
        SETB    P1.4
        RET
 
 
;*******读出子程序
;*R1 要读出数据的地址
READ:   SETB    P1.4
        MOV     R7,#10H
        ACALL   DELAY
        CLR     P1.4
 
        MOV     A,#03H;读指令         
        ACALL   SIN
        MOV     A,R1;读以 R1 为地址的数据
        ACALL   SIN
 
        ACALL   SOUT
        MOV     R0,A
 
        SETB    P1.4
        RET
 
;*******串行写入
SIN:    MOV     R3,#8
LOOP1:  RLC     A
        MOV     P1.1,C
        SETB    P1.0
        CLR     P1.0
        DJNZ    R3,LOOP1
        RET
;*******串行读出
SOUT:   MOV     R3,#8
        MOV     A,#00H
LOOP2:    CLR     C
        MOV     C,P1.3
    RLC     A
     SETB    P1.0
        CLR     P1.0
    DJNZ    R3,LOOP2
    RET
;*******延时子程序
;*入口参数：R7
DELAY:  MOV     R6,#0FFH
        DJNZ    R6,$
        DJNZ    R7,DELAY
        RET
 
END