Заглавные символы кириллицы заменить на строчные символы кириллицы

title copy
assume cs:c, ds:d, ss:s
s segment stack
dw 128 dup ('ss')
s ends
d segment
mes1db 10,13,'Имя входного файла:$'
mes2db 10,13,'Имя выходного файла:$'
fname db 255,0, 255 dup (?)
inhan dw ?
outhan dw ?
er1 db 10,13,'Файл не открылся$'
er2 db 10,13,'Файл не создан$'
buf db 256 dup (?)
er3 db 10,13,'Ошибка чтения файла$'
er4 db 10,13,'Ошибка записи файла$'
d ends
c segment
start: mov ax,d
mov ds,ax
m2: lea dx,mes1
mov ah,9
int 21h
mov ah,0ah
lea dx,fname
int 21h
lea di,fname+2
mov al,-1[di]
xor ah,ah
add di,ax
mov [di],ah
mov ah,3dh
lea dx,fname+2
xor al,al
int 21h
jnc m1
lea dx,er1
mov ah,9
int 21h
jmp m2
m1: mov inhan,ax
m3: lea dx,mes2
mov ah,9
int 21h
mov ah,0ah
lea dx,fname
int 21h
lea di,fname+2
mov al,-1[di]
xor ah,ah
add di,ax
mov [di],ah
mov ah,3ch
lea dx,fname+2
xor cx,cx
int 21h
jnc m4
lea dx,er2
mov ah,9
int 21h
jmp m3
m4: mov outhan,ax
m7: mov bx,inhan
mov ah,3fh
lea dx,buf
mov cx,256
int 21h
jnc m5
lea dx,er3
mov ah,9
int 21h
m6: mov ah,3eh
mov bx,inhan
int 21h
mov ah,3eh
mov bx,outhan
int 21h
mov ah,4ch
int 21h
m5: cmp ax,0
jz m6
mov ah,40h
mov bx,outhan
lea dx,buf
int 21h
jnc m7
lea dx,er4
mov ah,9
int 21h
jmp m6
c ends
end start