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

LIST P=16f877A #include npl6f877a.inc” ；定义所用单片机的头文件 rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw rjw Count EQU 20H Count 1 EQU21H 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 EQU2AH INC_F1 EQU2BH ORG 000H GOTO START NOP START CALL InitPWM 12 CALL InitADKEY MAIN CALL GetADKEY GOTO MAIN v{ *!， *!， *!， *!， *!， *!， *!， *!， *!， *!， *!， *!， *!， *!， *!， *!， *!， *!， *!， *!， *!， *!， *!， *!， InitADKEY:A/D转换初始化子程序MOVLWMOVWF0X41 InitADKEY :A/D转换初始化子程序 MOVLW MOVWF 0X41 ADCONO 转换器 BSF STATUS,RPO MOVLW 0X02 MOVWF ADCON1 低6位为0” BSF TRISA,0 置RAO为输入方式 ;选择A/D通道为RAO,打开A/D ;AD转换吋钟为FOSC/8 ;转换结左移，及ADRESL寄存器的 ;且把RA0 口设置为模拟量输入方式;设 BCF STATUS,RP0 RETURN GetADKEY ;读取键值处理子程序 BSF ADCONO,GO ;启动AD转换 BTFSC ADCONO,GO ;等待A/D转换结束 GOTO $-1 MOVF ADRESH，W ;读取并存储A/D转换结果 MOVWF ADKEYH ;判断键值1?9,若无键按卜，认为键 值为0 MOVLW 0X31 MOVWF KEYRES KEY1 MOVLW OXCB ;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 DECI GOTO KEYOUT KEY3 INCF KEYRES,F MOVLW 0X8F ;90为S3按卜*对应A/D转换数字量的高 8位 SUBWF ADKEYH,W BTFSS STATUS,C GOTO KEY4 CALL INCI 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按卜*对应A/D转换数字量的高 8位 SUBWF ADKEYH,W BTFSS STATUS,C  GOTO KEY6 CALL DEC2 GOTO KEYOUT KEY6 INCF KEYRES,F MOVLW 0X63 ;64为S6按下对应A/D转换数字量的高 8位 SUBWF ADKEYH’W BTFSS STATUS,C GOTO KEY7 CALL INC2 GOTO KEYOUT KEY7 INCF KEYRES,F MOVLW 0X5A ;5B为S7按下对应A/D转换数字量的 高8位 SUBWF ADKEYH,W BTFSS STATUS,C GOTO KEY8 GOTO KEYOUT KEY8 INCF KEYRES,F MOVLW 0X53 ;54为S8按下对应A/D转换数字量的高8 位 SUBWF ADKEYH’W BTFSS STATUS,C GOTO KEY9 GOTO KEYOUT