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

会计考友

　　请编制程序，其功能是：一故障报警系统连续集20个字节数据存于SOURCE开始的内存区域，如果数据字节中有二进制位0(0代表有故障)，则记录该数据字节中0的个数，并按数据字节在前，0的个数在后的顺序存放到RESULT开始的内存区域。
) l- ^$ G/ _1 |$ w% \% b( o　　例如：
; }/ V# F+ B$ ^) b1 t　　内存中有： FEH,90H,FFH,DDH…
　　结果为： FEH,01H,90H,06H,FFH,00H,DDH,02H…
　　部分程序已给出, 其中原始数据由过程LOAD从文件INPUT1.DAT中读入SOURCE开始的内存单元中。运算结果要求从RESULT开始存放,由过程SAVE保存到文件OUTPUT1.DAT中。
  Y7 o6 {+ s6 ^4 [/ Q6 ~( F; Q# y4 X　　填空BEGIN和END之间已给出的一段源程序使其完整(空白已用横线标出,每行空白一般只需一条指令, 但采用功能相当的多条指令亦可),或删除BEGIN和END之间原有的代码并自行编程来完成要求的功能。
$ v. K! {6 Z7 z8 R9 V! F　　对程序必须进行汇编,并与IO.OBJ链接产生PROG1.EXE执行文件,最终运行程序产生结果(无结果或结果不正确者均不得分)。调试中若发现整个程序中存在错误之处, 请加以修改。
3 c; ?) U9 o( Q3 p  z4 n, x　　试题程序：
　　EXTRN LOAD:FAR,SAVE:FAR
0 z# o) n0 Y1 [　　N EQU 20
　　ESC_CODE EQU 27
5 ^( B& [, }. k( G8 B/ p　　STAC SEGMENT STACK
6 A2 y, \6 S& Z' r/ h. t　　DB 128 DUP(?)
! p, y5 r, d+ r7 x0 R# p　　STAC ENDS
2 `7 \5 F+ N4 `% q' }+ I' s　　DATA SEGMENT
　　SOURCE DB N DUP(?)
　　RESULT DB N*2 DUP(0)
* h3 A5 s* j4 L  ?　　NAME0 DB 'INPUT1.DAT',0
# Z5 b: u# H% T; \7 H, @　　NAME1 DB 'OUTPUT1.DAT',0
9 R5 L( C( }& y/ j　　DATA ENDS
　　CODE SEGMENT
　　ASSUME CS:CODE,DS:DATA,SS:STAC
$ X( V7 ]1 ]0 P6 N　　START PROC FAR
　　PUSH DS
　　XOR AX,AX
. R! @5 Z/ X4 E6 s. x1 T　　PUSH AX
　　MOV AX,DATA
　　MOV DS,AX
1 m, n! f5 t! N5 o9 {　　MOV ES,AX ;置附加段寄存器
　　LEA DX,SOURCE ;数据区起始地址
　　LEA SI,NAME0 ;原始数据文件名
6 t5 K  c# F+ A$ A9 I) [; I6 Y9 F　　MOV CX,N ;字节数
$ X7 p3 ]8 f1 u# A; W' P+ Q　　CALL LOAD ;从'INPUT1.DAT'中读取数据
; [: p' W4 C3 b* ]2 m/ j- r　　;****BEGIN****
　　LEA SI,SOURCE
" L& q1 I8 a  x+ @7 r" d2 W　　MOV DI,OFFSET RESULT
　　CLD
2 _# q% e, z4 ?　　MOV DL,N
　　LP1: ___________________________ ;字节数计数器DL
/ g# S- ]" ?5 m' m$ p9 [. N　　MOV [DI],AL
6 c( w5 |3 g0 {　　MOV CX,_______________
　　MOV DH,0
6 G! ~0 Y! X- I: ~3 E( ?( E2 W　　LP2: ________ AL,1
　　JC __________________
　　INC DH
) _+ ?) \; ~# w# }( M3 L　　LP3: ________ LP2
　　INC DI
$ T5 |: ~/ }: k& a2 m　　MOV [DI],_____________
　　___________________________
* u8 P" o) q2 R3 r, R6 ?7 B; D　　___________________________
　　JNZ __________________
　　;****END****
　　LEA DX,RESULT ;结果数据区首址
9 ~" ?6 E" t  w( h, e9 d% M- ^* o　　LEA SI,NAME1 ;结果文件名
　　MOV CX,N*2 ;字节数
/ @% ^! [0 U% ^1 g9 [* g! A2 y' j& N　　CALL SAVE ;保存结果到文件
　　RET
　　START ENDP
　　CODE ENDS
4 r+ R: X  E3 W3 i, T( }( t/ d. b' @　　END START