例7.1 编写一个子程序UPPER，实现把寄存器AL中存放的字符变大写。

解：
;子程序功能：把AL中存放的字符变大写
;入口参数：AL
;出口参数：AL
;算法描述：判断AL中字符必须在'a'~'z'之间才能把该字符变为大写
UPPER PROC
CMP AL, 'a' ;书写'a'的ASCII码61H也可以
JB over
CMP AL, 'z'
JA  over
SUB AL, 20H ;书写指令AND AL, 0DFH也可以
over: RET
UPPER ENDP

例7.2 编写一个求字符串长度的子程序StrLen，该字符串以0为结束标志，其首地址存放在DS:DX，其长度保存在CX中返回。

解：
;子程序功能：求字符串的长度
;入口参数：DS:DX存放字符串的首地址，该字符串以0为结束标志
;出口参数：CX存放该字符串的长度
;算法描述：用BX来指针来扫描字符串中的字符，如果遇到其结束标志，则停止扫描字符串操作
StrLen PROC
PUSH AX
PUSH BX ;用堆栈来保存子程序所用到的寄存器内容
XOR CX, CX
XOR AL, AL
MOV BX, DX
again: CMP [BX], AL
JZ over
INC CX ;增加字符串的长度
INC BX ;访问字符串的指针向后移
JMP again
over: POP BX ;恢复在子程序开始时所保存的寄存器内容
POP AX
RET
StrLen ENDP