Assembly Language End Example——The Date

按中华民族的传统习惯，通常要在婴儿出生的百日举办庆祝仪式，因此需要推算一个婴儿出生后百日的日期，将该问题拓展，再分别推算一个人出生后“千日”和“万日”的日期。 例如：某人2018年5月3日出生，其百日为2018 年8月11日。 该程序实现的功能需要提示用户输入一个人的出生日期，据此计算并输出百日、千日和万日的日期。 输入、输出的日期格式须依照中国人的习惯，如2018-05-03。 提示：要考虑“闰年”； 汇编结课实验题，因为上课从未听讲在格式化输入输出上耗费大量时间，不过半个下午半个晚上也是肝完了，代码如下：

assume cs:code,ss:stack,ds:data

stack segment stack
    db 1024 dup (0)
stack ends

data segment
;存储年月日数据
year    dw  ?
month   db  ?
day     db  ?
buf db  10  dup (?);存储输入的字符串
data ends

code segment
start:
    mov ax,data
    mov ds,ax
    mov ax,0
    ;从键盘输入字符串
    lea di,buf;获取字符串首地址
input:
    ;逐个输入字符并存储
    mov ah,1
    int 21h
    ;检测到换行时结束输入
    cmp al,0dh
    je inputend
    mov ds:[di],al
    inc di
    jmp input
inputend:
    mov ds:[di],al
    call change;将输入字符串转化为年份数字,并存入数据段

    mov cx,100;入口参数，千日则1000，万日则10000
    call calculate;计算N日后的日期,并储存

    mov ax,ds:[year]
    mov cx,4
    ;输出并显示年份
outputy:
    mov dx,0
    mov bx,10
    div bx
    add dl,30h
    push dx
    loop outputy
    mov cx,4
displayy:
    ;逐个输出年份
    pop dx
    mov ah,2
    int 21h
    loop displayy
    ;格式化输出日期中的'-'
    mov dl,'-'
    mov ah,2
    int 21h
    ;为月份的输出做准备
    mov dx,0
    mov al,ds:[month]
    mov ah,0
    ;输出并显示月份
outputm:
    ;逐个输出月份
    mov bl,10
    div bl
    add al,30h
    add ah,30h
    mov bl,ah

    mov dl,al
    mov ah,2
    int 21h

    mov dl,bl
    mov ah,2
    int 21h
    ;格式化输出日期中的'-'
    mov dl,'-'
    mov ah,2
    int 21h
    ;为日期的输出做准备
    mov dx,0
    mov al,ds:[day]
    mov ah,0
    ;输出并显示日期
outputd:
    ;逐个输出日期
    mov bl,10
    div bl
    add al,30h
    add ah,30h
    mov bl,ah

    mov dl,al
    mov ah,2
    int 21h

    mov dl,bl
    mov ah,2
    int 21h
    ;程序返回
    mov ax,4c00h
    int 21h
change proc near;子程序，将输入字符串转化为年份数字，并存入数据段
    ;保护数据
    push ax
    push bx
    push cx
    push dx

    mov dx,0
    mov bx,0

    lea si,buf;获取字符串首地址
    mov bl,10;每次进位乘10
    mov ax,0;初始值
s1:
    ;第一次读到-时存入年，跳转到月
    cmp byte ptr ds:[si],'-'
    je themonth

    sub byte ptr ds:[si],30h;字符转换为数字
    ;逐个取字符并换算成相应数值
    mov dl,byte ptr ds:[si]
    add ax,dx
    mov bh,0
    mul bx
    inc si
    jmp s1
themonth:
    mov dx,0
    div bx
    mov ds:[year],ax
    inc si
    mov ax,0
s2:
    ;第二次读到-时存入月，跳转到日
    cmp byte ptr ds:[si],'-'
    je theday

    sub byte ptr ds:[si],30h
    add al,byte ptr ds:[si]
    mov bh,0
    mul bx
    inc si
    jmp s2
theday:
    mov dx,0
    div bx
    mov ds:[month],al
    inc si
    mov ax,0
s3:
    ;检测到换行则结束
    cmp byte ptr ds:[si],0dh
    je endchange

    sub byte ptr ds:[si],30h
    add al,byte ptr ds:[si]
    mov bh,0
    mul bx
    inc si
    jmp s3
endchange:
    mov dx,0
    div bx
    mov ds:[day],al

    ;恢复数据
    pop dx
    pop cx
    pop bx
    pop ax
change endp

boolrun proc near;子程序，判断是否为闰年，并设置CF位

    ;保护数据
    push bx
    push cx
    push dx

    ;年份作被除数，判断能否被100整除
    mov ax,ds:[year]
    mov cx,ax;备份年份
    mov dx,0;dx清零
    mov bx,100
    div bx
    cmp dx,0

    jne label1;不能整除，则跳转判断能否被4整除

    ;能整除，则判断能否被400整除
    mov ax,cx
    mov bx,400
    div bx
    cmp dx,0

    je label2;是闰年，跳转到label2
    mov al,0;否则将al清零
    jmp label3
label1:
    ;判断能否被4整除
    mov ax,cx
    mov dx,0
    mov bx,4
    div bx
    cmp dx,0
    je label2;是闰年
    mov al,0
    jmp label3
label2:
    mov al,1;是闰年则al置1
label3:
    pop dx
    pop cx
    pop bx
    ret
boolrun endp

calculate proc near
    push ax
    push bx
    push cx
    push dx
loop1:
    call boolrun;判断是否为闰年
    cmp ds:[month],1
    je m1
    cmp ds:[month],2
    je m2
    cmp ds:[month],3
    je m1
    cmp ds:[month],4
    je m3
    cmp ds:[month],5
    je m1
    cmp ds:[month],6
    je m3
    cmp ds:[month],7
    je m1
    cmp ds:[month],8
    je m1
    cmp ds:[month],9
    je m3
    cmp ds:[month],10
    je m1
    cmp ds:[month],11
    je m3
    cmp ds:[month],12
    je m4
    ;月份为大月，执行此项
m1:
    cmp ds:[day],31
    je dayend
    jmp dayup
    ;月份为特殊的二月，执行此项
m2:
    cmp al,0
    je norun
    cmp ds:[day],29
    je dayend
    jmp dayup
    ;闰年
norun:
    cmp ds:[day],28
    je dayend
    jmp dayup
    ;月份为小月，执行此项
m3: cmp ds:[day],30
    je dayend
    jmp dayup
    ;月份为特殊的12月，执行此项
m4:
    cmp ds:[day],31
    je yearend
    jmp dayup
    ;年末
yearend:
    inc ds:[year]
    mov ds:[month],1
    mov ds:[day],1
    sub cx,1
    jnz loop1
    jmp endofm
    ;月末
dayend:
    inc ds:[month]
    mov ds:[day],1
    sub cx,1
    jnz loop1
    jmp endofm
    ;日常
dayup:
    inc ds:[day]
    sub cx,1
    jnz loop1
    jmp endofm
endofm:
    pop dx
    pop cx
    pop bx
    pop ax
    ret
calculate endp
code ends

end start

以下为百日，千日，万日，的程序运行结果：