最新ts19264-1.asm

19264-1液晶显示程序1 9264-1液晶显示程序

;定义接口  P0 口为数据接口 TS19264-1
;CS1 EQU P2.3     CSA
;CS2 EQU P2.4     CSB
;CS3 EQU P2.5
;DI EQU P2.0
;RW EQU P2.1
;E EQU P2.5
;RD1 EQU P3.7
;WR1 EQU P3.6
;==========================
COM EQU 30H     ;指令寄存器
DAT EQU 31H     ;数据寄存器
CWADD1 EQU 0000H ;写指令代码地址(左)
CRADD1 EQU 0200H ;读状态字地址(左)
DWADD1 EQU 0100H ;写显示数据地址(左)
DRADD1 EQU 0300H ;读显示数据地址(左)
CWADD2 EQU 0800H;写指令代码地址(中)
CRADD2 EQU 0A00H;读状态字地址(中)
DWADD2 EQU 0900H;写显示数据地址(中)
CWADD3 EQU 1000H ;写指令代码地址(右)
CRADD3 EQU 1200H ;读状态字地址(右)
DWADD3 EQU 1100H ;写显示数据地址(右)
DRADD3 EQU 1300H ;读显示数据地址(右)
;==============================

    ORG 0000H
    LJMP MAIN
    ; ORG 0100H
 ;=========模块初始化
 MAIN: MOV SP,#32H
       LCALL DELAY
       LCALL DELAY
       MOV COM,#0C0H    ;设置首行
       LCALL PRL0
       LCALL PRM0
       LCALL PRR0
       MOV COM,#03FH  ;开显示
       LCALL PRL0
       LCALL PRM0
       LCALL PRR0
 ;==============================清零
       LCALL CLEAR
 ;==============================
 MAIN1:MOV COM,#0C0H ;行地址
       LCALL PRL0
       LCALL PRM0
       LCALL PRR0
       MOV COM,#040H ;列地址
       LCALL PRL0
       LCALL PRM0
       LCALL PRR0
       MOV R2,#0B8H  ;页地址    寄存器R2用于页地址
       MOV COM,R2
       LCALL PRL0
       LCALL PRM0
       LCALL PRR0
;============================
       MOV DPTR,#TAB00
       MOV R3,#08H      ;用于显示页数
 LOOP: MOV R4,#40H      ;用于一页显示64列数据
WL1:   CLR A
       MOVC A,@A+DPTR
       MOV DAT,A
       LCALL  PRL1
       INC DPTR
       DJNZ R4,WL1
       MOV R4,#40H
WM1:   CLR A
       MOVC A,@A+DPTR
       MOV DAT,A
       LCALL PRM1
       INC DPTR
       DJNZ R4,WM1
       MOV R4,#40H
WR1:   CLR A
       MOVC A,@A+DPTR
       MOV DAT,A
       LCALL PRR1
       INC DPTR
       DJNZ R4,WR1
       INC R2
       MOV COM,R2
       LCALL PRL0
       LCALL PRM0
       LCALL PRR0
       DJNZ R3,LOOP
       LCALL DELAY1
       LCALL DELAY1
;========================
       MOV R2,#0B8H  ;页地址    寄存器R2用于页地址
       MOV COM,R2
       LCALL PRL0
       LCALL PRM0
       LCALL PRR0
       MOV DPTR,#TAB01
       MOV R3,#08H      ;用于显示页数
LOOP1: MOV R4,#40H      ;用于一页显示64列数据
WL11:  CLR A
       MOVC A,@A+DPTR
       MOV DAT,A
       LCALL  PRL1
       INC DPTR
       DJNZ R4,WL11
       MOV R4,#40H
WM11:  CLR A
       MOVC A,@A+DPTR
       MOV DAT,A
       LCALL PRM1
       INC DPTR
       DJNZ R4,WM11
       MOV R4,#40H
WR11:  CLR A
       MOVC A,@A+DPTR
       MOV DAT,A
       LCALL PRR1
       INC DPTR
       DJNZ R4,WR11
       INC R2
       MOV COM,R2
       LCALL PRL0
       LCALL PRM0
       LCALL PRR0
       DJNZ R3,LOOP1
       LCALL DELAY1
;========================
       MOV R2,#0B8H  ;页地址    寄存器R2用于页地址
       MOV COM,R2
       LCALL PRL0
       LCALL PRM0
       LCALL PRR0
       MOV DPTR,#TAB02
       MOV R3,#08H      ;用于显示页数
LOOP2: MOV R4,#40H      ;用于一页显示64列数据
WL12:   CLR A
       MOVC A,@A+DPTR
       MOV DAT,A
       LCALL  PRL1
       INC DPTR
       DJNZ R4,WL12
       MOV R4,#40H
WM12:   CLR A
       MOVC A,@A+DPTR
       MOV DAT,A
       LCALL PRM1
       INC DPTR
       DJNZ R4,WM12
       MOV R4,#40H
WR12:   CLR A
       MOVC A,@A+DPTR
       MOV DAT,A
       LCALL PRR1
       INC DPTR
       DJNZ R4,WR12
       INC R2
       MOV COM,R2
       LCALL PRL0
       LCALL PRM0
       LCALL PRR0
       DJNZ R3,LOOP2
       LCALL DELAY1
;==========================
       MOV R2,#0B8H  ;页地址    寄存器R2用于页地址
       MOV COM,R2
       LCALL PRL0
       LCALL PRM0
       LCALL PRR0
       MOV DPTR,#TAB03
       MOV R3,#08H      ;用于显示页数
LOOP3: MOV R4,#40H      ;用于一页显示64列数据
WL13:   CLR A
       MOVC A,@A+DPTR
       MOV DAT,A
       LCALL  PRL1
       INC DPTR
       DJNZ R4,WL13
       MOV R4,#40H
WM13:   CLR A
       MOVC A,@A+DPTR
       MOV DAT,A
       LCALL PRM1
       INC DPTR
       DJNZ R4,WM13
       MOV R4,#40H
WR13:   CLR A
       MOVC A,@A+DPTR
       MOV DAT,A
       LCALL PRR1
       INC DPTR
       DJNZ R4,WR13
       INC R2
       MOV COM,R2
       LCALL PRL0
       LCALL PRM0
       LCALL PRR0
       DJNZ R3,LOOP3
       LCALL DELAY1
;===============================
       MOV R2,#0B8H  ;页地址    寄存器R2用于页地址
       MOV COM,R2
       LCALL PRL0
       LCALL PRM0
       LCALL PRR0
       MOV DPTR,#TAB04
       MOV R3,#08H      ;用于显示页数
LOOP4: MOV R4,#40H      ;用于一页显示64列数据
WL14:   CLR A
       MOVC A,@A+DPTR
       MOV DAT,A
       LCALL  PRL1
       INC DPTR
       DJNZ R4,WL14
       MOV R4,#40H
WM14:   CLR A
       MOVC A,@A+DPTR
       MOV DAT,A
       LCALL PRM1
       INC DPTR
       DJNZ R4,WM14
       MOV R4,#40H
WR14:   CLR A
       MOVC A,@A+DPTR
       MOV DAT,A
       LCALL PRR1
       INC DPTR
       DJNZ R4,WR14
       INC R2