delphi考试

求一个汇编语言程序，给一个年份，判断是否为润年？

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 endsstack segment stack    db 200 dup(0)stack endscode segme...全部

  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 endsstack segment stack    db 200 dup(0)stack endscode 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,0Ah    ;0AH功能调用从键盘接受字符串到内存的输入缓存区          int 21h          xor ch,ch ;ch要清0,否则循环次数有误。
            mov cl, buf 1 ;把输入的字符的个数保存在cl中          call datacate ;调用datacate子程序          call ifyears  ;调用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 21hdatacate proc near     ;把表示年份的字符串转换为数值                    push cx                                                      dec cx          lea si,buf 2     tt1: inc si          loop tt1          pop cx          mov ax,1      l1: push ax           mov dh,30h          mov bx,10          mov dl,[si]   ;字符减去30H后即可转换为十六进制数   sub dl,dh      xor dh,dh          mul  dx           add w,ax          pop ax          mul bx          dec si          loop l1          retdatacate endpifyears proc near            push  bx           push  cx           push  dx                    mov  ax,w                               mov  dx,0            mov  bx,100           div  bx           cmp  dx,0                      je  next    xor dx,dx           mov  ax,w           mov  bx,4                     div  bx           cmp  dx,0           je   lab2           jmp lab1     next:                 xor dx,dx           mov  ax,w                                 mov  bx,400           div  bx            cmp  dx,0                       je  lab2           jmp lab1     lab1: clc                         jmp lab3     lab2: stc     lab3: pop  dx            pop  cx           pop  bx           retifyears endpcode ends   end start赞同8| 评论。
  收起