Capitalizing The Small Letters In An Input string

.model small
.code
org 100h
jmp main
parlist label byte
maxlen db 40
actlen db ?
kbdata db 40 dup(' ')

labelinput db 'Enter String: ','$'
con db 40 dup(' ')

input:
    mov ah,0ah
    lea dx,parlist
    int  21h
    ret
printing:
    mov ah,09h
    int 21h
    ret
clr_scr:
    mov ax,0600h
    mov bh,07h
    mov cx,0000h
    mov dx,184fh
    int 10h
    ret
set_cur:
    mov ah,02h
    mov bh,00h
    int 10h
    ret

main proc near
    call clr_scr
    mov dx,0000h
    call set_cur
    lea dx,labelinput
    call printing
    mov dx,0305h
    call set_cur
call input
mov dx,0505h
call set_cur
mov bl,actlen
mov bh,00h
mov si,00h
mov di,00h
call process
mov con[di],00100100b
lea dx,con
call printing

mov ah, 4ch
int 21h

main endp
end main
return:
ret
space:
mov con[di],00100000b
inc si
inc di
jmp process
process:
cmp si,bx
je return
mov dl,kbdata[si]
cmp dl,00100000b
je space
cmp dl,60
ja lowerkeys
jb upperkeys
upperkeys:
mov con[di],dl
inc di
inc si
jmp process
lowerkeys:
and dl,11011111b
mov con[di],dl
inc si
inc di
jmp process

/*Screen Shot*/