问答题

请编制程序，其功能是：将一个字符串中连续相同的字符仅用一个字符代替，生成一个新的字符串。字符串以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 EQU 20
DSEG SEGMENT
SOURCE DB LEN DUP()
RESULT DB LEN DUP(0)
NAME0 DB ’INPUT1.DAT’,0
NAME1 DB ’OUTPUT1.DAT’,0
DSEG ENDS
SSEG SEGMENT STACK
DW 256 DUP()
SSEG ENDS
CSEG SEGMENT
ASSUME CS:CSEG,SS:SSEG,DS:DSEG
START PROC FAR
PUSH DS
XOR AX,AX
PUSH AX
MOV AX,DSEG
MOV DS,AX
LEA DX,SOURCE
LEA SI,NAME0
MOV CX,LEN
CALL LOAD ;LOAD STRING FROM FILE
; ******BEGIN******
;在BEGIN和END之间补充代码
; ******END******
LEA DX,RESULT
LEA SI,NAME1
CALL SAVE ;SAVE RESULT TO FILE
RET
START ENDP
CSEG ENDS
END START