万年历.asm

单片机设计万年历过户就让他推举投影机荣誉军人他有今天加入条件

RR A
RR A ; 以上年除 4 即闰年数
ADD A,B
ADD A,week_Byte3
MOV B,#7
DIV AB
MOV week,B
MOV A,WEEK
CJNE A,#0,GOBACK
MOV B,#08H
GOBACK:
MOV WEEK,B
RET
get_COrreCt:
MOVC A,@A+PC
RET
DB 0,3,3,6,1,4,6,2,5,0,3,5






;*****************************************
;*    公历转农历程序                     *
;*****************************************

GENGXIN:
CONvert: MOV A,time_year ; 将年月日转化为 HEX 格式
MOV B,#16
DIV AB
MOV CONvert_yeAr,B
MOV B,#10
MUL AB
ADD A,CONvert_yeAr
MOV CONvert_yeAr,A
MOV A,time_month
MOV C,ACC.7
MOV f0,C ;f0 暂存世纪标志 , 仅用于数据表定位
CLR ACC.7
JNB ACC.4,CON_02

CLR ACC.4 ;ACC.4 为 1 表示大于 10 月
ADD A,#10
CON_02: MOV CONvert_mONth,A
MOV A,time_day
MOV B,#16
DIV AB
MOV CONvert_dAte,B
MOV B,#10
MUL AB
ADD A,CONvert_dAte
MOV CONvert_dAte,A
MOV dptr,#mONth_dAtA ; 以下定位本年数据在表格中的位置
MOV A,CONvert_yeAr
JB f0,CON_06 ; 当前为 19 世纪年跳转
ADD A,#100 ; 从 19 世纪起定义表格起始年 ,20 世纪要加 100 年
CON_06: CLR C
SUBB A,#stArt_yeAr
MOV B,#3 ; 表格每年 3 字节
MUL AB
ADD A,dpl
MOV dpl,A
MOV A,B
ADDC A,dph
MOV dph,A
MOV A,#2
MOVC A,@A+dptr ; 读本年表格最后一字节 ( 春节日期 )
CLR ACC.7 ;ACC.7 是闰年第 13 个月大小 , 在此不用
MOV B,#32
DIV AB
MOV temp_Byte1,A ; 春节月份
MOV temp_Byte2,B ; 春节日
; 以下计算当前日期距元旦天数
MOV temp_Byte3,#0 ; 设距元旦天数高位为 0
MOV A,CONvert_mONth
CJNE A,#10,CON_08
CON_08: JC CON_09 ;9 月以前日子数小于 256 天 , 高字节为 0(9 月份过去的整月为 8 个月 )
MOV temp_Byte3,#1
CON_09: MOV A,CONvert_yeAr
ANL A,#03h ;ACC 为除 4 的余数
JNZ CON_10 ; 转常年处理
; 年除 4 余数为 0 是闰年
MOV A,CONvert_mONth

LCALL get_ruN_dAys_lOw ; 取得闰年过去月的天数的低字节
SJMP CON_12
CON_10: MOV A,CONvert_mONth
LCALL get_dAys_lOw ; 取得常年过去月的天数的低字节
CON_12: MOV B,CONvert_dAte
DEC B ; 因为日期从 1 日起 , 而不是 0 日起
ADD A,B ; 过去的整月天数加当月天数
MOV temp_Byte4,A
JNC CON_14
INC temp_Byte3 ;temp_Byte3,temp_Byte4 分别为公历年过去的天数的高低字节
; 以下求春节距元旦天数 , 因肯定小于 256 天所以只用一字节表示
CON_14: MOV A,temp_Byte1
LCALL get_dAys_lOw ; 春节不会在 3 月份 , 不用考虑闰年
DEC A ; 因为日期从 1 日起
ADD A,temp_Byte2
MOV temp_Byte5,A ;temp_Byte5, 为春节距元旦天数
MOV A,CONvert_mONth
CJNE A,temp_Byte1,CON_20 ; 转换月与春节月比较
MOV A,CONvert_dAte
CJNE A,temp_Byte2,CON_20 ; 转换日与春节日比较
CON_20: JC CON_22
LJMP CON_60 ; 当前日大于等于春节日期 , 公历年与农历年同年份
CON_22: MOV A,CONvert_yeAr ; 不到春节 , 农历年比公历年低一年
JNZ CON_24
MOV A,#100 ; 年有效数 0-99
CON_24: DEC A
MOV CONvert_yeAr,A
MOV A,dpl
CLR C
SUBB A,#3
MOV dpl,A
JNC CON_26
DEC dph ; 表格指针指向上一年
CON_26: MOV A,temp_Byte5
CLR C
SUBB A,temp_Byte4
MOV temp_Byte3,A ;temp_Byte3 中为当前日离春节的天数
MOV CONvert_mONth,#12 ; 农历月为 12 月
CLR f0 ;1901-2099 年没有闰 12 月 , 清闰月标志
CLR A
MOVC A,@A+dptr

ANL A,#0f0h
SWAP A;
MOV temp_Byte4,A ;temp_Byte4 中为闰月
JZ CON_30 ; 没有闰月转移
MOV A,#2 ; 有闰月 , 取第 13 个月天数
MOVC A,@A+dptr
MOV C,ACC.7
MOV A,#1
MOVC A,@A+dptr
RLC A ;ACC 中为最后 6 个月的大小值
SJMP CON_34
CON_30: MOV A,#1
MOVC A,@A+dptr ;ACC 中为最后 6 个月的大小值
CON_34: MOV temp_Byte5,A
CON_40: MOV A,temp_Byte5
RRC A
MOV temp_Byte5,A
JC CON_42
MOV B,#29 ; 小月 29 天
SJMP CON_44
CON_42: MOV B,#30 ; 大月 30 天
CON_44: MOV A,temp_Byte3
CLR C
SUBB A,B
JZ CON_46 ; 正好够减 , 就是农历日 1 日
JNC CON_50
; 不够减一月天数 , 结束农历月调整
CPL A ; 求补取绝对值
INC A
CON_46: INC A ; 加 1 即为农历日
MOV B,#10 ; 转换并保存农历日 , 月 , 年
DIV AB
SWAP A
ORL A,B
MOV CONvert_dAte,A
MOV A,CONvert_mONth
MOV B,#10
DIV AB
SWAP A
ORL A,B
MOV C,f0

MOV CONvert_mONth,A


MOV A,CONvert_yeAr
MOV B,#10
DIV AB
SWAP A
ORL A,B
MOV CONvert_yeAr,A
RET ; 结束转换
CON_50: MOV temp_Byte3,A ;temp_Byte3 存减去一月后的天数
JB f0,CON_52 ; 是闰月 , 前推一月 , 月份不减
DEC CONvert_mONth;
CON_52: MOV A,CONvert_mONth
CJNE A,temp_Byte4,CON_54
CPL f0 ; 当前月与闰月相同 , 更改闰月标志
CON_54: SJMP CON_40
CON_60: MOV A,temp_Byte4 ; 春节日小于当前日 , 农历年同公历年
CLR C
SUBB A,temp_Byte5
MOV temp_Byte4,A
JNC CON_62
DEC temp_Byte3 ;temp_Byte3 temp_Byte4 中为公历日离春节的天数
CON_62: MOV CONvert_mONth,#1 ; 农历月为 1 月
CLR A
MOVC A,@A+dptr
MOV temp_Byte5,A
ANL A,#0f0h
SWAP A;
XCH A,temp_Byte5 ;temp_Byte5 中为闰月 ,ACC 为当年农历表第一字节
CLR f0 ; 第一个月肯定不是闰月
ANL A,#0fh
MOV temp_Byte1,A
MOV A,#1
MOVC A,@A+dptr
MOV temp_Byte2,A
ANL A,#0f0h
ORL A,temp_Byte1
SWAP A
MOV temp_Byte1,A
MOV A,#2
MOVC A,@A+dptr
MOV C,ACC.7
MOV A,temp_Byte2
ANL A,#0fh

SWAP A
MOV ACC.3,C;
MOV temp_Byte2,A ; 以上 temp_Byte1,temp_Byte2 各 BIT 存农历年大小
CON_70: MOV A,temp_Byte2
RLC A
MOV temp_Byte2,A
MOV A,temp_Byte1
RLC A
MOV temp_Byte1,A
JC CON_72
MOV B,#29 ; 小月 29 天处理
SJMP CON_74
CON_72: MOV B,#30 ; 大月 30 天
CON_74: MOV A,temp_Byte4
CLR C
SUBB A,B
JNC CON_78 ; 低字节够减跳转
MOV B,A ; 低字节不够减 , B 暂存减后结果 ,
MOV A,temp_Byte3
JZ CON_76 ; 高字节为 0, 不够减
DEC temp_Byte3
MOV temp_Byte4,B
SJMP CON_80
CON_76: MOV A,temp_Byte4 ; 不够减结束月调整
LJMP CON_46 ; 转日期加 1 后 , 处理并保存转换后农历年月日
CON_78: MOV temp_Byte4,A ;temp_Byte3 temp_Byte4 天数为减去一月后天数
CON_80: MOV A,CONvert_mONth
CJNE A,temp_Byte5,CON_82
CPL f0 ; 当前月与闰月相同 , 更改闰月标志
JNB f0,CON_82 ; 更改标志后是非闰月 , 月份加 1
SJMP CON_70
CON_82: INC CONvert_mONth;
SJMP CON_70
get_dAys_lOw:
MOVC A,@A+PC ; 取得常年过去月的天数的低字节
RET
DB 0,31,59,90,120,151,181,212,243,17,48,78
get_ruN_dAys_lOw:
MOVC A,@A+PC ; 取得闰年过去月的天数的低字节
RET
DB 0,31,60,91,121,152,182,213,244,18,49,79
mONth_dAtA:
; 公历年对应的农历数据 , 每年三字节 ,

; 格式第一字节 BIT7-4 位表示闰月月份 , 值为 0 为无闰月 ,BIT3-0 对应农历第 1-4 月的大小
; 第二字节 BIT7-0 对应农历第 5-12 月大小 , 第三字节 BIT7 表示农历第 13 个月大小
; 月份对应的位为 1 表示本农历月大 (30 天 ), 为 0 表示小 (29 天 ).
; 第三字节 BIT6-5 表示春节的公历月份 ,BIT4-0 表示春节的公历日期
DB 004h,0Aeh,053h; 1901;
DB 00Ah,057h,048h; 1902
DB 055h,026h,0Bdh; 1903
DB 00dh,026h,050h; 1904
DB 00dh,095h,044h; 1905
DB 046h,0AAh,0B9h; 1906
DB 005h,06Ah,04dh; 1907
DB 009h,0Adh,042h; 1908
DB 024h,0Aeh,0B6h; 1909
DB 004h,0Aeh,04Ah; 1910