1601驱动程序包.txt

LCD1601驱动程序包

1601 LCM DEMO: 
               RS         BIT         P2.7
               R_W        BIT         P2.6
               E          BIT         P2.5
               DBUS       EQU         P0
               ORG        0000H
               AJMP       MAIN
               ORG        0030H
MAIN:          MOV        SP,         #68H
               NOP
INT1601:       LCALL      DELAY
               LCALL      DELAY
               LCALL      DELAY
               LCALL      DELAY
               MOV        R0,         #38H
               LCALL      W_COM
               LCALL      DELAY
               MOV        R0,         #38H
               LCALL      W_COM
               MOV        R0,         #06H
               LCALL      W_COM
               MOV        R0,         #0FH
               LCALL      W_COM
               MOV        R0,         #01H
               LCALL      W_COM

               MOV        DPTR,       #TAB1
               LCALL      W_1601
               LCALL      DELAY
               MOV        DPTR,       #TAB2
               LCALL      W_1601
               LCALL      DELAY
               MOV        DPTR,       #TAB3
               LCALL      W_1601
               LCALL      DELAY
               MOV        DPTR,       #TAB4
               LCALL      W_1601
               LCALL      DELAY
               MOV        DPTR,       #TAB5
               LCALL      W_1601
               LCALL      DELAY
               SJMP       $

W_1601:        MOV        R1,         #8
               MOV        R0,         #80H
               LCALL      W_COM         
LOOPD1:        CLR        A
               MOVC       A,          @A+DPTR
               INC        DPTR
               MOV        R0,         A
               LCALL      W_DAT
               DJNZ       R1,         LOOPD1
               MOV        R1,         #8
               MOV        R0,         #0C0H
               LCALL      W_COM
LOOPD2:        CLR        A
               MOVC       A,          @A+DPTR
               INC        DPTR
               MOV        R0,         A
               LCALL      W_DAT
               DJNZ       R1,         #LOOPD2
               MOV        R1,         #8
               LCALL      DELAY
               LCALL      DELAY
               LCALL      DELAY
               LCALL      DELAY
                          RET

W_COM:         NOP 
               NOP 
               NOP
               MOV        DBUS,       R0
               CLR        RS
               CLR        R_W
               SETB       E
               RET

W_DAT:         NOP     
               NOP
               NOP 
               MOV        DBUS,        R0
               SETB       RS
               CLR        R_W
               SETB       E
               NOP 
               CLR        E
               RET

DELAY:         MOV        R7,          #0
TMO2:          MOV        R6,          #0
TMO1:          NOP
               DJNZ       R6,          TMO1
               DJNZ       R7,          TMO2                      
                          RET

TAB0:          "W"
TAB1:          "E"
TAB2:          
                             
               






                END