.model small

.data
        str1 db "SeVe-RiNa"
        len equ $-str1

.code
        mov ax,@data
        mov ds,ax

        LEA SI,str1
        mov cx,len

        L1:
                mov ah,[SI]
                cmp ah,41h
                JB JustInc
                cmp ah,5Ah
                JA Conv
                XOR ah,00100000B
                mov [SI],ah
                INC SI
                Loop L1
                jmp ext

        Conv:
                cmp ah,61h
                JB JustInc
                cmp ah,7Ah
                JA JustInc
                XOR ah,00100000B
                mov[SI],ah
                INC SI
                Loop L1
                jmp ext
                
        JustInc:
                INC SI
                Loop L1
        ext:
                mov ah,09h
                LEA DX,str1
                int 21h

                mov ax,4C00h
                int 21h
end