用汇编语言写一个万年历

好的，以下是一个简单的汇编程序，实现了万年历的功能。该程序可以输出任意一年的日历，包括每月的天数、星期几等信息。程序采用 Intel x86 汇编语言编写，使用 DOSBox 运行。

; 万年历程序

.386
.model flat, stdcall
option casemap:none

include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\user32.lib

.data
prompt db '请输入年份（例如：2021）：', 0
input db 10 dup(0)
month db '一 二 三 四 五 六 日', 0
days dw 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
leap_days dw 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31

.code
start:
    ; 输出提示信息
    mov edx, offset prompt
    call WriteString

    ; 读取用户输入的年份
    mov edx, offset input
    call ReadString
    mov eax, input
    movzx eax, word ptr [eax+2]
    sub eax, 2000

    ; 计算该年份的第一天星期几
    mov ebx, eax
    sub ebx, 1
    mov ecx, ebx
    shr ecx, 2
    add ecx, ebx
    shr ecx, 6
    add eax, ecx
    add eax, 1
    mov edx, eax
    mov ecx, 7
    div ecx
    mov eax, edx

    ; 输出日历表格
    mov edx, offset month
    call WriteString
    mov ecx, eax
    mov ebx, 1
    mov esi, offset days
    cmp eax, 1
    je is_leap_year
    mov esi, offset leap_days
is_leap_year:
    mov edx, offset input
    call WriteString
    mov edx, offset input
    movzx edx, word ptr [edx+2]
    movzx edx, word ptr [esi+edx*2-2]
    mov ecx, eax
    sub ecx, 1
    mov ebx, eax
    mov eax, 1
    sub ecx, eax
    mov esi, 0
    mov edi, 0
    mov ebp, 0
    print_loop:
        ; 输出日期
        mov eax, ebx
        mov edx, offset input
        call WriteDec
        mov eax, ebp
        add eax, 1
        mov ebp, eax
        mov eax, ebp
        mov edx, 7
        div edx
        cmp eax, 7
        je print_newline
        mov edx, offset input
        call WriteString
        mov edx, offset input
        call WriteString
        add ebx, 1
        cmp ebx, ecx
        jle print_loop
        jmp end_program
print_newline:
        ; 输出换行符
        mov edx, offset input
        call WriteString
        mov edx, offset input
        call WriteString
        mov edx, offset input
        call WriteString
        mov ebp, 0
        add ebx, 1
        cmp ebx, ecx
        jle print_loop
end_program:
    ; 结束程序运行
    invoke ExitProcess, 0
end start

该程序的运行流程如下：

1. 输出提示信息，让用户输入年份。
2. 读取用户输入的年份，并计算该年份的第一天星期几。
3. 输出日历表格，包括月份和星期几信息。
4. 根据该年份是否为闰年，确定每个月的天数。
5. 输出该年份的日历，包括每个月的日期和星期几信息。

需要注意的是，该程序只是一个简单的示例，可能存在一些不足之处，比如没有对用户输入的年份进行验证，也没有处理一些特殊情况（比如闰年的判断方式不够严谨）。如果需要在实际项目中使用该程序，建议根据实际需求进行修改和完善。