第四套 
　　=============================================================================== 
　　试题说明 : 

       =============================================================================== 
　　 请编制程序PROG1.ASM, 其功能是: 内存中连续存放着二个有 
　　符号字节序列A(k)和B(k)(k=0,…,9;下同)，求序列C(k)，C(k)=A(k)÷B(k)。 
　　运算结果按序以字的形式连续存放(低字节为商，高字节为余数)。 
　　 例如： 
　　 序列A(k)为FFH(-1D), 81H(-127D),C0H(-64D),80H(-128D),…； 
　　 序列B(k)为81H(-127D),40H(64D),81H(-127D),01H(1D),…。 
　　 则结果C(k)为FF00H（00H(0D)为商、FFH(-1D)为余数）,C1FFH, 
　　C000H,0080H,…。 
　　 部分程序已给出，其中原始数据由过程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 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 AX 
　　 MOV AX,DATA 
　　 MOV DS,AX
　　 LEA DX,SOURCE ; 数据区起始地址 LEA SI,NAME0 ; 原始数据文件名 
　　 MOV CX,N*2 ; 字节数 
　　 CALL LOAD ; 从’INPUT1.DAT’中读取数据 
　　; **** BEGIN ****  
　　 ___________________ 
　　 MOV DI,___________ 
　　 MOV CX,N 
　　PRO: MOV AL,____________ 
　　 ____ ; AL中数的符号扩展到AH，正的字节 
　　 ; 变成正的字，负的字节变成负的字 
　　 _____ SOURCE[BX+N] 
　　 MOV ____,AX 
　　 ADD DI,2 
　　 INC BX 
　　 DEC CX 
　　 JNZ PRO 
　　; **** END ****  
　　 LEA DX,RESULT ; 结果数据区首址 
　　 LEA SI,NAME1 ; 结果文件名 
　　 MOV CX,2*N ; 结果字节数 
　　 CALL SAVE ; 保存结果到文件 
　　 RET 
　　START ENDP 
　　CODE ENDS 
　　END START 
　　=============================================================================== 
　　所需数据 : 
　　=============================================================================== 
　　@2 input1.dat 001 
　　FF 81 C0 80 00 80 40 7F 20 7F 81 40 81 01 7F 80 C0 81 01 7F 
　　#E 
　　@3 $output1.hex 001 
　　FF00003EFF3F7FFFFFFFFEFF00FF00FFDFFFFEFF1F 
　　#E