Программа на ассемблере

data segment
 
mess db 0ah,0dh,'Vvedite stroky',0ah,0dh,'$'
a db ?
stroka db 100, ?, 102 dup (?)
 
data ends
code segment
assume cs:code,ds:data
start: mov ax,data
 
xor ax,ax
xor bx,bx
xor dx,dx
xor cx,cx
lea dx,mess ;вывод сообщения
mov ah,09h
int 21h
 
lea dx,stroka ;ввод строки
mov ah,0ah
int 21h
 
mov cl,stroka+1
mov si,2
push cx
 
lea bx,stroka+1 ;берем первый символ строки
m3:
inc bx   ;следующий символ
mov al,[bx]
;mov al,[bx]
cmp al,'a'    ;определяем диапазон символа
jb m1
 cmp al,'z'
 ja m1
call uv  ;вызов процедуры увеличения буквы
;inc bx   ;следующий символ  
;mov al,[bx] 
loop m2
jmp exit
 
m2:
inc bx   ;следующий символ
mov al,[bx]
cmp al,'A'  ;определяем диапазон символа
jb m1
 cmp al,'Z'
 ja m1
call um  ;вызываем процедуру уменьшения   
;inc bx   ;следующий символ
;mov al,[bx]
loop m2
jmp exit
 
m1:
;inc bx  ;следующий символ
;mov al,[bx]
 
loop m3
pop cx
lea bx,stroka
exit:
;вывод строки
mov dx,[bx][si]
mov ah,02h
int 21h
inc si
loop exit
 
 
mov ah,07h    
int 21h
 
quit: mov ax,4C00h
int 21h
 
 
uv proc   
mov a,al
add a,'a'-'A'
mov al,a
ret
uv endp
 
um proc
mov a,al
sub a,'a'-'A' 
mov al,a
ret
um endp
 
code ends
end START