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

会计考友

　请编制程序，其功能是：内存中连续存放着9个ASCII字符(8位二进制数表示，最高位为零)，把它们转换成串行通讯中偶校验码，并计算9个偶校验码的累加码(累加值的低8位二进制数)，将九个偶校验码按原序存入内存，累加码存放在此序最后。　　例如：
5 X! C  p) h  E: A9 H$ t( f( K　　内存中有： 37H,38H,39H…
: _- {; h' [8 V, l$ T3 g( v2 |　　结果为 ： B7H,B8H,39H…累加码
3 w! ~( o! ~% O　　部分程序已给出, 其中原始数据由过程LOAD从文件INPUT1.DAT中读入SOURCE开始的内存单元中。运算结果要求从RESULT开始存放,由过程SAVE保存到文件OUTPUT1.DAT中。
　　填空BEGIN和END之间已给出的一段源程序使其完整(空白已用横线标出,每行空白一般只需一条指令, 但采用功能相当的多条指令亦可),或删除BEGIN和END之间原有的代码并自行编程来完成要求的功能。
- w! \- l8 ~% a' E2 n) T% w% E　　对程序必须进行汇编,并与IO.OBJ链接产生PROG1.EXE执行文件,最终运行程序产生结果(无结果或结果不正确者均不得分)。调试中若发现整个程序中存在错误之处, 请加以修改。
　　试题程序：
; `3 h% u* V5 ^3 z0 G　　EXTRN LOAD:FAR,SAVE:FAR
8 k* f+ d( p8 }: e+ J* J4 c8 v　　N EQU 10
  @* e- _- X& u) a1 |$ _* t8 n　　STAC SEGMENT STACK
# J" c$ [. f2 V2 ~7 s　　DB 128 DUP(?)
( ?( n$ t" g! b2 ~1 }% `, |　　STAC ENDS
1 p2 }; |) |2 M/ O, M　　DATA SEGMENT
1 ]# f0 _. D1 D9 D+ X( G　　SOURCE DB 9 DUP(?) ;顺序存放9个ASCII字符
, q  P) x: @4 z$ B/ p　　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
1 `5 u' Q5 e6 B# [7 T# N7 H" H$ A　　MOV DS,AX
　　LEA DX,SOURCE ;数据区起始地址
　　LEA SI,NAME0 ;原始数据文件名
　　MOV CX,N-1 ;字节数
, B, r8 `$ D( K" `) p　　CALL LOAD ;从'INPUT1.DAT'中读取数据
　　;****BEGIN****
　　MOV SI,OFFSET SOURCE
　　MOV DI,OFFSET RESULT
　　MOV DX,N-1
　　MOV AL,0
　　LP0: MOV BL,[SI]
" p/ M, W- W0 D. ]　　MOV CX,8
　　________ AX
5 ~, V" d  Z# y& h　　MOV AL,0
& u% O$ d  ~5 ~' ~　　LP1: ________ BL,1
' U# E" k/ [  U% b/ {4 i+ n! J　　________ AL,0
$ t8 j$ G$ a3 s+ N　　LOOP LP1
" v* O1 X1 @: C- k7 s" j; V　　AND AL,01H
; Z" D* i: |; ]% a% h% s　　ROR AL,1
% w( g$ g& S1 c　　OR _________,_________
- l! r$ B; O* a4 I1 N3 t　　MOV [DI],BL
$ \- A+ L$ Z3 h$ U& d　　________ AX
　　ADD AL,BL
　　INC DI
　　INC SI
2 H8 ~1 B' B7 h+ t　　DEC ____________________
　　JNZ LP0
　　_____________________________
' P1 c' c2 W8 X1 u　　;****END****
" i# }" {: F$ S! S5 X　　LEA DX,RESULT ;结果数据区首址
　　LEA SI,NAME1 ;结果文件名
0 m" c5 {6 U5 B　　MOV CX,N ;字节数
　　CALL SAVE ;保存结果到文件
　　RET
　　START ENDP
　　CODE ENDS
　　END START