.model small
.data
str1    db   'input a ASCII to change small letter:',0dh,0ah,'$'
str2    db   0dh,0ah,'input a ASCII and show again:',0dh,0ah,'$'
.code
start:       mov  ax,@data 
       mov  ds,ax
       mov  es,ax
       ;====
       mov  dx,offset str1
       call pridx0
       call gtkey
       or al,20h  ;強制將第6個Bit轉成1
       mov dl,al
       call pridx1
       ;====
       mov  dx,offset str2
       call pridx0
       call gtkey
       mov dl,al
       call pridx1       
       ;======
       mov  ah,4ch
       int  21h

gtkey: mov ah,01h
       int 21h
       ret
pridx0: mov  ah,09h 
       int  21h
       ret

pridx1: mov  ah,02h 
       int  21h
       ret

       end  start