buzzerequp2.4

KEYEQUP3.7

org00h;主程序起始地址

jmpstart;跳動主程序

org0bh;timer0中斷起始地址

jmptim0;跳至timer0在mode1

start： MOV tmod，#00000001b;設timer0在mode1

MOV ie，#10000010b;中斷使能

jbKEY，$;第一次按to？

calldelay1;消除抖動

jnbKEY，$;to放開？

MOV 31h，#00;按to次數計數指針初值為00h

start0：

MOV 30h，#lowsong;取簡譜碼指針（第1首）

next： MOV a，30h

MOV dptr，#table

MOV ca，@a+dptr;至相關頁碼，高4位為音符的高低

MOV r2，a;低4位為音符的節拍

jzend0;檢查簡譜碼是否已結束（有無00？）

anla，#0fh;取節拍（低4位）

MOV r5，a;存入r5，節拍的時間

MOV a，r2

swapa

anla，#0fh;取音頻值（高4位）

jnzsing;是否為0，是0則不發音

clrtr0

jmpd1

sing:deca;因0不列入

MOV 22h，a;存入（22h）

rla;乘2

MOV dptr，#table

MOV ca，@a+dptr;至table取碼，取t的值

MOV th0，a;取到的高位字節存入th0

MOV 21h，a;取到的高位字節存入（21h）

MOV a，22h;再載入取到的音符碼

rla;乘2

inca;加1

MOV ca，@a+dptr;至table取相對的低位字節計數值

MOV tl0，a;取到的低位字節存入tl0

MOV 20h，a;取到的低位字節存入（20h）

setbtr0;啟動timer0

d1:calldelay

inc30h;取簡譜碼指針加1

jmpnext

end0:clrtr0;停止計數器

MOV a，31h;載入計次指針

xrla，#00h;是否按第1次？

jnzend1;不是則跳至end1

jbKEY，$;按第2次？

calldelay1;消除抖動

jnbKEY，$;放開否？

inc31h;計次地址（31h）加1

MOV 30h，#lowsong1;第2首歌指針

jmpnext

end1：

MOV a，31h;載入計次指針

xrla，#01h;是否按第2次？

jnzend2;不是則跳至end2

jbKEY，$;按第3次？

calldelay1;消除抖動

jnbKEY，$;放開否？

inc31h;計次地址（31h）加1

MOV 30h，#lowsong2;第3首歌指針

jmpnext

end2：

MOV a，31h;載入計次指針

xrla，#02h;是否按第3次？

jnzend3;不是則跳至end3

jbKEY，$;按第4次？

calldelay1;消除抖動

jnbKEY，$;放開否？

inc31h;計次地址（31h）加1

MOV 30h，#lowsong3;第4首歌指針

jmpnext

end3：

MOV a，31h;載入計次指針

xrla，#03h;是否按第4次？

jnzend4;不是則跳至end4

jbKEY，$;按第5次？

calldelay1;消除抖動

jnbKEY，$;放開否？

inc31h;計次地址（31h）加1

MOV 30h，#lowsong4;第5首歌指針

jmpnext

end4：

MOV a，31h;載入計次指針

xrla，#01h;是否按第5次？

jnzend5;不是則跳至end2

jbKEY，$;按第6次？

calldelay1;消除抖動

jnbKEY，$;放開否？

inc31h;計次地址（31h）加1

MOV 30h，#lowsong5;第6首歌指針

jmpnext

end5：

jmpstart;回到第1次位置

tim0:pushaCC;將a的值暫存于堆棧

pushpsw;將psw的值暫存于堆棧

setbrs0;設工作寄存器庫1，rs0=1，rs1=0

clrrs1

MOV tl0，20h;重設計數值

MOV th0，21h

cplbuzzer;將p10位反相

clrrs0

poppsw;至堆棧取回psw的值

popacc;至堆棧取回a的值

reti;返回主程序

delay： MOV r7，#02;125秒

d2： MOV r4，#125

d3： MOV r3，#248

djnzr3，$

djnzr4，d3

djnzr7，d2

djnzr5，delay;決定節拍

ret

delay1： MOV r4，#20

d4： MOV r3，#248

djnzr3，$

djnzr4，d4

ret

org300h

table：

dw64260，64400，64524，64580

dw64684，64777，64820，64898

dw64968，65030，65058，65110

dw65157，65178，65217

song：;第一首歌哈巴狗

;1

db42h，42h，42h，52h，62h，04h

db62h，62h，62h，72h，84h，04h

db92h，92h，82h，72h，64h，04h

db82h，82h，52h，62h，44h，04h

;2

db42h，42h，42h，52h，62h，04h

db62h，62h，62h，72h，84h，04h

db92h，92h，82h，72h，64h，04h

db82h，82h，52h，62h，44h，04h

db00h

song1：;第2首歌生日快樂

;1

db82h，01h，81h，94h，84h

db0b4h，0a4h，04h

db82h，01h，81h，94h，84h

db0c4h，0b4h，04h

;2

db82h，01h，81h，0f4h，0d4h

db0b4h，0a4h，94h

db0e2h，01h，0e1h，0d4h，0b4h

db0c4h，0b4h，04h

db00h

song2：;第3首歌不倒翁

;1

db84h，94h，88h

db64h，54h，68h

db84h，64h，54h，44h

db52h，42h，52h，62h，48h

;2

db84h，94h，88h

db64h，54h，68h

db84h，64h，54h，44h

db52h，42h，52h，62h，48h

db00h

song3：;第4首歌妹妹背著洋娃娃

;1

db84h，02h，82h，64h，54h

db64h，54h，48h

db64h，02h，52h，44h，24h

db14h，24h，18h

;2

db24h，02h，22h，42h，24h

db44h，54h，68h

db54h，02h，52h，84h，84h

db54h，64h，48h

db00h

song4：;第5首歌兩只老虎

;1

db44h，54h，64h，44h

db44h，54h，64h，44h

db64h，74h，88h

db64h，74h，88h

;2

db82h，92h，82h，72h，64h，44h

db82h，92h，82h，72h，64h，44h

db44h，84h，48h

db44h，14h，48h，00H

song5：;第6首歌三只小貓

;1

db62h，82h，82h，62h，98h

db92h，0b2h，0b2h，82h，98h

db62h，82h，82h，52h，68h

db92h，0b2h，0b2h，82h，98h

;2

db62h，82h，82h，62h，92h，92h，94h

db92h，0b2h，0b2h，92h，84h，94h

db0b8h，0b4h，04h

db00h

end