上機(jī)題之14
以下內(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)。例如:
;* 原串 : 41H,43H,43H,43H,43H,43H,43H,61H,00H ("ACCCCCCa")
;* 壓縮后: 41H,1BH,06H,43H,61H,00H
;* 設(shè)內(nèi)存中從SOURCE開(kāi)始有一字符串, 其以00H結(jié)束, 長(zhǎng)度不超
;* 過(guò)100。試編程對(duì)其進(jìn)行壓縮, 結(jié)果存入RESULT開(kāi)始的內(nèi)存單元。
;* 部分程序已在PROG1.ASM中給出, 請(qǐng)?zhí)羁誃EGIN和END之間已給
;* 出的源程序使其完整(空白已用橫線標(biāo)出, 每行空白一般只需一條
;* 指令, 但功能相當(dāng)?shù)亩鄺l指令亦可)或刪除BEGIN和END之間原有的
;* 代碼并自行編寫程序片段來(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,RESULT
LEA DI,SOURCE
CLD
INC DI
L0: mov al,[di-1]
;____________________
CMP AL,0
JE QUIT
MOV CX,0FFFFH ; SET THE COUNTER TO 0FFFFH
rep scasb
;____________________ ; 字符串重復(fù)搜索, CX=0FFFFH-n
NEG CX ; 10000H-CX->CX
dec cx
;____________________ ; 獲得重復(fù)次數(shù)n
CMP CX,1
ja compress
;J__ COMPRESS
MOV [SI],AL
INC SI
jmp L0
;JMP ________
COMPRESS: MOV [SI],BYTE PTR ESC_CODE
MOV [SI+1],CL
MOV [SI+2],AL
add si,3
;____________________
JMP L0
QUIT:
MOV [SI],AL ; 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 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
output1.dat 文件內(nèi)容應(yīng)當(dāng)如下:
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
以下內(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)。例如:
;* 原串 : 41H,43H,43H,43H,43H,43H,43H,61H,00H ("ACCCCCCa")
;* 壓縮后: 41H,1BH,06H,43H,61H,00H
;* 設(shè)內(nèi)存中從SOURCE開(kāi)始有一字符串, 其以00H結(jié)束, 長(zhǎng)度不超
;* 過(guò)100。試編程對(duì)其進(jìn)行壓縮, 結(jié)果存入RESULT開(kāi)始的內(nèi)存單元。
;* 部分程序已在PROG1.ASM中給出, 請(qǐng)?zhí)羁誃EGIN和END之間已給
;* 出的源程序使其完整(空白已用橫線標(biāo)出, 每行空白一般只需一條
;* 指令, 但功能相當(dāng)?shù)亩鄺l指令亦可)或刪除BEGIN和END之間原有的
;* 代碼并自行編寫程序片段來(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,RESULT
LEA DI,SOURCE
CLD
INC DI
L0: mov al,[di-1]
;____________________
CMP AL,0
JE QUIT
MOV CX,0FFFFH ; SET THE COUNTER TO 0FFFFH
rep scasb
;____________________ ; 字符串重復(fù)搜索, CX=0FFFFH-n
NEG CX ; 10000H-CX->CX
dec cx
;____________________ ; 獲得重復(fù)次數(shù)n
CMP CX,1
ja compress
;J__ COMPRESS
MOV [SI],AL
INC SI
jmp L0
;JMP ________
COMPRESS: MOV [SI],BYTE PTR ESC_CODE
MOV [SI+1],CL
MOV [SI+2],AL
add si,3
;____________________
JMP L0
QUIT:
MOV [SI],AL ; 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 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
output1.dat 文件內(nèi)容應(yīng)當(dāng)如下:
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