全国三级PC技术上机编程题10道5
第五套
===============================================================================
试题说明 :
===============================================================================
请编制程序PROG1.ASM, 其功能是: 内存中连续存放着十六个
12位二进制数DB(11)DB(10)…DB(0), 每个二进制数均用两个字节表示，
其存放格式均为
DB(11)DB(10)DB(9)DB(8)DB(7)DB(6)DB(5)DB(4) DB(3)DB(2)DB(1)DB(0) 0 0 0 0
│←──低地址字节──→││←──高地址字节──→│
请按序将每个12位二进制数转换成以下格式
DB(7)DB(6)DB(5)DB(4)DB(3)DB(2)DB(1)DB(0) 0 0 0 0 DB(11)DB(10)DB(9)DB(8)
│←─ 低地址字节──→││←───高地址字节──→│
转换结果按原序存放在内存中。
例如：
内存中有12H,30H(12位二进制数000100100011B(123H)按12H、
30H的形式顺序存放);04H,50H(12位二进制数000001000101B(45H)
按04H、50H的形式顺序存放); 61H,00H(12位二进制数
011000010000B(610H)按61H、00H的形式顺序存放;
结果为 0123H,0045H,0610H,…
部分程序已给出，其中原始数据由过程LOAD从文件INPUT1.DAT
中读入SOURCE开始的内存单元中。运算结果要求从RESULT开始存放,
由过程SAVE保存到OUTPUT1.DAT文件中。
填空BEGIN和END之间已给出的源程序使其完整 (空白已用横线
标出，每行空白一般只需一条指令，但采用功能相当的多条指令亦
可)， 或删除BEGIN和END之间原有的代码并自行编程来完成要求的
功能。
对程序必须进行汇编， 并与IO.OBJ链接产生PROG1.EXE执行文
件，最终运行程序产生结果(无结果或结果不正确者均不得分)。调
试中若发现整个程序中存在错误之处，请加以修改。
===============================================================================
程序 :
===============================================================================
EXTRN LOAD:FAR,SAVE:FAR
N EQU 16
STAC SEGMENT STACK
DB 128 DUP (?)
STAC ENDS
DATA SEGMENT
SOURCE DB N*2 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&nbs
AX
MOV AX,DATA
MOV DS,AX
LEA DX,SOURCE ; 数据区起始地址
LEA SI,NAME0 ; 原始数据文件名
MOV CX,N*2 ; 字节数
CALL LOAD ; 从 ’INPUT1.DAT’中读取数据
; **** BEGIN ****
MOV BX,0
MOV DI,OFFSET RESULT
MOV CH,N
MOV CL,__
PRO: MOV AX,_______________
MOV DX,AX
SHR DL,__ ; 12位无符号二进制数高八位右移
SHR AH,__ ; 12位无符号二进制数低四位右移
SHL AL,__ ; 12位无符号二进制数高八位左移
OR __________ ; 新格式12位无符号二进制数低八位
MOV AL,AH
MOV AH,DL ; 新格式12位无符号二进制数高四位
MOV BYTE PTR [DI],__
MOV BYTE PTR [DI+1],__
ADD DI,2
ADD BX,2
DEC CH
JNZ PRO
; **** END ****
LEA DX,RESULT ; 结果数据区首址
LEA SI,NAME1 ; 结果文件名
MOV CX,N*2 ; 结果字节数
CALL SAVE ; 保存结果到文件
RET
START ENDP
CODE ENDS
END START
===============================================================================
所需数据 :
===============================================================================
@2 input1.dat 001
FF F0 FF 00 F0 F0 0F F0 F0 00 0F 00 00 F0 00 00 00 50 05 00 50 00;0A A0 A0 A0 AA 00 AA A0 55 50
#E
@3 $output1.hex 001
00F00FF0F0F000FFFFF00FFFF0FFFFFFFAFFAFFFFFFA55FFF5F55FF555F5AAFA08
#E