全國三級PC技術上機編程題10道

第八套 
�牐�=============================================================================== 
�牐犜囶}說明 : 
�牐�=============================================================================== 
�牐� 請編制程序PROG1.ASM, 其功能是: 內(nèi)存中連續(xù)存放著10個用 
�牐燗SCII碼表示的十進制個位數(shù)，將它們轉換成相應的二進制字節(jié)N(0), 
�牐燦(1), …, N(9)，然后按序將N(0)至N(9)存入內(nèi)存中，最后存放它們的和n 
�牐牐╪= N(0)+ N(1)+…+ N(9)）。n用壓縮型（組合型）BCD碼表示。 
�牐犂�如： 
�牐� 內(nèi)存中有 30H(’0’),39H(’9’),31H(’1’), … 
�牐� 結果為 00H,09H,01H,…,(后跟n) 
�牐� 部分程序已給出，其中原始數(shù)據(jù)由過程LOAD從文件INPUT1.DAT 
�牐犞凶x入SOURCE開始的內(nèi)存單元中。運算結果要求從RESULT開始存放, 
�牐犛蛇^程SAVE保存到文件OUTPUT1.DAT中。 
�牐� 填空BEGIN和END之間已給出的源程序使其完整 (空白已用橫線 
�牐牁顺�，每行空白一般只需一條指令，但采用功能相當?shù)亩鄺l指令亦 
�牐牽�)， 或刪除BEGIN和END之間原有的代碼并自行編程來完成要求的 
�牐牴δ堋� 
�牐� 對程序必須進行匯編， 并與IO.OBJ鏈接產(chǎn)生PROG1.EXE執(zhí)行文 
�牐牸�，最終運行程序產(chǎn)生結果(無結果或結果不正確者均不得分)。調 
�牐犜囍腥舭l(fā)現(xiàn)整個程序中存在錯誤之處，請加以修改。 
�牐�=============================================================================== 
�牐牫绦� : 
�牐�=============================================================================== 
�牐� EXTRN LOAD:FAR,SAVE:FAR 
�牐燦 EQU 10 
�牐燬TAC SEGMENT STAC DB 128 DUP (?) 
�牐燬TAC ENDS 
�牐燚ATA SEGMENT 
�牐燬OURCE DB N DUP(?) 
�牐燫ESULT DB N+1 DUP(0) 
�牐燦AME0 DB ’INPUT1.DAT’,0 
�牐燦AME1 DB ’OUTPUT1.DAT’,0 
�牐燚ATA ENDS  
�牐燙ODE SEGMENT  
�牐� ASSUME CS:CODE, DS:DATA, SS:STAC 
�牐燬TART 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 ; 字節(jié)數(shù) 
�牐� CALL LOAD ; 從 ’INPUT1.DAT’中讀取數(shù)據(jù) 
�牐�; **** BEGIN **** 
�牐� MOV DI,OFFSET RESULT 
�牐� MOV BX,0 
�牐� MOV CX,N 
�牐� MOV DL,__ 
�牐燩RO: MOV AL,SOURCE[BX] 
�牐� ___ AL,30H 
�牐� MOV [DI],AL 
�牐� _____________________ 
�牐� ADD AL,DL 
�牐� ____ 
�牐� MOV DL,AL 
�牐� INC BX 
�牐� __________________ 
�牐� JNZ PRO 
�牐� _________________ 
�牐�; **** END **** 
�牐� LEA DX,RESULT ; 結果數(shù)據(jù)區(qū)首址 
�牐� LEA SI,NAME1 ; 結果文件名 
�牐� MOV CX,N+1 ; 結果字數(shù) 
�牐� CALL SAVE ; 保存結果到文件 
�牐� RET 
�牐燬TART ENDP 
�牐燙ODE ENDS 
�牐燛ND START 
�牐�=============================================================================== 
�牐犓�需數(shù)據(jù) : 
�牐�=============================================================================== 
�牐燖2 input1.dat 001 
�牐�30 39 31 38 32 37 33 36 34 35 
�牐�#E 
�牐燖3 $output1.hex 001 
�牐燜FF6FEF7FDF8FCF9FBFABA72 
�牐�#E