計算機等級考試三級PC上級題精選31-40

上機題之31
以下內(nèi)容為程序代碼:

;*      請編制程序PROG1.ASM, 其功能是: 內(nèi)存中連續(xù)存放著二十個
;*  十進制數(shù)的ASCII字符，把它們轉(zhuǎn)換成壓縮型(組合型)BCD碼。
;*      例如:
;*      內(nèi)存中有
;*      31H('1'),32H('2'),33H('3'),34H('4') ...(共二十個字節(jié))
;*      結(jié)果為   21H,43H, ... (共十個字節(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         10
STAC      SEGMENT   STACK
           DB          128 DUP (?)
STAC      ENDS
DATA     SEGMENT
SOURCE   DB          N*2 DUP(?)
RESULT   DB          N 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*2           ; 字節(jié)數(shù)
           CALL       LOAD             ; 從'INPUT.DAT'中讀取數(shù)據(jù)
;  **** BEGIN ****
           LEA        SI,SOURCE
           LEA        DI,RESULT
           MOV        CX,N
           CLD
NEXT:      lodsb
          ;LODS__
           and        al,0fh
          ;AND        AL, ____
           MOV        BL,AL
           lodsb
          ;LODS__
           push       cx
           mov        cl,4
          ;PUSH       ____
          ;MOV        CL, ____
           SAL        AL,CL
           pop        cx
          ;POP         ____
           add        al,bl
           stosb
          ;ADD        AL, ____
          ;STOS__
           LOOP       NEXT
           ;  ****  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)容如下：
30 39 32 39 34 35 30 35 39 33 38 35 36 39 34 32 33 31 36 37
output1.dat 內(nèi)容應(yīng)當如下：
90 92 54 50 39 58 96 24 13 76

上機題之32
以下內(nèi)容為程序代碼:

;*      請編制程序PROG1.ASM, 其功能是:
;*      對內(nèi)存中存放的四組帶符號8位二進制數(shù)(每組由五個數(shù)組成,均
;*  不為零)進行處理。處理方法為:當每組中負數(shù)多于正數(shù)時,將組內(nèi)正
;*  數(shù)變成負數(shù)(但絕對值不變,下同),組內(nèi)負數(shù)不變。反之,將組內(nèi)負數(shù)
;*  變成正數(shù),組內(nèi)正數(shù)不變。變換好的數(shù)按原序存放在內(nèi)存中。
;*      例如:
;*      內(nèi)存中有 FDH,FEH,02H,01H,03H,03H,01H,FFH,FEH,FDH,…
;*  (共四組20個數(shù))
;*      結(jié)果為   03H,02H,02H,01H,03H,FDH,FFH,FFH,FEH,FDH,…
;*  (共20個數(shù))
;*      部分程序已給出, 其中原始數(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
STAC       SEGMENT    STACK
           DB         128 DUP (?)
STAC       ENDS
DATA       SEGMENT
SOURCE     DB         N DUP(?)
RESULT     DB         N 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              ; 字節(jié)數(shù)
           CALL       LOAD              ; 從 'INPUT1.DAT'中讀取數(shù)據(jù)
;  **** BEGIN ****
           MOV        SI,0
           MOV        DI,0
           mov        bx,4
          ;MOV        BX,___
REPT1:     MOV        DX,0
           MOV        CX,5
CAMP:      MOV        AL,SOURCE[SI]
           INC        SI
           CMP        AL,0
           jl         cont
           jmp        next
          ;___        CONT
          ;JMP        ____
CONT:      INC        DX
NEXT:      LOOP       CAMP
           SUB        SI,5
           MOV        CX,5
           CMP        DX,3
           jge        neg1
          ;___        NEG1
           JMP        NEXT1
NEG1:      MOV        AL,SOURCE[SI]
           INC        SI
           CMP        AL,0
           JG         NEG2
           JMP        NOTNEG
NEG2:      NEG        AL
NOTNEG:    MOV        RESULT[DI],AL
           INC        DI
           LOOP       NEG1
           JMP        NEXT2
NEXT1:     MOV        AL,SOURCE[SI]
           INC        SI
           cmp        al,0
          ;CMP        AL,___
           JL         NEG3
           jmp        notneg1
          ;JMP        _______
NEG3:      NEG        AL
NOTNEG1:   MOV        RESULT[DI],AL
           INC        DI
           LOOP       NEXT1
NEXT2:     DEC        BX
           jz         exit
           ;________________
           JMP        REPT1
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)容如下：
03 01 02 03 04 03 01 FF FE FD FD FE 02 01 03 FF FE FD FC FB
output1.dat 內(nèi)容應(yīng)當如下：
03 01 02 03 04 FD FF FF FE FD 03 02 02 01 03 FF
FE FD FC FB

上機題之33
以下內(nèi)容為程序代碼:

;*      請編制程序PROG1.ASM, 其功能是: 在遞增的有序字節(jié)數(shù)組中
;*  插入一個正整數(shù),  并按指定的數(shù)組個數(shù)存入內(nèi)存區(qū)中。假設(shè)數(shù)組
;*  元素均為正數(shù)。
;*      例如, 將02H插入下面的數(shù)組中:
;*                01H,03H,04H,05H,....
;*      結(jié)果為    01H,02H,03H,04H,05H,....
;*      部分程序已經(jīng)給出,其中原始數(shù)據(jù)由過程LOAD從文件INPUT1.DAT
;*  中讀入SOURCE開始的內(nèi)存單元中, 轉(zhuǎn)換結(jié)果要求從RESULT開始存放,
;*  由過程SAVE保存到文件OUTPUT1.DAT中。
;*      填空BEGIN和END之間已經(jīng)給出的一段源程序使其完整,填空處已
;*  經(jīng)用橫線標出, 每個空白一般只需要填一條指令或指令的一部分(指
;*  令助記符或操作數(shù)), 考生也可以填入功能相當?shù)亩鄺l指令, 或刪去
;*  BEGIN和END之間原有的代碼并自行編程來完成要求的功能。
;*      對程序必須進行匯編,并與IO.OBJ鏈接產(chǎn)生PROG1.EXE執(zhí)行文件,
;*  最終運行程序產(chǎn)生結(jié)果(無結(jié)果或結(jié)果不正確者均不得分)。

EXTRN LOAD:FAR,SAVE:FAR
N       EQU     10
DSEG    SEGMENT
MIN     DB      -1
SOURCE  DB      N DUP(?)
X       EQU     2           ; 插入的數(shù)
RESULT  DB      N DUP(0)
NAME0   DB      'INPUT1.DAT',0
NAME1   DB      'OUTPUT1.DAT',0
DSEG    ENDS

SSEG    SEGMENT STACK
        DB      256 DUP (?)
SSEG    ENDS

CSEG    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
LEA SI,NAME0
        MOV     CX,N
        CALL    LOAD
;   *** BEGIN ***
        LEA     BX,SOURCE
        MOV     SI,N-2
        ADD     BX,SI
        MOV     SI,0
        MOV     AL,X
LP:     cmp     al,[bx+si]
       ;CMP     __,[BX+SI]
        JGE     INS
        MOV     DL,[BX+SI]
        mov     [bx+si+1],dl
        dec     bx
       ;MOV     [BX+SI+1],___
       ;DEC     _____________
        JMP     LP
INS:    mov     [bx+si+1],al
       ;MOV     _________,AL
        CLD
        LEA     SI,SOURCE
        LEA     DI,RESULT
        MOV     CX,N
        rep     movsb
       ;___     MOVSB
;   *** END   ***
        LEA     DX,RESULT
        LEA     SI,NAME1
        MOV     CX,N
        CALL    SAVE
        RET
START ENDP
CSEG    ENDS
        END     START

input1.dat 內(nèi)容如下：
01030405060708090A0B
output1.dat 內(nèi)容應(yīng)當如下：
01 02 03 04 05 06 07 08 09 0A

上機題之34
以下內(nèi)容為程序代碼:

;*      請編制程序PROG1.ASM, 其功能是: 內(nèi)存中連續(xù)存放著兩個有
;*  符號字節(jié)數(shù)序列Ak和Bk(k=0,…,9)，求序列Ck，Ck= Ak×Bk（Ck
;*  以有符號字的形式按C0,…,C9 的順序連續(xù)存放）。
;*      例如：
;*      序列Ak為80H,C0H,81H,00H,…；
;*      序列Bk為80H,C0H,81H,7FH,…。
;*      結(jié)果Ck為4000H,1000H,3F01H,0000H,…。
;*      部分程序已給出，其中原始數(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        10
STAC      SEGMENT   STACK
           DB          128 DUP (?)
STAC      ENDS           
DATA     SEGMENT        
SOURCE   DB          N*2 DUP(?)
RESULT   DW          N 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*2           ; 字節(jié)數(shù)
           CALL      LOAD             ; 從 'INPUT1.DAT'中讀取數(shù)據(jù)
;  **** BEGIN ****                               
           mov       di,offset result
           mov       bx,0
          ;MOV       DI,_____________
          ;______________
           MOV       CX,N
PRO:       mov       al,source[bx+N]
           imul      source[bx]
          ;MOV       AL,______________
          ;_____     SOURCE[BX]
           MOV       [DI],AX
           add       di,2
          ;ADD       ________
           INC        BX
           dec       cx
          ;______________________
           JNZ        PRO
;  ****  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)容如下：
80 C0 81 00 7F 40 3F 80 C0 81 80 C0 81 7F 81 C0 3F 7F 7F 64
output1.dat 內(nèi)容應(yīng)當如下：
00 40 00 10 01 3F 00 00 FF C0 00 F0 81 0F 80 C0
40 E0 64 CE

上機題之35
以下內(nèi)容為程序代碼:

;*      請編制程序PROG1.ASM, 其功能是: 在遞增的有序字節(jié)數(shù)組中
;*  刪去一個指定的數(shù)組元素，該元素在程序的數(shù)據(jù)段中用符號常量X
;*  表示（在數(shù)組元素中只有一個這樣的元素）。 為了保持原數(shù)組個
;*  數(shù)不變, 將數(shù)組的最后一個元素填0。假設(shè)數(shù)組元素均為正數(shù)。
;*      例如, 在下面的數(shù)組中刪去數(shù)組元素03H
;*                01H,02H,03H,04H,05H....
;*      結(jié)果為    01H,02H,04H,05H,.........,00H
;*      部分程序已經(jīng)給出,其中原始數(shù)據(jù)由過程LOAD從文件INPUT1.DAT
;*  中讀入SOURCE開始的內(nèi)存單元中, 轉(zhuǎn)換結(jié)果要求從RESULT開始存放,
;*  由過程SAVE保存到文件OUTPUT1.DAT中。
;*      填空BEGIN和END之間已經(jīng)給出的一段源程序使其完整,填空處已
;*  經(jīng)用橫線標出, 每個空白一般只需要填一條指令或指令的一部分(指
;*  令助記符或操作數(shù)), 考生也可以填入功能相當?shù)亩鄺l指令, 或刪去
;*  BEGIN和END之間原有的代碼并自行編程來完成要求的功能。
;*      對程序必須進行匯編,并與IO.OBJ鏈接產(chǎn)生PROG1.EXE執(zhí)行文件,
;*  最終運行程序產(chǎn)生結(jié)果(無結(jié)果或結(jié)果不正確者均不得分)。

EXTRN LOAD:FAR,SAVE:FAR
N       EQU     10
DSEG    SEGMENT
SOURCE  DB      N DUP(?)
X       EQU     3            ; 指定的刪除元素
RESULT  DB      N DUP(0)
NAME0   DB      'INPUT1.DAT',0
NAME1   DB      'OUTPUT1.DAT',0
DSEG    ENDS

SSEG    SEGMENT STACK
        DB      256 DUP (?)
SSEG    ENDS

CSEG    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
LEA SI,NAME0
        MOV     CX,N
        CALL    LOAD
;   *** BEGIN ***
        CLD
        LEA     DI,SOURCE
        MOV     AL,X
        MOV     CX,N
        repne   scasb
       ;_____   SCASB
        MOV     SI,DI
        dec     di
        rep     movsb
       ;DEC     _____
       ;REP     _____
        mov     byte ptr [di],0
       ;MOV     BYTE PTR [DI],___
        LEA     SI,SOURCE
        LEA     DI,RESULT
        mov     cx,N
       ;_________________
        REP     MOVSB
;   *** END   ***
        LEA     DX,RESULT
        LEA     SI,NAME1
        MOV     CX,N
        CALL    SAVE
        RET
START ENDP
CSEG    ENDS
        END     START

input1.dat 內(nèi)容如下：
0102030405060708090A
output1.dat 內(nèi)容應(yīng)當如下：
01 02 04 05 06 07 08 09 0A 00

　　本題重編程序思路也許更為簡單，舉例如下：
以下內(nèi)容為程序代碼:

;   *** BEGIN ***
        CLD
        lea     si,source
        lea     di,result
        mov     cx,N-1
        mov     al,x
loop1:  cmp     al,[si]
        je      loop2
        movsb
        loop    loop1
loop2:  inc     si
        REP     MOVSB
        mov     byte ptr [di],0h
;   *** END   ***

上機題之36
以下內(nèi)容為程序代碼:

;*      請編制程序PROG1.ASM, 其功能是: 內(nèi)存中連續(xù)存放著16個二
;*  進制字節(jié)數(shù)，在原16個數(shù)的第4和第5個數(shù)之間插入00H，在原16個
;*  數(shù)的第8和第9個數(shù)之間插入55H，在原16個數(shù)的第12和第13個數(shù)之
;*  間插入AAH，在原16個數(shù)的最后加入FFH。將按上述方法插入4個字
;*  節(jié)數(shù)后得到的20個字節(jié)數(shù)存入內(nèi)存中。
;*      例如：
;*      內(nèi)存中有 10H,20H,30H,40H,50H,…,8FH(共16個字節(jié))
;*      結(jié)果為   10H,20H,30H,40H,00H,50H,…,8FH,FFH(共20個字節(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        16
STAC       SEGMENT    STACK
           DB         128 DUP (?)
STAC       ENDS
DATA       SEGMENT
SOURCE     DB         N DUP(?)
INDATA     DB         0FFH,0AAH,55H,00H
RESULT     DB         N+4 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               ; 字節(jié)數(shù)
           CALL       LOAD               ; 從 'INPUT1.DAT'中讀取數(shù)據(jù)
;  **** BEGIN ****
           mov        si,0
          ;_______________
           MOV        DI,0
           MOV        CX,4
           MOV        BX,4
CHAN:      mov        ah,source[si]
          ;________________________
           MOV        RESULT[DI],AH
           inc        si
          ;_____________
           INC        DI
           DEC        CX
           JZ         INSER1
           JMP        CHAN
INSER1:    PUSH       SI
           MOV        SI,BX
           MOV        AH,INDATA[SI-1]
           mov        result[di],ah
          ;MOV        RESULT[DI],__
           DEC        BX
           jz         exit
          ;JZ         ____
           MOV        CX,04H
           pop        si
          ;_______________
           INC        DI
           jmp        chan
          ;JMP        ____
EXIT:      POP        SI
;  ****    END  ****
           LEA        DX,RESULT          ; 結(jié)果數(shù)據(jù)區(qū)首址
           LEA        SI,NAME1           ; 結(jié)果文件名
           MOV        CX,N+4             ; 結(jié)果字節(jié)數(shù)
           CALL       SAVE               ; 保存結(jié)果到文件
           RET
START      ENDP
CODE       ENDS
           END        START

input1.dat 內(nèi)容如下：
12 34 44 31 E0 DD F0 2F 2C CD 61 8F 49 BC AC 2D
output.dat 內(nèi)容應(yīng)當如下：
12 34 44 31 00 E0 DD F0 2F 55 2C CD 61 8F AA 49
BC AC 2D FF

上機題之37
以下內(nèi)容為程序代碼:

;*      請編制程序PROG1.ASM, 其功能是: 內(nèi)存中連續(xù)存放著二十個
;*  ASCII字符，如果是小寫字母a~z之間的字符，請把它們轉(zhuǎn)換成相
;*  應(yīng)的大寫字符；若為其他字符，不作轉(zhuǎn)換。
;*      例如：內(nèi)存中有
;*        61H('a'),62H('b'),31H('1'),41H('A'),42H('B'), ...
;*      結(jié)果為   41H('A'),42H('B'),31H,41H('A'),42H('B') ...
;*     部分程序已給出，其中原始數(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
STAC      SEGMENT   STACK
           DB          128  DUP (?)
STAC      ENDS
DATA      SEGMENT
SOURCE    DB           N DUP(?)
RESULT    DB           N 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              ; 字節(jié)數(shù)
           CALL       LOAD              ; 從 'INPUT.DAT'中讀取數(shù)據(jù)
;  **** BEGIN ****
           LEA        SI,SOURCE
           LEA        DI,RESULT
           MOV       CX,N
NEXT:      MOV       AL,[SI]
           CMP       AL,'a'
           jb        upper2
          ;JB         ____
           cmp       al,'z'
          ;CMP       AL, ____
           ja        upper2
          ;J___        UPPER2
           and       al,5fh
          ;AND       ____
UPPER2:    mov       [di],al
           inc       si
           inc       di
           loop      next
          ;MOV       [DI], ____
          ;INC        ____
          ;INC        ____
          ;____       NEXT
; ****  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)容如下：
44 69 46 64 66 61 68 47 7F 47 4C 6E 4B 45 6C 48 64 69 87 5A
output1.dat 內(nèi)容應(yīng)當如下：
44 49 46 44 46 41 48 47 7F 47 4C 4E 4B 45 4C 48
44 49 87 5A

上機題之38
以下內(nèi)容為程序代碼:

;*      請編制程序PROG1.ASM, 其功能是: 對經(jīng)常上下波動的數(shù)據(jù)可采
;*  用只記錄峰值的數(shù)據(jù)壓縮方法。 即每次將采樣到的當前值和前一次
;*  值比較, 如數(shù)據(jù)變化方向改變 (原變大現(xiàn)變小或原變小現(xiàn)變大), 說
;*  明已過峰值, 這時就將前一值(峰值)記錄下來。
;*      例如(下例數(shù)據(jù)均為無符號數(shù)):
;*          原數(shù)據(jù): 23H,45H,89H,67H,5CH,36H,3CH,...
;*          壓縮后: 23H,89H,36H,...
;*      內(nèi)存中從SOURCE連續(xù)存放著四十個八位無符號數(shù), 假定無相鄰
;*  兩數(shù)相等的情況, 編程按上述方法進行壓縮, 結(jié)果保存在RESULT開
;*  始的內(nèi)存單元中。
;*      部分程序已在PROG1.ASM中給出, 請?zhí)羁誃EGIN和END之間已給
;*  出的源程序使其完整(空白已用橫線標出, 每行空白一般只需一條
;*  指令, 但功能相當?shù)亩鄺l指令亦可)或刪除BEGIN和END之間原有的
;*  代碼并自行編寫程序片段來完成要求的功能。
;*      原始數(shù)據(jù)由過程LOAD從文件INPUT1.DAT中讀入SOURCE開始的內(nèi)
;*  存單元中, 結(jié)果要求從RESULT開始存放, 由過程SAVE保存到文件
;*  OUTPUT1.DAT中。
;*      對程序必須進行匯編, 并與IO.OBJ鏈接產(chǎn)生PROG1.EXE 執(zhí)行文
;*  件, 最終運行程序產(chǎn)生結(jié)果(無結(jié)果或結(jié)果不正確者均不得分)。

           EXTRN      LOAD:FAR,SAVE:FAR

N          EQU        40

STAC       SEGMENT    STACK
           DB         128 DUP (?)
STAC       ENDS

DATA       SEGMENT
SOURCE     DB         N   DUP(?)
RESULT     DB         N   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        ; 從"input1.dat"中讀取數(shù)據(jù)
;  **** BEGIN ****

           LEA        SI,SOURCE
           LEA        DI,RESULT
           CLD
           MOVSB                                ; Y[0]=X[0]
           XOR        AX,AX
           XOR        BX,BX
           LODSB
           MOV        BL,[SI-2]
           SUB        AX,BX                     ; X[1]-X[0]
           MOV        DX,AX
           MOV        CX,N-2
FILTER:
           XOR        AX,AX
           XOR        BX,BX
           LODSB                   ; X[n]
           MOV        BL,[SI-2]    ; X[n-1]
           SUB        AX,BX        ; X[n]-X[n-1]
           xchg       ax,bx
          ;___________________     ; 相鄰兩差值(AX,DX)符號位是否相同
           cmp        bh,dh
          ;___________________
           je         skip
          ;J__        SKIP         ; 相同, 數(shù)據(jù)方向未變
           mov        dx,bx
          ;___________________     ; 不同, 方向變化, 保存峰值
           STOSB
SKIP:     ;___________________
           LOOP       FILTER
;  ****  END  ****
           LEA        DX,RESULT    ; 結(jié)果數(shù)據(jù)區(qū)首址
           LEA        SI,NAME1     ; 結(jié)果文件名起始地址
           MOV        CX,N         ; 字節(jié)數(shù)
           CALL       SAVE         ; 保存結(jié)果到"output1.dat"文件中
           RET
START      ENDP
CODE       ENDS
           END        START

input1.dat 內(nèi)容如下：
38 4E 3C 37 2B 01 0C 3A 78 FA F1 BE 50 5D 68 4B
32 22 17 26 4C 67 C4 B4 96 36 2D 21 59 CF F5 ED
CB C4 96 66 41 4E 59 9A
output1.dat 內(nèi)容應(yīng)當如下：
38 4E 01 FA 50 68 17 C4 21 F5 41 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00

上機題之39
以下內(nèi)容為程序代碼:

;*      請編制程序PROG1.ASM, 其功能是: 內(nèi)存中連續(xù)存放著二十個無
;*  符號8位二進制數(shù),每個數(shù)為搖號機一次搖出的兩個號碼的壓縮BCD碼
;*  表示。現(xiàn)統(tǒng)計此二十次搖號中號碼0,1,2,…,9出現(xiàn)的次數(shù),將結(jié)果存
;*  入內(nèi)存。
;*      例如:
;*      內(nèi)存中有 00H,02H,32H,45H,08H,19H,67H,51H,90H,85H,
;*               62H,44H,73H,57H,39H,81H,36H,92H,21H,05H
;*      結(jié)果為   06H,04H,05H,04H,03H,05H,03H,03H,03H,04H
;*      部分程序已給出, 其中原始數(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
STAC      SEGMENT   STACK
           DB          128 DUP (?)
STAC      ENDS
DATA     SEGMENT
SOURCE   DB          N DUP(?)           ; 順序存放十個字節(jié)數(shù)
RESULT   DB          (N/2) DUP(0)       ; 存放結(jié)果
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             ; 字節(jié)數(shù)
           CALL       LOAD             ; 從 'INPUT1.DAT'中讀取數(shù)據(jù)
;  **** BEGIN ****
           LEA        SI,SOURCE
           MOV        CX,20
           MOV        BX,0
AGN0:      MOV        AH,[SI]
           mov        al,ah
          ;__________________
           AND        AL,0FH
           and        ah,0f0h
          ;__________________
           PUSH       CX
           MOV        CX,4
AGN1:      shr        ah,1
          ;___        AH,1
           LOOP       AGN1
           POP        CX
           MOV        BL,AH
           inc        result[bx]
          ;_________________
           MOV        BL,AL
           inc        result[bx]
          ;_________________
           INC        SI
NEXT:      LOOP       AGN0
;  ****  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)容如下：
00 12 34 56 78 90 99 23 45 66 32 74 18 76 63 24 55 81 27 15
output1.dat 內(nèi)容應(yīng)當如下：
03 04 05 04 04 05 05 04 03 03

上機題之40
以下內(nèi)容為程序代碼:

;*      請編制程序PROG1.ASM，其功能是：內(nèi)存中連續(xù)存放著兩個有
;*  符號字節(jié)數(shù)序列Ak和Bk(k=0,…,9),求序列Ck，Ck=Ak+Bk（Ck以有
;*  符號字的形式按C0,…,C9 的順序連續(xù)存放）。
;*      例如：
;*      序列Ak為80H(-128D),31H(+49D),61H(+97D),7FH(+127D),…；
;*      序列Bk為80H(-128D),01H(+1D),F1H(-15D),7FH(+127D),…。
;*      結(jié)果Ck為FF00H(-256D),0032H(+50D),0052H(+82D),
;*  00FEH(+254D), …。
;*      部分程序已給出, 其中原始數(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         10                  ; 每個序列的長度 
STAC      SEGMENT   STACK
           DB          128 DUP (?)
STAC      ENDS
DATA     SEGMENT
SOURCE   DB          N*2 DUP(?)         ; 順序存放A0,…,A9,B0,…,B9
RESULT   DW          N DUP(0)           ; 順序存放C0,…,C9
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*2           ; 字節(jié)數(shù)
           CALL       LOAD             ; 從 'INPUT1.DAT'中讀取數(shù)據(jù)
;  **** BEGIN ****
           MOV        DI,OFFSET RESULT  ; 結(jié)果從RESULT開始存放
           MOV        BX,0               
           MOV        CX,N              ;
PRO:       MOV        AH,0
           mov        al,source[bx+N]
          ;MOV        AL,_____________  ; 序列Bk中的一個字節(jié)
           MOV        DL,AL             ; 暫存Bk
           add        al,source[bx]
          ;____       AL,SOURCE[BX]     ; Ck=Bk+Ak
           JNO        STAY              ; 無溢出轉(zhuǎn)STAY
JUMP1:     MOV        AH,00             ; 有溢出
           ADD        DL,0              
           JNS        JUMP              ; Bk是正數(shù)（為一個正數(shù)加上一個正數(shù)，
                                        ; 結(jié)果為負數(shù)的溢出情況）轉(zhuǎn)JUMP（AH
                                        ; 已為00H）
           mov        ah,0ffh
          ;MOV        AH,________       ; Bk是負數(shù)（為一個負數(shù)加上一個負數(shù)，
                                        ; 結(jié)果為正數(shù)的溢出情況）將結(jié)果變?yōu)橛蟹?BR>                                        ; 號字的形式（為負）
           jmp        jump
          ;JMP          ____
STAY:      cbw
          ;_____                        ; AL中數(shù)的符號擴展到AH，無符號字節(jié)
                                        ; 變成無符號字，有符號字節(jié)變成有符號字
JUMP:     MOV         [DI],AX              
          ADD         DI,2
          INC         BX
          DEC         CX
          JNZ         PRO
;  ****  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)容如下：
80 C0 81 00 7F 40 3F 80 C0 81 80 C0 81 00 7F 40 3F 7F 7F 64
output1.dat 內(nèi)容應(yīng)當如下：
00 FF 80 FF 02 FF 00 00 FE 00 80 00 7E 00 FF FF
3F 00 E5 FF