title HienthiNhiPhan
.model small
.stack 100h
.data
    tb db 'Nhap 1 ki tu: $'
    tb1 db 13,10,'Dang nhi phan cua ki tu la:',13,10,'$'
    
    
.code
    main proc
        mov ax,@data
        mov ds,ax
        
        mov ah,9
        lea dx,tb
        int 21h
        
        mov ah,1
        int 21h
        
        mov bl,al
        
        mov ah,9
        lea dx,tb1
        int 21h
        
        mov cx,8
      Lap:
        shl bl,1
        jc Inso1
        mov ah,2
        mov dl,30h
        int 21h
        Loop Lap
        jmp het
        
      Inso1:
        mov ah,2
        mov dl,31h
        int 21h
        Loop Lap
      Het:
        mov ah,4ch
        int 21h
        
   main endp
    end main