资源描述:
《星期判别参考源程序》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、闰年判断主要代码Getrightdayprocnear;此子程序用来判断年份是否为闰年pushbx;保存寄存器状态pushcxpushdxmovsi,offsetwmovax,Yearmovcx,ax;把转换后的年份的数值存入cxmovdx,0;计算年份是否为4的整数倍movbx,4divbxmovb,dx;把此刻的余数赋给b,便于后面天数计算cmpdx,0jnzlab1;不能被4整除,不为闰年movax,cx;接着判断年份是否为100的倍数movbx,100divbxmovcc,dx;把此刻的余数赋给cc,便
2、于后面天数计算cmpdx,0jnzlab2;不为100的倍数,则为闰年movax,cx;再判断是否为400的倍数movbx,400divbxmovd,dx;把此刻的余数赋给d,便于后面天数计算cmpdx,0jzlab2;为400的倍数,则为闰年闰年判断流程图蔡勒(Zeller)公式主要代码decyearmovax,yearmovcx,ax;year自减1再存入cxmovdx,0movbl,4divbxaddcx,ax;把[Y-1]/4的商加入cxxorax,axxorbx,bxmovax,yearmovdx,0
3、movbl,100divbxsubcx,ax;用cx中的值减去[Y-1]/100的商xorax,axxorbx,bxxordx,dxmovax,yearmovbx,400divbxaddcx,ax;把[Y-1]/400的商加入cxxorax,axmovdx,0movbx,0incmonthmoval,monthmovbl,13mulbl;月加1后乘以13xorbx,bxmovbl,5divbxaddcx,ax;把上面得到的月除以5取整加入cx蔡勒(Zeller)公式运用流程图说明:是只把前面得出的结果赋值给后者
4、a的值和星期的对应关系a的值0123456星期星期日星期一星期二星期三星期四星期五星期六五、程序源代码stackSEGMENTstackDB200DUP(0)stackENDSdatasegmentYeardw0Monthdb0Daydb0tempdb10dup(0)countdw?ErrMsgdb0dh,0ah,'Inputwrong!pleaseinputagain!','$'str1db0dh,0ah,'pleaseinputyearmonthday:'0dh,0ah,'$'str2db0dh,0ah,'
5、WhetherornottocontinueinquiriesYes/No',0dh,0ah,'$'weekstr0db'TodayisSunday','$'weekstr1db'TodayisMonday','$'weekstr2db'TodayisTuesday','$'weekstr3db'TodayisWednesday','$'weekstr4db'TodayisThursday','$'weekstr5db'TodayisFriday','$'weekstr6db'TodayisSaturday',
6、'$'adw?b dw?ccdw?ddw?wdb?dataends;定义了变量和信息codesegmentassumecs:code,ds:data,ss:stackstart:movax,datamovds,axleadx,str1;提醒你输入年月日movah,9hint21h;显示字符串callGetYearMonthDay;调用子程序输入正确的年月日calldisplay;调用子程序通过计算得出星期sel:leadx,str2;提醒你选择退出程序还是继续movah,9hint21hmovah
7、,1;输入你的选择(键盘输入并回显)int21hcmpal,'Y'jestartcmpal,'y';输入y或Y继续程序jestartcmpal,'N'jeexitcmpal,'n';输入n或N退出程序jeexitjmpselexit:movah,4chint21h;退出;**************************************************主程序GetYearMonthDayprocnear;子程序输入正确的年月日pushaxpushcxpushsipushdi;压栈inputag
8、ain:movYear,0movMonth,0movDay,0movsi,0;把年月日重新归零repeatY:movah,1;输入年int21hcmpal,0dh;换行jeEndY;回车结束年的输入cmpal,20h;判断是否是是空格键SPjeEndY;空格结束年的输入cmpal,1bh;判断是否是退出ESCjeExitDos0;退出键则退出程序cmpal,30h;和0比较jbErr;