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

会计考友

　请编制程序，其功能是：对内存中存放的六组带符号16位二进制数(每组由三个数组成，均不为零)进行处理。处理方法为：当每组中负数多于正数时，将组内负数变成正数(但绝对值不变，下同)，组内正数不变。反之，将组内正数变成负数，组内负数不变。变换好的数按原序存放在内存中。　　例如：
　　内存中有 0003H,0001H,0002H,0003H,0004H,FFFFH,FFFEH,FFFDH,0001H,FFFEH,FFFDH,FFFFH…(共六组18个数)
　　结果为 FFFDH,FFFFH,FFEH,FFFDH,FFFCH,FFFFH,0002H,0003H,0001H,0002H,0003,0001H…(共18个数)
5 b$ z* m/ v9 l3 c. I+ X- M　　部分程序已给出, 其中原始数据由过程LOAD从文件INPUT1.DAT中读入SOURCE开始的内存单元中。运算结果要求从RESULT开始存放,由过程SAVE保存到文件OUTPUT1.DAT中。
) m$ d1 K5 q1 V% x* v　　填空BEGIN和END之间已给出的一段源程序使其完整(空白已用横线标出,每行空白一般只需一条指令, 但采用功能相当的多条指令亦可),或删除BEGIN和END之间原有的代码并自行编程来完成要求的功能。
　　对程序必须进行汇编,并与IO.OBJ链接产生PROG1.EXE执行文件,最终运行程序产生结果(无结果或结果不正确者均不得分)。调试中若发现整个程序中存在错误之处, 请加以修改。
" u* d. M( [2 `4 {. n　　试题程序：
" c0 \  i6 y- D　　EXTRN LOAD:FAR,SAVE:FAR
　　N EQU 18
+ P2 d( S+ I+ ]8 w) t8 l　　STAC SEGMENT STACK
　　DB 128 DUP(?)
. E3 }1 B/ E4 O% G. `* S　　STAC ENDS
　　DATA SEGMENT
: B: s8 L9 K( h$ }$ i　　SOURCE DW N DUP(?)
5 V1 @6 j* ^2 I8 ^% V9 t  e　　RESULT DW N DUP(0)
　　NAME0 DB 'INPUT1.DAT',0
% W) ]  w# e$ ]9 e& Z+ }5 F　　NAME1 DB 'OUTPUT1.DAT',0
　　DATA ENDS
* _3 V2 a: X" B: [* K3 O6 @& o' {　　CODE SEGMENT
　　ASSUME CS:CODE,DS:DATA,SS:STAC
' m7 X! s6 e- X) g& t9 r- g, _3 J8 w　　START PROC FAR
! B# ~7 b6 U0 d0 ?5 g% U　　PUSH DS
* n) n, K6 f# ~4 g7 {8 T　　XOR AX,AX
% S: G8 {! M, R/ H2 s) Z' m# M　　PUSH AX
　　MOV AX,DATA
　　MOV DS,AX
3 S. M$ z/ V+ i; p7 l- x# l* d　　LEA DX,SOURCE ;数据区起始地址
　　LEA SI,NAME0 ;原始数据文件名
　　MOV CX,N*2 ;字节数
　　CALL LOAD ;从'INPUT1.DAT'中读取数据
# x+ l. E/ Z6 F# H; F　　;****BEGIN****
　　MOV SI,0
" u7 g0 P: S: ~  l/ i- @" b% _　　MOV DI,0
% \) u5 D2 ~0 S' |; _# W( T　　MOV BX,6
　　REPT1: MOV DX,0
. N3 T# _+ o' j8 [4 ~　　____________________________
& \2 p0 ]2 ~6 }1 @　　CAMP: MOV AX,SOURCE[SI]
8 P* D  `8 a" {　　____________________________
7 v& a! q- r( M5 h) g5 b　　CMP AX,0
　　JL CONT
　　JMP NEXT
" X/ P3 g! Q* l　　CONT: INC DX
* x: L4 ^+ s3 ~1 ~2 b# p　　NEXT: LOOP CAMP
　　SUB SI,6
　　MOV CX,3
& Q8 g1 c+ S8 ^1 J　　CMP DX,2
9 K8 H8 S+ B/ n6 n6 Z　　JAE NEG1
　　________ NEXT1
　　NEG1: MOV AX,SOURCE[SI]
　　______________________
　　CMP AX,0
. p) L3 _. i6 a5 \  |4 [　　JL NEG2
( Q1 e4 v/ M, E5 C" Y* h　　JMP NOTNEG
+ u2 j5 c: {; z8 b, ~　　NEG2: ______________________
( X. o' M  X4 G, \$ A0 A+ [　　NOTNEG: MOV RESULT[DI],AX
1 R+ c1 K4 u2 J' q7 r" p' B　　______________________
0 e. d4 b: a( }' Z* g( e+ N　　LOOP NEG1
1 O" g% e* _6 z+ b  O& Q3 b6 Y( n　　JMP NEXT2
　　NEXT1: MOV AX,SOURCE[SI]
+ [6 [; l7 ~0 }) a　　______________________
% D$ R# c8 J0 N　　CMP AX,0
　　JG NEG3
　　JMP NOTNEG1
& F. k) o3 m! R6 W/ w2 P4 P$ @2 c　　NEG3: NEG AX
　　NOTNEG1:MOV RESULT[DI],AX
& w6 {* e4 t; Y7 i" U' P0 A　　_______________________
　　LOOP NEXT1
　　NEXT2: DEC BX
　　JZ EXIT
# A6 t4 P" I) f7 p' i　　_______________________
　　EXIT: NOP
　　;****END****
1 e& W5 c$ @) ^: a/ L, J　　LEA DX,RESULT ;结果数据区首址
　　LEA SI,NAME1 ;结果文件名
　　MOV CX,N*2 ;字节数
　　CALL SAVE ;保存结果到文件
　　RET
　　START ENDP
4 R2 B1 T" `, k  \　　CODE ENDS
　　END START