上機題之28
    以下內(nèi)容為程序代碼:
    ;* 請編制程序PROG1.ASM，其功能是:
    ;* 內(nèi)存中共有30個字節(jié)型數(shù)據(jù),找出其中的兩個ASCII字符串并進
    ;* 行校驗。欲尋找的ASCII字符串由13個字符組成: #(23H),7個ASCII
    ;* 字符,*(2AH),2個ASCII字符，回車符(0DH),換行符(0AH)。
    ;* 校驗方法為: 對字符#及字符*之間的7個ASCII字符進行異或操
    ;* 作, 若異或操作結(jié)果的ASCII字符表示(異或操作結(jié)果高4位的ASCII
    ;* 字符表示在前, 低4位的ASCII字符表示在后)與原字符串中字符*之
    ;* 后的兩個ASCII字符相同, 則將原字符串原樣保存; 反之,則將原字
    ;* 符串中的所有字符(共13個)均用字符!(21H)代替。
    ;* 例如:
    ;* 內(nèi)存中有 33H,35H,23H(’#’,第一個字符串開始),46H,41H,30H,
    ;* 2EH,34H,3DH,31H,2AH(’*’),32H,31H,0DH,0AH,46H,23H(’#’,第二個
    ;* 字符串開始), 46H,41H,30H,2EH,34H,3DH,30H,2AH(’*’),32H,31H,
    ;* 0DH,0AH,55H
    ;* 結(jié)果為 23H,46H,41H,30H,2EH,34H,3DH,31H,2AH(’*’),32H,
    ;* 31H(校驗正確,該字符串原樣保持),0DH,0AH,21H,21H,21H,21H,21H,
    ;* 21H,21H,21H,21H,21H,21H,21H,21H(校驗錯, 整個字符串用字符’!’
    ;* 代替)
    ;* 部分程序已給出, 其中原始數(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 26
    STAC SEGMENT STACK
     DB 128 DUP (?)
    STAC ENDS
    DATA SEGMENT
    SOURCE DB N+4 DUP(?)
    RESULT DB N DUP(0)
    HH DB 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
     LEA DX,SOURCE ; 數(shù)據(jù)區(qū)起始地址
     LEA SI,NAME0 ; 原始數(shù)據(jù)文件名
     MOV CX,N+4 ; 字節(jié)數(shù)
     CALL LOAD ; 從 ’INPUT1.DAT’中讀取數(shù)據(jù)
    ; **** BEGIN ****
     MOV SI,0
     MOV DI,0
     MOV BX,2 ; 兩個ASCII字符串
    REPEAT: MOV AH,0
    SEARCH: MOV AL,SOURCE[SI]
     INC SI
     CMP AL,’#’
     jne search
     ;___ SEARCH
     MOV RESULT[DI],AL
     INC DI SEARCH1: MOV AL,SOURCE[SI]
     INC SI
     cmp al,’*’
     ;CMP AL,___
     JE ASCII
     MOV RESULT[DI],AL
     INC DI
     XOR AH,AL
     jmp search1
     ;JMP _______
    ASCII: MOV RESULT[DI],AL
     INC DI
     PUSH DI
     MOV DI,0
     MOV DH,2
     MOV DL,AH ; 異或結(jié)果暫存在DL中
     MOV CL,4 ; 先將異或結(jié)果高4位轉(zhuǎn)換成ASDCII字
     ; 符
     SHR AH,CL ; 本行開始的4行語句將一個十六進制數(shù)
     ; 轉(zhuǎn)換為ASCII碼
    CHANGE: CMP AH,10
     JL ADD_0
     ADD AH,’A’-’0’-10
    ADD_0: ADD AH,’0’
     MOV HH[DI],AH
     INC DI
     DEC DH
     JZ EXT
     MOV AH,DL ; 再將異或結(jié)果低4位轉(zhuǎn)換成ASDCII字符
     AND AH,0FH
     JMP CHANGE
    EXT: POP DI
     MOV AL,SOURCE[SI]
     MOV RESULT[DI],AL
     INC SI
     INC DI
     MOV AH,SOURCE[SI]
     MOV RESULT[DI],AH
     INC SI
     INC DI
     MOV DL,HH
     MOV DH,HH+1
     CMP AX,DX
     jne err
     ;___ ERR
     MOV AL,0DH ; 校驗正確
     MOV RESULT[DI],AL
     INC DI
     MOV AL,0AH
     MOV RESULT[DI],AL
     INC DI
     JMP LP
    ERR: SUB DI,11 ; 校驗錯誤
     MOV AL,’!’
     mov cx,13
     ;MOV CX,___
    COVER: MOV RESULT[DI],AL
     INC DI
     LOOP COVER
    LP: dec bx
     ;________________
     JZ EXIT
     JMP REPEAT
    EXIT: NOP
    ; **** END ****
     LEA DX,RESULT ; 結(jié)果數(shù)據(jù)區(qū)首址
     LEA SI,NAME1 ; 結(jié)果文件名
     MOV CX,N ; 結(jié)果字節(jié)數(shù)
     CALL SAVE ; 保存結(jié)果到文件
     RET
    START ENDP
    CODE ENDS
     END START
    input1.dat 內(nèi)容如下：
    55 23 0A 40 0A 40 0A 40 00 2A 34 42 0D 0A 55 55 55 23 46 41 30 2E 33 3D 31 2A 32 36 0D 0A
    output1.dat 內(nèi)容應(yīng)當如下：
    21 21 21 21 21 21 21 21 21 21 21 21 21 23 46 41
    30 2E 33 3D 31 2A 32 36 0D 0A
    output1.hex 內(nèi)容應(yīng)當如下：
    DEDEDEDEDEDEDEDEDEDEDEDEDEDCB9BECFD1CCC2CED5CDC9F2F5FF