第一套

　　===============================================================================

　　試題說明 :

　　===============================================================================

　　請編制程序PROG1.ASM，其功能是：內存中連續存放著二個無

　　符號字節序列A(k)和B(k)(k=0,…,9;下同)，求序列C(k)，C(k)=A(k)+B(k)。

　　C(k)以字的形式按C(0),…,C(9)的順序連續存放。

　　例如：

　　序列A(k)為30H,31H,61H,FFH,…;

　　序列B(k)為00H,01H,F1H,0AH,…。

　　則結果C(k)為0030H,0032H,0152H,0109H,…。

　　部分程序已給出, 其中原始數據由過程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(?) ; 順序存放A0,…,A9,B0,…,B9

　　RESULT DW N DUP(0) ; 順序存放C0,…,C9

　　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,DATAMOV DS,AX

　　LEA DX,SOURCE ; 數據區起始地址

　　LEA SI,NAME0 ; 原始數據文件名

　　MOV CX,N*2 ; 字節數

　　CALL LOAD ; 從 ’INPUT1.DAT’中讀取數據

　　; **** BEGIN ****

　　MOV DI,___________

　　MOV BX,__

　　___________________

　　PRO: MOV AH,0

　　MOV AL,SOURCE[BX+10] ; 序列Bk中的一個字節

　　__________________________ ; Ck=Bk+Ak

　　JNC JUMP ; 無進位轉JUMP

　　__________________ ; 有進位，進位入AH

　　JUMP: MOV [DI],AX ; Ck=Bk+Ak的字的形式存入RESULT

　　INC BX

　　________________

　　DEC CX

　　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 80 7F 00 7F 80 FF 80 81 00 FF FF 80 00 81 00 00 81 FE FF

　　#E

　　@3 $output1.hex 001

　　01FE80FE00FFFFFFFFFE7FFF00FFFEFE80FE00FF7F

　　#E