单片机控制程序只能用汇编语言编写，其文件后缀名称为.asm

汇编语言编写的程序不用经过ASM编译和LINK连接就可以生成可执行文件。( )

参考答案：错误

此题为判断题(对，错)。

A、lib

B、obj

C、bat

D、asm

在窗体上画—个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer,y As Integer) M=IIf(x＞y,x，y) End FUNction Private Sub Command1 Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,B0 End Sub 程序运行后，单击命令按钮，输出结果为【 】。

在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，再编写如下程序：

Dim 88 As String

Private Sub Textl—KeyPress(KeyAscii As Integer)

If Chr(KeyAscii)<>””Then ss=ss+Chr(KeyAscii)

End Sub

Private Sub Commandl_Click()

Dim m As String，i As Integer

For i=ten(ss)To 1 Step-1

Ill=m+Mid(88,，i，1)

Next

Textl．Text=UCase(n1)

End Sub

运行程序后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中最示的是

A．NUMBER 100

B．REBMUN

C．REBMUN 100

D．001 REBMUN

在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，再编写如下程序：

Dim 88 As String

Private Sub Textl—KeyPress(KeyAscii As Integer)

If Chr(KeyAscii)<>””Then ss=ss+Chr(KeyAscii)

End Sub

Private Sub Commandl_Click()

Dim m As String，i As Integer

For i=ten(ss)To 1 Step-1

Ill=m+Mid(88,，i，1)

Next

Textl．Text=UCase(n1)

End Sub

运行程序后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中最示的是

A．NUMBER 100

B．REBMUN

C．REBMUN 100

D．001 REBMUN

请编制程序PROG1.ASM，其功能是：内存中连续存放着10个十六位二进制数，每个数的序号依次定义为0，1，…9。统计每个数中位为0的个数N0，N1，…，N9(均用一个字节表示)，然后按序将N0至N9存入内存中，最后再用一个字节表示这10个数中为0的位的总数n (n=N0+N1+…+N9)。

例如：

内存中有 0000H，000FH，FFFFH，…

结果为 10H，0CH，00H，…，最后为n

部分程序已给出，其中原始数据由过程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 10

STAC SEGMENT STACK

DB 128 DUP(?)

STAC ENDS

DATA SEGMENT

SOURCE DW N DUP(?)

RESULT DB N+1 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'中读取数据

；* * * * BECIN * * * *

MOV DI，OFFSET RESULT

MOV CL，N

MOV BX，0

MOV DH，0

PRO： MOV DL，0

MOV AX，SOURCE[BX]

MOV CH，______

COUNT： _____ _____

_____ JUMP

INC DL

JUMP： DEC CH

JNZ _____

MOV [DI]，DL

ADD DH，DL

INC DI

ADD _____

DEC CL

JNZ PRO

&nbs

请编制程序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

_____ _____

请编制程序PROG1.ASM，其功能是：内存中连续存放的20个8位有符号数(补码)是由一个8位A/D转换器采集的双极性信号(Xn)，现要求对该信号作如下限幅处理(处理后的信号记为Yn)：

a) Yn=-100 Xn＜-100

b) Yn=Xn ∣Xn∣≤100

c) Yn=100 Xn＞100

例如：

Xn：68H,60H,8EH,38H,…

Yn：64H,61H,9CH,38H,…

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

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

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

试题程序：

EXTRN LOAD:FAR, SAVE:FAR

N EQU 20

M EQU 100

DSEG SEGMENT

SOURCE DW N DUP(?)

RESULT DW N DUP(0)

NAME0 DB 'INPUTI.DAT',0

NAME1 DB 'OUTPUT1.DAT',0

DSEG ENDS

SSEG SEGMENT STACK

DB 128 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 ; 从INPUT1.DAT中读取数据

; **** BEGIN ****

LEA SI,SOURCE

LEA DI,RESULT

(1)

NEXT: MOV AX,[SI]

CMP AX,-M

(2) L1

CMP AL,M

(3)

MOV AL,M

JMP L2

L1: MOV AL,-M

L2: MOV [DI],AL

(4)

(5)

(6)

; **** END ****

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

LEA SI,NAME1 ; 结果文件名起始地址

MOV CX,N ; 字节数

CALL SAVE ; 保存结果到OUTPUT1.DAT文件中

RET

START ENDP

CSEG ENDS

&nbs