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

会计考友

请编制程序，其功能是：计算10个有符号字节数据的绝对值之和(字型)，并找出绝对值最大的数及其所在的偏移地址，最后将它们依次存入指定的内存中，结果以FFH结束。　　例如：
　　内存中有 10H,01H,27H,00H,FEH,80H,00H,03H,FFH,01H
　　结果为 BFH,00H,80H,05H,00H,FFH
　　部分程序已给出, 其中原始数据由过程LOAD从文件INPUT1.DAT中读入SOURCE开始的内存单元中。运算结果要求从RESULT开始存放,由过程SAVE保存到文件OUTPUT1.DAT中。
6 s" `# F+ M  e　　填空BEGIN和END之间已给出的一段源程序使其完整(空白已用横线标出,每行空白一般只需一条指令, 但采用功能相当的多条指令亦可),或删除BEGIN和END之间原有的代码并自行编程来完成要求的功能。
　　对程序必须进行汇编,并与IO.OBJ链接产生PROG1.EXE执行文件,最终运行程序产生结果(无结果或结果不正确者均不得分)。调试中若发现整个程序中存在错误之处, 请加以修改。
　　试题程序：
　　EXTRN LOAD:FAR,SAVE:FAR
/ c  R: A  E/ B* P, A5 N3 z2 g0 v0 f　　N EQU 10
; ]# Y9 }5 i% @6 p& ~　　DSEG SEGMENT
　　SOURCE DB N DUP(?)
. a3 a" c8 w4 C. g　　RESULT DB 6 DUP(0)
0 H7 `0 \' ?# a0 x- \$ M' a　　MAX DB ?
　　NAME0 DB 'INPUT1.DAT',0
! h# |6 ^9 o# e9 Q, e, l　　NAME1 DB 'OUTPUT1.DAT',0
2 a, R1 x8 U8 {　　DSEG ENDS
　　SSEG SEGMENT STACK
　　DB 256 DUP(?)
　　SSEG ENDS
6 G' K, C( f) E) v9 T& h; L　　CSEG SEGMENT
# k8 j+ _' Z6 t6 j　　ASSUME CS:CSEG,SS:SSEG,DS:DSEG
. E$ q# H' c8 {' ]  Z: E7 c0 a　　START PROC FAR
　　PUSH DS
　　XOR AX,AX
8 Q9 H6 u* \( |　　PUSH AX
' D/ `" s  g9 m# m: P　　MOV AX,DSEG
　　MOV DS,AX
　　MOV ES,AX ;置附加段寄存器
0 |: l9 M1 Z/ Z" @　　LEA DX,SOURCE ;数据区起始地址
　　LEA SI,NAME0 ;原始数据文件名
　　MOV CX,N ;字节数
# J4 j& Y1 V2 D; Q' j4 @  L　　CALL LOAD ;从'INPUT1.DAT'中读取数据
　　;****BEGIN****
' @/ c5 X$ m2 A! V8 a$ H/ {　　LEA SI,SOURCE
　　LEA DI,RESULT
0 z/ j# S8 d/ L5 G　　MOV DX,SI
　　MOV CX.N-1
* ~0 v; W0 i  k, ~6 ^1 g: P2 w　　MOV AL,[SI]
6 G( b! M9 z# W! y) M: m　　ADD AL,0
3 p3 A/ K* O$ ?. V$ {2 v0 q# ]9 A　　JNS P1
/ E! l) G. a8 W/ A# M　　_____________________
- V! d0 \/ _8 {　　P1: MOV MAX,AL
! [% R6 G$ a% y/ s" V　　ADD [DI],AL
　　___________________________
　　GOON: INC SI
　　MOV AL,[SI]
( X/ n% A# j# {; I　　ADD AL,0
　　JNS P2
" x( U! v* D! X5 {0 S% g9 r8 f　　NEG AL
　　P2: ADD [DI],AL
" G2 u! A) u0 P5 c" _  W. F' [　　___________________________
3 O" w: J% b$ G5 G　　CMP MAX,AL
　　JAE __________________
　　MOV MAX,AL
- i+ ]. V; }! G+ u( l6 }6 ~! `　　MOV DX,SI
. ~, R% H8 Q) j* c+ K# F　　NEXT: LOOP GOON
" o% M8 v! a( h4 \　　ADD DI,2
　　MOV AL,MAX
　　MOV [DI],AL
　　INC DI
　　MOV [DI],DX
+ ~$ z- q! y0 [4 M& [" [　　ADD DI,2
　　MOV BYTE PTR [DI],___________
　　;****END****
　　LEA DX,RESULT ;结果数据区首址
　　LEA SI,NAME1 ;结果文件名
3 e, [! I; J/ p2 }: Z　　MOV CX,6 ;字节数
( d: t2 X# P) ^2 ]  N) t$ Z　　CALL SAVE ;保存结果到文件
7 \5 v5 a! r, q4 |　　RET
1 Z/ S0 U! C& R7 K1 j# N　　START ENDP
/ w( v8 E+ F4 T0 q8 \8 K4 s! `4 L　　CSEG ENDS
　　END START