电子琴程序.docVIP

P1口作为8个按键输入，其中P1.0-1.6作为七个音。P1.7是播放/弹奏切换按键。P3.3是喇叭输出。P2口连接七断数码管用于显示播放功能时的播放歌曲所在位置。 ;R5音调延时值;R6从内存中读到的数据 ;9H--TABLE1~11数据;20H--TL1初值;21H--TH1初值;22H--修正后的按键值;30H--TABLE1~11地址计数器 ;0AH--弹奏音调延时值;0BH--内存地址;0CH--读写到内存的数据;0DH--按键值;0EH--内存器件地址 PORT1 EQU P1 PORT2 EQU P2 SCK BIT P3.0 SDA BIT P3.1 ORG 0H SJMP MAIN ORG 0BH LJMP TIME0 ORG 1BH LJMP TIME1 ORG 30H ;-------------------------------------------------------------------------- MAIN: CLR TR0 CLR TR1 MOV SP,#4FH MOV R0,#100 CLR P3.4 LCALL DELAY5 MOV 9H,#0 MOV 0AH,#0 MOV 0BH,#0 MOV 0CH,#0 MOV TMOD,#11H MOV IE,#8AH MOV 0DH,#88H ;------------扫描放歌和弹奏建------------------------------------ XIAN: JB P3.2,QT1 ;没按下放歌建跳qt1 SETB P3.4 ;按下放歌建LED发光 LCALL DELAY1 LCALL DELAY1 JNB P3.2,$ ;放歌建没释放原地等待 LCALL DELAY1 LCALL DELAY1 Q1: LCALL SAO CJNE R0,#0,Q11 SJMP Q1 Q11: LCALL TRANF JZ MAIN MOV 0DH,A ;0DH=按键值 LJMP SING0 QT1: JB P3.3,QT4 ;没按弹奏建跳QT3 SETB P3.4 LCALL DELAY1 LCALL DELAY1 JNB P3.3,$ ;弹奏键没释放原地等待 LCALL DELAY1 LCALL DELAY1 QT2: LCALL SAO CJNE R0,#0,QT3 SJMP QT2 QT3: LCALL TRANF CJNE A,#0BH,QT11 ;若按键值=11转(B键)MAIN;!=11键转QT11 LJMP MAIN QT11: JC MAIN ;若按键值11转MAIN;11继续 CJNE A,#0CH,M4 ;若按键值!=12转M1;=12(C键)继续 ;即C键没按下转M1 MOV PORT1, JNB P1.3,$ ;若C键没释放原地等待 MOV 0BH,#0 LJMP LOOP ;输入乐曲存储并演奏 M4: LCALL DELAY1 LCALL DELAY1 LCALL RWX80 ;擦写内存数据;全部为1 LJMP MAIN QT4: LJMP XIAN ;返回重新扫描放歌和弹奏建 ;-------------------------------------------------------------------------- RWX80: CJNE A,#0DH,MM2 ;A!=13(D键)转M2;若为D键继续;D键没按下转M2 MOV 0EH,#0A2H ;0EH=162;0EH为24c16页地址 SJMP MM MM2: CJNE A,#0EH,MM3 ;A!=14(E键)转M3;E键没按下转M3 MOV 0EH,#0A4H ;0EH=164 SJMP MM MM3: MOV 0EH,#0A6H ;F键按下;0EH=166 MM: MO