~cpp
;하노이의 탑
.model small
.stack 100h
.data
message1 db "have move ", '$'
message2 db "th disk from ", '$'
message3 db "to ", '$'
n dw 5 ;disk의 갯수
from dw 1 ;시작 기둥(1번)
by dw 2 ;중간 기둥(2번)
to dw 3 ;목적지 기둥(3번)
.code
extrn Crlf:proc
extrn Writeint:proc
main proc
mov ax, @data
mov ds, ax
mov bx, 10 ;Writeint사용시에 10진수 출력
call Move ;Move함수 호출
;Move(from, to, by)
mov ax, 4C00h ;종료
int 21h
main endp
Move proc ;Move 프로시저(재귀호출되는 부분)
cmp n, 0 ;n=0이면
jz endmove ;Move 프로시저의 끝으로 감
push n ;n값을 스택에 넣음
dec n ;n-1
push from ;from을 스택에 넣음
push by ;by를 스택에 넣음
push to ;to를 스택에 넣음
mov ax, by ;by와 to의 위치를 바꿔줌.(ax를 temp로 사용)
mov si, to ;메모리 간의 대입이 안 되므로
mov by, si ;si를 이용해 대입
mov to, ax
call Move ;Move(n-1, from, by, to)
;(by와 to의 위치를 바꿔서 함수 호출)
pop to ;다시 to, by, from, n을 순서대로 꺼냄
pop by ;스택이므로 빼는 순서에 유의해야 한다
pop from
pop n
mov ah, 9 ;message1을 출력
mov dx, offset message1
int 21h
mov ax, n ;몇번째 디스크를 옮기는지 출력
call Writeint
mov dx, offset message2
mov ah, 9 ;message2를 출력
int 21h
mov ax, from ;옮기는 시작점 출력
call Writeint
call Space ;한칸 띄고
mov dx, offset message3
mov ah, 9 ;message3을 출력
int 21h
mov ax, to ;목적지 출력
call Writeint
call Crlf ;줄바꿈
push n ;n을 다시 스택에 넣고
dec n ;n-1
push from ;from, by, to를 차례로 스택에 넣음
push by
push to
mov ax, from ;from과 by를 바꿈(ax를 temp로 하여)
mov si, by ;메모리 간 대입 허용 안 하므로
mov from, si ;si를 이용해서 대입
mov by, ax
call Move ;Move(by, to, from) 호출
pop to ;to, by, from, n순으로 스택에서 뺌
pop by
pop from
pop n
endmove:
ret ;프로시저 끝
Move endp
Space proc ;띄어쓰기 함수
mov dl, " "
mov ah, 2
int 21h ;빈칸을 출력
ret
Space endp
end main ;프로그램 종료
