求电子万年历的mcs51单片机程序！急！在线等！

闰年
闰年: 1.为了弥补人为的年份规定与地球实际绕日公转的时间差,2.而人为把时间差补上了的年份,该年即为闰年.

遵循的规律为: 四年一闰,百年不润,四百年再润.

if((year % 400 == 0)|(year % 4 == 0)&(year % 100 != 0))//闰年的计算方法

详情如下:

闰年（leap year），在公历（格里历）或夏历中有闰日的年份，以及在**旧历农历中有闰月的年份。地球绕太阳运行周期为365天5小时48分46秒（合365.24219天）即一回归年（tropical year）。公历的平年只有365日，比回归年短约0.2422 日，所余下的时间约为四年累计一天，于第四年加于2月，使当年的历年长度为366日，这一年就为闰年。现行公历中每400年有97个闰年。夏历的平年只有354日，比12个朔望月短0.3671日，为使每月初一与月朔相合，规定每30年中有11年的年底增加1日，这一年的历年有355日，即为闰年。**旧历农历作为阴阳历的一种，每月的天数依照月亏而定，一年的时间以12个月为基准，平年比一回归年少约11天。为了合上地球围绕太阳运行周期即回归年，每隔2到4年，增加一个月，增加的这个月为闰月。在加有闰月的那一年有13个月，历年长度为384或385日，这一年也称为闰年。
按照每四年一个闰年计算，平均每年就要多算出0.0078天，这样经过四百年就会多算出大约3天来，因此，每四百年中要减少三个闰年。所以规定，公历年份是整百数的，必须是400的倍数的才是闰年，不是400的倍数的就是平年。

也就是我们通常所说的：
四年一闰，百年不闰，四百年再闰。

西方公历的“闰年”
阳历中有闰日的年份叫闰年，相反就是平年，平年为365天，闰年为366天。在公历（格里历）纪年中，平年的二月为28天，闰年的二月为29天。闰年平月2月29日为闰日。

增加闰日的原因
现时的公历以回归年为“年”的计算基础，而一个回归年大约等于365.24220日。因为在平年公历只计算365日，结果四年后便会累积0.24220×4=0.9688日，大约等于一日，所以便逢四年增加一日闰日以抵销这0.9688日。

计算闰年的方法
公历纪年法中，能被4整除的大多是闰年，不能被100整除而能被400整除的年份是闰年，能被3200整除的也不是闰年，如1900年是平年，2000年是闰年，3200年不是闰年。

**农历的“闰年”
**旧历农历纪年中，有闰月的一年称为闰年。一般年份为12个月，354或355天，闰年则为13个月，383或384天

编程中公历闰年的简单计算方法：
设年份 year
if (year能被4整除 and 不能被100整除) or year能被400整除
then 该年为闰年
else 该年为平年
具体程序代码：
#主模块：
;月历打印
;主程序设置好入口参数，bx=年份，dl=月份
;调用子程序 d**play
;by wangrui
;2006-12-8

extrn d**play:far

esccode equ 01h
up equ 048h
down equ 050h
left equ 04bh
right equ 04dh

dseg segment
year dw 0
month db 0
temp db 10 dup(0)
count dw ?
errmsg db 0dh,0ah,"the input not decimal! $"
dseg ends

cseg segment
assume cs:cseg,ds:dseg
start:
mov ax,dseg
mov ds,ax

call getyearmonth

ws:
mov bx,year
mov dl,month
call far ptr d**play
again:
mov ah,0
int 16h
cmp ah,esccode
je exit
cmp ah,up
je nexty
cmp ah,down
je prey
cmp ah,left
je prem
cmp ah,right
je nextm
jmp again

nexty:
inc year
jmp ws
prey:
dec year
jmp ws
nextm:
inc month
cmp month,12
**e skip0
mov month,1
inc year
skip0:
jmp ws
prem:
dec month
cmp month,1
jae skip1
mov month,12
dec year
skip1:
jmp ws

exit:
mov ah,4ch
int 21h

;**************************************************

getyearmonth proc near
push ax
push cx
push si
push di

inputagain:
mov year,0
mov month,0

mov si,0
repeaty:
mov ah,1
int 21h
cmp al,0dh
je endy
cmp al,20h
je endy
cmp al,1bh
je exitdos0
cmp al,30h
** err
cmp al,39h
ja err
sub al,30h
mov temp[si],al
inc si
jmp repeaty

err:
mov ah,9
lea dx,errmsg
int 21h
mov ah,2
mov dl,0dh
int 21h
mov dl,0ah
int 21h
jmp inputagain

endy:
mov bx,10
mov di,si
mov si,0

nextybit:
mov ah,0
mov al,temp[si]
mov count,di
sub count,si
dec count
mov cx,count
jcxz skipy
lopmul: mul bx
loop lopmul
skipy: add year,ax
inc si
cmp si,di
jne nextybit

;----------------------------------the year ** put into [year]

push dx
mov ah,2
mov dl,0dh
int 21h
mov dl,0ah
int 21h
pop dx
jmp skiplap

exitdos0:
jmp exitdos

skiplap:
mov si,0
repeatm:
mov ah,1
int 21h
cmp al,0dh
je endmon
cmp al,20h
je endmon
cmp al,1bh
je exitdos
cmp al,30h
** err
cmp al,39h
ja err
sub al,30h
mov temp[si],al
inc si
jmp repeatm

endmon:
mov di,si
mov si,0
mov bl,10
nextmbit:
mov al,temp[si]
mov count,di
sub count,si
dec count
mov cx,count
jcxz skipm
lpmul: mul bl
loop lpmul
skipm: add month,al
inc si
cmp si,di
jne nextmbit

;-------------------------the month ** put into [month]

push dx
mov ah,2
mov dl,0dh
int 21h
mov dl,0ah
int 21h
pop dx

pop di
pop si
pop cx
pop ax
ret
exitdos:
mov ah,4ch
int 21h
getyearmonth endp

cseg ends
end start

#打印模块：
;***********************************
;入口参数：bx = year dl=month
;***********************************

public d**play
data segment
year dw ?
month db ?
leap db ?
weekstr db " mon tur wen thu fri sat sun",’$’
fillblank db " $"
fillblank4 db " $"
fillblank3 db " $"
c db ?
y db ?
firstday db ?
temp db ?
monthsize db ?
data ends
cseg segment
assume cs:cseg,ds:data
d**play proc far
push ds

mov ax,data
mov ds,ax

mov year,bx
mov month,dl

mov dx,0
xor bh,bh
mov ah,2
int 10h

mov ah,6
mov al,0
mov bh,**b
mov ch,0
mov cl,0
mov dh,24
mov dl,79
int 10h

mov ah,6
mov al,0
mov bh,**b
mov ch,0
mov cl,25
mov dh,24
mov dl,79
int 10h

call far ptr d**pym

lea dx,weekstr
mov ah,9
int 21h
mov ah,2
mov dl,0dh
int 21h
mov dl,0ah
int 21h

call getmonthsize ;把当前月份的天数放到monthsize

cmp month,2
ja skip
add month,12
dec year
skip:
mov bl,100
mov ax,year
div bl
mov c,al
mov y,ah
mov cl,2
mov bl,c
shr bl,cl ;int(c/4)
shl c,1 ;2*c
sub bl,c
add bl,y
shr y,cl ;int(y/4)
add bl,y ;int(c/4)-2*c+y+int(y/4)--->bl
inc month
xor ah,ah
mov al,month
mov dx,13
mul dx
mov cx,5
div cx
xchg ax,bx
cbw
xchg ax,bx
add bx,ax ;int(c/4)-2*c+y+int(y/4)+int(13*(m+1)/5)
mov ax,bx
mov cl,7
idiv cl
cmp ah,0
jg skipadd
add ah,7
skipadd:
mov bl,ah
mov firstday,bl

;--------------------------------计算出当前月份的第一天是星期几

mov cl,bl
mov ch,0
dec cl
jcxz skipf
fillb: mov ah,9
lea dx,fillblank
int 21h
loop fillb
skipf:
mov cl,1
d**lop: call d**pweek ;日期已经放入cl
inc cl
inc bl
cmp bl,8
** skipmodle
mov bl,1
mov ah,2
mov dl,0dh
int 21h
mov dl,0ah
int 21h

skipmodle:
cmp cl,monthsize
**e d**lop

mov ah,2
mov dl,0dh
int 21h
mov dl,0ah
int 21h

pop ds
ret
d**play endp

;******************************************************************

getmonthsize proc near
push ax
push dx

mov leap,0
mov ax,year
mov ch,**b
and ch,al
mov bl,100
div bl
mov cl,ah
cmp ch,0
jne skipnleap
cmp cl,0
jne skipleap

mov ax,year
mov bx,400
mov dx,0
div bx
cmp dl,0
je skipleap
skipnleap:
jmp gmsize
skipleap:
inc leap
gmsize:
mov al,month
cmp al,2
je return2
cmp al,8
** skipinc
inc al
skipinc:
test al,1
jz returneven
mov monthsize,31
jmp return
returneven:
mov monthsize,30
jmp return

return2:
mov monthsize,28
cmp leap,0
je return
inc monthsize
return:
pop dx
pop bx
ret
getmonthsize endp

;*****************************************************************

d**pweek proc near
push cx
push bx
push ax
push dx

cmp cl,10
jae doubledig

lea dx,fillblank4
mov ah,9
int 21h
mov dl,cl
add dl,30h
mov ah,2
int 21h
jmp back

doubledig:
mov ch,10
mov ah,0
mov al,cl
div ch

mov cx,ax
mov ah,9
lea dx,fillblank3
int 21h
mov dl,cl
add dl,30h
mov ah,2
int 21h
mov dl,ch
add dl,30h
int 21h
back:
pop dx
pop ax
pop bx
pop cx
ret
d**pweek endp
;*********************************************************

d**pym proc far
push bx
push dx

mov ax,year
mov dh,10
xor si,si
next: div dh
mov cl,ah
mov ch,0
inc si
push cx
mov ah,0
cmp ax,0
jne next

mov cx,si
repeat: pop dx
mov ah,2
add dl,30h
int 21h
loop repeat

mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h

mov al,month
mov ah,0
mov bl,10
div bl
mov cx,ax
mov dl,cl
mov ah,2
add dl,30h
int 21h
mov dl,ch
add dl,30h
int 21h

mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h

pop dx
pop bx
ret
d**pym endp
;****************************************************
cseg ends
end