计算机等级考试三级PC上级题精选11-20(6)

上机题之16
以下内容为程序代码:
;*      请编制程序PROG1.ASM, 其功能是: 对一个由可打印ASCII字符
;*  (ASCII码20H～7FH)组成的字符串可采用下列方法进行压缩:从串首
;*  开始向后扫描,如某字符单独出现则该字符不变,如某字符连续出现
;*  n次, 则该字符用ESC(1BH),n,<原字符>三个字节来代替(假定n不超
;*  过255)。
;*      设内存中从SOURCE开始有一用上述方法压缩的字符串, 其以
;*  00H结束, 解压后长度不超过100。试编程对其解压缩, 结果存入
;*  RESULT开始的内存单元。
;*    例如:
;*    原串  :41H,1BH,06H,43H,61H,00H
;*    解压后:41H,43H,43H,43H,43H,43H,43H,61H,00H ("ACCCCCCa")
;*      部分程序已在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          ; 原始数据文件名
           MOV        CX,N              ; 字节数
           CALL       LOAD              ; 从 "input1.dat"中读取数据
;  **** BEGIN ****
           LEA        SI,SOURCE
           LEA        DI,RESULT
           CLD

L0:        LODSB
           CMP        AL,0
           JE         QUIT
           CMP        AL,ESC_CODE
           je         expand
           ;J__        EXPAND
           stosb
           ;___________________
           JMP        L0
EXPAND:    lodsb
           ;___________________     ; 解压
           XOR        CX, CX
           mov        cl, al
           lodsb
           rep        stosb
           ;___________________
           ;___________________
           ;___________________
           ;___________________
           JMP        L0
QUIT:
           STOSB                   ; STORE THE ’00H’
;  ****  END  ****
           LEA        DX,RESULT    ; 结果数据区首址
           LEA        SI,NAME1     ; 结果文件名起始地址
           MOV        CX,N         ; 字节数
           CALL       SAVE         ; 保存结果到"output1.dat"文件中
           RET
START      ENDP
CODE       ENDS
           END        START


input1.dat 内容如下：
41 1B 03 42 65 1B 19 42 43 1B 03 44 45 1B 23 48
49 4A 4C 1B 0C 47 1B 0E 4D 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00
output1.dat 内容应当如下：
41 42 42 42 65 42 42 42 42 42 42 42 42 42 42 42 
42 42 42 42 42 42 42 42 42 42 42 42 42 42 43 44 
44 44 45 48 48 48 48 48 48 48 48 48 48 48 48 48 
48 48 48 48 48 48 48 48 48 48 48 48 48 48 48 48 
48 48 48 48 48 48 49 4A 4C 47 47 47 47 47 47 47 
47 47 47 47 47 4D 4D 4D 4D 4D 4D 4D 4D 4D 4D 4D 
4D 4D 4D 00