Перехватить прерывание ah=09h int 21h - изменить регистр символов

.model small
.stack
.data
    a dw ?
    old_handler dd ?
    string db 255 dup(?), '$'
.code
    assume ds:@data, es:@data
int_handler proc
    cld
    lea di, string
    lea si, string
    mov cx, a
again:
    lods string
    cmp al, 'A'
    jbe big_to_small
    cmp al, 'Z'
    jae big_to_small
    cmp al, 'a'
    jbe small_to_big
    cmp al, 'z'
    jae small_to_big
    jmp just_label
big_to_small:
    add al, 32
    jmp just_label
small_to_big:
    sub al, 32
just_label:
    stos string
    loop again
    iret
int_handler endp
 
main:
    mov ax, @data
    mov ds, ax
 
    mov ax, 3509h
    int 21h
    mov word ptr old_handler, bx
    mov word ptr old_handler + 2, es
    
    mov ax, 2509h
    mov dx, seg int_handler
    mov ds, dx
    mov dx, offset int_handler
    int 21h
    
    cld
    lea di, string
    mov cx, 255
    mov a, 0
cycle:
    mov ah, 01h
    int 21h
    cmp al, 13
    je string_ok
    stos string
    inc a
    loop cycle
string_ok:
    mov ah, 09h
    int 21h
    
    lds dx, old_handler
    mov ax, 2509h
    int 21h  
    
    mov ax, 4c00h
    int 21h
end main

; введённый символ лежит в AL
@compare:
       mov  ah,al
       sub  ah,41h 
       cmp  ah,39h 
       ja   @skip
       xor  al,20h
       stosb
@skip: loop @compare

lods        byte ptr ds:[si]

movs         byte ptr [di], [si]

movs         byte ptr [di], byte ptr [si]

movs        byte ptr [bp], byte ptr [bx]

old21  dw  0,0
 
;[...]
mov   ax,3521h             ; перехват вектора(21)
int   21h
mov   word[old21],bx
mov   word[old21+2],es
 
mov   ax,2521h             ; установка нового
mov   dx,new21
int   21h
 
;[...]
new21:                     ; обработчик(21)
        pusha 
        cmp    ah,09h      ; AH=9 ?
        jne    @Boom       ; нет.
        xor    al,20h      ; наш клиент!
@Boom:  popa   
        jmp    far dword [old21]     ; на оригинальный вектор..
;[...]