.model small

.stack 64

.data               

  moinhap db 10,13, "nhap mot ky tu bat ky :$"

  hienthi db 10,13, "ky tu vua nhap la :$"

  hoa     db 10,13, "ky tu hoa la :$"

  truoc   db 10,13, "ky tu truoc la :$"

  sau     db 10,13, "ky tu sau la:$"

  khongco db 10,13, "khong co ky tu truoc ! a !sorry(+ ~ +):$"

  kytu db           ?

.code

  begin:

  mov ax,@data

  mov ds,ax

  lea dx,moinhap

  mov ah,09h

  int 21h                          

  mov ah,01h

  int 21h

 mov kytu,al

 lea dx,hoa

 mov ah,09h

 int 21h

 mov dl,kytu

 sub dl,20h

 mov ah,02h

 int 21h

 lea dx,truoc

 mov ah,09h

 int 21h

 mov dl,kytu

 dec dl

 lea dx,khongco

 mov ah,09h

 int 21h

 mov ah,02h

 int 21h

 lea dx,sau

 mov ah,09h

 int 21h

 mov dl,kytu

 inc dl

 mov ah,02h

 int 21h

 mov ah,04ch

 int 21h

 end begin