PIC实验程序.docVIP

AD_SY LIST P=16F946 INCLUDE P16F946.INC ORG 0000H CALL AD_INIT LOOP NOP BANKSEL PORTD BSF ADCON0,NOT_DONE ;启动AD转换 CALL DELAY0 ;BCF PIR1,ADIF ;清楚AD转换标志位 MOVF ADRESH,W ;将AD转换的结果送给D MOVWF PORTD CALL DELAY GOTO LOOP ;------------------------------------------;AD模块初始化;------------------------------------------ AD_INIT NOP BANKSEL PIE1 CLRF INTCON CLRF PIE1 ;关闭所有中断 BANKSEL PIR1 BCF PIR1,ADIF ;清除AD转换标志位 NOP BANKSEL PORTD ;端口RD初始化 CLRF PORTD BCF PORTE,2 ;RE2口清零 MOVLW ;左对齐，电源电压作参考电压，允许AD转换，信道RE2（与PIC16F877对照） MOVWF ADCON0 MOVLW MOVWF ANSEL ;新增寄存器ANSEL，信道RE2模拟输入口，（与PIC16F877对照） BANKSEL TRISD ;RD的方向 CLRF TRISD MOVLW MOVWF TRISE ;RE2口输入 MOVLW ;时钟选择fosc/64（与PIC16F877对照） MOVWF ADCON1 ;MOVLW ;RA0位模拟量，其他转换器引脚为数字量 ;MOVWF ADCON1 RETURN ;------------------------------------------;延时子程序;------------------------------------------ DELAY MOVLW 0DH ;外循环常数 MOVWF 20H ;外循环寄存器 XLP1 MOVLW 0FFH ;内循环常数 MOVWF 21H ;内循环寄存器 XLP2 DECFSZ 21H ;内循环寄存器递减 GOTO XLP2 ;未到继续内循环 DECFSZ 20H ;外循环寄存器递减 GOTO XLP1 ;未到继续外循环 RETURN ;------------------------------------------;延时子程序;------------------------------------------ DELAY0 NOP ; 短暂延时 MOVLW 0FFH ;循环常数 MOVWF 22H ;循环寄存器 XLP3 NOP DECFSZ 22H ;循环寄存器递减 GOTO XLP3 ;未到继续循环 NOP RETURN ;------------------------------------------;延时子程序;------------------------------------------ END EINT_SY ;************************************