;*************************************************************
;*title:X25045
;*实现2051对X25045的写入和读出，及看门狗超时周期的设置。
;*version:1.0
;*lastdate:01.03.27
;*target:At89c2051at12Mhz
;*designby:Heyuesheng010-64889568
;*************************************************************
;****defineregister****

;****code


ORG0000H
AJMPSTART

ORG0040H
START:MOVSP,#60H
MOVR0,#10H;将状态寄存器置为00010000(即无写保护，看门狗超时周期为600毫秒)
ACALLWRSR

TEST:
MOVR0,#89H;定义R0为写入的数据(89H)
MOVR1,#00H;定义R1为写入数据的地址(00H)
ACALLWRITE

MOVR0,#51H;定义R0为写入的数据(51H)
MOVR1,#01H;定义R1为写入数据的地址(01H)
ACALLWRITE

MOVR1,#00H;定义R1为读出数据的地址(00H)
ACALLREAD
MOVR4,A;将读出的数据存入R4

MOVR1,#01H;定义R1为读出数据的地址(01H)
ACALLREAD
MOVR5,A;将读出的数据存入R5

SJMPTEST


;*******本子程序写状态寄存器
;*入口参数：R0
WRSR:SETBP1.4
MOVR7,#10H
ACALLDELAY
CLRP1.4

MOVA,#01H;写状态寄存器指令
ACALLSIN

MOVA,R0;将状态寄存器置为R0的值
ACALLSIN

SETBP1.4
RET


;*******写使能子程序
;*入口参数：无
WREN:SETBP1.2;将WP写保护管脚置高，打开写保护。
SETBP1.4
MOVR7,#10H
ACALLDELAY
CLRP1.4

MOVA,#06H;写使能指令
ACALLSIN

SETBP1.4
RET

;*******写入子程序
;*入口参数：
;*R0要写入的数据
;*R1要写入的地址
WRITE:ACALLWREN

SETBP1.4
MOVR7,#10H
ACALLDELAY
CLRP1.4

MOVA,#02H;写指令
ACALLSIN

MOVA,R1;写入数据的开始地址
ACALLSIN

MOVA,R0;将RO的值写入地址为R1的单元
ACALLSIN

SETBP1.4
RET


;*******读出子程序
;*R1要读出数据的地址
READ:SETBP1.4
MOVR7,#10H
ACALLDELAY
CLRP1.4

MOVA,#03H;读指令
ACALLSIN
MOVA,R1;读以R1为地址的数据
ACALLSIN

ACALLSOUT
MOVR0,A

SETBP1.4
RET

;*******串行写入
SIN:MOVR3,#8
LOOP1:RLCA
MOVP1.1,C
SETBP1.0
CLRP1.0
DJNZR3,LOOP1
RET
;*******串行读出
SOUT:MOVR3,#8
MOVA,#00H
LOOP2:CLRC
MOVC,P1.3
RLCA
SETBP1.0
CLRP1.0
DJNZR3,LOOP2
RET
;*******延时子程序
;*入口参数：R7
DELAY:MOVR6,#0FFH
DJNZR6,$
DJNZR7,DELAY
RET

END