【文章內(nèi)容簡介】 IN: LCALL TRANF SWAP A MOV 09H,A SWAP A CJNE A,0,ZZZ 。非0鍵轉(zhuǎn)ZZZ CLR TR1 CLR TR0 LJMP ZZZZ 。0鍵轉(zhuǎn)ZZZZZZZ: DEC A 。A為按鍵值。因從1鍵值音調(diào)序號對應TABLE頻率表0位置。故減1 MOV 22H,A 。22H存修正后(A=A1)的按鍵值 CLR C RLC A 。A*2因TABLE一個單元為2字節(jié)(1字),指向該單元的第1個字節(jié) MOV DPTR,TABLE MOVC A,@A+DPTR MOV TH1,A 。TH1賦初值 MOV 21H,A 。TH1初值存21H MOV A,22H CLR C RLC A 。A*2因TABLE一個單元為2字節(jié)(1字) INC A 。指向該單元的第2個字節(jié) MOVC A,@A+DPTR MOV TL1,A 。TL1賦初值 MOV 20H,A 。TL1初值存20H MOV TH0,0C2H MOV TL0,0F6H SETB TR0 SETB TR1ZZZZ: MOV A,PORT1 ORL A,0F0H CJNE A,0FFH,ZZZZ CLR TR0 CLR TR1 MOV A,0AH 。彈奏樂譜頻率延遲值賦A CLR C RRC A CLR C RRC A CLR C RRC A 。彈奏樂譜頻率延遲值/8 CJNE A,0FH,NODE SJMP DDDNODE: JC DDD MOV A,0FH 。彈奏樂譜頻率延遲值/8后。若15則=15DDD: ORL 09H,A 。 MOV 0AH,0WWW: MOV A,09H MOV 0CH,A LCALL WBAY LCALL DELAY5 INC 0BH LJMP LOOP。頻率延時DELAY: MOV R7,125DLY2: MOV R4,02DLY3: MOV R3,248 DJNZ R3,$ DJNZ R4,DLY3 DJNZ R7,DLY2 DJNZ R5,DELAY RET。延時DELAY1: MOV R7,30 MOV R6,0S1: DJNZ R6,$ DJNZ R7,S1 RETDELAY5: MOV R7,10 MOV R6,0S5: DJNZ R6,$ DJNZ R7,S5 RET。掃描按鍵子程序SAO: MOV R0,4 MOV R3,11101111B MOV R2,11111111BNLINE1: MOV A,R3 MOV PORT1,A MOV A,PORT1 ORL A,0F0H CJNE A,0FFH,KEYIN1 MOV A,R3 RL A MOV R3,A DJNZ R0,NLINE1 RETKEYIN1: LCALL DELAY1 LCALL DELAY1 LCALL DELAY1 LCALL NOPEN RET。按鍵延時NOPEN: MOV A,PORT1 MOV R2,A ORL A,0F0H CJNE A,0FFH,NOPEN1 SJMP NOPENNOPEN1: LCALL DELAY1 LCALL DELAY1 RET。鍵盤碼轉(zhuǎn)換為按鍵值TRANF: MOV B,0 MOV A,R2 C1: RRC A JNC C2 。C=0跳C2 INC B INC B INC B INC B 。B=B+4 LJMP C1C2: MOV A,R2 RR A RR A RR A RR AC3: RRC A JNC C4 INC B LJMP C3C4: MOV A,B 。B為按鍵值 RET。按鍵值散轉(zhuǎn)表TAB:DB 0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,88H,83H,0C6H,0A1H,86H,8EH,0FFHSING0: MOV 30H,00H 。30H為TABLE1~11地址計數(shù)器NEXT: MOV A,0DHMOV DPTR,TABMOVC A,@A+DPTRMOV P1,ASETB KEY1CLR KEY1MOV A,0DH CJNE A,1,NN1 MOV DPTR,TABLE1 LJMP WWNN1: CJNE A,2,NN2 MOV DPTR,TABLE2 LJMP WWNN2: CJNE A,3,NN3 MOV DPTR,TABLE3 LJMP WWNN3: CJNE A,4,NN4 MOV DPTR,TABLE4 LJMP WWNN4: CJNE A,5,NN5 MOV DPTR,TABLE5 LJMP WWNN5: CJNE A,6,NN6 MOV DPTR,TABLE6 LJMP WWNN6: CJNE A,7,NN7 MOV DPTR,TABLE7 LJMP WWNN7: CJNE A,8,NN8 MOV DPTR,TABLE8 LJMP WWNN8: CJNE A,9,NN9 MOV DPTR,TABLE9 LJMP WWNN9: CJNE A,10,NN10 MOV DPTR,TABLE10 LJMP WWNN10: CJNE A,11,NN11 MOV DPTR,TABLE11 LJMP WWNN11: CJNE A,12,NN12 MOV 0EH,0A1H MOV 0BH,0 LJMP NNNN12: CJNE A,13,NN13 。MOV 0EH,0A3H 。MOV 0BH,0H LJMP MAINNN13: CJNE A,14,NN14 。MOV 0EH,0A5H 。MOV 0BH,0H LJMP MAINNN14: CJNE A,15,NN 。MOV 0EH,0A7H 。MOV 0BH,00H LJMP MAIN。NN: LCALL RBAY 。讀內(nèi)存 NNT: MOV A,R6 。R6為從內(nèi)存中讀到的數(shù)據(jù) LJMP IIC。奏樂WW: MOV A,30H JZ WW0 MOVC A,@A+DPTR SJMP IICWW0: MOVC A,@A+DPTR MOV 30H,1 MOV 31H,A SJMP WWIIC: MOV P1,ANOPMOV R2,A JZ ENDF 。A=00 結(jié)束標志跳ENDF程序重新開始 ANL A,0FH 。低4位為延時值 MOV R5,A 。R5延時值。頻率延時(DELAY