汇编输入年月日并判断是否正确

一、定义数据段和堆栈段

CRLF MACRO
MOV DL,0DH
MOV AH,02H
INT 21H
MOV DL,0AH
MOV AH,02H
INT 21H
ENDM

CROSS MACRO
MOV DL,'/'
MOV AH,02H
INT 21H
ENDM

DATA SEGMENT
DATA1 DB 'THIS IS A TEST OF 18042116!$'
DATA2 DB 'PLEASE INPUT YEAR: $'
DATA3 DB 'PLEASE INPUT MONTH: $'
DATA4 DB 'PLEASE INPUT DATA: $'
DATA5 DB 'ERROR INPUT AGAIN!$'
DATA6 DB 'THIS IS A GOOD DAY!$'
DATA7 DB 'IT IS THE LAST MONTH!$'
Y DB 4 DUP(?)
M DB 2 DUP(?)
D DB 2 DUP(?)
DATA ENDS

STACK SEGMENT
STA DW 32 DUP(?)
TOP EQU LENGTH STA
STACK ENDS

CRLF 为换行宏定义
CROSS 为 / 宏定义

二、定义代码段并初始化堆栈

CODE SEGMENT 
	ASSUME CS:CODE,DS:DATA,SS:STACK
	START:
		MOV AX,DATA
		MOV DS,AX
		MOV AX,STACK
		MOV SS,AX
		MOV SP,TOP

三、从键盘获取年月日

		AG: LEA DX,DATA1
			MOV AH,09H
			INT 21H
			CRLF
			
			LEA DX,DATA3
			MOV AH,09H
			INT 21H
			MOV CX,2
			LEA BX,M
			CALL GETNUM
			CALL GETM
			CMP AX,-1
			JZ IFO
			CRLF
			
			LEA DX,DATA4
			MOV AH,09H
			INT 21H
			MOV CX,2
			LEA BX,D
			CALL GETNUM
			CALL GETD
			CALL MON
			CMP AX,-1
			JZ IFO
			CRLF
			
			LEA DX,DATA2
			MOV AH,09H
			INT 21H
			MOV CX,4
			LEA BX,Y
			CALL GETNUM
			CMP AX,-1
			JZ IFO
			CRLF
			
			JMP DIP

其中Y，M，D分别代表年月日，位置可以随便调节先获取谁。

			IFO:CRLF
			LEA DX,DATA5
			MOV AH,09H
			INT 21H
			CRLF
			JMP AG

错误段，如果错误，重新获取年月日。

四、输出年月日

			DIP:
			LEA BX,M
			MOV AX,[BX]
			CMP AX,'21'
			JZ L1

			LEA DX,DATA6
			MOV AH,09H
			INT 21H
			CRLF
			JMP L2
			
		 L1:LEA DX,DATA7
			MOV AH,09H
			INT 21H
			CRLF
			
		 L2:LEA BX,M
			MOV CX,2
			CALL DISD
			CROSS
			
			LEA BX,D 
			MOV CX,2
			CALL DISD
			CROSS
			
			LEA BX,Y
			MOV CX,4
			CALL DISD

其中L1，L2标识为判断是否为12月，如果是，则输出DATA7。

五、键盘获取子程序

		GETNUM PROC NEAR
		LP1:MOV AH,01H
			INT 21H
			CMP AL,'9'
			JG ERR
			CMP AL,'0'
			JL ERR 
			MOV [BX],AL
			INC BX
			LOOP LP1
			MOV AX,0
			RET
		ERR:MOV AX,-1
			RET
		GETNUM ENDP

六、打印输出子程序

		DISD PROC NEAR
		LP2:MOV DL,[BX]
			MOV AH,02H
			INT 21H
			INC BX
			LOOP LP2
			RET
		DISD ENDP

七、判断是否为1到12月子程序

		GETM PROC NEAR
			mov bl,m[0]
			sub bl,30h
			mov al,10
			mul bl
			mov cl,m[1]
			sub cl,30h
			sub ch,ch
			add ax,cx
			cmp ax,1
			jl err1
			cmp ax,12
			jg err1
			MOV AX,0
			RET
		ERR1:MOV AX,-1
			RET
		GETM ENDP

七、判断大小月子程序

		MON PROC NEAR
			 LEA BX,M 
			 MOV AX,[BX]
			 CMP AX,'10'
			 JZ MONB
			 CMP AX,'30'
			 JZ MONB
			 CMP AX,'50'
			 JZ MONB
			 CMP AX,'70'
			 JZ MONB
			 CMP AX,'80'
			 JZ MONB
			 CMP AX,'01'
			 JZ MONB
			 CMP AX,'21'
			 JZ MONB
			 CMP AX,'40'
			 JZ MONS
			 CMP AX,'60'
			 JZ MONS
			 CMP AX,'90'
			 JZ MONS
			 CMP AX,'11'
			 JZ MONS
			 CMP AX,'20'
			 JZ MONF
		MONB:mov bl,D[0]
			sub bl,30h
			mov al,10
			mul bl
			mov cl,D[1]
			sub cl,30h
			sub ch,ch
			add ax,cx
			cmp ax,1
			jl err3
			cmp ax,31
			jg err3
			MOV AX,0
			RET
		MONS:mov bl,D[0]
			sub bl,30h
			mov al,10
			mul bl
			mov cl,D[1]
			sub cl,30h
			sub ch,ch
			add ax,cx
			cmp ax,1
			jl err3
			cmp ax,30
			jg err3
			MOV AX,0
			RET
		MONF:mov bl,Y[2]
			sub bl,30h
			mov al,10
			mul bl
			mov cl,Y[3]
			sub cl,30h
			sub ch,ch
			add ax,cx
			mov bl,D[0]
			sub bl,30h
			mov al,10
			mul bl
			mov cl,D[1]
			sub cl,30h
			sub ch,ch
			add ax,cx
			cmp ax,1
			jl err3
			cmp ax,28
			jg err3
			MOV AX,0
			RET
		ERR3:MOV AX,-1
			RET
		MON ENDP

八、运行结果

以上就是全部代码了，我们来看下效果：