Перевод символов или строки - Assembler

MODEL small
STACK 256
STDIN EQU     0                 ;Дескриптор стандартного ввода
STDOUT EQU    1                 ;Дескриптор стандартного вывода
STDERR EQU    2                 ;Дескриптор стандартной ошибки (экрана)
DATASEG
msg           DB          'Input to string'
msglen       EQU  $-msg
Buf           DB   80 DUP('')
actlen    DW   0
CODESEG
Start:     mov ax,@data                     ;Установка в ds адреса
mov ds,ax                           ;сегмента данных
mov ah,40h                         ;Функция вывода
mov bx,stderr
mov cx,msglen                   ;Длина сообщения
mov dx,offset msg               ;Адрес сообщения
int 21h
mov ah,3fh                          ;Функция ввода
mov bx,stdin
mov cx,80                           ;Ввод максимум 80 байт
mov dx,offset Buf                ;Адрес буфера
int 21h
mov actlen,ax             ;Фактически введено
 
mov cx,actlen             ;Счётчик элементов строки
mov  si,0                             ;Инициализация указателя элементов строки
filter:   
mov si,0
mov al,buf[si]                    ;Возьмём символ
cmp al,'a'                             ;Меньше 'a'?
jb nolet                         ;Да, не преобразовывать
cmp al,'z'                             ;Больше 'z'?
ja nolet                         ;Да, не преобразовывать
sub al,20h                           ;Преобразуем в прописную
mov Buf[si],al                     ;Отправим в Buf
nolet:    
      inc si
loop filter                             ;Цикл
mov ah,40h                         ;Функция вывода
mov bx,stdout
mov cx,[actlen]             ;Длина сообщения
mov dx,offset Buf                ;Адрес сообщения
int 21h
Exit:      
  mov ax,4Ch                    ;Функция DOS 4Сh: выход из программы
int 21h                                 ;Вызов DOS. Останов
END Start                           ;Конец программы/точка входа