原创 1608液晶程序

;=========这是静态液晶1608的程序==========
;应有人需要本文先上传给大家做参考
;注释等到3月份我再来补上去
;有紧用的请联系我QQ，QQ本程序有给
;加好友请备注为EDNchina.com网友
;=========================================
RS BIT P2.0
RW BIT P2.1
E  BIT P2.2
COM DATA 30H
DAT DATA 31H
ORG 0000H
MIAN:    MOV SP,#80H
         LCALL CSH
         LCALL LCD1H
         LCALL LCD2H
         SJMP $

CSH:     MOV COM,#38H
         LCALL WRI
         MOV COM,#0CH
         LCALL WRI
         MOV COM,#06H
         LCALL WRI
         MOV COM,#01H
         LCALL WRI
         MOV R2,#0
         RET
LCD1H:   MOV COM,#80H
         LCALL WRI
L1H1:    LCALL CB
         LCALL WRD
         CJNE R2,#16,L1H1
         RET
LCD2H:   MOV COM,#0C0H
         LCALL WRI
L2H1:    LCALL CB
         LCALL WRD
         CJNE R2,#32,L2H1
         RET
CB:      MOV DPTR,#TABLE
         MOV A,R2
         MOVC A,@A+DPTR
         MOV DAT,A
         INC R2
         RET

WRI:     LCALL RDBF
         CLR RW
         MOV P0,COM
         SETB E
         CLR E
         RET
WRD:     LCALL RDBF
         SETB RS
         CLR RW
         MOV P0,DAT
         SETB E
         CLR E
         RET
RDBF:    CLR RS
         SETB RW
LBF1:    MOV P0,#80H
         SETB E
         MOV A,P0
         CLR E
         JB ACC.7,LBF1
         RET
TABLE:
DB 'ni hao,wo lianxi'
DB '  QQ:254026295  '
END