基于汇编语言的汉罗塔程序

以下是基于汇编语言的汉罗塔程序的示例代码：

.model small
.stack 100h
.data
    message db 'Enter number of disks:', '$'
    message2 db 'Moves:', '$'
    count dw ?
    source db 'A', 0
    dest db 'C', 0
    temp db 'B', 0
.code
main proc
    mov ax, @data
    mov ds, ax

    ; 输出提示信息
    lea dx, message
    mov ah, 9
    int 21h

    ; 读取输入的数字
    mov ah, 1
    int 21h
    sub al, 30h
    mov count, ax

    ; 调用递归函数
    mov ax, count
    mov bl, source
    mov bh, dest
    mov cl, temp
    call hanoi

    ; 输出移动次数
    lea dx, message2
    mov ah, 9
    int 21h
    mov ax, count
    mov cx, 0
    mov bx, 10
    mov dx, 0
    div bx
    add dl, 30h
    mov ah, 2
    int 21h
    mov al, dl
    mov dl, ah
    mov ah, 2
    int 21h
    mov al, count
    and al, 0fh
    add al, 30h
    mov ah, 2
    int 21h

    mov ah, 4ch
    int 21h
main endp

hanoi proc near
    push bp
    mov bp, sp
    push ax
    push bx
    push cx
    push dx

    cmp byte ptr [bp+4], 1
    je end

    ; 将 n-1 个盘子从 A 移到 B
    mov ax, [bp+4]
    dec ax
    push ax
    mov bx, [bp+6]
    mov cx, [bp+8]
    mov dx, [bp+10]
    xchg bx, dx
    call hanoi
    pop ax

    ; 将最后一个盘子从 A 移到 C
    lea dx, [source]
    cmp byte ptr [bp+6], dl
    je move
    lea dx, [temp]
    cmp byte ptr [bp+6], dl
    je move2
    lea dx, [dest]
    cmp byte ptr [bp+6], dl
    je move3
    jmp end

move:
    lea dx, [dest]
    cmp byte ptr [bp+8], dl
    je move2
    mov byte ptr [bp+8], dl
    jmp count

move2:
    lea dx, [temp]
    cmp byte ptr [bp+10], dl
    je move3
    mov byte ptr [bp+10], dl
    jmp count

move3:
    lea dx, [source]
    cmp byte ptr [bp+8], dl
    je move
    mov byte ptr [bp+8], dl

count:
    ; 移动次数加一
    inc word ptr [bp+12]

    ; 将 n-1 个盘子从 B 移到 C
    mov ax, [bp+4]
    dec ax
    push ax
    mov bx, [bp+10]
    mov cx, [bp+6]
    mov dx, [bp+8]
    xchg bx, dx
    call hanoi
    pop ax

end:
    pop dx
    pop cx
    pop bx
    pop ax
    pop bp
    ret 6
hanoi endp
end main