.model small
.stack 1024
.data



str2 db 100 dup('$')

struct_vvod1 db 100
len1 db 0

r db 10, 13
db '$'



.code
start:
mov ax, @data
mov ds, ax
mov es, ax


lea dx, r
mov ah, 9
int 21h

lea dx, struct_vvod1
mov ah, 10
int 21h

cld
lea si, str1
lea di, str2
xor cx, cx
mov cl, 25
m1:
lodsb

xlatb

stosb

loop m1

lea dx, r
mov ah, 9
int 21h

lea dx, str1
mov ah, 9
int 21h

lea dx, r
mov ah, 9
int 21h

lea dx, str1
mov ah, 9
int 21h

mov ax, 4c00h
int 21h

end start