⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 a240d.asm

📁 Alera 的8051 IP core的示例文件5个
💻 ASM
📖 第 1 页 / 共 2 页
字号:
        ;128X240液晶演示程序2005-8

DAT0   EQU   P0
WRR    EQU   P2.0
RDD    EQU   P2.1
CD     EQU   P2.2

       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,#16                ;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

	;~~~~~~~~~~~~~~~~~~~~~~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  CD                   ;FOR WRTIE DATA C/D=0
OUTD1:                              ;FOR WRITE COMMAND C/D=0
	CLR  WRR                 ;WR=0
	MOV  DAT0,A
	SETB WRR                   ;W/R = 1
	SETB CD                  ;C/D =1
	RET

PR01:    ;LCALL  TIME
        LCALL PR0            ;Check the state of the LCD Module
	JNB ACC.0,PR01              ;JUDGE STA0
	JNB ACC.1,PR01              ;JUDGE STA1
	RET

PR02:   ;LCALL  TIME
        LCALL PR0
	JNB  ACC.2,PR02             ;FOR STA2
	RET

PR03:   LCALL  TIME
        LCALL PR0
	JNB  ACC.3,PR03             ;FOR STA3
	RET

PR0:    ;SETB WRR                 ;C/D = 1
        ;SETB RDD
        ;SETB CD
        ;ORL DAT0,#0FFH                ;P1 PORT IS FOR INPUT
        ;CLR RDD                    ;RD =0
        ;MOV A,DAT0
        ;SETB RDD                   ;RD = 1
        LCALL  TIME
        MOV A,#0FFH
        RET

TIME:   MOV R0,#03H
TIME1:  MOV R1,#30H
TIME2:  DJNZ R1,TIME2
	DJNZ R0,TIME1
	RET
;________The data under here will make the LCD Module said:______________
;
;          Hi!                  xxxx
;    Welcome to the             xxxx
;            xxxx
;--  调入了一幅图像:D:\1_cpu\kx_1.bmp  --
;--  宽度x高度=240x109  --
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

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -