17lcd.asm

来自「单片机关于静态液晶显示的小程序」· 汇编 代码 · 共 57 行

;实验17   1602液晶显示屏显示A
;注意：液晶试验必须要去掉8位数码管的跳线J1
;********************************************************************************
;*  日期:  2007-3-25                                                            *
;*  版本:  3.0                                                                  *
;*  作者:  深圳学林电子有限公司     专业8051单片机教学站                        *
;*  邮箱: [e-mail]                                                       *
;*  网站： 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 0000H
     MOV P0,#00000001B  ;清屏
     ACALL ENABLE
     MOV P0,#00000001B  ;清屏
     ACALL ENABLE
     MOV P0,#00111000B  ;显示功能
     ACALL ENABLE
     MOV P0,#00001111B  ;显示开关控制
     ACALL ENABLE
     MOV P0,#00000110B 	;输入模式
     ACALL ENABLE
     MOV P0,#0C0H       ;数据存贮器地址
     ACALL ENABLE
     mov p0,#01000001b  ;ASCII码
SETB RS
     CLR RW
     CLR E
 ACALL DELAY
     SETB E
     AJMP $
ENABLE: CLR RS           ;送命令
     CLR RW
     CLR E
     ACALL DELAY
     SETB E
     RET
DELAY: MOV P0,#0FFH
     CLR RS
     SETB RW
     CLR E
     NOP
     SETB E
     JB P0.7,DELAY      ;判断忙标志
     RET
     END