2011下半年计算机等级三级PC技术上机100题(7)

会计考友

　　请编制程序，其功能是：内存中共有30个字节型数据，找出其中的两个ASCII字符串并进行校验。欲寻找ASCII字符串由13个字符组成：#(23H)，7个ASCII字符，*(2AH)，2个ASCII字符，回车符(0DH)，换行符(0AH)。
　　校验方法为：对字符#及字符*之间的7个ASCII字符进行异或操作，若异或操作结果的ASCCII字符表示(异或操作结果高4位的ASCII字符表示在前，低4位的ASCII字符表示在后)与原字符串中字符*之后的两个ASCII字符相同，则将原字符串原样保存;反之，则将原字符串中的所有字符(共13个)均用字符!(21H)代替。
* u: k; ^7 n  J. x8 {9 @+ |! ~　　例如：
　　内存中有 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执行文件,最终运行程序产生结果(无结果或结果不正确者均不得分)。调试中若发现整个程序中存在错误之处, 请加以修改。
( P7 L) Z* c4 z4 v* g8 z9 `8 r　　试题程序：
　　EXTRN LOAD:FAR,SAVE:FAR
　　N EQU 26
" P" C( D: n1 ^+ f7 V1 e　　STAC SEGMENT STACK
: A  Z' K6 L2 R* i) _6 E! [; r　　DB 128 DUP(?)
* o' ~4 Z: E  i1 ?3 [& P* s　　STAC ENDS
　　DATA SEGMENT
- v! `% K" n+ Y: J. t　　SOURCE DB N+4 DUP(?)
　　RESULT DB N DUP(0)
! o, H8 {$ d( O/ w% ]' E　　HH DB 2 DUP(0)
　　NAME0 DB 'INPUT1.DAT',0
5 ?+ ?( q3 n+ K　　NAME1 DB 'OUTPUT1.DAT',0
　　DATA ENDS
　　CODE SEGMENT
　　ASSUME CS:CODE,DS:DATA,SS:STAC
　　START PROC FAR
: _; ]# m" {( v3 ?# I8 F　　PUSH DS
# l7 w  b3 w  M# w' ?4 A8 u　　XOR AX,AX
0 I' [7 g3 {, ^" P! b/ c　　PUSH AX
　　MOV AX,DATA
' y( u- a9 p  b5 O8 @　　MOV DS,AX
/ `0 \/ m, l3 P" X& {( x, E　　LEA DX,SOURCE ;数据区起始地址
$ [5 o/ k  d) E6 Q( ]　　LEA SI,NAME0 ;原始数据文件名
　　MOV CX,N+4 ;字节数
) W) t4 V% h1 \$ E　　CALL LOAD ;从'INPUT1.DAT'中读取数据
　　;****BEGIN****
　　MOV SI,0
; F* z% n4 z+ T; U$ v1 n$ ?2 |3 c( j　　MOV DI,0
　　MOV BX,2 ;两个ASCII字符串
% c& M+ v( H$ r　　REPEAT: MOV AH,0
　　SEARCH: MOV AL,SOURCE[SI]
: u( r! X* Q% H  G6 ]$ x　　INC SI
　　CMP AL,'#'
　　________ SEARCH
　　MOV RESULT[DI],AL
　　INC DI
　　SEARCH1:MOV AL,SOURCE[SI]
% e' Y" N7 K0 }. q* c6 j( b　　INC SI
; D' I  N5 e: F. g; L/ a/ j　　CMP AL,____________
: O  x4 c+ g, I　　JE ASCII
　　MOV RESULT[DI],AL
　　INC DI
　　XOR AH,AL
* t% _8 s9 ~  e4 u, _　　JMP _______________
　　ASCII: MOV RESULT[DI],AL
　　INC DI
　　PUSH DI
7 _# Y* o- P7 N, @8 h. j! D　　MOV DI,0
/ B. X$ I% S) ~2 o% h4 r　　MOV DH,2
% @; L8 G% k: D) Q　　MOV DL,AH ;异或结果暂存在DL中
! p' e, r! x5 E% t( ~; t3 }# t　　MOV CL,4 ;先将异或结果高4位转换成ASCII字符
　　SHR AH,CL ;本行开始的4行语句将一个十六进制数转换为ASCII码
9 V4 S7 g/ v+ I4 j) u, Z( d& o: M　　CHANGE: CMP AH,10
　　JL ADD_0
　　ADD AH,'A'-'0'-10
　　ADD_0: ADD AH,'0'
　　MOV HH[DI],AH
　　INC DI
% B$ e( M5 @# K, B. l0 e　　DEC DH
7 S; |5 w/ S' \* F! F　　JZ EXT
　　MOV AH,DL ;再将异或结果低4位转换成ASCII字符
& m6 |6 |% |0 f6 J+ b$ n　　AND AH,0FH
% S1 |& w& c* d- j* f: H5 T* t9 d- E: w　　JMP CHANGE
# Z5 O' L" Z' ?) S2 V: p　　EXT: POP DI
　　MOV AL,SOURCE[SI]
　　MOV RESULT[DI],AL
　　INC SI
! j( D9 N4 R* Y! d. Q　　INC DI
　　MOV AH,SOURCE[SI]
7 y1 g9 o/ l8 B! w6 f/ h0 s　　MOV RESULT[DI],AH
　　INC SI
6 G$ O/ e8 x8 l& U　　INC DI
7 b3 X3 h7 g- s7 w0 O: O　　MOV DL,HH
# b$ D$ q8 D. {3 @3 D' R- K: q　　MOV DH,HH+1
　　CMP AX,DX
' z- s- C/ t0 q0 y& J　　________ ERR
　　MOV AL,0DH ;校验正确
　　MOV RESULT[DI],AL
　　INC DI
　　MOV AL,0AH
　　MOV RESULT[DI],AL
　　INC DI
; x9 V2 K1 L+ ]+ J5 l　　JMP LP
　　ERR: SUB DI,11 ;校验错误
　　MOV AL,'!'
- h7 [- J( Y! J% [9 |　　MOV CX,____________
; C! `$ j) c/ U, r- K* X　　COVER: MOV RESULT[DI],AL
' o! w+ a$ Q! ^  S0 Q　　INC DI
　　LOOP COVER
5 T4 |$ f' L3 P) p1 C　　LP: ________________________
7 Q( ]5 o- I: L& I6 `　　JZ EXIT
6 O- p% S0 R  X. j3 V　　JMP REPEAT
　　EXIT: NOP
. }+ S) u4 W* q+ q! @- l　　;****END****
9 w' |9 d% B3 M7 Y8 p% R　　LEA DX,RESULT ;结果数据区首址
% {0 U% [/ c% ?/ ?. S1 k　　LEA SI,NAME1 ;结果文件名
　　MOV CX,N ;字节数
, B2 _# o# V7 v5 E7 O' x　　CALL SAVE ;保存结果到文件
' Q+ B) \0 S/ G　　RET
9 Y6 c  S% h. Y" H, W/ f, j2 r; f　　START ENDP
　　CODE ENDS
　　END START