MASM ввод и вывод символа.

[noob80lvl]

Нашел код программы, которая выводит слово "Всем привет" и начал его изменять так чтобы выводила на экран вводимый с клавиатуры символ, но вместо введенного символа выводит треугольник Объясните пожалуйста мою ошибку.

        text    segment
		assume	CS:text,DS:data,SS:stack

		mov	AX,data		;инициализируем регистр
		mov	DS,AX		;сегмента данных DS
;Выведем на экран строку текста
		mov	AH,40h		;в AH- функция вывода
		mov	BX,1		;в BX- дескриптор файла
		mov	CX,meslen	;в CX- длина строки
		mov	DX,offset mes	;в DX- адрес строки
		int	21h		;прерывание MS-DOS
           mov AH,01h ;ввод
            mov AL,AH 

           int 21h
           mov	AX,data		;инициализируем регистр
		mov	DS,AX		;сегмента данных DS
;Выведем на экран строку текста
		mov	AH,40h		;в AH- функция вывода
		mov	BX,1		;в BX- дескриптор файла
		mov	CX,vilen	;в CX- длина строки
		mov	DX,offset vi	;в DX- адрес строки
           
           int 21h
           mov AH,AL 
           mov AH,02h  ;вывод
           
		int	21h 

           
;Завершим программу
                mov     AH,4Ch          ;в AH - функция завершения
                mov     AL,00h          ;в AL- код завершения
                int     21h             ;прерывание MS-DOS

	text	ends
;поля данных
	data	segment
	mes	db	'Введите символ:',10,13  ;завели строку
	meslen	equ	$-mes		      ;вычислили длину строки

     vi	db	'Вы ввели:',10,13  ;завели строку
	vilen	equ	$-vi		      ;вычислили длину строки

	data	ends
;
        stack   segment para    stack
                db      128     dup     (?)     ;зарезервировали 128 байт под стек
	stack	ends
                end