_GetBetweenDays proto dwYear1:dword,dwMonth1:dword,dwDay1:dword,dwYear2:dword,dwMonth2:dword,dwDay2:dword
;=============取农历年的天数====================
;       输入：年份
;       输出：天数
_GetLunarYearDays proto dwYear:dword
;=============取农历月的天数====================
;       输入：年份，月份
;       输出：天数
_GetLunarMonthDays proto dwYear:dword,dwMonth:dword
;=============填充农历数据结构==================
;       输入：农历数据结构指针（其中阳历必须已填好）
_GetLunarData proto _lpstLunarData:dword
;=============取农历月日字符串==================
;       输入：已填充好农历数据结构指针
;       输出：字符串缓冲区指针（最少13字节）
_GetLunarStr proto _lpstLunarData:dword,lpBuffer:dword
;=============干支序号转换成字符==================
;       输入：干支序号
;       输出：eax=字符
_GetGzStr proto GzNumber:dword
;=============干支序号转换五行生肖==============
;       输入：干支序号
;       输出：eax=低16位生肖，高16位五行
_GetSxStr proto GzNumber:dword
;=============节气序号转换字符=================
;       输入：节气序号
;       输出：eax=节气序号字符
_GetHDStr proto HdNumber:dword
;**************************************************
LUNARDATA       struct
dwYear          dw      ?       ;输入参数 – 年，十进制，例如 2000
dwMonth         dw      ?       ;输入参数 – 月，十进制，例如 10
dwDay           dw      ?       ;输入参数 – 日，十进制，例如 1

dwLunarYear     dw      ?               ;农历年，如 2000
dbLunarMonth    db      ?               ;农历月，如 12
dbLunarDay      db      ?               ;农历日，如 31
dbWeekDay       db      ?               ;星期，星期日=0，星期一=1…
dbIsLeapMonth   db      ?               ;是否是闰月，返回 1 为农历闰月

noLunarYear     db      ?               ;干支年，甲子=0，乙丑=1…
noLunarMonth    db      ?               ;干支月，甲子=0，乙丑=1…
noLunarDay&nbs103fp;     db      ?               ;干支日，甲子=0，乙丑=1…
noLunarHolDay   db      ?               ;农历节气，小寒=1，大寒=2
LUNARDATA       ends
;**************************************************
.code
LunarInfo       dw      04bd8h,04ae0h,0a570h,054d5h,0d260h,0d950h,06554h,056a0h,09ad0h,055d2h
dw      04ae0h,0a5b6h,0a4d0h,0d250h,0d255h,0b540h,0d6a0h,0ada2h,095b0h,04977h
dw      04970h,0a4b0h,0b4b5h,06a50h,06d40h,0ab54h,02b60h,09570h,052f2h,04970h
dw      06566h,0d4a0h,0ea50h,06e95h,05ad0h,02b60h,086e3h,092e0h,0c8d7h,0c950h
dw      0d4a0h,0d8a6h,0b550h,056a0h,0a5b4h,025d0h,092d0h,0d2b2h,0a950h,0b557h
dw      06ca0h,0b550h,05355h,04da0h,0a5d0h,04573h,052d0h,0a9a8h,0e950h,06aa0h
dw      0aea6h,0ab50h,04b60h,0aae4h,0a570h,05260h,0f263h,0d950h,05b57h,056a0h
dw      096d0h,04dd5h,04ad0h,0a4d0h,0d4d4h,0d250h,0d558h,0b540h,0b5a0h,095a6h
dw      095b0h,049b0h,0a974h,0a4b0h,0b27ah,06a50h,06d40h,0af46h,0ab60h,09570h
dw      04af5h,04970h,064b0h,074a3h,0ea50h,06b58h,055c0h,0ab60h,096d5h,092e0h
dw      0c960h,0d954h,0d4a0h,0da50h,07552h,056a0h,0abb7h,025d0h,092d0h,0cab5h
dw      0a950h,0b4a0h,0baa4h,0ad50h,055d9h,04ba0h,0a5b0h,05176h,052b0h,0a930h
dw      07954h,06aa0h,0ad50h,05b52h,04b60h,0a6e6h,0a4e0h,0d260h,0ea65h,0d530h
dw      05aa0h,076a3h,096d0h,04bd7h,04ad0h,0a4d0h,0d0b6h,0d250h,0d520h,0dd45h
dw      0b5a0h,056d0h,055b2h,049b0h,0a577h,0a4b0h,0aa50h,0b255h,06d20h,0ada0h
dw      04b63h
leapBigTab      db      00000010b,00000010b,00010000b,01000000b,00001010b
db      01001000b,00001001b,00000000b,00000000b,00000001b
&nbs103fp; db      00000000b,00000000b,00000000b,00000000b,00000100b
db      00000000b,00000000b,10000000b,00010010b
;=============检测对应年份是否闰年=============
;       输入：年份
;       输出：eax = 1 是闰年，否则 eax = 0
_IsLeapYear     proc dwYear:dword
xor     eax,eax
pushad
mov     ebx,dwYear
mov     eax,ebx
xor     edx,edx
mov     ecx,400
div     ecx
or      edx,edx
je      loc002
mov     eax,ebx
xor     edx,edx
mov     ecx,100
div     ecx
or      edx,edx
je      loc001
mov     eax,ebx
xor     edx,edx
mov     ecx,4
div     ecx
&n103fbsp;       or      edx, edx
jne     loc001
loc002:                 inc     dword ptr [esp+1Ch]             ;returnEAX
loc001:                 popad
ret
_IsLeapYear     endp
;==============取对应阳历年月的天数============
;       输入：年份，月份
;       输出：eax = 天数
_GetMonthDays   proc dwYear:dword,dwMonth:dword
mov     ah,byte ptr dwMonth
cmp     ah,8
setnc   al
add     al,ah                   ;1~12月得数：(1),2,(3),4,(5),6,(7),(9),10,(11),12,(13)
and     al,1
add     al,30
cmp     ah,2
jne     l01
invoke  _IsLeapYear,dwYear
add     al,28
l01:                    movzx   eax,al
ret
_GetMonthDays   endp
;==================================
_GetWeekDay             proc dwYear:dword,dwMonth:dword,dwDay:dword
pushad
movzx   esi,word ptr dwYear
mov     bh,byte ptr dwMonth
&nbsp103f;                      mov     bl,byte ptr dwDay
dec     esi
mov     edi,esi                 ;每年加1天(365/7余数是1)
cmp     bh,3                    ;以下计算闰年数
cmc
adc     esi,0                   ;2月份之前不含本年
mov     eax,esi
shr     eax,2
add     edi,eax                 ;每4年一闰
mov     eax,esi
xor     edx,edx
mov     ecx,100
div     ecx
sub     edi,eax                 ;被100整除不闰
mov     eax,esi
xor     edx,edx
mov     ecx,400
div     ecx
add     edi,eax           &nbs103fp;     ;被400整除还是要闰
movzx   eax,bh                  ;以下计算前一月到年头的天数
dec     al
shl     eax,1
add     edi,eax                 ;每月先以30计算(30/7余数是2)
cmp     bh,8
setnc   al
add     al,bh                   ;1~12月得数：(1),2,(3),4,(5),6,(7),(9),10,(11),12,(13)
shr     al,1                    ;1~12月得数：(0),1,(1),2,(2),3,(3),(4),5,(5),6,(6)
add     edi,eax                 ;大月天数
cmp     bh,3
setnc   al
shl     al,1
sub     edi,eax                 ;平月减二
mov     al,bl
add     eax,edi                 ;日数
xor     edx,edx
mov     ecx,7
&nb103fsp;           div     ecx
mov     dword ptr [esp+1Ch],edx         ;returnEAX
popad
ret
_GetWeekDay             endp

pushad
xor     eax,eax
mov &103fnbsp;   @Temp1,eax
mov     @Temp2,eax
cmp     dwYear,1900
jb      l002
cmp     dwMonth,12
jae     l002
finit
fstcw   @Rag1
fwait
mov     ax,@Rag1
and     ah,0F3h                 ;清圆整控制
or      ah,8                    ;圆整控制=10(舍入)
mov     @Rag2,ax
fldcw   @Rag2

mov     eax,dwYear
sub     eax,1900
mov     @Temp2,eax
fild    @Temp2
fmul    HgnMs                   ;回归年换算成秒

mov     ebx,dwMonth
shl     ebx,1
mov     eax,21208
&nbsp103f;                    mul     ebx
add     eax,7325                ;5-2″5′
mov     edx,eax
movzx   ecx,sTermInfo[ebx*2]
add     eax,ecx                 ;该月第一个节气距小寒的分数
imul    eax,60
mov     @Temp1,eax
fild    @Temp1
fadd    st,st(1)
fidiv   OneDay
fwait
fistp   @Temp1                  ;输出
;====
mov     eax,edx
add     eax,21208
movzx   ecx,sTermInfo[ebx*2+2]
add     eax,ecx                 ;该月第一个节气距小寒的分数
imul    eax,60
mov     @Temp2,eax
fiadd   @Temp2
fidiv   OneDay
fwait
&nbsp103f;                     fistp   @Temp2                  ;输出
;====
mov     esi,dwYear
dec     esi
mov     edi,esi
imul    edi,365                 ;每年365天
cmp     dwMonth,2
cmc
adc     esi,0
mov     eax,esi
shr     eax,2
add     edi,eax                 ;每4年一闰
mov     eax,esi
xor     edx,edx
mov     ecx,100
div     ecx
sub     edi,eax                 ;被100整除不闰
mov     eax,esi
xor     edx,edx
mov     ecx,400
div     ecx
add     edi,eax&nb103fsp;                ;被400整除还是要闰
mov     ah,byte ptr dwMonth
mov     al,ah
inc     al
cmp     ah,2
jb      l001
cmp     ah,7
setnc   al
inc     al
add     al,ah
shr     al,1
dec     al
l001:                   movzx   ebx,al
dec     ebx
mov     al,30
mul     ah
add     bx,ax
add     edi,ebx
sub     edi,693595              ;1900.1.1总天数
fwait
sub     @Temp1,edi
sub     @Temp2,edi
fldcw   @Rag1
l002:             &nbsp103f;     popad
mov     eax,@Temp1
mov     ah,byte ptr @Temp2
ret
_sTermOff       endp
;=======================================
_GetHolDay      proc    dwYear:dword,dwMonth:dword,dwDay:dword
mov     eax,dwMonth
dec     eax
invoke  _sTermOff,dwYear,eax
push    ecx
mov     ecx,eax
xor     eax,eax
cmp     cl,byte ptr dwDay
je      loc01
cmp     ch,byte ptr dwDay
jne     loc02
inc     eax
loc01:                  inc     eax
mov     ecx,dwMonth
dec     ecx
shl     ecx,1
add     eax,ecx
loc02:                  pop     ecx
ret
_GetHolDay      endp
;===================================
_GetBetweenDays         proc    dwYear1:dword,dwMonth1:dword,dwDay1:dword,dwYear2:dword,dwMonth2:d103fword,dwDay2:dword
pushad
movzx   esi,word ptr dwYear1
mov     bh,byte ptr dwMonth1
mov     bl,byte ptr dwDay1
mov     ebp,1
l01:                    dec     esi
mov     edi,esi
imul    edi,365                 ;每年365天
cmp     bh,3                    ;以下计算闰年数
cmc
adc     esi,0                   ;2月份之前不含本年
mov     eax,esi
shr     eax,2
add     edi,eax                 ;每4年一闰
mov     eax,esi
xor     edx,edx
mov     ecx,100
div     ecx
sub     edi,eax                 ;被100整除不闰
mov     eax,esi
&nb103fsp;                       xor     edx,edx
mov     ecx,400
div     ecx
add     edi,eax                 ;被400整除还是要闰
movzx   eax,bh                  ;以下计算前一月到年头的天数
dec     al
imul    eax,30                  ;每月先以30计算
add     edi,eax
cmp     bh,8
setnc   al
mov     ah,0
add     al,bh                   ;1~12月得数：(1),2,(3),4,(5),6,(7),(9),10,(11),12,(13)
shr     al,1
add     edi,eax                 ;加大月天数
cmp     bh,3
setnc   al
shl     al,1
sub     edi,eax                 ;平月减二
mov     al,bl
&n103fbsp;                 add     edi,eax                 ;日数
or      ebp,ebp
jz      l02
mov     [esp+1Ch],edi           ;returnEAX
mov     ebp,[esp+8]
movzx   esi,word ptr dwYear2
mov     bh,byte ptr dwMonth2
mov     bl,byte ptr dwDay2
xor     ebp,ebp
jmp     l01
l02:                    sub     [esp+1Ch],edi           ;returnEAX
popad
ret
_GetBetweenDays         endp

mov     esi,_lpstLunarData
mov     edi,lpBuffer
cmp     [esi].dbIsLeapMonth,1
jne     l_002
&n103fbsp;     mov     ax,0F2C8h                       ;’闰’
stosw
l_002:                  movzx   ebx,[esi].dbLunarMonth
cmp     bl,12
ja      l_005
cmp     bl,1
jb      l_005
mov     ax,0FDD5h                       ;’正’
je      l_004
cmp     bl,11
jb      l_003
mov     ax,word ptr Hz_TenStr           ;’十’
stosw
sub     bl,10
l_003:                  dec     bl
mov     ax, word ptr Hz_NumStr[2*ebx]
l_004:                  stosw
mov     ax, 0C2D4h                      ;’月’
stosw
l_005:                  mov     bl,[esi].dbLunarDay
cmp     bl,30
ja      l_008
103f                      mov     edx,9
mov     ax, word ptr Hz_NumStr[4]
je      l_007
mov     ax, word ptr Hz_NumStr[2]
cmp     bl,20
je      l_007
mov     al,bl
dec     al
js      l_008
movzx   eax,al
cdq
mov     ecx,10
div     ecx
mov     ax, word ptr Hz_NumHStr[2*eax]
l_007:                  stosw
mov     ax, word ptr Hz_NumStr[2*edx]
stosw
l_008:                  mov     al,0
stosb
popad
assume  esi:nothing
ret
_GetLunarStr    endp
;**************************************************
Tg_Str          db      ‘甲乙丙丁戊己庚辛壬癸’
Dz_Str          db      ‘子丑寅卯辰巳午未申酉戌亥’
_GetGzStr               proc    GzNumber:dword                        pushad
mov     eax,GzNumber
mov     cl,10
div     cl
movzx   ebx,ah
mov     eax,GzNumber
mov     cl,12
div     cl
movzx   edx,ah
mov     ax, word ptr Tg_Str[2*ebx]
mov     word ptr [esp+1Ch],ax
mov     ax, word ptr Dz_Str[2*edx]
mov     word ptr [esp+1Ch][2],ax
popad
ret
_GetGzStr               endp
;**************************************************
Sx_Str          db      ‘鼠牛虎免龙蛇马羊猴鸡狗猪’
Wx_Str          db      ‘金木水火土’
_GetSxStr               proc    GzNumber:dword
xor     eax,eax
pushad
mov     eax,GzNumber
mov     cl,12
div     cl
&nbs103fp;          movzx   edx,ah
mov     ax, word ptr Sx_Str[2*edx]
mov     word ptr [esp+1Ch],ax
mov     ecx,GzNumber
shr     ecx,1
cmp     cl,15
jb      l001
sub     cl,15
l001:                   mov     eax,42304130h
cmp     cl,8
jb      l002
sub     cl,8
mov     eax,2134210h
l002:                   shl     cl,2
shr     eax,cl
and     al,0Fh
movzx   eax,al
mov     ax,word ptr Wx_Str[eax*2]
mov     word ptr [esp+1Ch][2],ax
popad
ret
_GetSxStr               endp
;=======================================
Hd_str  db      ‘小寒大寒立春雨水惊蛰春分清明谷雨立夏小满芒种夏至’,
‘小暑大暑立秋处暑白露秋分寒露霜降立冬小雪大雪冬至’
_GetHDStr       proc    HdNumb103fer:dword
mov     eax,HdNumber
or      eax,eax
jz      l001
dec     eax
mov     eax,dword ptr Hd_str[eax*4]
l001:                   ret
_GetHDStr       endp

mov     bx,LunarInfo[edx*2]
&n103fbsp;   mov     ecx,12
xor     eax,eax
loc3:                   shl     bx,1
adc     eax,29
loop    loc3
or      bx,bx
jz      loc4
mov     cl,dl
and     cl,7
inc     cl
shr     edx,3
mov     dl,leapBigTab[edx]
shl     dl,cl
adc     eax,29
loc4:                   jmp     toRet
toerr:                  mov     eax,12*30
toRet:                  mov     [esp+1Ch],eax                   ;returnEAX
popad
ret
_GetLunarYearDays       endp
;=============================
_GetLunarMonthDays      proc    dwYear:dword,dwMonth:dword
pushad
mov     edx,dwYear
cmp     edx,2050
ja      toerr
103f                     sub     dx,1900
jb      toerr
mov     ecx,dwMonth
cmp     ecx,12
ja      toerr
cmp     cl,1
jb      toerr
movzx   ebx,LunarInfo[edx*2]
mov     esi,ebx
xor     eax,eax
shl     bx,cl
adc     eax,29
and     esi,0Fh
cmp     esi,ecx
jnz     toRet
mov     cl,dl
and     cl,7
inc     cl
shr     edx,3
mov     dl,leapBigTab[edx]
shl     dl,cl
adc     ah,29
jmp     toRet
toerr:     &103fnbsp;            mov     eax,30
toRet:                  mov     [esp+1Ch],eax                   ;returnEAX
popad
ret
_GetLunarMonthDays      endp
;=====================================
_GetLunarData           proc    _lpstLunarData:dword
assume esi:ptr LUNARDATA
local   AllDay:dword,ThisYear,ThisMonth,ThisDay,AllDays
mov     eax,-1
pushad
mov     esi,_lpstLunarData
lea     edi,[esi].dwLunarYear
mov     ecx,sizeof LUNARDATA-6
inc     eax
cld
rep     stosb
movzx   edx,[esi].dwYear
cmp     edx,1901
jb      OverErr
cmp     edx,2050
ja      OverErr
movzx   ebx,[esi].dwMonth
cmp     ebx,1
jb      OverErr
cmp     ebx,12
&nbs103fp;                     ja      OverErr
invoke  _GetMonthDays,edx,ebx
movzx   ecx,[esi].dwDay
cmp     ecx,1
jb      OverErr
cmp     ecx,31
ja      OverErr
invoke  _GetBetweenDays,edx,ebx,ecx,1901,1,1
mov     AllDays,eax
mov     ThisYear,1900
mov     ThisMonth,11
mov     ecx,eax
add     cl,11
mov     ThisDay,ecx
cmp     eax,19
jb      loc07
sub     eax,18
inc     ThisMonth
mov     ThisDay,eax
cmp     eax,31
jb      loc07
sub     eax,31
inc     103fThisYear
mov     ThisMonth,1
mov     ThisDay,1
mov     AllDay,eax
loc01:                  invoke  _GetLunarYearDays,ThisYear
cmp     AllDay,eax
jb      loc02
sub     AllDay,eax
inc     ThisYear
jmp     loc01
loc02:                  invoke  _GetLunarMonthDays,ThisYear,ThisMonth
movzx   edx,ah
mov     ah,0
cmp     AllDay,eax
jb      loc06
sub     AllDay,eax
cmp     AllDay,edx
jb      loc05
sub     AllDay,edx
loc04:                  inc     ThisMonth
jmp     loc02
loc05:                  mov     [esi].dbIsLeapMonth,1
loc06:                  mov     eax,AllDay
add     ThisDay,eax
loc07:              &nbs103fp;   mov     eax,ThisYear
mov     [esi].dwLunarYear,ax
mov     eax,ThisMonth
mov     [esi].dbLunarMonth,al
mov     eax, dword ptr ThisDay
mov     [esi].dbLunarDay,al
movzx   edx,[esi].dwYear
movzx   ebx,[esi].dwMonth
movzx   ecx,[esi].dwDay
invoke  _GetWeekDay,edx,ebx,ecx
mov     [esi].dbWeekDay,al
invoke  _GetHolDay,edx,ebx,ecx
mov     [esi].noLunarHolDay,al
mov     ecx,60
movzx   eax,[esi].dwLunarYear
add     eax,56
cdq
div     ecx
mov     [esi].noLunarYear,dl
movzx   eax,[esi].dwLunarYear
imul    eax,12
movzx   edx,[esi].dbLunarMonth
add     eax,edx
103f            add     eax,13
cdq
div     ecx
mov     [esi].noLunarMonth,dl
mov     eax,AllDays
add     eax,15
cdq
div     ecx
mov     [esi].noLunarDay,dl
mov     dword ptr [esp+1Ch],0           ;returnEAX
OverErr:                popad
ret
assume  esi:nothing
_GetLunarData           endp

CODES SEGMENT ；代码段开始
ASSUME CS:CODES,DS:DATAS ；通知汇编程序，源程序中定义的组由对应的段寄存器进行段的寻址
START:
MOV AX,DATAS ；实现段址DATAS加载到DS
MOV DS,AX
LEA DX,STRING ；取STRING的偏移地址存到DX中
MOV AH,9 ；调用9号功能号输出字符串
INT 21H

MOV AH,4CH ；实现返回MS-DOS
INT 21H
CODES ENDS ；代码段结束
END START ；源程序模块结束