请编制程序，其功能是：以SOURCE开始的内存区域存放着若干字节的数据，以''作为数据的结束标志。将其

请编制程序PROG1.ASM，其功能是：内存中从SOURCE开始连续存放着20个字(WORD)，试统计每个字中二进制位为1的个数。结果以字节存放。例如：内存中有139CH，518CH，1489H，…，结果为07H，08H，05H，…．

部分程序已给出，其中原始数据由过程LOAD从文件INPUT1.DAT中读入SOURCE开始的内存单元中。运算结果要求从RESULT开始存放，由过程SAVE保存到文件OUTPUT1.DAT中。

填空BEGIN和END之间已给出的源程序使其完整(空白已用横线标出，每行空白一般只需一条指令，但采用功能相当的多条指令亦可)，或删除BEGIN和END之间原有的代码并自行编程来完成要求的功能。

对程序必须进行汇编，并与IO.OBJ连接生成PROG1.EXE执行文件，最终运行程序产生结果 (无结果或结果不正确者均不得分)。

注意：源程序非填空部分可能存在个别非法指令，考生阅读源程序或调试该程序时若发现这些非法指令，请加以修改!

EXTRN LOAD：FAR，SAVE：FAR

N EQU 20

STAC SEGMENT STACK

DB 128 DUP()

STAC ENDS

DATA SEGMENT

SOURCE DW N DUP()

RESULT DB NDUP(0)

NAMEO 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 ；数据区起始地址

LEA S1，NAMEO ；原始数据文件名

MOV CX，N * 2 ；字节数

CALL LOAD ；从INPUT1.DAT中读取数据

； * * * * BEGIN * * * *

LEA SI，SOURCE

LEA DI，RESULT

CLD

MOV DX，N

LOOP0： LODS _____

_______

MOV CX，16

LOOP1: ROL AX，1

J_____ NEXT

INC BX

NEXT： LOOP _____

MOV [D1]，BL

______

DEC DX

JNZ LOOP0

； * * * * END * * * *

LEA DX，RESUIT ；结果数据区首址

LEA SI，NAME1 ；结果文件名

&nbs

请编制程序，其功能是：将一数据采集系统中采集的80个字节无符号数(已存于SOURCE开始的内存区域)按算术平均数字滤波方法进行数字滤波，每8个数求一个平均值(含去余数)。将10个平均值依次写入RESULT指示的内存区域。

例如：

原采集数据 1EH,31H,31H,33H,58H,75H,38H,34H,49H,A2H,98H, DFH,99H,64H,64H,B7H,…

结果为 3DH,CCH,…

部分程序已经给出，其中原始数据由过程LOAD从文件INPUT1.DAT中读入SOURCE开始的内存单元中。运算结果要求从RESULT开始存放，由过程SAVE保存到文件OUTPUT1.DAT中。

请填空BEGIN和END之间已给出的源程序使其完整(空白已用横线标出，每个空白一般只需一条指令，但采用功能相当的多条指令亦可)，或删除BEGIN和END之间原有的代码并自行编程宋完成所要求的功能。

对程序必须进行汇编，并与IO.OBJ链接产生可执行文件，最终运行程序产生结果。调试中若发现整个程序中存在错误之处，请加以修改。

试题程序：

请编制程序，其功能是：对一个由可打印ASCII字符(ASCII值为20H～7FH)组成的字符串可采用下列方法进行压缩：从串首开始向后扫描，如某字符单独出现则该字符不变，如某字符连续出现n次，则该字符用ESC(1BH)，n，＜原字符＞三个字节来代替(假定n不超过255)。

设内存中从SOURCE开始有一用上述方法压缩的字符串，其以OOH结束，解压后长度不超过100。试编程对其解压缩，结果存入RESULT开始的内存单元。

例如：

原串： 41H，1BH，06H，43H，61H，00H

解压缩后：41H，43H，43H，43H，43H，43H，43H，61H，OOH("ACCCCCCa")

部分程序已给出，原始数据由过程LOAD从文件INPUT.DAT中读入SOURCE开始的内存单元中，结果要求从RESULT开始存放，由过程SAVE保存到文件OUTPUT.DAT中。

请填空BEGIN和END之间已给出的源程序使其完整，空白己用横线标出，每个空白一般只需一条指令，但采用功能相当的多条指令亦可，或删除BEGIN和END之间原有的代码并自行编写程序片段来完成所要求的功能。

对程序必须进行汇编，并与IO.OBJ链接产生可执行文件，最终运行程序产生结果。调试中若发现整个程序中存在错误之处，请加以修改。

【试题程序】

EXTRN LOAD:FAR, SAVE:FAR

N EQU 100

ESC_CODE EQU 27

STAC SEGMENT STACK

DB 128 DUP()

STAC ENDS

DATA SEGMENT

SOURCE DB N DUP()

RESULT DB N DUP(0)

NAME0 DB 'INPUT.DAT',0

NAME1 DB 'OUTPUT.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 ;数据区起始地址

LEA SI, NAME0 ;原始数据文件名起始地址

MOV CX, N ;字节

CALL LOAD ;从"INPUT.DAT" 中读取数据

******** BEGIN ********

LEA SI, SOURCE

LEA DI, RESULT

CLD

LO: LODSB

CMP AL, 0

JE QUIT

CMP AL, ESC_CODE

J (1) EXPAND

(2)

JMP L0

EXPAND: (3)

请编制程序PROG1.ASM，其功能是：对一个由可打印ASCII字符(ASCII码20H-7FH)组成的字符串可采用下列方法进行压缩：从串首开始向后扫描，如某字符单独出现则该字符不变，如某字符连续出现n次，则该字符用ESC(1BH)，n，〈原字符〉三个字节来代替(假定n不超过255)。

设内存中从SOURCE开始有一用上述方法压缩的字符串，其以00H结束，解压后长度不超过 100。试编程对其解压缩，结果存入RESULT开始的内存单元。

例如：

原串：41H，1BH，06H，43H，61H，00H

解压后：41H，43H，43H，43H，43H，43H，43H，61H，00H("ACCCCCCa")

部分程序已在PROG1.ASM中给出，请填空BEGIN和END之间已给出的源程序使其完整(空白已用横线标出，每行空白一般只需一条指令，但功能相当的多条指令亦可)或删除BEGIN和 END之间原有的代码并自行编写程序片段来完成要求的功能。

原始数据由过程LOAD从文件INPUT1.DAT中读入SOURCE开始的内存单元中，结果要求从 RESULT开始存放，由过程SAVE保存到文件OUTPUT1.DAT中。

对程序必须进行汇编，并与IO.OBI链接产生PROG1.EXE执行文件，最终运行程序产生结果 (无结果或结果不正确者均不得分)。

PROG1.ASM文件内容如下：

EXTRN LOAD：FAR，SAVE：FAR

N EQU 100

ESC_CODE EQU 27

STAC SEGMENT STACK

DB 128DUP()

STAC ENDS

DATA SEGMENT

SOURCE DB N DUP(0)

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 ；数据区起始地址

LEA SI，NAME0 ；原始数据文件名

MOV CX，N ；字节数

CALL LOAD ；从'input1.DAT'中读取数据

；* * * * BEGIN * * * *

LEA SI，SOURCE

LEA DI，RESULT

CLD

LO: LODSB

CMP AL，0

JE QUIT

CMP AL，ESC_CODE

_____ EXPAND

_____ _____

JMP LO

EXPAND： _____ _____ ；解压

XOR CX，CX

_____ _____

请编制程序，其功能是：内存中连续存放着两个无符号字节数序列Ak和Bk (k=0，1，…，9)，求序列Ck，Ck＝Ak÷Bk (运算结果按序以字的形式连续存放，其中低字节为商，高字节为余数)。

例如：

序列Ak为：01H，7FH， 80H，FFH…

序列Bk为：PFH，80H，7FH，01H…

结果Ck为：0100H(00H为商、01H为余数)，7F00H，0101H，00FFH…

部分程序已给出，其中原始数据由过程LOAD从文件INPUT.DAT中读入SOURCE开始的内存单元中，运算结果要求从 RESULT开始存放，由过程SAVE保存到文件OUTPUT.DAT中。

请填空BEGIN和END之间已给出的源程序使其完整，空白已用横线标出，每个空白一般只需一条指令，但采用功能相当的多条指令亦可，或删除BEGm和END之间原有的代码并自行编程来完成所要求的功能。

对程序必须进行汇编，并与IO.OBJ链接产生可执行文件，最终运行程序产生结果。调试中若发现整个程序中存在错误之处，请加以修改。

[试题程序]

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 'INPUT．DAT'，0

NAME1 DB 'OUTPUT．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 ；数据区起始地址

LEA SI，NAME0 ；原始数据文件名

MOV CX，N*2 ；字节数

CALL LOAD ；从 'INPUT．DAT' 中读取数据

； ******** BEGIN ********

MOV DI，OFFSET RESULT

MOV BX，0

(1)

PRO： MOV (2)

(3) ，SOURCE[BX]

CBW

DIV (4)

MOV [DI]， (5)

ADD DI，2

(6)

DEC CX

(7) PRO

； ******** END ********

LEA DX，RESULT ；结果数据区首址

LEA SI，NAME1 ；结果文件名

MOV CX，2*N ；结果字节数

CALL SAVE ；保存结果到文件

RET

START ENDP

CODE ENDS

END START

部分程序已经给出，其中原始数据由LOAD过程从文件INPUT1.DAT中读入从SOURCE开始的内存单元，运算结果要求从RESULT开始存放，由SAVE过程保存到OUTPUT1.DAT文件中。请在BEGIN和END之间补充使其完整，完成要求的功能。或删除BEGIN和END之间原有的代码并自行编程来完成要求的功能。

对程序必须进行汇编，并与IO.OBJ链接产生PROG1.EXE执行文件，最终产生运行结果。

部分程序如下：

;PROG1.ASM

EXTRN LOAD:FAR, SAVE:FAR

N EQU 20

DSEG SEGMENT

SOURCE DW N DUP ()

RESULT DW 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, DS:DSEG;SS:SSEG

START PROC FAR

PUSH DS

XOR AX,AX

PUSH AX

MOV AX,DSEG

MOV DS,AX

LEA DX, SOURCE

LEA SI,NAME0

MOV CX,N

CALL LOAD

; *** BEGIN ***

……

……

……

; *** END ***

LEA DX, RESULT

LEA SI,NAME1

MOV CX,N

CALL SAVE

RET

START ENDP

CSEG ENDS

END START

请编制程序PROG1.ASM，其功能是：将连续20个字节的ASCII码(30～39之间)顺序转换成10个压缩BCD码。

例如：原始数据 31H，33H，35H，38H……(后面依次有16个ASCII码)

转换后为 13H，58H，……(后面依次有8个压缩BCD码)

部分程序已经给出，其中原始数据由过程LOAD从文件INPUT1.DAT中读入SOURCE开始的内存单元中，运算结果(要求从RESULT开始存入)由SAVE过程保存到OUTPUT. DAT中。请在BEGIN和END之间补充一段源程序，完成要求的功能。

原有数据由过程LOAD从文件INPUT1.DAT中读入SOURCE开始的内存单元中，结果要求从RESULT开始存放，由SAVE保存到OUTPUT1.DAT文件

对程序必须进行汇编，并与IO.OBJ连接产生PROG1.EXE执行文件，最终产生运行结果(无结果或结果不正确均不得分)。

部分程序如下：

EXTRN LOAD：FAR，SAVE：FAR

N EQU 20

STAC SEGMENT STACK

DB 128 DUP()

STAC ENDS

DATA SEGMENT

SOURCE DB 31H，32H，33H，34H，35H，36H，37H，38H

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 ; 数据区起始地址

LEA SI，NAME0 ; 原始数据文件名

MOV CX,N ; 字节数

CALL LOAD ; 从 "INPUT1. DAT"中读取数据

**** BEGIN ****

**** END ****

LEA DX,RESULT ; 结果数据区首地址

LEA SI, NAME1 ; 结果文件名

MOV CX,N ; 结果字节数

CALL SAVE ; 保存结果到文件

RET

START ENDP

CODE ENDS

END START

相关知识：

●BCD码和压缩BCD码

BCD码就是以二进制数表示十进制数，以4位二进制数表示1位十进制数，0000～1001表示0～9，1010～1111六个状态无意义。非压缩BCD码以一个字节表示一位BCD码，压缩BCD码一个字节表示两位BCD码。

●ASCII码与压缩BCD码之间的转换

0～9的ASCH码为30H～39H，从数字的ASCII码求数字本身，只要用他的ASCII码减去30H即可。由两位非压缩BCD码构成一个字节的压缩BCD码可将高位的BCD码移到高四位，然后与低位的BCD码进行逻辑或(OR)操作即可完成。

编程思路：

第一步：分析本程序要求完成的功能。

本程序要求完成以下功能：

(1)从数据文件INPUT1.DAT中读取20个字节的ASCII码存放在SOURCE开始的内存单元中。

(2)将SOURCE开始的20个ASCII码求出其对应的数值，然后转换成压缩的BCD码，依次放在RESULT开始的内存单元中。

(3)将处理之后的字符串存入到OUTPUT1.DAT。

第二步：用相应汇编程序来实现其功能。

(1)数据的读取和存入题目中已经给出，只要完成20个ASCII码到压缩BCD的转换即可。

(2)由ASCII码到压缩BCD码的转换过程如下：

由于20位ASCII码正好转换成10个字节压缩BCD码，不存在某个字节的BCD码只有一位。因此依次从SOURCE开始的内存单元取两个ASCII码，前一个转换成压缩BCD码的高位，后一个转换成压缩BCD码的低位来构成压缩BCD码；每两个ASCII码转换成一个字节的压缩BCD码，直至转换完毕。

请编制程序，其功能是：内存中连续存放着两个无符号字节序列AK和BK((K=0,1,……,9)，求序列CK，CK=AK-BK(CK以有符号字的形式按C0,C1……,C9的顺序连续存放)。

例如：

序列AK为：30H，FFH，80H，FFH…

序列BK为：00H，FFH，FFH，OAH…

结果CK为：0030H，000H，FF81H，FFF5H…

部分程序已给出，其中原始数据由过程LOAD从文件INPUT1.DAT中读入SURCE开始的内存单元中，运算结果要求从 RESULT开始存放，由过程SAVE保存到文件OUTPUT1.DAT中。

请填空BEGIN和END之间已给出的源程序使其完整，空白已用横线标出，每个空白一般只需一条指令，但采用功能相当的多条指令亦可，或删除BEGIN和END之间原有的代码并自行编程来完成所要求的功能。

对程序必须进行汇编，并与IO.OBJ链接产生可执行文件，最终运行程序产生结果。调试中若发现整个程序中存在错误之处，请加以修改。

[试题程序]

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 ; 数据区起始地址

LEA SI,NAME0 ; 原始数据文件名

MOV CX,N*2 ; 字节数

CALL LOAD ; 从"INPUT1.DAT"中读取数据

******** BEGIN ********

MOV DI,OFFSET RESULT ; 结果从RESULT开始存放

MOV BX,0

(1)

PRO: MOV AH,0

MOV AL,SOURCE[BX] ; 序列Ak中的一个字节

SUB AL, (2) ; Ck=Ak-Bk

(3) JUMP ; 无借位转JUMP

MOV AH, (4) ; 有借位转换成有符号字(为负)

JUMP: MOV (5) ,A

ADD DI,2

INC BX

DEC CX

JNZ PRO

; ******** END ********

LEA DX,RESULT ; 结果数据区首址<

请编制程序，其功能是：内存中连续存放着20个无符号字节数序列，请将它们排成升序(从小到大)。

例如：

内存中有01H,04H,02H…(假设后17个字节均大与04H)

结果为 01H,02H,04H…(后跟17个字节，按从小到大的顺序排列)

部分程序已给出，其中原始数据由过程LOAD从文件INPUT1.DAT中读入SOURCE开始的内存单元中。运算结果要求从RESULT开始存放，由过程SAVE保存到文件OUTPUT1.DAT中。

请填空BEGIN和END之间已给出的源程序使其完整(空白已用横线标出，每个空白一般只需一条指令，但采用功能相当的多条指令亦可)，或删除BEGIN和END之间原有的代码并白行编程来完成所要求的功能。

对程序必须进行汇编，并与IO.OBJ链接产生可执行文件，最终运行程序产生结果。调试中若发现整个程序中存在错误之处，请加以修改。

试题程序：

试题要求如下：

请编制程序，其功能是：内存中连续放着20个ASCII字符，如果是小写字母A～Z之间的字符，请把它们转换成相应的小写字母：若为其他字符，均转换成ASCII字符'NUL' (00H)。

例如：

内存中有：41H ('A')，42H ('B')，5EH，64H，48H……

结果为： 61H ('a')，62H ('b')，00H('NUL')，00H('NUL')，00H('NUL')……

部分程序已给出，其中原始数据由过程LOAD从文件INPUT1.DAT中读入SOURCE开始的内存单元中，运算的结果要求从RESULT开始存放，由过程SAVE保存到文件OUTPUT1.DAT中。在BEGIN和AND之间编程完成要求的功能。

对程序进行汇编，并与IO.OBJ链接产生PROG1.EXE执行文件，最终运行程序产生结果。

试题程序：

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(0FH)

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 ; 数据区起始地址

LEA SI, NAME0 ; 原始数据文件名

MOV CX, N ; 字节数

CALL LOAD ; 从'INPUT1.DAT'中读取数据

LEA SI, SOURCE

LEA DI, RESULT

; **** BEGIN ****

; **** END ****

LEA DX, RESULT ; 结果数据区首址

LEA SI, NAME1 ; 结果文件名

MOV CX, L+I ; 结果字节数

CALL SAVE ; 保存结果到文件

RET

START ENDP

CODE ENDS

END START