《匠人手记》推荐网上购书渠道： 互动出版网（china-pub）购书入口   >>> 当当网（dangdang）购书入口   >>> 卓越亚马逊网 购书入口   >>> 淘宝网（taobao）购书入口   >>> 更多购书渠道……   >>>

设为首页｜加入收藏｜联系匠人｜管理入口｜21IC首页｜21IC博客｜21IC社区｜侃单片机｜回复的贴｜参与的贴

[加入团队] [加入Q群] [广告赞助] [交换连接] [代理工具] [免责声明]      匠人的原创栏目：[匠人公告] [匠人文集] [匠人笔记] [写书近况]

天气预报 百宝日历 载入中... 百宝专栏 载入中... 最新货色 载入中... 粉丝评论 载入中... 载入中... 百宝信息 载入中... 百宝流量 （2006-07-01开始） 匠人手记

匠人学习：对PIC芯片ROM中的程序地址精确定位  匠人手记网络版：从零开始玩转PIC 之 旋转时钟  匠人观点： 好记性不如烂笔头    程序宝典：实用c程序、PIC软件串行口实现技巧  设计技巧： 如何阅读别人的代码（目录）  连载专题：程序规划方法漫谈(连载)  用“硬盘音圈电机+三星9454芯片”做的摇摆相框  网络酷文：一个有趣的关于C宏的题目及巧解  黑色幽默：三鹿门——后世畅想  匠人手记：购书攻略、勘误表、书友会、书友Q群  匠人手记： 《匠人手记》重印完成，新版照片 51程序集(1) 程序匠人 发表于 2005-11-28 20:40:00  阅读全文 | 回复(1) | 引用通告 | 编辑  javie 发表于 2005-11-27 12:03 侃单片机 ←返回版面    51程序集 ;片内RAM初始化子程序 IBCLR    :MOV    A,R0           MOV    R1,A           CLR    A IBC1     :MOV    @R1,A           INC    R1           DJNZ   R7,IBC1           RET ;片外RAM初始化子程序 EBCLR1   :MOV    A,ADDPL           MOV    DPL,A           MOV    A,ADDPH           MOV    DPH,A           CLR    C EBC11    :MOVX   @DPTR,A           INC    DPTR           DJNZ   R7,EBC11           RET ;片外RAM初始化子程序(双字节个单元) EBCLR2   :MOV    A,ADDPL           MOV    DPL,A           MOV    A,ADDPH           MOV    DPH,A           MOV    A,R7           JZ     EBC21           INC    R6 EBC21    :CLR    A           MOVX   @DPTR,A           INC    DPTR           DJNZ   R7,EBC21           DJNZ   R6,EBC21           RET ;内部RAM数据复制程序 ;入口    :R0,R7 ;占用资源:A ;堆栈需求:2字节 ;出口    :R1 IBMOV    :MOV    A,R0           ADD    A,R7           MOV    R0,A           MOV    A,R1           ADD    A,R7           MOV    R1,A IBM1     :DEC    R0           DEC    R1           MOV    A,@R0           MOV    @R1,A           DJNZ   R7,IBM1           RET ;外部RAM数据复制程序 ;入口    :ADDPH,ADDPL,R7 ;占用资源:ACC ;堆栈需求:2字节 ;出口    :R0,R1 EBMOV1   :MOV    A,ADDPL           ADD    A,R7           MOV    DPL,A           CLR    A           ADDC   A,ADDPH           MOV    DPH,A           MOV    A,R7           ADD    A,R1           XCH    A,R0           ADDC   A,#00H           MOV    P2,A EBM11    :DEC    R0           CJNE   R0,#0FFH,EBM12           DEC    P2 EBM12    :DEC    DPL           MOV    A,DPL           CJNE   A,#0FFH,EBM13           DEC    DPH EBM13    :MOVX   A,@R0           MOVX   @DPTR,A           DJNZ   R7,EBM11           RET ;外部RAM数据复制程序 ;入口    :ADDPH,ADDPL,R6,R7 ;占用资源:ACC ;堆栈需求:2字节 ;出口    :R0,R1 EBMOV2   :MOV    A,ADDPL           ADD    A,R7           MOV    DPL,A           MOV    A,R6           ADDC   A,ADDPH           MOV    DPH,A           MOV    A,R7           ADD    A,R1           XCH    A,R0           ADDC   A,R6           MOV    P2,A           MOV    A,R7           JZ     EBM21           INC    R6 EBM21    :DEC    R0           CJNE   R0,#0FFH,EBM22           DEC    P2 EBM22    :DEC    DPL           MOV    A,DPL           CJNE   A,#0FFH,EBM23           DEC    DPH EBM23    :MOVX   A,@R0           MOVX   @DPTR,A           DJNZ   R7,EBM21           DJNZ   R6,EBM21           RET ;外部RAM数据复制到内部RAM程序 ;入口    :ADDPH,ADDPL,R7 ;占用资源:ACC ;堆栈需求:2字节 ;出口    :R0 ITEMOV  :MOV    A,ADDPL          ADD    A,R7          MOV    DPL,A          MOV    A,ADDPH          ADDC   A,#00H          MOV    DPH,A          MOV    A,R0          ADD    A,R7          MOV    R0,A ITEM1   :DEC    R0          DEC    DPL          MOV    A,DPL          CJNE   A,#0FFH,ITEM2          DEC    DPH ITEM2   :MOVX   A,@DPTR          MOV    @R0,A          DJNZ   R7,ITEM1          RET   ;限幅滤波程序 ;入口    :A,SDAT,DELTY ;占用资源:B ;堆栈需求:2字节 ;出口    :A JUGFILT  :MOV    B,A           CLR    C           SUBB   A,SDAT           JNC    JUGFT1           CPL    A           INC    A JUGFT1   :SETB   A           SUBB   A,#DELTY           JNC    JUGFT3           MOV    A,SDAT           RET JUGFT3   :MOV    A,B           MOV    SDAT,A              RET ;中位值滤波程序 ;入口    :ADDPH,ADDPL,N ;占用资源:ESELSORT ;堆栈需求:4字节 ;出口    :A MEDFILT  :LCALL  ESELSORT           MOV    A,N           CLR    C           RRC    A           ADD    A,ADDPL           MOV    DPL,A           MOV    A,ADDPH           MOV    DPH,A           JNC    MEDFT1           INC    DPH MEDFT1   :MOVX   A,@DPTR           RET ;N点算术平均滤波 ;入口    :ADDPH,ADDPL,N ;占用资源:B,R3,R4 ;堆栈需求:2字节 ;出口    :A AVFILT   :MOV    A,ADDPL           MOV    DPL,A           MOV    A,ADDPH           MOV    DPH,A           CLR    A           MOV    R3,A           MOV    R4,A           MOV    R7,N AVFT1    :MOVX   A,@DPTR           INC    DPTR           ADD    A,R4           MOV    R4,A           JNC    AVFT2           INC    R3 AVFT2    :DJNZ   R7,AVFT1           MOV    R7,N           MOV    R2,#00H           LCALL  NDIV31           MOV    A,R4           RET ;N点加权平均滤波 ;入口    :ADDPH,ADDPL,N ;占用资源:B,R3,R4 ;堆栈需求:2字节 ;出口    :A QAVFILT  :CLR    A           MOV    R3,A           MOV    R4,A           MOV    R7,N           MOV    P2,ADDPH           MOV    R1,ADDPL           MOV    DPTR,#QAVTAB QAVFT1   :MOVC   A,@A+DPTR           MOV    B,A           MOVX   A,@R1           INC    DPTR           INC    R1           MUL    AB           ADD    A,R4           MOV    R4,A           MOV    A,B           ADDC   A,R3           MOV    R3,A           DJNZ   R7,QAVFT1           MOV    A,R4           JNB    ACC.7,QAVFT2           INC    R3 QAVFT2   :MOV    A,R3           RET QAVTAB   :DB ;一阶加权滞后滤波程序 ;入口    :A,DELTY ;占用资源:B,R3,R4 ;堆栈需求:2字节 ;出口    :A BQFILT   :MOV    B,A           CLR    A           MOV    DPTR,#ABTAB           MOVC   A,@A+DPTR           MUL    AB           MOV    R4,A           MOV    R3,B           MOV    A,#01H           MOVC   A,@A+DPTR           MOV    B,DELTY           MUL    AB           ADD    A,R4           MOV    R4,A           MOV    A,B           ADDC   A,R3           MOV    R3,A           MOV    A,R4           JNB    ACC.7,FT1           INC    R3 FT1      :MOV    A,R3           MOV    DELTY,A           RET BQTAB    :DB     80H,80H   ;双字节取补程序 /(R3R4)=(R3R4) ;入口    :R3,R4 ;占用资源:ACC ;堆栈需求:2字节 ;出口    :R3,R4 CMPT     :MOV    A,R4           CPL    A           ADD    A,#01H           MOV    R4,A           MOV    A,R3           CPL    A           ADDC   A,#00H           MOV    R3,A           RET ;N节取补程序 /([R0])=([R0]) ;入口    :R0,R7 ;占用资源:ACC,B ;堆栈需求:2字节 ;出口    :R0 NCMPTN   :MOV    B,R0           SETB   C NCPT1    :MOV    A,@R0           CPL    A           ADDC   A,#00H           MOV    @R0,A           INC    R0           DJNZ   R7,NCPT1           MOV    R0,B           RET ;双字节无符号数加法程序 (R3R4+R6R7)=(R3R4) ;入口    :R3,R4,R6,R7 ;占用资源:ACC ;堆栈需求:2字节 ;出口    :R3,R4,CF NADD     :MOV    A,R4           ADD    A,R7           MOV    R4,A           MOV    A,R3           ADDC   A,R6           MOV    R3,A           RET ;N字节无符号数加法程序 ([R0]+[R1])=([R0]) ;入口    :R0,R1,R7 ;占用资源:ACC,B ;堆栈需求:2字节 ;出口    :R0,CF NADDN    :MOV    B,R0           CLR    C NADN1    :MOV    A,@R0           ADDC   A,@R1           MOV    @R0,A           INC    R0           INC    R1           DJNZ   R7,NADN1           MOV    R0,B           RET ;双字节无符号数减法程序 (R3R4-R6R7)=(R3R4) ;入口    :R3,R4,R6,R7 ;占用资源:ACC ;堆栈需求:2字节 ;出口    :R3,R4 NSUB     :MOV    A,R4           CLR    C           SUBB   A,R7           MOV    R4,A           MOV    A,R3           SUBB   A,R6           MOV    R3,A           RET ;N字节无符号数减法程序 ([R0]-[R1])=([R0]) ;入口    :R0,R1,R7 ;占用资源:ACC,B ;堆栈需求:2字节 ;出口    :R0,CF NSUBN    :MOV    B,R0           MOV    R7,N           CLR    C NSUBN1   :MOV    A,@R0           SUBB   A,@R1           MOV    @R0,A           INC    R0           INC    R1           DJNZ   R7,NSUBN1           MOV    R0,B           RET ;单字节无符号数乘法程序 (R3R4*R7)=(R2R3R4) ;入口    :R3,R4,R7 ;占用资源:ACC,B ;堆栈需求:2字节 ;出口    :R2,R3,R4 NMUL21   :MOV    A,R4           MOV    B,R7           MUL    AB           MOV    R4,A           MOV    A,B           XCH    A,R3           MOV    B,R7           MUL    AB           ADD    A,R3           MOV    R3,A           CLR    A           ADDC   A,B           MOV    R2,A           CLR    OV           RET ;单字节无符号数乘法程序 (R2R3R4*R7)=(R5R2R3R4) ;入口    :R2,R3,R4,R6,R7 ;占用资源:ACC,B ;堆栈需求:2字节 ;出口    :R5,R2,R3,R4 NMUL31   :MOV    A,R4           MOV    B,R7           MUL    AB           MOV    R4,A           MOV    A,B           XCH    A,R3           MOV    B,R7           MUL    AB           ADD    A,R3           MOV    R3,A           CLR    A           ADDC   A,B           XCH    A,R2           MOV    B,R7           MUL    AB           ADD    A,R2           MOV    R2,A           CLR    A           ADDC   A,B           MOV    R5,A           CLR    OV           RET ;单字节无符号数乘法程序 (R5R2R3R4*R7)=(R7R5R2R3R4) ;入口    :R5,R2,R3,R4,R7 ;占用资源:ACC,B ;堆栈需求:2字节 ;出口    :R7,R5,R2,R3,R4 NMUL41   :MOV    A,R4           MOV    B,R7           MUL    AB           MOV    R4,A           MOV    A,B           XCH    A,R3           MOV    B,R7           MUL    AB           ADD    A,R3           MOV    R3,A           CLR    A           ADDC   A,B           XCH    A,R2           MOV    B,R7           MUL    AB           ADD    A,R2           MOV    R2,A           CLR    A           ADDC   A,B           XCH    A,R5           MOV    B,R7           MUL    AB           ADD    A,R5           MOV    R5,A           CLR    A           ADDC   A,B           MOV    R7,A           CLR    OV           RET ;双字节无符号数乘法程序 (R3R4*R6R7)=(R5R2R3R4) ;入口    :R3,R4,R6,R7 ;占用资源:ACC,B ;堆栈需求:2字节 ;出口    :R5,R2,R3,R4 NMUL22   :MOV    A,R4           MOV    B,R7           MUL    AB           XCH    A,R4           MOV    R5,B           MOV    B,R6           MUL    AB           ADD    A,R5           MOV    R5,A           CLR    A           ADDC   A,B           MOV    R2,A           MOV    A,R3           MOV    B,R7           MUL    AB           ADD    A,R5           MOV    R5,A           MOV    A,B           ADDC   A,R2           MOV    R2,A           CLR    A           ADDC   A,#00H           XCH    A,R3           MOV    B,R6           MUL    AB           ADD    A,R2           MOV    R2,A           MOV    A,B           ADDC   A,R3           XCH    A,R5           MOV    R3,A           CLR    OV           RET ;双字节无符号数乘法程序 (R2R3R4*R6R7)=(R1R5R2R3R4) ;入口    :R2,R3,R4,R6,R7 ;占用资源:ACC,B ;堆栈需求:2字节 ;出口    :R1,R5,R2,R3,R4 NMUL32   :MOV    A,R4           MOV    B,R7           MUL    AB           XCH    A,R4           MOV    R5,B           MOV    B,R6           MUL    AB           ADD    A,R5           MOV    R5,A           CLR    A           ADDC   A,B           MOV    R1,A           MOV    A,R3           MOV    B,R7           MUL    AB           ADD    A,R5           MOV    R5,A           MOV    A,B           ADDC   A,R1           MOV    R1,A           CLR    A           ADDC   A,#00H           XCH    A,R3           MOV    B,R6           MUL    AB           ADD    A,R1           MOV    R1,A           MOV    A,B           ADDC   A,R3           XCH    A,R5           MOV    R3,A           MOV    A,R2           MOV    B,R7           MUL    AB           ADD    A,R1           MOV    R1,A           MOV    A,B           ADDC   A,R5           MOV    R5,A           CLR    A           ADDC   A,#00H           XCH    A,R2           MOV    B,R6           MUL    AB           ADD    A,R5           MOV    R5,A           MOV    A,B           ADDC   A,R2           XCH    A,R1           MOV    R2,A           CLR    OV           RET ;N字节无符号数乘法程序 ([R0]*[R1])=([R0]) ;入口    :R0,R1,M,N ;占用资源:ACC,B,R2,R5,R6,R7,NCNT ;堆栈需求:2字节 ;出口    :R0 NMULMN   :MOV    A,M           ADD    A,R0           MOV    R5,A           XCH    A,R1           XCH    A,R5           ADD    A,N           XCH    A,R0           MOV    R6,A           MOV    B,M           MOV    NCNT,B NMLMN1   :DEC    R0           DEC    R1           CLR    A           XCH    A,@R1           MOV    @R0,A           DJNZ   NCNT,NMLMN1           MOV    NCNT,B NMLMN2   :CLR    A           XCH    A,@R0           MOV    R2,A           MOV    A,R6           MOV    R0,A           MOV    A,R5           MOV    R1,A           MOV    R7,N           CLR    C NMLMN3   :MOV    A,R2           MOV    B,@R1           INC    R1           MUL    AB           ADDC   A,@R0           MOV    @R0,A           INC    R0           MOV    A,B           ADDC   A,@R0           MOV    @R0,A           DJNZ   R7,NMLMN3           INC    R0           INC    R6           DJNZ   NCNT,NMLMN2           MOV    A,R0           CLR    C           SUBB   A,M           SUBB   A,N           MOV    R0,A           RET   看《匠人手记》，与匠人同行！北航出版，正在热卖！ 上一篇：一些实用的单片机c程序 下一篇：51程序集(2) 回复:51程序集(1) 沈(游客)发表评论于2006-4-16 11:22:00  个人主页 | 引用 | 返回 | 删除 | 回复 你这个子程序真好，解了我的大问题，谢谢！！！ 看《匠人手记》，与匠人同行！北航出版，正在热卖！ 发表评论： 昵称： 密码： (游客无须输入密码) 主页： 标题： 载入中... 芯片专题 器件专题 软件专题 硬件专题 综合专题 项目专题 原创专题 EMC Freescale PIC MSP430  AVR ARM 器件检测 LCD LED 按键 触摸键 E2PROM 电池 电机 电阻 电容 电感 指令系统 软件算法 编程规范 滤波算法 串行通讯 PCB设计 I2C PWM 红外遥控 充电技术 中断 ADC  新手入门 项目管理 电磁兼容 低功耗 汽车电子 电子秤 电磁炉 电动车 报警器 匠人手记 匠人夜话 网络心路 一周热点串烧 从零开始玩PIC DIY旋转时钟 广告5号位 [投放] 学习板、开发板、编程器、下载器、仿真器（查看详情……）

广告3号位 [投放] 站内搜索 日志标题日志内容 站外搜索 百度  google mp3  歌词  图片  FLASH  知道  文档 新闻  词典  地图  mp3  软件  天网  雅虎  爱问  搜狗  讯雷  网讯  华军  天空  21IC器件搜索 货源价格资料 百宝箱分站 《匠人的百宝箱》21IC站 《匠人的百宝箱》21IC笔记团队 《匠人手记》21IC书友会 《匠人的百宝箱》MCUBLOG站 《匠人的百宝箱》MCUBLOG笔记团队 《匠人的百宝箱》EDN站 《匠人手记》EDN书友会 《匠人的百宝箱》与非网站 《匠人的百宝箱》新浪站 《匠人的百宝箱》百度站 《匠人的百宝箱》网易126站 《匠人的百宝箱》网易163站 《匠人的百宝箱》互动出版网站 广告4号位 [投放]

匠人原创	往日酷贴
心灵的震撼——写在512地震之后、《戒色》新片发布会(网友聚会恶搞系列)、  两粒电子的爱情、出书的那些日子……、论21ic的论坛文化、续、性格决定命运、  选狼还是选狮子、狮子的结局…、《匠人夜话》27：七年之痒—写在升任21icbbs站长之际、  匠人自制低成本电容式触控板、《21icbbs人物志》续集、上海街头实景、 一阶滤波算法之深入研究、淘书手记、什么是散转程序、《匠人手记》新书艳照、 EDN《匠人手记》签名售书优惠活动开始报名啦！、欢迎加入《匠人手记》EDN书友会、 欢迎加入《匠人手记》书友会Q群、《匠人手记》终稿目录、《匠人手记》封面先睹为快、 IAR-C-FOR-SAM89(三星)中实现位操作、享受一下VIP的待遇，哈哈、 渐明渐暗动态流水灯效果（C源程序）、《匠人手记》购书全攻略、	《匠人的百宝箱》21IC笔记团队、《匠人手记》义拍活动，得款直接捐献灾区、浅谈A/D、 太阳能应用图片集粹1、Keil C动态内存管理机制分析及改进、一种触摸实现方式、 modelsim仿真UART接收功能、关于射频表无法用红外改写时间的问题、 一定要珍惜的十种人、PADS2007安装问题解决方案 、 ：博客，改变的不仅仅是图书 、  C语言宏定义技巧、C语言 条件编译详解、21IC上海2008-04聚会报名进行中。。。、 你的博客还能持续多久（转贴）、 电动车无刷电机控制器软件设计要点（作者:谢渊斌）、

大千八卦	友情连接
新浪新闻： 新浪财经： AK58新闻： 新浪股票： 新浪股票： 证券之星： 行情数据 分时走时图 K线分析 新闻资讯 代码查询 BBS论坛 个股资料	[更多酷站连接]     [欢迎交换连接] [百宝箱之与非门分舵] [电脑圈圈的家当] [IC921的博客] [柔月阁] [八楼的呼吸] [hotpower 的水潭] [xwj的文君阁] [所长的BLOG] [阿摆手记] [电子伙伴] [unaided的笔记] [小飞的笔记] [单片机开发联盟] [网址之家] [好东西网址大全] [美萍中文精选] [数字电视之家] [SMARTCODE电子书斋] [软件开发之窗] [Armoric的笔记] [我爱研发网] [infernal的笔记] [雄鹰的空中加油站] [SunK] [逍遥电子] [ningpanda的博客] [C-Design] [一网见天下] [海边淘沙] [嵌入式365] [水牛的仓库] [股剩是怎样炼成的] [PIC论坛] [ICC AVR开发网] [中国高校自动化网]

!!! 《匠人的百宝箱》 !!!