Data Segment

str1 db 'String_Reverse','$' strlen1 dw $-str1

strrev db 20 dup(' ')

Data Ends

Code Segment

Assume cs:code, ds:data

Begin:

mov ax, data

mov ds, ax

mov es, ax

mov cx, strlen1

add cx, -2

lea si, str1

lea di, strrev

add si, strlen1

add si, -2

L1:

   mov al, [si]

   mov [di], al

   dec si

   inc di

   loop L1

   mov al, [si]

   mov [di], al

   inc di

   mov dl, '$'

   mov [di], dl

Print:

   mov ah, 09h

   lea dx, strrev

   int 21h

Exit:

   mov ax, 4c00h

   int 21h

Code Ends

End Begin

Data Segment str1 db 'String_Reverse','$' strlen1 dw $-str1 strrev db 20 dup(' ') Data Ends

Code Segment
  Assume cs:code, ds:data
  Begin:
    mov ax, data
    mov ds, ax
    mov es, ax
    mov cx, strlen1
    add cx, -2
    lea si, str1
    lea di, strrev
    add si, strlen1
    add si, -2
    L1:
       mov al, [si]
       mov [di], al
       dec si
       inc di
       loop L1
       mov al, [si]
       mov [di], al
       inc di
       mov dl, '$'
       mov [di], dl
    Print:
       mov ah, 09h
       lea dx, strrev
       int 21h
Exit:
       mov ax, 4c00h
       int 21h
Code Ends
End Begin