音乐彩灯控制器[已调试].docVIP

ORG 0000H AJMP MAIN ORG 0300H MAIN: CLR P1.4 MOV 30H,#20 MOV 40H,#0AH MOV A,#00H N1: MOV P3,#0FFH MOV R0,A MOV DPTR,#TABLE2 MOVC A,@A+DPTR MOV P3,A MOV R5,30H LCALL DELAY MOV A,R0 INC A DJNZ 40H,N1 MOV 40H,#05H MOV A,#01H N2: MOV R0,A MOV P3,#0FFH MOV DPTR,#TABLE2 MOVC A,@A+DPTR MOV P3,A MOV R5,30H LCALL DELAY MOV A,R0 INC A INC A DJNZ 40H,N2 MOV 40H,#05H MOV A,#00H N3: MOV R0,A MOV P3,#0FFH MOV DPTR,#TABLE2 MOVC A,@A+DPTR MOV P3,A MOV R5,30H LCALL DELAY MOV A,R0 INC A INC A DJNZ 40H,N3 MOV 40H,#08H MOV A,#00H N4: MOV R0,A MOV P3,#0FFH MOV DPTR,#TABLE2 MOVC A,@A+DPTR MOV P3,A MOV R5,30H LCALL DELAY MOV A,R0 INC A DJNZ 40H,N4 MOV 40H,#02H MOV A,#00H N5: MOV R0,A MOV P3,#0FFH MOV DPTR,#TABLE2 MOVC A,@A+DPTR MOV P3,A MOV R5,30H LCALL DELAY MOV A,R0 INC A DJNZ 40H,N5 AJMP MAIN DELAY: MOV A,P1 ;延时子程序(R5*25)ms MOV P1,#0FFH MOV R1,A ANL A,#01H JNZ DLV1 INC 30H DLV1: MOV A,R1 ANL A,#02H JNZ DLV2 DEC 30H DLV2: MOV A,R1 ANL A,#04H JNZ DLV3 LCALL MUSIC DLV3: MOV R7,#100 ;延时子程序25ms D1: MOV R3,#250 D2: DJNZ R3,$ DJNZ R7,D1 DJNZ R5,DELAY RET MUSIC: MOV TMOD,#11H ;设定时方式 MOV IE,#8AH ;开中断 START0: MOV 50H,#00H NEXT: MOV A,50H MOV DPTR,#TABLE MOVC A,@A+DPTR ;查表取音调和节拍 MOV R4,A JZ END1 ;为零,不进行处理. ANL A,#0FH MOV R2,A ;将节拍存入R2 MOV A,R4 SWAP A ANL A,#0FH JNZ SING ;根据音调决定是否演奏. CLR TR0;MOV TCON,#00H ;关闭定时 AJMP PAS1 ;RET SING: DEC A MOV 22H,A ;将音调存入22H. RL A MOV DPTR,#TABLE1 MOVC A,@A+DPTR ;根据音调决定定时器初值. MOV TH0,A ;放入TH0 MOV 21H,A MOV A,22H RL A INC A MOVC A,@A+DPTR MOV TL0,A ;放入TL0 MOV 20H,A SETB TR0 PAS1: MOV TH1,#0CH MOV TL1,#83H MOV 55H,#03H SETB TR1;MOV TCON,#50H ;启动定时 END0: RET END1: CLR P1.4 SJMP END0 ORG 000BH AJMP TIM0 ORG 0080H TIM0: CPL P1.4 ;定时器T0中断服务程序 MOV TL0,20H ;重赋初值. MOV TH0,21H RETI ORG 001BH AJMP TIM1 ORG 0180H TIM1: DJNZ 55H,DT ;定时器T1中断服务程序 MOV 55H,#03H DJNZ R2,TIM1 INC 50H L