org 100h
        use16

Start:
        push    string

        call    MakeUp

        ; New string in address 'string'

        ret

MakeUp:
        push    BP
        mov     BP, SP

        mov     SI, [BP + 4]

Replacing:
        cmp     byte[SI], 'a'
        jb      GoNextChar

        cmp     byte[SI], 'z'
        ja      GoNextChar

        sub     byte[SI], 32

GoNextChar:
        inc     SI

        cmp     byte[SI], '$'
        je      EndProc

        jmp     Replacing

EndProc:
        pop     BP
        ret     2

string  db      'oNoShkO LuchShiY', '$'