自編基于AT89C51的簡(jiǎn)單音樂演奏器

1、程序如下org 0000hump startorg 001bhmovth1,r1movtl1,rocplp1.0retimovtho,#63hmovtlo,#18hkey1 bit p2.4key2 bit p2.5key3 bit p2.6org 0100h start:movsp,#50hclr trimovtmod, #10hmov ie,#88hmm:jnb key1,go1jnb key2,go2jnb key3,go3sjmp mmgo1:setb tro aa:jnbtfo,aaclr tfoclr tromov th0,#63hmov tl0,#18hjb key1,mmmov

2、 dptrz#music1push dphpush dplsjmp loopgo2:setb tro bb:jnbtfo,bbclr tfoclr tromov th0,#63hmov tl0,#18hjb key2,mmmov dptr,#music2push dphpush dplsjmp loopgo3:setb tro cc:jnbtfo,ccclr tfoclr tromov th0z#63hmov tlo,# 18hjb key3,mmmov dptr,#music3push dphpush dplsjmp looploop:clr amovc a,a+dptrmov r1zain

3、c dptrclr amovc a,a+dptrmov r0,aorl a,r1jznextomov azroanla,r1cjne a,#offh,nextpop dplpop dphsjmp loopnext: mov th1,r1mov tl1,rosetb trisjmp next1nexto:clr trinext1:clr ainc dptrmovc a,a+dptrmov r2,aloop1:lcall d200djnz r2,loop1jnbkey1,go1jnb key2,go2jnbkey3,go3inc dptrajmp loop;延遲200ms子程序d200:mov r

4、4z#81hd200b:mov a,#0ffhd200a:decajnz d200adec r4cjne r4,#00h,d200bret；歌曲新年好音符、頻率、定時(shí)表music1:db 0feh/25h,02h/0feh,25h,02h/0fehz25hz04hdb 0fdh/80h/04h,0feh,84h,02h,0feh,84h/02hdb 0feh,84h,04h/0feh/25h,04h/0feh,25h,02hdb 0feh,84hz02h/0fehz0c0h,04h,0feh,0c0h,04hdb 0feh,98h,02h,0feh,84h,02h,0feh,57h,04hdb

5、 00h,00h,04h,0ffh,0ffhmusic2:db0feh,25h,04h/0fehz57h,04h,0feh,84h,04h,0feh/25h,04hdb0feh,25h,04h,0feh/57h,04h,0feh,84h,04h,0feh,25h/04hdb0feh,84h,04h/0feh/98h,04h,0feh,0c0h/04hdb0feh/84h,04h/0feh,98h,04h,0feh,0c0h,04hdb0feh,0c0h,02hz0feh/0e3h/02h,0feh,0c0h,02h/0feh,98h,02h,0feh/84h,04h,0fehz25h,04hd

6、b0feh,0c0h,02h,0feh,0e3h,02h,0feh,0c0h,02h,0feh,98h,02h,0feh,84h,04h,0feh,25h,04hdb0feh,25h,04h,0feh,0c0h,02h,0feh,25h,04h,0feh,25h,04h,0feh,0c0h,02h,0feh,25h,04hdb 00h,00h,04h,0ffh,0ffhmusic3:db0feh/0c0h,04h/0feh/0e3h/04h,0feh,0c0h/04h/0feh,84h,04h,0feh/57h,04h/0feh/84h/04hdb0feh,0c0h,04h,0feh,84h,

7、04h,0feh,57h,04h,0feh,25h,04h,0feh,84h,02h,0feh,0c0h,02h,0feh/25h/02h,0feh,84h,02h,0feh,57h,04hdb0feh,0c0h,04h,0feh,0e3h,04h,0feh,0coh,04h,0feh,84h,04h,0feh,57h,04h,ofeh,84h,04hdb0feh,0c0h,04h,0feh,84h,04h/0feh,57h,o4h/0feh,25h,04h/0feh,57h/02h/0feh,25h/02h/0feh/57h,02h,0feh,84h,02h,0feh,25h,04hdb 00h,00h,04h,0ffh,0ffhendproteus仿真圖如下所示：u1xtallxtagxcryvtm9qoatq ratmx