上機(jī)題之16
以下內(nèi)容為程序代碼:
;* 請(qǐng)編制程序PROG1.ASM, 其功能是: 對(duì)一個(gè)由可打印ASCII字符
;* (ASCII碼20H～7FH)組成的字符串可采用下列方法進(jìn)行壓縮:從串首
;* 開(kāi)始向后掃描,如某字符單獨(dú)出現(xiàn)則該字符不變,如某字符連續(xù)出現(xiàn)
;* n次, 則該字符用ESC(1BH),n,<原字符>三個(gè)字節(jié)來(lái)代替(假定n不超
;* 過(guò)255)。
;* 設(shè)內(nèi)存中從SOURCE開(kāi)始有一用上述方法壓縮的字符串, 其以
;* 00H結(jié)束, 解壓后長(zhǎng)度不超過(guò)100。試編程對(duì)其解壓縮, 結(jié)果存入
;* RESULT開(kāi)始的內(nèi)存單元。
;* 例如:
;* 原串 :41H,1BH,06H,43H,61H,00H
;* 解壓后:41H,43H,43H,43H,43H,43H,43H,61H,00H ("ACCCCCCa")
;* 部分程序已在PROG1.ASM中給出, 請(qǐng)?zhí)羁誃EGIN和END之間已給
;* 出的源程序使其完整(空白已用橫線標(biāo)出, 每行空白一般只需一條
;* 指令, 但功能相當(dāng)?shù)亩鄺l指令亦可)或刪除BEGIN和END之間原有的
;* 代碼并自行編寫(xiě)程序片段來(lái)完成要求的功能。
;* 原始數(shù)據(jù)由過(guò)程LOAD從文件INPUT1.DAT中讀入SOURCE開(kāi)始的內(nèi)
;* 存單元中, 結(jié)果要求從RESULT開(kāi)始存放, 由過(guò)程SAVE保存到文件
;* OUTPUT1.DAT中。
;* 對(duì)程序必須進(jìn)行匯編, 并與IO.OBJ鏈接產(chǎn)生PROG1.EXE 執(zhí)行文
;* 件, 最終運(yùn)行程序產(chǎn)生結(jié)果(無(wú)結(jié)果或結(jié)果不正確者均不得分)。
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 ; 數(shù)據(jù)區(qū)起始地址
LEA SI,NAME0 ; 原始數(shù)據(jù)文件名
MOV CX,N ; 字節(jié)數(shù)
CALL LOAD ; 從 "input1.dat"中讀取數(shù)據(jù)
; **** 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 ; 結(jié)果數(shù)據(jù)區(qū)首址
LEA SI,NAME1 ; 結(jié)果文件名起始地址
MOV CX,N ; 字節(jié)數(shù)
CALL SAVE ; 保存結(jié)果到"output1.dat"文件中
RET
START ENDP
CODE ENDS
END START
input1.dat 內(nèi)容如下：
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 內(nèi)容應(yīng)當(dāng)如下：
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
以下內(nèi)容為程序代碼:
;* 請(qǐng)編制程序PROG1.ASM, 其功能是: 對(duì)一個(gè)由可打印ASCII字符
;* (ASCII碼20H～7FH)組成的字符串可采用下列方法進(jìn)行壓縮:從串首
;* 開(kāi)始向后掃描,如某字符單獨(dú)出現(xiàn)則該字符不變,如某字符連續(xù)出現(xiàn)
;* n次, 則該字符用ESC(1BH),n,<原字符>三個(gè)字節(jié)來(lái)代替(假定n不超
;* 過(guò)255)。
;* 設(shè)內(nèi)存中從SOURCE開(kāi)始有一用上述方法壓縮的字符串, 其以
;* 00H結(jié)束, 解壓后長(zhǎng)度不超過(guò)100。試編程對(duì)其解壓縮, 結(jié)果存入
;* RESULT開(kāi)始的內(nèi)存單元。
;* 例如:
;* 原串 :41H,1BH,06H,43H,61H,00H
;* 解壓后:41H,43H,43H,43H,43H,43H,43H,61H,00H ("ACCCCCCa")
;* 部分程序已在PROG1.ASM中給出, 請(qǐng)?zhí)羁誃EGIN和END之間已給
;* 出的源程序使其完整(空白已用橫線標(biāo)出, 每行空白一般只需一條
;* 指令, 但功能相當(dāng)?shù)亩鄺l指令亦可)或刪除BEGIN和END之間原有的
;* 代碼并自行編寫(xiě)程序片段來(lái)完成要求的功能。
;* 原始數(shù)據(jù)由過(guò)程LOAD從文件INPUT1.DAT中讀入SOURCE開(kāi)始的內(nèi)
;* 存單元中, 結(jié)果要求從RESULT開(kāi)始存放, 由過(guò)程SAVE保存到文件
;* OUTPUT1.DAT中。
;* 對(duì)程序必須進(jìn)行匯編, 并與IO.OBJ鏈接產(chǎn)生PROG1.EXE 執(zhí)行文
;* 件, 最終運(yùn)行程序產(chǎn)生結(jié)果(無(wú)結(jié)果或結(jié)果不正確者均不得分)。
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 ; 數(shù)據(jù)區(qū)起始地址
LEA SI,NAME0 ; 原始數(shù)據(jù)文件名
MOV CX,N ; 字節(jié)數(shù)
CALL LOAD ; 從 "input1.dat"中讀取數(shù)據(jù)
; **** 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 ; 結(jié)果數(shù)據(jù)區(qū)首址
LEA SI,NAME1 ; 結(jié)果文件名起始地址
MOV CX,N ; 字節(jié)數(shù)
CALL SAVE ; 保存結(jié)果到"output1.dat"文件中
RET
START ENDP
CODE ENDS
END START
input1.dat 內(nèi)容如下：
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 內(nèi)容應(yīng)當(dāng)如下：
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