【文章內容簡介】 PTR MOV TL1,A ；音律表查詢值低八位賦值 ACALL DLAY AJMP KEYPRO ；跳轉回鍵盤掃描程序 TINT1: JB , FLUTE_ON ；判斷是否 跳到長笛音色檔 JB , PIANO_ON ；判斷是否調到鋼琴音色檔 JB , TRUMPET_ON ；判斷是否調到小號音色檔 JB , VIOLIN_ON ；判斷是否跳到小提琴音色檔 JB , PICCOLO_ON ；判斷是否跳到短笛音色檔 FLUTE_ON: ；若是長笛音色檔，則控制 口電壓變化 CPL POP DPH POP DPL PUSH DPL PUSH DPH RETI PIANO_ON: ；若是鋼琴琴音色檔，則控制 口電壓變化 CPL 21 POP DPH POP DPL PUSH DPL PUSH DPH RETI TRUMPET_ON: ；若是小號音色檔，則控制 口電壓變化 CPL POP DPH POP DPL PUSH DPL PUSH DPH RETI VIOLIN_ON: ；若是小提琴音色檔，則控制 口電 壓變化 CPL POP DPH POP DPL PUSH DPL PUSH DPH RETI PICCOLO_ON: ；若是短笛音色檔，則控制 口電壓變化 CPL POP DPH POP DPL PUSH DPL PUSH DPH RETI DLAY: MOV R2, 0F0H ；延時程序 DL2: MOV R3,0F0H DL1: NOP NOP DJNZ R3, DL1 DJNZ R2, DL2 RET TABLE1： ；音律表 DW 0F88BH ； 1 DW 0F95BH ； 2 DW 0FA14H ； 3 DW 0FA67H ； 4 DW 0FB07H ； 5 22 DW 0FB8FH ； 6 DW 0FB9EH ； 6 DW 0FC0BH ； 7 DW 0FC43H ； 1 DW 0FCACH ； 2 DW 0FD09H ； 3 DW 0FD33H ； 4 DW 0FD83H ； 5 DW 0FDC7H ； 6 DW 0FDE7H ； 6 DW 0FE05H ； 7 DW 0FE22H ； +1 DW 0FE56H ； +2 DW 0FE84H ； +3 DW 0FE9AH ； +4 DW 0FEC1H ； +5 DW 0FEE3H ； +6 DW 0FEF3H ； +6 DW 0FF02H ； +7 ORG 0F00H SUB_SONG: ；自動播放歌曲的子程序 1 EQU 0H 。低音域簡譜碼 2 EQU 1H 3 EQU 2H 4 EQU 3H 5 EQU 4H 6 EQU 5H 6 EQU 6H 7 EQU 7H 1 EQU 8H ；中音域簡譜碼 2 EQU 9H 3 EQU 0AH 4 EQU 0BH 5 EQU 0CH 6 EQU 0DH 6 EQU 0EH 7 EQU 0FH 23 +1 EQU 10H ；高音域簡譜碼 +2 EQU 11H +3 EQU 12H +4 EQU 13H +5 EQU 14H +6 EQU 15H +6 EQU 16H +7 EQU 17H FREQ_TEMP .EQU 31H TIME_TEMP .EQU 32H TH0_TEMP .EQU 33H TL0_TEMP .EQU 34H ORG 00H ；播放樂曲子程序的主程序 JMP START ORG OBH JMP TIMER0 START: MOV SP, 50H MOV IE, 10000010B ；中斷， EA=ET0=1 MOV TMOD, 00000001B 。 設定計數(shù)器 0 為 mode1 BEGIN: MOV A, 00H MOVC A,@A+DPTR ；取得簡譜碼 MOV FREQ_TEMP,A INC DPTR ；指向下一個地址 MOV A, 00H MOVC A, @A+DPTR ；取得節(jié)拍碼 MOV TIME_TEMP, A JZ STOP ；比較唱歌是否結 束 PUSH DPH PUSH DPL MOV A,FREQ_TEMP CJNE A, FFH, SING_SONG ；比較是否停止發(fā)音 CLR TR0 ；停止計時 JMP HOLD SING_SONG: 24 CLR TR0 ；停止計時 MOV DPTR, TABLE ；頻率值存放開始地址 MOV A, FREQ_TEMP ； RL A ； FREQ_TEMP 地址乘以 2 MOVC A, @A+DPTR ；取得頻率值高位組 MOV TH0,A ； TH0=頻率值高位組 MOV TH0_TEMP, A MOV A, FREQ_TEMP RL A ； FRE