KS0108 at89c51 12864显示屏程序 24MHz

;请根据实际使用端口更改端口定义
E     EQU    P2.4
RW    EQU    P2.3
DI    EQU    P2.2
CSA    EQU    P2.0
CSB     EQU    P2.1
LCDDATA    EQU    P0
DATA1    EQU    30H
DATA2    EQU    31H


    ORG     00H
        AJMP    MAIN
    ORG    100H

MAIN:    MOV  P2,#0FFH
     MOV      A,#0C0H
    ACALL   OUTIL
    ACALL   OUTIR
     MOV     A,#3FH
    ACALL    OUTIL
    ACALL    OUTIR


     MOV      DPTR,#LDATA1
    ACALL   DISPLAY
    ACALL    DELAY
    LJMP     MAIN


DISPLAY:
         MOV      R1,#64
     MOV     R2,#0B8H
DISP:     MOV     A,R2
    ACALL   OUTIL
     MOV     A,#40H
    ACALL   OUTIL
     MOV     A,#0C0H
    ACALL   OUTIL

DISP1:    CLR    A
     MOV C    A,@A+DPTR
    ACALL   OUTDL
    INC    DPTR
    DJNZ    R1,DISP1

     MOV     A,R2
    ACALL   OUTIR
     MOV     A,#040H
    ACALL   OUTIR
     MOV     A,#0C0H
    ACALL   OUTIR

     MOV      R1,#64
DISP2:    CLR    A
     MOV C    A,@A+DPTR
    ACALL   OUTDR
    INC    DPTR
    DJNZ    R1,DISP2
     MOV     R1,#64
    INC    R2
    CJNE    R2,#0C0H,DISP
    RET



OUTIL:     CLR    CSB
        SETB    CSA
        CALL    BUSY
        CLR    DI
           CALL    WRDATA
    RET

OUTIR:  SETB    CSB
        CLR    CSA
           CALL    BUSY
        CLR    DI
           CALL    WRDATA
    RET

OUTDL:  CLR    CSB
    SETB    CSA
    CALL    BUSY
        SETB    DI
           CALL    WRDATA
    RET

OUTDR:  CLR    CSA
    SETB    CSB
    CALL    BUSY
        SETB    DI
           CALL    WRDATA
    RET

WRDATA:     MOV      LCDDATA,A
        CLR     RW
        SETB       E
           NOP
        NOP
          CLR    E
          NOP
          RET

BUSY:     MOV      LCDDATA,#0FFH
    CLR    DI
        SETB     RW
        SETB    E
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        JB    LCDDATA,$
        NOP
        NOP
        CLR     E
        NOP
        NOP
        NOP
        NOP
        RET




DEL1:      MOV      r6,#0a0h
     MOV      R5,#02EH
DEL:      DJNZ    R5,$
    DJNZ    r6,DEL
           RET

DELAY:   MOV      R4,#12H
    ACALL    DEL1
KEY2:   ACALL    DEL1
        DJNZ    R4,KEY2
        RET
LDATA1:
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,010H,010H,0F8H,000H,000H,000H,000H
DB  000H,070H,008H,008H,008H,088H,070H,000H,000H,070H,088H,008H,008H,088H,070H,000H
DB  000H,0E0H,010H,088H,088H,018H,000H,000H,000H,000H,0C0H,020H,010H,0F8H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,010H,061H,006H,0E0H,018H,084H,0E4H,01CH
DB  084H,065H,0BEH,024H,0A4H,064H,004H,000H,000H,000H,000H,000H,07EH,02AH,02AH,02AH
DB  02AH,02AH,02AH,07EH,000H,000H,000H,000H,010H,0D0H,0FFH,050H,090H,004H,0F4H,054H
DB  05FH,054H,054H,05FH,0F4H,004H,000H,000H,000H,020H,038H,0A7H,062H,018H,000H,0FEH
DB  022H,022H,022H,022H,0FEH,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,000H,020H,020H,03FH,020H,020H,000H,000H
DB  000H,030H,028H,024H,022H,021H,030H,000H,000H,01CH,022H,021H,021H,022H,01CH,000H
DB  000H,00FH,011H,020H,020H,011H,00EH,000H,000H,007H,004H,024H,024H,03FH,024H,000H
DB  000H,000H,000H,000H,000H,000H,000H,000H,004H,004H,0FFH,000H,001H,000H,0FFH,041H
DB  021H,012H,00CH,01BH,061H,0C0H,040H,000H,000H,07FH,025H,025H,025H,025H,07FH,000H
DB  000H,07FH,025H,025H,025H,025H,07FH,000H,003H,000H,0FFH,000H,000H,084H,085H,045H
DB  035H,00FH,015H,025H,065H,0C4H,044H,000H,000H,022H,023H,022H,012H,012H,020H,03FH
DB  022H,022H,022H,022H,03FH,020H,020H,000H,000H,000H,000H,000H,000H,000H,000H,000H
DB  000H,0E0H,010H,008H,008H,010H,0E0H,000H,000H,010H,010H,0F8H,000H,000H,000H,000H
DB  000H,070H,008H,008H,008H,088H,070H,000H,000H,030H,008H,088H,088H,048H,030H,000H
DB  000H,000H,0C0H,020H,010H,0F8H,000H,000H,000H,0F8H,008H,088H,088H,008H,008H,000H
DB  000H,0E0H,010H,088H,088H,018H,000H,000H,000H,038H,008H,008H,0C8H,038H,008H,000H
DB  000H,070H,088H,008H,008H,088H,070H,000H,000H,0E0H,010H,008H,008H,010H,0E0H,000H
DB  000H,000H,0C0H,038H,0E0H,000H,000H,000H,008H,0F8H,088H,088H,088H,070H,000H,000H
DB  0C0H,030H,008H,008H,008H,008H,038H,000H,008H,0F8H,008H,008H,008H,010H,0E0H,000H
DB  008H,0F8H,088H,088H,0E8H,008H,010H,000H,008H,0F8H,088H,088H,0E8H,008H,010H,000H
DB  000H,00FH,010H,020H,020H,010H,00FH,000H,000H,020H,020H,03FH,020H,020H,000H,000H
DB  000H,030H,028H,024H,022H,021H,030H,000H,000H,018H,020H,020H,020H,011H,00EH,000H
DB  000H,007H,004H,024H,024H,03FH,024H,000H,000H,019H,021H,020H,020H,011H,00EH,000H
DB  000H,00FH,011H,020H,020H,011H,00EH,000H,000H,000H,000H,03FH,000H,000H,000H,000H
DB  000H,01CH,022H,021H,021H,022H,01CH,000H,000H,000H,031H,022H,022H,011H,00FH,000H
DB  020H,03CH,023H,002H,002H,027H,038H,020H,020H,03FH,020H,020H,020H,011H,00EH,000H
DB  007H,018H,020H,020H,020H,010H,008H,000H,020H,03FH,020H,020H,020H,010H,00FH,000H
DB  020H,03FH,020H,020H,023H,020H,018H,000H,020H,03FH,020H,000H,003H,000H,000H,000H
DB  0C0H,030H,008H,008H,008H,038H,000H,000H,008H,0F8H,008H,000H,000H,008H,0F8H,008H
DB  000H,008H,008H,0F8H,008H,008H,000H,000H,000H,000H,008H,008H,0F8H,008H,008H,000H
DB  008H,0F8H,088H,0C0H,028H,018H,008H,000H,008H,0F8H,008H,000H,000H,000H,000H,000H
DB  008H,0F8H,0F8H,000H,0F8H,0F8H,008H,000H,008H,0F8H,030H,0C0H,000H,008H,0F8H,008H
DB  0E0H,010H,008H,008H,008H,010H,0E0H,000H,008H,0F8H,008H,008H,008H,008H,0F0H,000H
DB  0E0H,010H,008H,008H,008H,010H,0E0H,000H,008H,0F8H,088H,088H,088H,088H,070H,000H
DB  000H,070H,088H,008H,008H,008H,038H,000H,018H,008H,008H,0F8H,008H,008H,018H,000H
DB  008H,0F8H,008H,000H,000H,008H,0F8H,008H,008H,078H,088H,000H,000H,0C8H,038H,008H
DB  007H,018H,020H,020H,022H,01EH,002H,000H,020H,03FH,021H,001H,001H,021H,03FH,020H
DB  000H,020H,020H,03FH,020H,020H,000H,000H,0C0H,080H,080H,080H,07FH,000H,000H,000H
DB  020H,03FH,020H,001H,026H,038H,020H,000H,020H,03FH,020H,020H,020H,020H,030H,000H
DB  020H,03FH,000H,03FH,000H,03FH,020H,000H,020H,03FH,020H,000H,007H,018H,03FH,000H
DB  00FH,010H,020H,020H,020H,010H,00FH,000H,020H,03FH,021H,001H,001H,001H,000H,000H
DB  00FH,018H,024H,024H,038H,050H,04FH,000H,020H,03FH,020H,000H,003H,00CH,030H,020H
DB  000H,038H,020H,021H,021H,022H,01CH,000H,000H,000H,020H,03FH,020H,000H,000H,000H
DB  000H,01FH,020H,020H,020H,020H,01FH,000H,000H,000H,007H,038H,00EH,001H,000H,000H
DB  0F8H,008H,000H,0F8H,000H,008H,0F8H,000H,008H,018H,068H,080H,080H,068H,018H,008H
DB  008H,038H,0C8H,000H,0C8H,038H,008H,000H,010H,008H,008H,008H,0C8H,038H,008H,000H
DB  000H,000H,080H,080H,080H,080H,000H,000H,008H,0F8H,000H,080H,080H,000H,000H,000H
DB  000H,000H,000H,080H,080H,080H,000H,000H,000H,000H,000H,080H,080H,088H,0F8H,000H
DB  000H,000H,080H,080H,080H,080H,000H,000H,000H,080H,080H,0F0H,088H,088H,088H,018H
DB  000H,000H,080H,080H,080H,080H,080H,000H,008H,0F8H,000H,080H,080H,080H,000H,000H
DB  000H,080H,098H,098H,000H,000H,000H,000H,000H,000H,080H,080H,080H,080H,080H,000H
DB  008H,0F8H,000H,000H,080H,080H,080H,000H,000H,008H,008H,0F8H,000H,000H,000H,000H
DB  003H,03CH,007H,000H,007H,03CH,003H,000H,020H,030H,02CH,003H,003H,02CH,030H,020H
DB  000H,000H,020H,03FH,020H,000H,000H,000H,020H,038H,026H,021H,020H,020H,018H,000H
DB  000H,019H,024H,022H,022H,022H,03FH,020H,000H,03FH,011H,020H,020H,011H,00EH,000H
DB  000H,00EH,011H,020H,020H,020H,011H,000H,000H,00EH,011H,020H,020H,010H,03FH,020H
DB  000H,01FH,022H,022H,022H,022H,013H,000H,000H,020H,020H,03FH,020H,020H,000H,000H
DB  000H,06BH,094H,094H,094H,093H,060H,000H,020H,03FH,021H,000H,000H,020H,03FH,020H
DB  000H,020H,020H,03FH,020H,020H,000H,000H,000H,06BH,094H,094H,094H,093H,060H,000H
DB  020H,03FH,024H,002H,02DH,030H,020H,000H,000H,020H,020H,03FH,020H,020H,000H,000H


END