PIC16C711 直流电压表汇编程序

定义用户寄存器
WEI1EQUH’0C’;BIT0=MODS:选择模式位0:模式11:模式2
;BIT1=BREK:断路判别位0:无断路1:有断路
;BIT2=
;BIT3=
;BIT4=
;BIT5=慢响
;BIT6=快响
;BIT7=长响
WEI2EQUH’0D’;“百位值运算”的启始值

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’;
INCFSZWEIB,F;
GOTOOUT;
BCFPORTA,BUZZER;
BSFSTATUS,RP0;
MOV FTRISA,W;
XORLWB’00001000’;
MOV WFTRISA;
BCFSTATUS,RP0;
GOTOOUT;
;------------------------------------------------------------------------
BTFSSWEI1,5;
GOTOOUT1;
INCFSZWEIC,F;
GOTOOUT;
INCFWEID,F;
BTFSSWEID,2;
GOTOOUT;
CLRFWEIC;
CLRFWEID;
BCFPORTA,BUZZER;
BSFSTATUS,RP0;
MOV FTRISA,W;
XORLWB’00001000’;
MOV WFTRISA;
BCFSTATUS,RP0;
GOTOOUT;
OUT1:
BSFSTATUS,RP0;
MOV FTRISA,W;
ANDLWB’11110111’;
MOV WFTRISA;
BCFSTATUS,RP0;
GOTOOUT;
OUT2:
BCFPORTA,BUZZER;
OUT:
SWAPFWEII,W;W，STATUS弹出堆栈
MOV WFSTATUS;
SWAPFWEIH,F;
SWAPFWEIH,W;
RETFIE;允许中断并返回
END