基于PIC单片机直流电压表的汇编程序分享

2020-01-15来源: elecfans关键字:PIC单片机  直流电压表  汇编程序

定义用户寄存器

WEI1EQUH’0C’;BIT0=MODS:选择模式位0:模式11:模式2

;BIT1=BREK:断路判别位0:无断路1:有断路

;BIT2=

;BIT3=

;BIT4=

;BIT5=慢响

;BIT6=快响

;BIT7=长响

WEI2EQUH’0D’;“百位值运算”的启始值

基于PIC单片机直流电压表的汇编程序分享
 

WEI3EQUH’0E’;“十位值运算”的启始值

WEI4EQUH’0F’;个位值

WEI5EQUH’10’;百位值

WEI6EQUH’11’;十位值

WEI7EQUH’12’;

WEI8EQUH’13’;

WEI9EQUH’14’;

WEIAEQUH’15’;

WEIBEQUH’16’

WEICEQUH’17’

WEIDEQUH’18’

WEIEEQUH’19’

WEIFEQUH’1A’

WEIGEQUH’1B’

WEIHEQUH’1C’

WEIIEQUH’1D’

CHECKEQUH’7’

DPEQUH’1’

ADEQUH’0’

BUZZEREQUH’3’

REQUH’2’

LEQUH’4’

;************************************************************************

;矢量地址

ORGH’00’;复位矢量

GOTOMAIN

ORGH’04’;中断矢量

NOP

GOTOINTER

;************************************************************************

;数码值

TABLE:

ADDWFPCL,F;

RETLWB’01000000’;“0”值

RETLWB’01111001’;“1”值

RETLWB’00100100’;“2”值

RETLWB’00110000’;“3”值

RETLWB’00011001’;“4”值

RETLWB’00010010’;“5”值

RETLWB’00000010’;“6”值

RETLWB’01011000’;“7”值

RETLWB’00000000’;“8”值

RETLWB’00010000’;“9”值

;------------------------------------------------------------------------

;清除寄存器WEI1-WEIG

MAIN:

CLRFWEI1;

CLRFWEI2;

CLRFWEI3;

CLRFWEI4;

CLRFWEI5;

CLRFWEI6;

CLRFWEI7;

CLRFWEI8;

CLRFWEI9;

CLRFWEIA;

CLRFWEIB;

CLRFWEIC;

CLRFWEID;

CLRFWEIE;

CLRFWEIF;

CLRFWEIG;

CLRFWEIH;

CLRFWEII;

BSFSTATUS,RP0;

BCFOPTION_REG,NOT_RBPU

BCFSTATUS,RP0;

MOV FPORTB,1;

BTFSSPORTB,1;

BSFWEI1,0;

;------------------------------------------------------------------------

;设置A/D通道及A/D结构

BSFSTATUS,RP0;

MOV LWB’00000010’;设置一个“A/D口”

MOV WFADCON1;参考电压:工作电压5V

MOV LWB’10000000’;

MOV WFTRISB;

MOV LWB’00000001’;

MOV WFTRISA;

MOV LWB’10000111’;

MOV WFOPTION_REG;

MOV LWB’10100000’;

MOV WFINTCON;

;-----------------------------------------------------------------------

;设置端口“输入/输出”并设置初始状态

BCFSTATUS,RP0;

MOV LWB’01000000’;设置A/D通道:AN0

MOV WFADCON0;选用内部1:8时钟振荡

MOV LWB’01111111’;

MOV WFPORTB;

MOV LWB’00010110’;

MOV WFPORTA;

MOV LWD’252’;

MOV WFTMR0;设置TMR0初始值

;------------------------------------------------------------------------

;选择模式

BTFSCWEI1,0;判断“模式开关”是否闭合

GOTOMODLE2;“模式开关”闭合,则进入“模式2”

GOTOMODLE1;“模式开关”断开,则进入“模式1”

;------------------------------------------------------------------------

;“模式1”初始化

MODLE1:

MOV FPORTB,1;

BTFSSPORTB,CHECK;判断是否有断路

GOTO$+7;

BSFWEI1,1;

BSFWEI1,6;有断路:蜂鸣器快响并且“无显示”延时3秒

BCFWEI1,5;

BCFWEI1,7;

CALLDELAY3S;无断路:“无显示”延时3秒

GOTOSTART;

CALLDELAY3S;

GOTOSTART;

;------------------------------------------------------------------------

;“模式2”初始化检测数码管各段,蜂鸣器“长响”

MODLE2:

BSFWEI1,0;设置“模式选择位”

BSFWEI1,7;打开蜂鸣器“长响”

BCFWEI1,5;

BCFWEI1,6;

BCFSTATUS,C;设置“进位标志位”

MOV LWB’11111111’;

MOV WFWEI7;

RLFWEI7,F;

MOV FWEI7,W;

MOV WFPORTB;设置“检测数码管段值”给PORT5

BCFPORTA,R;开通“右数码管”

BCFPORTA,L;开通“左数码管”

CALLDELAYP5;

BSFPORTA,R;关闭“右数码管”

BSFPORTA,L;关闭“左数码管”

MOV LWB’11111111’;

MOV WFPORTB;清除给PORT5的“检测数码管段值”

BTFSCWEI7,6;检测是否完毕

GOTO$-D’11’;没有完毕继续检测

BCFPORTA,DP;已完毕设置“小数点”及“1”值

BCFPORTA,R;开通“右数码管”

BCFPORTA,L;开通“左数码管”

CALLDELAYP5;

BSFPORTA,R;关闭“右数码管”

BSFPORTA,L;关闭“左数码管”

BSFPORTA,DP;清除“小数点”及“1”值

BCFWEI1,7;关闭蜂鸣器“长响”

BCFWEI1,6;

BCFWEI1,5;

GOTOSTART;

;------------------------------------------------------------------------

;开始工作

START:

MOV FPORTB,F;

BTFSCPORTB,CHECK;判断是否有断路

GOTODUANLU;有断路

BCFWEI1,1;清0断路判别位

GOTOPANZHI;无断路

;------------------------------------------------------------------------

;断路处理

DUANLU:

BSFWEI1,1;设置断路判别位

BSFWEI1,6;

BCFWEI1,5;

BCFWEI1,7;

GOTOPANZHI;

;------------------------------------------------------------------------

;判断电压值

PANZHI:

BSFADCON0,ADON;A/D处于工作状态

BSFADCON0,GO_DONE;A/D开始运行

BTFSCADCON0,GO_DONE;判A/D是否完成

GOTO$-1;A/D没完成

BCFADCON0,ADIF;

BCFADCON0,ADON;A/D已完成关闭A/D

CALLCV;

MOV FADRES,W;

MOV WFWEI8;

MOV WFWEI2;A/D值传给WEI2

BCFSTATUS,C;清零“进位标志位”

SUBLWD’200’;

BTFSSSTATUS,C

GOTOV_20;跳到“20V以上”程序

MOV FADRES,W

BCFSTATUS,C;清零“进位标志位”

SUBLWD’160’

BTFSSSTATUS,C

GOTOV16;跳到“16V-19.9V之间”程序

MOV FADRES,W

BCFSTATUS,C;清零“进位标志位”

SUBLWD’100’

BTFSSSTATUS,C

GOTOV10;跳到“10V-15.9V之间”程序

MOV FADRES,W

BCFSTATUS,C;清零“进位标志位”

SUBLWD’50’

BTFSSSTATUS,C

GOTOV5;跳到“5V-9.9V之间”程序

GOTOV4.9;跳到4.9V以下程序

;-------------------------------------------------------------------------

V4.9:;4.9V以下数码管显示LL

BTFSCWEI1,1;判断是否有断路

GOTO$+6;

BSFWEI1,7;无断路长响

BCFWEI1,6;

BCFWEI1,5;

CALLLL;

GOTOSTART;

BSFWEI1,6;有断路快响

BCFWEI1,5;

BCFWEI1,7;

CALLLL;

GOTOSTART;

;-------------------------------------------------------------------------

V5:;5V-9.9V之间

BTFSCWEI1,1;判断是否有断路

GOTO$+5;

BSFWEI1,5;无断路慢响

BCFWEI1,6;

BCFWEI1,7;

GOTODISPLAY;

BSFWEI1,6;有断路快响

BCFWEI1,5;

BCFWEI1,7;

GOTODISPLAY;

;-------------------------------------------------------------------------

V10:;10V-15.9V之间

BTFSCWEI1,1;判断是否有断路

GOTO$+5;

BCFWEI1,5;无断路不响

BCFWEI1,6;

BCFWEI1,7;

GOTODISPLAY;

BSFWEI1,6;有断路快响

BCFWEI1,5;

BCFWEI1,7;

GOTODISPLAY;

;-------------------------------------------------------------------------

V16:;16V-19.9V

BSFWEI1,6;快响

BCFWEI1,5;

BCFWEI1,7;

GOTODISPLAY;

;-------------------------------------------------------------------------

V_20:

BTFSCWEI1,1;判断是否有断路

GOTO$+6;

BSFWEI1,7;无断路长响

BCFWEI1,6;

BCFWEI1,5;

CALLHH;

GOTOSTART;

BSFWEI1,6;有断路快响

BCFWEI1,5;

BCFWEI1,7;

CALLHH;

GOTOSTART;

;-------------------------------------------------------------------------

;运算“显示值”

DISPLAY:

NOP;

HUN:

MOV FWEI2,W;

MOV WFWEI3;WEI2-100D的余值传给WEI3作为“十位值运算”的启始值

MOV LWD’100’

BCFSTATUS,C;清零“进位标志位”

SUBWFWEI2,F;WEI2-100D余值传给WEI2

BTFSSSTATUS,C;判WEI2是否大于100D

GOTOTEN;小于100D跳到“十位值运算”处

INCFWEI5,F;大于100DWEI5+1:百位值

GOTOHUN

TEN:

MOV FWEI3,W;

MOV WFWEI4;

MOV LWD’10’;WEI3-10D的余值传给WEI4作为“个位值运算”的启始值

BCFSTATUS,C;清零“进位标志位”

SUBWFWEI3,F;WEI3-10D余值传给WEI3

BTFSSSTATUS,C;判WEI2是否大于10D

GOTONUMB;小于10D跳到“个位值运算”处

INCFWEI6,F;大于10DWEI6+1:十位值

GOTOTEN

;------------------------------------------------------------------------

;显示“十位值”“小数点”

NUMB:

MOV FWEI6,W

CALLTABLE;

MOV WFPORTB;设置“十位值”

BCFPORTA,DP;设置小数点

BCFPORTA,L;打开显示“十位值”

CALLDELAY;

MOV LWB’11111111’;

MOV WFPORTB;清除“十位值”

BSFPORTA,DP;清除小数点

BSFPORTA,L;关闭显示“十位值”

;------------------------------------------------------------------------

;显示“个位值”“百位值”

MOV FWEI4,W

CALLTABLE

MOV WFPORTB;设置“个位值”

BCFSTATUS,Z;清除“零标志位”

CLRW;清除W

IORWFWEI5,W;

BTFSSSTATUS,Z;判有无“百位值”

BCFPORTA,DP;显示“百位值”

BCFPORTA,R;打开显示“个位值”

CALLDELAY;

MOV LWB’11111111’;

MOV WFPORTB;清除“个位值”

BSFPORTA,DP;清除“百位值”

BSFPORTA,R;关闭显示“个位值”

CLRFWEI6;

CLRFWEI5;

GOTOSTART;

;************************************************************************

;延时20MS秒程序

DELAY:

MOV LWD’10’;

MOV WFWEIE;

DELAY1:

MOV LWD’10’;

MOV WFWEIF;

DELAY2:

MOV LWD’10’;

MOV WFWEIG;

DELAY3:

DECFSZWEIG,F;

GOTODELAY3;

DECFSZWEIF,F;

GOTODELAY2;

DECFSZWEIE,F;

GOTODELAY1;

RETURN;

;------------------------------------------------------------------------

;延时0.5秒程序

DELAYP5:

CLRFWEI9;

CLRFWEIA;

BTFSSWEIA,2;

GOTO$-1;

CLRFWEI9;

CLRFWEIA;

RETURN;

;------------------------------------------------------------------------

;延时3秒程序

DELAY3S:

CLRFWEI9;

CLRFWEIA;

BTFSSWEIA,4;

GOTO$-1;

CLRFWEI9;

CLRFWEIA;

RETURN;

;------------------------------------------------------------------------

CV:

BTFSSWEI1,0;

RETURN;

MOV LWB’11100000’;

ANDWFWEI1,W;

BTFSSSTATUS,Z;

RETURN;

MOV FADRES,W;

XORWFWEI8,W;

BTFSSSTATUS,Z;

GOTOCLEAR;

BTFSSWEIA,4;

RETURN;

BSFINTCON,RBIE;使能PORTB引脚电平变化中断

BCFINTCON,GIE;禁止全局中断

BCFINTCON,T0IE;

MOV FPORTB,F;读状态

SLEEP;进入休眠状态

NOP;

CLRFINTCON;

BSFINTCON,GIE;

BSFINTCON,T0IE;

CLRFWEI9;

CLRFWEIA;

RETURN;

CLEAR:

CLRFWEI9;

CLRFWEIA;

RETURN;

;------------------------------------------------------------------------

LL:

MOV LWB’11000111’;

MOV WFPORTB;

BCFPORTA,L;

BCFPORTA,R;

CALLDELAY;

MOV LWB’11111111’;

MOV WFPORTB;

BSFPORTA,L;

BSFPORTA,R;

RETURN

;------------------------------------------------------------------------

HH:

MOV LWB’10001001’;

MOV WFPORTB;

BCFPORTA,L;

BCFPORTA,R;

CALLDELAY;

MOV LWB’11111111’;

MOV WFPORTB;

BSFPORTA,L;

BSFPORTA,R;

RETURN

;************************************************************************

;TMR0中断

INTER:

MOV WFWEIH;W,STATUS压入堆栈

SWAPFSTATUS,W;

MOV WFWEII;

BCFINTCON,T0IF;

MOV LWD’252’;

MOV WFTMR0;设置TMR0初始值

INCFSZWEI9,F;

GOTO$+2;

INCFWEIA,F;

MOV LWB’11100000’;

ANDWFWEI1,W;

BTFSCSTATUS,Z;

GOTOOUT2;

MOV LWB’00001000’;

XORWFPORTA,F;

BTFSSWEI1,6;

GOTO$+D’10’;

INC

[1] [2]
关键字:PIC单片机  直流电压表  汇编程序 编辑:什么鱼 引用地址:http://news.eeworld.com.cn/mcu/ic485765.html 本网站转载的所有的文章、图片、音频视频文件等资料的版权归版权所有人所有,本站采用的非本站原创文章及图片等内容无法一一联系确认版权者。如果本网所选内容的文章作者及编辑认为其作品不宜公开自由传播,或不应无偿使用,请及时通过电子邮件或电话通知我们,以迅速采取适当措施,避免给双方造成不必要的经济损失。

上一篇:PIC单片机的配置字用CONFIG命令的定义
下一篇:PIC单片机中预分频器的作用

关注eeworld公众号 快捷获取更多信息
关注eeworld公众号
快捷获取更多信息
关注eeworld服务号 享受更多官方福利
关注eeworld服务号
享受更多官方福利

推荐阅读

PIC单片机ADC的编程设计
#include__CONFIG(0X1F71);#define uchar unsigned char#define uint unsigned intconst uchar Tab[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f};const uchar Tab1[]={0xbf,0x86,0xdb,0xcf,0xe6,0xed,0xfd,0x87,0xff,0xef};//带小数点的代码 void DisPlay(uchar date1,uchar date2,uchar date3,uchar date4);void DelayMS(uint z){uint
发表于 2020-01-09
PIC单片机ADC的编程设计
PIC单片机实现LCD1602显示字母A
PIC单片机LCD1602显示单个A字程序STATUS EQU 3H ;定义状态寄存器地址PORTA EQU 5H ;定义RA口数据寄存器地址PORTC EQU 7H ;定义RC口数据寄存器地PORTD EQU 8H ;定义RD口数据寄存器地址TRISA EQU 85H ;定义RA口方向控制寄存器地址TRISC EQU 87H ;定义RC口方向控制寄存器地址TRISD EQU 88H ;定义RD口方向控制寄存器地址ADCON1 EQU 9FH ;定义ADC模块控制寄存器1的地址;********************Z EQU 2 ;定义0状态位的位地址RP0 EQU 5 ;定义页选位RP0的位地址
发表于 2020-01-09
PIC单片机实现LCD1602显示字母A
PIC单片机定时器1的实际应用
#define uint unsigned int__CONFIG(0x3B31);void init();uint intnum;void main(){init();while(1){/*if(intnum==20){intnum=0;RD0=!RD0;}*/}#include#define uchar unsigned char#define uint unsigned int__CONFIG(0x3B31);void init();uint intnum;void main(){init();while(1){/*if(intnum==20){intnum=0;RD0=!RD0;}*/}} void init(){
发表于 2020-01-09
PIC单片机定时器1的实际应用
PIC单片机对LED数码管矩阵键盘显示的设计
#include#include “。./head/config.h”__CONFIG(HS&WDTDIS&LVPDIS&PWRTEN);//对熔丝位进行设置单片机LED共阳极段码表(带小数点) 0~9const char table1[]={0X0A,0XFA,0X8C,0XA8,0X78,0X29,0X09,0XBA,0X08,0X28,0x18,0x49,0x0f,0xc8,0x0d,0x1d};数码管位码表const char table[] = {0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80};unsigned int result = 0,lastresult
发表于 2020-01-09
PIC单片机对LED数码管矩阵键盘显示的设计
PIC单片机定时器0的应用
#include#define uchar unsigned char#define uint unsigned int__CONFIG(0x3B31);void init();uint intnum;void main(){init();while(1){if(intnum==5){intnum=0;RD0=!RD0;}}}void init(){TRISD=0;PORTD=0;OPTION=0x07;INTCON=0xa0;TMR0=61;}void interrupt TIme0(){T0IF=0;TMR0=61;intnum++;}
发表于 2020-01-09
PIC单片机定时器0的应用
PIC单片机INT0中断的原理
RB0/INT0、RB1/INT1及RB2/INT2引脚的外部中断是边沿触发的;如果INTCON2 寄存器中相应的INTEDGx位被置1,则为上升沿触发;如果该 INTEDGx 位清零,则为下降沿触发。当RBx/INTx引脚上出现一个有效边沿时,相应标志位 INTxF 被置1 。在重新使能该中断前,必须在中断服务程序中先用软件将标志位INTxF 清零。通过对相应的使能位INTxE 清零,可以禁止该中断。如果INTxE 位在进入休眠状态前被置1 ,则所有的外部中断(INT0、INT1 及INT2)能把处理器从休眠状态中唤醒。如果全局中断使能位 GIE 被置1 ,则处理器将在唤醒之后转移到中断向量。INT1 和INT2 的中断
发表于 2020-01-09
PIC单片机INT0中断的原理
小广播
何立民专栏 单片机及嵌入式宝典

北京航空航天大学教授,20余年来致力于单片机与嵌入式系统推广工作。

电子工程世界版权所有 京ICP证060456号 京ICP备10001474号 电信业务审批[2006]字第258号函 京公海网安备110108001534 Copyright © 2005-2020 EEWORLD.com.cn, Inc. All rights reserved