上機題之28
以下內(nèi)容為程序代碼:
;* 請編制程序PROG1.ASM，其功能是:
;* 內(nèi)存中共有30個字節(jié)型數(shù)據(jù),找出其中的兩個ASCII字符串并進
;* 行校驗。欲尋找的ASCII字符串由13個字符組成: #(23H),7個ASCII
;* 字符,*(2AH),2個ASCII字符，回車符(0DH),換行符(0AH)。
;* 校驗方法為: 對字符#及字符*之間的7個ASCII字符進行異或操
;* 作, 若異或操作結(jié)果的ASCII字符表示(異或操作結(jié)果高4位的ASCII
;* 字符表示在前, 低4位的ASCII字符表示在后)與原字符串中字符*之
;* 后的兩個ASCII字符相同, 則將原字符串原樣保存; 反之,則將原字
;* 符串中的所有字符(共13個)均用字符!(21H)代替。
;* 例如:
;* 內(nèi)存中有 33H,35H,23H(’#’,第一個字符串開始),46H,41H,30H,
;* 2EH,34H,3DH,31H,2AH(’*’),32H,31H,0DH,0AH,46H,23H(’#’,第二個
;* 字符串開始), 46H,41H,30H,2EH,34H,3DH,30H,2AH(’*’),32H,31H,
;* 0DH,0AH,55H
;* 結(jié)果為 23H,46H,41H,30H,2EH,34H,3DH,31H,2AH(’*’),32H,
;* 31H(校驗正確,該字符串原樣保持),0DH,0AH,21H,21H,21H,21H,21H,
;* 21H,21H,21H,21H,21H,21H,21H,21H(校驗錯, 整個字符串用字符’!’
;* 代替)
;* 部分程序已給出, 其中原始數(shù)據(jù)由過程LOAD從文件INPUT1.DAT
;* 中讀入SOURCE開始的內(nèi)存單元中。運算結(jié)果要求從RESULT開始存放,
;* 由過程SAVE保存到文件OUTPUT1.DAT中。
;* 填空BEGIN和END之間已給出的源程序使其完整(空白已用橫線標
;* 出,每行空白一般只需一條指令, 但采用功能相當(dāng)?shù)亩鄺l指令亦可),
;* 或刪除BEGIN和END之間原有的代碼并自行編程來完成要求的功能。
;* 對程序必須進行匯編,并與IO.OBJ鏈接產(chǎn)生PROG1.EXE執(zhí)行文件,
;* 最終運行程序產(chǎn)生結(jié)果(無結(jié)果或結(jié)果不正確者均不得分)。調(diào)試中
;* 若發(fā)現(xiàn)整個程序中存在錯誤之處, 請加以修改。
EXTRN LOAD:FAR,SAVE:FAR
N EQU 26
STAC SEGMENT STACK
DB 128 DUP (?)
STAC ENDS
DATA SEGMENT
SOURCE DB N+4 DUP(?)
RESULT DB N DUP(0)
HH DB 2 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
LEA DX,SOURCE ; 數(shù)據(jù)區(qū)起始地址
LEA SI,NAME0 ; 原始數(shù)據(jù)文件名
MOV CX,N+4 ; 字節(jié)數(shù)
CALL LOAD ; 從 ’INPUT1.DAT’中讀取數(shù)據(jù)
; **** BEGIN ****
MOV SI,0
MOV DI,0
MOV BX,2 ; 兩個ASCII字符串
REPEAT: MOV AH,0
SEARCH: MOV AL,SOURCE[SI]
INC SI
CMP AL,’#’
jne search
;___ SEARCH
MOV RESULT[DI],AL
INC DI SEARCH1: MOV AL,SOURCE[SI]
INC SI
cmp al,’*’
;CMP AL,___
JE ASCII
MOV RESULT[DI],AL
INC DI
XOR AH,AL
jmp search1
;JMP _______
ASCII: MOV RESULT[DI],AL
INC DI
PUSH DI
MOV DI,0
MOV DH,2
MOV DL,AH ; 異或結(jié)果暫存在DL中
MOV CL,4 ; 先將異或結(jié)果高4位轉(zhuǎn)換成ASDCII字
; 符
SHR AH,CL ; 本行開始的4行語句將一個十六進制數(shù)
; 轉(zhuǎn)換為ASCII碼
CHANGE: CMP AH,10
JL ADD_0
ADD AH,’A’-’0’-10
ADD_0: ADD AH,’0’
MOV HH[DI],AH
INC DI
DEC DH
JZ EXT
MOV AH,DL ; 再將異或結(jié)果低4位轉(zhuǎn)換成ASDCII字符
AND AH,0FH
JMP CHANGE
EXT: POP DI
MOV AL,SOURCE[SI]
MOV RESULT[DI],AL
INC SI
INC DI
MOV AH,SOURCE[SI]
MOV RESULT[DI],AH
INC SI
INC DI
MOV DL,HH
MOV DH,HH+1
CMP AX,DX
jne err
;___ ERR
MOV AL,0DH ; 校驗正確
MOV RESULT[DI],AL
INC DI
MOV AL,0AH
MOV RESULT[DI],AL
INC DI
JMP LP
ERR: SUB DI,11 ; 校驗錯誤
MOV AL,’!’
mov cx,13
;MOV CX,___
COVER: MOV RESULT[DI],AL
INC DI
LOOP COVER
LP: dec bx
;________________
JZ EXIT
JMP REPEAT
EXIT: NOP
; **** END ****
LEA DX,RESULT ; 結(jié)果數(shù)據(jù)區(qū)首址
LEA SI,NAME1 ; 結(jié)果文件名
MOV CX,N ; 結(jié)果字節(jié)數(shù)
CALL SAVE ; 保存結(jié)果到文件
RET
START ENDP
CODE ENDS
END START
input1.dat 內(nèi)容如下：
55 23 0A 40 0A 40 0A 40 00 2A 34 42 0D 0A 55 55 55 23 46 41 30 2E 33 3D 31 2A 32 36 0D 0A
output1.dat 內(nèi)容應(yīng)當(dāng)如下：
21 21 21 21 21 21 21 21 21 21 21 21 21 23 46 41
30 2E 33 3D 31 2A 32 36 0D 0A
output1.hex 內(nèi)容應(yīng)當(dāng)如下：
DEDEDEDEDEDEDEDEDEDEDEDEDEDCB9BECFD1CCC2CED5CDC9F2F5FF
以下內(nèi)容為程序代碼:
;* 請編制程序PROG1.ASM，其功能是:
;* 內(nèi)存中共有30個字節(jié)型數(shù)據(jù),找出其中的兩個ASCII字符串并進
;* 行校驗。欲尋找的ASCII字符串由13個字符組成: #(23H),7個ASCII
;* 字符,*(2AH),2個ASCII字符，回車符(0DH),換行符(0AH)。
;* 校驗方法為: 對字符#及字符*之間的7個ASCII字符進行異或操
;* 作, 若異或操作結(jié)果的ASCII字符表示(異或操作結(jié)果高4位的ASCII
;* 字符表示在前, 低4位的ASCII字符表示在后)與原字符串中字符*之
;* 后的兩個ASCII字符相同, 則將原字符串原樣保存; 反之,則將原字
;* 符串中的所有字符(共13個)均用字符!(21H)代替。
;* 例如:
;* 內(nèi)存中有 33H,35H,23H(’#’,第一個字符串開始),46H,41H,30H,
;* 2EH,34H,3DH,31H,2AH(’*’),32H,31H,0DH,0AH,46H,23H(’#’,第二個
;* 字符串開始), 46H,41H,30H,2EH,34H,3DH,30H,2AH(’*’),32H,31H,
;* 0DH,0AH,55H
;* 結(jié)果為 23H,46H,41H,30H,2EH,34H,3DH,31H,2AH(’*’),32H,
;* 31H(校驗正確,該字符串原樣保持),0DH,0AH,21H,21H,21H,21H,21H,
;* 21H,21H,21H,21H,21H,21H,21H,21H(校驗錯, 整個字符串用字符’!’
;* 代替)
;* 部分程序已給出, 其中原始數(shù)據(jù)由過程LOAD從文件INPUT1.DAT
;* 中讀入SOURCE開始的內(nèi)存單元中。運算結(jié)果要求從RESULT開始存放,
;* 由過程SAVE保存到文件OUTPUT1.DAT中。
;* 填空BEGIN和END之間已給出的源程序使其完整(空白已用橫線標
;* 出,每行空白一般只需一條指令, 但采用功能相當(dāng)?shù)亩鄺l指令亦可),
;* 或刪除BEGIN和END之間原有的代碼并自行編程來完成要求的功能。
;* 對程序必須進行匯編,并與IO.OBJ鏈接產(chǎn)生PROG1.EXE執(zhí)行文件,
;* 最終運行程序產(chǎn)生結(jié)果(無結(jié)果或結(jié)果不正確者均不得分)。調(diào)試中
;* 若發(fā)現(xiàn)整個程序中存在錯誤之處, 請加以修改。
EXTRN LOAD:FAR,SAVE:FAR
N EQU 26
STAC SEGMENT STACK
DB 128 DUP (?)
STAC ENDS
DATA SEGMENT
SOURCE DB N+4 DUP(?)
RESULT DB N DUP(0)
HH DB 2 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
LEA DX,SOURCE ; 數(shù)據(jù)區(qū)起始地址
LEA SI,NAME0 ; 原始數(shù)據(jù)文件名
MOV CX,N+4 ; 字節(jié)數(shù)
CALL LOAD ; 從 ’INPUT1.DAT’中讀取數(shù)據(jù)
; **** BEGIN ****
MOV SI,0
MOV DI,0
MOV BX,2 ; 兩個ASCII字符串
REPEAT: MOV AH,0
SEARCH: MOV AL,SOURCE[SI]
INC SI
CMP AL,’#’
jne search
;___ SEARCH
MOV RESULT[DI],AL
INC DI SEARCH1: MOV AL,SOURCE[SI]
INC SI
cmp al,’*’
;CMP AL,___
JE ASCII
MOV RESULT[DI],AL
INC DI
XOR AH,AL
jmp search1
;JMP _______
ASCII: MOV RESULT[DI],AL
INC DI
PUSH DI
MOV DI,0
MOV DH,2
MOV DL,AH ; 異或結(jié)果暫存在DL中
MOV CL,4 ; 先將異或結(jié)果高4位轉(zhuǎn)換成ASDCII字
; 符
SHR AH,CL ; 本行開始的4行語句將一個十六進制數(shù)
; 轉(zhuǎn)換為ASCII碼
CHANGE: CMP AH,10
JL ADD_0
ADD AH,’A’-’0’-10
ADD_0: ADD AH,’0’
MOV HH[DI],AH
INC DI
DEC DH
JZ EXT
MOV AH,DL ; 再將異或結(jié)果低4位轉(zhuǎn)換成ASDCII字符
AND AH,0FH
JMP CHANGE
EXT: POP DI
MOV AL,SOURCE[SI]
MOV RESULT[DI],AL
INC SI
INC DI
MOV AH,SOURCE[SI]
MOV RESULT[DI],AH
INC SI
INC DI
MOV DL,HH
MOV DH,HH+1
CMP AX,DX
jne err
;___ ERR
MOV AL,0DH ; 校驗正確
MOV RESULT[DI],AL
INC DI
MOV AL,0AH
MOV RESULT[DI],AL
INC DI
JMP LP
ERR: SUB DI,11 ; 校驗錯誤
MOV AL,’!’
mov cx,13
;MOV CX,___
COVER: MOV RESULT[DI],AL
INC DI
LOOP COVER
LP: dec bx
;________________
JZ EXIT
JMP REPEAT
EXIT: NOP
; **** END ****
LEA DX,RESULT ; 結(jié)果數(shù)據(jù)區(qū)首址
LEA SI,NAME1 ; 結(jié)果文件名
MOV CX,N ; 結(jié)果字節(jié)數(shù)
CALL SAVE ; 保存結(jié)果到文件
RET
START ENDP
CODE ENDS
END START
input1.dat 內(nèi)容如下：
55 23 0A 40 0A 40 0A 40 00 2A 34 42 0D 0A 55 55 55 23 46 41 30 2E 33 3D 31 2A 32 36 0D 0A
output1.dat 內(nèi)容應(yīng)當(dāng)如下：
21 21 21 21 21 21 21 21 21 21 21 21 21 23 46 41
30 2E 33 3D 31 2A 32 36 0D 0A
output1.hex 內(nèi)容應(yīng)當(dāng)如下：
DEDEDEDEDEDEDEDEDEDEDEDEDEDCB9BECFD1CCC2CED5CDC9F2F5FF