趣味电子琴程序.doc

趣味电子琴 KEYBUF EQU 30H STH0 EQU 31H STL0 EQU 32H TEMP EQU 33H ORG 00H LJMP START ORG 0BH LJMP INT_T0 START MOV TMOD,#01H SETB ET0 SETB EA WAIT MOV P3,#0FFH CLR P3.4 MOV A,P3 ANL A,#0FH XRL A,#0FH JZ NOKEY1 LCALL DELY10MS MOV A,P3 ANL A,#0FH XRL A,#0FH JZ NOKEY1 MOV A,P3 ANL A,#0FH CJNE A,#0EH,NK1 MOV KEYBUF,#0 LJMP DK1 NK1 CJNE A,#0DH,NK2 MOV KEYBUF,#1 LJMP DK1 NK2 CJNE A,#0BH,NK3 MOV KEYBUF,#2 LJMP DK1 NK3 CJNE A,#07H,NK4 MOV KEYBUF,#3 LJMP DK1 NK4 NOP DK1 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 DK1A MOV A,P3 ANL A,#0FH XRL A,#0FH JNZ DK1A SETB P1.2 CLR TR0 NOKEY1 MOV P3,#0FFH CLR P3.5 MOV A,P3 ANL A,#0FH XRL A,#0FH JZ NOKEY2 LCALL DELY10MS MOV A,P3 ANL A,#0FH XRL A,#0FH JZ NOKEY2 MOV A,P3 ANL A,#0FH CJNE A,#0EH,NK5 MOV KEYBUF,#4 LJMP DK2 NK5 CJNE A,#0DH,NK6 MOV KEYBUF,#5 LJMP DK2 NK6 CJNE A,#0BH,NK7 MOV KEYBUF,#6 LJMP DK2 NK7 CJNE A,#07H,NK8 MOV KEYBU