請編制程序,其功能是:將十進制數(shù)據(jù)的ASCII碼轉(zhuǎn)換為BCD碼,并按照組合(壓縮)格式存放在內(nèi)存區(qū)中。該ASCII字符串以00H作為結(jié)束標志,若被轉(zhuǎn)換的ASCII碼為奇數(shù)個,則把地址最低的ASCII碼按照非組合(非壓縮)BCD碼格式轉(zhuǎn)換。
例如:
內(nèi)存中有 31H,32H,33H,34H,35H
結(jié)果為 000H,0302H,0504H
部分程序已給出, 其中原始數(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 20
DSEG SEGMENT
SOURCE DB N DUP(?)
RESULT DB N/2 DUP(0)
NAME0 DB 'INPUT1.DAT',0
NAME1 DB 'OUTPUT1.DAT',0
DSEG ENDS
SSEG SEGMENT STACK
DB 256 DUP(?)
SSEG ENDS
CODE SEGMENT
ASSUME CS:CSEG, SS:SSEG, DS:DSEG
START PROC FAR
PUSH DS
XOR AX,AX
PUSH AX
MOV AX,DSEG
MOV DS,AX
MOV ES,AX ;置附加段寄存器
LEA DX,SOURCE ;數(shù)據(jù)區(qū)起始地址
LEA SI,NAME0 ;原始數(shù)據(jù)文件名
MOV CX,N ;字節(jié)數(shù)
CALL LOAD ;從'INPUT1.DAT'中讀取數(shù)據(jù)
;****BEGIN****
MOV CX,0
LEA BX,SOURCE
NEXT: MOV AL,[BX]
CMP AL,0
JZ GOON
INC CX
INC BX
JMP NEXT
GOON: LEA SI,SOURCE
LEA DI,RESULT
ROR CX,1 ;是偶數(shù)嗎?
JNC EVN ;是
ROL CX,1 ;否
LODSB
AND __________,0FH
STOSB
DEC CX
ROR CX,1
EVN: LODSB
AND __________,0FH
MOV BL,AL
LODSB
PUSH CX
MOV CL,___________________
SAL AL,___________________
POP CX
________ AL,BL
STOSB
LOOP EVN
;****END****
LEA DX,RESULT ;結(jié)果數(shù)據(jù)區(qū)首址
LEA SI,NAME1 ;結(jié)果文件名
MOV CX,N/2 ;字節(jié)數(shù)
CALL SAVE ;保存結(jié)果到文件
RET
START ENDP
CODE ENDS
END START
相關推薦:北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |