EM78P447+1621的程序

只看该作者 · 2008-7-2 09:35

程序如下:
可以测试到1621的BZ脚输出的是2KHZ的方法,其它脚无反应,请大家给点建议
DISPLAY:
        BC      CS_HT1621      ;CS=0
        CALL    YSA            ;延时
        BS      CS_HT1621      ;CS=1
        CALL    YSA
        BC      CS_HT1621      ;CS=0
        CALL    YSA

        MOV     A,@0X80        ;初始化
        CALL    SEND_BIT3_COMMAND  ;发送100 ,命令模式
        MOV     A,@0B00011000   ;SYSTEM RC 256K
        CALL    SEND_BYTE_COMMAND

        MOV     A,@0B00101001   ;BIAS 1/3 4 COMMONS
        CALL    SEND_BYTE_COMMAND

        MOV     A,@0B00000001   ;SYS EN
        CALL    SEND_BYTE_COMMAND

        MOV     A,@0B00001001   ;TONE ON
        CALL    SEND_BYTE_COMMAND

        MOV     A,@0B01100000   ;TONE 2K
        CALL    SEND_BYTE_COMMAND

        MOV     A,@0B00000011   ;LCD ON
        CALL    SEND_BYTE_COMMAND

        BS      CS_HT1621
;***************************************************************
HT1621_CLR:
        BC      CS_HT1621
        MOV     A,@0XA0
        CALL    SEND_BIT3_COMMAND  ;发送101 ,写模式

        MOV     A,@0X00
        CALL    SEND_1621ADDRESS   ;发送6位地址

        MOV     A,@0X10
        MOV     FORLOOP,A
HT1621_CLR_LOOP1:
        MOV     A,@0XFF            ;全写1
        CALL    SNED_WRITE_DATA
        DJZ     FORLOOP
        JMP     HT1621_CLR_LOOP1
        BS      CS_HT1621
        NOP
        RET
;******************************************************************
SEND_BIT3_COMMAND:
        MOV     XS2,A
        MOV     A,@0X03
        MOV     XS1,A
        JMP     SEND_TO_1621
SEND_BYTE_COMMAND:
        MOV     XS2,A
        MOV     A,@0X09
        MOV     XS1,A
        JMP     SEND_TO_1621
SEND_1621ADDRESS:
        MOV     XS2,A
        MOV     A,@0X06
        MOV     XS1,A
        JMP     SEND_TO_1621
SNED_WRITE_DATA:
        MOV     XS2,A
        MOV     A,@0X08
        MOV     XS1,A
        JMP     SEND_TO_1621
;******************************************************************
SEND_TO_1621:
        BC      PORT5,1    ;WR=0
        JBS     XS2,7
        JMP     DATA_0
        BS      PORT5,0    ;DATA=1
        JMP     DATA_1
DATA_0:
        BC      PORT5,0    ;DATA=0
DATA_1:
        CALL    YSA
        BS      PORT5,1    ;WR=1
        CALL    YSA
        RLC     XS2
        DJZ     XS1
        JMP     SEND_TO_1621
        RET
;***************************************************************
YSA:
        MOV     A,@3       ;NOP for 3 times
        MOV     XS3,A
LOP1:
        NOP
        DJZ     XS3
        JMP     LOP1
        RET