上机题之38
以下内容为程序代码: 
;*      请编制程序PROG1.ASM, 其功能是: 对经常上下波动的数据可采
;*  用只记录峰值的数据压缩方法。 即每次将采样到的当前值和前一次
;*  值比较, 如数据变化方向改变 (原变大现变小或原变小现变大), 说
;*  明已过峰值, 这时就将前一值(峰值)记录下来。
;*      例如(下例数据均为无符号数):
;*          原数据: 23H,45H,89H,67H,5CH,36H,3CH,...
;*          压缩后: 23H,89H,36H,...
;*      内存中从SOURCE连续存放着四十个八位无符号数, 假定无相邻
;*  两数相等的情况, 编程按上述方法进行压缩, 结果保存在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        40
STAC       SEGMENT    STACK
           DB         128 DUP (?)
STAC       ENDS
DATA       SEGMENT
SOURCE     DB         N   DUP(?)
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    ; 原始数据文件名起始地址
           MOV        CX,N        ; 字节数
           CALL       LOAD        ; 从"input1.dat"中读取数据