；x25165初始化应用程序
org 0000h
start:mov sp,#60h
acall wren
acall delay
mov 30h,#30h;状态字1.4秒
acall wrsr;调写状态子程序
mov p0,#0feh;p1口送"1"
lcall delay;延时
mov p0,#0fch;p1口送"2"
;停
weep:mov 30h,#00
mov 31h,#01h
mov 32h,#0fh
acall writ
acall delay
weep1:mov 30h,#00
mov 31h,#02h
mov 32h,#0f0h
acall writ
acall delay
reep:mov 30h,#00
mov 31h,#01h
acall read
mov p0,a
acall delay
reep1:mov 30h,#00
mov 31h,#02h
acall read
mov p0,a
acall delay
cc:sjmp cc
;
; 写使能子程序
wren:clr p1.0
nop
mov a,#06h
lcall sed
clr p1.3
nop
setb p1.0
ret
; 写状态子程序
wrsr:clr p1.0
nop
mov a,#01h
lcall sed
mov a,30h
lcall sed
clr p1.3
nop
setb p1.0
ret
; 读状态
rdsr:clr p1.0
nop
mov a,#05h
lcall sed
lcall red
clr p1.3
mov b,a
nop
setb p1.0
ret
; 写存储器子程序
writ:nop
lcall wren
clr p1.0
nop
mov a,#02h
lcall sed
clr p1.3
mov a,30h
lcall sed
clr p1.3
nop
mov a,31h
lcall sed
clr p1.3
nop
mov a,32h
lcall sed
clr p1.3
nop
setb p1.0
ret
; 读存储器子程序
read:clr p1.0
nop
mov a,#03h
lcall sed
clr p1.3
mov a,30h
lcall sed
clr p1.3
nop
mov a,31h
lcall sed
lcall red
setb p1.0
ret
; 写入8位子程序
sed:mov r6,#08h
sed1:clr p1.3
nop
rlc a
mov p1.2,c
nop
setb p1.3
nop
djnz r6,sed1
ret
; 读出8位子程序
red:mov r6,#07h
red1:clr p1.3
nop
mov c,p1.1
rlc a
setb p1.3
nop
djnz r6,red1
clr p1.3
nop
mov c,p1.1
rlc a
ret
delay:mov r7,#0ffh
d1:mov r6,#0ffh
d2:nop
nop
nop
djnz r6,d2
djnz r7,d1
ret
end
；x25165初始化子程序段
write_x25165:;x25165写程序
mov 22h,#08h
write_x25165a:
acall wrsr
acall wren
acall write_1byte
acall delay
acall delay
inc r1
inc dptr
djnz 22h,write_x25165a
ll:acall rsdr
jnb acc.7,lll
ajmp ll
lll:ret
read_x25165:;x25165读程序
mov 22h,#08h
read_x25165a:
acall read_1byte
mov @r1,a
inc r1
inc dptr
acall delay
acall delay
djnz 22h,read_x25165a
ret
wren:clr cs
nop
mov a,#06h
acall sed
nop
setb cs
nop
setb sck
ret
wrsr:clr cs
mov a,#01h
nop
acall sed
mov a,#30h
acall sed
nop
setb cs
setb sck
ret
rsdr:clr cs
mov a,#05h
nop
acall sed
nop
acall red
nop
setb cs
ret
write_1byte:clr cs
nop
mov a,#02h
acall sed
mov a,dph
acall sed
mov a,dpl
acall sed
mov a,@r1
acall sed
nop
setb cs
nop
setb sck
ret
read_1byte:clr cs
mov a,#03h
acall sed
mov a,dph
acall sed
mov a,dpl
acall sed
acall red
setb cs
nop
setb sck
ret
sed:mov r7,#08h
sed1:clr sck
rlc a
mov si,c
setb sck
nop
nop
djnz r7,sed1
ret
red:mov r7,#08h
red1:nop
clr sck
mov c,so
nop
rlc a
setb sck
djnz r7,red1
ret
tim0:push acc
push psw
clr tr0
mov th0,#3ch
mov tl0,#0b0h
djnz 35h,exiti
mov 35h,#10
jbc 21h.1,go
setb 21h.1
go:djnz 34h,exiti
mov 34h,#2
inc r5
cjne r5,#02h,exiti
mov r5,#00h
exiti:pop psw
pop acc
setb tr0
reti