请编制程序，其功能为：将一个字符串中连续相同的字符仅用一个字符代替，生成一个新的字符串。字符串以00H结束，长度不超过20个字节。
例如：
原字符串为：4EH，4EH，4EH，42H，1AH，31H，31H，00H：
新字符串为：4EH，42H，1AH，31H，00H
部分程序已经给出，其中原始数据由LOAD过程从文件INPUT1. DAT中读入从SOURCE开始的内存单元，运算结果要求从RESULT开始存放，由SAVE过程保存到OUTPUT1.DAT文件中。请在BEGIN和END 之间补充一段源程序，完成要求的功能。
对程序必须进行汇编，并与IO.OBJ链接产生PROG1.EXE执行文件，最终产生运行结果。
部分程序如下：
; PROG1. ASM
EXTRN LOAD:FAR，SAVE:FAR
LEN EQU 20
N EQU 10
DSEG SEGMENT
SOURCE DW N DUP ()
RESULT DW N DUP (0)
NAME0 DB ’INPUT1.DAT’, 0
NAME1 DB ’OUTPUT1.DAT’,0
DSEG ENDS
SSEG SEGMENT STACK
DB 256 DUP ()
SSEG ENDS
CSEG SEGMENT
ASSUME CS:CSEG, DS:DSEG;SS:SSEG
START PROC FAR
PUSH DS
XOR AX,AX
PUSH AX
MOV AX,DSEG
MOV DS,AX
MOV ES,AX
LEA DX,SOURCE
LEA SI,NAME0
MOV CX,N
CALL LOAD
; *** BEGIN ***
…………
…………
…………
; *** END ***
LEA DX,RESULT
LEA SI,NAME1
MOV CX,N
CALL SAVE
RET
START ENDP
CSEG ENDS
END START
参考答案：
*** BEGIN ***
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
; *** END ***
[INPUTA. DAT 中的输入数据]:
DEH,DEH,DEH,DBH, AAH,CAH,CAH,00H,BCH,BEH
[输出结果]
DE DB AA CA 00 00 00 00 00 00