;名称：letterc
;功能：将以0结尾的字符串中的小写字母转变成大写字母
;参数：ds:si指向字符串首地址

assume cs:codesg
datasg segment
       db "Beginner's All-purpose Smbolic Instruction Code.",0
datasg ends

codesg segment
begin: mov ax,datasg
       mov ds,ax
       mov si,0
       call letterc

       mov ax,4c00h
       int 21h

letterc:
       push cx
       push si

   s:  mov ch,0
       mov cl,[si]
       jcxz over;检验是否字符串已读取结束
       cmp cl,61h
       jb next;比61h小说明不是小写字母，跳转到下一个字节
       cmp cl,7ah
       ja next;比7ah大说明不是小写字母，跳转到下一个字节
       and byte ptr [si],11011111b
 next: inc si
       jmp s;

 over: pop si
       pop cx
       ret
codesg ends
end begin