【正文】 YBUF MOV DPTR,TABLE MOVC A,@A+DPTR MOV P0,A MOV A,KEYBUF 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 DK3A: MOV A,P2 ANL A,0FH XRL A,0FH JNZ DK3A CLR TR0 NOKEY3: MOV P2,0FFH CLR MOV A,P2 ANL A,0FH XRL A,0FH JZ NOKEY4 LCALL DELY10MS MOV A,P2 ANL A,0FH XRL A,0FH JZ NOKEY4 MOV A,P2 ANL A,0FH CJNE A,0EH,NK13 MOV KEYBUF,12 LJMP DK4 NK13: CJNE A,0DH,NK14 MOV KEYBUF,13 LJMP DK4 NK14: CJNE A,0BH,NK15 MOV KEYBUF,14 LJMP DK4 NK15: CJNE A,07H,NK16 MOV KEYBUF,15 LJMP DK4 NK16: NOP DK4: MOV A,KEYBUF MOV DPTR,TABLE MOVC A,@A+DPTR MOV P0,A MOV A,KEYBUF 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 DK4A: MOV A,P2 ANL A,0FH XRL A,0FH JNZ DK4A CLR TR0 NOKEY4: JNB ,MUSIC LJMP WAIT MUSIC: MOV R3,00HNEXT: MOV A,R3 MOV DPTR,TABLE2 MOVC A,@A+DPTR JZ MUSIC MOV R7,A INC R3 MOV A,R3 MOVC A,@A+DPTR MOV R2,A ACALL SONG INC R3 SJMP NEXT。=============================================================================== 。=== 歌曲播放子程序 ===SONG: MOV A,R2 。 取出節(jié)拍 RL A JNZ KEEP MOV A,01HKEEP: MOV R2,AREPEAT: ACALL EIGHTH DJNZ R2,REPEAT RET 。=============================================================================== 。=== 產生1/8拍延時子程序 === EIGHTH: MOV A,R7 。 查表取出廷時參數,保存到R4 MOV DPTR,DELAY_T MOVC A,@A+DPTR MOV R4,A MOV A,R7 。 查表取出1/8拍周期數,保存到R5 MOV DPTR,S_PARA MOVC A,@A+DPTR MOV R5,ANEXTCYC: ACALL SOUND DJNZ R5,NEXTCYC RET 。=============================================================================== 。=== 發(fā)聲子程序 === SOUND: SETB SPK ACALL SDELAY CLR SPK ACALL SDELAY RET 。=============================================================================== 。=== 延時子程序 ===SDELAY: MOV A,R4 。 廷時值在R4內 MOV R0,AXL2: MOV R1,03HDL1: NOP DJNZ R1,DL1 DJNZ R0,XL2 RET。=============================================================================== 。=== 1/8拍周期表 ===S_PARA: DS 1DH DB 15H,16H,00 DB 19H,00H,1CH,00H,1FH,21H,00H,25H DB 00H,29H,2CH,00H,31H,34H,37H,00H DB 3EH,41H,00H,49H,00H,52H,57H,00H DB 62H 。=============================================================================== 。=== 延時參數表 ===DELAY_T: DS 1DH DB 7EH,77H,00H DB 6AH,00H,5EH,00H,54H,4FH,00H,46H DB 00H,3FH,3BH,00H,35H,32H,2FH,00H DB 2AH,27H,00H,23H,00H,1FH,1DH,0C0H DB 1AHDELY10MS: MOV R6,10 D1: MOV R7,248 DJNZ R7,$ DJNZ R6,D1 RET INT_T0: MOV TH0,STH0 MOV TL0,STL0 CPL RETI TABLE: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H DB 7FH,6FH,77H,7CH,39H,5EH,79H,71H TABLE1: DW 64021,64103,64260,64400 DW 64524,64580,64684,64777 DW 64820,64898,64968,65030 DW 65058,65110,65157,65178 。=============================================================================== 。=== 歌曲表 ===TABLE2: DW 2202H,2902H,2902H,2902H,2906H,2702H 。我從山中來 DW 2502H,2702H,2502H,2402H,2208H 。帶著蘭花草 DW 2E02H,2E02H,2E02H,2E02H,2E06H,2C02H 。種在小園中 DW 2902H,2C02H,2D02H,2A02H,2908H 。祈禱花開早 DW 2902H,2E02H,2E02H,2C02H,2906H,2702H 。一日看三回 DW 2502H,2702H,2502H,2402H,2206H,1D02H ?？吹没〞r過 DW 1D02H,2502H,2502H,2402H,2206H,2902H 。蘭花卻依然 DW 2702H,2502H,2402H,2002H,2208H 。苞也無一個 DW 0000H 。 END 28