计算机发声及音乐演奏.pptVIP

计算机发声及音乐演奏第1页，共10页，星期日，2025年，2月5日

音名CDEFGABCDEFGABCDE唱名1.2.3.4.5.6.7.1234567.1.2.3频率131147165175196220247262294330349392440494523587659第2页，共10页，星期日，2025年，2月5日

声音的产生1.19318MHz=1234DCHHzINTEL8255PB0PB1INTEL8253GATE2OUT2驱动器第3页，共10页，星期日，2025年，2月5日

data segmentbg db twotigers,$freqdw2dup(262,294,330,262)dw2dup(330,349,392)dw2dup(392,440,392,349,330,262)dw2dup(294,196,262),0timedw10dup(25),50,25,25,50dw2dup(12,12,12,12,25,25)dw2dup(25,25,50)data ends1231|1231|345-|345-|565431|565431|251-|251-|________..第4页，共10页，星期日，2025年，2月5日

code segmentassumecs:code,ds:datastart:movax,datamovds,axlea dx,bgmovah,9int 21h；显示歌曲名字lea si,freq；频率数据首地址送silea bp,time；时间数据首地址送bpcallsing；调用唱歌子程序movah,4ch；返回DOSint 21h第5页，共10页，星期日，2025年，2月5日

sing proc；唱歌子程序pushdipushsipushbppushbx第6页，共10页，星期日，2025年，2月5日

rept1:mov di,[si]；频率数据送dicmpdi,0hje end_sing；若是零，则程序结束mov bx,ds:[bp]；时间数据送bxcallsound；调用声音子程序add si,2；调整频率数据指针add bp,2；调整时间数据指针jmp rept1end_sing:popbxpopbppopsipopdiretsingendp第7页，共10页，星期日，2025年，2月5日

soundprocpushaxpushcxpushdxpushdi第8页，共10页，星期日，2025年，2月5日

moval,0b6h；初始化8253，计数器2，方式3out43h,al；二进制计数，计数值送两次movdx,12hmovax,34dchdivdi；计算计数值，在ax中out42h,almoval,ahout42h,alinal,61hmovah,al；将PB口原来的值送ahoral,3out61h,al；将8255的PB1、PB0置成1第9页，共10页，星期日，2025年，2月5日

delay:movcx,2801；标准延时10ms程序段dl10ms:loopdl10msdec bx；时间数据×10msjnz delaymov al,ahout 61h,al；恢复PB原来的值popdipopdxpopcxpopaxretsound