Записать символ в буфер клавиатуры, проверить буфер на наличие в нём символов, и вывести данный символ

stseg   segment para    stack
        dw      16      dup(?)
stseg   ends
dseg    segment para
 
dseg    ends
cseg    segment para
lab1    proc    far
        assume  cs:cseg,ds:dseg,ss:stseg
        push    ds
        mov     ax,0
        push    ax
        mov     ax,dseg
        mov     ds,ax
        
 
 
        mov     ah,05h     ;/Пишем символ 
        mov     cl,'D'       ; в буфер
        mov     ch,00h      ; клавиатуры/
        int     16h         ;
 
        mov     ah,11h     ;/проверяем буфер/
        int     16h
 
        mov     ah,10h     ;/Считываем символ
        int     16h        ; из буфера/
       
        ret
lab1    endp
cseg    ends
        end     lab1

.model small
.data
 
.code
start:
        mov     ax,@data
        mov     ds,ax
        
 
 
;        mov     ah,05h     ;/Пишем символ 
;        mov     cl,'D'       ; в буфер
;        mov     ch,00h      ; клавиатуры/
;        int     16h         ;
xor ax, ax
mov es, ax
mov di, 41eh
mov al, 'D'
stosb
 
        mov     ah,1h     ;/проверяем буфер/
        int     16h
 
mov dl, al
mov ah, 2
int 21h
 
        mov     ah,10h     ;/Считываем символ
        int     16h        ; из буфера/
       
        ret
end