紅外遙控電子琴

1、;用萬能遙控器(16)的19鍵發(fā)送遙控數(shù)據(jù)，實驗板(USB)接收 ;實驗板連接揚聲器，組成紅外遙控電子琴 ;六位數(shù)碼管同時顯示一個數(shù)字，與遙控器按鍵號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,

2、#01H ;T0定時器工作在模式116位定時器 SETB ET0 ;允許T0中斷SETB EAACALL YS12MSAJMP $;INT:CLR EA ;關(guān)中斷PUSH PSWPUSH ACCMOV R6,#7 ;以下為9ms時段內(nèi)，多次檢查是否是低電平SB:ACALL YS1JB P3.2,EXITDJNZ R6,SBJNB P3.2,$ ;等待9ms的結(jié)束，即4.5ms的開始ACALL YS2 ;延時約4.5ms (這里其實是4.735ms)MOV R7,#16 ;以下是屏蔽16位用戶識別碼JJA:JNB P3.2,$ACALL YS1MOV C,P3.2JNC UUAACALL YS3

3、UUA:DJNZ R7,JJAMOV R1,#21H ;以下是將8位有效數(shù)據(jù)原碼存入21H內(nèi)存單元MOV R3,#8JJ:JNB P3.2,$ACALL YS1MOV C,P3.2JNC UUUACALL YS3UUU:MOV A,R1RRC AMOV R1,ADJNZ R3,JJACALL PDJZ ;調(diào)“判斷鍵值”子程序EXIT:POP PSWPOP ACCSETB EA ;開中斷RETI;PDJZ:MOV A,21H ;“判斷鍵值”子程序 CJNE A,#01H,N1 ;若鍵值不是01H，則跳到N1看是否是02H MOV KEYBUF,#5 ;否則，若鍵值是01H，則將TABLE1中的第

4、五個數(shù)【音樂1】賦給KEYBUF MOV BUF_LED,#1 ;將數(shù)字1送數(shù)碼管顯示 ACALL GCZ ;調(diào)“給初值”子程序 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:

5、 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 N9

6、N8: MOV A,21H CJNE A,#09H,N9 MOV KEYBUF,#13 MOV BUF_LED,#9 ACALL GCZN9: RETGCZ: ;“給初值”子程序 重新 為定時器T0賦初值 ACALL DISP ;調(diào)顯示子程序 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

7、_T0: ;定時器T0中斷子程序 MOV TH0,STH0 ;定時時間到，重新給T0賦初值 MOV TL0,STL0 CPL P1.1 ;求反P1.1得到音樂方波 CLR EX0 ;暫時關(guān)INT0中斷，防止INT0開著時，音調(diào)中噪音太大 DJNZ R0,EXI ;以下四行為延時一段時間，保證遙控器按下后，揚聲器響約1秒 MOV R0,#100 DJNZ R2,EXI MOV R2,#3 SETB EX0 ;開INT0中斷，【1秒后再開INT0中斷】 CLR TR0 ;禁止T0定時器啟動【注意：不是關(guān)T0中斷:CLR ET0】，揚聲器響約1秒就停止 EXI:RETI;DISP: MOV R6,#

8、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