汇编语言音乐播放器

ORG0000HAJMPLOOOOP//绝对转移指令。ORG000BHAJMPTIM0ORG001BHRETI//中断返回指令ORG0023HLOOOOP:MOVA,#01HLOOOP:MOVP1,#3FHMOVP2,ARLA//A左移MOVR2,#0FFHDELAY0:MOVR3,#0FFHDJNZR3,$//$在某些51的汇编语言里表示本条指令的地址DJNZR3,$意思是R3减一，不为零跳转到本条指令(为零执行下一条指令)MOVR4,#0FFHDJNZR4,$DJNZR2,DELAY0JNBP3.3,START//直接寻址位不为1转LJMPLOOOP//长调用指令START:MOVP1,#06HMOVR5,#00H/初始化MOVTMOD,#00010001BMOVIE,#10101010BMOVDPTR,#TAB2//装第一首歌MOV30H,DPL//DPTR低8位送30H暂存MOV31H,DPH//DPTR高8位送31H暂存START1:INCR4寄存器内容加1//产生8位随机数MOVA,#01010101BMOVB,R4MULABMOVP2,AMOVDPL,30HMOVDPH,31HMOVA,#00HMOVCA,@A+DPTR//查表MOVR0,A//音符数据送R0暂存MOVA,#00HINCDPTR//DPTR的内容加1MOVCA,@A+DPTR//查表MOVR1,A//节拍数据送R1暂存INCDPTRMOV30H,DPLMOV31H,DPHCJNEA,#01H,ELECT//立即数与A相比不相等则转移/一首歌没结束转ELECTINCR5LJMPKEYWORK//结束歌曲计数器加1ELECT:JZSTART//所有歌曲结束转START循环（累加器内容为0转移）MOVA,R0JNZSING（累加器内容不为0转移）CLRTR0//累加器内容清0SETBP3.7//置位直接位LOOP1:ACALLDELAY//绝对调用（调用延时子程序）DJNZR1,LOOP1SJMPSTART1//相对转移SING:MOVDPTR,#TAB1//音符表首地址送DPTRDECR0//R0内容减1（计算音符）MOVA,R0MOVB,#02HMULAB//A乘以BMOVR0,AMOVCA,@A+DPTRMOV21H,AINCDPTR//数据之指针加1MOVA,R0MOVCA,@A+DPTRMOV20H,AMOVTL0,20HMOVTH0,21HSETBTR0开T0定时器LOOP2:ACALLDELAYDJNZR1,LOOP2AJMPSTART1TIM0:MOVTL0,20HMOVTH0,21HCPLP3.7RETI中断返回DELAY:MOVR2,#70DELAY1:MOVR3,#252DJNZR3,$JNBP3.3,AGAIN重复正播放的曲子JNBP3.4,FORM//上一曲开关按下转FORMJNBP3.5,NEXT//下一曲开关按下转NEXTDJNZR2,DELAY1RETAGAIN:JNBP3.3,$等待键释放LJMPKEYWORKFORM:CLREA关中断JNBP3.4,$等待键释放CJNER5,#00H,ZERO不是第一首歌曲转ZER0MOVR5,#04H//是第一首将最后一首歌曲装入歌曲计数器SJMPKEYWORKZERO:DECR5歌曲向上进一首SJMPKEYWORKNEXT:CLREAJNBP3.5,$CJNER5,#04H,LASTMOVR5,#00HLJMPKEYWORKLAST:INCR5歌曲下翻一首LJMPKEYWORKKEYWORK:MOVDPTR,#TAB//将歌曲排列表装入DPTRMOVA,R5//将R5的内容送ARLA//A左移SETBEA//开中断JMP@A+DPTR//根据A的内容转向不同歌曲TAB:AJMPMUSIC2AJMPMUSIC3AJMPMUSIC4AJMPMUSIC5MUSIC2:MOVDPTR,#TAB2//第二首歌曲送DPTRMOVP1,#06HGONG:MOV30H,DPLMOV31H,DPHAJMPSTART1MUSIC3:MOVDPTR,#TAB3MOVP1,#5BHSJMPGONGMUSIC4:MOVDPTR,#TAB4MOVP1,#4FHSJMPGONGMUSIC5:MOVDPTR,#TAB5MOVP1,#66HSJMPGONG********************（音符表）**********************;TAB1:DW64021,64185,64331,64400,64524,64632,64732DW64777,64860,64934,64968,65030,65085,65134DW65157,65198,65235,65252,65283,65310,65335;**********************(因为爱情)*************************;TAB2:DW0910H,0A08H,0C08H,0C08H,0A18H,0010H,0C08H,0A08HDW0908H,0C08H,0C20H,0D08H,0E08H,0F08H,0F08H,0F08HDW0E08H,0F18H,0E04H,0E08H,0E08H,0C08H,0A08H,0A20HDW0C08H,0A08H,0C08H,0D08H,0D18H,0C08H,0D08H,0C08HDW0C08H,0808H,0820H,0608H,0808H,0A08H,0908H,0608HDW0A08H,0908H,0608H,0A08H,0908H,0608H,0D10H,0C20HDW0001H;*********************(兰花草)***********************;TAB3:DW0608H,0A08H,0A08H,0A08H,0A18H,0908H,0808H,0908HDW0808H,0708H,0620H,0D08H,0D08H,0D08H,0D08H,0D18HDW0C08H,0A08H,0C08H,0C08H,0B08H,0A20H,0A08H,0D08HDW0D08H,0C08H,0A18H,0908H,0808H,0908H,0808H,0708HDW0610H,0310H,0308H,0808H,0808H,0708H,0618H,0A08HDW0908H,0808H,0708H,0508H,0620H,0908H,0808H,0708HDW0508H,0640H,0001H;*********************(我只在乎你)*****************************;TAB4:DW0A08H,0A08H,0A08H,0908H,0A10H,0C08H,0C08H,0C20HDW0D08H,0D08H,0D08H,0C08H,0A10H,0D08H,0C08H,0C20HDW0F08H,0F08H,0F08H,0D08H,1010H,0F08H,0C08H,0C20HDW0D08H,0D08H,0D08H,0F08H,0D08H,0C10H,0A10H,0920HDW0A08H,0A08H,0A08H,0908H,0A10H,0C08H,0C08H,0C20HDW0D08H,0D08H,0D08H,0C08H,0A10H,0C08H,0C08H,0C20HDW0F08H,0F10H,0D08H,1010H,1010H,0F08H,0C08H,0C20HDW1010H,0C10H,0F10H,1010H,1110H,1010H,0F10H,0E10HDW0F10H,0E10H,0D10H,0C10H,0D40H,0020H,0004H,0F08HDW1008H,1110H,1010H,0F10H,0E10H,0F10H,0E10H,0A10HDW0C10H,0D20H,0008H,0D08H,0C08H,0D10H,0F10H,0F20HDW0010H,0F20H,1010H,1110H,0F10H,1010H,0F10H,0D08HDW0D08H,1210H,1110H,1010H,0F08H,1208H,1210H,1110HDW1010H,0F10H,1030H,1110H,1008H,0F08H,0F20H,0F10HDW1010H,1120H,0F10H,1410H,1310H,1108H,1008H,0F10HDW0D30H,0010H,0C10H,0F10H,1110H,1310H,1408H,1108HDW1008H,0F10H,0D10H,0F10H,0F08H,1010HF08H,0F40HDW0001H*********************(童年)****************************;TAB5:DW0A08H,0C08H,0C10H,0C08H,0A08H,0D08H,0D08H,0E08HDW0D08H,0D08H,0D08H,0D08H,0C08H,0F10H,0F08H,0F08HDW0F08H,0D08H,0F08H,0D08H,0C40H,0A08H,0C08H,0C10HDW0C08H,0A08H,0D08H,0D08H,0E08H,0D08H,0D08H,0D08HDW0D08H,0C08H,0F10H,0F08H,0F08H,0F08H,0D08H,0D08HDW0F08H,1040H,1308H,1308H,1310H,1310H,1108H,1008HDW0F08H,0F10H,0D08H,0D08H,0F08H,0D08H,0F08H,1008HDW1008H,1008H,1008H,1008H,0F08H,1108H,1008H,1040HDW1108H,1110H,1108H,1108H,1008H,1010H,0F08H,0F10HDW0F08H,1008H,0F08H,0D08H,0C08H,0C08H,0C10H,0C08HDW0D08H,0C08H,1008H,1108H,0F40H,0001H,0000HEND