assume cs:code
date segment
db "Beginer's All-purpose Symbolic Instruction Code.",0
date ends

code segment
 start:
    mov ax,date
    mov ds,ax
    mov si,0
    call letter
    
    mov ax,4c00h
    int 21h
    
    letter:
      push cx
      push si
      
      mov ch,0
      s:
        mov cl,[si]
          jcxz ok
          cmp cl,97
          jb next
          cmp cl,122
          ja next
          and cl,11011111b
          mov [si],cl
          next:
          inc si
          jmp short s
          ok:
          pop si
          pop cx
          ret 
code ends
end start