计算机钢琴的汇编程序.doc

计算机钢琴的程序编写 实验目的: 掌握利用pc机扬声器发出不同频率声音的方法. 学习利用系统功能调用从键盘上读取字符的方法. 实验内容: 编写程序,程序运行时使pc机成为一架可弹奏的钢琴.当按下数字1-8时,依次发出1,2,3,4,5,6,7,i八个音调.按下CTRL-C则退出钢琴状态. 实验原理: pc机扬声器电路图如下: 61H端口第1位: 62H端口第2位: 通过给8253定时器装入不同的计数值,可以使其输出不同频率的波形.当与门打开后,经过放大器的放大作用,便可驱动扬声器发出不同频率的音调.要使音调的声音持续一端时间,只要插入一端延时程序之后,再将扬声器切断(关闭与门). 另外,要使计算机成为可弹奏的钢琴,需要使用系统调用的01H功能以接收键入字符,并且要建立一张表,使键入字符与频率构成一个对应关系. 键入字符 1 2 3 4 5 6 7 8 音符 1 2 3 4 5 6 7 8 频率值 524 588 660 698 784 880 988 1048DATASEGMENT DATDB0,45,75,100,125,157,190,222,252 HEIGHTDB0,40,70,100,130,160,190,220,250 DATAENDS CODESEGMENT ASSUMECS:CODE,DS:DATA START:MOVAX,DATA MOVDS,AX MOVAH,0;图形方式：每屏幕字符数8025,16色 MOVAL,12H INT10H MOVAH,6;清屏 MOVAL,0 MOVCH,0 MOVCL,0MOVDH,18H MOVDL,4FH INT10HMOVSI,451 MOVDX,480 REDRAW: MOVDI,16ADDDI,48 MOVCX,16 SUBDX,1 CMPDX,SI JBLL MOVBL,0 PAINT: MOVAL,9 MOVAH,0CH MOVBH,0 INT10H INCCX CMPCX,DI JBEPAINT ADDDI,80 ADDCX,32 INCBL CMPBL,7 JBEPAINT JMPREDRAW LL: MOVAL,80H;对8255进行初始化工作，A口、B口均为输出状态工作与方式0 OUT63H,AL MOVAL,0B7H;对计数器8253进行初始化工作，选2号计数器，且先读写低8位;后高8位，工作与模式3 OUT43H,AL PP: MOVAH,01H INT16H JZPP SUBAL,30H CMPAL,09H;AL中的参数将传递到SOUND子程序去 JAEOVER1 CALLSOUND JMPPP OVER1: JMPOVER SOUNDPROCNEAR PUSHAX PUSHBX PUSHCX PUSHDX PUSHSI MOVAH,0 MOVSI,AX;保护AL于SI中，以待后用，作为参数传递 MOVBX,OFFSETDAT XLAT MOVDI,AX MOVDX,12H MOVAX,34DCH DIVDI OUT42H,AL MOVAL,AH OUT42H,AL INAL,61H ORAL,3 OUT61H,AL;此时喇叭将在计数器输出的频率工作发声，;且CPU得以解放可执行下面的绘图工作 CALLPIANO MOVAL,0 OUT61H,AL MOVAL,0H MOVAH,0CH INT21H POPSI POPDX POPCX POPBX POPAX RET SOUNDENDP PIANOPROCNEAR PUSHAX PUSHBX PUSHCX PUSHDX PUSHDI MOVAX,SI MOVBH,AL;BH中表示按得是什么键, MOVBL,0 PUSHBX MOVBX,OFFSETHEIGHT XLAT POPBX;BH中表示按得是什么键, MOVAH,0 PUSHAX;AX中的为键柱的高度 MOVDX,450 MOVCX,10 DECBH MOVAL,BH MOVBL,80 MULBL ADDCX,AX;CX中为键柱的起始横坐标 ; POPAX;AX中的为键柱的高度 INCBH;BH中表示按得是什么键, ; MOVSI,CX ADDSI,32;SI中为横坐标的边界 MOVDI,DX SUBDI,AX;DI中为纵坐标的边界 OK: PUSHSI SUBSI,32 MOVCX,SI POPSISB: MOVAL,0EH MOVAH,0CH MOVBH,0 INT10H INCCX CMPCX,SI JBESB DECDX CMPDX,DI JAEOK PUSHBX PUSHCX MOVBX,5000 DELAY: MOVCX,0FfFH DL10MS: LOOPDL10MS DECBX JNZDELAY POPCX POPBX MOVDX,DI MOVDI,450 GO: PUSHSI SUBSI,32 MOVCX,SI POPSI CA: MOVAL,0H MOVAH,0CH MOVBH,0 INT10H INCCX CMPCX,SI J