就业数据资源平台
当前位置:首页 > PC技术
全国三级PC技术上机编程题10道8

第八套 
=============================================================================== 
试题说明 : 
=============================================================================== 
 请编制程序PROG1.ASM, 其功能是: 内存中连续存放着10个用 
ASCII码表示的十进制个位数,将它们转换成相应的二进制字节N(0), 
N(1), …, N(9),然后按序将N(0)至N(9)存入内存中,最后存放它们的和n 
(n= N(0)+ N(1)+…+ N(9))。n用压缩型(组合型)BCD码表示。 
例如: 
 内存中有 30H(’0’),39H(’9’),31H(’1’), … 
 结果为 00H,09H,01H,…,(后跟n) 
 部分程序已给出,其中原始数据由过程LOAD从文件INPUT1.DAT 
中读入SOURCE开始的内存单元中。运算结果要求从RESULT开始存放, 
由过程SAVE保存到文件OUTPUT1.DAT中。 
 填空BEGIN和END之间已给出的源程序使其完整 (空白已用横线 
标出,每行空白一般只需一条指令,但采用功能相当的多条指令亦 
可), 或删除BEGIN和END之间原有的代码并自行编程来完成要求的 
功能。 
 对程序必须进行汇编, 并与IO.OBJ链接产生PROG1.EXE执行文 
件,最终运行程序产生结果(无结果或结果不正确者均不得分)。调 
试中若发现整个程序中存在错误之处,请加以修改。 
=============================================================================== 
程序 : 
=============================================================================== 
 EXTRN LOAD:FAR,SAVE:FAR 
N EQU 10 
STAC SEGMENT STAC DB 128 DUP (?) 
STAC ENDS 
DATA SEGMENT 
SOURCE DB N DUP(?) 
RESULT DB N+1 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 ; 字节数 
 CALL LOAD ; 从 ’INPUT1.DAT’中读取数据 
; **** BEGIN **** 
 MOV DI,OFFSET RESULT 
 MOV BX,0 
 MOV CX,N 
 MOV DL,__ 
PRO: MOV AL,SOURCE[BX] 
 ___ AL,30H 
 MOV [DI],AL 
 _____________________ 
 ADD AL,DL 
 ____ 
 MOV DL,AL 
 INC BX 
 __________________ 
 JNZ PRO 
 _________________ 
; **** END **** 
 LEA DX,RESULT ; 结果数据区首址 
 LEA SI,NAME1 ; 结果文件名 
 MOV CX,N+1 ; 结果字数 
 CALL SAVE ; 保存结果到文件 
 RET 
START ENDP 
CODE ENDS 
END START 
=============================================================================== 
所需数据 : 
=============================================================================== 
@2 input1.dat 001 
30 39 31 38 32 37 33 36 34 35 
#E 
@3 $output1.hex 001 
FFF6FEF7FDF8FCF9FBFABA72 
#E 
就业数据资源平台