汇编：实现日历星期数查询工具

编制一个简单日历查询工具，输入年、月、日，能够判断当日的星期数，并进行输出，数据的输入和结果的输出要有必要的提示，且提示独占一行。

查阅资料

经过查阅资料，发现有两个相关的算法可以解决这个问题：

蔡勒公式
$W = [C / 4] - 2 C + Y + [Y / 4] + [13 * (M + 1) / 5] + D - 1$
公式中的符号含义如下：
- W：星期； W对7取模得：0-星期日，1-星期一，2-星期二，3-星期三，4-星期四，5-星期五，6-星期六，需要注意的是对负数的处理
- C：世纪-1（前两位数）
- Y：年（后两位数）
- M：月（M大于等于3，小于等于14，即在蔡勒公式中，某年的1、2月要看作上一年的13、14月来计算，比如2003年1月1日要看作2002年的13月1日来计算）
- D：日
- [ ]代表取整，即只要整数部分。
基姆拉尔森计算公式
$W e e k = (d + 2 * m + 3 * (m + 1) / 5 + y + y / 4 - y / 100 + y / 400 + 1) m o d 7$
公式中的符号含义如下：
- y : 年份（四位数）
- m: 月份（m大于等于3，小于等于14，某年的1、2月要看作上一年的13、14月来计算，比如2003年1月1日要看作2002年的13月1日来计算）
- d : 日期
- 当 $W e e k = = 0$ 的时候为周日

设计构思

基姆拉尔森计算公式的输入更加友好，因此我决定使用基姆拉尔森计算公式解决问题。

公式主要涉及加减乘除四则运算，输入主要是年月日三个数字。输出为星期数。

因此主要的工作有：

提示用户输入年月日，并进行错误检查（检查是否是数字，位数是否错误）
检查月份是否在正确的范围内（0~12)
检查日期是否在正确的范围内
- 是否小于1
- 是否大于该月的最大日期
- 是否是闰月，如果是闰月需要特别对待
使用基姆拉尔森计算公式计算星期数
输出结果，并询问是否再次输入

流程图

在这里插入图片描述

实现代码

ASSUME cs:CODE, ds:DATA, ss:STACK DATA SEGMENTS_Year 	db 	5,0,5 dup(0)S_Month db	3,0,3 dup(0)S_Day 	db	3,0,3 dup(0)YearIn	db	'please input year(eg:2020):$'MonthIn	db	'please	input month(eg:05):$'DayIn	db	'please input day(eg:01):$'WrongInfo db 'your input is illegal,please input again!$'ReaptInfo db 'Would you like to check again?(Y/n)	$'year 	dw	0month 	db	0day 	db	0Max_Day db	0,31,28,31,30,31,30,31,31,30,31,30,31tmp		dw	0week1	db	'Monday$'week2	db	'Tuesday$'week3	db	'Wednesday$'week4	db	'Thursday$'week5	db	'Friday$'week6	db	'Saturday$'week7	db	'Sunday$'hint	db	' is $'DATA ENDSSTACK SEGMENTdb 256	dup(0)
STACK ENDSCODE SEGMENTNEXTLINE PROC NEAR	;输出换行mov ah, 02Hmov	dl, 0DHint 21Hmov dl, 0AHint 21Hret
NEXTLINE ENDPMAIN PROC
START:mov ax,DATAmov ds,ax	;初始化
INPUTYEAR:call NEXTLINElea dx, YearIn	;提示输入yearmov ah, 09Hint 21Hlea dx, S_Year 	;读入yearmov ah, 0AHint 21Hcall NEXTLINE	;换行;检查Year是否合法mov cl, S_Year+1	;将实际长度保存到cx中mov ch, 0cmp cx, 4		;检查长度，同时计算year的值jnz WRONGYEARmov year, 0mov si, 2
CHECKYEAR:;判断是否是数字mov dl, S_Year[si]cmp dl, '0'jl	WRONGYEARcmp dl, '9'jg	WRONGYEAR;是数字，计算yearmov ax, yearmov bx, 10mul bxmov dl, S_Year[si]sub dl, '0'mov dh, 0add ax, dxmov year, axinc siloop CHECKYEAR;year计算完毕jp	INPUTMONTHWRONGYEAR:lea dx, WrongInfo	;输出错误信息mov ah, 09Hint 21Hcall NEXTLINE		;换行jp	INPUTYEAR		;重新输入INPUTMONTH:lea dx, MonthIn		;提示输入monthmov ah, 09Hint 21Hlea dx, S_Month 	;读入monthmov ah, 0AHint 21Hcall NEXTLINE		;换行;检查Month是否合法mov cl, S_Month+1	;将实际长度保存到cx中mov ch, 0cmp cx, 2			;检查长度，同时计算month的值jnz WRONGMONTHmov month, 0mov si, 2
CHECKMONTH:;判断是否是数字mov dl, S_Month[si]cmp dl, '0'jl	WRONGMONTHcmp dl, '9'jg	WRONGMONTH;是数字，计算monthmov al, monthmov bl, 10mul blsub dl, '0'add al, dlmov month, alinc siloop CHECKMONTH;month计算完毕;判断month是否在合法范围内mov dl, monthcmp dl, 1jl	WRONGMONTHcmp dl, 12jg	WRONGMONTHjmp INPUTDAYWRONGMONTH:lea dx, WrongInfo	;输出错误信息mov ah, 09Hint 21Hcall NEXTLINE		;换行jmp	INPUTMONTH		;重新输入INPUTDAY:lea dx, DayIn	;提示输入daymov ah, 09Hint 21Hlea dx, S_Day 	;读入daymov ah, 0AHint 21Hcall NEXTLINE	;换行;检查day是否合法mov cl, S_Day+1	;将实际长度保存到cx中mov ch, 0cmp cx, 2		;检查长度，同时计算day的值jnz WRONGDAY_TMPmov si, 2mov day, 0
CHECKDAY:;判断是否是数字mov dl, S_Day[si]cmp dl, '0'jl	WRONGDAY_TMPcmp dl, '9'jg	WRONGDAY_TMP;是数字，计算daymov al, daymov bl, 10mul blsub dl, '0'add al, dlmov day, alinc siloop CHECKDAY;day计算完毕;检查day是否在合法范围内mov dl, daycmp dl, 1jl	WRONGDAYmov cl, monthmov ch, 0mov si, cxcmp dl, Max_Day[si]	;检查有没有该月份最大的一天jg	CHECKLEAP		;检查是不是闰月jmp	INPUTEND		;输入结束WRONGDAY_TMP:jmp WRONGDAYCHECKLEAP:mov dh, monthcmp dh, 2jne WRONGDAY		;如果不是2月就肯定不对;判断是不是闰年if(year%4==0 && year%100!=0 || year%400==0) 是闰年mov ax, yearmov dx, 0mov bx, 400div bxcmp dx, 0je	ISLEAP 			;可以被400整除说明是闰月mov ax, yearmov dx, 0mov bx, 4div bxcmp dx, 0jne ISNOTLEAP		;不能被4整除说明不是闰月mov ax, yearmov dx, 0mov bx, 100div bxcmp dx, 0je 	ISNOTLEAP		;能被100整除说明不是闰月
ISLEAP:mov dl, daycmp dl, 29			jg	WRONGDAY		;比29还大jmp	INPUTEND		;输入结束ISNOTLEAP:
WRONGDAY:lea dx, WrongInfo	;输出错误信息mov ah, 09Hint 21Hcall NEXTLINE		;换行jmp	INPUTDAY		;重新输入INPUTEND:				;输入合法，开始使用基姆拉尔森公式计算答案mov dl, monthcmp dl, 1je	ADDMONTHcmp	dl, 2je 	ADDMONTHjmp CALCULATEADDMONTH:mov al, monthadd al, 12mov month, almov ax, yearsub ax, 1mov year, axCALCULATE:mov bl, daymov bh, 0			;bx := dayadd bl, monthadd bl, month 		;bx += 2*monthmov al, monthadd al, 1mov ah, aladd al, ah add al, ah 			;al := 3*(month+1)mov ah, 0mov cl, 5div clmov ah, 0			;ax := al/5add bx, ax			;bx += axadd bx, year 		;bx += yearmov ax, yearmov dx, 0mov cx, 4div cxadd bx, ax			;bx += year/4mov ax, yearmov dx, 0mov cx, 100div cxsub bx, ax			;bx -= year/100mov ax, yearmov dx, 0mov cx, 400div cxadd bx, ax			;bx += year/400add bx, 1			;bx += 1mov ax, bxmov dx, 0mov cx, 7div cx				;bx %= 7mov bx, dx;基姆拉尔森公式计算完毕OUTPUT:call NEXTLINEmov al, S_Year+1add al, 2mov ah, 0mov si, ax	mov S_Year[si], '$'	;加上字符串终结符$lea dx, S_Year+2	;输出年份mov ah, 09Hint 21Hmov dl, '\'mov ah, 02Hint 21Hmov al, S_Month+1add al, 2mov ah, 0mov si, ax	mov S_Month[si], '$'lea dx, S_Month+2mov ah, 09Hint 21Hmov dl, '\'mov ah, 02Hint 21Hmov al, S_Day+1add al, 2mov ah, 0mov si, ax	mov S_Day[si], '$'lea dx, S_Day+2mov ah, 09Hint 21Hlea	dx,	hintmov ah,	09Hint 21Hmov al, blcmp al, 0jnz D1lea dx, week7mov ah, 09Hint 21Hjmp	D7INPUTYEAR_TMP1:call NEXTLINEjmp INPUTYEARD1:	cmp al, 1jnz D2lea dx, week1mov ah, 09Hint 21Hjmp	 D7
D2:cmp al, 2jnz D3lea dx, week2mov ah, 09Hint 21Hjmp	D7 
D3:cmp al, 3jnz D4lea dx, week3mov ah, 09Hint 21Hjmp	D7 
D4:cmp al, 4jnz D5lea dx, week4mov ah, 09Hint 21Hjmp	D7 
D5:cmp al, 5jnz D6lea dx, week5mov ah, 09Hint 21Hjmp	D7 
D6:cmp al, 6jnz D7lea dx, week6mov ah, 09Hint 21H
D7:call NEXTLINEcall NEXTLINElea dx, ReaptInfo	;输出重复查询信息mov ah, 09Hint 21Hmov ah, 01H			;输入字符int 21Hcmp al, 'Y'jz INPUTYEAR_TMP1	;跳转到中继点1cmp al, 'y'jz INPUTYEAR_TMP1 	;跳转到中继点1mov ax, 4C00H		;程序结束int 21H
MAIN ENDPCODE ENDS
END START