上機(jī)題之15
以下內(nèi)容為程序代碼:
;* 請編制程序PROG1.ASM，其功能是:
;* 對內(nèi)存中存放的六組帶符號16位二進(jìn)制數(shù)(每組由三個數(shù)組成,
;* 均不為零)進(jìn)行處理。處理方法為:當(dāng)每組中負(fù)數(shù)多于正數(shù)時,將組內(nèi)
;* 負(fù)數(shù)變成正數(shù)(但絕對值不變,下同),組內(nèi)正數(shù)不變。反之,將組內(nèi)正
;* 數(shù)變成負(fù)數(shù),組內(nèi)負(fù)數(shù)不變。變換好的數(shù)按原序存放在內(nèi)存中。
;* 例如:
;* 內(nèi)存中有 0003H,0001H,0002H,0003H,0004H,FFFFH,FFFEH,
;* FFFDH,0001H,FFFEH,FFFDH,FFFFH,…(共六組18個數(shù))
;* 結(jié)果為 FFFDH,FFFFH,FFFEH,FFFDH,FFFCH,FFFFH,0002H,
;* 0003H,0001H,0002H,0003H,0001H…(共18個數(shù))
;* 部分程序已給出, 其中原始數(shù)據(jù)由過程LOAD從文件INPUT1.DAT
;* 中讀入SOURCE開始的內(nèi)存單元中。運(yùn)算結(jié)果要求從RESULT開始存放,
;* 由過程SAVE保存到文件OUTPUT1.DAT中。
;* 填空BEGIN和END之間已給出的源程序使其完整(空白已用橫線標(biāo)
;* 出,每行空白一般只需一條指令, 但采用功能相當(dāng)?shù)亩鄺l指令亦可),
;* 或刪除BEGIN和END之間原有的代碼并自行編程來完成要求的功能。
;* 對程序必須進(jìn)行匯編,并與IO.OBJ鏈接產(chǎn)生PROG1.EXE執(zhí)行文件,
;* 最終運(yùn)行程序產(chǎn)生結(jié)果(無結(jié)果或結(jié)果不正確者均不得分)。調(diào)試中
;* 若發(fā)現(xiàn)整個程序中存在錯誤之處, 請加以修改。
EXTRN LOAD:FAR,SAVE:FAR
N EQU 18
STAC SEGMENT STACK
DB 128 DUP (?)
STAC ENDS
DATA SEGMENT
SOURCE DW N 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 SI,0
MOV DI,0
MOV BX,6
REPT1: MOV DX,0
mov cx,3
;_______________
CAMP: MOV AX,SOURCE[SI]
add si,2
;________________________
CMP AX,0
JL CONT
JMP NEXT
CONT: INC DX
NEXT: LOOP CAMP
SUB SI,6
MOV CX,3
CMP DX,2
JAE NEG1
jb next1
;___ NEXT1 NEG1: MOV AX,SOURCE[SI]
add si,2
;_______________
CMP AX,0
JL NEG2
JMP NOTNEG
NEG2: neg ax
;_________________
NOTNEG: MOV RESULT[DI],AX
add di,2
;_______________________
LOOP NEG1
JMP NEXT2
NEXT1: MOV AX,SOURCE[SI]
add si,2
;_________________
CMP AX,0
JG NEG3
JMP NOTNEG1
NEG3: NEG AX
NOTNEG1: MOV RESULT[DI],AX
add di,2
;__________________
LOOP NEXT1
NEXT2: DEC BX
JZ EXIT
jmp rept1
;___________________
EXIT: NOP
; **** END ****
LEA DX,RESULT ; 結(jié)果數(shù)據(jù)區(qū)首址
LEA SI,NAME1 ; 結(jié)果文件名
MOV CX,N*2 ; 結(jié)果字節(jié)數(shù)
CALL SAVE ; 保存結(jié)果到文件
RET
START ENDP
CODE ENDS
END START
input1.dat 內(nèi)容如下：
03 00 FF FF FD FF 03 00 01 00 02 00 03 00 04 00 FF FF FE FF FD FF 01 00 FE FF FD FF FF FF FD FF 01 00 03 00
output1.dat 內(nèi)容應(yīng)當(dāng)如下：
03 00 01 00 03 00 FD FF FF FF FE FF FD FF FC FF
FF FF 02 00 03 00 01 00 02 00 03 00 01 00 FD FF
FF FF FD FF
以下內(nèi)容為程序代碼:
;* 請編制程序PROG1.ASM，其功能是:
;* 對內(nèi)存中存放的六組帶符號16位二進(jìn)制數(shù)(每組由三個數(shù)組成,
;* 均不為零)進(jìn)行處理。處理方法為:當(dāng)每組中負(fù)數(shù)多于正數(shù)時,將組內(nèi)
;* 負(fù)數(shù)變成正數(shù)(但絕對值不變,下同),組內(nèi)正數(shù)不變。反之,將組內(nèi)正
;* 數(shù)變成負(fù)數(shù),組內(nèi)負(fù)數(shù)不變。變換好的數(shù)按原序存放在內(nèi)存中。
;* 例如:
;* 內(nèi)存中有 0003H,0001H,0002H,0003H,0004H,FFFFH,FFFEH,
;* FFFDH,0001H,FFFEH,FFFDH,FFFFH,…(共六組18個數(shù))
;* 結(jié)果為 FFFDH,FFFFH,FFFEH,FFFDH,FFFCH,FFFFH,0002H,
;* 0003H,0001H,0002H,0003H,0001H…(共18個數(shù))
;* 部分程序已給出, 其中原始數(shù)據(jù)由過程LOAD從文件INPUT1.DAT
;* 中讀入SOURCE開始的內(nèi)存單元中。運(yùn)算結(jié)果要求從RESULT開始存放,
;* 由過程SAVE保存到文件OUTPUT1.DAT中。
;* 填空BEGIN和END之間已給出的源程序使其完整(空白已用橫線標(biāo)
;* 出,每行空白一般只需一條指令, 但采用功能相當(dāng)?shù)亩鄺l指令亦可),
;* 或刪除BEGIN和END之間原有的代碼并自行編程來完成要求的功能。
;* 對程序必須進(jìn)行匯編,并與IO.OBJ鏈接產(chǎn)生PROG1.EXE執(zhí)行文件,
;* 最終運(yùn)行程序產(chǎn)生結(jié)果(無結(jié)果或結(jié)果不正確者均不得分)。調(diào)試中
;* 若發(fā)現(xiàn)整個程序中存在錯誤之處, 請加以修改。
EXTRN LOAD:FAR,SAVE:FAR
N EQU 18
STAC SEGMENT STACK
DB 128 DUP (?)
STAC ENDS
DATA SEGMENT
SOURCE DW N 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 SI,0
MOV DI,0
MOV BX,6
REPT1: MOV DX,0
mov cx,3
;_______________
CAMP: MOV AX,SOURCE[SI]
add si,2
;________________________
CMP AX,0
JL CONT
JMP NEXT
CONT: INC DX
NEXT: LOOP CAMP
SUB SI,6
MOV CX,3
CMP DX,2
JAE NEG1
jb next1
;___ NEXT1 NEG1: MOV AX,SOURCE[SI]
add si,2
;_______________
CMP AX,0
JL NEG2
JMP NOTNEG
NEG2: neg ax
;_________________
NOTNEG: MOV RESULT[DI],AX
add di,2
;_______________________
LOOP NEG1
JMP NEXT2
NEXT1: MOV AX,SOURCE[SI]
add si,2
;_________________
CMP AX,0
JG NEG3
JMP NOTNEG1
NEG3: NEG AX
NOTNEG1: MOV RESULT[DI],AX
add di,2
;__________________
LOOP NEXT1
NEXT2: DEC BX
JZ EXIT
jmp rept1
;___________________
EXIT: NOP
; **** END ****
LEA DX,RESULT ; 結(jié)果數(shù)據(jù)區(qū)首址
LEA SI,NAME1 ; 結(jié)果文件名
MOV CX,N*2 ; 結(jié)果字節(jié)數(shù)
CALL SAVE ; 保存結(jié)果到文件
RET
START ENDP
CODE ENDS
END START
input1.dat 內(nèi)容如下：
03 00 FF FF FD FF 03 00 01 00 02 00 03 00 04 00 FF FF FE FF FD FF 01 00 FE FF FD FF FF FF FD FF 01 00 03 00
output1.dat 內(nèi)容應(yīng)當(dāng)如下：
03 00 01 00 03 00 FD FF FF FF FE FF FD FF FC FF
FF FF 02 00 03 00 01 00 02 00 03 00 01 00 FD FF
FF FF FD FF