请编制程序，其功能是：将一个字符串中连续相同的字符仅用一个字符代替，生成一个新的字符串。字符串以00H结束，长度不超过20个字节。
例如：
原字符串为：41H,41H,41H,42H,31H,31H,...,00H(’AAAB11’)
新字符串为：41H,42H,31H,...,00H(’AB1’)
部分程序已给出，其中原始数据由过程LOAD从文件INPUT1.DAT中读入SOURCE开始的内存单元中，运算结果要求从RESULT开始存放，由过程SAVE保存到文件OUTPUT1.DAT中。
请填空BEGIN和END之间已给出的源程序使其完整，空白已用横线标出，每个空白一般只需一条指令，但采用功能相当的多条指令亦可，或删除BEGIN和END之间原有的代码并自行编程来完成所要求的功能。
对程序必须进行汇编，并与IO.OBJ链接产生可执行文件，最终运行程序产生结果。调试中若发现整个程序中存在错误之处，请加以修改。
[试题程序]
EXTRN LOAD:FAR,SAVE:FAR
LEN EQU20
DSEG SEGMENT
SOURCE DBLEN DUP()
RESULT DBLEN DUP(0)
NAME0 DB’INPUT1.DAT’,0
NAME1 DB’OUTPUT1.DAT’,0
DSEG ENDS
SSEG SEGMENT STACK
DW256 DUP()
SSEG ENDS
CSEG SEGMENT
ASSUME CS:CSEG,SS:SSEG,DS:DSEG
START PROC FAR
PUSH DS
XORAX,AX
PUSH AX
MOVAX,DSEG
MOVDS,AX
LEADX,SOURCE
LEASI,NAME0
MOVCX,LEN
CALL LOAD ;LOAD STRING FROM FILE
; ******BEGIN******
;在BEGIN和END之间补充代码
; ******END******
LEADX,RESULT
LEASI,NAME1
CALL SAVE ;SAVE RESULT TO FILE
RET
START ENDP
CSEG ENDS
ENDSTART
参考答案：
LEA SI,SOURCE
LEA DI,RESULT
LOOPA: MOV AL,[SI]
CMP AL.00H
JE EXIT
NEXT: INC SI
MOV AH,[SI]
CMP AL,AH
JE NEXT
MOV [DI],AL
INC DI
JMP LOOPA
EXIT: MOV [DI],AL