請編制程序，其功能是：內存中共有30個字節型數據，找出其中的兩個ASCII字符串并進行校驗。欲尋找ASCII字符串由13個字符組成：#(23H)，7個ASCII字符，*(2AH)，2個ASCII字符，回車符(0DH)，換行符(0AH)。
校驗方法為：對字符#及字符*之間的7個ASCII字符進行異或操作，若異或操作結果的ASCCII字符表示(異或操作結果高4位的ASCII字符表示在前，低4位的ASCII字符表示在后)與原字符串中字符*之后的兩個ASCII字符相同，則將原字符串原樣保存;反之，則將原字符串中的所有字符(共13個)均用字符!(21H)代替。
例如：
內存中有 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
結果為 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(校驗錯，整個字符串用字符'!'代替)。
部分程序已給出, 其中原始數據由過程LOAD從文件INPUT1.DAT中讀入SOURCE開始的內存單元中。運算結果要求從RESULT開始存放,由過程SAVE保存到文件OUTPUT1.DAT中。
填空BEGIN和END之間已給出的一段源程序使其完整(空白已用橫線標出,每行空白一般只需一條指令, 但采用功能相當的多條指令亦可),或刪除BEGIN和END之間原有的代碼并自行編程來完成要求的功能。
對程序必須進行匯編,并與IO.OBJ鏈接產生PROG1.EXE執行文件,最終運行程序產生結果(無結果或結果不正確者均不得分)。調試中若發現整個程序中存在錯誤之處, 請加以修改。
試題程序：
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 ;數據區起始地址
LEA SI,NAME0 ;原始數據文件名
MOV CX,N+4 ;字節數
CALL LOAD ;從'INPUT1.DAT'中讀取數據
;****BEGIN****
MOV SI,0
MOV DI,0
MOV BX,2 ;兩個ASCII字符串
REPEAT: MOV AH,0
SEARCH: MOV AL,SOURCE[SI]
INC SI
CMP AL,'#'
________ SEARCH
MOV RESULT[DI],AL
INC DI
SEARCH1:MOV AL,SOURCE[SI]
INC SI
CMP AL,____________
JE ASCII
MOV RESULT[DI],AL
INC DI
XOR AH,AL
JMP _______________
ASCII: MOV RESULT[DI],AL
INC DI
PUSH DI
MOV DI,0
MOV DH,2
MOV DL,AH ;異或結果暫存在DL中
MOV CL,4 ;先將異或結果高4位轉換成ASCII字符
SHR AH,CL ;本行開始的4行語句將一個十六進制數轉換為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 ;再將異或結果低4位轉換成ASCII字符
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
________ 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,____________
COVER: MOV RESULT[DI],AL
INC DI
LOOP COVER
LP: ________________________
JZ EXIT
JMP REPEAT
EXIT: NOP
;****END****
LEA DX,RESULT ;結果數據區首址
LEA SI,NAME1 ;結果文件名
MOV CX,N ;字節數
CALL SAVE ;保存結果到文件
RET
START ENDP
CODE ENDS
END START
相關推薦：
2011年3月計算機三級PC技術試題答案及解析匯總
2011年計算機等級考試三級PC常見的系統命令行
2005-2010計算機等級考試三級PC技術歷年真題匯總
