汇编语言判断是否为润年的程序

CODE SEGMENT ;代码段
ASSUME DS:DATA,SS:STACK,CS:CODE;
START:MOV AX,DATA ;
MOV DS,AX ;将AX的内容传送给寄存器DX
LEA DX,INFON ;在屏幕上显示提示信息
MOV AH,9
INT 21H ;DOS的中断调用
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