文件名称:闰年计算

  • 所属分类:
  • 汇编语言
  • 资源属性:
  • [WORD]
  • 上传时间:
  • 2008-12-24
  • 文件大小:
  • 10.5kb
  • 下载次数:
  • 0次
  • 提 供 者:
  • jackdawson0@
  • 相关连接:
  • 下载说明:
  • 别用迅雷下载,失败请重下,重下不扣分!

介绍说明--下载内容均来自于网络,请自行研究使用

 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

         

          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

 

 

   ifyears proc near

           push bx

           push cx

           push dx

           mov ax,w

           mov   cx,ax

           mov dx,0

           mov bx,4

           div bx

           cmp dx,0

           jnz lab1

           mov   ax,cx

           mov bx,100

           div bx

           cmp dx,0

           jnz lab2

           mov ax,cx

           mov bx,400

           div bx

           cmp dx,0

           jz lab2

     lab1: clc

           jmp lab3

     lab2: stc

     lab3: pop dx

           pop cx

           pop bx

           ret

   ifyears endp

code ends

   end start

     








[广告] 2008年最受关注楼盘


(系统自动生成,下载前可以参看下载内容)

下载文件列表

压缩包 : 新建+Microsoft+Word+文档.doc 列表

相关说明

  • 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
  • 本站是交换下载平台,提供交流渠道,下载内容来自于网络,除下载问题外,其它问题请自行百度更多...
  • 请直接用浏览器下载本站内容,不要使用迅雷之类的下载软件,用WinRAR最新版进行解压.
  • 如果您发现内容无法下载,请稍后再次尝试;或者到消费记录里找到下载记录反馈给我们.
  • 下载后发现下载的内容跟说明不相乎,请到消费记录里找到下载记录反馈给我们,经确认后退回积分.
  • 如下载前有疑问,可以通过点击"提供者"的名字,查看对方的联系方式,联系对方咨询.

相关评论

暂无评论内容.

发表评论

*主  题:
*内  容:
*验 证 码:

源码中国 www.ymcn.org