Замещение букв

model tiny 
.code
.startup
     mov dx, offset Sos 
     mov ah,0Ah 
     int 21h 
 
     mov cx,[bx + 1] 
  lst: 
     mov di,cx
      cmp Sos[di+1],60h 
      jl next 
      sub Sos[di+1],20h 
   next:
      loop lst 
      mov dx, offset Sos + 2 
      mov ah,9
      int 21h 
      ret
   Sos     db 20 dup("$") 
      end

.286
.model tiny 
.code
org 100h
start:  mov ax,3
    int 10h; очистили экран
        mov dx,offset mes
    mov ah,9
    int 21h  
    mov dx,offset Sos 
    mov ah,0Ah 
    int 21h
    mov di,dx
    add di,2 
    mov si,di
        mov dx,offset mes1
    mov ah,9 
    int 21h
    mov ch,0  
    mov cl,Sos+1
    mov bx,cx
    mov byte ptr [bx+di],'$'
lst:    lodsb
    cmp al,'A'
    jb next 
    cmp al,'z'
    ja next
        cmp al,'Z'
        jbe a1
        cmp al,'a'
        jb next
a1: xor al,100000b
next:   stosb
    loop lst
    mov dx,offset Sos + 2 
    mov ah,9
    int 21h
    mov ah,0
    int 16h 
    retn
Sos     db 20,?,20 dup(?) 
mes db 'Введи строку из больших и маленьких латинских букв, знаков препинания, скобок и цифр'
mes1    db 0Dh,0Ah,'$'
end start