上機題之24
以下內(nèi)容為程序代碼:
;* 請編制程序PROG1.ASM, 其功能是: 內(nèi)存中連續(xù)存放著五個用
;* 壓縮型(組合型)BCD碼表示的十進制數(shù)，請將它們分別轉(zhuǎn)換成ASCII
;* 字符，高位的BCD碼轉(zhuǎn)換后放在較高的地址單元。
;* 例如:
;* 內(nèi)存中有
;* 21H,43H,... (共五個字節(jié))
;* 結(jié)果為
;* 31H(’1’),32H(’2’),33H(’3’),34H(’4’),...(共十個字節(jié))
;* 部分程序已給出，其中原始數(shù)據(jù)由過程LOAD從文件INPUT1.DAT
;* 中讀入SOURCE開始的內(nèi)存單元中。 運算結(jié)果要求從RESULT開始存
;* 放, 由過程SAVE保存到文件OUTPUT1.DAT中。填空BEGIN和END之間
;* 已給出的源程序使其完整(空白已用橫線標出，每行空白一般只需
;* 一條指令，但采用功能相當?shù)亩鄺l指令亦可)，或刪除BEGIN和END
;* 之間原有的代碼并自行編程來完成要求的功能。
;* 對程序必須進行匯編, 并與IO.OBJ鏈接產(chǎn)生PROG1.EXE執(zhí)行文
;* 件，最終運行程序產(chǎn)生結(jié)果 (無結(jié)果或結(jié)果不正確者均不得分)。
;* 調(diào)試中若發(fā)現(xiàn)整個程序中存在錯誤之處，請加以修改。
EXTRN LOAD:FAR,SAVE:FAR
N EQU 5
STAC SEGMENT STACK
DB 128 DUP (?)
STAC ENDS
DATA SEGMENT
SOURCE DB N DUP(?)
RESULT DB N*2 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
MOV ES,AX
LEA DX,SOURCE ; 數(shù)據(jù)區(qū)起始地址
LEA SI,NAME0 ; 原始數(shù)據(jù)文件名
MOV CX,N ; 字節(jié)數(shù)
CALL LOAD ; 從’INPUT.DAT’中讀取數(shù)據(jù) ; **** BEGIN ****
LEA SI,SOURCE
LEA DI,RESULT
MOV CX,N
CLD
NEXT: lodsb
;LODS__
MOV BL,AL
and al,0fh
;AND AL, ____
OR AL,30H
stosb
;STOS__
mov al,bl
;MOV AL, ____
push cx
;PUSH ____
mov cl,4
;MOV CL, ____
SAR AL,CL
pop cx
;POP ____
OR AL,30H
stosb
;STOS__
LOOP NEXT
; **** 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)容如下：
78 25 32 49 71
output1.dat 內(nèi)容應(yīng)當如下：
38 37 35 32 32 33 39 34 31 37
以下內(nèi)容為程序代碼:
;* 請編制程序PROG1.ASM, 其功能是: 內(nèi)存中連續(xù)存放著五個用
;* 壓縮型(組合型)BCD碼表示的十進制數(shù)，請將它們分別轉(zhuǎn)換成ASCII
;* 字符，高位的BCD碼轉(zhuǎn)換后放在較高的地址單元。
;* 例如:
;* 內(nèi)存中有
;* 21H,43H,... (共五個字節(jié))
;* 結(jié)果為
;* 31H(’1’),32H(’2’),33H(’3’),34H(’4’),...(共十個字節(jié))
;* 部分程序已給出，其中原始數(shù)據(jù)由過程LOAD從文件INPUT1.DAT
;* 中讀入SOURCE開始的內(nèi)存單元中。 運算結(jié)果要求從RESULT開始存
;* 放, 由過程SAVE保存到文件OUTPUT1.DAT中。填空BEGIN和END之間
;* 已給出的源程序使其完整(空白已用橫線標出，每行空白一般只需
;* 一條指令，但采用功能相當?shù)亩鄺l指令亦可)，或刪除BEGIN和END
;* 之間原有的代碼并自行編程來完成要求的功能。
;* 對程序必須進行匯編, 并與IO.OBJ鏈接產(chǎn)生PROG1.EXE執(zhí)行文
;* 件，最終運行程序產(chǎn)生結(jié)果 (無結(jié)果或結(jié)果不正確者均不得分)。
;* 調(diào)試中若發(fā)現(xiàn)整個程序中存在錯誤之處，請加以修改。
EXTRN LOAD:FAR,SAVE:FAR
N EQU 5
STAC SEGMENT STACK
DB 128 DUP (?)
STAC ENDS
DATA SEGMENT
SOURCE DB N DUP(?)
RESULT DB N*2 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
MOV ES,AX
LEA DX,SOURCE ; 數(shù)據(jù)區(qū)起始地址
LEA SI,NAME0 ; 原始數(shù)據(jù)文件名
MOV CX,N ; 字節(jié)數(shù)
CALL LOAD ; 從’INPUT.DAT’中讀取數(shù)據(jù) ; **** BEGIN ****
LEA SI,SOURCE
LEA DI,RESULT
MOV CX,N
CLD
NEXT: lodsb
;LODS__
MOV BL,AL
and al,0fh
;AND AL, ____
OR AL,30H
stosb
;STOS__
mov al,bl
;MOV AL, ____
push cx
;PUSH ____
mov cl,4
;MOV CL, ____
SAR AL,CL
pop cx
;POP ____
OR AL,30H
stosb
;STOS__
LOOP NEXT
; **** 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)容如下：
78 25 32 49 71
output1.dat 內(nèi)容應(yīng)當如下：
38 37 35 32 32 33 39 34 31 37