13

;====== Программа 13. Файл z4_pr13.asm ====================

masm
model tiny

.code
    org     100h

begin:

main    proc    near
    lea BX,titlex+1
    mov CX,26


b20:
    mov AH,[Bx]
    cmp AH,61h
    jb b30
    cmp AH,7ah
    ja b30
    and AH,11011111B
    mov [BX],AH




b30:
    inc BX
    loop b20
    ; ret


    lea dx, titlex
    mov ah,09h
    int 21h

    ret


main endp


titlex      db      'Change to uppercase letters$'

    end begin