.model small

.stack 64

.data

  msg1 db 10,13, " nhap vao ho ten cua ban: $"

  msg2 db 10,13, " ho ten ban vua nhap la: $"

  msg3 db 10,13, " ban la trai hay gai(t/g): $"

  msg4 db 10,13, " chao anh!$"

  msg5 db 10,13, " chao chi! $"

  msg6 db 10,13, " ho ten sau khi da doi thanh hoa: $" 

  msg7 db 10,13, " ky tu vua nhap khong dung moi ban nhap lai ky tu khac: $"

  msg8 db  " chuc anh vui ve!$"      

  msg9 db  " chuc chi vui ve!$"

  chuoi db 31 dup('$')                               

.code

  begin:

         mov ax,@data

         mov ds,ax

         lea dx,msg1

         mov ah,09h

         int 21h

         mov cx,5

         mov cx,30

         mov si,0

  lapnhap:      

         mov ah,01h

         int 21h  

         cmp al,13

         je hienthi

         mov chuoi[si],al

         inc si

         loop lapnhap

  hienthi:

         lea dx,msg2

         mov ah,09h

         int 21h

         lea dx,chuoi

         int 21h

         mov sp,si

         mov cx,sp

         mov si,0

 hoa:

         sub chuoi[si],20h

         inc si

         cmp chuoi[si],"$"

         je hienthi1

         loop hoa

hienthi1:

         lea dx,msg6

         mov ah,09h

         int 21h

         lea dx,chuoi      

         int 21h

nhap:

         lea dx,msg3

         mov ah,09h

         int 21h

         mov ah,01h

         int 21h

         cmp al,"t"

         je chao_a

         cmp al,"g"

         je chao_c

         jne hienthi

thoat:

         mov ah,4ch

         int 21h

         loop thoat

chao_a:

         lea dx,msg4

         mov ah,09h

         int 21h

         lea dx,chuoi

         int 21h

         lea dx,msg8

         mov ah,09h

         int 21h

         jmp begin      

chao_c:

         lea dx,msg5

         mov ah,09h

         int 21h

         lea dx,chuoi

         int 21h 

         lea dx,msg9

         mov ah,09h

         int 21h

         jmp begin

hienthi2:       

         lea dx,msg7

         mov ah,09h

         int 21h

         loop nhap  

end begin