请编制程序PROG1.ASM，其功能是；从SOURCE开始存放的21个8位有符号数(补码)，相邻数的差距不超过-8～7，可采用差分压缩，其方法如下：第一个数据不变，其后数据取与前一数据之差值并用4位二进制补码表示，两个差值拼成一个字节，前一个差值放在高4位，后一个差值放在低4位。
例如：
原数据为：X[n]: 23H, 27H, 2AH, 29H, 22H...
压缩后为：Y[n]：23H, 43H, F9H...
部分程序已给出，其中原始数据由过程LOAD从文件INPUT1.DAT中读入SOURCE开始的内存单元中。运算结果要求从RESULT开始存放，由过程SAVE保存到文件OUTPUT1.DAT中。
填空BEGIN和END之间已给出的一段源程序使其完整(空白己用横线标出，每行空白一般只需一条指令，但采用功能相当的多条指令亦可)，或删除BEGIN和END之间原有的代码并自行编程来完成要求的功能。
对程序必须进行汇编，并与IO.OBJ链接产生PROG1.EXE执行文件，最终运行程序产生结果(无结果或结果不正确者均不得分)。调试中若发现整个程序中存在错误之处，请加以修改。
试题程序：
EXTRN LOAD: FAR, SAVE: FAR
N EQU 20
DSEG SEGMENT
L DW
SOURCEDWN DUP()
RESULTDWN DUP(0)
NAME0 DB’INPUT1. DAT’, 0
NAME1 DB’OUTPUT1. DAT’, 0
DSEG ENDS
SSEG SEGMENT STACK
DB128 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
LEA DX,L ; 数据区起始地址
LEA SI,NAME0 ; 输入文件名首址送SI
MOV CX,2+N ; 输入字节数送CX
CALL LOAD ; 从INPUT1.DAT中读取数据
;****BEGIN****
LEA SI,SOURCE
LEA DI,RESULT
CLD
MOVSB ;Y[0]=X[0]
XOR BX, BX ; FLAG=0
MOV DX,N*2 ; 计数
ZTE: LODSB
SUB (1) ; X [n]-X [n-1]
(2) ; FLAG=NOT FLAG
J (3) SWIM
MOV 4, CL
MOV AH, AL
JMP NEXT
SWIM: (4)
ORAL, AH
STOSB
NEXT: (5)
JNEZTE
; ****END****
LEA DX, RESULT ; 结果数据区首址送DX
LEA SI, NAME1; 结果文件名首址送SI
MOV CX, N ; 结果字节数送CX
CALL SAVE ; 保存结果到文件OUTPUT1.DAT
RET
START ENDP
CSEG ENDS
END START