导航: 老古网老古论坛XMOS公共讨论区XMOS开源项目区单片机程序设计嵌入式系统广告区域
→发表看法:[哈佛]LCD12864 显示程序



No.101502
作者:哈佛
邮件:jola2002@163.com
ID:29699
登陆:81次
QQ:5822022
--  MSN:jola2005912@hotmail.com
文章数:185篇
最后登陆IP:218.17.158.164
最后登陆:2014/12/16 13:54:00
注册:2005/1/6 19:18:03
财富:1280
发帖时间:2007/1/5 18:44:28
发贴者IP:59.40.225.125
标题:哈佛:LCD12864 显示程序
摘要:No.101502LCD12864 显示程序 ;TEST TO 12864-7 (C12864-1)
;CONTROLLER: KS0108
;SIDE: 128 X 64 DOTS
;DRAW: WHY
;DATE: 1999.5.24
;****************************************************************
;RS     REG     P3.0            ;DEFINE LCM DATA/INSTRUCTION PIN
;R/W    REG     P3.1            ;DEFINE LCM READ/WRITE PIN
;E      REG     P3.2            ;DEFINE LCM ENABLE PIN
;CS1    REG     P3.3            ;DEFINE LCM CHIP 1 SELECT       
;CS2    REG     P3.4            ;DEFINE LCM CHIP 2 SELECT        
;RSTB   REG     P3.5            ;DEFINE LCM RESET PIN
;DB0~DB7    REG    P1.0~P1.7    ;DEFINE LCM DATA BUS                              

        ORG     0000H           
INIT:   CLR     P3.5            ;DISPLAY RESET
        NOP
        NOP
        SETB    P3.5            
        MOV     P3,#038H        ;ENBALE CHIP 1 AND CHIP 2
        SETB    P3.1            ;R/W=1
        CLR     P3.0            ;RS=0
INIT1:  ORL     P1,#0FFH        ;P1 INKEYT MODE
        SETB    P3.2            ;E=1
 MOV     A,P1            ;READ BUSY SIGNAL
        CLR     P3.2            ;E=0
        JB      ACC.7,INIT1     ;BUSY END?
        JB      ACC.4,INIT1     ;RESET END?
        MOV     A,#0C0H         ;DISPLAY START LINE
        LCALL   TRS0            
        MOV     A,#03FH         ;DISPLAY ON
        LCALL   TRS0            
START: 
        LCALL   CLEAR           ;START TO TEST
        LCALL   ICON
        LCALL   KEY
        LCALL   TEST
        LCALL   BOX
        LCALL   KEY
        JMP     START    

CLEAR:  MOV     P3,#038H        ;CLEAR DISPLAY RAM
        MOV     R5,#0B8H
        MOV     A,#0C0H         
        LCALL   TRS0            
CLEAR2: MOV     A,R5
        LCALL   TRS0
        MOV A,#40H
 LCALL TRS0
 MOV     R4,#40H
CLEAR1: MOV     A,#00H
        LCALL   TRS1
        DJNZ    R4,CLEAR1
        INC     R5
        CJNE    R5,#0C0H,CLEAR2
 RET                     

ICON:   CLR     P3.3            ;TEST ICON
        SETB    P3.4
        MOV     A,#0BFH
        LCALL   TRS0
        MOV     A,#07CH
        LCALL   TRS0
        MOV     R4,#04H
        MOV     A,#80H
ICON1:  LCALL   TRS1
        DJNZ    R4,ICON1
        RET

TEST:   MOV     DPTR,#ADATA     ;TEST 1
        MOV     67H,DPH
        MOV     68H,DPL
        MOV     R0,#07H
TEST5:  MOV     R5,#0B8H
        MOV     P3,#038H
TEST3:  MOV     A,R5
        LCALL   TRS0
        MOV     A,#40H
        LCALL   TRS0
        MOV     R4,#08H
TEST2:  MOV     DPH,67H
        MOV     DPL,68H
        MOV     R3,#08H
TEST1:  MOV     A,#00H
        MOVC    A,@A+DPTR
        LCALL   TRS1
        INC     DPTR
        DJNZ    R3,TEST1
        DJNZ    R4,TEST2
        INC     R5
        CJNE    R5,#0BFH,TEST3
        SETB    P3.3
        CLR     P3.4
        MOV     A,#0BFH
        LCALL   TRS0
        MOV     A,#40H
        LCALL   TRS0
        LCALL   TESTS
        CLR     P3.3
        SETB    P3.4
        MOV     A,#0BFH
        LCALL   TRS0
        MOV     A,#40H
        LCALL   TRS0
        LCALL   TESTT
        SETB    P3.3
        SETB    P3.4
        LCALL   KEY
        CLR     C
        MOV     A,68H
        ADD     A,#08H
        MOV     68H,A
        JNC     TEST4
        INC     67H
TEST4:  DJNZ    R0,TEST5
        RET                    

TESTS:  MOV     R4,#08H         ;SUB. OF TEST 1
TESTS2: MOV     DPH,67H
        MOV     DPL,68H
        MOV     R3,#08H
TESTS1: MOV     A,#00H
        MOVC    A,@A+DPTR
        LCALL   TRS1
        INC     DPTR
        DJNZ    R3,TESTS1
        DJNZ    R4,TESTS2
        RET

TESTT:  MOV     R4,#07H         ;SUB. OF TEST 1
TESTT ......

>>返回讨论的主题



  发表回复
用户名   *您没有注册?
密码   *
验证码   * .
标题   *
心情
随便说说    我回答你    最新发现    得意的笑   
气死我了    真是没劲    坚决同意    表示反对   
大家过来    好奇怪哟    懒得理它    大家小心   
文件上传
内容


字体:      字体大小:    颜色:
粗体 斜体 下划线 居中 超级连接 Email连接 图片 Flash图片 Shockwave文件 realplay视频文件 Media Player视频文件 QuickTime视频文件 引用 飞行字 移动字 发光字 阴影字 查看更多的心情图标 背景音乐
点击加入表情
                         
选项
有回复时用短消息通知您?

   




老古网执行:31毫秒 最大:11162毫秒 查询6次