;1602液晶顯示一個A
;***************************************************************************
;* (程序轉載請著明出處 ，未聲明可適應本站騰龍/isp開發套件/倚天版開發套件      *
;*  E-mail:sxj1974@163.com (51c51 test web)  51測試網，自學單片機的網站            *
;* Create by :石學軍 www.51c51.com   www.8951.com 更多例程請登陸網站                 *
;***************************************************************************
RS EQU P3.0
RW EQU P3.1
E EQU P3.5
ORG 0000H
MOV P1,#00000001B ;清屏
ACALL ENABLE
MOV P1,#00000001B ;清屏
ACALL ENABLE
MOV P1,#00111000B ;顯示功能
ACALL ENABLE
MOV P1,#00001111B ;顯示開關控制
ACALL ENABLE
MOV P1,#00000110B ;輸入模式
ACALL ENABLE
MOV P1,#0C0H ;數據存貯器地址
ACALL ENABLE
mov p1,#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 P1,#0FFH
CLR RS
SETB RW
CLR E
NOP
SETB E 
JB P1.7,DELAY ;判斷忙標志
RET
END