你的位置:首页 > 微处理器 > 51单片机 > 51单片机 > PIC > 正文
LCD驱动HT1621的PIC单片机源代码
来源: 作者: 2005/9/26 0:00:00 人气:355
内容导读:
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数据线
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

RETLW 08H ;TONE OFF
RETLW 29H ;BISA1/3  4 COM      
RETLW 18H ;256K            
RETLW 05H ;WDT DISABLE

RETLW 80H ;/IRQ DISABLE  *
RETLW 0E3H ;NORMAL MODE   *

;................................
;TRANSMIT BITS SUBROUTINE
TRAM_DATA
        BCF     STATUS,0     
MOVWF GENR0       
BCF RB,1        
RLF WD_RG        
BTFSS 3,0
GOTO $+3
BSF RC,WDA
GOTO $+2
BCF RC,WDA
                   
BSF RB,1       
DECFSZ GENR0,1
GOTO TRAM_DATA+2
              
RETURN
;.......................
DIS_DATA       
MOVWF GENR1   ;9位LCD
        BCF     RC,2
MOVLW 0A0H
MOVWF WD_RG ;WRITE CONTROL

MOVLW 3H      ;3位写命令101
CALL TRAM_DATA       
MOVLW 00
MOVWF WD_RG ;WRITE ADDRESS
MOVLW 6H      ;6位地址  
CALL TRAM_DATA ;              
DIS_DATA0

MOVLW 0FFH
MOVWF WD_RG ;DISPLAY CODE

MOVLW 8       ;8段数据
CALL TRAM_DATA

DECFSZ GENR1,1
GOTO DIS_DATA0
        BSF     RC,2
RETLW 0
        END
标签:
商品推荐



相关文章
阅读排行
最近更新
推荐阅读