网购万年历数码管显示不全可以买家退货不全吗
点击联系发帖人
时间：2016-12-14 21:26
查看: 6006|回复: 11
论坛朋友需要的数码管万年历源程序及带仿真供下载
无标题.jpg (106.15 KB, 下载次数: 116)
10:11 上传
(56.01 KB, 下载次数: 1739)
10:11 上传
点击文件名下载附件
很久前在网上搜集的，不是我写的 。
再来一个，也是网友写的
截图00.png (24.1 KB, 下载次数: 81)
10:13 上传
(97.79 KB, 下载次数: 1421)
10:13 上传
点击文件名下载附件
谢谢 ,第一个只要时间功能就行了,呵呵
试了,这个数码管是共阴的,想要共阳的,呵呵
这有一个也是共阴的,怎样改共阳?
10:31 上传
点击文件名下载附件
42.71 KB, 下载次数: 1050
数码管的驱动，以共阳为例，在51电路里面，公共极要用一个9012三极管驱动，三极管的C接一位数码的公共极，显示段码都是低电平有效，可用51管脚直接驱动。
共阴的，是公共阴极，驱动段码则是电平有效。
二者的程序相同，显示段码电平相反，位选电平相反（公共极），修改程序很容易，建议楼主静下心来看一看。
注意：51的I/O口，用于下拉驱动（低电平驱动，灌电流驱动）有较强的驱动能力；如果用它输出高电平来带负载，就不行了，手册上有说明
这个不适用
我需要4位LED轮流显示的，用3个键调整的，不带1302的和带1302的2种方案。
回复 6# ly0902 的帖子
改段码表就行了,unsigned char code dispcode[]={0x3F,0x06,0x5B,0x4F,0x66,0x6D,0x7D,0x07,0x7F,0x6F,0x40}
后面部分改成{0x28,0x7e,0xa2,0x62,0x74,0x61,0x21,0x7a,0x20,0x60}
这个好像也不行，和线路有关。不行你得自己编了，注意低位放在后面，低电平有效。
电路图有清楚点的吗？看不太清
楼上要哪一个的电路图？我给你抓屏一个
下载文件里面其实有的。
微信：caoyin513 QQ: E-mail：
Powered by查看: 7132|回复: 27
[原创]做了个超小的多功能LED数码管万年历:15位数码管显示年月日时分星期温度
高级会员, 积分 1022, 距离下一级还需 3978 积分
主题帖子积分精华0
阅读权限30
贴片的QFP封装的89C52单片机+DS1302时钟芯片+DS18B20温度传感器组成的万年历。
面板我是用不干胶纸打印的，然后挖几个洞洞让数码管露出来，上面罩个亚克力板，效果还不错。
可以显示阳历日期和农历日期，每5秒自动切换显示，带温度显示，带一组闹钟响铃，功能算全了。
最终效果图：
先把数码管放上试下
打印下数字比较下位置
打样的PCB板
背面单片机
除了数码管，其他都焊上了
插电试下效果
打印个面板罩上
本帖子中包含更多资源
才可以下载或查看，没有帐号？
黄金会员, 积分 7199, 距离下一级还需 2801 积分
主题帖子积分精华0
阅读权限40
PCB板电路板不错，有多吗，出块玩玩。
黄金会员, 积分 6379, 距离下一级还需 3621 积分
主题帖子积分精华0
阅读权限40
可以上套件
黄金会员, 积分 7261, 距离下一级还需 2739 积分
主题帖子积分精华0
阅读权限40
看见数码管下的小黑了
钻石会员, 积分 18110, 距离下一级还需 31890 积分
主题帖子积分精华0
阅读权限50
学习到了新思路。直接用整块亚克力板盖上，然后打印一张纸贴上完事。
高级会员, 积分 4857, 距离下一级还需 143 积分
主题帖子积分精华0
阅读权限30
这位哥的手艺是真是棒。
钻石会员, 积分 23492, 距离下一级还需 26508 积分
主题帖子积分精华0
阅读权限50
这手工，俺自叹不如呐，
主题帖子积分精华0
阅读权限30
精度高吗？如果高可以产量了。
高级会员, 积分 1022, 距离下一级还需 3978 积分
主题帖子积分精华0
阅读权限30
PCB板电路板不错，有多吗，出块玩玩。
yanxl 发表于
这次打样了10块，已经用掉了2块，还有几张，需要的话可以PM或QQ我，打算程序调试好之后带回家放在老家给爸妈用，程序还在调试中。
高级会员, 积分 1022, 距离下一级还需 3978 积分
主题帖子积分精华0
阅读权限30
可以上套件
<font color="#10sun 发表于
用到的元件都是常用的，除了单片机是贴片的，其他的配件玩电子的应该大部分都有，而且我设计的时候为了方便焊接，大部分都是直插的，上面用到的几个电阻，特意改成既可以用直插的也可以用贴片的，这样方便找配件。
高级会员, 积分 1022, 距离下一级还需 3978 积分
主题帖子积分精华0
阅读权限30
看见数码管下的小黑了
liuchengliaaa 发表于
现在的小黑做得没以前好了，硬盘和屏幕都不行。。。
高级会员, 积分 1022, 距离下一级还需 3978 积分
主题帖子积分精华0
阅读权限30
学习到了新思路。直接用整块亚克力板盖上，然后打印一张纸贴上完事。
chjj0 发表于
还不是为了节省成本，把能利用的都利用上，呵呵。
& & 做个壳子也要不少钱，而且现在还在测试中，没必要去定制壳子。
高级会员, 积分 1022, 距离下一级还需 3978 积分
主题帖子积分精华0
阅读权限30
精度高吗？如果高可以产量了。
jatn112 发表于
还行吧，日常使用足够了，最主要的可以通过单片机写程序来校准的。
时间准不准主要看DS1302，DS1302精度主要看32.768K的晶振，我用的都是负载6pf的晶振，精确度还可以，每天误差不超过6秒，软件里再做下软件校时，每天误差不到1秒。
黄金会员, 积分 7199, 距离下一级还需 2801 积分
主题帖子积分精华0
阅读权限40
这次打样了10块，已经用掉了2块，还有几张，需要的话可以PM或QQ我，打算程序调试好之后带回家放在老家给 ...
<font color="#x54 发表于
电路板,加哪几个数码管,到广西梧州平邮多少?
高级会员, 积分 1727, 距离下一级还需 3273 积分
主题帖子积分精华0
阅读权限30
发一个我做的万年历源程序+仿真
本帖子中包含更多资源
才可以下载或查看，没有帐号？
高级会员, 积分 3960, 距离下一级还需 1040 积分
主题帖子积分精华0
阅读权限30
zhenglu891028 发表于
发一个我做的万年历源程序+仿真
我下来看看 谢谢
高级会员, 积分 922, 距离下一级还需 4078 积分
主题帖子积分精华0
阅读权限30
不错不错，我去年收了几个尺寸很大的LED数码管，原本也想做个，后来，，，忙活生计去了
钻石会员, 积分 10605, 距离下一级还需 39395 积分
主题帖子积分精华0
阅读权限50
排阻也得备上吧，平时不常用的
黄金会员, 积分 7698, 距离下一级还需 2302 积分
主题帖子积分精华0
阅读权限40
中间数码管是0.5寸的吗,怎么驱动都不需要的,STC12虽驱动能力强点,但也这么多管管
高级会员, 积分 4211, 距离下一级还需 789 积分
主题帖子积分精华0
阅读权限30
初学单片机，问个初级问题：如何把DS1302.h、DS18B20.h等几个H文件编译到单片机？我只会把一个文件编译到单片机啊。见笑了。
高级会员, 积分 1168, 距离下一级还需 3832 积分
主题帖子积分精华0
阅读权限30
初学单片机，问个初级问题：如何把DS1302.h、DS18B20.h等几个H文件编译到单片机？我只会把一个文件编译到单 ...
把这些文件都放到工程下啊，建议这样的格式
高级会员, 积分 592, 距离下一级还需 4408 积分
主题帖子积分精华0
阅读权限30
楼主能分享原理图和程序吗？
高级会员, 积分 362, 距离下一级还需 4638 积分
主题帖子积分精华0
阅读权限30
求源程序和电路图，手头有89C52、DS1302和数码管了
初级会员, 积分 194, 距离下一级还需 -184 积分
主题帖子积分精华0
阅读权限10
后来一想，其实是星期日。
高级会员, 积分 1810, 距离下一级还需 3190 积分
主题帖子积分精华0
阅读权限30
厉害啊，有时间也仿个数码管的
黄金会员, 积分 8894, 距离下一级还需 1106 积分
主题帖子积分精华0
阅读权限40
阳历、农历、时间、星期、温度主要都齐了，袖珍版的这么多很全面了。
扩大版的加上二十四节气够折腾的了
中级会员, 积分 15, 距离下一级还需 35 积分
主题帖子积分精华0
阅读权限20
本帖最后由 暗花大撒旦 于
08:57 编辑
楼主：可以提供源代码和原理图吗？我最近也打算做个万年历。我想自己画PCB。.非常感谢
Powered by1136人阅读
CONFIG12 EQU 7FH& TEMPH EQU 21H& TEMPL EQU 20H& REG2 EQU 22H& REG3 EQU 23H& REG4 EQU 24H& DAT EQU P0.7& SCLK& EQU P3.2& IO&& EQU P3.3& RST& EQU P3.4& year DATA 66H& month DATA 65H& week DATA 64H& day& DATA 63H& hour DATA 62H& mintue DATA 61H& second DATA 60H&& ORG 0000H& LJMP& START& ORG 001BH& LJMP INTT1&START:&&&&&&&&&&&& ;初值& LCALL ZJ& SETB EA& MOV SCON,#00H&&& ; 串行输出，方式0& MOV TMOD,#10H&&& ;计数器1，方式1& MOV TL1,#00H& MOV TH1,#00H& MOV 32H,#8EH& MOV 31H,#00H&&&& ;允许写1302& LCALL WRITE& MOV 32H,#90H& MOV 31H,#0A6H&& ;1302充电，充电电流1.1MA& LCALL WRITE& ;主程序~~~~~~~~~~~~~~~~~~~~~MAIN1:& MOV 32H,#8DH&&& ;读出年& LCALL& READ& MOV year,31H&& MOV 32H,#8BH&& ;读出星期& LCALL READ& MOV week,31H&& MOV 32H,#89H&& ;读出月& LCALL READ& MOV month,31H&& MOV 32H,#87H& ;读出日& LCALL READ& MOV day,31H&& MOV 32H,#85H& ;读出小时& LCALL READ& MOV hour,31H&& MOV 32H,#83H& ;读出分钟& LCALL READ& MOV mintue,31H&& MOV 32H,#81H& ;读出秒& LCALL READ& MOV second,31H& ;~~~~~~~~~~~~分离缓存~~~~~~~~& MOV R0,year&&& ;年分离，送显示缓存& LCALL DIVIDE& MOV 7BH,R1& MOV 4BH,R1& MOV 7CH,R2& MOV 4CH,R2& MOV 78H,week& MOV 48H,week& MOV R0,month& ;月分离，送显示缓存& LCALL DIVIDE& MOV 79H,R1& MOV 49H,R1& MOV 7AH,R2& MOV 4AH,R2& MOV R0,day&& ;日分离，送显示缓存& LCALL DIVIDE& MOV 76H,R1& MOV 46H,R1& MOV 77H,R2& MOV 47H,R2& MOV R0,小时分离，送显示缓存& LCALL DIVIDE& MOV 74H,R1& MOV 44H,R1& MOV 75H,R2& MOV 45H,R2& MOV R0,分钟分离，送显示缓存& LCALL DIVIDE& MOV 72H,R1& MOV 42H,R1&&MOV 73H,R2& MOV 43H,R2& MOV R0,second& ;秒分离，送显示缓存& LCALL& DIVIDE& MOV 70H,R1& MOV 40H,R1& MOV 71H,R2& MOV 41H,R2& CLR EA& LCALL TOUTOU& SETB EA& LCALL DISPLAY& LCALL GENGXIAN&&& ;更新农历程序& JNB P0.1,SETG111& JNB F0,SSS& setb P0.4&&&&&&&& ;非闰月，则p0.4清零,指示灯亮& LJMP MAIN1SETG111:& LJMP SETGSSS:& clr P0.4&& ;闰月，则p0.4置位，指示灯不亮& LJMP MAIN1&;~~~~~~~~~~~~~~& 温度TOUTOU:& LCALL CHUSHI& LCALL RDTEMP& MOV A,TEMPL& ANL A,#B& MOV TEMPL,A& MOV A,TEMPH& ANL A,#B& ORL A,TEMPL& SWAP A& MOV 25H,A& MOV A,25H& MOV B,#64H& DIV AB& MOV A,B& MOV B,#0AH& DIV AB& SWAP A& ORL A,B& MOV 10H,A& RETCHUSHI:& LCALL RESET& MOV A,#0CCH& LCALL WRITE111& MOV A,#4EH& LCALL WRITE111& MOV A,#CONFIG12& LCALL WRITE111& RETRDTEMP:& LCALL RESET& MOV A,#0CCH& LCALL WRITE111& MOV A,#44H& LCALL WRITE111& LCALL DL1MS& LCALL RESET& MOV A,#0CCH& LCALL WRITE111& MOV A,#0BEH& LCALL WRITE111& LCALL ERAD111& MOV TEMPL,A& LCALL ERAD111& MOV TEMPH,A& RETRESET:LA:& SETB DAT& MOV 52H,#200LB:& CLR DAT& DJNZ 52H,LB& SETB DAT& MOV 52H,#30LC:& DJNZ 52H,LC& CLR C& ORL C,DAT& JC LB& MOV 58H,#80LD:& ORL C,DAT& JC LP& DJNZ 58H,LD& SJMP LALP:& MOV 52H,#250LF:& DJNZ 52H,LF& RETWRITE111:& MOV 53H,#8W51HA:& SETB DAT& MOV 54H,#8& RRC A& CLR DATW52HA:& DJNZ 54H,W52HA& MOV DAT,C& MOV 54H,#30W53HA:& DJNZ 54H,W53HA& DJNZ 53H,W51HA& SETB DAT& RETERAD111:& CLR EA& MOV 58H,#8RD1A:& CLR DAT& MOV 54H,#6& NOP& SETB DATRD2A:& DJNZ 54H,RD2A& MOV C,DAT& RRC A& MOV 55H,#30RD3A:& DJNZ 55H,RD3A& DJNZ 58H,RD1A& SETB DAT& RET&;公历设置程序~~~~~~~~~~~~~~~~~~~~~SETG :& SETB TR1& SETB ET1& MOV 32H,#8EH& MOV 31H,#00H&&&&& ;允许写1302& LCALL WRITE& MOV 32H,#80H& MOV 31H,#80H&&&&& ;1302停止振荡& LCALL WRITEGWAIT:&& ;~~~~~~~~~~~~~~~~~~& LCALL DISPLAY& JNB P0.1,GWAITSETG1:& LCALL DISPLAY& JNB P0.1,SETG2& JNB P0.2,GADDYEAR& JNB P0.3,JIANYEAR& AJMP SETG1GADDYEAR:& MOV R7,66H&&&&& ;年加一& LCALL ADD1& MOV 66H,A& CJNE A,#51H,GADDYEAR1& MOV 66H,#00H& AJMP GADDYEAR1JIANYEAR:& MOV R7,66H&&&&& ;年减一& LCALL JIAN1& MOV 66H,A& CJNE A,#00H,GADDYEAR1& MOV 66H,#51HGADDYEAR1:& MOV 32H,#8CH&&& ;年值送人1302& MOV 31H,66H& LCALL WRITE& MOV R0,66H& LCALL DIVIDE&&& ;年分离送显示缓存& MOV 4BH,R1& MOV 7BH,R1& MOV 4CH,R2& MOV 7CH,R2WAITT1:&&&& ;~~~~~~~~~~~~~~~~& LCALL DISPLAY& JNB P0.2,WAITT1& JNB P0.3,WAITT1& AJMP SETG1SETG2:& SETB 0AH&&&&&&&& ;调月时闪标志GWAIT2:& LCALL DISPLAY& JNB P0.1,GWAIT2SETG3:& LCALL DISPLAY& JNB P0.1,SETG4& JNB P0.2,GADDMONTH& JNB P0.3,JIANMONTH& AJMP SETG3GADDMONTH:& MOV R7,65H&&&& ;月加一& LCALL ADD1& MOV 65H,A& CJNE A,#13H,GADDMONTH1& MOV 65H,#01H& AJMP GADDMONTH1JIANMONTH:& MOV R7,65H&&&& ;月减一& LCALL JIAN1& MOV 65H,A& CJNE A,#00H,GADDMONTH1& MOV 65H,#12HGADDMONTH1:& MOV 32H,#88H& ;月值送人1302& MOV 31H,65H& LCALL WRITE& MOV R0,65H& LCALL DIVIDE& ;月分离，送显示缓存& MOV 79H,R1& MOV 49H,R1& MOV 7AH,R2& MOV 4AH,R2WAITT2:& ;~~~~~~~~~~~~~~~~~~~~& LCALL DISPLAY& JNB P0.2,WAITT2& JNB P0.3,WAITT2& AJMP SETG3SETG4:& SETB 0BH&&& ;调日时闪标志GWAIT4:& LCALL DISPLAY& JNB P0.1,GWAIT4SETG5:& LCALL DISPLAY& JNB P0.1,SETG6& JNB P0.2,GADDDAY& JNB P0.3,JIANDAY& AJMP SETG5GADDDAY:& MOV R7,63H&&&& ;日加一& LCALL ADD1& MOV 63H,A& CJNE A,#32H,GADDDAY1& MOV& 63H,#01HJIANDAY:& MOV R7,63H&&&& ;日减一&&LCALL JIAN1& MOV 63H,A& CJNE A,#00H,GADDDAY1& MOV& 63H,#31HGADDDAY1:& MOV 32H,#86H ;日值送人1302& MOV 31H,63H& LCALL WRITE& MOV R0,63H& LCALL DIVIDE& ;日分离，送显示缓存& MOV 76H,R1& MOV 46H,R1& MOV 77H,R2& MOV 47H,R2WAITT3:& &&;~~~~~~~~~~~~~~~~~& LCALL DISPLAY& JNB P0.2,WAITT3& JNB P0.3,WAITT3& AJMP SETG5SETG6:& SETB 0CH&&& ;调星期时闪标志GWAIT6:& LCALL DISPLAY& JNB P0.1,GWAIT6SETG7:& LCALL DISPLAY& JNB P0.1,SETG8& JNB P0.2,GADDWEEK& JNB P0.3,JIANWEEK& AJMP SETG7GADDWEEK:& MOV R7,64H&&&&&& ;星期加一& LCALL ADD1& MOV 64H,A& CJNE A,#07H,GADDWEEK1& MOV& 64H,#00H& AJMP GADDWEEK1JIANWEEK:& MOV R7,64H&&&&&& ;星期减一& LCALL JIAN1& MOV 64H,A& CJNE A,#00H,GADDWEEK1& MOV& 64H,#06HGADDWEEK1:& MOV 32H,#8AH& MOV 31H,64H&&&& ;星期值送人1302& LCALL WRITE& MOV R0,64H& LCALL DIVIDE&& ;星期值分离送显示缓存& MOV 48H,R1& MOV 78H,R1WAITT4:&&&&&& ;~~~~~~~~~~~~~~~ ~~~~~& LCALL DISPLAY& JNB P0.2,WAITT4& JNB P0.3,WAITT4& AJMP SETG7SETG8:& SETB 0DH&&&&&& ;调小时时闪标志GWAIT8:& LCALL DISPLAY& JNB P0.1,GWAIT8SETG9:& LCALL DISPLAY& JNB P0.1,SETG10& JNB P0.2,GADDHOUR& JNB P0.3,JIANHOUR& AJMP SETG9GADDHOUR:& MOV R7,62H&&&&&&& ;小时加一& LCALL ADD1& MOV 62H,A& CJNE A,#24H,GADDHOUR1& MOV 62H,#00H& AJMP GADDHOUR1JIANHOUR:& MOV R7,62H&&&&&&& ;小时减一& LCALL JIAN1& MOV 62H,A& CJNE A,#00H,GADDHOUR1& MOV 62H,#23HGADDHOUR1:& MOV 32H,#84H&&&& ;小时值送人1302& MOV 31H,62H& LCALL WRITE& MOV R0,62H& LCALL DIVIDE&&&&& ;小时值分离送显示缓存& MOV 74H,R1& MOV 44H,R1& MOV 75H,R2& MOV 45H,R2WAITT5:& ;~~~~~~~~~~~~~~~~~~~~~~~~~& LCALL DISPLAY& JNB P0.2,WAITT5& JNB P0.3,WAITT5& AJMP SETG9SETG10:& SETB 0EH&&&&&&& ;调分时候闪标志GWAIT10:& LCALL DISPLAY& JNB P0.1,GWAIT10SETG11:& LCALL DISPLAY& JNB P0.1,SETGOUT& JNB P0.2,GADDMINTUE& JNB P0.3,JIANMINTUE& AJMP SETG11GADDMINTUE:& MOV R7,61H&&&&& ;分钟加一& LCALL ADD1& MOV 61H,A& CJNE A,#60H,GADDMINTUE1& MOV 61H,#00H& AJMP GADDMINTUE1JIANMINTUE:& MOV R7,61H&&&&& ;分钟减一& LCALL JIAN1& MOV 61H,A& CJNE A,#00H,GADDMINTUE1& MOV 61H,#59HGADDMINTUE1:& MOV 32H,#82H&&& ;分钟值送人1302& MOV 31H,61H& LCALL WRITE& MOV R0,61H& LCALL DIVIDE&&& ;分钟值分离送显示缓存& MOV 72H,R1& MOV 42H,R1& MOV 73H,R2& MOV 43H,R2WAITT6:& LCALL DISPLAY& JNB P0.2,WAITT6& JNB P0.3,WAITT6& AJMP SETG11SETGOUT:& LCALL DISPLAY& JNB P0.1,SETGOUT& LCALL GENGXIAN& MOV 32H,#80H& MOV 31H,#00H&&&& ;1302晶振开始振荡& LCALL& WRITE& MOV 32H,#8EH& MOV 31H,#80H&&&& ;禁止写入1302& LCALL& WRITE& CLR 08H& CLR 09H& CLR 0AH& CLR 0BH& CLR 0CH& CLR 0DH& CLR 0EH& CLR 0FH& CLR ET1&&&&&&&&&&&&&&&& ;关闪中断& CLR TR1& LJMP MAIN1&;;闪动调时程序~~~~~~~~~~~~~~~~INTT1:& PUSH ACC& PUSH PSWGFLASH:& CPL 0FH& JB 0FH,GFLASH1& MOV 7CH,4CH& ;全部显示& MOV 7BH,4BH& MOV 7AH,4AH& MOV 79H,49H& MOV 78H,48H& MOV 77H,47H& MOV 76H,46H& MOV 75H,45H& MOV 74H,44H& MOV 73H,43H& MOV 72H,42H& MOV 71H,41H& MOV 70H,40HGFLASHOUT:& POP PSW& POP ACC& RETIGFLASH1:& JB 0AH,GFLASH2 ;调年闪& MOV 7CH,#0FH& MOV 7BH,#0FH& AJMP GFLASHOUTGFLASH2:& JB 0BH,GFLASH3 ;调月闪& MOV 7AH,#0FH& MOV 79H,#0FH& AJMP GFLASHOUTGFLASH3:& JB 0CH,GFLASH4 ;调日闪& MOV 77H,#0FH& MOV 76H,#0FH& AJMP GFLASHOUTGFLASH4:& JB 0DH,GFLASH5 ;调星期闪& MOV 78H,#0FH& AJMP GFLASHOUTGFLASH5:& JB 0EH,GFLASH6 ;调小时闪& MOV 75H,#0FH& MOV 74H,#0FH& AJMP GFLASHOUTGFLASH6:& MOV 73H,#0FH& ;调分钟闪& MOV 72H,#0FH& AJMP GFLASHOUT&;加一程序~~~~~~~~~~~~~~~~~~~~~~~~~&ADD1:& MOV A,R7& ADD A,#1& DA A& RET;减一程序~~~~~~~~~~~~~~~~~~~~~~~~~JIAN1:& MOV A,R7& DEC A& CJNE A,#4FH,KK1& MOV A,#49HKK1:& CJNE A,#3FH,KK2& MOV A,#39HKK2:& CJNE A,#2FH,KK3& MOV A,#29HKK3:& CJNE A,#1FH,KK4& MOV A,#19HKK4:& CJNE A,#0FH,KK5& MOV A,#09HKK5:& RET&;分离程序~~~~~~~~~~~~~~~~~~~~~~~~~&DIVIDE:& MOV A,R0& ANL A,#0FH& MOV R1,A& MOV A,R0& SWAP A& ANL A,#0FH& MOV R2,A& RET&;写1302程序~~~~~~~~~~~~~~~~~~~~~~~~~~&WRITE:& CLR SCLK& NOP& SETB RST& NOP& MOV A,32H&&MOV R4,#8WRITE1:& RRC A&&&& ;送地址给1302& NOP& NOP& CLR SCLK& NOP& NOP& NOP& MOV IO,C& NOP& NOP& NOP& SETB SCLK& NOP& NOP& DJNZ R4,WRITE1& CLR SCLK& NOP& MOV A,31H& MOV R4,#8WRITE2:& RRC A& NOP&&&& ;送数据给1302& CLR SCLK& NOP& NOP& MOV IO,C& NOP& NOP& NOP& SETB SCLK& NOP& NOP& DJNZ R4,WRITE2& CLR RST& RET&;读1302程序~~~~~~~~~~~~~~~~~~~~~~~~~&READ:& CLR SCLK& NOP& NOP& SETB RST& NOP& MOV A,32H& MOV R4,#8READ1:& RRC A&&& ;送地址给1302& NOP& MOV IO,C& NOP& NOP& NOP& SETB SCLK& NOP& NOP& NOP& CLR SCLK& NOP& NOP& DJNZ R4,READ1& MOV R4,#8READ2:& CLR SCLK& NOP&&& ;从1302中读出数据& NOP& NOP& MOV C,IO& NOP& NOP& NOP& NOP& NOP& RRC A& NOP& NOP& NOP& NOP& SETB SCLK& NOP& DJNZ R4,READ2& MOV 31H,A& CLR RST& RET;BCD码转换为10进制程序~~~~~&BCD_10:& MOV A,R0& ANL A,#0FH& MOV R1,A& ;高位×10， 加低位& MOV A,R0& SWAP A& ANL A,#0FH& MOV B,#10& MUL AB& ADD A,R1& MOV R0,A& RET&;查一年数据程序~~~~~~~~~~~~~~~~&CHECKMONTH:& LCALL BCD_10& MOV A,R0& MOV B,#04& MUL AB& MOV R1,A& MOV DPTR,#TAB& MOVC A,@A+DPTR& MOV R7,A&& ;第一字节送R7& INC R1& MOV A,R1& MOVC A,@A+DPTR& MOV R6,A& ;第二字节送R6& INC R1& MOV A,R1& MOVC A,@A+DPTR& MOV R5,A&& ;第三字节送R6& INC R1& MOV A,R1& MOVC A,@A+DPTR& MOV R4,A& ;第四字节送R4& RET;自动更新农历~~~~~~~~~~~~~~~GENGXIAN:& MOV R2,#00H& MOV R3,#00H& MOV A,month& CJNE A,#01H,GM2& MOV R0,day&& ;当前月为一月& LCALL BCD_10 ;当前日转换为10进制，送R2& MOV A,R0& MOV R2,A& AJMP TIAOZHENG1GM2:& CJNE A,#02H,GM3& MOV R0,day&&& ;当前月为二月& LCALL BCD_10 ;;当前日转换为10进制，& MOV A,R0&&&&& ;再加31，送R2& ADD A,#31& MOV R2,A& AJMP TIAOZHENG1GM3:& CJNE A,#03H,GM4& MOV R0,day&&& ;当前月为三月& LCALL BCD_10& ;当前日转换为10进制，& MOV A,R0&&&&& ;再加59，送R2& ADD A,#59& MOV R2,A& AJMP TIAOZHENG1GM4:& CJNE A,#04H,GM5& MOV R0,day&&&& ;当前月为四月& LCALL BCD_10&& ;;当前日转换为10进制,& MOV A,R0&&&&&& ;再加90，送R2& ADD A,#90& MOV R2,A& AJMP TIAOZHENG1GM5:& CJNE A,#05H,GM6& MOV R0,day&&&& ;当前月为五月& LCALL BCD_10&& ;当前日转换为10进制，& MOV A,R0&&&&&& ;再加120，送R2& ADD A,#120& MOV R2,A& AJMP TIAOZHENG1GM6:& CJNE A,#06H,GM7& MOV R0,day&&&& ;当前月为六月& LCALL BCD_10&& ;当前日转换为10进制，& MOV A,R0&&&&&& ;再加151，送R2& ADD A,#151& MOV R2,A& AJMP TIAOZHENG1GM7:& CJNE A,#07H,GM8& MOV R0,day&&&& ;当前月位七月& LCALL BCD_10&& ;当前日转换为10进制，& MOV A,R0&&&&&& ;再加181，送R2& ADD A,#181& MOV R2,A& AJMP TIAOZHENG1GM8:& CJNE A,#08H,GM9& MOV R0,day&&&& ;当前月为八月& LCALL BCD_10&& ;当前日转换为10进制,& MOV A,R0&&&&&& ;再加212，送R2& ADD A,#212& MOV R2,A& AJMP TIAOZHENG1GM9:& CJNE A,#09H,GM10& MOV R0,day&&& ;当前月为九月& LCALL BCD_10& ;当前日转换为10进制,& MOV A,R0&&&&& ;再加243& CLR C& ADD A,#243& JC GGG& MOV R2,A&&&&&& ;A没有溢出，送R2& AJMP TIAOZHENG1GGG:& MOV R3,#0FFH&& ;A溢出，A加一送R2& INC A&&&&&&&&& ;R3中送#0ffh& MOV R2,A& AJMP TIAOZHENG1GM10:& CJNE A,#10H,GM11& MOV R0,day&&& ;当前月为10月& LCALL BCD_10&& ;当前日转换为10进制,& MOV A,R0&&&&&& ;再加18，送R2& ADD A,#18&&&&& ;R3中送＃0FFH& MOV R2,A& MOV R3,#0FFH& AJMP TIAOZHENG1GM11:& CJNE A,#11H,GM12& MOV R0,day&&& ;当前月为11月& LCALL BCD_10& ;当前日转换为10进制,& MOV A,R0&&&&& ;再加49，送R2& ADD A,#49&&&& ;R3中送＃0FFH& MOV R2,A& MOV R3,#0FFH& AJMP TIAOZHENG1GM12:& MOV R0,day&&&& ;当前月为12月& LCALL BCD_10&& ;当前日转换为10进制,& MOV A,R0&&&&&& ;再加79，送R2& ADD A,#79&&&&& ;R3中送＃0FFH& MOV R2,A& MOV R3,#0FFH& AJMP TIAOZHENG1&& ;调整~~~~~~~~~~~~~~~~TIAOZHENG1:& MOV A,year& MOV B,#04& DIV AB& MOV A,B& JNZ GGG1& MOV A,65H&& ;当前年为闰年& CJNE A,#01H,AAAA& AJMP GGG1&&&&&&& ;当前月是1AAAA:& CJNE A,#02H,BBBB& AJMP GGG1&&&&&& ;当前月是2BBBB:& CJNE& R2,#0FFH,GGG2& MOV R3,#0FFH&& ;当前月不是1和2，& MOV R2,#01H&&& ;R1和R2总和加一& AJMP GGG1GGG2:& INC R2GGG1:& MOV R0,year&&& ;查一年数据& LCALL CHECKMONTH& MOV A,R2& CLR C& SUBB A,R7& MOV P0.5,C& CJNE A,#01H,GGG3& MOV R2,#01H& MOV A,R3& CJNE A,#00H,NEW1& MOV& 57H,#01H&& ;R2和R3总和减R7& MOV& 56H,#01H&& ;为0，则为春节& LJMP S_PLAYGGG3:& CJNE A,#00H,GGG6& MOV R2,A& AJMP OLDGGG6:& JNB P0.5,NEW2& MOV A,R7& CLR C& SUBB A,R2& MOV R7,A& CJNE R3,#0FFH,GGG5& MOV A,R3& CLR C& SUBB A,R7& MOV R2,A& MOV R3,#00H& AJMP NEWGGG5:& MOV A,R7& MOV R2,A& AJMP OLDNEW1:& MOV R2,#0FFH& MOV R3,#01H& AJMP NEWNEW2:& MOV R2,A& MOV A,R3& CJNE A,#0FFH,GGG4& MOV A,R2& MOV R3,A& MOV R2,#0FFHGGG4:& AJMP NEW; OLD农历为公历的前一年OLD:& MOV A,year& DEC A& MOV R0,A& LCALL CHECKMONTH& MOV A,R2& CLR C& SUBB A,#29& MOV P0.5,C& MOV R6,A& MOV A,R5& JB ACC.0,AAA ;12月为小月，转到AAA& MOV A,R2& CLR C& SUBB A,#30& MOV P0.5,C& MOV R6,AAAA:& MOV A,R6& CJNE A,#00H,BBB& MOV 56H,#29H ;为0，则为11月最后一天& MOV A,R5&&& ;小月为11月29& JB ACC.1,CCC& MOV 56H,#30H& ;大月为11月30CCC:& MOV 57H,#11H& LJMP S_PLAYBBB:& JNB P0.5, DDD& MOV A,#29& ; CY位置位，位12月& CLR C& SUBB A,R2& MOV R4,A& MOV A,R5& JB ACC.0,EEE& MOV A,#30& CLR C& SUBB A,R2& MOV R4,AEEE:& MOV A,R4& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#12H& LJMP S_PLAYDDD:& MOV A,#29 ;CY为0，为11月& CLR C& SUBB A,R4& MOV R1,A& MOV A,R5& JB ACC.1, FFF& MOV A,#30& CLR C& SUBB A,R4& MOV R1,AFFF:& MOV A,R1& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#11H& LJMP S_PLAY;农历和公历为同一年，;NEW此时R2中的值为FFH时，R3有值，否则为0NEW:& NOPM1:& MOV A,R2&& ;R2减一月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R6& JB ACC.6,SM11& MOV A,R2& CLR C& SUBB A,#30& MOV R1,ASM11:& JC SM12& MOV A,R1& &&&&&;R2减1月天数，够减& MOV R2,A &&&&&&;转二月& AJMP M2SM12:& CJNE R3,#00H,M13 ;R2减1月天数& LJMP Y1&&&&&&&&&& ;不够减，判R3为0否M13:& MOV A,R2&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&& ;再让一月减& MOV R2,A&&&&&&&&& ;还不够，则转Y1& MOV R3,#00H& AJMP M1M2:& CLR C&&& &&&&&;R2减一月天数，够减& MOV A,R2 &&&;转三月& SUBB A,#29& MOV R1,A& MOV A,R6& JB ACC.5,M21& MOV A,R2& CLR C& SUBB A,#30& MOV R1,AM21:& JC M22& MOV A,R1& ;R2减2月天数，够减& MOV R2,A& AJMP MM2M22:& CJNE R3,#00H,M23& ;R2减2月天数& LJMP Y2&&&&&&&& ;不够减，判，R3为0否M23:& MOV A,R2&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&& ;再让二月减& MOV R2,A&&&&&&& ;还不够，则转Y2& MOV R3,#00H& AJMP M2MM2:& LCALL CHECKRE& ;查2月，如果不为闰月& CJNE A,#02H,M3& ;转3月RM2:& MOV A,R4& ANL A,#0FH& JNZ RM21& MOV A,R2& CLR C& SUBB A,#30& MOV R1,A& AJMP RM22RM21:& MOV A,R2& CLR C& SUBB A,#29& MOV R1,ARM22:& JC RM23& MOV A,R1& ;R2减闰2月天数，够减& MOV R2,A&& ;转3月& AJMP M3RM23:& CJNE R3,#00H,RM24 ;R2减闰2月天数& LJMP RY2&&&& &;不够减，判，R3为0否RM24:& MOV A,R2&&&&&& &;不为0，R3加到R2中& ADD A,R3&&&&&& &;再让闰2月减& MOV R3,#00H&&& &;还不够，则转RY2& AJMP RM2M3:& MOV A,R2&&&&&& ;R2减3月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R6& JB ACC.4,M31& CLR C& MOV A,R2& SUBB A,#30& MOV R1,AM31:& JC M32& MOV A,R1&&& ;R2减3月天数，够减& MOV R2,A& AJMP MM3M32:& CJNE R3,#00H,M33& ;R2减3月天数& LJMP Y3&&&&&&&&&& ;不够减，判，R3为0否M33:& MOV A,R2&&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&& ;再让3月减& MOV R2,A&&&&&&&&&&& ;还不够，则转Y3& MOV R3,#00H& AJMP M3MM3:& LCALL CHECKRE&&& ;查3月，如果不为闰月& CJNE A,#03H,M4&& ;转4月RM3:& MOV A,R4& ANL A,#0FH&&&& ;R2减闰3月天数& JNZ RM31& MOV A,R2& CLR C& SUBB A,#30& MOV R1,A& AJMP RM32RM31:& MOV A,R2& CLR C& SUBB A,#29& MOV R1,ARM32:& JC RM33& MOV A,R1& ;R2减闰3月天数，够减& MOV R2,A& ;转4月& AJMP M4RM33:& CJNE R3,#00H,RM34 ;R2减闰3月天数& LJMP RY3&&&&&&&&& ;不够减，判，R3为0否RM34:& MOV A,R2&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&&& ;再让闰3月减& MOV R2,A&&&&&&&&&& ;还不够，则转RY3& MOV R3,#00H& AJMP RM3M4:& MOV A,R2& CLR C&&&& &&&&&&;R2减4月天数& SUBB A,#29& MOV R1,A& MOV A,R6& JB ACC.2,M41& CLR C& MOV A,R2& SUBB A,#30& MOV R1,AM41:& JC M42& MOV A,R1&& ;R2减4月天数，够减& MOV R2,A& AJMP MM4M42:& CJNE R3,#00H,M43& ;R2减4月天数& LJMP Y4&&&&& ;不够减，判，R3为0否M43:& MOV A,R2&&&& &;不为0，R3加到R2中& ADD A,R3&&&& &;再让4月减& MOV R2,A&&&& &;还不够，则转Y4& MOV R3,#00H& AJMP M4MM4:& LCALL CHECKRE ;查4月，如果不为闰月& CJNE A,#04H,M5 ;转5月RM4:& MOV A,R4& ANL A,#0FH&&& ;R2减闰4月天数& JNZ RM41& MOV A,R2& CLR C& SUBB A,#30& MOV R1,A& AJMP RM42RM41:& MOV A,R2& CLR C& SUBB A,#29& MOV R1,ARM42:& JC RM43& MOV A,R1&& ;R2减闰4月天数，够减& MOV R2,A&& ;转5月& AJMP M5RM43:& CJNE R3,#00H,RM44& ;R2减闰4月天数& LJMP RY4&&&&&&&&&& ;不够减，判，R3为0否RM44:& MOV A,R2&&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&& ;再让闰4月减& MOV R2,A& MOV R3,#00H&&&&&&& ;还不够，则转Y4& AJMP RM4M5:& MOV A,R2&&&&&&& ;R2减5月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R6& JB ACC.1,M51& MOV A,R2& CLR C& SUBB A,#30& MOV R1,AM51:& JC M52& MOV A,R1&&& ;R2减5月天数，够减& MOV R2,A& AJMP MM5M52:& CJNE R3,#00H,M53&& ;R2减5月天数& LJMP Y5&&&&&& ;不够减，判，R3为0否M53:& MOV A,R2&&&&& &;不为0，R3加到R2中& ADD A,R3&&&&& ;再让5月减& MOV R2,A&&&&& ;还不够，则转Y5& MOV R3,#00H& LJMP M5MM5:& LCALL CHECKRE& ;查5月，如果不为闰月& CJNE A,#05H,M6& ;转6月RM5:& MOV A,R4&&&&&& ;R2减闰5月天数& ANL A,#0FH& JNZ RM51& MOV A,R2& CLR C& SUBB A,#30& MOV R1,A& LJMP RM52RM51:& MOV A,R2& CLR C& SUBB A,#29& MOV R1,ARM52:& JC RM53& MOV A,R1&& ;R2减闰5月天数，够减& MOV R2,A&& ;转6月& LJMP M6RM53:& CJNE R3,#00H,RM54&& ;R2减闰5月天数& LJMP RY5&&&& &;不够减，判，R3为0否RM54:& MOV A,R2&&&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&&& ;再让5月减& MOV R2,A&&&&&&&&&&& ;还不够，则转RY5& MOV R3,#00H& LJMP RM5M6:& MOV A,R2&&&&&&& ;R2减6月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R6& JB ACC.0,M61& MOV A,R2& CLR C& SUBB A,#30& MOV R1,AM61:& JC M62& MOV A,R1& ;R2减6月天数，够减& MOV R2,A& LJMP MM6M62:& CJNE R3,#00H,M63&& ;R2减6月天数& LJMP Y6&&&&&&&&&&& ;不够减，判，R3为0否M63:& MOV A,R2&&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&& ;再让6月减& MOV R2,A&&&&&&&&&& ;还不够，则转Y6& MOV R3,#00H& LJMP M6MM6:& LCALL CHECKRE&& ;查6月，如果不为闰月& CJNE A,#06H,M7& ;转7月RM6:& MOV A,R4& ANL A,#0FH&&&&&& ;R2减闰6月天数& JNZ RM61& MOV A,R2& CLR C& SUBB A,#30& MOV R1,A& LJMP RM62RM61:& MOV A,R2& CLR C& SUBB A,#29& MOV R1,ARM62:& JC RM63& MOV A,R1&& ;R2减闰6月天数，够减& MOV R2,A&&& ;转7月& LJMP M7RM63:& CJNE R3,#00H,RM64&& ;R2减闰6月天数& LJMP RY6&&&& ;不够减，判，R3为0否RM64:& MOV A,R2&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&&& ;再让闰6月减& MOV R2,A&&&&&&&&&&& ;还不够，则转RY6& MOV R3,#00H& LJMP RM6M7:& MOV A,R2&&&&& ;R2减7月天数& CLR C&&SUBB A,#29& MOV R1,A& MOV A,R5& JB ACC.6,M71& MOV A,R2& CLR C& SUBB A,#30& MOV R1,AM71:& JC M72& MOV A,R1& ;R2减7月天数，够减& MOV R2,A& LJMP MM7M72:& CJNE R3,#00H,M73&& ;R2减7月天数& LJMP Y7&&&& ;不够减，判，R3为0否M73:& MOV A,R2&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&& ;再让6月减& MOV R2,A&&&&&&&&&&& ;还不够，则转Y7& MOV R3,#00H& LJMP M7MM7:& LCALL CHECKRE ;查7月，如果不为闰月& CJNE A,#07H,M8 ;转8月RM7:& MOV A,R4& ANL A,#0FH&&&& ;R2减闰7月天数& JNZ RM71& MOV A,R2& CLR C& SUBB A,#30& MOV R1,A& LJMP RM72RM71:& MOV A,R2& CLR C& SUBB A,#29& MOV R1,ARM72:& JC RM73& MOV A,R1 ;R2减闰7月天数，够减& MOV R2,A ;转8月& LJMP M8RM73:& CJNE R3,#00H,RM74& ;R2减闰7月天数& LJMP RY7&&&&&&&&&& ;不够减，判，R3为0否RM74:& MOV A,R2&&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&& ;再让闰7月减& MOV R2,A&&&&&& &&&&&;还不够，则转RY7& MOV R3,#00H& LJMP RM7M8:& MOV A,R2&&&&&&&& ;R2减8月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R5& JB ACC.5,M81& MOV A,R2& CLR C& SUBB A,#30& MOV R1,AM81:& JC M82& MOV A,R1&& ;R2减8月天数，够减& MOV R2,A&& ;转9月& LJMP M9M82:& CJNE R3,#00H,M83&& ;R2减8月天数& LJMP Y8&&&&&& ;不够减，判，R3为0否M83:& MOV A,R2&&&&& &;不为0，R3加到R2中& ADD A,R3&&&&& &;再让8月减& MOV R2,A&&&& &&;还不够，则转Y8& MOV R3,#00H& LJMP M8M9:& MOV A,R2&&&&& ;R2减9月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R5& JB ACC.4,M91& MOV A,R2& CLR C& SUBB A,#30& MOV R1,AM91:& JC M92& MOV A,R1&& ;R2减9月天数，够减& MOV R2,A& LJMP MM9M92:& CJNE R3,#00H,M93&& ;R2减9月天数& LJMP Y9&&&& ;不够减，判，R3为0否M93:& MOV A,R2&& &;不为0，R3加到R2中& ADD A,R3&&&&&&&&&& ;再让9月减& MOV R2,A&&&&&&&&&&& ;还不够，则转Y9& MOV R3,#00H& LJMP M9MM9:& LCALL CHECKRE& ;查9月，如果不为闰月& CJNE A,#09H,M10& ;转10月RM9:& MOV A,R4&&&&&&&& ;R2减闰9月天数& ANL A,#0FH& JNZ RM91& MOV A,R2& CLR C& SUBB A,#30& MOV R1,A& LJMP RM92RM91:& MOV A,R2& CLR C& SUBB A,#29& MOV R1,ARM92:& JC RM93& MOV A,R1& ;R2减闰9月天数，够减& MOV R2,A& ;转10月& LJMP M10RM93:& CJNE R3,#00H,RM94& ;R2减闰9月天数& LJMP RY9&&&&&&&&&& ;不够减，判，R3为0否RM94:& MOV A,R2&&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&& ;再让闰9月减& MOV R2,A&&&&&&&&&& ;还不够，则转RY9& MOV R3,#00H& LJMP RM9M10:& MOV A,R2&&&&&& ;R2减10月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R5& JB ACC.2,M101& MOV A,R2& CLR C& SUBB A,#30& MOV R1,AM101:& JC M102& MOV A,R1& ;R2减10月天数，够减& MOV R2,A& ;转11月& LJMP M11M102:& CJNE R3,#00H,M103&&&& ;R2减10月天数& LJMP Y10&&&&&&&&& &&&&;不够减，判，R3为0否M103:& MOV A,R2&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&&&&& ;再让10月减& MOV R2,A&&&&&&&&&&&&& ;还不够，则转Y10& MOV R3,#00H& LJMP M10M11:& MOV A,R2&&&&&&&&& ;R2减11月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R5& JB ACC.1,M111& MOV A,R2& CLR C& SUBB A,#30& MOV R1,AM111:& JC M112& MOV A,R1& ;R2减11月天数，够减& MOV R2,A& ;转12月& LJMP M12M112:& CJNE R3,#00H,M113&& ;R2减11月天数& LJMP Y11&&& ;不够减，判，R3为0否M113:& MOV A,R2&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&&& ;再让11月减& MOV R2,A&&&&&&&&&&& ;还不够，则转Y11&&MOV R3,#00H& LJMP M11M12:& MOV A,R2&&&&& ;R2减12月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R5& JB ACC.0,M121& CLR C& MOV A,R2& SUBB A,#30& MOV R1,AM121:& CJNE R3,#00H,M122& ;R2减12月天数& LJMP Y12&&&&&&&&&& ;不够减，判，R3为0否M122:& MOV A,R2&&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&& ;再让12月减& MOV R2,A&&&&&&&&&& ;还不够，则转Y12& MOV R3,#00H& LJMP M12Y1:& MOV A,R2& MOV R0,A&&&&&& ;R2中为日的值& LCALL D_BCD& MOV 56H,A& MOV 57H,#01H& CLR F0&&& ;非闰月& LJMP S_PLAYY2:& CJNE R2,#00H,Y21& MOV A,R6&&&&& ;R2中为0，则为前一个月& MOV 56H,#29H& ;的的最后一天& JB ACC.6,Y22& MOV 56H,#30HY22:& MOV 57H,#01H& CLR F0& LJMP S_PLAYY21:& MOV A,R2& MOV R0,A&&&& ;R2中为日的值& LCALL D_BCD& MOV 56H,A& MOV 57H,#02H& CLR F0& LJMP S_PLAYRY2:& CJNE R2,#00H,RY21& MOV 56H,#29H& ;R2中为0，则为前一个月& MOV A,R6&&&&& ;的的最后一天& JB ACC.5,RY22& MOV 56H,#30HRY22:& MOV 57H,#02H& CLR F0& LJMP S_PLAYRY21:& MOV A,R2&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#02H& SETB F0&&& ;闰月& LJMP S_PLAYY3:& CJNE R2,#00H,Y31& LCALL CHECKRE&&&& ;查前一个月是否为闰月& CJNE A,#02H,Y32& MOV 56H,#29H&&&&& ;前一个月是闰月& MOV A,R4& ANL A,#0FH& &;R2中为0，则为前一个月& JNZ Y33&&&&&&&&&&& ;的的最后一天& MOV 56H,#30H& MOV 57H,#02H& SETB F0& LJMP S_PLAYY33:& MOV 57H,#02H& SETB F0& LJMP S_PLAYY32:& MOV 56H,#29H& ;前一个月不是闰月& MOV A,R6& JB ACC.5,Y34& MOV 56H,#30HY34:& MOV 57H,#02H& CLR F0& LJMP S_PLAYY31:& MOV A,R2& MOV R0,A&&&&& ;R2中为日的值& LCALL D_BCD& MOV 56H,A& MOV 57H,#03H& CLR F0& LJMP S_PLAYRY3:& CJNE R2,#00H,RY31& MOV 56H,#29H& MOV A,R6& JB ACC.4,RY32&& ;R2中为0，则为前一个月& MOV 56H,#30H&&& ;的的最后一天RY32:& MOV 57H,#03H& CLR F0& LJMP S_PLAYRY31:& MOV A,R2&&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#03H& SETB F0& LJMP S_PLAYY4:& CJNE R2,#00H,Y41& LCALL CHECKRE&&& ;查前一个月是否为闰月& CJNE A,#03H,Y42& MOV 56H,#29H&&&& ;前一个月是闰月& MOV A,R4&&&&&&&& ;R2中为0，则为前一个月& ANL A,#0FH&&&&&& ;的最后一天& JNZ Y43& MOV 56H,#30H& MOV 57H,#03H& SETB F0& LJMP S_PLAYY43:& MOV 57H,#03H& SETB F0& LJMP S_PLAYY42:& MOV 56H,#29H& ;前一个月不是闰月& MOV A,R6&&JB ACC.4,Y44& MOV 56H,#30HY44:& MOV 57H,#03H& CLR F0& LJMP S_PLAYY41:& MOV A,R2&&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#04H& CLR F0& LJMP S_PLAYRY4:& CJNE R2,#00H,RY41& MOV 56H,#29H&&& ;R2中为0，则为前一个月& MOV A,R6&&&&&&& ;的的最后一天& JB ACC.2,RY42& MOV 56H,#30HRY42:& MOV 57H,#04H& CLR F0& LJMP S_PLAYRY41:& MOV A,R2&&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#04H& SETB F0& LJMP S_PLAYY5:& CJNE R2,#00H,Y51& LCALL CHECKRE& ;查前一个月是否为闰月& CJNE A,#04H,Y52& MOV 56H,#29H& ;前一个月是闰月& MOV A,R4&&& &;R2中为0，则为前一个月& ANL A,#0FH&&&&&&&& ;的最后一天& JNZ Y53& MOV 56H,#30H& MOV 57H,#04H& SETB F0& LJMP S_PLAYY53:& MOV 57H,#04H& SETB F0& LJMP S_PLAYY52:& MOV 56H,#29H&& ;前一个月不是闰月& MOV A,R6& JB ACC.2,Y54& MOV 56H,#30HY54:& MOV 57H,#04H& CLR F0& LJMP S_PLAYY51:& MOV A,R2&&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#05H& CLR F0& LJMP S_PLAYRY5:& CJNE R2,#00H,RY51& MOV 56H,#29H&&& ;R2中为0，则为前一个月& MOV A,R6&&&&&&& ;的最后一天& JB ACC.1,RY52& MOV 56H,#30HRY52:& MOV 57H,#05H& CLR F0& LJMP S_PLAYRY51:& MOV A,R2&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#05H& SETB F0& LJMP S_PLAYY6:& CJNE R2,#00H,Y61& LCALL CHECKRE&& ;查前一个月是否为闰月& CJNE A,#05H,Y62& MOV 56H,#29H&&& ;前一个月是闰月& MOV A,R4&&& &;R2中为0，则为前一个月& ANL A,#0FH&&&&& ;的最后一天& JNZ Y63& MOV 56H,#30H& MOV 57H,#05H& SETB F0& LJMP S_PLAYY63:& MOV 57H,#05H& SETB F0& LJMP S_PLAYY62:& MOV 56H,#29H&& ;前一个月不是闰月& MOV A,R6& JB ACC.1,Y64& MOV 56H,#30HY64:& MOV 57H,#05H& CLR F0& LJMP S_PLAYY61:& MOV A,R2&&&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#06H& CLR F0& LJMP S_PLAYRY6:& CJNE R2,#00H,RY61& MOV 56H,#29H ;R2中为0，则为前一个月& MOV A,R6&&&& ;的最后一天& JB ACC.0,RY62& MOV 56H,#30HRY62:& MOV 57H,#06H& CLR F0& LJMP S_PLAYRY61:& MOV A,R2&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#06H& SETB F0& LJMP S_PLAYY7:& CJNE R2,#00H,Y71& LCALL CHECKRE&&& ;查前一个月是否为闰月& CJNE A,#06H,Y72& MOV 56H,#29H&&&& ;前一个月是闰月& MOV A,R4&&&&&&&& ;R2中为0，则为前一个月& ANL A,#0FH&&&&&& ;的最后一天& JNZ Y73& MOV 56H,#30H& MOV 57H,#06H& SETB F0& LJMP S_pLAYY73:& MOV 57H,#06H& SETB F0& LJMP S_PLAYY72:& MOV 56H,#29H&& ;前一个月不是闰月& MOV A,R6& JB ACC.0,Y74& MOV 56H,#30HY74:& MOV 57H,#06H& CLR F0& LJMP S_PLAYY71:& MOV A,R2&&&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#07H& CLR F0& LJMP S_PLAYRY7:& CJNE R2,#00H,RY71& MOV 56H,#29H&&& ;R2中为0，则为前一个月& MOV A,R5&&&&&&& ;的最后一天& JB ACC.6,RY72& MOV 56H,#30HRY72:& MOV 57H,#07H& CLR F0& LJMP S_PLAYRY71:& MOV A,R2&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#07H& SETB F0& LJMP S_PLAYY8:& CJNE R2,#00H,Y81& LCALL CHECKRE& ;查前一个月是否为闰月& CJNE A,#07H,Y82& MOV 56H,#29H&&&& ;前一个月是闰月& MOV A,R4&&& &;R2中为0，则为前一个月& ANL A,#0FH&&&&&& ;的最后一天& JNZ Y83& MOV 56H,#30H& MOV 57H,#07H& SETB F0& LJMP S_PLAYY83:& MOV 57H,#07H& SETB F0& LJMP S_PLAYY82:& MOV 56H,#29H& ;前一个月不是闰月& MOV A,R5& JB ACC.6,Y84& MOV 56H,#30HY84:& MOV 57H,#07H& CLR F0& LJMP S_PLAYY81:& MOV A,R2&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#08H& CLR F0& LJMP S_PLAYY9:& CJNE R2,#00H,Y91& MOV 56H,#29H&& ;R2中为0，则为前一个月& MOV A,R5&&&&&& ;的最后一天& JB ACC.5,Y92& MOV 56H,#30HY92:& MOV 57H,#08H& CLR F0& LJMP S_PLAYY91:& MOV A,R2&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#09H& CLR F0& LJMP S_PLAYRY9:& CJNE R2,#00H,RY91& MOV 56H,#29H&&& ;R2中为0，则为前一个月& MOV A,R5&&&&&&& ;的最后一天& JB ACC.4,RY92& MOV 56H,#30HRY92:& MOV 57H,#09H& CLR F0& LJMP S_PLAYRY91:& MOV A,R2&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#09H& SETB F0& LJMP S_PLAYY10:& CJNE R2,#00H,Y101& LCALL CHECKRE&&& ;查前一个月是否为闰月& CJNE A,#09H,Y102& MOV 56H,#29H &;前一个月是闰月& MOV A,R4&&& &;R2中为0，则为前一个月& ANL A,#0FH&& &;的最后一天& JNZ Y103& MOV 56H,#30H& MOV 57H,#09H& SETB F0& LJMP S_PLAYY103:& MOV 57H,#09H& SETB F0& LJMP S_PLAYY102:& MOV 56H,#29H&&& ;前一个月不是闰月& MOV A,R5& JB ACC.4,Y104& MOV 56H,#30HY104:& MOV 57H,#09H& CLR F0& LJMP S_PLAYY101:& MOV A,R2&&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#10H& CLR F0& LJMP S_PLAYY11:& CJNE R2,#00H,Y111& MOV 56H,#29H ;R2中为0，则为前一个月& MOV A,R5&&&&&&&& ;的最后一天& JB ACC.2,Y112& MOV 56H,#30HY112:& MOV 57H,#10H& CLR F0& LJMP S_PLAYY111:& MOV A,R2&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#11H& CLR F0& LJMP S_PLAYY12:& CJNE R2,#00H,Y121& MOV 56H,#29H&&&& ;R2中为0，则为前一个月& MOV A,R5&&&&&&&&& ;的最后一天& JB ACC.1,Y122& MOV 56H,#30HY122:& MOV 57H,#11H& CLR F0& LJMP S_PLAYY121:& MOV A,R2& &&;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#12H& CLR F0& LJMP S_PLAYS_PLAY:& MOV R0,57H& LCALL DIVIDE& ;月分离送显示缓存& MOV 52H,R1& MOV 53H,R2& MOV R0,56H& LCALL DIVIDE& ;日分离送显示缓存& MOV 50H,R1& MOV 51H,R2& RET&;查是否闰月程序;;&CHECKRE:& MOV A,R4& SWAP A& ANL A,#0FH& RET;10进制转换为BCD码程序;&D_BCD:& MOV A,R0& MOV B,#10& DIV AB& SWAP A& ORL A,B& RET&;;显示程序;;;&DISPLAY:& ;LCALL TOUTOU& MOV A,10H& ANL A,#B& MOV 59H,A& MOV A,76H&&&&&&&&&&&&&& ;第八列LED& ANL A,#B& SWAP A& ADD A,59H& MOV P1,A& MOV A,70H& ANL A,#B& ADD A,#B& MOV P2,A& LCALL DL1MS&& MOV A,10H& ANL A,#B& SWAP A& MOV 5AH,A& MOV A,77H&&&&&&&&&&&&& ;第七列LED& ANL A,#B& SWAP A& ADD A,5AH& MOV P1,A& MOV A,71H& ANL A,#B& ADD A,#B& MOV P2,A& LCALL DL1MS&& MOV A,56H&&&&&&&&&&&& ;第六列LED& SWAP A& ANL A,#B& ADD A,79H& SWAP A& MOV P1,A& MOV A,72H& ANL A,#B& ADD A,#B& MOV P2,A& LCALL DL1MS&& MOV A,56H&&&&&&&&&&& ;第五列LED& ANL A,#B& ADD A,7AH& SWAP A& MOV P1,A& MOV A,73H& ANL A,#B& ADD A,#B& MOV P2,A& LCALL DL1MS&& MOV A,57H&&&&&&&&&&& ;第四列LED& SWAP A& ANL A,#B& ADD A,7BH& SWAP A& MOV P1,A& MOV A,74H& ANL A,#B& ADD A,#B& MOV P2,A& LCALL DL1MS&& MOV A,57H&&&&&&&&&&& ;第三列LED& ANL A,#B& ADD A,7CH& SWAP A& MOV P1,A& MOV A,75H& ANL A,#B& ADD A,#B& MOV P2,A& LCALL DL1MS&& MOV P1,#B& MOV P2,#B&&& ;第二列LED& LCALL DL1MS&& MOV A,78H&&&&&&&&&&& ;第一列LED& ANL A,#B& ADD A,#B& MOV P1,A& MOV P2,#B& LCALL DL1MS& MOV P1,#0FFH& RETZJ:& MOV 01H,#150ZZZ1:& MOV P2,#B& MOV P1,#88H& LCALL DL1MS& MOV P2,#B& MOV P1,#88H& LCALL DL1MS& MOV P2,#B& MOV P1,#88H& LCALL DL1MS& MOV P2,#B& MOV P1,#88H& LCALL DL1MS& MOV P2,#B& MOV P1,#88H& LCALL DL1MS& MOV P2,#B& MOV P1,#88H& LCALL DL1MS& MOV P2,#B& MOV P1,#88H& LCALL DL1MS& MOV P2,#B& MOV P1,#88H& LCALL DL1MS& DJNZ 01H,ZZZ1& MOV P1,#0FFH& RET&DL1MS:& MOV R6,#14HDL1:& MOV R7,#19HDL2:& DJNZ R7,DL2& DJNZ R6,DL1& RET&;数据表~~~~~~~~~~~~~~~~~~~`~~TAB:& DB 35,15H,51H,00H,23,11H,52H,41H,42,12H,65H,00H& DB 31,11H,32H,00H,21,42H,52H,21H,39,52H,25H,00H& DB 28,25H,04H,71H,48,66H,42H,00H,37,33H,22H,00H& DB 25,15H,24H,51H,44,05H,52H,00H,33,22H,65H,00H& DB 22,21H,25H,41H,40,24H,52H,00H,30,52H,42H,91H& DB 49,55H,05H,00H,38,26H,44H,00H,27,53H,50H,60H& DB 46,53H,24H,00H,35,25H,54H,00H,24,41H,52H,41H& DB 42,45H,25H,00H,31,24H,52H,00H,21,51H,12H,21H& DB 40,55H,11H,00H,28,26H,21H,61H,47,26H,61H,00H& DB 36,13H,31H,00H,25,05H,31H,51H,43,12H,54H,00H& DB 33,51H,25H,00H,22,42H,25H,31H,41,32H,22H,00H& DB 30,55H,02H,71H,49,55H,22H,00H,38,26H,62H,00H& DB 27,13H,64H,60H,45,13H,32H,00H,34,12H,55H,00H& DB 23,10H,53H,51H,42,22H,45H,00H,31,52H,22H,00H& DB 21,52H,44H,21H,40,55H,44H,00H,29,26H,50H,71H& DB 47,26H,64H,00H,36,25H,32H,00H,25,23H,32H,50H& DB 44,44H,55H,00H,32,24H,45H,00H,22,55H,11H,30H& END&
&&相关文章推荐
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：2345次
排名：千里之外}
论坛朋友需要的数码管万年历源程序及带仿真供下载
无标题.jpg (106.15 KB, 下载次数: 116)
10:11 上传
(56.01 KB, 下载次数: 1739)
10:11 上传
点击文件名下载附件
很久前在网上搜集的，不是我写的 。
再来一个，也是网友写的
截图00.png (24.1 KB, 下载次数: 81)
10:13 上传
(97.79 KB, 下载次数: 1421)
10:13 上传
点击文件名下载附件
谢谢 ,第一个只要时间功能就行了,呵呵
试了,这个数码管是共阴的,想要共阳的,呵呵
这有一个也是共阴的,怎样改共阳?
10:31 上传
点击文件名下载附件
42.71 KB, 下载次数: 1050
数码管的驱动，以共阳为例，在51电路里面，公共极要用一个9012三极管驱动，三极管的C接一位数码的公共极，显示段码都是低电平有效，可用51管脚直接驱动。
共阴的，是公共阴极，驱动段码则是电平有效。
二者的程序相同，显示段码电平相反，位选电平相反（公共极），修改程序很容易，建议楼主静下心来看一看。
注意：51的I/O口，用于下拉驱动（低电平驱动，灌电流驱动）有较强的驱动能力；如果用它输出高电平来带负载，就不行了，手册上有说明
这个不适用
我需要4位LED轮流显示的，用3个键调整的，不带1302的和带1302的2种方案。
回复 6# ly0902 的帖子
改段码表就行了,unsigned char code dispcode[]={0x3F,0x06,0x5B,0x4F,0x66,0x6D,0x7D,0x07,0x7F,0x6F,0x40}
后面部分改成{0x28,0x7e,0xa2,0x62,0x74,0x61,0x21,0x7a,0x20,0x60}
这个好像也不行，和线路有关。不行你得自己编了，注意低位放在后面，低电平有效。
电路图有清楚点的吗？看不太清
楼上要哪一个的电路图？我给你抓屏一个
下载文件里面其实有的。
微信：caoyin513 QQ: E-mail：
Powered by查看: 7132|回复: 27
[原创]做了个超小的多功能LED数码管万年历:15位数码管显示年月日时分星期温度
高级会员, 积分 1022, 距离下一级还需 3978 积分
主题帖子积分精华0
阅读权限30
贴片的QFP封装的89C52单片机+DS1302时钟芯片+DS18B20温度传感器组成的万年历。
面板我是用不干胶纸打印的，然后挖几个洞洞让数码管露出来，上面罩个亚克力板，效果还不错。
可以显示阳历日期和农历日期，每5秒自动切换显示，带温度显示，带一组闹钟响铃，功能算全了。
最终效果图：
先把数码管放上试下
打印下数字比较下位置
打样的PCB板
背面单片机
除了数码管，其他都焊上了
插电试下效果
打印个面板罩上
本帖子中包含更多资源
才可以下载或查看，没有帐号？
黄金会员, 积分 7199, 距离下一级还需 2801 积分
主题帖子积分精华0
阅读权限40
PCB板电路板不错，有多吗，出块玩玩。
黄金会员, 积分 6379, 距离下一级还需 3621 积分
主题帖子积分精华0
阅读权限40
可以上套件
黄金会员, 积分 7261, 距离下一级还需 2739 积分
主题帖子积分精华0
阅读权限40
看见数码管下的小黑了
钻石会员, 积分 18110, 距离下一级还需 31890 积分
主题帖子积分精华0
阅读权限50
学习到了新思路。直接用整块亚克力板盖上，然后打印一张纸贴上完事。
高级会员, 积分 4857, 距离下一级还需 143 积分
主题帖子积分精华0
阅读权限30
这位哥的手艺是真是棒。
钻石会员, 积分 23492, 距离下一级还需 26508 积分
主题帖子积分精华0
阅读权限50
这手工，俺自叹不如呐，
主题帖子积分精华0
阅读权限30
精度高吗？如果高可以产量了。
高级会员, 积分 1022, 距离下一级还需 3978 积分
主题帖子积分精华0
阅读权限30
PCB板电路板不错，有多吗，出块玩玩。
yanxl 发表于
这次打样了10块，已经用掉了2块，还有几张，需要的话可以PM或QQ我，打算程序调试好之后带回家放在老家给爸妈用，程序还在调试中。
高级会员, 积分 1022, 距离下一级还需 3978 积分
主题帖子积分精华0
阅读权限30
可以上套件
<font color="#10sun 发表于
用到的元件都是常用的，除了单片机是贴片的，其他的配件玩电子的应该大部分都有，而且我设计的时候为了方便焊接，大部分都是直插的，上面用到的几个电阻，特意改成既可以用直插的也可以用贴片的，这样方便找配件。
高级会员, 积分 1022, 距离下一级还需 3978 积分
主题帖子积分精华0
阅读权限30
看见数码管下的小黑了
liuchengliaaa 发表于
现在的小黑做得没以前好了，硬盘和屏幕都不行。。。
高级会员, 积分 1022, 距离下一级还需 3978 积分
主题帖子积分精华0
阅读权限30
学习到了新思路。直接用整块亚克力板盖上，然后打印一张纸贴上完事。
chjj0 发表于
还不是为了节省成本，把能利用的都利用上，呵呵。
& & 做个壳子也要不少钱，而且现在还在测试中，没必要去定制壳子。
高级会员, 积分 1022, 距离下一级还需 3978 积分
主题帖子积分精华0
阅读权限30
精度高吗？如果高可以产量了。
jatn112 发表于
还行吧，日常使用足够了，最主要的可以通过单片机写程序来校准的。
时间准不准主要看DS1302，DS1302精度主要看32.768K的晶振，我用的都是负载6pf的晶振，精确度还可以，每天误差不超过6秒，软件里再做下软件校时，每天误差不到1秒。
黄金会员, 积分 7199, 距离下一级还需 2801 积分
主题帖子积分精华0
阅读权限40
这次打样了10块，已经用掉了2块，还有几张，需要的话可以PM或QQ我，打算程序调试好之后带回家放在老家给 ...
<font color="#x54 发表于
电路板,加哪几个数码管,到广西梧州平邮多少?
高级会员, 积分 1727, 距离下一级还需 3273 积分
主题帖子积分精华0
阅读权限30
发一个我做的万年历源程序+仿真
本帖子中包含更多资源
才可以下载或查看，没有帐号？
高级会员, 积分 3960, 距离下一级还需 1040 积分
主题帖子积分精华0
阅读权限30
zhenglu891028 发表于
发一个我做的万年历源程序+仿真
我下来看看 谢谢
高级会员, 积分 922, 距离下一级还需 4078 积分
主题帖子积分精华0
阅读权限30
不错不错，我去年收了几个尺寸很大的LED数码管，原本也想做个，后来，，，忙活生计去了
钻石会员, 积分 10605, 距离下一级还需 39395 积分
主题帖子积分精华0
阅读权限50
排阻也得备上吧，平时不常用的
黄金会员, 积分 7698, 距离下一级还需 2302 积分
主题帖子积分精华0
阅读权限40
中间数码管是0.5寸的吗,怎么驱动都不需要的,STC12虽驱动能力强点,但也这么多管管
高级会员, 积分 4211, 距离下一级还需 789 积分
主题帖子积分精华0
阅读权限30
初学单片机，问个初级问题：如何把DS1302.h、DS18B20.h等几个H文件编译到单片机？我只会把一个文件编译到单片机啊。见笑了。
高级会员, 积分 1168, 距离下一级还需 3832 积分
主题帖子积分精华0
阅读权限30
初学单片机，问个初级问题：如何把DS1302.h、DS18B20.h等几个H文件编译到单片机？我只会把一个文件编译到单 ...
把这些文件都放到工程下啊，建议这样的格式
高级会员, 积分 592, 距离下一级还需 4408 积分
主题帖子积分精华0
阅读权限30
楼主能分享原理图和程序吗？
高级会员, 积分 362, 距离下一级还需 4638 积分
主题帖子积分精华0
阅读权限30
求源程序和电路图，手头有89C52、DS1302和数码管了
初级会员, 积分 194, 距离下一级还需 -184 积分
主题帖子积分精华0
阅读权限10
后来一想，其实是星期日。
高级会员, 积分 1810, 距离下一级还需 3190 积分
主题帖子积分精华0
阅读权限30
厉害啊，有时间也仿个数码管的
黄金会员, 积分 8894, 距离下一级还需 1106 积分
主题帖子积分精华0
阅读权限40
阳历、农历、时间、星期、温度主要都齐了，袖珍版的这么多很全面了。
扩大版的加上二十四节气够折腾的了
中级会员, 积分 15, 距离下一级还需 35 积分
主题帖子积分精华0
阅读权限20
本帖最后由 暗花大撒旦 于
08:57 编辑
楼主：可以提供源代码和原理图吗？我最近也打算做个万年历。我想自己画PCB。.非常感谢
Powered by1136人阅读
CONFIG12 EQU 7FH& TEMPH EQU 21H& TEMPL EQU 20H& REG2 EQU 22H& REG3 EQU 23H& REG4 EQU 24H& DAT EQU P0.7& SCLK& EQU P3.2& IO&& EQU P3.3& RST& EQU P3.4& year DATA 66H& month DATA 65H& week DATA 64H& day& DATA 63H& hour DATA 62H& mintue DATA 61H& second DATA 60H&& ORG 0000H& LJMP& START& ORG 001BH& LJMP INTT1&START:&&&&&&&&&&&& ;初值& LCALL ZJ& SETB EA& MOV SCON,#00H&&& ; 串行输出，方式0& MOV TMOD,#10H&&& ;计数器1，方式1& MOV TL1,#00H& MOV TH1,#00H& MOV 32H,#8EH& MOV 31H,#00H&&&& ;允许写1302& LCALL WRITE& MOV 32H,#90H& MOV 31H,#0A6H&& ;1302充电，充电电流1.1MA& LCALL WRITE& ;主程序~~~~~~~~~~~~~~~~~~~~~MAIN1:& MOV 32H,#8DH&&& ;读出年& LCALL& READ& MOV year,31H&& MOV 32H,#8BH&& ;读出星期& LCALL READ& MOV week,31H&& MOV 32H,#89H&& ;读出月& LCALL READ& MOV month,31H&& MOV 32H,#87H& ;读出日& LCALL READ& MOV day,31H&& MOV 32H,#85H& ;读出小时& LCALL READ& MOV hour,31H&& MOV 32H,#83H& ;读出分钟& LCALL READ& MOV mintue,31H&& MOV 32H,#81H& ;读出秒& LCALL READ& MOV second,31H& ;~~~~~~~~~~~~分离缓存~~~~~~~~& MOV R0,year&&& ;年分离，送显示缓存& LCALL DIVIDE& MOV 7BH,R1& MOV 4BH,R1& MOV 7CH,R2& MOV 4CH,R2& MOV 78H,week& MOV 48H,week& MOV R0,month& ;月分离，送显示缓存& LCALL DIVIDE& MOV 79H,R1& MOV 49H,R1& MOV 7AH,R2& MOV 4AH,R2& MOV R0,day&& ;日分离，送显示缓存& LCALL DIVIDE& MOV 76H,R1& MOV 46H,R1& MOV 77H,R2& MOV 47H,R2& MOV R0,小时分离，送显示缓存& LCALL DIVIDE& MOV 74H,R1& MOV 44H,R1& MOV 75H,R2& MOV 45H,R2& MOV R0,分钟分离，送显示缓存& LCALL DIVIDE& MOV 72H,R1& MOV 42H,R1&&MOV 73H,R2& MOV 43H,R2& MOV R0,second& ;秒分离，送显示缓存& LCALL& DIVIDE& MOV 70H,R1& MOV 40H,R1& MOV 71H,R2& MOV 41H,R2& CLR EA& LCALL TOUTOU& SETB EA& LCALL DISPLAY& LCALL GENGXIAN&&& ;更新农历程序& JNB P0.1,SETG111& JNB F0,SSS& setb P0.4&&&&&&&& ;非闰月，则p0.4清零,指示灯亮& LJMP MAIN1SETG111:& LJMP SETGSSS:& clr P0.4&& ;闰月，则p0.4置位，指示灯不亮& LJMP MAIN1&;~~~~~~~~~~~~~~& 温度TOUTOU:& LCALL CHUSHI& LCALL RDTEMP& MOV A,TEMPL& ANL A,#B& MOV TEMPL,A& MOV A,TEMPH& ANL A,#B& ORL A,TEMPL& SWAP A& MOV 25H,A& MOV A,25H& MOV B,#64H& DIV AB& MOV A,B& MOV B,#0AH& DIV AB& SWAP A& ORL A,B& MOV 10H,A& RETCHUSHI:& LCALL RESET& MOV A,#0CCH& LCALL WRITE111& MOV A,#4EH& LCALL WRITE111& MOV A,#CONFIG12& LCALL WRITE111& RETRDTEMP:& LCALL RESET& MOV A,#0CCH& LCALL WRITE111& MOV A,#44H& LCALL WRITE111& LCALL DL1MS& LCALL RESET& MOV A,#0CCH& LCALL WRITE111& MOV A,#0BEH& LCALL WRITE111& LCALL ERAD111& MOV TEMPL,A& LCALL ERAD111& MOV TEMPH,A& RETRESET:LA:& SETB DAT& MOV 52H,#200LB:& CLR DAT& DJNZ 52H,LB& SETB DAT& MOV 52H,#30LC:& DJNZ 52H,LC& CLR C& ORL C,DAT& JC LB& MOV 58H,#80LD:& ORL C,DAT& JC LP& DJNZ 58H,LD& SJMP LALP:& MOV 52H,#250LF:& DJNZ 52H,LF& RETWRITE111:& MOV 53H,#8W51HA:& SETB DAT& MOV 54H,#8& RRC A& CLR DATW52HA:& DJNZ 54H,W52HA& MOV DAT,C& MOV 54H,#30W53HA:& DJNZ 54H,W53HA& DJNZ 53H,W51HA& SETB DAT& RETERAD111:& CLR EA& MOV 58H,#8RD1A:& CLR DAT& MOV 54H,#6& NOP& SETB DATRD2A:& DJNZ 54H,RD2A& MOV C,DAT& RRC A& MOV 55H,#30RD3A:& DJNZ 55H,RD3A& DJNZ 58H,RD1A& SETB DAT& RET&;公历设置程序~~~~~~~~~~~~~~~~~~~~~SETG :& SETB TR1& SETB ET1& MOV 32H,#8EH& MOV 31H,#00H&&&&& ;允许写1302& LCALL WRITE& MOV 32H,#80H& MOV 31H,#80H&&&&& ;1302停止振荡& LCALL WRITEGWAIT:&& ;~~~~~~~~~~~~~~~~~~& LCALL DISPLAY& JNB P0.1,GWAITSETG1:& LCALL DISPLAY& JNB P0.1,SETG2& JNB P0.2,GADDYEAR& JNB P0.3,JIANYEAR& AJMP SETG1GADDYEAR:& MOV R7,66H&&&&& ;年加一& LCALL ADD1& MOV 66H,A& CJNE A,#51H,GADDYEAR1& MOV 66H,#00H& AJMP GADDYEAR1JIANYEAR:& MOV R7,66H&&&&& ;年减一& LCALL JIAN1& MOV 66H,A& CJNE A,#00H,GADDYEAR1& MOV 66H,#51HGADDYEAR1:& MOV 32H,#8CH&&& ;年值送人1302& MOV 31H,66H& LCALL WRITE& MOV R0,66H& LCALL DIVIDE&&& ;年分离送显示缓存& MOV 4BH,R1& MOV 7BH,R1& MOV 4CH,R2& MOV 7CH,R2WAITT1:&&&& ;~~~~~~~~~~~~~~~~& LCALL DISPLAY& JNB P0.2,WAITT1& JNB P0.3,WAITT1& AJMP SETG1SETG2:& SETB 0AH&&&&&&&& ;调月时闪标志GWAIT2:& LCALL DISPLAY& JNB P0.1,GWAIT2SETG3:& LCALL DISPLAY& JNB P0.1,SETG4& JNB P0.2,GADDMONTH& JNB P0.3,JIANMONTH& AJMP SETG3GADDMONTH:& MOV R7,65H&&&& ;月加一& LCALL ADD1& MOV 65H,A& CJNE A,#13H,GADDMONTH1& MOV 65H,#01H& AJMP GADDMONTH1JIANMONTH:& MOV R7,65H&&&& ;月减一& LCALL JIAN1& MOV 65H,A& CJNE A,#00H,GADDMONTH1& MOV 65H,#12HGADDMONTH1:& MOV 32H,#88H& ;月值送人1302& MOV 31H,65H& LCALL WRITE& MOV R0,65H& LCALL DIVIDE& ;月分离，送显示缓存& MOV 79H,R1& MOV 49H,R1& MOV 7AH,R2& MOV 4AH,R2WAITT2:& ;~~~~~~~~~~~~~~~~~~~~& LCALL DISPLAY& JNB P0.2,WAITT2& JNB P0.3,WAITT2& AJMP SETG3SETG4:& SETB 0BH&&& ;调日时闪标志GWAIT4:& LCALL DISPLAY& JNB P0.1,GWAIT4SETG5:& LCALL DISPLAY& JNB P0.1,SETG6& JNB P0.2,GADDDAY& JNB P0.3,JIANDAY& AJMP SETG5GADDDAY:& MOV R7,63H&&&& ;日加一& LCALL ADD1& MOV 63H,A& CJNE A,#32H,GADDDAY1& MOV& 63H,#01HJIANDAY:& MOV R7,63H&&&& ;日减一&&LCALL JIAN1& MOV 63H,A& CJNE A,#00H,GADDDAY1& MOV& 63H,#31HGADDDAY1:& MOV 32H,#86H ;日值送人1302& MOV 31H,63H& LCALL WRITE& MOV R0,63H& LCALL DIVIDE& ;日分离，送显示缓存& MOV 76H,R1& MOV 46H,R1& MOV 77H,R2& MOV 47H,R2WAITT3:& &&;~~~~~~~~~~~~~~~~~& LCALL DISPLAY& JNB P0.2,WAITT3& JNB P0.3,WAITT3& AJMP SETG5SETG6:& SETB 0CH&&& ;调星期时闪标志GWAIT6:& LCALL DISPLAY& JNB P0.1,GWAIT6SETG7:& LCALL DISPLAY& JNB P0.1,SETG8& JNB P0.2,GADDWEEK& JNB P0.3,JIANWEEK& AJMP SETG7GADDWEEK:& MOV R7,64H&&&&&& ;星期加一& LCALL ADD1& MOV 64H,A& CJNE A,#07H,GADDWEEK1& MOV& 64H,#00H& AJMP GADDWEEK1JIANWEEK:& MOV R7,64H&&&&&& ;星期减一& LCALL JIAN1& MOV 64H,A& CJNE A,#00H,GADDWEEK1& MOV& 64H,#06HGADDWEEK1:& MOV 32H,#8AH& MOV 31H,64H&&&& ;星期值送人1302& LCALL WRITE& MOV R0,64H& LCALL DIVIDE&& ;星期值分离送显示缓存& MOV 48H,R1& MOV 78H,R1WAITT4:&&&&&& ;~~~~~~~~~~~~~~~ ~~~~~& LCALL DISPLAY& JNB P0.2,WAITT4& JNB P0.3,WAITT4& AJMP SETG7SETG8:& SETB 0DH&&&&&& ;调小时时闪标志GWAIT8:& LCALL DISPLAY& JNB P0.1,GWAIT8SETG9:& LCALL DISPLAY& JNB P0.1,SETG10& JNB P0.2,GADDHOUR& JNB P0.3,JIANHOUR& AJMP SETG9GADDHOUR:& MOV R7,62H&&&&&&& ;小时加一& LCALL ADD1& MOV 62H,A& CJNE A,#24H,GADDHOUR1& MOV 62H,#00H& AJMP GADDHOUR1JIANHOUR:& MOV R7,62H&&&&&&& ;小时减一& LCALL JIAN1& MOV 62H,A& CJNE A,#00H,GADDHOUR1& MOV 62H,#23HGADDHOUR1:& MOV 32H,#84H&&&& ;小时值送人1302& MOV 31H,62H& LCALL WRITE& MOV R0,62H& LCALL DIVIDE&&&&& ;小时值分离送显示缓存& MOV 74H,R1& MOV 44H,R1& MOV 75H,R2& MOV 45H,R2WAITT5:& ;~~~~~~~~~~~~~~~~~~~~~~~~~& LCALL DISPLAY& JNB P0.2,WAITT5& JNB P0.3,WAITT5& AJMP SETG9SETG10:& SETB 0EH&&&&&&& ;调分时候闪标志GWAIT10:& LCALL DISPLAY& JNB P0.1,GWAIT10SETG11:& LCALL DISPLAY& JNB P0.1,SETGOUT& JNB P0.2,GADDMINTUE& JNB P0.3,JIANMINTUE& AJMP SETG11GADDMINTUE:& MOV R7,61H&&&&& ;分钟加一& LCALL ADD1& MOV 61H,A& CJNE A,#60H,GADDMINTUE1& MOV 61H,#00H& AJMP GADDMINTUE1JIANMINTUE:& MOV R7,61H&&&&& ;分钟减一& LCALL JIAN1& MOV 61H,A& CJNE A,#00H,GADDMINTUE1& MOV 61H,#59HGADDMINTUE1:& MOV 32H,#82H&&& ;分钟值送人1302& MOV 31H,61H& LCALL WRITE& MOV R0,61H& LCALL DIVIDE&&& ;分钟值分离送显示缓存& MOV 72H,R1& MOV 42H,R1& MOV 73H,R2& MOV 43H,R2WAITT6:& LCALL DISPLAY& JNB P0.2,WAITT6& JNB P0.3,WAITT6& AJMP SETG11SETGOUT:& LCALL DISPLAY& JNB P0.1,SETGOUT& LCALL GENGXIAN& MOV 32H,#80H& MOV 31H,#00H&&&& ;1302晶振开始振荡& LCALL& WRITE& MOV 32H,#8EH& MOV 31H,#80H&&&& ;禁止写入1302& LCALL& WRITE& CLR 08H& CLR 09H& CLR 0AH& CLR 0BH& CLR 0CH& CLR 0DH& CLR 0EH& CLR 0FH& CLR ET1&&&&&&&&&&&&&&&& ;关闪中断& CLR TR1& LJMP MAIN1&;;闪动调时程序~~~~~~~~~~~~~~~~INTT1:& PUSH ACC& PUSH PSWGFLASH:& CPL 0FH& JB 0FH,GFLASH1& MOV 7CH,4CH& ;全部显示& MOV 7BH,4BH& MOV 7AH,4AH& MOV 79H,49H& MOV 78H,48H& MOV 77H,47H& MOV 76H,46H& MOV 75H,45H& MOV 74H,44H& MOV 73H,43H& MOV 72H,42H& MOV 71H,41H& MOV 70H,40HGFLASHOUT:& POP PSW& POP ACC& RETIGFLASH1:& JB 0AH,GFLASH2 ;调年闪& MOV 7CH,#0FH& MOV 7BH,#0FH& AJMP GFLASHOUTGFLASH2:& JB 0BH,GFLASH3 ;调月闪& MOV 7AH,#0FH& MOV 79H,#0FH& AJMP GFLASHOUTGFLASH3:& JB 0CH,GFLASH4 ;调日闪& MOV 77H,#0FH& MOV 76H,#0FH& AJMP GFLASHOUTGFLASH4:& JB 0DH,GFLASH5 ;调星期闪& MOV 78H,#0FH& AJMP GFLASHOUTGFLASH5:& JB 0EH,GFLASH6 ;调小时闪& MOV 75H,#0FH& MOV 74H,#0FH& AJMP GFLASHOUTGFLASH6:& MOV 73H,#0FH& ;调分钟闪& MOV 72H,#0FH& AJMP GFLASHOUT&;加一程序~~~~~~~~~~~~~~~~~~~~~~~~~&ADD1:& MOV A,R7& ADD A,#1& DA A& RET;减一程序~~~~~~~~~~~~~~~~~~~~~~~~~JIAN1:& MOV A,R7& DEC A& CJNE A,#4FH,KK1& MOV A,#49HKK1:& CJNE A,#3FH,KK2& MOV A,#39HKK2:& CJNE A,#2FH,KK3& MOV A,#29HKK3:& CJNE A,#1FH,KK4& MOV A,#19HKK4:& CJNE A,#0FH,KK5& MOV A,#09HKK5:& RET&;分离程序~~~~~~~~~~~~~~~~~~~~~~~~~&DIVIDE:& MOV A,R0& ANL A,#0FH& MOV R1,A& MOV A,R0& SWAP A& ANL A,#0FH& MOV R2,A& RET&;写1302程序~~~~~~~~~~~~~~~~~~~~~~~~~~&WRITE:& CLR SCLK& NOP& SETB RST& NOP& MOV A,32H&&MOV R4,#8WRITE1:& RRC A&&&& ;送地址给1302& NOP& NOP& CLR SCLK& NOP& NOP& NOP& MOV IO,C& NOP& NOP& NOP& SETB SCLK& NOP& NOP& DJNZ R4,WRITE1& CLR SCLK& NOP& MOV A,31H& MOV R4,#8WRITE2:& RRC A& NOP&&&& ;送数据给1302& CLR SCLK& NOP& NOP& MOV IO,C& NOP& NOP& NOP& SETB SCLK& NOP& NOP& DJNZ R4,WRITE2& CLR RST& RET&;读1302程序~~~~~~~~~~~~~~~~~~~~~~~~~&READ:& CLR SCLK& NOP& NOP& SETB RST& NOP& MOV A,32H& MOV R4,#8READ1:& RRC A&&& ;送地址给1302& NOP& MOV IO,C& NOP& NOP& NOP& SETB SCLK& NOP& NOP& NOP& CLR SCLK& NOP& NOP& DJNZ R4,READ1& MOV R4,#8READ2:& CLR SCLK& NOP&&& ;从1302中读出数据& NOP& NOP& MOV C,IO& NOP& NOP& NOP& NOP& NOP& RRC A& NOP& NOP& NOP& NOP& SETB SCLK& NOP& DJNZ R4,READ2& MOV 31H,A& CLR RST& RET;BCD码转换为10进制程序~~~~~&BCD_10:& MOV A,R0& ANL A,#0FH& MOV R1,A& ;高位×10， 加低位& MOV A,R0& SWAP A& ANL A,#0FH& MOV B,#10& MUL AB& ADD A,R1& MOV R0,A& RET&;查一年数据程序~~~~~~~~~~~~~~~~&CHECKMONTH:& LCALL BCD_10& MOV A,R0& MOV B,#04& MUL AB& MOV R1,A& MOV DPTR,#TAB& MOVC A,@A+DPTR& MOV R7,A&& ;第一字节送R7& INC R1& MOV A,R1& MOVC A,@A+DPTR& MOV R6,A& ;第二字节送R6& INC R1& MOV A,R1& MOVC A,@A+DPTR& MOV R5,A&& ;第三字节送R6& INC R1& MOV A,R1& MOVC A,@A+DPTR& MOV R4,A& ;第四字节送R4& RET;自动更新农历~~~~~~~~~~~~~~~GENGXIAN:& MOV R2,#00H& MOV R3,#00H& MOV A,month& CJNE A,#01H,GM2& MOV R0,day&& ;当前月为一月& LCALL BCD_10 ;当前日转换为10进制，送R2& MOV A,R0& MOV R2,A& AJMP TIAOZHENG1GM2:& CJNE A,#02H,GM3& MOV R0,day&&& ;当前月为二月& LCALL BCD_10 ;;当前日转换为10进制，& MOV A,R0&&&&& ;再加31，送R2& ADD A,#31& MOV R2,A& AJMP TIAOZHENG1GM3:& CJNE A,#03H,GM4& MOV R0,day&&& ;当前月为三月& LCALL BCD_10& ;当前日转换为10进制，& MOV A,R0&&&&& ;再加59，送R2& ADD A,#59& MOV R2,A& AJMP TIAOZHENG1GM4:& CJNE A,#04H,GM5& MOV R0,day&&&& ;当前月为四月& LCALL BCD_10&& ;;当前日转换为10进制,& MOV A,R0&&&&&& ;再加90，送R2& ADD A,#90& MOV R2,A& AJMP TIAOZHENG1GM5:& CJNE A,#05H,GM6& MOV R0,day&&&& ;当前月为五月& LCALL BCD_10&& ;当前日转换为10进制，& MOV A,R0&&&&&& ;再加120，送R2& ADD A,#120& MOV R2,A& AJMP TIAOZHENG1GM6:& CJNE A,#06H,GM7& MOV R0,day&&&& ;当前月为六月& LCALL BCD_10&& ;当前日转换为10进制，& MOV A,R0&&&&&& ;再加151，送R2& ADD A,#151& MOV R2,A& AJMP TIAOZHENG1GM7:& CJNE A,#07H,GM8& MOV R0,day&&&& ;当前月位七月& LCALL BCD_10&& ;当前日转换为10进制，& MOV A,R0&&&&&& ;再加181，送R2& ADD A,#181& MOV R2,A& AJMP TIAOZHENG1GM8:& CJNE A,#08H,GM9& MOV R0,day&&&& ;当前月为八月& LCALL BCD_10&& ;当前日转换为10进制,& MOV A,R0&&&&&& ;再加212，送R2& ADD A,#212& MOV R2,A& AJMP TIAOZHENG1GM9:& CJNE A,#09H,GM10& MOV R0,day&&& ;当前月为九月& LCALL BCD_10& ;当前日转换为10进制,& MOV A,R0&&&&& ;再加243& CLR C& ADD A,#243& JC GGG& MOV R2,A&&&&&& ;A没有溢出，送R2& AJMP TIAOZHENG1GGG:& MOV R3,#0FFH&& ;A溢出，A加一送R2& INC A&&&&&&&&& ;R3中送#0ffh& MOV R2,A& AJMP TIAOZHENG1GM10:& CJNE A,#10H,GM11& MOV R0,day&&& ;当前月为10月& LCALL BCD_10&& ;当前日转换为10进制,& MOV A,R0&&&&&& ;再加18，送R2& ADD A,#18&&&&& ;R3中送＃0FFH& MOV R2,A& MOV R3,#0FFH& AJMP TIAOZHENG1GM11:& CJNE A,#11H,GM12& MOV R0,day&&& ;当前月为11月& LCALL BCD_10& ;当前日转换为10进制,& MOV A,R0&&&&& ;再加49，送R2& ADD A,#49&&&& ;R3中送＃0FFH& MOV R2,A& MOV R3,#0FFH& AJMP TIAOZHENG1GM12:& MOV R0,day&&&& ;当前月为12月& LCALL BCD_10&& ;当前日转换为10进制,& MOV A,R0&&&&&& ;再加79，送R2& ADD A,#79&&&&& ;R3中送＃0FFH& MOV R2,A& MOV R3,#0FFH& AJMP TIAOZHENG1&& ;调整~~~~~~~~~~~~~~~~TIAOZHENG1:& MOV A,year& MOV B,#04& DIV AB& MOV A,B& JNZ GGG1& MOV A,65H&& ;当前年为闰年& CJNE A,#01H,AAAA& AJMP GGG1&&&&&&& ;当前月是1AAAA:& CJNE A,#02H,BBBB& AJMP GGG1&&&&&& ;当前月是2BBBB:& CJNE& R2,#0FFH,GGG2& MOV R3,#0FFH&& ;当前月不是1和2，& MOV R2,#01H&&& ;R1和R2总和加一& AJMP GGG1GGG2:& INC R2GGG1:& MOV R0,year&&& ;查一年数据& LCALL CHECKMONTH& MOV A,R2& CLR C& SUBB A,R7& MOV P0.5,C& CJNE A,#01H,GGG3& MOV R2,#01H& MOV A,R3& CJNE A,#00H,NEW1& MOV& 57H,#01H&& ;R2和R3总和减R7& MOV& 56H,#01H&& ;为0，则为春节& LJMP S_PLAYGGG3:& CJNE A,#00H,GGG6& MOV R2,A& AJMP OLDGGG6:& JNB P0.5,NEW2& MOV A,R7& CLR C& SUBB A,R2& MOV R7,A& CJNE R3,#0FFH,GGG5& MOV A,R3& CLR C& SUBB A,R7& MOV R2,A& MOV R3,#00H& AJMP NEWGGG5:& MOV A,R7& MOV R2,A& AJMP OLDNEW1:& MOV R2,#0FFH& MOV R3,#01H& AJMP NEWNEW2:& MOV R2,A& MOV A,R3& CJNE A,#0FFH,GGG4& MOV A,R2& MOV R3,A& MOV R2,#0FFHGGG4:& AJMP NEW; OLD农历为公历的前一年OLD:& MOV A,year& DEC A& MOV R0,A& LCALL CHECKMONTH& MOV A,R2& CLR C& SUBB A,#29& MOV P0.5,C& MOV R6,A& MOV A,R5& JB ACC.0,AAA ;12月为小月，转到AAA& MOV A,R2& CLR C& SUBB A,#30& MOV P0.5,C& MOV R6,AAAA:& MOV A,R6& CJNE A,#00H,BBB& MOV 56H,#29H ;为0，则为11月最后一天& MOV A,R5&&& ;小月为11月29& JB ACC.1,CCC& MOV 56H,#30H& ;大月为11月30CCC:& MOV 57H,#11H& LJMP S_PLAYBBB:& JNB P0.5, DDD& MOV A,#29& ; CY位置位，位12月& CLR C& SUBB A,R2& MOV R4,A& MOV A,R5& JB ACC.0,EEE& MOV A,#30& CLR C& SUBB A,R2& MOV R4,AEEE:& MOV A,R4& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#12H& LJMP S_PLAYDDD:& MOV A,#29 ;CY为0，为11月& CLR C& SUBB A,R4& MOV R1,A& MOV A,R5& JB ACC.1, FFF& MOV A,#30& CLR C& SUBB A,R4& MOV R1,AFFF:& MOV A,R1& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#11H& LJMP S_PLAY;农历和公历为同一年，;NEW此时R2中的值为FFH时，R3有值，否则为0NEW:& NOPM1:& MOV A,R2&& ;R2减一月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R6& JB ACC.6,SM11& MOV A,R2& CLR C& SUBB A,#30& MOV R1,ASM11:& JC SM12& MOV A,R1& &&&&&;R2减1月天数，够减& MOV R2,A &&&&&&;转二月& AJMP M2SM12:& CJNE R3,#00H,M13 ;R2减1月天数& LJMP Y1&&&&&&&&&& ;不够减，判R3为0否M13:& MOV A,R2&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&& ;再让一月减& MOV R2,A&&&&&&&&& ;还不够，则转Y1& MOV R3,#00H& AJMP M1M2:& CLR C&&& &&&&&;R2减一月天数，够减& MOV A,R2 &&&;转三月& SUBB A,#29& MOV R1,A& MOV A,R6& JB ACC.5,M21& MOV A,R2& CLR C& SUBB A,#30& MOV R1,AM21:& JC M22& MOV A,R1& ;R2减2月天数，够减& MOV R2,A& AJMP MM2M22:& CJNE R3,#00H,M23& ;R2减2月天数& LJMP Y2&&&&&&&& ;不够减，判，R3为0否M23:& MOV A,R2&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&& ;再让二月减& MOV R2,A&&&&&&& ;还不够，则转Y2& MOV R3,#00H& AJMP M2MM2:& LCALL CHECKRE& ;查2月，如果不为闰月& CJNE A,#02H,M3& ;转3月RM2:& MOV A,R4& ANL A,#0FH& JNZ RM21& MOV A,R2& CLR C& SUBB A,#30& MOV R1,A& AJMP RM22RM21:& MOV A,R2& CLR C& SUBB A,#29& MOV R1,ARM22:& JC RM23& MOV A,R1& ;R2减闰2月天数，够减& MOV R2,A&& ;转3月& AJMP M3RM23:& CJNE R3,#00H,RM24 ;R2减闰2月天数& LJMP RY2&&&& &;不够减，判，R3为0否RM24:& MOV A,R2&&&&&& &;不为0，R3加到R2中& ADD A,R3&&&&&& &;再让闰2月减& MOV R3,#00H&&& &;还不够，则转RY2& AJMP RM2M3:& MOV A,R2&&&&&& ;R2减3月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R6& JB ACC.4,M31& CLR C& MOV A,R2& SUBB A,#30& MOV R1,AM31:& JC M32& MOV A,R1&&& ;R2减3月天数，够减& MOV R2,A& AJMP MM3M32:& CJNE R3,#00H,M33& ;R2减3月天数& LJMP Y3&&&&&&&&&& ;不够减，判，R3为0否M33:& MOV A,R2&&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&& ;再让3月减& MOV R2,A&&&&&&&&&&& ;还不够，则转Y3& MOV R3,#00H& AJMP M3MM3:& LCALL CHECKRE&&& ;查3月，如果不为闰月& CJNE A,#03H,M4&& ;转4月RM3:& MOV A,R4& ANL A,#0FH&&&& ;R2减闰3月天数& JNZ RM31& MOV A,R2& CLR C& SUBB A,#30& MOV R1,A& AJMP RM32RM31:& MOV A,R2& CLR C& SUBB A,#29& MOV R1,ARM32:& JC RM33& MOV A,R1& ;R2减闰3月天数，够减& MOV R2,A& ;转4月& AJMP M4RM33:& CJNE R3,#00H,RM34 ;R2减闰3月天数& LJMP RY3&&&&&&&&& ;不够减，判，R3为0否RM34:& MOV A,R2&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&&& ;再让闰3月减& MOV R2,A&&&&&&&&&& ;还不够，则转RY3& MOV R3,#00H& AJMP RM3M4:& MOV A,R2& CLR C&&&& &&&&&&;R2减4月天数& SUBB A,#29& MOV R1,A& MOV A,R6& JB ACC.2,M41& CLR C& MOV A,R2& SUBB A,#30& MOV R1,AM41:& JC M42& MOV A,R1&& ;R2减4月天数，够减& MOV R2,A& AJMP MM4M42:& CJNE R3,#00H,M43& ;R2减4月天数& LJMP Y4&&&&& ;不够减，判，R3为0否M43:& MOV A,R2&&&& &;不为0，R3加到R2中& ADD A,R3&&&& &;再让4月减& MOV R2,A&&&& &;还不够，则转Y4& MOV R3,#00H& AJMP M4MM4:& LCALL CHECKRE ;查4月，如果不为闰月& CJNE A,#04H,M5 ;转5月RM4:& MOV A,R4& ANL A,#0FH&&& ;R2减闰4月天数& JNZ RM41& MOV A,R2& CLR C& SUBB A,#30& MOV R1,A& AJMP RM42RM41:& MOV A,R2& CLR C& SUBB A,#29& MOV R1,ARM42:& JC RM43& MOV A,R1&& ;R2减闰4月天数，够减& MOV R2,A&& ;转5月& AJMP M5RM43:& CJNE R3,#00H,RM44& ;R2减闰4月天数& LJMP RY4&&&&&&&&&& ;不够减，判，R3为0否RM44:& MOV A,R2&&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&& ;再让闰4月减& MOV R2,A& MOV R3,#00H&&&&&&& ;还不够，则转Y4& AJMP RM4M5:& MOV A,R2&&&&&&& ;R2减5月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R6& JB ACC.1,M51& MOV A,R2& CLR C& SUBB A,#30& MOV R1,AM51:& JC M52& MOV A,R1&&& ;R2减5月天数，够减& MOV R2,A& AJMP MM5M52:& CJNE R3,#00H,M53&& ;R2减5月天数& LJMP Y5&&&&&& ;不够减，判，R3为0否M53:& MOV A,R2&&&&& &;不为0，R3加到R2中& ADD A,R3&&&&& ;再让5月减& MOV R2,A&&&&& ;还不够，则转Y5& MOV R3,#00H& LJMP M5MM5:& LCALL CHECKRE& ;查5月，如果不为闰月& CJNE A,#05H,M6& ;转6月RM5:& MOV A,R4&&&&&& ;R2减闰5月天数& ANL A,#0FH& JNZ RM51& MOV A,R2& CLR C& SUBB A,#30& MOV R1,A& LJMP RM52RM51:& MOV A,R2& CLR C& SUBB A,#29& MOV R1,ARM52:& JC RM53& MOV A,R1&& ;R2减闰5月天数，够减& MOV R2,A&& ;转6月& LJMP M6RM53:& CJNE R3,#00H,RM54&& ;R2减闰5月天数& LJMP RY5&&&& &;不够减，判，R3为0否RM54:& MOV A,R2&&&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&&& ;再让5月减& MOV R2,A&&&&&&&&&&& ;还不够，则转RY5& MOV R3,#00H& LJMP RM5M6:& MOV A,R2&&&&&&& ;R2减6月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R6& JB ACC.0,M61& MOV A,R2& CLR C& SUBB A,#30& MOV R1,AM61:& JC M62& MOV A,R1& ;R2减6月天数，够减& MOV R2,A& LJMP MM6M62:& CJNE R3,#00H,M63&& ;R2减6月天数& LJMP Y6&&&&&&&&&&& ;不够减，判，R3为0否M63:& MOV A,R2&&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&& ;再让6月减& MOV R2,A&&&&&&&&&& ;还不够，则转Y6& MOV R3,#00H& LJMP M6MM6:& LCALL CHECKRE&& ;查6月，如果不为闰月& CJNE A,#06H,M7& ;转7月RM6:& MOV A,R4& ANL A,#0FH&&&&&& ;R2减闰6月天数& JNZ RM61& MOV A,R2& CLR C& SUBB A,#30& MOV R1,A& LJMP RM62RM61:& MOV A,R2& CLR C& SUBB A,#29& MOV R1,ARM62:& JC RM63& MOV A,R1&& ;R2减闰6月天数，够减& MOV R2,A&&& ;转7月& LJMP M7RM63:& CJNE R3,#00H,RM64&& ;R2减闰6月天数& LJMP RY6&&&& ;不够减，判，R3为0否RM64:& MOV A,R2&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&&& ;再让闰6月减& MOV R2,A&&&&&&&&&&& ;还不够，则转RY6& MOV R3,#00H& LJMP RM6M7:& MOV A,R2&&&&& ;R2减7月天数& CLR C&&SUBB A,#29& MOV R1,A& MOV A,R5& JB ACC.6,M71& MOV A,R2& CLR C& SUBB A,#30& MOV R1,AM71:& JC M72& MOV A,R1& ;R2减7月天数，够减& MOV R2,A& LJMP MM7M72:& CJNE R3,#00H,M73&& ;R2减7月天数& LJMP Y7&&&& ;不够减，判，R3为0否M73:& MOV A,R2&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&& ;再让6月减& MOV R2,A&&&&&&&&&&& ;还不够，则转Y7& MOV R3,#00H& LJMP M7MM7:& LCALL CHECKRE ;查7月，如果不为闰月& CJNE A,#07H,M8 ;转8月RM7:& MOV A,R4& ANL A,#0FH&&&& ;R2减闰7月天数& JNZ RM71& MOV A,R2& CLR C& SUBB A,#30& MOV R1,A& LJMP RM72RM71:& MOV A,R2& CLR C& SUBB A,#29& MOV R1,ARM72:& JC RM73& MOV A,R1 ;R2减闰7月天数，够减& MOV R2,A ;转8月& LJMP M8RM73:& CJNE R3,#00H,RM74& ;R2减闰7月天数& LJMP RY7&&&&&&&&&& ;不够减，判，R3为0否RM74:& MOV A,R2&&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&& ;再让闰7月减& MOV R2,A&&&&&& &&&&&;还不够，则转RY7& MOV R3,#00H& LJMP RM7M8:& MOV A,R2&&&&&&&& ;R2减8月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R5& JB ACC.5,M81& MOV A,R2& CLR C& SUBB A,#30& MOV R1,AM81:& JC M82& MOV A,R1&& ;R2减8月天数，够减& MOV R2,A&& ;转9月& LJMP M9M82:& CJNE R3,#00H,M83&& ;R2减8月天数& LJMP Y8&&&&&& ;不够减，判，R3为0否M83:& MOV A,R2&&&&& &;不为0，R3加到R2中& ADD A,R3&&&&& &;再让8月减& MOV R2,A&&&& &&;还不够，则转Y8& MOV R3,#00H& LJMP M8M9:& MOV A,R2&&&&& ;R2减9月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R5& JB ACC.4,M91& MOV A,R2& CLR C& SUBB A,#30& MOV R1,AM91:& JC M92& MOV A,R1&& ;R2减9月天数，够减& MOV R2,A& LJMP MM9M92:& CJNE R3,#00H,M93&& ;R2减9月天数& LJMP Y9&&&& ;不够减，判，R3为0否M93:& MOV A,R2&& &;不为0，R3加到R2中& ADD A,R3&&&&&&&&&& ;再让9月减& MOV R2,A&&&&&&&&&&& ;还不够，则转Y9& MOV R3,#00H& LJMP M9MM9:& LCALL CHECKRE& ;查9月，如果不为闰月& CJNE A,#09H,M10& ;转10月RM9:& MOV A,R4&&&&&&&& ;R2减闰9月天数& ANL A,#0FH& JNZ RM91& MOV A,R2& CLR C& SUBB A,#30& MOV R1,A& LJMP RM92RM91:& MOV A,R2& CLR C& SUBB A,#29& MOV R1,ARM92:& JC RM93& MOV A,R1& ;R2减闰9月天数，够减& MOV R2,A& ;转10月& LJMP M10RM93:& CJNE R3,#00H,RM94& ;R2减闰9月天数& LJMP RY9&&&&&&&&&& ;不够减，判，R3为0否RM94:& MOV A,R2&&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&& ;再让闰9月减& MOV R2,A&&&&&&&&&& ;还不够，则转RY9& MOV R3,#00H& LJMP RM9M10:& MOV A,R2&&&&&& ;R2减10月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R5& JB ACC.2,M101& MOV A,R2& CLR C& SUBB A,#30& MOV R1,AM101:& JC M102& MOV A,R1& ;R2减10月天数，够减& MOV R2,A& ;转11月& LJMP M11M102:& CJNE R3,#00H,M103&&&& ;R2减10月天数& LJMP Y10&&&&&&&&& &&&&;不够减，判，R3为0否M103:& MOV A,R2&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&&&&& ;再让10月减& MOV R2,A&&&&&&&&&&&&& ;还不够，则转Y10& MOV R3,#00H& LJMP M10M11:& MOV A,R2&&&&&&&&& ;R2减11月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R5& JB ACC.1,M111& MOV A,R2& CLR C& SUBB A,#30& MOV R1,AM111:& JC M112& MOV A,R1& ;R2减11月天数，够减& MOV R2,A& ;转12月& LJMP M12M112:& CJNE R3,#00H,M113&& ;R2减11月天数& LJMP Y11&&& ;不够减，判，R3为0否M113:& MOV A,R2&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&&& ;再让11月减& MOV R2,A&&&&&&&&&&& ;还不够，则转Y11&&MOV R3,#00H& LJMP M11M12:& MOV A,R2&&&&& ;R2减12月天数& CLR C& SUBB A,#29& MOV R1,A& MOV A,R5& JB ACC.0,M121& CLR C& MOV A,R2& SUBB A,#30& MOV R1,AM121:& CJNE R3,#00H,M122& ;R2减12月天数& LJMP Y12&&&&&&&&&& ;不够减，判，R3为0否M122:& MOV A,R2&&&&&&&&&& ;不为0，R3加到R2中& ADD A,R3&&&&&&&&&& ;再让12月减& MOV R2,A&&&&&&&&&& ;还不够，则转Y12& MOV R3,#00H& LJMP M12Y1:& MOV A,R2& MOV R0,A&&&&&& ;R2中为日的值& LCALL D_BCD& MOV 56H,A& MOV 57H,#01H& CLR F0&&& ;非闰月& LJMP S_PLAYY2:& CJNE R2,#00H,Y21& MOV A,R6&&&&& ;R2中为0，则为前一个月& MOV 56H,#29H& ;的的最后一天& JB ACC.6,Y22& MOV 56H,#30HY22:& MOV 57H,#01H& CLR F0& LJMP S_PLAYY21:& MOV A,R2& MOV R0,A&&&& ;R2中为日的值& LCALL D_BCD& MOV 56H,A& MOV 57H,#02H& CLR F0& LJMP S_PLAYRY2:& CJNE R2,#00H,RY21& MOV 56H,#29H& ;R2中为0，则为前一个月& MOV A,R6&&&&& ;的的最后一天& JB ACC.5,RY22& MOV 56H,#30HRY22:& MOV 57H,#02H& CLR F0& LJMP S_PLAYRY21:& MOV A,R2&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#02H& SETB F0&&& ;闰月& LJMP S_PLAYY3:& CJNE R2,#00H,Y31& LCALL CHECKRE&&&& ;查前一个月是否为闰月& CJNE A,#02H,Y32& MOV 56H,#29H&&&&& ;前一个月是闰月& MOV A,R4& ANL A,#0FH& &;R2中为0，则为前一个月& JNZ Y33&&&&&&&&&&& ;的的最后一天& MOV 56H,#30H& MOV 57H,#02H& SETB F0& LJMP S_PLAYY33:& MOV 57H,#02H& SETB F0& LJMP S_PLAYY32:& MOV 56H,#29H& ;前一个月不是闰月& MOV A,R6& JB ACC.5,Y34& MOV 56H,#30HY34:& MOV 57H,#02H& CLR F0& LJMP S_PLAYY31:& MOV A,R2& MOV R0,A&&&&& ;R2中为日的值& LCALL D_BCD& MOV 56H,A& MOV 57H,#03H& CLR F0& LJMP S_PLAYRY3:& CJNE R2,#00H,RY31& MOV 56H,#29H& MOV A,R6& JB ACC.4,RY32&& ;R2中为0，则为前一个月& MOV 56H,#30H&&& ;的的最后一天RY32:& MOV 57H,#03H& CLR F0& LJMP S_PLAYRY31:& MOV A,R2&&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#03H& SETB F0& LJMP S_PLAYY4:& CJNE R2,#00H,Y41& LCALL CHECKRE&&& ;查前一个月是否为闰月& CJNE A,#03H,Y42& MOV 56H,#29H&&&& ;前一个月是闰月& MOV A,R4&&&&&&&& ;R2中为0，则为前一个月& ANL A,#0FH&&&&&& ;的最后一天& JNZ Y43& MOV 56H,#30H& MOV 57H,#03H& SETB F0& LJMP S_PLAYY43:& MOV 57H,#03H& SETB F0& LJMP S_PLAYY42:& MOV 56H,#29H& ;前一个月不是闰月& MOV A,R6&&JB ACC.4,Y44& MOV 56H,#30HY44:& MOV 57H,#03H& CLR F0& LJMP S_PLAYY41:& MOV A,R2&&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#04H& CLR F0& LJMP S_PLAYRY4:& CJNE R2,#00H,RY41& MOV 56H,#29H&&& ;R2中为0，则为前一个月& MOV A,R6&&&&&&& ;的的最后一天& JB ACC.2,RY42& MOV 56H,#30HRY42:& MOV 57H,#04H& CLR F0& LJMP S_PLAYRY41:& MOV A,R2&&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#04H& SETB F0& LJMP S_PLAYY5:& CJNE R2,#00H,Y51& LCALL CHECKRE& ;查前一个月是否为闰月& CJNE A,#04H,Y52& MOV 56H,#29H& ;前一个月是闰月& MOV A,R4&&& &;R2中为0，则为前一个月& ANL A,#0FH&&&&&&&& ;的最后一天& JNZ Y53& MOV 56H,#30H& MOV 57H,#04H& SETB F0& LJMP S_PLAYY53:& MOV 57H,#04H& SETB F0& LJMP S_PLAYY52:& MOV 56H,#29H&& ;前一个月不是闰月& MOV A,R6& JB ACC.2,Y54& MOV 56H,#30HY54:& MOV 57H,#04H& CLR F0& LJMP S_PLAYY51:& MOV A,R2&&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#05H& CLR F0& LJMP S_PLAYRY5:& CJNE R2,#00H,RY51& MOV 56H,#29H&&& ;R2中为0，则为前一个月& MOV A,R6&&&&&&& ;的最后一天& JB ACC.1,RY52& MOV 56H,#30HRY52:& MOV 57H,#05H& CLR F0& LJMP S_PLAYRY51:& MOV A,R2&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#05H& SETB F0& LJMP S_PLAYY6:& CJNE R2,#00H,Y61& LCALL CHECKRE&& ;查前一个月是否为闰月& CJNE A,#05H,Y62& MOV 56H,#29H&&& ;前一个月是闰月& MOV A,R4&&& &;R2中为0，则为前一个月& ANL A,#0FH&&&&& ;的最后一天& JNZ Y63& MOV 56H,#30H& MOV 57H,#05H& SETB F0& LJMP S_PLAYY63:& MOV 57H,#05H& SETB F0& LJMP S_PLAYY62:& MOV 56H,#29H&& ;前一个月不是闰月& MOV A,R6& JB ACC.1,Y64& MOV 56H,#30HY64:& MOV 57H,#05H& CLR F0& LJMP S_PLAYY61:& MOV A,R2&&&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#06H& CLR F0& LJMP S_PLAYRY6:& CJNE R2,#00H,RY61& MOV 56H,#29H ;R2中为0，则为前一个月& MOV A,R6&&&& ;的最后一天& JB ACC.0,RY62& MOV 56H,#30HRY62:& MOV 57H,#06H& CLR F0& LJMP S_PLAYRY61:& MOV A,R2&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#06H& SETB F0& LJMP S_PLAYY7:& CJNE R2,#00H,Y71& LCALL CHECKRE&&& ;查前一个月是否为闰月& CJNE A,#06H,Y72& MOV 56H,#29H&&&& ;前一个月是闰月& MOV A,R4&&&&&&&& ;R2中为0，则为前一个月& ANL A,#0FH&&&&&& ;的最后一天& JNZ Y73& MOV 56H,#30H& MOV 57H,#06H& SETB F0& LJMP S_pLAYY73:& MOV 57H,#06H& SETB F0& LJMP S_PLAYY72:& MOV 56H,#29H&& ;前一个月不是闰月& MOV A,R6& JB ACC.0,Y74& MOV 56H,#30HY74:& MOV 57H,#06H& CLR F0& LJMP S_PLAYY71:& MOV A,R2&&&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#07H& CLR F0& LJMP S_PLAYRY7:& CJNE R2,#00H,RY71& MOV 56H,#29H&&& ;R2中为0，则为前一个月& MOV A,R5&&&&&&& ;的最后一天& JB ACC.6,RY72& MOV 56H,#30HRY72:& MOV 57H,#07H& CLR F0& LJMP S_PLAYRY71:& MOV A,R2&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#07H& SETB F0& LJMP S_PLAYY8:& CJNE R2,#00H,Y81& LCALL CHECKRE& ;查前一个月是否为闰月& CJNE A,#07H,Y82& MOV 56H,#29H&&&& ;前一个月是闰月& MOV A,R4&&& &;R2中为0，则为前一个月& ANL A,#0FH&&&&&& ;的最后一天& JNZ Y83& MOV 56H,#30H& MOV 57H,#07H& SETB F0& LJMP S_PLAYY83:& MOV 57H,#07H& SETB F0& LJMP S_PLAYY82:& MOV 56H,#29H& ;前一个月不是闰月& MOV A,R5& JB ACC.6,Y84& MOV 56H,#30HY84:& MOV 57H,#07H& CLR F0& LJMP S_PLAYY81:& MOV A,R2&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#08H& CLR F0& LJMP S_PLAYY9:& CJNE R2,#00H,Y91& MOV 56H,#29H&& ;R2中为0，则为前一个月& MOV A,R5&&&&&& ;的最后一天& JB ACC.5,Y92& MOV 56H,#30HY92:& MOV 57H,#08H& CLR F0& LJMP S_PLAYY91:& MOV A,R2&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#09H& CLR F0& LJMP S_PLAYRY9:& CJNE R2,#00H,RY91& MOV 56H,#29H&&& ;R2中为0，则为前一个月& MOV A,R5&&&&&&& ;的最后一天& JB ACC.4,RY92& MOV 56H,#30HRY92:& MOV 57H,#09H& CLR F0& LJMP S_PLAYRY91:& MOV A,R2&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#09H& SETB F0& LJMP S_PLAYY10:& CJNE R2,#00H,Y101& LCALL CHECKRE&&& ;查前一个月是否为闰月& CJNE A,#09H,Y102& MOV 56H,#29H &;前一个月是闰月& MOV A,R4&&& &;R2中为0，则为前一个月& ANL A,#0FH&& &;的最后一天& JNZ Y103& MOV 56H,#30H& MOV 57H,#09H& SETB F0& LJMP S_PLAYY103:& MOV 57H,#09H& SETB F0& LJMP S_PLAYY102:& MOV 56H,#29H&&& ;前一个月不是闰月& MOV A,R5& JB ACC.4,Y104& MOV 56H,#30HY104:& MOV 57H,#09H& CLR F0& LJMP S_PLAYY101:& MOV A,R2&&&&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#10H& CLR F0& LJMP S_PLAYY11:& CJNE R2,#00H,Y111& MOV 56H,#29H ;R2中为0，则为前一个月& MOV A,R5&&&&&&&& ;的最后一天& JB ACC.2,Y112& MOV 56H,#30HY112:& MOV 57H,#10H& CLR F0& LJMP S_PLAYY111:& MOV A,R2&&& ;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#11H& CLR F0& LJMP S_PLAYY12:& CJNE R2,#00H,Y121& MOV 56H,#29H&&&& ;R2中为0，则为前一个月& MOV A,R5&&&&&&&&& ;的最后一天& JB ACC.1,Y122& MOV 56H,#30HY122:& MOV 57H,#11H& CLR F0& LJMP S_PLAYY121:& MOV A,R2& &&;R2中为日的值& MOV R0,A& LCALL D_BCD& MOV 56H,A& MOV 57H,#12H& CLR F0& LJMP S_PLAYS_PLAY:& MOV R0,57H& LCALL DIVIDE& ;月分离送显示缓存& MOV 52H,R1& MOV 53H,R2& MOV R0,56H& LCALL DIVIDE& ;日分离送显示缓存& MOV 50H,R1& MOV 51H,R2& RET&;查是否闰月程序;;&CHECKRE:& MOV A,R4& SWAP A& ANL A,#0FH& RET;10进制转换为BCD码程序;&D_BCD:& MOV A,R0& MOV B,#10& DIV AB& SWAP A& ORL A,B& RET&;;显示程序;;;&DISPLAY:& ;LCALL TOUTOU& MOV A,10H& ANL A,#B& MOV 59H,A& MOV A,76H&&&&&&&&&&&&&& ;第八列LED& ANL A,#B& SWAP A& ADD A,59H& MOV P1,A& MOV A,70H& ANL A,#B& ADD A,#B& MOV P2,A& LCALL DL1MS&& MOV A,10H& ANL A,#B& SWAP A& MOV 5AH,A& MOV A,77H&&&&&&&&&&&&& ;第七列LED& ANL A,#B& SWAP A& ADD A,5AH& MOV P1,A& MOV A,71H& ANL A,#B& ADD A,#B& MOV P2,A& LCALL DL1MS&& MOV A,56H&&&&&&&&&&&& ;第六列LED& SWAP A& ANL A,#B& ADD A,79H& SWAP A& MOV P1,A& MOV A,72H& ANL A,#B& ADD A,#B& MOV P2,A& LCALL DL1MS&& MOV A,56H&&&&&&&&&&& ;第五列LED& ANL A,#B& ADD A,7AH& SWAP A& MOV P1,A& MOV A,73H& ANL A,#B& ADD A,#B& MOV P2,A& LCALL DL1MS&& MOV A,57H&&&&&&&&&&& ;第四列LED& SWAP A& ANL A,#B& ADD A,7BH& SWAP A& MOV P1,A& MOV A,74H& ANL A,#B& ADD A,#B& MOV P2,A& LCALL DL1MS&& MOV A,57H&&&&&&&&&&& ;第三列LED& ANL A,#B& ADD A,7CH& SWAP A& MOV P1,A& MOV A,75H& ANL A,#B& ADD A,#B& MOV P2,A& LCALL DL1MS&& MOV P1,#B& MOV P2,#B&&& ;第二列LED& LCALL DL1MS&& MOV A,78H&&&&&&&&&&& ;第一列LED& ANL A,#B& ADD A,#B& MOV P1,A& MOV P2,#B& LCALL DL1MS& MOV P1,#0FFH& RETZJ:& MOV 01H,#150ZZZ1:& MOV P2,#B& MOV P1,#88H& LCALL DL1MS& MOV P2,#B& MOV P1,#88H& LCALL DL1MS& MOV P2,#B& MOV P1,#88H& LCALL DL1MS& MOV P2,#B& MOV P1,#88H& LCALL DL1MS& MOV P2,#B& MOV P1,#88H& LCALL DL1MS& MOV P2,#B& MOV P1,#88H& LCALL DL1MS& MOV P2,#B& MOV P1,#88H& LCALL DL1MS& MOV P2,#B& MOV P1,#88H& LCALL DL1MS& DJNZ 01H,ZZZ1& MOV P1,#0FFH& RET&DL1MS:& MOV R6,#14HDL1:& MOV R7,#19HDL2:& DJNZ R7,DL2& DJNZ R6,DL1& RET&;数据表~~~~~~~~~~~~~~~~~~~`~~TAB:& DB 35,15H,51H,00H,23,11H,52H,41H,42,12H,65H,00H& DB 31,11H,32H,00H,21,42H,52H,21H,39,52H,25H,00H& DB 28,25H,04H,71H,48,66H,42H,00H,37,33H,22H,00H& DB 25,15H,24H,51H,44,05H,52H,00H,33,22H,65H,00H& DB 22,21H,25H,41H,40,24H,52H,00H,30,52H,42H,91H& DB 49,55H,05H,00H,38,26H,44H,00H,27,53H,50H,60H& DB 46,53H,24H,00H,35,25H,54H,00H,24,41H,52H,41H& DB 42,45H,25H,00H,31,24H,52H,00H,21,51H,12H,21H& DB 40,55H,11H,00H,28,26H,21H,61H,47,26H,61H,00H& DB 36,13H,31H,00H,25,05H,31H,51H,43,12H,54H,00H& DB 33,51H,25H,00H,22,42H,25H,31H,41,32H,22H,00H& DB 30,55H,02H,71H,49,55H,22H,00H,38,26H,62H,00H& DB 27,13H,64H,60H,45,13H,32H,00H,34,12H,55H,00H& DB 23,10H,53H,51H,42,22H,45H,00H,31,52H,22H,00H& DB 21,52H,44H,21H,40,55H,44H,00H,29,26H,50H,71H& DB 47,26H,64H,00H,36,25H,32H,00H,25,23H,32H,50H& DB 44,44H,55H,00H,32,24H,45H,00H,22,55H,11H,30H& END&
&&相关文章推荐
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：2345次
排名：千里之外}
我要回帖
更多关于 买家退货不全 的文章
更多推荐
- ·一个单元格引用另一个单元格的数据查找引用多个数据并加在一起？
- ·怎么样登录云空间下载安装呢？
- ·数控车床简单图纸编程图纸编程（发那克系统），有谁会的帮帮谢谢
- ·张铭新李新亮教授的学术成果和荣誉果
- ·2023年春节新疆快递现在停运了吗2024年具体哪天停运？
- ·改版后吞噬魔以后我打不碎吞噬魔的球了，这为什么
- ·八卦问题5极限伏虎八卦最大值3普通好还是一套好
- ·求助，汉密尔顿的钥匙藏身处的钥匙怎么弄
- ·i7-i7 6700hq怎么样 8g GTX965m4g 能开我的世界128x材质和超级光影吗
- ·我的世界巫妖怎么打 暮色森林巫妖塔怎么进打法技巧
- ·北千岛群岛岛电玩怎么选择？
- ·不思议迷宫冒险家称号系用什么称号好 冒险系称号选择推荐
- ·崩坏学园2迷宫小牙医要塞的积分刷哪个boss啊？牙医大姨妈什么的都刷过好几遍了积分也每提高，已经100%
- ·什么鬼，为什么合成高阶吸血鬼直接出6级
- ·王者荣耀ios电脑版菊花文怎么在iOS上用？
- ·let it go 下载的图解我的是苹果手机不能截图
- ·目前什么高端卡片机推荐2017性能最佳
- ·有谁知道峨眉山市人民医院原员工袁维刚的手机号码
- ·联想z485 wifi打不开手机wifi开关打不开该怎么办
- ·CSFvpy格式文件转化mp4如何转化为MP4文件
- ·网购万年历数码管显示不全可以买家退货不全吗
- ·hp126a打印机硒鼓型号hp127硒鼓型号是哪个
- ·工厂内要多少分贝噪音分贝标准才需要佩戴耳塞
- ·ipad上qq怎么删除相册ipadqq相册
- ·求助下联想y47y460音响破音音了怎么办
- ·手机qq升级了是不是自己就不在强制获取qq好友列表表里面了啊
- ·华为应用市场赚华为花瓣兑换就是坑手机是干什么用的？怎么才能兑到手机？
- ·三星手机驱动安装失败可以安装描吗
- ·你好手机屏幕坏了是否寄到天猫过去修是不是真的二手车会不会被换零件换零件？
- ·黄油相机电脑版怎样修改昵称
- ·手机es文件浏览器专业版都有哪些比较好用？哪些比较专业？
- ·有人敢用耳机孔耳机防尘塞有用吗吗
- ·耗电严重，还ios10发热严重耗电快，请问怎么解决
- ·iphone7plus亮黑色黑色怎么样的最新相关信息
- ·游戏在手机上玩游戏老是停止工作运行怎么回事
- ·怎么能怎么买到红米4公司的售后机
