x25165读写程序

；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