上機題之25
以下內容為程序代碼:
;* 請編制程序PROG1.ASM, 其功能是: 內存中連續(xù)存放著兩個無
;* 符號字節(jié)數(shù)序列Ak和Bk（k=0,…,9）,求序列Ck，Ck=Ak÷Bk(運算
;* 結果按序以字的形式連續(xù)存放,其中低字節(jié)為商，高字節(jié)為余數(shù))。
;* 例如：
;* 序列Ak為01H,7FH,80H,FFH,…；
;* 序列Bk為FFH,80H,7FH,01H,…。
;* 結果Ck為0100H(00H為商、01H為余數(shù)),7F00H,0101H,00FFH,…。
;* 部分程序已給出，其中原始數(shù)據(jù)由過程LOAD從文件INPUT1.DAT
;* 中讀入SOURCE開始的內存單元中，運算結果要求從RESULT開始存放,
;* 由過程SAVE保存到文件OUTPUT1.DAT中。
;* 填空BEGIN和END之間已給出的源程序使其完整 (空白已用橫線
;* 標出, 每行空白一般只需一條指令，但采用功能相當?shù)亩鄺l指令亦
;* 可)， 或刪除BEGIN和END之間原有的代碼并自行編程來完成要求的
;* 功能。
;* 對程序必須進行匯編， 并與IO.OBJ鏈接產(chǎn)生PROG1.EXE執(zhí)行文
;* 件，最終運行程序產(chǎn)生結果(無結果或結果不正確者均不得分)。調
;* 試中若發(fā)現(xiàn)整個程序中存在錯誤之處，請加以修改。
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 ; 數(shù)據(jù)區(qū)起始地址
LEA SI,NAME0 ; 原始數(shù)據(jù)文件名
MOV CX,N*2 ; 字節(jié)數(shù)
CALL LOAD ; 從’INPUT1.DAT’中讀取數(shù)據(jù); **** BEGIN ****
MOV DI,OFFSET RESULT
MOV BX,0
mov cx,N
;______________________
PRO: mov ah,0
mov al,source[bx]
div source[bx+N]
;MOV _________
;_____________,SOURCE[BX]
;DIV ___________
mov [di],ax
;MOV [DI],___
ADD DI,2
inc bx
;_______________________
DEC CX
jnz pro
;___ PRO
; **** END ****
LEA DX,RESULT ; 結果數(shù)據(jù)區(qū)首址
LEA SI,NAME1 ; 結果文件名
MOV CX,2*N ; 結果字節(jié)數(shù)
CALL SAVE ; 保存結果到文件
RET
START ENDP
CODE ENDS
END START
input1.dat 內容如下：
01 7F 80 FF 00 FF 80 7F 01 80 FF 80 7F 01 FF 80 40 01 01 7F
output1.dat 內容應當如下：
00 01 00 7F 01 01 FF 00 00 00 01 7F 02 00 7F 00
01 00 01 01
以下內容為程序代碼:
;* 請編制程序PROG1.ASM, 其功能是: 內存中連續(xù)存放著兩個無
;* 符號字節(jié)數(shù)序列Ak和Bk（k=0,…,9）,求序列Ck，Ck=Ak÷Bk(運算
;* 結果按序以字的形式連續(xù)存放,其中低字節(jié)為商，高字節(jié)為余數(shù))。
;* 例如：
;* 序列Ak為01H,7FH,80H,FFH,…；
;* 序列Bk為FFH,80H,7FH,01H,…。
;* 結果Ck為0100H(00H為商、01H為余數(shù)),7F00H,0101H,00FFH,…。
;* 部分程序已給出，其中原始數(shù)據(jù)由過程LOAD從文件INPUT1.DAT
;* 中讀入SOURCE開始的內存單元中，運算結果要求從RESULT開始存放,
;* 由過程SAVE保存到文件OUTPUT1.DAT中。
;* 填空BEGIN和END之間已給出的源程序使其完整 (空白已用橫線
;* 標出, 每行空白一般只需一條指令，但采用功能相當?shù)亩鄺l指令亦
;* 可)， 或刪除BEGIN和END之間原有的代碼并自行編程來完成要求的
;* 功能。
;* 對程序必須進行匯編， 并與IO.OBJ鏈接產(chǎn)生PROG1.EXE執(zhí)行文
;* 件，最終運行程序產(chǎn)生結果(無結果或結果不正確者均不得分)。調
;* 試中若發(fā)現(xiàn)整個程序中存在錯誤之處，請加以修改。
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 ; 數(shù)據(jù)區(qū)起始地址
LEA SI,NAME0 ; 原始數(shù)據(jù)文件名
MOV CX,N*2 ; 字節(jié)數(shù)
CALL LOAD ; 從’INPUT1.DAT’中讀取數(shù)據(jù); **** BEGIN ****
MOV DI,OFFSET RESULT
MOV BX,0
mov cx,N
;______________________
PRO: mov ah,0
mov al,source[bx]
div source[bx+N]
;MOV _________
;_____________,SOURCE[BX]
;DIV ___________
mov [di],ax
;MOV [DI],___
ADD DI,2
inc bx
;_______________________
DEC CX
jnz pro
;___ PRO
; **** END ****
LEA DX,RESULT ; 結果數(shù)據(jù)區(qū)首址
LEA SI,NAME1 ; 結果文件名
MOV CX,2*N ; 結果字節(jié)數(shù)
CALL SAVE ; 保存結果到文件
RET
START ENDP
CODE ENDS
END START
input1.dat 內容如下：
01 7F 80 FF 00 FF 80 7F 01 80 FF 80 7F 01 FF 80 40 01 01 7F
output1.dat 內容應當如下：
00 01 00 7F 01 01 FF 00 00 00 01 7F 02 00 7F 00
01 00 01 01