【正文】 RG 1000HMAIN: MOV SP,70H LCALL INITIL 。內(nèi)存初始化WAIT: LCALL KEY LJMP WAIT KEY: 。鍵盤掃描 NOP NOP LCALL KS JNZ K1 。有按鍵轉到K1 MOV A,37H LCALL SOPXN: LJMP KEYK1: LCALL KS JNZ K2 LJMP KEYK2: 。讀鍵盤 MOV R2,0FEH MOV R4,00HK3: MOV A,R2 MOV P3,A MOV A,P3 JB ,L1 。為1跳轉，第一行無按鍵 MOV A,01H LJMP LKL1: JB ,L2 MOV A,04H LJMP LKL2: JB ,NEXT1 MOV A,07HLK: ADD A,R4 PUSH ACCK4: LCALL DELAY1 LCALL KS JNZ K4 。若同時有其他按鍵，則等待(同時按視為無效) MOV R3,07H CLR A MOV R0,30H MOV R1,31HMM1: MOV A,@R1 。鍵值給37H MOV @R0,A INC R0 INC R1 DJNZ R3,MM1 POP ACC MOV @R0,A RETNEXT1: INC R4 。列掃描 MOV A,R2 JNB ,N2 LJMP N1N2: LJMP KEYN1: RL A MOV R2,A LJMP K3KS: MOV A,0F0H 。判斷P1口 MOV P3,A NOP NOP MOV A,P3 CPL A ANL A,0F0H RETDELAY1:。 6341us10+1031us SETB RS0DL: MOV R5,0AHDL2: MOV R6,63DL3: NOP NOP DJNZ R6,DL3 DJNZ R5,DL2 CLR RS0 RET INITIL: 。30H~37H初值為零 MOV R3,08H MOV R0,30HM1: MOV @R0,00H INC R0 DJNZ R3,M1 CLR RET。按鍵值播放歌曲SOP: MOV A,37H CJNE A,01H,A11 MOV 52H,HIGH TABLE10 MOV 53H,LOW TABLE10 LCALL MAIN0A11: CJNE A,02H,A22 MOV 52H,HIGH TABLE20 MOV 53H,LOW TABLE20 LCALL MAIN0A22: CJNE A,03H,A33 MOV 52H,HIGH TABLE30 MOV 53H,LOW TABLE30 LCALL MAIN0 A33: CJNE A,04H,A44 MOV 52H,HIGH TABLE40 MOV 53H,LOW TABLE40 LCALL MAIN0A44: CJNE A,05H,A55 MOV 52H,HIGH TABLE50 MOV 53H,LOW TABLE50 LCALL MAIN0 A55: RET DELAY: MOV R4,05D1: MOV R5,0FFH DJNZ R5,$ DJNZ R4,D1 RET MAIN0: MOV TMOD,11H 。 播放歌曲程序 MOV IE,8AH MOV TH1,3CH MOV TL1,0B0H LCALL KS JNZ TTM12 MOV 40H,00HNEXT20: MOV A,40H MOV DPH,52H MOV DPL,53H MOVC A,@A+DPTR MOV R2,A JZ STOP ANL A,0FH MOV R1,A MOV A,R2 SWAP A ANL A,0FH JNZ SING CLR TR0 JMP W1SING: DEC A MOV 22H,A RL A MOV DPTR,TABLE00 MOVC A,@A+DPTR MOV TH0,A MOV 21H,A MOV A,22H RL A INC A MOVC A,@A+DPTR MOV TL0,A MOV 20H,A SETB TR0 SETB TR1W1: LCALL DELAY30 INC 40H LCALL KS 。有鍵跳出 JNZ STOP LJMP NEXT20STOP: CLR TR0 CLR TR1 CLR LJMP MAIN0 TTM12: LCALL K2 MOV A,37H CJNE A,08H,TTM13 。暫停 CLR TR1 CLR LCALL DELAY1TTM120: LCALL KS LCALL DELAY1 JZ TTM120 LCALL K2 MOV A,37H CJNE A,08H,TTM120 SETB TR1 LJMP NEXT20TTM13: CJNE A,09H,TTM14 。下一曲 MOV A,52H INC A MOV 52H,A MOV A,53H INC A MOV 53H,A MOV A,36H INC A MOV 37H,A LJMP TTM2TTM14: CJNE A,06H,TTM2 。 上一曲 MOV A,52H DEC A MOV 52H,A MOV A,53H DEC A MOV 53H,A MOV A,36H DEC A MOV 37H,A TTM2: RETTT0: PUSH ACC 。 定時器中斷子程序0 PUSH PSW MOV TL0,20H MOV TH0,21H CPL 。獲得脈沖 POP PSW POP ACC RETI。定時器中斷子程序1T1INT: MOV TH1, 3cH MOV TL1, 0b0H RETIDELAY30: MOV R7,2W2: MOV R4,125W3: MOV R3,248 DJNZ R3,$ DJNZ R4,W3 DJNZ R7,W2 DJNZ