写一个程序片段实现如下功能：把字符串中的小写字母变化为大写字母。字符串以0为结尾。

答：
；子程序名：toup
；功能：把小写字母变成大写字母其他字符不变
；入口：DS:BX，指向以0为结尾的字符串
；出口：DS:BX。
；
toup    proc
L:      mov al,[bx]
        cmp al,0
        jz ok
        cmp al,'a'
        jb jx
        cmp al,'z'
        ja jx
        sub al,20h
        mov byte ptr [bx],al
jx:     inc bx
        jmp L
;
ok:     ret
toup    endp