1602液晶显示CHINA SHEN ZHEN XUE LIN DIAN ZI

zixia

;********************************************************************************
;1602液晶显示CHINA SHEN ZHEN XUE LIN DIAN ZI                                    *
;********************************************************************************
;*  日期:  2007-3-25                                                            *
;*  版本:  3.0                                                                  *
;*  作者:  深圳学林电子有限公司     专业8051单片机教学站                        *
;*  邮箱: sxj1974@163.com                                                       *
;*  网站： http://www.51c51.com     http://www.8951.com    更多例程请登陆网站   *
;********************************************************************************
;*  硬件：此程序在本公司xlisp系列单片机实验仪运行通过                           *
;********************************************************************************
;* 【版权】 Copyright(C)深圳学林电子有限公司 www.51c51.com  All Rights Reserved *
;* 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！                  *
;********************************************************************************
RS EQU p2.0;液晶接口的定义
RW EQU p2.1
E  EQU p2.2
        org        0080h
        MOV SP ,#70H;设置堆栈
        MOV p0,#01H        ;清屏
        CALL ENABLE
        MOV p0,#38H        ;显示功能
            CALL ENABLE
        MOV p0,#0FH        ;显示开关控制
        CALL ENABLE
        MOV p0,#06H        ;+1
        CALL ENABLE
        MOV p0,#80H;第一行的开始位置
        cALL ENABLE
        MOV DPTR,#TABLE1;显示
        CALL WRITE1;到TABLE1取码?
        MOV p0,#0C0H;第二行的位置
        CALL ENABLE
        MOV DPTR,#TABLE2;显示
        CALL WRITE1;到TABLE2 取码
        ;MOV p0,#0C2H;光标定位0C0H
        CALL ENABLE
             JMP $
ENABLE: CLR RS                         ;送命令
        CLR RW
        CLR E
        CALL DELAY
        SETB E
        RET
WRITE1: MOV R1,#00H   ;显示table中的值
        A1: MOV A,R1;到table取码
        MOVC A,@A+DPTR
        call  wRITE2   ;显示到lcd
        INC R1
        CJNE A,#00H,A1  ;是否到00h
        RET
WRITE2:MOV p0,A  ;显示
        SETB RS
        CLR RW
        CLR E
        CALL DELAY
        SETB E
        RET
DELAY: MOV R4,#05
        D1:MOV R5,#0FFH
        DJNZ R5,$
        DJNZ R4,D1
        RET
table1: db"CHINA--SHEN ZHEN",00H
table2: db" XUE LIN DIAN ZI",00H
end


[em01]