lcd.asm

LCD 240(列)×128(行)点 显示示例演示源程序

;===============================================
;240(列)×128(行)点演示程序
;===============================================     
        ORG  0000H
        LJMP STAR
        ORG  0100H
STAR:  
       MOV R4,#90H  
       LCALL OUTIN  ;  display off

       MOV R2,#00H  
       MOV R3,#00H  ;  TEXT HOME
       MOV R4,#40H  
       LCALL OUTI2  

       MOV R2,#30  ;
       MOV R3,#00   ;  TEXT AREA   &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
       MOV R4,#41H  
       LCALL OUTI2  

       MOV R2,#00H  
       MOV R3,#10H  
       MOV R4,#42H  
       LCALL OUTI2  ;  GRAPHIC HOME

       MOV R2,#30   
       MOV R3,#00H  ;GRAPHIC AREA
       MOV R4,#43H  ;
       LCALL OUTI2  

       MOV R4,#94H  ; TEXT ON
       LCALL  OUTIN ; GRAPHIC OFF

       MOV R2,#00H   
       MOV R3,#00H   ; TEXT WRITE "0"
       MOV R4,#24H   
       LCALL OUTI2   

       MOV R4,#0B0H   
       LCALL OUTIN    

       MOV R2,#01FH   
CLRS0:
       MOV R3,#0FFH   
CLRS1:
       CLR A           
       LCALL OUTD      
       DJNZ R3,CLRS1      ;空白
       DJNZ R2,CLRS0   
       MOV R4,#0B2H    
       LCALL OUTIN     

     ; MODE SET

      MOV R4,#9cH     
      LCALL OUTIN     
      MOV R4,#80H    ; 84H是文本特征为错误，要将图形区改为特征码   &&&&&&&&&&&&&&&&&&&&&&&
      LCALL OUTIN     

      MOV R2,#00H     
      MOV R3,#00H     
      MOV R4,#24H     
      LCALL OUTI2     

      MOV 12H,#10                ;10行5~8列*8行
QW1: MOV R2,#30      ;每行30个字
      MOV R3,#2CH     ;  Char code
      MOV 10H,#10H       ;10H是字符代码寄存器
      MOV R4,#0C0H    
QW:  MOV R3,10H     
      MOV R4,#0C0H     
      LCALL OUTI1     
      inc 10H

     DJNZ R2,QW      
	 DJNZ 12H,QW1
	 LCALL TIME
	 LCALL TIME

	;~~~~~~~~~~~~~~~~~~~~~~That's txt comstruction.

      MOV R4,#98H    ;   text off graph on      &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
      LCAll OUTIN    
      MOV R0,#2
      MOV R1,#00H
      MOV R2,#00H
      MOV 22H,#30
SE:   MOV R3,#10H     ; DISPLAY  The graphic
      MOV R4,#24H     
      LCALL OUTI2     
      MOV DPTR,#LDATA  ;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
      LCALL LDIS1      
	  LCALL TIME
	 LCALL TIME
 
	 MOV 22H,#80             ; 上卷80行
     MOV DPTR,#1000H

MOVE:  MOV R2,DPL
MOVES:  MOV R3,DPH
	MOV R4,#42H
	LCALL OUTI2

	MOV 21H,#0A0H
MOVES1:        

LMS2:   MOV R6,#0AFH  
LMS1:   DJNZ R6,LMS1   

	DJNZ 21H,MOVES1
	MOV 25H,#1EH
MOVES2:INC DPTR
	DJNZ 25H,MOVES2
	DJNZ 22H,MOVE
	LCALL TIME
	LCALL TIME
	LCALL TIME


     LJMP STAR
;-----------------------------------------------------------------------------------------------
;***********************************************************************************************

LDIS1:  NOP
	  MOV R1,#160           ;送160行，为卷屏预送80行。
LDIS2:MOV R2,22H      ;30 COLOUMN
LDIS3:CLR A
	MOVC A,@A+DPTR  
	MOV R3,A
	MOV R4,#0C0H
	LCALL OUTI1    
	INC DPTR
	DJNZ R2,LDIS3
	DJNZ R1,LDIS2
	RET

;THIS SUBR. IS FOR DISPLAYING ONE LINE
;THE ENTRANCE PARA.

OUTI2:     LCALL PR01                  ;THE ENTRANCE OF TWO BYTE PARA. COMMAND
	   MOV A,R2
	   LCALL OUTD
;OUTI1 IS FOR ONE PARA.
OUTI1:     LCALL PR01
	   MOV A,R3
	   LCALL OUTD
;OUTIN IS FOR NO PARA.
OUTIN:     LCALL PR01
	   MOV A,R4
	   SJMP  OUTD1
;OUTD IS FOR DATA OUTPUT
OUTD:      CLR  P3.0                   ;FOR WRTIE DATA C/D=0
OUTD1:                                 ;FOR WRITE COMMAND C/D=0
	   CLR  P3.1                   ;WR=0
	   MOV  P1,A
	   SETB P3.1                   ;W/R = 1
	   SETB P3.0                   ;C/D =1
	   RET

PR01:   LCALL PR0            ;Check the state of the LCD Module
	   JNB ACC.0,PR01              ;JUDGE STA0
	   JNB ACC.1,PR01              ;JUDGE STA1
	   RET
PR02:  LCALL PR0
	   JNB  ACC.2,PR02             ;FOR STA2
	   RET
PR03:  LCALL PR0
	   JNB  ACC.3,PR03             ;FOR STA3
	   RET
PR0:   ORL P3,#0BH                 ;C/D = 1
	   ORL P1,#0FFH                ;P1 PORT IS FOR INPUT
	   CLR P3.3                    ;RD =0
	   MOV A,P1                    
	   SETB P3.3                   ;RD = 1
	   RET

MS40:  MOV R7,#00FH  
MS2:   MOV R6,#01FH  
MS1:   DJNZ R6,MS1   
       DJNZ R7,MS2   
       RET

TIME:  MOV 23H,#03H
TIME1:  MOV 21H,#0FFH
TIME2:       LCALL MS40
	DJNZ 21H,TIME2
	DJNZ 23H,TIME1
	RET

;________The data under here will make the LCD Module said:______________
;              您好，欢迎使用联合液晶
;         深圳瑞特电子有限公司竭诚为您服务
;         ShenZhen ruite Electronic Co.,Ltd.
;          Hi!                  xxxx
;    Welcome to the             xxxx    
;   UNION Elec. World!          xxxx
______________________________
LDATA:
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,002H,000H,004H,000H,000H,000H,000H,020H,010H,000H,002H,010H
DB 000H,000H,000H,042H,000H,040H,010H,010H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,002H,040H,004H,07fH,000H,000H,000H,020H,008H,060H,003H,010H
DB 007H,0ffH,03fH,0a3H,000H,0a0H,008H,008H,003H,0fcH,000H,000H,000H,000H
DB 000H,000H,000H,000H,004H,07fH,084H,002H,000H,000H,03fH,020H,00dH,09fH,006H,0ffH
DB 084H,021H,011H,012H,001H,010H,009H,0ffH,082H,004H,000H,000H,000H,000H
DB 000H,000H,000H,000H,004H,081H,004H,004H,000H,000H,001H,07fH,089H,011H,004H,010H
DB 004H,021H,011H,014H,002H,008H,002H,048H,003H,0fcH,000H,000H,000H,000H
DB 000H,000H,000H,000H,00dH,010H,03fH,008H,000H,000H,021H,041H,001H,011H,00dH,0ffH
DB 004H,021H,01fH,0ffH,084H,006H,022H,048H,002H,004H,000H,000H,000H,000H
DB 000H,000H,000H,000H,00cH,094H,009H,008H,000H,000H,012H,092H,001H,011H,019H,011H
DB 007H,0ffH,011H,008H,008H,00bH,094H,09fH,003H,0fcH,000H,000H,000H,000H
DB 000H,000H,000H,000H,014H,092H,009H,008H,000H,000H,00aH,010H,039H,011H,029H,011H
DB 004H,021H,011H,008H,037H,0fdH,014H,091H,002H,004H,000H,000H,000H,000H
DB 000H,000H,000H,000H,025H,011H,009H,0ffH,080H,000H,004H,010H,009H,011H,009H,0ffH
DB 004H,021H,01fH,008H,000H,000H,005H,0aaH,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,004H,051H,011H,008H,000H,000H,006H,010H,009H,051H,009H,011H
DB 004H,021H,011H,0ffH,080H,000H,00aH,0e6H,01fH,09fH,080H,000H,000H,000H
DB 000H,000H,000H,000H,004H,020H,019H,008H,000H,000H,006H,018H,009H,095H,008H,090H
DB 007H,0ffH,011H,008H,007H,0fcH,008H,094H,010H,090H,080H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,006H,008H,000H,000H,009H,028H,009H,012H,008H,060H
DB 004H,021H,013H,088H,004H,004H,038H,088H,01fH,09fH,080H,000H,000H,000H
DB 000H,000H,000H,000H,00aH,041H,002H,008H,00cH,000H,009H,024H,008H,010H,008H,020H
DB 004H,021H,03dH,008H,004H,004H,008H,08cH,010H,090H,080H,000H,000H,000H
DB 000H,000H,000H,000H,00aH,024H,085H,008H,00cH,000H,010H,046H,008H,010H,008H,05cH
DB 008H,021H,011H,014H,004H,004H,008H,094H,010H,090H,080H,000H,000H,000H
DB 000H,000H,000H,000H,01aH,004H,089H,088H,004H,000H,021H,083H,094H,000H,008H,087H
DB 088H,021H,001H,012H,007H,0fcH,008H,0a2H,01fH,09fH,080H,000H,000H,000H
DB 000H,000H,000H,000H,001H,0fcH,011H,028H,008H,000H,00eH,001H,023H,0ffH,08bH,001H
DB 010H,025H,001H,021H,084H,004H,008H,0c3H,090H,090H,080H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,020H,010H,000H,000H,000H,000H,000H,000H,000H,000H
DB 020H,022H,001H,041H,000H,000H,008H,081H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,010H,000H,000H,000H,000H,042H,000H,040H,000H,040H,000H
DB 000H,000H,040H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,009H,0ffH,084H,081H,03fH,0a3H,000H,0a0H,000H,040H,00fH
DB 0fcH,000H,040H,03eH,0feH,001H,010H,00fH,0ffH,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,009H,001H,004H,091H,011H,012H,001H,010H,000H,040H,000H
DB 008H,01fH,0ffH,0a4H,082H,001H,090H,000H,001H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,048H,004H,091H,011H,014H,002H,008H,00fH,0feH,000H
DB 010H,000H,080H,024H,0feH,001H,010H,000H,001H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,020H,046H,03fH,091H,01fH,0ffH,084H,006H,008H,042H,000H
DB 020H,001H,000H,028H,082H,002H,008H,01fH,0f9H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,015H,082H,004H,091H,011H,008H,008H,00bH,088H,042H,000H