CODE SEGMENT ;
ASSUME DS:DATA,SS:STACK,CS:CODE;
START:MOV AX,DATA ;
MOV DS,AX ;
LEA DX,INFON ;在屏幕上显示提示信息
MOV AH,9
INT 21H
LEA DX,BUF ;从键盘输入年份字符串
MOV AH,10
INT 21H
MOV CL, [BUF+1]
LEA DI,BUF+2
CALL DATACATE
CALL IFYEARS
JC A1
LEA DX,N
MOV AH,9
INT 21H
JMP EXIT
A1: LEA DX,Y
MOV AH,9
INT 21H
EXIT: MOV AH,4CH
INT 21H
DATACATE PROC NEAR
PUSH CX
DEC CX
LEA SI,BUF+2
TT1: INC SI
LOOP TT1
;LEA SI,CX[DI]
POP CX
MOV DH,30H
MOV BL,10
MOV AX,1
L1: PUSH AX
SUB BYTE PTR [SI],DH
MUL BYTE PTR [SI]
ADD W,AX
POP AX
MUL BL
DEC SI
LOOP L1
RET
DATACATE ENDP