DATA SEGMENT
n db ?
msg db 0dh,0ah,'Enter the number you want : $'
msg1 db 0dh,0ah,'HANOI-MOVE Procedure with : $',0ah,0dh
to db '--->$'
count dw 0
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
LEA DX,msg
CALL intro
KEYIN:
MOV AH,01H
INT 21H
MOV byte ptr[n],Al
LEA DX,msg1
CALL intro
MOV DL,0ah
CALL DISPLAY
MOV AL,byte ptr[n]
SUB AL,30H
CBW
MOV DX,AX
MOV AX,'X'
MOV BX,'Y'
MOV CX,'Z'
;MOV DX,[n]
PUSH DX
PUSH CX
PUSH BX
PUSH AX
CALL H