mgls-240128t液晶点阵显示驱动程序.txt

c51经典子程序代码全集

因要LCM（MGLS-240128T）液晶点阵显示驱动程序（FOR T6963C ASM ）的人较多，又无法上载，故帖出，请指教！ [宁宁] [67次] 01-8-26 下午 11:05:04
 ；LCM（MGLS-240128T）液晶点阵显示驱动程序（FOR T6963C）
TCD    BIT P0.2
TRD    BIT P0.1
TWR   BIT P0.0
DM     EQU 38H
O_Y    EQU 39H
O_X    EQU 40H
COUNT  EQU 41H
ORG 0000H
LJMP MAIN
ORG 0050H
MAIN:    MOV SP,#60H
    LCALL PR3          ;CLEAR RAM
    LCALL PR4
       
    MOV DM,#00H
    MOV O_Y,#00H
    MOV O_X,#00H    
       LCALL WRI_CC
       LCALL DELAY1
       LCALL DELAY1
     
       MOV DM,#01H
    MOV O_Y,#09H
    MOV O_X,#03H    
       LCALL WRI_CC
       MOV DM,#02H
    MOV O_Y,#00H
    MOV O_X,#06H    
       LCALL WRI_CC
       LCALL DELAY1
       LCALL DELAY1
    MOV DM,#03H
    MOV O_Y,#20H
    MOV O_X,#06H    
       LCALL WRI_CC
       LCALL DELAY1
       LCALL DELAY1
          LCALL DELAY1
       LCALL DELAY1
           LCALL DELAY1
       LCALL DELAY1

           AJMP MAIN

PR1:    MOV A,R2
    ACALL PR14
PR11:    MOV A,R3
    ACALL PR14
PR12:    MOV A,R4
    SJMP PR15

PR14:     CLR TCD

PR15:     CLR TWR
    MOV P2,A
    SETB TWR
    SETB TCD
    RET

PR2:    CLR TCD
    ORL P2,#0FFH
    CLR TRD
    MOV A,P2
    MOV P0,#0FFH
    RET

PR3:     MOV R2,#00H                ;clear ram
    MOV R3,#00H
    MOV R4,#24H
    LCALL PR1
    MOV R4,#0B0H
    ACALL PR12
    MOV R2,#1FH
PR31:    MOV R3,#0FFH
    
PR32:    ;CLR A
    mov a,#00h
    ACALL PR14
    DJNZ R3,PR32
    DJNZ R2,PR31
    MOV R4,#0B2H
    ACALL PR12
    RET


PR4:    ;MOV R2,#00H
    ;MOV R3,#00H
    ;MOV R4,#40H
    ;ACALL PR1

    ;MOV R2,#00H
    ;MOV R3,#00H
    ;MOV R4,#41H
    ;LCALL PR1

    MOV R2,#00H
    MOV R3,#08H
    MOV R4,#42H
    LCALL PR1
    
    MOV R2,#20H
    MOV R3,#00H
    MOV R4,#43H
    LCALL PR1
    
    MOV R4,#0A7H
    LCALL PR12
    MOV R4,#80H
    ACALL PR12
    MOV R4,#98H
    ACALL PR12
    RET 
WRI_CC: MOV A,O_Y
        MOV B,#20H
        MUL AB
        ADD A,O_X
        MOV O_X,A
        MOV A,B
        ADDC A,#08H
        MOV O_Y,A
        MOV A,B
        ADDC A,#08H
        MOV O_Y,A

        MOV DPTR,#TAB
        MOV A,DM
        MOV B,#20H
        MUL AB
        ADD A,DPL
        MOV DPL,A
        MOV A,B
        ADDC A,DPH
        MOV DPH,A
        PUSH DPH
        PUSH DPL
        MOV COUNT ,#10H

WRI_CC1:MOV R2,O_X
        MOV R3,O_Y
        MOV R4,#24H
        LCALL PR1
        POP DPL
        POP DPH
        CLR A
        MOVC A,@A+DPTR
        MOV R3,A
        MOV A,#10H
        MOVC A,@A+DPTR
        MOV R2,A
        INC DPTR
        PUSH DPH
        PUSH DPL
        MOV R4,#0C0H
        LCALL PR11
        MOV A,R2
              MOV R3,A
        LCALL PR11
        MOV A,#20H
        ADD A,O_X
        MOV O_X,A
        CLR A
        ADDC A,O_Y
        MOV O_Y,A
        DJNZ COUNT,WRI_CC1
        POP ACC
        POP ACC
        RET

DELAY:    MOV R7,#0FFH
D1:    NOP
D2:    DJNZ R7,D1
    RET

DELAY1:MOV R4,#0FFH
LOP3:ACALL DELAY
DJNZ R4,LOP3
RET
TAB:    

;--  文字:  宁  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  02H,01H,3FH,20H,40H,00H,00H,7FH
DB  01H,01H,01H,01H,01H,01H,05H,02H
DB  00H,04H,0FEH,04H,08H,00H,00H,0FCH
DB  00H,00H,00H,00H,00H,00H,00H,00H

;--  文字:  宁  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  02H,01H,3FH,20H,40H,00H,00H,7FH
DB  01H,01H,01H,01H,01H,01H,05H,02H
DB  00H,04H,0FEH,04H,08H,00H,00H,0FCH
DB  00H,00H,00H,00H,00H,00H,00H,00H

;--  文字:  科  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  06H,78H,08H,08H,0FEH,18H,1CH,2AH
DB  28H,48H,8BH,08H,08H,08H,08H,08H
DB  08H,88H,48H,48H,08H,88H,48H,48H
DB  0EH,78H,88H,08H,08H,08H,08H,08H

;--  文字:  技  --
;--  宋体12;  此字体下对应的点阵为：宽x高=16x16   --
DB  10H,10H,10H,0FDH,10H,14H,19H,31H
DB  0D0H,10H,10H,10H,10H,11H,56H,20H
DB  20H,20H,20H,0FEH,20H,20H,0FCH,08H
DB  88H,90H,60H,60H,90H,0EH,04H,00H

END 

十分感谢！！！ [aeinstein] [1次] 01-8-26 下午 11:19:56 

 
点击这里回复这篇贴子>>
_____________________________________________________________________________
Copyright?，C51BBS论坛 2000-2001