lcd驱动ht1621的pic单片机源代码源程序.htm

本篇文章主要讲述LCD驱动HT1621的PIC单片机源代码,希望对广大的电子爱好者能提供帮助

            <P>GENR0&nbsp;&nbsp; EQU&nbsp;&nbsp;&nbsp;&nbsp; 
            053H<BR>GENR1&nbsp;&nbsp; EQU&nbsp;&nbsp;&nbsp;&nbsp; 
            054H<BR>WD_RG&nbsp;&nbsp; EQU&nbsp;&nbsp;&nbsp;&nbsp; 
            055H<BR>DA_AG0&nbsp; EQU&nbsp;&nbsp;&nbsp;&nbsp; 
            056H&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;SEG0 SEG1<BR>DA_AG8&nbsp; 
            EQU&nbsp;&nbsp;&nbsp;&nbsp; 05EH&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            ;SEG16 
            SEG17<BR>;.............................<BR>C&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            EQU&nbsp;&nbsp;&nbsp;&nbsp; 
            0<BR>Z&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            EQU&nbsp;&nbsp;&nbsp;&nbsp; 2<BR>RP0&nbsp;&nbsp;&nbsp;&nbsp; 
            EQU&nbsp;&nbsp;&nbsp;&nbsp; 5<BR>RP1&nbsp;&nbsp;&nbsp;&nbsp; 
            EQU&nbsp;&nbsp;&nbsp;&nbsp; 6 <BR>CS&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            EQU&nbsp;&nbsp;&nbsp;&nbsp; 2&nbsp;&nbsp;&nbsp; 
            <BR>WDA&nbsp;&nbsp;&nbsp;&nbsp; EQU&nbsp;&nbsp;&nbsp;&nbsp; 
            5&nbsp;&nbsp;&nbsp;&nbsp; ;RC,5数据线<BR>WCLK&nbsp;&nbsp;&nbsp; 
            EQU&nbsp;&nbsp;&nbsp;&nbsp; 1&nbsp;&nbsp;&nbsp;&nbsp; 
            ;RB,1写时钟线<BR>RCLK&nbsp;&nbsp;&nbsp; EQU&nbsp;&nbsp;&nbsp;&nbsp; 
            4&nbsp;&nbsp;&nbsp;&nbsp; 
            ;RB,4读时钟线<BR>;..............................<BR>&nbsp;ORG&nbsp;&nbsp;&nbsp;&nbsp; 
            0H<BR>&nbsp;GOTO&nbsp;&nbsp;&nbsp; 
            START<BR>;...............................<BR>START&nbsp;&nbsp; 
            BSF&nbsp;&nbsp;&nbsp;&nbsp; 
            STATUS,RP0<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            MOVLW&nbsp;&nbsp; 00H<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            MOVWF&nbsp;&nbsp; 
            TRISB<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            MOVLW&nbsp;&nbsp; 81H<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            MOVWF&nbsp;&nbsp; 
            TRISC<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            BCF&nbsp;&nbsp;&nbsp;&nbsp; 
            STATUS,RP0<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            MOVLW&nbsp;&nbsp; 12H<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            MOVWF&nbsp;&nbsp; RB<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            BSF&nbsp;&nbsp;&nbsp;&nbsp; 
            RC,2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            BSF&nbsp;&nbsp;&nbsp;&nbsp; 
            RC,5<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MOVLW&nbsp;&nbsp; 
            4<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MOVWF&nbsp;&nbsp; 
            OPTIONA<BR>LOOP&nbsp;&nbsp;&nbsp; 
            NOP<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CALL&nbsp; 
            X_QUAN<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            NOP<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GOTO&nbsp;&nbsp; 
            LOOP</P>
            <P>;............................<BR>X_QUAN&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MOVLW&nbsp;&nbsp; 
            8H&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            CALL&nbsp;&nbsp;&nbsp; ON_LCD&nbsp;&nbsp; ;TRANSMIT TH1621 WORK MODE 
            VALUE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MOVLW&nbsp;&nbsp; 
            9H&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;显示9位LCD&nbsp; 
            <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            CALL&nbsp;&nbsp;&nbsp; DIS_DATA 
            <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            RETURN<BR>;............................<BR>ON_LCD 
            &nbsp;MOVWF&nbsp;GENR1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            BCF&nbsp;&nbsp;&nbsp;&nbsp; RC,2 <BR>&nbsp;MOVLW&nbsp;80H&nbsp; 
            ;HI_W3 
            BITS:100<BR>&nbsp;MOVWF&nbsp;WD_RG&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;MOVLW&nbsp;3&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            ;3位命令100<BR>&nbsp;CALL&nbsp;TRAM_DATA&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>ON_LCD0&nbsp;MOVF&nbsp;GENR1,0<BR>&nbsp;CALL&nbsp;ON_VALUE 
            ;查表初始化LCD<BR>&nbsp;MOVWF&nbsp;WD_RG</P>
            <P>&nbsp;MOVLW&nbsp;8&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            ;送8位查表值<BR>&nbsp;CALL&nbsp;TRAM_DATA<BR>&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            BCF&nbsp;&nbsp;&nbsp;&nbsp; 
            RC,WDA<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            NOP<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            NOP<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            BCF&nbsp;&nbsp;&nbsp;&nbsp; 
            RB,1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            NOP<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            NOP<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            BSF&nbsp;&nbsp;&nbsp;&nbsp; 
            RB,1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            BSF&nbsp;&nbsp;&nbsp;&nbsp; RC,2 
            <BR>&nbsp;DECFSZ&nbsp;GENR1,1<BR>&nbsp;GOTO&nbsp;ON_LCD+1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;RETURN<BR>;........................<BR>ON_VALUE<BR>&nbsp;ADDWF&nbsp;2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            NOP<BR>&nbsp;RETLW&nbsp;03H&nbsp;;LCD 
            ON<BR>&nbsp;RETLW&nbsp;01H&nbsp;;SYS ON</P>
            <P>&nbsp;RETLW&nbsp;08H&nbsp;;TONE 
            OFF<BR>&nbsp;RETLW&nbsp;29H&nbsp;;BISA1/3&nbsp; 4 
            COM&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;RETLW&nbsp;18H&nbsp;;256K&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;RETLW&nbsp;05H&nbsp;;WDT DISABLE</P>
            <P>&nbsp;RETLW&nbsp;80H&nbsp;;/IRQ DISABLE&nbsp; 
            *<BR>&nbsp;RETLW&nbsp;0E3H&nbsp;;NORMAL MODE&nbsp;&nbsp; *</P>
            <P>;................................<BR>;TRANSMIT BITS 
            SUBROUTINE<BR>TRAM_DATA 
            <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            BCF&nbsp;&nbsp;&nbsp;&nbsp; STATUS,0&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;MOVWF&nbsp;GENR0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;BCF&nbsp;RB,1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;RLF&nbsp;WD_RG&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;BTFSS&nbsp;3,0<BR>&nbsp;GOTO&nbsp;$+3<BR>&nbsp;BSF&nbsp;RC,WDA<BR>&nbsp;GOTO&nbsp;$+2<BR>&nbsp;BCF&nbsp;RC,WDA<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;BSF&nbsp;RB,1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;DECFSZ&nbsp;GENR0,1<BR>&nbsp;GOTO&nbsp;TRAM_DATA+2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;RETURN<BR>;.......................<BR>DIS_DATA&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;MOVWF&nbsp;GENR1&nbsp;&nbsp; 
            ;9位LCD<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            BCF&nbsp;&nbsp;&nbsp;&nbsp; RC,2 
            <BR>&nbsp;MOVLW&nbsp;0A0H<BR>&nbsp;MOVWF&nbsp;WD_RG&nbsp;;WRITE 
            CONTROL</P>
            <P>&nbsp;MOVLW&nbsp;3H&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            ;3位写命令101<BR>&nbsp;CALL&nbsp;TRAM_DATA&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>&nbsp;MOVLW&nbsp;00<BR>&nbsp;MOVWF&nbsp;WD_RG&nbsp;;WRITE 
            ADDRESS<BR>&nbsp;MOVLW&nbsp;6H&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            ;6位地址&nbsp; <BR>&nbsp;CALL&nbsp;TRAM_DATA 
            ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <BR>DIS_DATA0<BR>&nbsp;<BR>&nbsp;MOVLW&nbsp;0FFH<BR>&nbsp;MOVWF&nbsp;WD_RG&nbsp;;DISPLAY 
            CODE</P>
            <P>&nbsp;MOVLW&nbsp;8&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            ;8段数据<BR>&nbsp;CALL&nbsp;TRAM_DATA</P>
            <P>&nbsp;DECFSZ&nbsp;GENR1,1&nbsp;<BR>&nbsp;GOTO&nbsp;DIS_DATA0<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            BSF&nbsp;&nbsp;&nbsp;&nbsp; RC,2 
            <BR>&nbsp;RETLW&nbsp;0<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            END&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            </P>
            <P>;<B>PIC单片机</B> <A 
            href="http://www.pic16.com/">http://www.pic16.com/</A> 
        </P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></BODY></HTML>