【汇编例题】判断某一年是否为润年

xiaosawanjava

1. 
   
2. data segment    ;定义数据段
   
3.     infon db 0dh,0ah,'Please input a year:
   
4. 
   
5.   ;提示信息
   
6.     Y db 0dh,0ah,'This is a leap year!
   
7. 
   
8.         ;是闰年
   
9.     N db 0dh,0ah,'This is not a leap year!
   
10. 
    
11.         ;不是闰年
    
12.     w dw 0        ;存放非ascii码数据的 闰年
    
13.     buf db 8    ;存放输入的闰年数据是ascii码
    
14.       
    
15. data ends
    
16. 
    
17. stack segment stack
    
18.     db 200 dup(0)
    
19. stack ends
    
20. 
    
21. code segment
    
22.           assume ds:data,ss:stack,cs:code
    
23.     start:mov ax,data
    
24.           mov ds,ax
    
25. 
    
26.             ;功能09H
    
27.           ;功能描述：输出一个字符串到标准输出设备上。如果输出操作被重定向，那么，
    
28.           ;将无法判断磁盘已满
    
29.           ;入口参数：AH＝09H
    
30.           ;DS:DX＝待输出字符的地址
    
31.           ;说明：待显示的字符串以’$’作为其结束标志
    
32.           ;出口参数：无
    
33.           lea dx,infon  ;取infon的偏移地址
    
34.           mov ah,9
    
35.           int 21h
    
36. 
    
37. 
    
38.           ;功能10
    
39.           ;功能描述：从标准输入设备上读入一个字节字符串，遇到“回车键”结束输入
    
40.           ;(输入的字符在标准的输出设备上有回显)。如果该输入操作被重定向，那么，
    
41.           ;将无法判断文件是否已到文件尾
    
42.           ;入口参数：AH＝0AH
    
43.           ;DS:DX＝存放输入字符的起始地址
    
44.           ;接受输入字符串缓冲区的定义说明：
    
45.           ;1、第一个字节为缓冲区的最大容量，可认为是入口参数；
    
46.           ;2、第二个字节为实际输入的字符数(不包括回车键)，可看作出口参数；
    
47.           ;3、从第三个字节开始存放实际输入的字符串；
    
48.           ;4、字符串以回车键结束，回车符是接受的最后一个字符；
    
49.           ;5、若输入的字符数超过缓冲区的最大容量，则多出的部分被丢弃，系统并
    
50.           ;发出响铃，直到输入“回车”键才结束输入。
    
51.           lea dx,buf    ;从键盘输入年份字符串
    
52.           mov ah,10
    
53.           int 21h
    
54.          
    
55.           mov cl, [buf+1] ;字符的个数
    
56.           call datacate
    
57.           call ifyears
    
58.           jc a1
    
59.          
    
60.           lea dx,n
    
61.           mov ah,9
    
62.           int 21h
    
63.           jmp exit
    
64.     a1:   lea dx,y
    
65.           mov ah,9
    
66.           int 21h
    
67.     exit: mov ah,4ch
    
68.           int 21h
    
69.       
    
70. 
    
71. 
    
72. datacate proc near
    
73.           push cx;                                                      
    
74.           dec cx
    
75.           lea si,buf+2
    
76.      tt1: inc SI      ;计算出最后一个年份字符的偏移
    
77.           loop tt1
    
78.           pop cx
    
79.      
    
80.       
    
81.           mov dh,30h
    
82.           mov bl,10
    
83.           mov ax,1
    
84.       l1: push ax
    
85.           sub  byte ptr  [si],dh
    
86.           mul  byte ptr [si]
    
87.           add w,ax
    
88.           pop ax
    
89.           mul bl
    
90.           dec si
    
91.           loop l1
    
92.           ret
    
93. datacate endp
    
94. 
    
95.    ;能被4整除且又能不能被100整除 是闰年 能直接被400整除也是闰年
    
96.    ifyears proc near
    
97.            push  bx
    
98.            push  cx
    
99.            push  dx
    
100.            mov ax,w
     
101.            mov   cx,ax
     
102.            mov  dx,0
     
103.            mov  bx,4
     
104.            div  bx
     
105.            cmp  dx,0
     
106.            jnz  lab1
     
107.            mov   ax,cx
     
108.            mov  bx,100
     
109.            div  bx
     
110.            cmp dx,0
     
111.            jnz  lab2
     
112.            mov  ax,cx
     
113.            mov bx,400
     
114.            div  bx
     
115.            cmp  dx,0
     
116.            jz  lab2
     
117.      lab1: clc
     
118.            jmp lab3
     
119.      lab2: stc
     
120.      lab3: pop  dx
     
121.            pop  cx
     
122.            pop  bx
     
123.            ret
     
124.    ifyears endp
     
125. code ends
     
126.    end start
     
127.       
     

复制代码