【实验作业】微处理器原理与应用 CPUHomework3【子程序汇编实验 流程图 十六进制数转十进制数 键盘录入 屏幕显示 闰年判断 两位数求和 汇编小程序】

文章目录

  • 实验报告
  • 实验三 子程序汇编实验学习和提高
    • 汇编语言中的 ASSUME 伪指令和标准的汇编程序
    • 1. 复习 Debug -P 和 -G
    • 2. 将键盘上输入的十六进制数转换成十进制数,并在屏幕上显示
    • 3. 较为复杂的汇编实例学习:判断该年是否为闰年
    • 4. 汇编实例学习和改进:两位数加法
  • 【基础学习】
    • 栈的定义
    • 显示提示信息方法
    • 键盘输入方式
      • 从键盘输入一个字符串到缓冲区(AH=0AH)
    • mul 乘法指令
    • 实验心得
  • 【程序欣赏】

实验报告

课程名称:微处理器原理与应用

实验名称:CPUHomework3

实验时间:2022年10月16日

实验三 子程序汇编实验学习和提高

汇编语言中的 ASSUME 伪指令和标准的汇编程序

ASSUME伪指令,通知汇编程序(编译器)代码段,数据段,附加段以及堆栈段选择什么名字

没有 ASSUME 伪指令时,汇编程序假设不分段,并自动把段超越前缀用于所有所有寻址存储器数据的伪指令

ASSUME 语句只能用于完整的段定义, ASSUME 不是汇编指令,仅仅是写给编译软件的,是让编译器知道我的程序的各个段的名字,并不产生机器码

ASSUME 伪指令是指明变量与段寄存器的联系,如 ASSUME DS:DATAS, 告诉编译器以后所有在 DATAS 段中定义的变量寻址时,使用DS作为段地址,但是其不对程序作任何事(伪指令),我们必须自己对DS赋值

因此,要让机器知道实际的段地址,还需要 MOV AX,DATAS MOV DS,AX 告诉CPU数据段的地址

标准格式:
DETAS SEGMENT
	;
DATAS ENDS

STACKS SEGMENT
	;
STACKS ENDS

CODES SEGMENT
	ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
	MOV AX,DATAS
	MOV DS,AX	; 告诉CPU数据段的地址
	...
	; 此处输入代码段代码
	...
	MOV AH,4CH
	INT 21H
CODES ENDS
	END START

1. 复习 Debug -P 和 -G

debug中P命令与T命令的区别

  1. P和T都是执行,像 add ax, bx,不管用哪个,都是执行此语句

    但如果是 call next, next是一个程序段,那么用P直接就把这段程序执行完,用T则进入内部一句一句执行(与C语言的调试一样,有的进入函数内部,有的执行完函数)

  2. T(跟踪)命令:执行以 cs:ip 开始的一个或几个指令,并显示出执行每条指令后所有寄存器中的内容

P 执行循环、重复的字符串指令、软件中断或子例程

执行命令 G

G [=<地址>[,<断点>]]
等价于:
G
G=<地址>
G=<地址>,<断点>
功能:执行内存中的指令序列
1. 从 CS:IP 所指出开始执行
2. 从指定地址开始执行
3. 从指定地址开始执行,到断点自动停止

2. 将键盘上输入的十六进制数转换成十进制数,并在屏幕上显示

编写程序,详细注释并画程序流程图

代码如下:

data segment	; 定义数据段
	infon db 0dh,0ah,'Please input a hexadecimal number: $'	; 声明空间存储输入提示信息,其中0d回车,0a换行
	wrong db 0dh,0ah,'Please input a valid hexadecimal number: $ is wrong'	; 报错
data ends

stack segment stack
	dw 10 dup(?)
stack ends	; 定义一个栈,有10个字的空间

code segment
	assume cs:code,ds:data,ss:stack
start:
	mov ax,data
	mov ds,ax	; 将数据段的地址交给ds
	
	lea dx,infon	; 使用lea将infon中的内容交给dx,从而在屏幕上显示提示信息
	mov ah,09h	; 将09h交给ah
	int 21h	; 输出提示信息
	
	mov bx,0

input:
	mov ah,01h
	int 21h	; 从键盘上输入一个字符,将之对应的ASCII码交给al,并在屏幕上显示
	add dx,1
	cmp al,0dh
	je z	; 如果相等,则跳转到zz

judge:
	cmp al,'f'	; 比较输入字符与'f'的ASCII码大小
	ja err	; 无符号大于跳转到err
	cmp al,'a'
	jnb branch1	; 无符号不小于跳转到branch1
	
	cmp al,'F'
	ja err	; 无符号大于跳转到err
	cmp al,'a'
	jnb branch2	; 无符号不小于跳转到branch2
	
	cmp al,'9'
	ja err
	cmp al,'0'
	jnb branch3	; 同理
	
	jmp err

err:	; 报错
	lea dx,wrong
	mov ah,09h
	int 21h	; 输出提示语句
	jmp input	; 跳转,重新输入
	
branch1:
	sub al,57h	; a~f, al-57h
	jmp tran
	
branch2:
	sub al,37h	; A~F, al-37h
	jmp tran
	
branch3:
	sub al,30h	; 0~9, al-30h
	jmp tran

tran:
	add dx,1
	mov ah,0h
	je input
	mov cx,04h	; 循环次数为4
shift:	rol bx,1	; bx左移4位
	loop shift
	add bx,ax
	jmp input
	
z:
	mov ax,bx
	mov bx,10
	mov cx,0
	
cir:
	mov dx,0
	add cx,1
	div bx
	push dx
	cmp ax,0
	jne cir
	
fin:
	pop ax	; 余数出栈
	mov dl,al	; al的数据交给dl准备输出
	add dl,30h	; 余数在1~9之间,al + 30
	mov ah,2
	int 21h	; 输出十进制数
	loop fin	; 根据cx的值进行循环输出
	jmp stop

stop:
	mov ah,4ch
	int 21h
	code ends
end start

ROL:循环左移指令
ROL BX, 1 ; 将BX的二进制数全部左移1位,原最高位移入最低位,且复制至进位标志CF
例如,BX原值 =1100 1111 0000 0000 , CF=0
ROL BX, 1 结果: BX=1001 1110 0000 0001 , CF=1

流程图**(流程图格式使用默认)**如下:

【实验作业】微处理器原理与应用 CPUHomework3【子程序汇编实验 流程图 十六进制数转十进制数 键盘录入 屏幕显示 闰年判断 两位数求和 汇编小程序】_第1张图片

具体代码测试结果如下:

【实验作业】微处理器原理与应用 CPUHomework3【子程序汇编实验 流程图 十六进制数转十进制数 键盘录入 屏幕显示 闰年判断 两位数求和 汇编小程序】_第2张图片

【实验作业】微处理器原理与应用 CPUHomework3【子程序汇编实验 流程图 十六进制数转十进制数 键盘录入 屏幕显示 闰年判断 两位数求和 汇编小程序】_第3张图片

【实验作业】微处理器原理与应用 CPUHomework3【子程序汇编实验 流程图 十六进制数转十进制数 键盘录入 屏幕显示 闰年判断 两位数求和 汇编小程序】_第4张图片

【实验作业】微处理器原理与应用 CPUHomework3【子程序汇编实验 流程图 十六进制数转十进制数 键盘录入 屏幕显示 闰年判断 两位数求和 汇编小程序】_第5张图片

【实验作业】微处理器原理与应用 CPUHomework3【子程序汇编实验 流程图 十六进制数转十进制数 键盘录入 屏幕显示 闰年判断 两位数求和 汇编小程序】_第6张图片

3. 较为复杂的汇编实例学习:判断该年是否为闰年

通过注释重点学习并理解程序,活出程序流程图,在理解的基础上可自行修改

代码如下:

示例程序
data segment	; 定义数据段
	infon db  0dh,0ah,'Please input a year: $'	; 声明空间存储输入提示信息,其中0d回车,0a换行
	Y db  0dh,0ah,'This is a leap year! $'	; 声明空间存储的是闰年提示信息,同上另起一行输出
	N db  0dh,0ah,'This is not a leap year! $'	; 声明空间存储不是闰年提示信息,同上另起一行输出
	w dw 0	; 声明空间存储输入年份解析后生成的年份数字
	buf db 8
		db ?
		db 8 dup(?)	; 声明空间作为缓冲区,总共10个字节,第一个表示准备接收的字符数,即8
		; 第二个表示实际接受的字符数,初始为空(?)
		; 后面8个字节作为缓冲接收字符,后两行知识做初始化工作

data ends

stack segment stack
	db 200 dup(0)
stack ends	; 定义一个栈,200字节

code segment
		assume ds:data,ss:stack,cs:code
	start: mov ax,data
		   mov ds,ax	; 指定数据段
	
	lea dx,infon	; 在屏幕上显示提示信息
	mov ah,9
	int 21h	; 将infon开始的字符串输出到屏幕
	
	lea dx,buf	; 从键盘输入年份字符串
	mov ah,10
	int 21h
	
	mov cl,[buf+1]	; 获取实际输入长度
mov ch,0	; 保证cx的值为[buf+1]对应字节的值
	lea di,buf+2	; 获取字符串首地址
	call datacate	; 调用子程序,将输入字符串转化为年份数字
	call ifyears	; 调用子程序,判断是否是闰年
	jc a1	; 如果进位标记C为1则跳转到a1
	
	lea dx,n	; 否则输出不是闰年的信息
	mov ah,9
	int 21h
	jmp exit
a1:	lea dx,y	; 输出是闰年的信息
	mov ah,9
	int 21h
exit: mov ah,4ch	; 程序结束
	int 21h
		
datacate proc near	; 指明该子程序在主程序段内
	push cx	; 备份cx
	dec cx	; cx自减1,保证下面的循环使si指向最后一个字符(buf中回车符前面的一个)
	lea si,buf + 2	; 将buf中第一个字符(及buf中第三个字节数据)的地址赋给si
tt1: inc si	; 循环,使得si指向最后一个字符(即buf中回车符前面的一个)
	loop tt1
	pop cx	; 回复cx
	
	mov dh,30h	; 辅助数据,用来将数字字符对应的ASCII码转换为其代表的数字本身
	mov bl,10	; 辅助数据,用来在每进一位时使得ax乘以10
	mov ax,1	; ax用来装对应位的权值
l1: push ax	; 备份ax
push bx ; 备份bx
push dx ; 备份dx,下面的dx将接收乘法运算结果的高位(实际上本例中没有任何作用,因为乘法结果不会超过ax表示的范围)
; 之所以需要是因为有时乘数(某些权值)需要用两个字节来表示

	sub byte ptr  [si],dh	; 将的那个字符转换为对应的数字
	mov bl, byte ptr [si]	; 获取该位数字
mov bh,0	;因为 1. 我们要用两个个字节装对应位的数字 2. 该数字不会超过一个字节表示的范围
	mul bx	; 将该位数字乘以相应的权值,结果存储在ax中,我们预定年份最大值不超过两个字节表示的范围
	add [w],ax	; 加到结果上(易知当所有位都加完时,即是我们想要的年份数字)
	pop dx	; 恢复dx
	pop bx	; 恢复bx
		pop ax	; 恢复ax
		mul bl	; 权值乘以10
		dec si	; si指向更高一位数字
		loop l1
		ret	; 子程序返回
datacate endp

ifyears proc near	;指明该子程序段在主程序段内,该子程序用于检测是否是闰年,接收年份数据,改变c标记位表示不同结果
	push bx	; 备份bx
	push cx	; 备份cx,下面cx用于存储原始年份数据
	push dx	; 备份dx,下面dx用于存储除法余数
	mov ax,[w]	; 获取年份数据
	mov cx,ax	; 将年份数据备份到cx,因为后面做除法时ax值将会改变
	mov dx,0	; 因为被除数要为32字节,高位在dx,本程序中为0
mov bx,100	; 这三行半段是否能被100整除
	div bx
	cmp dx,0
	jnz lab1
	mov ax,cx
mov bx,400
	div bx
	cmp dx,0
	jz lab2	;若能表示是闰年,跳转到lab2
	clc	; 否则不是闰年,将c标记位清零,并跳转到lab3
	lab1:mov ax,cx	; 不能被100整除时跳转到此处,进一步判断能否被4整除
		mov dx,0
		mov bx,4
		div bx
		cmp dx,0
		jz lab2	; 若不能被100整除但能被4整除时闰年,跳转到lab2
		clc	; 若不能被100整除也不能被4整除不是闰年,将c标志位置零,并跳转到lab3
			jmp lab3
		lab2:stc	; 若是闰年跳转到此处将c标志位置1
		lab3: pop dx	; 相应寄存器恢复
		pop cx
		pop bx
		ret	; 子程序返回
	ifyears endp
code ends
	end start

流程图如下:

【实验作业】微处理器原理与应用 CPUHomework3【子程序汇编实验 流程图 十六进制数转十进制数 键盘录入 屏幕显示 闰年判断 两位数求和 汇编小程序】_第7张图片

【实验作业】微处理器原理与应用 CPUHomework3【子程序汇编实验 流程图 十六进制数转十进制数 键盘录入 屏幕显示 闰年判断 两位数求和 汇编小程序】_第8张图片

【实验作业】微处理器原理与应用 CPUHomework3【子程序汇编实验 流程图 十六进制数转十进制数 键盘录入 屏幕显示 闰年判断 两位数求和 汇编小程序】_第9张图片

复习一下:

加载有效地址(load effective address)指令就是lea,他的指令形式就是从内存读取数据到寄存器,但是实际上他没有引用内存,而是将有效地址写入到目的的操作数,就像是C语言地址操作符&一样的功能,可以获取数据的地址

jc,如果CF = 1,则跳转至指定位置

jnc,如果CF = 0,则跳转

CF为进位或借位标识符,被运算结果所影响

4. 汇编实例学习和改进:两位数加法

学习和改进程序

不断改造,能力进步

示例: 求和 3 + 5
datas segment
	five db	5	; 定义five为值为5的字节变量
datas ends

stacks segment
	db  128 dup(?)	; 定义一个128字节的栈空间
stacks ends

codes segment
	assume  cs:codes,ds:datas,ss:stacks
start:	; 主程序
	mov ax,datas	; 段地址交给段寄存器
	mov ds,ax
	mov al,five	; 将5交给al
	
	add al,3	; al与3相加并将结果交给al
	add al,30h	; al与30h相加,得到ASCII码
	
	mov dl,al	; 将ASCII码交给dl准备输出
	mov ah,2
	int 21h	; 输出dl
	
	mov ah,4ch
	int 21h	; 返回DOS
codes ends	; 代码段结束 
	end start	; 程序结束

【实验作业】微处理器原理与应用 CPUHomework3【子程序汇编实验 流程图 十六进制数转十进制数 键盘录入 屏幕显示 闰年判断 两位数求和 汇编小程序】_第10张图片

上面的程序是在程序内部定义的数据,以下改进可以使之从键盘输入

start:
	mov ax,datas
	mov ds,ax
	mov bl,five
	
	mov ah,1
	int 21h
	
	add al,bl
	
	mov dl,al
	mov ah,2
	int 21h

显然这样不够完善,能否实现输入两个变量,然后相加,我们可以使用以下代码

data segment
	x db 0
	y db 0
	info db 0dh,0ah,'Please input a number: $'
	info2 db 0dh,0ah,'Please input another number: $'
	adds db '+$'
	res db '=$'
data ends

stack segment
	db 128 dup(?)
stack ends

code segment
	assume cs:code,ds:data,ss:stack

start:
	mov ax,data	; 将data的段地址交给ds
	mov ds,ax
	
	lea dx,info	; 在屏幕上显示提示信息
	mov ah,9
	int 21h	; 将infon开始的字符串输出到屏幕
	
	mov ah,1
	int 21h	; 从键盘上输入字符
	sub al,30h	; al的值-30h,转换为对应的数字
	mov x,al
	lea dx,adds
	mov ah,9
	int 21h	; 输出
	
	lea dx,info2	; 在屏幕上显示提示信息
	mov ah,9
	int 21h	; 将infon2开始的字符串输出到屏幕
	
	mov ah,1
	int 21h	; 从键盘上输入字符
	sub al,30h	; al的值-30h,转换为对应的数字
	mov y,al
	lea dx,res
	
	mov ah,9
	int 21h
	mov al,x
	add al,y
	add ax,30h	; 将ax的值+30h转换为对应的ASCII码
	
	mov dl,al
	mov ah,2
	int 21h
	
	mov ah,4ch
	int 21h
code ends
end start

运行结果如下:

【实验作业】微处理器原理与应用 CPUHomework3【子程序汇编实验 流程图 十六进制数转十进制数 键盘录入 屏幕显示 闰年判断 两位数求和 汇编小程序】_第11张图片

但显然不能输入和输出两位数:

【实验作业】微处理器原理与应用 CPUHomework3【子程序汇编实验 流程图 十六进制数转十进制数 键盘录入 屏幕显示 闰年判断 两位数求和 汇编小程序】_第12张图片

接下来编写两位数求和的程序代码

data segment
	info1 db 0dh,0ah,'Enter the first number: $'
	info2 db 0dh,0ah,'Enter the second number: $'
	info3 db 0dh,0ah,'Sum is: $'
	
	buf1 db 8
		db ?
		db 8 dup(?)	; 声明空间作为缓冲区,总共10个字节,第一个表示准备接收的字符数,即8
		; 第二个表示实际接受的字符数,初始为空(?)
		; 后面8个字节作为缓冲接收字符,后两行知识做初始化工作
		
	buf2 db 8
		db ?
		db 8 dup(?)
	data ends

stack segment stack
	db  128 dup(?)	; 定义一个128字节的栈空间
stack ends

code segment
	assume cs:code,ds:data,ss:stack

start:
	mov ax,data
	mov ds,ax
	
	lea dx,info1
	mov ah,9
	int 21h
	
	lea dx,buf1
	mov ah,0ah
	int 21h	; 输入一个两位数
	mov bl,[buf1 + 2]	; 将十位交给bl
	sub bl,'0'	; 转ASCII码为数字
	mov bh,[buf1 + 3]	; 将个位交给bh
	sub bh,'0'	; 同理转为数字
	
	lea dx,info2
	mov ah,9
	int 21h
	
	lea dx,buf2
	mov ah,0ah
	int 21h ; 输入第二个两位数
	
	lea dx,info3	; 输出结果
	mov ah,9
	int 21h
	
	mov cl,[buf2 + 2]	; 将十位交给cl
	sub cl,'0'
	mov ch,[buf2 + 3]	; 将个位交给ch
	sub ch,'0'
	
	add bl,cl	; 十位相加
	add bh,ch	; 个位相加
	
	cmp bh,10	; 考虑进位
	jge carry1	; 大于等于则进位
	jmp carry2
	
carry1:
	sub bh,10	; 个位减10
	add bl,1	; 十位进1
	jmp carry2	; 判断十位
	
carry2:
	cmp bl,10
	jge carry3	; 大于等于则进位
	jmp fin
	
carry3:
	sub bl,10	; 十位减10
	mov dl,31h
	mov ah,02h
	int 21h
	jmp fin

fin:
	mov dl,bl
	add dl,30h
	mov ah,02h
	int 21h	; 将十位的值转化为ASCII码并交给dl并输出
	
	mov dl,bh
	add dl,30h
	mov ah,02h
	int 21h	; 将个位的值转化为ASCII码并交给dl并输出
	
	mov ah,4ch
	int 21h	; 返回DOS
code ends
end start

最终流程图如下:

【实验作业】微处理器原理与应用 CPUHomework3【子程序汇编实验 流程图 十六进制数转十进制数 键盘录入 屏幕显示 闰年判断 两位数求和 汇编小程序】_第13张图片

运行结果如下:

【实验作业】微处理器原理与应用 CPUHomework3【子程序汇编实验 流程图 十六进制数转十进制数 键盘录入 屏幕显示 闰年判断 两位数求和 汇编小程序】_第14张图片

进位也没有问题

【实验作业】微处理器原理与应用 CPUHomework3【子程序汇编实验 流程图 十六进制数转十进制数 键盘录入 屏幕显示 闰年判断 两位数求和 汇编小程序】_第15张图片

【基础学习】

栈的定义

db 字节 dw 字 DUP(duplicate) 重复

DB (define byte) : 定义一个字节类型的变量,其后的每个操作数均占用1个字节

DW (define word): 定义一个字类型的变量,其后的每个操作数均占用1个字(2个字节)

DD (define doubleword): 定义一个双字类型的变量,其后的每个操作数均占用2个字(4个字节)

DQ (define quadword): 定义一个四字类型的变量,其后的每个操作数

DT (define ten bytes): 定义一个十字节类型的变量,其后的每个操作数占用5个字(10个字节)

比如
stack segment stack
	db 200 dup(0)
stack ends		; 定义一个栈,200字节
STACKS SEGMENT STACK	; 栈段
	DW 128 DUP(?)	; 注意这里只有128个字
STACKS ENDS

qword全称是Quad Word

2个字节就是1个Word(1个字,16位),q就是英文quad-这个词根(意思是4)的首字母,所以它自然是word(2字节)的四倍,也就是8字节

此外,它还是 Pascal 和 nasm 语言中的关键字

显示提示信息方法

lea dx,infon	; 在屏幕上显示提示信息
mov ah,9
int 21h		; 将infon开始的字符串输出到屏幕

键盘输入方式

从键盘输入一个字符串到缓冲区(AH=0AH)

  • 功能:从键盘输入一串ASCII码字符到缓冲区,输入结束为缓冲区的个数或者回车字符
  • 入口参数: DX=缓冲区首偏移地址; DS=缓冲区段地址
  • 调用方法:
MOV  AX,缓冲区的首址的段地址
MOV  DS,AX
MOV  DX, 缓冲区的首址的偏移地址
MOV  AH, 0AH
INT  21H
  • 执行完上面的调用,将从键盘接受字符串送到内存的输入缓冲区(由DS:DX指定缓冲区),需预先定义一个缓冲区

  • 缓冲区的第一个字节指定容纳的最大字符个数,由用户给出

  • 第二个字节存放实际的最大字符个数,由系统最后添入

  • 从第三个字节开始存放从键盘接受的字符,直到ENTER键结束

e.g.

DATA SEGMENT
BUF DB 20	; 存放最大字符个数20个
    DB ?	; 存放实际输入字符个数
    DB 20 DUP(?)	; 存放输入字符
DATA ENDS

mul 乘法指令

理解 mul bx 和 mul bl

MUL 汇编语言无符号数乘法指令

MUL  SRC  执行的操作:
字节操作数: (AX)<--(AL)*(SRC)
字操作数:   (DX,AX)<--(AX)*(SRC)

编写程序从理解范例程序开始,在masm for windows 软件中实现效果,并通过注释进一步理解汇编语言的写法规范,以及汇编中子程序的写法(call 和 ret指令,详见王爽第十章),学习 jmp 跳转语句的使用,画出程序实现的流程图

实验心得

这次的实验比以往的都要综合,因此也更加复杂,但通过流程图的绘制以及不断地报错调试,最终可以实现完整的程序功能

这次的汇编程序编写有当初学习C语言的感觉,感觉基本逻辑和框架差不多,但是汇编要更偏向于底层,我们通常在与寄存器(静态的数据),各种指令(动态的语句),从某种程度上让我对数据结构与算法有了更加具体的感受,也加深了对计算机以及微处理器的了解

子程序调用也很像高级语言中的函数调用,跳转的实现使得语句(代码块)可以得到封装,从而提升了程序的灵活性

【程序欣赏】

My heart beats with yours

在 masm for windows 中运行

Data segment 
full db 0 
buff1 db ' Welcome you to run this programme!' 
 db ' ' 
 db ' *****Please press any key*****$' 
buff2 db ' My heart beats with yours!' 
 db ' ***** Please q to quit *****$' 
Data ends 
code segment 
 assume cs: code , ds: Data 
start: 
 push ds 
 sub ax,ax 
 push ax 
 mov ax, Data 
 mov ds, ax 
 mov ah, 0 
 mov al, 4 
 int 10h 
 mov ah,0bh 
 mov bh, 0 
 mov bl, 1 
 int 10h 
 mov ah,0bh 
 mov bh, 1 
 mov bl, 2 
 int 10h 
 mov dx,offset buff1 ;显示提示信息 
 mov ah, 9 
 int 21h 
 mov ah, 8 
 int 21h 
 call clear ;cls 
sss: 
 call text ;display the text 
 mov di, 2 
 mov al,1 ;draw the big box 
 mov cx, 70 
 mov dx, 20 
 mov bx, 160 
 Call box 
 mov cx, 71 
 mov dx, 21 
 mov bx, 158 
again: 
 mov al, 1 
 mov di, 0 
 Call box 
 Call delay 
 mov al, 0 
 mov di, 0 
 Call box 
 inc cx 
 inc dx 
 sub bx,2 
 cmp cx, 94 
 jnz again 
 mov di,0 ;draw the 2nd box 
 mov cx, 95 
 mov dx, 45 
 mov al, 1 
 mov bx, 110 
 Call box 
 mov cx, 96 
 mov dx, 46 
 mov bx, 108 
again_00: 
 mov al, 1 
 mov di, 0 
 Call box 
 Call delay 
 Call delay 
 mov al, 0 
 mov di, 0 
 Call box 
 inc cx 
 inc dx 
 sub bx,2 
 cmp cx, 114 
 jnz again_00 
 mov cx,115 ;draw the 3rd box 
 mov dx, 65 
 mov al, 1 
 mov bx, 70 
 Call box 
 mov cx, 116 
 mov dx, 66 
 mov bx, 68 
again_01: 
 mov al, 1 
 mov di, 0 
 Call box 
 Call delay 
 Call delay 
 mov al, 0 
 mov di, 0 
 Call box 
 inc cx 
 inc dx 
 sub bx,2 
 cmp cx, 129 
 jnz again_01 
 mov di, 2 
 mov al,1 ;draw the small box 
 mov cx, 130 
 mov dx, 80 
 mov bx, 40 
 Call box 
 mov di, 2 
 mov al,3 ;对角线 
 mov si, 0 
 mov cx, 71 
 mov dx, 21 
 mov bx, 59 
 Call xie_line 
 mov cx, 171 
 mov dx, 121 
 mov bx, 59 
 Call xie_line 
 mov si, 1 
 mov cx, 71 
 mov dx, 179 
 mov bx, 59 
 Call xie_line 
 mov cx, 171 
 mov dx, 79 
 mov bx, 59 
 Call xie_line 
 mov cx,150 ;十字线 
 mov dx, 20 
 mov si, 0 
 mov bx, 60 
 Call draw_line 
 mov cx, 150 
 mov dx, 120 
 mov bx, 60 
 Call draw_line 
 mov cx, 70 
 mov dx, 100 
 mov si, 1 
 mov bx, 60 
 Call draw_line 
 mov cx, 170 
 mov dx, 100 
 mov bx, 60 
 Call draw_line 
 mov si, 1 
 mov cx, 70 
 mov dx, 60 
 mov bx, 60 
 Call mid_line 
 mov cx, 170 
 mov dx, 110 
 mov bx, 60 
 Call mid_line 
 mov si, 2 
 mov cx, 110 
 mov dx, 20 
 mov bx, 30 
 Call mid_line 
 mov cx, 160 
 mov dx, 120 
 mov bx, 30 
 Call mid_line 
 mov si, 3 
 mov cx, 70 
 mov dx, 140 
 mov bx, 60 
 Call mid_line 
 mov cx, 170 
 mov dx, 90 
 mov bx, 60 
 Call mid_line 
 mov si, 4 
 mov cx, 110 
 mov dx, 180 
 mov bx, 30 
 Call mid_line 
 mov cx, 160 
 mov dx, 80 
 mov bx, 30 
Call mid_line 
 mov di, 0 
 mov al,1 ;draw the big box again 
 mov cx, 70 
 mov dx, 20 
 mov bx, 160 
Call box 
 mov di, 0 
 mov al,1 ;draw the small box again 
 mov cx, 130 
 mov dx, 80 
 mov bx, 40 
Call box 
 mov di, 0 
 mov cx, 95 
 mov dx, 45 
 mov al, 1 
 mov bx, 110 
Call box 
 mov cx, 115 
 mov dx, 65 
 mov al, 1 
 mov bx, 70 
Call box 
 mov di,1 ;fill 
Call fill 
Call fill_2 
Call fill_3 
 mov cx,149 ;bold 
 mov dx, 120 
 mov al, 2 
 mov bx, 60 
 mov si, 0 
Call draw_line 
 mov cx, 151 
 mov dx, 120 
 mov al, 2 
 mov bx, 60 
 mov si, 0 
Call draw_line 
heart_: ;draw the heart 
Call cls_box 
Call heart 
 mov ah, 8 
 int 21h 
 cmp al,'q' 
 jz ok 
 cmp al,20h 
 jz heart_ 
Call Clear 
 jmp sss 
ok: 
ret 
fill proc near ;the procedure of fill 
 mov full, 0 
 mov al, 5 
 mov cx, 160 
 mov dx, 121 
 mov si, 0 
 mov bx, 60 
fill_Y: 
 push cx 
 push dx 
 push bx 
Call draw_line 
 pop bx 
 pop dx 
 pop cx 
 sub bx,2 
 inc cx 
 Add dx, 2 
 inc full 
 cmp full, 30 
 jne fill_Y 
 ret 
fill endp 
fill_2 proc near 
 mov full, 0 
 mov al, 5 
 mov cx, 140 
 mov dx, 121 
 mov si, 0 
 mov bx, 60 
fill_Y1: 
 push cx 
 push dx 
 push bx 
Call draw_line 
 pop bx 
 pop dx 
 pop cx 
 sub bx,2 
 dec cx 
 Add dx, 2 
 inc full 
 cmp full, 30 
 jne fill_Y1 
ret 
fill_2 endp 
fill_3 proc near 
 mov al, 1 
 mov full, 0 
 mov si, 0 
 mov cx, 140 
 mov dx, 121 
 mov bx, 60 
re_fill: 
 push bx 
 push cx 
 push dx 
Call draw_line 
 pop dx 
 pop cx 
 pop bx 
 inc cx 
 inc full 
 cmp full, 9 
 jne re_fill 
 mov full, 0 
 mov cx, 159 
 mov dx, 121 
 mov bx, 60 
re_fill2: 
 push bx 
 push cx 
 push dx 
Call draw_line 
 pop dx 
 pop cx 
 pop bx 
 dec cx 
 inc full 
 cmp full, 9 
 jne re_fill2 
ret 
fill_3 endp 
draw_Line proc near ;the procedure of draw a line 
 push bx 
 cmp si, 0 
 jz V_line1 
 Add bx, cx 
H_line: 
 mov ah,0ch 
 int 10h 
 cmp di, 0 
 jz aa0 
 cmp di, 1 
 jz aa1 
Call delay 
aa1: 
Call delay 
aa0: 
 inc cx 
 cmp cx, bx 
 jne H_line 
 jmp exit_line 
V_line1: 
 Add bx, dx 
V_line: 
 mov ah,0ch 
 cmp di, 0 
 jz bb0 
 cmp di, 1 
 jz bb1 
Call delay 
bb1: 
Call delay 
bb0: 
 int 10h 
 inc dx 
 cmp dx, bx 
 jne V_line 
exit_line: 
 
 pop bx 
ret 
draw_line endp 
xie_line proc near ;the procedure of draw a xie_line 
 Add bx, cx 
 cmp si, 1 
 jz xieline_1 
xieline_0: 
 
 mov ah,0ch 
 int 10h 
 inc dx 
 inc cx 
 cmp cx, bx 
 jne xieline_0 
 jmp exit_xie 
xieline_1: 
 mov ah,0ch 
 int 10h 
 dec dx 
 inc cx 
 cmp cx, bx 
 jne xieline_1 
exit_xie: 
ret 
xie_line endp 
Mid_line proc near ;draw a xie_line 
 Add bx, cx 
 cmp si, 2 
 jz midline_2 
 cmp si, 3 
 jz midline_3 
 cmp si, 4 
 jz midline_4 
midline_1: 
 
 mov ah,0ch 
 int 10h 
 inc dx 
 Add cx, 2 
 cmp cx, bx 
 jne midline_1 
 jmp exit_lines 
midline_2: 
 mov ah,0ch 
 int 10h 
 Add dx, 2 
 inc cx 
 cmp cx, bx 
 jne midline_2 
 jmp exit_lines 
midline_3: 
 mov ah,0ch 
 int 10h 
 dec dx 
 Add cx, 2 
 cmp cx, bx 
 jne midline_3 
 jmp exit_lines 
midline_4: 
 mov ah,0ch 
 int 10h 
 sub dx,2 
 inc cx 
 cmp cx, bx 
 jne midline_4 
exit_lines: 
ret 
mid_line endp 
box proc near ;draw a box 
 push cx 
 push dx 
 push cx 
 push dx 
 push cx 
 push dx 
 push cx 
 push dx 
 mov si, 1 
 call draw_line ;top 
 pop dx 
 pop cx 
 Add cx, bx 
 mov si, 0 
 call draw_line ;right 
 pop dx 
 pop cx 
 mov si, 0 
 call draw_line ;left 
 pop dx 
 pop cx 
 mov si, 1 
 Add dx, bx 
 call draw_line ;bottom 
 pop dx 
 pop cx 
 ret 
 box endp 
space proc near ;display a space 
 mov ah, 2 
 mov dl,' ' 
 int 21h 
 ret 
 Space endp 
 
 return proc near ;回车 
 mov ah, 2 
 mov dl,0ah 
 int 21h 
 mov dl,0dh 
 int 21h 
 ret 
 return endp 
 
 text proc near ;显示文本信息 
 mov bh, 0 
 mov dh, 0 
 mov dl, 0 
 mov ah, 2 
 int 10h 
 mov dx,offset buff2 
 mov ah, 9 
 int 21h 
 Text endp 
 
 heart proc near 
 mov cx,136 ;draw_heart 
 mov dx, 93 
 mov si, 0 
 mov bx, 5 
 mov al, 2 
 Call draw_line 
 mov cx,137 ;draw_heart 
 mov dx, 91 
 mov si, 0 
 mov bx, 9 
 Call draw_line 
 mov cx,138 ;draw_heart 
 mov dx, 90 
 mov si, 0 
 mov bx, 12 
 Call draw_line 
 mov cx,139 ;draw_heart 
 mov dx, 89 
 mov si, 0 
 mov bx, 14 
 Call draw_line 
 mov cx,140 ;draw_heart 
 mov dx, 88 
 mov si, 0 
 mov bx, 16 
 Call draw_line 
 mov cx,141 ;draw_heart 
 mov dx, 88 
 mov si, 0 
 mov bx, 17 
 Call draw_line 
 mov cx,142 ;draw_heart 
 mov dx, 87 
 mov si, 0 
 mov bx, 19 
 Call draw_line 
 mov cx,143 ;draw_heart 
 mov dx, 87 
 mov si, 0 
 mov bx, 20 
 Call draw_line 
 mov cx,144 ;draw_heart 
 mov dx, 87 
 mov si, 0 
 mov bx, 21 
 Call draw_line 
 mov cx,145 ;draw_heart 
 mov dx, 88 
 mov si, 0 
 mov bx, 21 
 Call draw_line 
 mov cx,146 ;draw_heart 
 mov dx, 88 
 mov si, 0 
 mov bx, 22 
 Call draw_line 
 mov cx,147 ;draw_heart 
 mov dx, 89 
 mov si, 0 
 mov bx, 22 
 Call draw_line 
 mov cx,148 ;draw_heart 
 mov dx, 90 
 mov si, 0 
 mov bx, 22 
 Call draw_line 
 mov cx,149 ;draw_heart 
 mov dx, 91 
 mov si, 0 
 mov bx, 22 
 Call draw_line 
 mov cx,150 ;1draw_heart 
 mov dx, 91 
 mov si, 0 
 mov bx, 22 
 Call draw_line 
 mov cx,151 ;draw_heart 
 mov dx, 90 
 mov si, 0 
 mov bx, 22 
 Call draw_line 
 mov cx,152 ;draw_heart 
 mov dx, 89 
 mov si, 0 
 mov bx, 22 
 Call draw_line 
 mov cx,153 ;draw_heart 
 mov dx, 88 
 mov si, 0 
 mov bx, 22 
 Call draw_line 
 mov cx,154 ;draw_heart 
 mov dx, 88 
 mov si, 0 
 mov bx, 21 
 Call draw_line 
 mov cx,155 ;draw_heart 
 mov dx, 87 
 mov si, 0 
 mov bx, 21 
 Call draw_line 
 mov cx,156 ;draw_heart 
 mov dx, 87 
 mov si, 0 
 mov bx, 20 
 Call draw_line 
 mov cx,157 ;draw_heart 
 mov dx, 87 
 mov si, 0 
 mov bx, 19 
 Call draw_line 
 mov cx,158 ;draw_heart 
 mov dx, 88 
 mov si, 0 
 mov bx, 17 
 Call draw_line 
 mov cx,159 ;draw_heart 
 mov dx, 88 
 mov si, 0 
 mov bx, 16 
 Call draw_line 
 mov cx,160 ;draw_heart 
 mov dx, 89 
 mov si, 0 
 mov bx, 14 
 Call draw_line 
 mov cx,161 ;draw_heart 
 mov dx, 90 
 mov si, 0 
 mov bx, 12 
 Call draw_line 
 mov cx,162 ;draw_heart 
 mov dx, 91 
 mov si, 0 
 mov bx, 9 
 Call draw_line 
 mov cx,163 ;draw_heart 
 mov dx, 93 
 mov si, 0 
 mov bx, 5 
 Call draw_line 
 ret 
 heart endp 
 
 delay proc near ;the procedure of delay 
 push cx 
 push dx 
 mov dx, 25 
dl2: 
 
 mov cx, 2801 
dl3: 
 
 loop dl3 
 dec dx 
 jnz dl2 
 pop dx 
 pop cx 
 ret 
 delay endp 
 
 clear proc near ;clear 
 mov al, 0 
 mov bx, 0 
 mov cx, 0 
 mov dx, 0 
line: 
 
 mov ah,0ch 
 int 10h 
 inc cx 
 cmp cx, 320 
 jne line 
 mov cx, 0 
 inc dx 
 cmp dx, 200 
 jne line 
 ret 
 Clear endp 
 
 cls_box proc near 
 mov al, 0 
 mov bx, 0 
 mov cx, 131 
 mov dx, 81 
s_line: 
 
 mov ah,0ch 
 int 10h 
 inc cx 
 cmp cx, 170 
 jne s_line 
 mov cx, 131 
 inc dx 
 cmp dx, 120 
 jne s_line 
 ret 
cls_box endp 
code ends 
 end start

结果如下:【实验作业】微处理器原理与应用 CPUHomework3【子程序汇编实验 流程图 十六进制数转十进制数 键盘录入 屏幕显示 闰年判断 两位数求和 汇编小程序】_第16张图片

你可能感兴趣的:(CPU,微处理器,汇编语言,实验作业,算法)