用1602显示的电子书.asm

这是一个用1602液晶显示器显示的电子书程序.不可很可惜,只能显示英文,不能显示中文.

;;;LCD液晶显示器的输出口（LCDDISOUTPUT=P3）
;;寄存器选择RS(RS=P1.0)
;;读写信号线R/W(R/W=P1.1)
;;使能端E(E=P1.2)
;;数据使用地址LCDDISBUF（LCDDISBUF EQU 3AH）
;;;本1602液晶当DL为高电平（1）时为8位总线
LCDDISADDR EQU 3AH
LCDDISDATA EQU 3BH
LCDDISOUTPUT EQU P3
RS EQU P1.0
RW EQU P1.1
E EQU P1.2
MAIN:MOV SP,#60H
ACALL LCDRESET
MOV R3,#0
MOV R4,#32
MOV DPTR,#LCDCODE
LOOP:
MOV A,R3
MOV LCDDISADDR,A
MOV A,#0
MOVC A,@A+DPTR
MOV LCDDISDATA,A
ACALL LCDDISPLAY
INC R3
INC DPTR
DJNZ R4,LOOP
MOV R3,#0
MOV R4,#32
JB P2.0,$
ACALL DELAY
ACALL LCDCLEAR
JNB P2.0,$
SJMP LOOP
SJMP MAIN
DELAY:MOV R6,#5
DL1:MOV R7,#200
DL:NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
DJNZ R7,DL
DJNZ R6,DL1
RET
LCDRESET: MOV 08H,#01H  ;用于清屏
MOV 09H,#00001111B  ;打开LCD显示器，关闭光标
MOV 0AH,#00111100B ;置功能,双行显示，5X7点阵
MOV R0,#08H
MOV R2,#3
SETB E
COMMANDLOOP:MOV LCDDISOUTPUT,@R0
CLR RS
CLR RW
ACALL COMMANDENABLE
INC R0
DJNZ R2,COMMANDLOOP
RET
LCDDISPLAY:MOV A,LCDDISADDR
CLR C
SUBB A,#16
JC LOWLINE
MOV A,LCDDISADDR
CLR C
SUBB A,#16
ORL A,#11000000B
MOV R2,A
SJMP ADDROUT
LOWLINE:MOV A,LCDDISADDR
ORL A,#10000000B
MOV R2,A
ADDROUT:MOV LCDDISOUTPUT,R2
CLR RS
CLR RW
ACALL COMMANDENABLE
MOV LCDDISOUTPUT,LCDDISDATA
SETB RS
CLR RW
ACALL COMMANDENABLE
RET
COMMANDENABLE:
CLR E
NOP
NOP
SETB E
ACALL LCDBUSY
RET
LCDBUSY:MOV LCDDISOUTPUT,#0FFH
CLR RS
SETB RW
CLR E
NOP
NOP
SETB E
JB P3.7,LCDBUSY
RET
LCDCLEAR:SETB E
MOV LCDDISOUTPUT,#01H
CLR RS
CLR RW
ACALL COMMANDENABLE
RET
LCDCODE:DB "Design by Xiong"
DB "Xinjian--2008--01"
        db "welcom to jiayin university     "
DB "I am greatly honored to formally invite you to participate in Mr. Guo Jing's wedding "
DB "ceremony "
DB"with Ms. Huang Rong to be held at Beijing Grand Hotel from 8 to 10 p.m. on April "
DB "1, 2007"
  DB "As you are a close friend of us, we would very much like you to attend the celebration "
DB"and share our joy. The occasion will start at seven o'clock in the evening, with the "
DB"showing of their wedding ceremony. This will be followed by a dinner party. At around ten, "
DB"we will hold a small musical soiree, at which a band will perform some works by Bach and "
DB"Strauss."
  DB"If you do not have any prior appointment on April 1, we look forward to the pleasure of "
DB"your company."
end