PIC单片机两路PWM输出程序.docVIP

LIST P=16f877A #include p16f877a.inc ;定义所用单片机的头文件 ;******************************************************************************* ;************************************ Count EQU 20H Count1 EQU 21H Count2 EQU 22H KEYRES EQU 23H ADKEYH EQU 24H L_R EQU 25H DLY1 EQU 26H DLY2 EQU 27H CNT EQU 28H INC_F EQU 29H CNT1 EQU 2AH INC_F1 EQU 2BH ORG 000H GOTO START NOP START CALL InitPWM12 CALL InitADKEY MAIN CALL GetADKEY GOTO MAIN ;************************************ InitADKEY ;A/D 转换初始化子程序 MOVLW 0X41 MOVWF ADCON0 ;选择 A/D 通道为 RA0，打开 A/D 转换器 ;AD 转换时钟为 FOSC/8 BSF STATUS,RP0 MOVLW 0X02 MOVWF ADCON1 ;转换结左移，及 ADRESL寄存器的低6 位为0 BSF TRISA,0 ;且把 RA0 口设置为模拟量输入方式;设置 RA0 为输入方式 BCF STATUS,RP0 RETURN ;************************************ GetADKEY ;读取键值处理子程序 BSF ADCON0,GO ;启动AD转换 BTFSC ADCON0,GO ;等待A/D转换结束 GOTO $-1 MOVF ADRESH,W ;读取并存储A/D 转换结果 MOVWF ADKEYH ;判断键值1~9,若无键按下,认为键值为0 MOVLW 0X31 ; MOVWF KEYRES KEY1 MOVLW 0XCB ;CC为S1按下对应A/D转换数字量的高8位 SUBWF ADKEYH,W ;比较阈值设为CB可增强抗干扰能力 BTFSS STATUS,C ;采用逐键比较判断 GOTO KEY2 GOTO KEYOUT KEY2 INCF KEYRES,F MOVLW 0XA8 ;A9为S2按下对应A/D转换数字量的高8位 SUBWF ADKEYH,W BTFSS STATUS,C GOTO KEY3 CALL DEC1 GOTO KEYOUT KEY3 INCF KEYRES,F MOVLW 0X8F ;90为S3按下对应A/D转换数字量的高8位 SUBWF ADKEYH,W BTFSS STATUS,C GOTO KEY4 CALL INC1 GOTO KEYOUT KEY4 INCF KEYRES,F MOVLW 0X7D ;7E为S4按下对应A/D转换数字量的高8位 SUBWF ADKEYH,W BTFSS STATUS,C GOTO KEY5 GOTO KEYOUT KEY5 INCF KEYRES,F MOVLW 0X6F ;70为S5