TEMP_BYTE1 DATA 57H
TEMP_BYTE2 DATA 58H
TEMP_BYTE3 DATA 59H
TEMP_BYTE4 DATA 5AH
TEMP_BYTE5 DATA 5BH
;以下为公历转农历子程序...转换月与春节月比较
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,TEMP_BYTE4,CON_54
CPL F0 ;当前月与闰月相同,更改闰月标志
CON_54: SJMP CON_40
CON_60: MOV A,TEMP_BYTE4 ;春节日小于当前日,农历年同公历年...GET_RUN_DAYS_LOW:
MOVC A,@A+PC ;取得闰年过去月的天数的低字节
RET
DB 0,31,60,91,121,152,182,213,244,18,49,79
MONTH_DATA:
;公历年对应的农历数据