cpubbs论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

LabVIEW+单片机学习套件全套教程资料下载[免费]LabVIEW论坛精华列表贴USB0816数据采集卡《LabVIEW宝典》
LabWindows/CVI论坛精华贴NET0816以太网数据采集卡RC0210远程设备授权系统 关闭关停锁定打开设备 户外分布式数据采集
NET1624低速高精度以太网数据采集卡WIFI0824SD无线WIFI网络数据采集卡脱机运行 SD存储 小尺寸微型 串口采集远程采集 安卓 手持移动采集 纪录仪
查看: 1574|回复: 0

用89C2051实现高精度Sigma-Delta ADC变化[转]

[复制链接]
发表于 2004-11-6 02:32:53 | 显示全部楼层 |阅读模式

<>--------以上部分请勿修改!-------------
;************************************************
;* Sigma-Delta ADC Version 1.0a *
;* 作者: jimweaver@nbip.net *
;* 测量范围: DC 18V~30V *
;* 最近修改: 2003-12-29 *
;************************************************

NAME SigmaDelta

ADC_CON BIT P3.7 ;RC 充电引脚

ISEG AT 60H ;堆栈起始
Stack: DS 20H ;堆栈大小

CSEG

ORG 0000H
SJMP On_Reset
ORG 0003H ;外部中断 INT0
RETI

ORG 000BH ;TIMER 0 溢出中断
AJMP Timer0Handler

USING 0 ;使用Register bank 0

On_Reset:
MOV SP,#(Stack-1) ;初始化堆栈指针
CLR ADC_CON ;ADC_CON拉低,电容放电
MainLOOP:
ACALL SigmaDeltaADC
ACALL AdjustADC ;对测量值进行软件纠偏
SJMP MainLOOP

;************************************************
;* 名称:SigmaDeltaADC *
;* 功能:测量电池电压 *
;* 参数:无 *
;* 返回:R0R1: 电池电压 *
;* 影响:A,PSW,R0,R1,R6,R7 *
;************************************************
SigmaDeltaADC:
;ADC过程不允许中断,所以要关中断
CLR EA ;屏蔽所有中断
Precharge: ;预充电,令Vc=Vin
SETB ADC_CON
JB P3.6,Precharge
ADC_Start:
;每次转化时间=5000*11us=55ms
CLR A
MOV R0,A ;高字节
MOV R1,A ;低字节
MOV R6,#20 ;5000次ADC采样
ADC_Loop1:
MOV R7,#250
ADC_Loop2:
MOV C,P3.6 ;取比较器输出-&gt;Cy
MOV ADC_CON,C ;若Cy=1,说明Vc<VIN,要把ADC_CON拉高
;若Cy=0,说明Vc&gt;Vin,要把
ADC_CON拉低
;VBatBCD加Cy,统计比较器输出的高电平个数
CLR A ;1C
ADDC A,R1 ;1C,低字节
MOV R1,A ;1C
CLR A ;1C
ADDC A,R0 ;1C,高字节
MOV R0,A ;1C
DJNZ R7,ADC_Loop2 ;循环
DJNZ R6,ADC_Loop1
;ADC 结束
SETB EA ;开放所有中断
CLR ADC_CON ;电容放电,为下一次测量做准

RET

</P><img src="attachments/dvbbs/2004-11/2004115183223245.bmp" border="0" onload="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.alt=\'Click here to open new window\nCTRL+Mouse wheel to zoom in/out\';}" onmouseover="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.style.cursor=\'hand\'; this.alt=\'Click here to open new window\nCTRL+Mouse wheel to zoom in/out\';}" onclick="if(!this.resized) {return true;} else {window.open(\'attachments/dvbbs/2004-11/2004115183223245.bmp\');}" onmousewheel="return imgzoom(this);" alt="" />

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|cpubbs论坛. ( 粤ICP备09171248号 )

GMT+8, 2025-4-4 13:35 , Processed in 0.658276 second(s), 7 queries , Gzip On, File On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表