[汇编] 闰年计算

 

data segment    ;定义数据段
    infon db 0dh,0ah,'Please input a year: $'
    Y db 0dh,0ah,'This is a leap year! $'
    N db 0dh,0ah,'This is not a leap year! $'
    w dw 0
    buf db 8
        db ' '
        db 8 dup(' ')
data ends

stack segment stack
    db 200 dup(0)
stack ends

code segment
          assume ds:data,ss:stack,cs:code
    start:mov ax,data
          mov ds,ax
          mov w,0h
          
          lea dx,infon  ;在屏幕上显示提示信息
          mov ah,9      ;21号ah放09H,dx为串地址，字符串以'$'结束
          int 21h

          lea dx,buf    ;从键盘输入年份字符串
          mov ah,0AH    ;从键盘存在缓冲区，DX=缓冲区首址，DX为缓冲区最大大小，DX+1实际输入字符串数
          int 21h       
           
          mov ch, 0h     ;将实际输入长度放进cl中
          mov cl, [buf+1]
          lea di,buf+2   ;将字符串首址放在di中
          call datacate
          call ifyears
          jc a1          ;进位为1则转移=jb,即闰年转移
          
          lea dx,n       ;显示不是闰年
          mov ah,9
          int 21h
          jmp start
    a1:   lea dx,y       ;显示是闰年
          mov ah,9
          int 21h      
          jmp start
          
    exit: mov ah,4ch
          int 21h
       
 

 ;之前要准备好：将输入结果放进w中 
 datacate proc near；       
          push cx;                                                      
          dec cx
          lea si,buf+2
     tt1: inc si            ;loop的停止条件cx=0,cx自减
          loop tt1          ;把字符串指针移到字符串最后
          pop cx
     
      
          mov dh,30h
          mov bl,0Ah
          mov ax,1          ;乘的时候要用
      l1: push ax
          sub  byte ptr  [si],dh ;sub dst,src减去'0',强制类型转换
          mul  byte ptr [si]     ;mul src:字节操作：(AX)<-(AL)*(SRC)  字操作：(DX,AX)<-(AX)*(SRC)  ;这里al做乘，当年份为较大时就会出错
          add w,ax               ;将这一位取出的数字所对应的整数加到w中
          pop ax
          mul bl                 ;ax原来为1以后每次乘10
          dec si
          loop l1
          ret
 datacate endp

   ;计算是否为闰年，w存储年的数值，结果通过改变进位标志位来返回CF
   ifyears proc near
           push  bx            ;保护
           push  cx
           push  dx
           mov ax,w            ;将上面转换的整数值给ax
           mov   cx,ax         ;让cx=ax=w,cx保存数据
           mov  dx,0           ;dx清0
           mov  bx,4           ;bx=4
           div  bx             ;div SRC 字：(AL)=(AX)/(SRC)商  字节(AX)=(DX,AX)/(SRC)
           cmp  dx,0           ;是否可以整出4
           jnz  lab1
           mov   ax,cx         ;是否可以整除100
           mov  bx,100
           div  bx
           cmp dx,0
           jnz  lab2
           mov  ax,cx          ;可以整除400
           mov bx,400
           div  bx
           cmp  dx,0
           jz  lab2
     lab1: clc                  ;不是闰年[clc 将进位位CF清零，即CF=0．]
           jmp lab3             ;        [STC（进位位置为1指令）]
     lab2: stc                  ;不能整除100，但能整除4 + 可以整除400
     lab3: pop  dx
           pop  cx
           pop  bx
           ret
    ifyears endp
code ends
   end start