LCD驅動HT1621的PIC單片機源代碼

更新時間: 2019-03-22

閱讀量：4285

專注單片機方案開發(fā)的深圳英銳恩分享LCD驅動HT1621的PIC單片機源代碼。

STATUS EQU     3H
FSR     EQU     4H
RB      EQU     6H
RC      EQU     7H
OPTIONA EQU     81H
TRISB   EQU     86H
TRISC   EQU     87H

GENR0   EQU     053H
GENR1   EQU     054H
WD_RG   EQU     055H
DA_AG0 EQU     056H      ;SEG0 SEG1
DA_AG8 EQU     05EH      ;SEG16 SEG17
;.............................
C       EQU     0
Z       EQU     2
RP0     EQU     5
RP1     EQU     6
CS      EQU     2
WDA     EQU     5     ;RC,5數(shù)據(jù)線
WCLK    EQU     1     ;RB,1寫時鐘線
RCLK    EQU     4     ;RB,4讀時鐘線
;..............................
ORG     0H
GOTO    START
;...............................
START   BSF     STATUS,RP0
        MOVLW   00H
        MOVWF   TRISB
        MOVLW   81H
        MOVWF   TRISC
        BCF     STATUS,RP0
        MOVLW   12H
        MOVWF   RB
        BSF     RC,2
        BSF     RC,5
        MOVLW   4
        MOVWF   OPTIONA
LOOP    NOP
        CALL X_QUAN
        NOP
        GOTO   LOOP

;............................
X_QUAN
        MOVLW   8H
        CALL    ON_LCD   ;TRANSMIT TH1621 WORK MODE VALUE

        MOVLW   9H       ;顯示9位LCD
        CALL    DIS_DATA

        RETURN
;............................
ON_LCD MOVWF GENR1
        BCF     RC,2
MOVLW 80H ;HI_W3 BITS:100
MOVWF WD_RG
MOVLW 3        ;3位命令100
CALL TRAM_DATA
ON_LCD0 MOVF GENR1,0
CALL ON_VALUE ;查表初始化LCD
MOVWF WD_RG

MOVLW 8        ;送8位查表值
CALL TRAM_DATA

        BCF     RC,WDA
        NOP
        NOP
        BCF     RB,1
        NOP
        NOP
        BSF     RB,1
        BSF     RC,2
DECFSZ GENR1,1
GOTO ON_LCD+1
RETURN
;........................
ON_VALUE
ADDWF 2
        NOP
RETLW 03H ;LCD ON
RETLW 01H ;SYS ON