No.69681
作者：jola
邮件：ch181120@163.net
ID：10295
登陆：39次
QQ：122348673
文章数：145篇
最后登陆IP：210.21.215.18
最后登陆：2005/1/7 17:49:35
注册：2003/3/16 12:29:00
财富：637
发帖时间：2004/12/20 22:02:18
发贴者IP：202.105.135.4
标题：jola:点亮LCM的程序
摘要：No.69681点亮LCM的程序 RS EQU P3.7
E EQU P3.5
wr EQU P3.4
ORG 0000H
LJMP MAIN ORG 0003H
LJMP LINTO ORG 0100H MAIN: NOP
LCALL INIT
MOV R1, #80H
LCALL WRI
MOV DPTR, #TABLE1
LCALL WRD2
MOV R1, #090H
LCALL WRI
MOV DPTR, #TABLE2
LCALL WRD2
LCALL DLY100
LCALL CR
LCALL DLY100 LCALL WRD3
LCALL CR L44:MOV R1,#80H ;DDRAM ADDRES=00H
LCALL WRI
MOV R0,#40
MOV R1,#41H ;WRITE 00H TO DDRAM
L222: LCALL WRD
INC R1
DJNZ R0,L222 MOV R1,#090H ;DDRAM ADRDRES=40H
LCALL WRI
MOV R0,#40
MOV R1,#61H ;WRITE 00H TO DDRAM
L332: LCALL WRD
INC R1
DJNZ R0,L332
LCALL DLY100
LCALL CR
LJMP MAIN LINTO: NOP
NOP
RETI INIT: SETB E
CLR RS
CLR p3.4
MOV R0, #03H
L1: MOV R1, #038H
LCALL WRI DJNZ R0, L1 MOV R1,#0FH
LCALL WRI
MOV R1,#06H
LCALL WRI
MOV R1,#01H
LCALL WRI
RET
WRI:SETB E
CLR RS
CLR p3.4
MOV p1,R1
CLR E
LCALL DLY10
SETB E
LCALL DLY10
LCALL DLY10
LCALL DLY10
LCALL DLY10
LCALL SN
RET WRD: SETB E
SETB RS
CLR p3.4
MOV p1,R1 ......
>>返回讨论的主题
| 
导航: 老古网→ 老古论坛→XMOS公共讨论区→XMOS开源项目区→单片机程序设计→嵌入式系统→广告区域→