黄金会员
 
主题
帖子
积分5543
阅读权限40
注册时间2011-2-24
最后登录1970-1-1
在线时间 小时
|
;
org 0
mov r7,#0
djnz r7,$
call init_7565
clr a
mov r4,#0B0h ;第0页
LP_page:mov r3,a
mov a,r4
call c_7565 ;写页号
mov a,#10h
call C_7565 ;写列号,是双字节命令
clr a
call C_7565
mov a,r3
call w_page
cpl a
inc r4 ;页号加1
cjne r4,#0b8h,lp_page
sjmp $
;
w_page: ;向一页填充棋盘格
mov r5,#16
w_lie2:mov r6,#8
w_lie1:call w_7565
djnz r6,w_lie1
cpl a
djnz r5,w_lie2
ret
;-----------初始化ST7565S----------
a0 bit p1.4
rst bit p1.5
sdi bit p1.6
SCL bit p1.7
init_7565:
clr rst
inc r0
dec r0
setb rst
inc r0
dec r0
; clr a0
mov a,#0afh ;开显示
call c_7565
mov a,#02fh ;开泵电源
call c_7565
mov a,#025h ;V5偏压设置,值20-27H
call c_7565
mov a,#0a2h ;lcd偏压设置,A2H=1/9 a3h=1/7
call c_7565
; mov a,#0a5h ;全屏点亮
; call c_7565
; mov a,#0a4h ;正常显示
; call c_7565
ret
;
c_7565:clr a0
sjmp W_7565_0
w_7565:setb a0
W_7565_0:mov r7,#8 ;向7565串行写一字节,冲R7
W_7565_1: rlc a
mov sdi,c
clr scl
setb scl
djnz r7,W_7565_1
rlc a
ret
end |
|