第九套 
�牐�=============================================================================== 
�牐犜囶}說明 : 
�牐�=============================================================================== 
�牐� 請編制程序PROG1.ASM, 其功能是: 內存中連續(xù)存放著20個 
�牐燗SCII字符， 如果是小寫字母a至z之間的字符，請把它們轉換成 
�牐犗鄳�的大寫字母的ASCII字符(否則不作轉換)并統(tǒng)計原20個ASCII 
�牐犠址�中字符“z”的個數(shù)。轉換結果（包括不作轉換的a~z之間的 
�牐犜瑼SCII字符）按序存入內存中，之后存放原20個ASCII字符中為 
�牐犠址�“z”的ASCII字符的個數(shù)（用一個字節(jié)表示）。 
�牐� 例如： 
�牐� 內存中有30H(’0’),31H(’1’),61H(’a’),41H(’A’),7AH(’z’),… 
�牐� 結果為 30H,31H,41H,41H,5AH,…,后跟用一個字節(jié)表示的原20 
�牐爞�ASCII字符中為字符“z”的個數(shù) 
�牐� 部分程序已給出，其中原始數(shù)據(jù)由過程LOAD從文件INPUT1.DAT 
�牐犞凶x入SOURCE開始的內存單元中。運算結果要求從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 20 
�牐燬TAC SEGMENT STACK 
�牐� 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 DL,0 
�牐� MOV CX,N 
�牐燩RO: MOV AL,SOURCE[BX] 
�牐� CMP AL,61H 
�牐� __ KEEP ; <’a’ 
�牐� CMP AL,7AH ; >=’a’ 
�牐� JNBE KEEP ; >’z’ 
�牐� CMP AL,79H ; <=’y’ 
�牐� JBE ____ 
�牐� INC DL 
�牐燦INC: SUB AL,___ 
�牐� MOV [DI],AL 
�牐� INC DI 
�牐� JMP ____ 
�牐燢EEP: MOV [DI],AL 
�牐� __________________ 
�牐燡UMP: INC BX 
�牐� DEC CX 
�牐� JNZ PRO 
�牐� _________________ 
�牐�; **** END **** 
�牐� LEA DX,RESULT ; 結果數(shù)據(jù)區(qū)首址 
�牐� LEA SI,NAME1 ; 結果文件名 
�牐� MOV CX,N+1 ; 結果字節(jié)數(shù) 
�牐� CALL SAVE ; 保存結果到文件 
�牐� RET 
�牐燬TART ENDP 
�牐燙ODE ENDS 
�牐燛ND START 
�牐�=============================================================================== 
�牐犓�需數(shù)據(jù) : 
�牐�=============================================================================== 
�牐燖2 input1.dat 001 
�牐�30 60 31 61 32 62 33 63 34 64 35 65 41 68 7B 7A 5A 5B 40 5F 
�牐�#E 
�牐燖3 $output1.hex 001 
�牐燙F9FCEBECDBDCCBCCBBBCABABEB784A5A5A4BFA0FE91 
�牐�#E