红外遥控电子琴.doc

;用万能遥控器(16)的19键发送遥控数据，实验板(USB)接收 ;实验板连接扬声器，组成红外遥控电子琴 ;六位数码管同时显示一个数字，与遥控器按键号19相同BUF_LED EQU 40HKEYBUF EQU 30HSTH0 EQU 31HSTL0 EQU 32HTEMP EQU 33H ORG 00H LJMP START ORG 0003H AJMP INT ORG 0BH LJMP INT_T0START:MOV R0,#100 ;R0和R2做按下键后的音乐时间保持用MOV R2,#3SETB EX0 ;允许INT0中断MOV SP,#60HMOV DPTR,#TAB MOV TMOD,#01H ;T0定时器工作在模式116位定时器 SETB ET0 ;允许T0中断SETB EAACALL YS12MSAJMP $;INT:CLR EA ;关中断PUSH PSWPUSH ACCMOV R6,#7 ;以下为9ms时段内，多次检查是否是低电平SB:ACALL YS1JB P3.2,EXITDJNZ R6,SBJNB P3.2,$ ;等待9ms的结束，即4.5ms的开始ACALL YS2 ;延时约4.5ms (这里其实是4.735ms)MOV R7,#16 ;以下是屏蔽16位用户识别码JJA:JNB P3.2,$ACALL YS1MOV C,P3.2JNC UUAACALL YS3UUA:DJNZ R7,JJAMOV R1,#21H ;以下是将8位有效数据原码存入21H内存单元MOV R3,#8JJ:JNB P3.2,$ACALL YS1MOV C,P3.2JNC UUUACALL YS3UUU:MOV A,R1RRC AMOV R1,ADJNZ R3,JJACALL PDJZ ;调“判断键值”子程序EXIT:POP PSWPOP ACCSETB EA ;开中断RETI;PDJZ:MOV A,21H ;“判断键值”子程序 CJNE A,#01H,N1 ;若键值不是01H，则跳到N1看是否是02H MOV KEYBUF,#5 ;否则，若键值是01H，则将TABLE1中的第五个数【音乐1】赋给KEYBUF MOV BUF_LED,#1 ;将数字1送数码管显示 ACALL GCZ ;调“给初值”子程序 AJMP N9N1: MOV A,21H CJNE A,#02H,N2 MOV KEYBUF,#6 MOV BUF_LED,#2 ACALL GCZ AJMP N9N2: MOV A,21H CJNE A,#03H,N3 MOV KEYBUF,#7 MOV BUF_LED,#3 ACALL GCZ AJMP N9N3: MOV A,21H CJNE A,#04H,N4 MOV KEYBUF,#8 MOV BUF_LED,#4 ACALL GCZ AJMP N9N4: MOV A,21H CJNE A,#05H,N5 MOV KEYBUF,#9 MOV BUF_LED,#5 ACALL GCZ AJMP N9N5: MOV A,21H CJNE A,#06H,N6 MOV KEYBUF,#10 MOV BUF_LED,#6 ACALL GCZ AJMP N9N6: MOV A,21H CJNE A,#07H,N7 MOV KEYBUF,#11 MOV BUF_LED,#7 ACALL GCZ AJMP N9N7: MOV A,21H CJNE A,#08H,N8 MOV KEYBUF,#12 MOV BUF_LED,#8 ACALL GCZ AJMP N9N8: MOV A,21H CJNE A,#09H,N9 MOV KEYBUF,#13 MOV BUF_LED,#9 ACALL GCZN9: RETGCZ: ;“给初值”子程序 重新 为定时器T0赋初值 ACALL DISP ;调显示子程序 MOV A,KEYBUF ; 重新 为定时器T0赋初值 MOV B,#2 MUL AB MOV TEMP,A MOV DPTR,#TABLE1 MOVC A,A+DPTR MOV STH0,A MOV TH0,A INC TEMP MOV A,TEMP MOVC A,A+DPTR MOV STL0,A MOV TL0,A SETB TR0 RET;INT_T0: ;定时器T0中断子程序 MOV TH0,STH0 ;定时时间到，重新给T0赋初值 MOV TL0,STL0 CPL P1.1 ;求反P1.1得到音乐方波 CLR EX0 ;暂时关INT0中断，防止INT0开着时，音调中噪音太大 DJNZ R0,EXI ;以下四行为延时一段时间，保证遥控器按下后，扬声器响约1秒 MOV R0,#100 DJNZ R2,EXI MOV R2,#3 SETB EX0 ;开INT0中断，【1秒后再开INT0中断】 CLR TR0 ;禁止T0定时器启动【注意：不是关T0中断:CLR ET0】，扬声器响约1秒就停止 EXI:RETI;DISP: MOV R6,#6 MOV R1,#BUF_LED MOV DPTR,#TABLOPD: MOV A,R1 MOVC A,A+DPTR MOV SBUF,A JNB TI,$ CLR TI;INC R1 DJNZ R6,LOPD RETTAB:DB 88H,0beH,0c4H,94H,0b2H,91H,81H,0bcH,80H,90H ;显示0123456789代码TABLE1: DW 64021,64103,64260,64400 DW 64524,64580,64684,64777 DW 64820,64898,64968,65030 DW 65058,65110,65157,65178YS1:MOV R4,#20 ;665uSDD:MOV R5,#15DJNZ R5,$DJNZ R4,DDRETYS2:MOV R4,#10 ;4.735mSZZ:MOV R5,#235DJNZ R5,$DJNZ R4,ZZRETYS3:MOV R4,#2 ;1.003mSEE:MOV R5,#248DJNZ R5,$DJNZ R4,EERE