汇编语言C大调电子琴程序,汇编语言编写电子琴的程序.doc

; Win32 Consol .exe

include io32.inc

.data

;add your data here

DRAW MACRO START_X,START_Y,END_X,END_Y,COLOR

LOCAL DRAW_NEXT

;local ：避免宏重复调用时，标号的重复

;功能：画填充的矩形

;使用条件：START_X < END_X ,START_Y < END_Y

PUSH AX

PUSH BX

PUSH CX

PUSH DX

MOV AH,0CH ;写像素点

MOV AL,COLOR ;设置颜色

MOV BH,0 ;选用页号0

MOV CX,START_X ;列起始点

MOV DX,START_Y ;行起始点

DRAW_NEXT:

INT 10H ;画点

INC CX ;画横线

CMP CX,END_X ;比较行是否画完

JNE DRAW_NEXT ;画另一行

MOV CX, START_X ;另一行的起始点

INC DX

CMP DX,END_Y ;比较列是否画完

JNE DRAW_NEXT ;未完继续画

POP DX

POP CX

POP BX

POP AX

ENDM

DRAWSQRE MACRO START_X,START_Y,END_X,END_Y,COLOR

LOCAL ROW_UP,ROW_DOWN,RANK_LEFT,RANK_RIGHT

;功能：画不填充的矩形

PUSH AX

PUSH BX

PUSH CX

PUSH DX

PUSH SI

MOV AH,0CH

MOV AL,COLOR

MOV BH,0

MOV CX,START_X

MOV DX,START_Y

ROW_UP: ;画上边

INT 10H

INC CX

CMP CX,END_X

JNE ROW_UP

RANK_RIGHT: ;画右边

INT 10H

INC DX

CMP DX,END_Y

JNE RANK_RIGHT

MOV CX, START_X ;下边起始点

MOV SI,END_X

INC SI

ROW_DOWN: ;画下边

INT 10H

INC CX

CMP CX,SI

JNE ROW_DOWN

MOV DX,START_Y ;右边起始点

MOV CX,START_X

RANK_LEFT: ;画右边

INT 10H

INC DX

CMP DX, END_Y

JNE RANK_LEFT

POP SI

POP DX

POP CX

POP BX

POP AX

ENDM

;数据段

DATA SEGMENT

;定义在屏幕绘制字

START_COL DB ? ;存储起始行

TEXT DB 16 ;起始行

DB 2 ;起始列

DB 06H ;字体颜色

DB Piano XP,0FFH,Copyright(c)Auto-5-5th,0FFH,0FFH ;显示字

DB 10 DUP(2 DUP(0DBH),2 DUP(20H)),0FFH ;颜色交叉矩形

DB 10 DUP(2 DUP(20H),2 DUP(0DBH)),0FFH

DB 10 DUP(2 DUP(0DBH),2 DUP(20H)),0FFH

DB 10 DUP(2 DUP(20H),2 DUP(0DBH)),0FFH

DB 10 DUP(2 DUP(0DBH),2 DUP(20H)),0FFH

DB 10 DUP(2 DUP(20H),2 DUP(0DBH)),0FFH

DB 00

;白色琴键坐标

ST_LX DW 50,61,72,83,94,105,116

ST_MX DW 127,138,149,160,171,182,193

ST_HX DW 204,215,226,237,248,259,270

ST_Y DW 50

ED_LX DW 60,71,82,93,104,115,126

ED_MX DW 137,148,159,170,181,192,203

ED_HX DW 214,225,236,247,258,269,280

ED_Y DW 90

;黑色琴键坐标

BT_X DW 57,68,90,101,112

DW 134,145,167,178,189

DW 211,222,244,254,265

BT_Y DW 50

BD_X DW 64,75,97,108,119

DW 141,152,174,185,196

DW 218,229,251,262,273

BD_Y DW 70

;音乐频率值

LOWD DW 131

LOWDD DW 147,165,175,196,220,247

MID DW 262

MIDD DW 294,330,349,392,440,494

HGH DW 523

HGHD DW 587,659,797,783,879,987,1046

KEYFLAG DB 1 ;标记低(0)、中(1)、高(2)音键

KEYNUM DW 1 ;存储1~7

DELAY_TIME DW 7000 ;延时

SONG DW 100 ;保存所选的自动演奏的曲目

TUNE DW 1 ;标记c调或d调

AUDIO DW 1 ;标记低(1)、中(2)、高音(3)

;自动演奏的歌曲频率和延时

MUS_FREQ1 DW 440,392,330,392,523,440,392,440

DW 330,392,440,392,330,262,220,392

DW 330,2 DUP(294),330,2 DUP(392),440,330

DW 294,262,392,330,294,262,220,262,196

DW -1

MUS_TIME1 DW 37,12,3 DUP(25),2 DUP(12),50

DW 25,2 DUP(12 ),2 DUP(25),4 DUP(12 ),50

DW 37 ,12 ,25,2 DUP(12 ),2 DUP(25),50

DW 37 ,5 DUP(12 ),100

MUS_FREQ2 DW 392,523,392,330,2 DUP(262,330,392),2 DUP(523)

DW 349,3 DUP(440),330,3 DUP(392),294,349,330,294,262

DW 392,523,392,330,2 DUP(262,330,392),2 DUP(523)

DW 349,3 DUP(440),330,3 DUP(392),294,349,330,294,262

DW 392,3 DUP(523),494,587,392,392,3 DUP(587),523,659,392

DW 3 DUP(523),330,3 DUP(392),294,349,330,294,262

DW -1

MUS_TIME2 DW 12 ,3 DUP(25,2 DUP(12 )),2 DUP(25)

DW 2 DUP(19,6,2 DUP(12 )),4 DUP(12 )

DW 25,12 ,3 DUP(25,2 DUP(12 )),2 DUP(25)

DW 2 DUP(19,6,2 DUP(12 )),5 DUP(12 )

DW 2 DUP(19,6,4 DUP(12 ),25)

DW 25,2 DUP(12 ),19,6,6 DUP(12 ),25

MUS_FREQ3 DW 262,262,294,330,330,349,392,440,392,330

DW 392,349,330,294,349,330,294,262

DW 262,262,294,330,330,349,392,440,392,330

DW 392,349,330,294,330,294,262,196

DW 392,349,330,294,196,196,349,330,294,262

DW 262,262,294,330,330,349,392,440,392,330

DW 392,349,330,294,330,294,262

DW -1

MUS_TIME3 DW 3 DUP(25,2 DUP(12)),50

DW 2 DUP(25,2 DUP(12),50)

DW 3 DUP(25,2 DUP(12)),50

DW 2 DUP(25,2 DUP(12)),2 DUP (50)

DW 3 DUP(25,2 DUP(12)),50

DW 2 DUP(25,2 DUP(12)),50

MUS_FREQ4 DW 262,262,294,330,330,294,262,262,220,196

DW 262,294,330,294,262,294

DW 262,294,330,330,294,294,262,220,220,294,262,262,220,196

DW 196,220,220,262,262,294,294,262,220

DW 294,330,294,262,262,294,262,220,196,220

DW 196,220,262,294,330,392,294,330,262,294,262,220

DW 220,294,247,220,196,196

DW 4 DUP(392),330,392,440,440,392,330

DW 5 DUP(440),392,392,330,294

DW 440,392,440,392,330,294,330,294,262,220

DW 4 DUP(294),262,220,196

DW 2 DUP(440,392),2 DUP(330,294),262,220

DW 3 DUP(294),262,220,392

DW -1

MUS_TIME4 DW 3 DUP(20,10,10),50

DW 20,10,20,10,10,80

DW 20,10,20,10,10,3 DUP(20,10),20,20,80

DW 20,10,10,20,20,20,10,10,40

DW 20,10,20,20,10,5,5,10,10,40

DW 20,10,2 DUP(20,10,10),10,5,5,20

DW 20,20,20,10,10,80

DW 10,20,10,20,10,10,40,10,10,20

DW 8 DUP(10),80

DW 20,10,10,20,20,4 DUP(10),40

DW 15,5,10,10,20,20,80

DW 20,10,10,20,20,4 DUP(10),40

DW 40,20,20,40,40,100

MUS_FREQ5 DW 330,392,440,330,392,294

DW 330,392,440,523,440,392,220,262,330,294

DW 294,330,392,294,330,294,220,220

DW 220,262,294,330,294,247,220,262,196

DW 294,330,294,247,220,196,262

DW 523,523,440,523,440,523,440,392

DW 392,330,440,392,262,294,262,292,330

DW 330,330,294,330

DW 523,523,494,440

DW 330,330,294,330,523,494,440,330,392

DW -1

MUS_TIME5 DW 2 DUP(12,12,75),3 DUP(12),25,12,25,6,6,12,75 ;#1,2

DW 12,12,75,4 DUP(12),75,12,12,37,5 DUP(12),75

DW 37,12,12,12,12,12,50

DW 12,12,12,50,12,12,12,75

DW 12,12,37,12,25,6,6,12,50,12,12,12,50,12,12,12,75

DW 12,12,37,12,12,12,12,12,75

DATA ENDS

;代码段

CODE SEGMENT

ASSUME DS:DATA,CS:CODE

MAIN PROC FAR

;主程序

START:

CALL INIT ;调用初始化程序

NEW_SCAN:

CALL SCAN_KEY ;扫描所按下的键

CMP SONG,100 ;判断是否按下了自动播放的歌曲键

JE HAND_PLAY ;若不是，继续判断

CALL PLAY_SONG ;若是，演奏音乐

JMP NEW_SCAN ;演奏结束，重新扫描有无键按下

HAND_PLAY:

CMP KEYNUM,100 ;判断是否手动演奏

JZ NEW_SCAN ;若不是，重新扫描有无键按下

;若是，进行按键处理

PUSH BX

MOV BX,KEYNUM

CALL KEY_DOWN ;在屏幕上显示按下状态

POP BX

CALL LOAD_AUDIO ;判断高低音、C/D调，并装入对应频率段地址到BX中

PUSH SI

MOV SI,KEYNUM

MOV DI,[BX+SI]

CALL GEN_HAND ;发声

POP SI

PUSH BX

MOV BX,KEYNUM ;在屏幕上显示弹起状态

CALL KEY_UP

POP BX

JMP NEW_SCAN ;重新扫描有无键按下，直到按下ESC键

MAIN ENDP

GEN_HAND PROC NEAR

;手动演奏发声程序

;IN：DI

PUSH AX

PUSH BX

PUSH CX

PUSH DX

PUSH DI

MOV AL,0B6H ;定时器初始化

OUT 43H,AL

MOV DX,12H

MOV AX,348CH

DIV DI

OUT 42H,AL ;定时器送处值

IN AL,61H ;开扬声器

MOV AL,AH

OUT 42H,AL

IN AL,61H

MOV AH,AL

OR AL,3

OUT 61H,AL

WAIT1:

CALL WAITF ;调用延时程序

IN AL,60H

TEST AL,80H ;查询键是否放开

JZ WAIT1 ;未放开继续查询

MOV AL,AH ;放开则关扬声器

OUT 61H,AL

POP DI

POP DX

POP CX

POP BX

POP AX

RET

GEN_HAND ENDP

GEN_AUTO PROC NEAR

;自动播放发声程序

PUSH AX

PUSH BX

PUSH CX

PUSH DX

PUSH DI

MOV AL,0B6H

OUT 43H,AL

MOV DX,12H

MOV AX,348CH

DIV DI

OUT 42H,AL

IN AL,61H

MOV AL,AH

OUT 42H,AL

IN AL,61H

MOV AH,AL

OR AL,3

OUT 61H,AL

WAIT2:

CALL WAITF

DEC BX

JNZ WAIT2 ;判断是否播放完毕

MOV AL,AH ;完毕则关闭扬声器

OUT 61H,AL

POP DI

POP DX

POP CX

POP BX

POP AX

RET

GEN_AUTO ENDP

WAITF PROC NEAR

;延时程序

PUSH AX

MOV CX,DELAY_TIME

WAITF1:

IN AL,61H

AND AL,10H ;检查PB4口

CMP AL,AH ;判断AL变化否

JE WAITF1 ;等待AL变化

MOV AH,AL ;保存PB4的新状态(AL中)

LOOP WAITF1

POP AX

RET

WAITF ENDP

PIANO_DRAW PROC NEAR

;绘制琴键

LEA SI,ST_LX ;载入白色起始点地址

LEA DI,ED_LX ;载入白色结束点地址

MOV CX,21 ;白键数目

NEXT_DRAW:

DRAW [SI],ST_Y,[DI],ED_Y,0FH ;调用宏定义画白键

DRAW [SI],90,[DI],93,07H ;阴影

ADD SI,2 ;下一个键

ADD DI,2

LOOP NEXT_DRAW

LEA SI,BT_X ;载入黑色起始点地址

LEA DI,BD_X ;载入黑色结束点地址

MOV CX,15 ;黑键数目

NEXT_BLOCK:

DRAW [SI],BT_Y,[DI],BD_Y,00H

ADD SI,2

ADD DI,2

LOOP NEXT_BLOCK

RET

PIANO_DRAW ENDP

KEY_DOWN PROC NEAR

;键按下时，在屏幕上显示

PUSH SI

PUSH DI

CALL LOAD ;载入所按下键在屏幕上的位置

DRAW [SI+BX],90,[DI+BX],92,0FH

DRAW [SI+BX],92,[DI+BX],94,07H

POP DI

POP SI

RET

KEY_DOWN ENDP

KEY_UP PROC NEAR

;键弹起时，恢复正常状态

PUSH SI

PUSH DI

CALL LOAD ;载入所弹起键在屏幕上的位置

DRAW [SI+BX],90,[DI+BX],93,07H ;恢复阴影

DRAW [SI+BX],93,[DI+BX],94,05H ;恢复背景色

POP DI

POP SI

RET

KEY_UP ENDP

LOAD PROC NEAR

;载入键在屏幕上的位置

CMP KEYFLAG,00H ;判断是否是低音键

JNZ LOAD_HGH ;继续判断

LEA SI,ST_LX ;载入低音键起始坐标首地址

LEA DI,ED_LX ;载入低音键结束坐标首地址

JMP LOAD_END ;载入结束

LOAD_HGH:

CMP KEYFLAG,02H ;判断是否是高音键

JNZ LOAD_MID ;继续判断

LEA SI,ST_HX ;载入高音键起始坐标首地址

LEA DI,ED_HX ;载入高音键结束坐标首地址

JMP LOAD_END

LOAD_MID:

LEA SI,ST_MX ;载入中音键起始坐标首地址

LEA DI,ED_MX ;载入中音键结束坐标首地址

LOAD_END:

RET

LOAD ENDP

SCAN_KEY PROC NEAR

;检查按键状态，并存入对应的变量和寄存器

MOV SI,100

MOV DI,100

MOV KEYNUM,100 ;赋初值

MOV AH,0 ;读键盘

INT 16H

MOV DL,AH

CALL SCAN_SONG ;判断是否是自动播放键(大键盘数字键1~5)

CALL SCAN_TUNE ;判断是否是C/D调选择键

CALL FREQ_CHANGE ;判断是否按下频率改变键：(+/- 符号)

CMP AH,01H ;是否是结束键

JNE FLAG_SCAN ;若不是继续检测

CALL EXIT ;若是则退出

FLAG_SCAN:

MOV AH,02H ;读键盘状态字节

INT 16H

MOV DH,AL ;判断是否是右shift键

AND DH,01H

CMP DH,01H

JE SLOW ;是则进行低音处理

MOV DH,AL ;不是判断是否是左shift键

AND DH,02H

CMP DH,02H

JE SHGH ;是则进行高音处理

JMP SMID ;都不是进行中音处理

SLOW: ;低音处理

MOV AUDIO,1

MOV KEYFLAG,0

JMP KEY_1 ;跳转到音键处理

SHGH: ;高音处理

MOV AUDIO,3

MOV KEYFLAG,2

JMP KEY_1 ;跳转到音键处理

SMID : ;中音处理

MOV AUDIO,2

MOV KEYFLAG,1

KEY_1:

CMP DL,4FH ;是否是1

JNE KEY_2 ;继续判断

MOV KEYNUM,0 ;不是则保存标志

JMP SCAN_END ;键扫描结束

KEY_2:

CMP DL,50H ;是否是2

JNE KEY_3

MOV KEYNUM,2

JMP SCAN_END

KEY_3:

CMP DL,51H ;是否是3

JNE KEY_4

MOV KEYNUM,4

JMP SCAN_END

KEY_4:

CMP DL,4BH ;是否是4

JNE KEY_5

MOV KEYNUM,6

JMP SCAN_END

KEY_5:

CMP DL,48H ;是否是5

JNE KEY_6

MOV KEYNUM,8

JMP SCAN_END

KEY_6:

CMP DL,4DH ;是否是6

JNE KEY_7

MOV KEYNUM,10

JMP SCAN_END

KEY_7:

CMP DL,47H ;是否是7

JNE SCAN_END

MOV KEYNUM,12

SCAN_END:

RET

SCAN_KEY ENDP

SCAN_SONG PROC NEAR

;判断是否是自动播放键(键1~5)，并保存标志变量(song)

;IN: AH 键扫描码

PUSH AX

MOV SONG,100 ;赋初始值

CMP AH,3BH ;与1比较

JB SONG_END ;小于1则结束

CMP AH,3FH ;与5比较

JA SONG_END ;大于则结束

SUB AH , 3BH ;转换成1~5

MOV AL,AH

MOV AH,00H

MOV SONG,AX ;存入标志码

SONG_END:

POP AX

RET

SCAN_SONG ENDP

PLAY_SONG PROC NEAR

;选择并播放音乐

PUSH BP

PUSH SI

PUSH BX

PUSH DI

PUSH AX

CMP SONG,01H ;判断是否是歌1

JNE GO2 ;不是继续判断

CALL SONG_LIGHT_OFF ;灯1~5灭

DRAW 247,42,251,46,0EH ;灯1亮

LEA BP,MUS_TIME1 ;载入延时数据首地址

LEA SI,MUS_FREQ1 ;载入频率数据首地址

JMP FREQ

GO2:

CMP SONG,02H ;判断是否是歌2

JNE GO3

CALL SONG_LIGHT_OFF

DRAW 253,42,257,46,0EH

LEA BP,MUS_TIME2

LEA SI,MUS_FREQ2

JMP FREQ

GO3:

CMP SONG,03H ;判断是否是歌3

JNE GO4

CALL SONG_LIGHT_OFF

DRAW 259,42,263,46,0EH

LEA BP,MUS_TIME3

LEA SI,MUS_FREQ3

JMP FREQ

GO4:

CMP SONG,04H ;判断是否是歌4

JNE GO5

CALL SONG_LIGHT_OFF

DRAW 265,42,269,46,0EH

LEA BP,MUS_TIME4

LEA SI,MUS_FREQ4

JMP FREQ

GO5:

CMP SONG,05H ;判断是否是歌5

JNE FREQ

CALL SONG_LIGHT_OFF

DRAW 271,42,275,46,0EH

LEA BP,MUS_TIME5

LEA SI,MUS_FREQ5

FREQ:

MOV AH,01H ;读键盘缓冲区字符

INT 16H

CMP AH,1CH ;是否是Enter键

JNZ CONTINUE ;不是继续

JMP PLAY_END ;是结自动播放

CONTINUE:

MOV AH,0CH ;清除键盘缓冲区字符

MOV AL,06H

INT 21H

MOV DI,[SI]

CMP DI,-1 ;判断结束否

JE PLAY_END

MOV BX,[BP]

CALL GEN_AUTO ;发声

ADD SI,2

ADD BP,2 ;下一频率

JMP FREQ

PLAY_END:

CALL SONG_LIGHT_OFF

POP AX

POP DI

POP BX

POP SI

POP BP

RET

PLAY_SONG ENDP

LOAD_AUDIO PROC NEAR

;C\D调及对应的低、中、高频率分别载入

;OUT:BX

;IN:TUNE,AUDIO

TUNE_D: ;D大调判断

展开阅读全文

汇编语言C大调电子琴程序,汇编语言编写电子琴的程序.doc相关推荐

Java编写学生类student程序_编写一个JAVA程序片断定义一个表示学生的类student.docx...
编写一个JAVA程序片断定义一个表示学生的类student,包括域"学号","班级","姓名","性别"," ...
python请输出如下图形的程序_编写一个python程序，输出如下图形效果。
[简答题]2.变量与常量作业-.docx [简答题]8.类和对象作业-.docx [计算题]计算 [计算题]求极限 [简答题]使用FileReader对象把Java源文件显示在控制台窗口 [单选题]设 ...
python用字典编写购物程序_Python编写购物小程序
购物车要求: 用户名和密码存放于文件中启动程序后,先登录,登录成功则让用户输入工资,然后打印商品列表,失败则重新登录,超过三次则退出程序允许用户根据商品编号购买商品用户选择商品后,检测余额是否够 ...
编写时钟aplet程序java,编写时钟 Applet 程序
这是学校 java的一道期末考试题,钟表的指针借鉴的大佬的代码.... 代码流程 publicpublic class ClockApplet extends Applet implements Ru ...
刚开始学C 语言怎么编写小程序,用C 语言程序怎么样编写一个小程序工具
在计算机术语缩写通常为 EOF(End Of File),在操作系统决定资料源无更多的资料可读取.资料源通常称为档案或串流. 在 C语言,或更精确地说成 C标准函式库中表示:文件结束符(end of ...
个人所得税java程序怎么编写_java个人所得税代码.doc
java个人所得税代码 import java.awt.event.*;import java.io.*;import javax.swing.*;import javax.swing.table.D ...
C语言简单程序的编写和调试,上机1--C语言简单程序的编写和调试.doc
上机1--C语言简单程序的编写和调试.doc 下载提示(请认真阅读)1.请仔细阅读文档,确保文档完整性,对于不预览.不比对内容而直接下载带来的问题本站不予受理. 2.下载的文档,不会出现我们的网址水印 ...
微型计算机原理计算机钢琴,用汇编语言编写计算机钢琴程序.PDF
用汇编语言编写计算机钢琴程序.PDF 2009年lO月电脑学习第5期用汇编语言编写计算机钢琴程序汪本慧摘要:汇编语言是学习计算机尤其是潋型计算机原理．以及进行披型计算机开发应用不可缺 ...
c语言延时100us程序,编写100MS软件延时程序汇编语言编写延时程序
怎么编写单片机晶振为6MHz,编写100ms延时程序? 设主频12MHz的51单片机,编一个100ms二重循环的延时程序如下,供参考. 其它汇编可以类似编程. SSSS:MOV R0,#99:本指令是 ...
汇编语言编写方法及程序分析
汇编语言编写方法及程序分析 1．汇编语言程序的编写方法 (1) 汇编语言源程序以.asm为其扩展名. (2) 汇编语言源程序的每一行都可以由4个部 ...

汇编语言C大调电子琴程序,汇编语言编写电子琴的程序.doc

汇编语言C大调电子琴程序,汇编语言编写电子琴的程序.doc相关推荐

最新文章

热门文章