单片机的万年历汇编语言程序

;真正的万年历:84bytes的51ASM;==SUB_WNL===万年历==*******SJDATA30H;世纪BCD00TO99NHDATA31H;年号BCD00TO990000TO9999年YFDATA32H;月份BCD01TO12org000hMOVSP,#40HMOVSJ,#21H;2004-05MOVNH,#01HMOVYF,#4HACALLSUB_WNLSJMP$;===============SUB_WNL===================;入口：;SJDATA30H;世纪BCD00TO99;NHDATA31H;年号BCD00TO990000TO9999年;YFDATA32H;月份BCD01TO12;出口;ACC--本月天数BCD28to31;B--本月1日的星期数1to6==星期1to星期6;0--星期日;使用:ACC,B,R5,R6;STACK:3bytes(不包括调用）ORG50HSUB_WNL:PUSHPSWMOVA,SJACALLBCD2BIN_MOD4;x400年:(大周期);=146097天=7*20871+0天;x100年:;000年=7*0+0+1-11=0*2+1****;100年=7*5217+7+1-22=1*2;200年=7*10435+7+1-44=2*2;300年=7*15653+7+1-66=3*2;{1,2,4,6}MOVA,R6;A=R6=SJ_BINMOD4RLCA;A=A*2+CA={1,2,4,6}****XRLA,#10000111B;A=87H-A;边界调整MOVR5,A;A={86H,85H,83H,81H};R5:星期MOVA,NHJZWNL_1ACALLBCD2BIN_MOD4XCHA,R5SUBBA,R5;0年;0=0+0+1+(-1)***MOVR5,AWNL_1:MOVA,YFADDA,#(WNL_TAB-$-4)MOVCA,@A+PCMOVR6,ASWAPAACALLWNL_F0;大年对>=3月调整准备ADDCA,R5;月调整MOVB,#7DIVAB;B=AMOD7MOVA,R6ACALLWNL_F0;大年调整准备ADDCA,#28POPPSWRETWNL_TAB:DB3*2+5*32+0;1BIT0:2月标志DB0*2+1+1*32+0;2**BIT1..2:月大小DB3*2+1*32+16;300：28天DB2*2+4*32+16;401：----DB3*2+6*32+16;510:30天DB2*2+2*32+16;611:31天DB3*2+4*32+16;7BIT3:0-----DB3*2+7*32+16;8BIT4:0:1/2月DB2*2+3*32+16;91:>=3月WNL_F0:;6BYTES;大年调整准备RRCA;0AHANLA,#07H;0BH;0CHANLC,F0;0DH;0EHRET;0FHDB3*2+5*32+16;10HBIT5..7:星期调整数DB2*2+1*32+16;11H0：---DB3*2+3*32+16;12H1-7:调整数BCD2BIN_MOD4:;功能：A.1BYTESBCDTOBIN;D4;L2;入口：;A:SJORNH;F0:大世纪;出口;ACC--(BIN(A)4)*2-(BIN(A)MOD4)-F0;R6--BIN(A)MOD4;C--IIF((BIN(A)MOD4)=0,1,0);使用:ACC,B,R6,PSW;STACK:0bytes(不包括调用)MOVR6,A;BCD==>BINANLA,#0F0H;16X+Y==>10X+YSWAPAMOVB,#(256-6);(256-6)*X+(16X+Y)MULAB;ADDA,R6;=256X+(10X+Y)MOVR6,A;MOD4ANLA,#3XCHA,R6;R6=BINMOD4={0,1,2,3};X4年：3*365+366=7*209+(-2)**XRLA,R6;A=(BIN4)RRA;A=(BIN4)*2**MOVC,F0;大世纪调整SUBBA,R6;X1年:;0年0=0+0+1+(-1)***;1年366=7*52+1+1;2年366+365=7*104+2+1;3年366+365+365=7*156+3+1;{-1,1,2,3}CJNER6,#1,$+3;C=IIF(R6>=1,0,1)MOVF0,C;C=1为大年/大世纪RET;-----------------------------END;========ENDOFFILE

本文引用地址：

合肥隆鼻修复

福州牙齿矫正

郑州植发价格