上机题之14
　　以下内容为程序代码:
　　;*      请编制程序PROG1.ASM, 其功能是: 对一个由可打印ASCII字符
　　;*  (ASCII码20H～7FH)组成的字符串可采用下列方法进行压缩:从串首
　　;*  开始向后扫描, 如某字符单独出现则该字符不变, 如某字符连续出
　　;*  现n次, 则该字符用ESC(1BH),n,<原字符>三个字节来代替(假定n不
　　;*  超过255)。例如:
　　;*    原串  : 41H,43H,43H,43H,43H,43H,43H,61H,00H ("ACCCCCCa")
　　;*    压缩后: 41H,1BH,06H,43H,61H,00H
　　;*     设内存中从SOURCE开始有一字符串, 其以00H结束, 长度不超
　　;*  过100。试编程对其进行压缩, 结果存入RESULT开始的内存单元。
　　;*      部分程序已在PROG1.ASM中给出, 请填空BEGIN和END之间已给
　　;*  出的源程序使其完整(空白已用横线标出, 每行空白一般只需一条
　　;*  指令, 但功能相当的多条指令亦可)或删除BEGIN和END之间原有的
　　;*  代码并自行编写程序片段来完成要求的功能。
　　;*     原始数据由过程LOAD从文件INPUT1.DAT中读入SOURCE开始的内
　　;*  存单元中, 结果要求从RESULT开始存放, 由过程SAVE保存到文件
　　;*  OUTPUT1.DAT中。
　　;*     对程序必须进行汇编, 并与IO.OBJ链接产生PROG1.EXE 执行文
　　;*  件, 最终运行程序产生结果(无结果或结果不正确者均不得分)。
　　EXTRN      LOAD:FAR,SAVE:FAR
　　N          EQU        100
　　ESC_CODE   EQU        27
　　STAC       SEGMENT    STACK
　　DB         128 DUP (?)
　　STAC       ENDS
　　DATA       SEGMENT
　　SOURCE     DB         N DUP(0)
　　RESULT     DB         N DUP(0)
　　NAME0      DB         ’’INPUT1.DAT’’,0
　　NAME1      DB         ’’OUTPUT1.DAT’’,0
　　DATA       ENDS
　　CODE       SEGMENT
　　ASSUME     CS:CODE, DS:DATA, SS:STAC
　　START      PROC       FAR
　　PUSH       DS
　　XOR        AX,AX
　　PUSH       AX
　　MOV        AX,DATA
　　MOV        DS,AX
　　MOV        ES,AX             ; 置附加段寄存器
　　LEA        DX,SOURCE         ; 数据区起始地址
　　LEA        SI,NAME0          ; 原始数据文件名