程序12864-0107.asm

带字库LCD12864 分身乏术非师范

;**************************
;*      128 x 64 LCD      *
;**************************
;
CSB     EQU P3.1
CSA     EQU P3.0
DI      EQU P3.2
RW      EQU P3.3
E       EQU P3.4
RST     EQU P3.5
;
        ORG  0000H
        LJMP START
        ORG 0100H
START:  CLR   RST
        NOP
        NOP
        NOP
        NOP
        SETB  RST
        NOP
        NOP
        NOP
        NOP
        LCALL INITA

STDISP:
        MOV   DPTR,#HM1
        LCALL DISP
        LCALL DELAY
        MOV   DPTR,#HM2
        LCALL DISP
        LCALL DELAY
        MOV   DPTR,#HM3
        LCALL DISP
        LCALL DELAY
        MOV   R5,#0FFH
        LCALL LDISP
        LCALL DELAY
        MOV   R5,#00H
        LCALL LDISP
        LCALL DELAY
        

HH:     LJMP  STDISP




DISP:   MOV   R3,#0B8H
        MOV   R2,#40H
        MOV   R4,#8
DISP1:  SETB  CSA
        CLR   CSB
        MOV   R1,#64
        MOV   A,R3       ;SET X ADDRESS PAGE:8
        LCALL WCOM
        MOV   A,R2           ;SET Y ADDRESS IN THE Y REGISTER
        LCALL WCOM
DISP2:  LCALL WDATA
        DJNZ  R1,DISP2
        MOV   R1,#64
        CLR   CSA
        SETB  CSB
        MOV   A,R3       ;SET X ADDRESS PAGE:8
        LCALL WCOM
        MOV   A,R2           ;SET Y ADDRESS IN THE Y REGISTER
        LCALL WCOM
DISP3:  LCALL WDATA
        DJNZ  R1,DISP3
        INC   R3
        DJNZ  R4,DISP1
        RET

WDATA:
        CLR   RW
        SETB  DI
WRITE:  CLR   A
;        SETB  E
        NOP
        NOP
        MOVC  A,@A+DPTR
        MOV   P1, A
        NOP
        SETB  E
        NOP
        NOP
        CLR   E
        INC   DPTR
        RET
        
LDISP:   MOV   R3,#0B8H
        MOV   R2,#40H
        MOV   R4,#8
LDISP1:  SETB  CSA
        CLR   CSB
        MOV   R1,#64
        MOV   A,R3       ;SET X ADDRESS PAGE:8
        LCALL WCOM
        MOV   A,R2           ;SET Y ADDRESS IN THE Y REGISTER
        LCALL WCOM
LDISP2:  LCALL LWDATA
        DJNZ  R1,LDISP2
        MOV   R1,#64
        CLR   CSA
        SETB  CSB
        MOV   A,R3       ;SET X ADDRESS PAGE:8
        LCALL WCOM
        MOV   A,R2           ;SET Y ADDRESS IN THE Y REGISTER
        LCALL WCOM
LDISP3:  LCALL LWDATA
        DJNZ  R1,LDISP3
        INC   R3
        DJNZ  R4,LDISP1
        RET

LWDATA:
        CLR   RW
        SETB  DI
LWRITE:  CLR   A
;        SETB  E
        NOP
        NOP
        MOV   A,R5
        MOV   P1, A
        NOP
        SETB  E
        NOP
        NOP
        CLR   E
        INC   DPTR
        RET        
WCOM:
        CLR   DI
        NOP
        NOP
        NOP
        NOP
        NOP
        CLR   RW
        NOP
        NOP
        NOP
        NOP
        NOP
;        SETB  E
        MOV   P1,A
        NOP
        NOP
        SETB  E
        NOP
        NOP
        NOP
        CLR   E
        NOP
        NOP
        NOP
        RET
;
INITA:  SETB   CSA
        SETB   CSB
        MOV   A, #3EH       ;DISPLAY OFF
        LCALL WCOM
        MOV   A,#0B8H       ;SET X ADDRESS IN THE X REGISTER
        LCALL WCOM
        MOV   A,#40H        ;SET Y ADDRESS IN THE Y REGISTER
        LCALL WCOM
        MOV   A,#0C0H       ;SET START LINE
        LCALL WCOM
        MOV   A, #3FH       ;DISPLAY ON
        LCALL WCOM
        RET


DELAY:  MOV   R5,#0BH
DELAY3: MOV   R6,#0FFH
DELAY2: MOV   R7,#0FFH
DELAY1: DJNZ  R7,DELAY1
        DJNZ  R6,DELAY2
        DJNZ  R5,DELAY3
        RET
;---------------------------
hm1:
DB  0FFH,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,
DB  001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,
DB  001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,
DB  001H,081H,0C1H,0E1H,0F1H,0F1H,0F1H,0F1H,0F9H,0F9H,079H,03DH,03DH,07DH,07DH,07DH,
DB  0FDH,0FDH,0FDH,0FDH,0FDH,0F9H,0F9H,0F9H,0F9H,0F1H,0F1H,0F1H,0F1H,0C1H,0C1H,081H,
DB  001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,
DB  001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,001H,