计算机等级考试三级PC上级题精选11-20(5)

上机题之15
以下内容为程序代码:
;*      请编制程序PROG1.ASM，其功能是:
;*      对内存中存放的六组带符号16位二进制数(每组由三个数组成,
;*  均不为零)进行处理。处理方法为:当每组中负数多于正数时,将组内
;*  负数变成正数(但绝对值不变,下同),组内正数不变。反之,将组内正
;*  数变成负数,组内负数不变。变换好的数按原序存放在内存中。
;*      例如:
;*      内存中有 0003H,0001H,0002H,0003H,0004H,FFFFH,FFFEH,
;*  FFFDH,0001H,FFFEH,FFFDH,FFFFH,…(共六组18个数)
;*      结果为   FFFDH,FFFFH,FFFEH,FFFDH,FFFCH,FFFFH,0002H,
;*  0003H,0001H,0002H,0003H,0001H…(共18个数)
;*      部分程序已给出, 其中原始数据由过程LOAD从文件INPUT1.DAT
;*  中读入SOURCE开始的内存单元中。运算结果要求从RESULT开始存放,
;*  由过程SAVE保存到文件OUTPUT1.DAT中。
;*      填空BEGIN和END之间已给出的源程序使其完整(空白已用横线标
;*  出,每行空白一般只需一条指令, 但采用功能相当的多条指令亦可),
;*  或删除BEGIN和END之间原有的代码并自行编程来完成要求的功能。
;*      对程序必须进行汇编,并与IO.OBJ链接产生PROG1.EXE执行文件,
;*  最终运行程序产生结果(无结果或结果不正确者均不得分)。调试中
;*  若发现整个程序中存在错误之处, 请加以修改。
           EXTRN      LOAD:FAR,SAVE:FAR
N          EQU        18
STAC       SEGMENT    STACK
           DB         128 DUP (?)
STAC       ENDS
DATA       SEGMENT
SOURCE     DW         N DUP(?)
RESULT     DW         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
           MOV        DS,AX
           LEA        DX,SOURCE          ; 数据区起始地址
           LEA        SI,NAME0           ; 原始数据文件名
           MOV        CX,N*2             ; 字节数
           CALL       LOAD               ; 从 ’INPUT1.DAT’中读取数据
;  **** BEGIN ****
           MOV        SI,0
           MOV        DI,0
           MOV        BX,6
REPT1:     MOV        DX,0
           mov        cx,3
           ;_______________
CAMP:      MOV        AX,SOURCE[SI]
           add        si,2
           ;________________________
           CMP        AX,0
           JL         CONT
           JMP        NEXT
CONT:      INC        DX
NEXT:      LOOP       CAMP
           SUB        SI,6
           MOV        CX,3
           CMP        DX,2
           JAE        NEG1
           jb         next1
           ;___        NEXT1

NEG1:      MOV        AX,SOURCE[SI]
           add        si,2
           ;_______________
           CMP        AX,0
           JL         NEG2
           JMP        NOTNEG
NEG2:      neg        ax
           ;_________________
NOTNEG:    MOV        RESULT[DI],AX
           add        di,2
           ;_______________________
           LOOP       NEG1
           JMP        NEXT2
NEXT1:     MOV        AX,SOURCE[SI]
           add        si,2
           ;_________________
           CMP        AX,0
           JG         NEG3
           JMP        NOTNEG1
NEG3:      NEG        AX
NOTNEG1:   MOV        RESULT[DI],AX
           add        di,2
           ;__________________
           LOOP       NEXT1
NEXT2:     DEC        BX
           JZ         EXIT
           jmp        rept1
           ;___________________
EXIT:      NOP
;  ****  END  ****
           LEA        DX,RESULT          ; 结果数据区首址
           LEA        SI,NAME1           ; 结果文件名
           MOV        CX,N*2             ; 结果字节数
           CALL       SAVE               ; 保存结果到文件
           RET
START      ENDP
CODE       ENDS
           END        START


input1.dat 内容如下：
03 00 FF FF FD FF 03 00 01 00 02 00 03 00 04 00 FF FF FE FF FD FF 01 00 FE FF FD FF FF FF FD FF 01 00 03 00
output1.dat 内容应当如下：
03 00 01 00 03 00 FD FF FF FF FE FF FD FF FC FF 
FF FF 02 00 03 00 01 00 02 00 03 00 01 00 FD FF 
FF FF FD FF