1 data segment ;定义数据段
2 infon db 0dh,0ah,'Please input a year: $'
3 Y db 0dh,0ah,'This is a leap year! $'
4 N db 0dh,0ah,'This is not a leap year! $'
5 w dw 0
6 buf db 8
7 db ' '
8 db 8 dup(' ')
9 data ends
10
11 stack segment stack
12 db 200 dup(0)
13 stack ends
14
15 code segment
16 assume ds:data,ss:stack,cs:code
17 start:mov ax,data
18 mov ds,ax
19 mov w,0h
20
21 lea dx,infon ;在屏幕上显示提示信息
22 mov ah,9 ;21号ah放09H,dx为串地址，字符串以'$'结束
23 int 21h
24
25 lea dx,buf ;从键盘输入年份字符串
26 mov ah,0AH ;从键盘存在缓冲区，DX=缓冲区首址，DX为缓冲区最大大小，DX+1实际输入字符串数
27 int 21h
28
29 mov ch, 0h ;将实际输入长度放进cl中
30 mov cl, [buf+1]
31 lea di,buf+2 ;将字符串首址放在di中
32 call datacate
33 call ifyears
34 jc a1 ;进位为1则转移=jb,即闰年转移
35
36 lea dx,n ;显示不是闰年
37 mov ah,9
38 int 21h
39 jmp start
40 a1: lea dx,y ;显示是闰年
41 mov ah,9
42 int 21h
43 jmp start
44
45 exit: mov ah,4ch
46 int 21h
47
48
49
50 ;之前要准备好：将输入结果放进w中
51 datacate proc near；
52 push cx;
53 dec cx
54 lea si,buf+2
55 tt1: inc si ;loop的停止条件cx=0,cx自减
56 loop tt1 ;把字符串指针移到字符串最后
57 pop cx
58
59
60 mov dh,30h
61 mov bl,0Ah
62 mov ax,1 ;乘的时候要用
63 l1: push ax
64 sub byte ptr [si],dh ;sub dst,src减去'0',强制类型转换
65 mul byte ptr [si] ;mul src:字节操作：(AX)<-(AL)*(SRC) 字操作：(DX,AX)<-(AX)*(SRC) ;这里al做乘，当年份为较大时就会出错
66 add w,ax ;将这一位取出的数字所对应的整数加到w中
67 pop ax
68 mul bl ;ax原来为1以后每次乘10
69 dec si
70 loop l1
71 ret
72 datacate endp
73
74 ;计算是否为闰年，w存储年的数值，结果通过改变进位标志位来返回CF
75 ifyears proc near
76 push bx ;保护
77 push cx
78 push dx
79 mov ax,w ;将上面转换的整数值给ax
80 mov cx,ax ;让cx=ax=w,cx保存数据
81 mov dx,0 ;dx清0
82 mov bx,4 ;bx=4
83 div bx ;div SRC 字：(AL)=(AX)/(SRC)商 字节(AX)=(DX,AX)/(SRC)
84 cmp dx,0 ;是否可以整出4
85 jnz lab1
86 mov ax,cx ;是否可以整除100
87 mov bx,100
88 div bx
89 cmp dx,0
90 jnz lab2
91 mov ax,cx ;可以整除400
92 mov bx,400
93 div bx
94 cmp dx,0
95 jz lab2
96 lab1: clc ;不是闰年[clc 将进位位CF清零，即CF=0．]
97 jmp lab3 ; [STC（进位位置为1指令）]
98 lab2: stc ;不能整除100，但能整除4 + 可以整除400
99 lab3: pop dx
100 pop cx
101 pop bx
102 ret
103 ifyears endp
104 code ends
105 end start
