电子琴程序

;******有高中低音，可以自己通过按键弹奏乐曲    
        KEYBUF EQU 30H
        STH0   EQU 31H
        STL0   EQU 32H
        TEMP   EQU 33H
        ORG  0000H
        LJMP START
        ORG  000BH
        LJMP INT_T0
        ORG  0030H
START:     CLR P3.7        //将峰鸣器置低电平
         MOV  TMOD,#01H  //设置定时器T0工作于方式1
        SETB ET0      //开T0中断允许 
        SETB EA         //开中断允许总开关
WAIT:    MOV  P1,#0FFH//将P1口会置高电平
        CLR P1.4    //将P1.4清0
         MOV  A,P1    //读取P1口的值
        ANL A,#0FH//将P1口的值与0FH相与,保留低四位,屏蔽高四位
        XRL A,#0FH//将所得的值与0FH相异或,可得到按键值
        
        JZ NOKEY1//判断按下的是不是1号键
        LCALL DELY10MS//延时再判断(防止是误键)
         MOV  A,P1
        ANL A,#0FH
        XRL A,#0FH
        JZ NOKEY1
         MOV  A,P1
        ANL A,#0FH

        CJNE A,#0EH,NK1    //按下的键若不是1号键,则跳至NK1
         MOV  KEYBUF,#0
        LJMP DK1 //按下的是1号键,跳至DK1相应的处理程序

NK1:    CJNE A,#0DH,NK2//按下的键若不是2号键,则跳至NK2
         MOV  KEYBUF,#4
        LJMP DK1 //按下的是2号键,跳至DK1相应的处理程序

NK2:    CJNE A,#0BH,NK3//按下的键若不是3号键,则跳至NK3
         MOV  KEYBUF,#8
        LJMP DK1   //按下的是3号键,跳至DK1相应的处理程序

NK3:    CJNE A,#07H,NK4//按下的键若不是4号键,则跳至NK4
         MOV  KEYBUF,#12
        LJMP DK1  //按下的是4号键,跳至DK1相应的处理程序

NK4:    NOP
DK1:     MOV  A,KEYBUF //各键对应的处理程序
         MOV  DPTR,#TABLE//
         MOV C A,@A+DPTR
         MOV  P2,#80H
         MOV  P0,A
         MOV  A,KEYBUF
         MOV  B,#2
        MUL AB
         MOV  TEMP,A
         MOV  DPTR,#TABLE1
         MOV C A,@A+DPTR
         MOV  STH0,A
         MOV  TH0,A
        INC TEMP
         MOV  A,TEMP
         MOV C A,@A+DPTR
         MOV  STL0,A
         MOV  TL0,A
        SETB TR0

DK1A:    MOV  A,P1
        ANL A,#0FH
        XRL A,#0FH
        JNZ DK1A
        CLR TR0
NOKEY1:  MOV  P1,#0FFH
        CLR P1.5
         MOV  A,P1
        ANL A,#0FH
        XRL A,#0FH
        JZ NOKEY2
        LCALL DELY10MS
         MOV  A,P1
        ANL A,#0FH
        XRL A,#0FH
        JZ NOKEY2
         MOV  A,P1
        ANL A,#0FH
        CJNE A,#0EH,NK5
         MOV  KEYBUF,#1
        LJMP DK2
NK5:    CJNE A,#0DH,NK6
         MOV  KEYBUF,#5
        LJMP DK2
NK6:    CJNE A,#0BH,NK7
         MOV  KEYBUF,#9
        LJMP DK2
NK7:    CJNE A,#07H,NK8
         MOV  KEYBUF,#13
        LJMP DK2
NK8:    NOP
DK2:     MOV  A,KEYBUF
         MOV  DPTR,#TABLE
         MOV C A,@A+DPTR
         MOV  P2,#80H
         MOV  P0,A
         MOV  A,KEYBUF
         MOV  B,#2
        MUL AB
         MOV  TEMP,A
         MOV  DPTR,#TABLE1
         MOV C A,@A+DPTR
         MOV  STH0,A
         MOV  TH0,A
        INC TEMP
         MOV  A,TEMP
         MOV C A,@A+DPTR
         MOV  STL0,A
         MOV  TL0,A
        SETB TR0


DK2A:    MOV  A,P1
        ANL A,#0FH
        XRL A,#0FH
        JNZ DK2A
        CLR TR0
NOKEY2:  MOV  P1,#0FFH
        CLR P1.6
         MOV  A,P1
        ANL A,#0FH
        XRL A,#0FH
        JZ NOKEY3
        LCALL DELY10MS
         MOV  A,P1
        ANL A,#0FH
        XRL A,#0FH
        JZ NOKEY3
         MOV  A,P1
        ANL A,#0FH
        CJNE A,#0EH,NK9
         MOV  KEYBUF,#2
        LJMP DK3
NK9:    CJNE A,#0DH,NK10
         MOV  KEYBUF,#6
        LJMP DK3
NK10:   CJNE A,#0BH,NK11
         MOV  KEYBUF,#10
        LJMP DK3
NK11:   CJNE A,#07H,NK12
         MOV  KEYBUF,#14
        LJMP DK3
NK12:   NOP
DK3:     MOV  A,KEYBUF
         MOV  DPTR,#TABLE
         MOV C A,@A+DPTR
         MOV  P2,#80H
         MOV  P0,A
         MOV  A,KEYBUF
         MOV  B,#2
        MUL AB
         MOV  TEMP,A
         MOV  DPTR,#TABLE1
         MOV C A,@A+DPTR
         MOV  STH0,A
         MOV  TH0,A
        INC TEMP
         MOV  A,TEMP
         MOV C A,@A+DPTR
         MOV  STL0,A
         MOV  TL0,A
        SETB TR0

DK3A:    MOV  A,P1
        ANL A,#0FH
        XRL A,#0FH
        JNZ DK3A
        CLR TR0
NOKEY3:  MOV  P1,#0FFH
        CLR P1.7
         MOV  A,P1
        ANL A,#0FH
        XRL A,#0FH
        JZ NOKEY4
        LCALL DELY10MS
         MOV  A,P1
        ANL A,#0FH
        XRL A,#0FH
        JZ NOKEY4
         MOV  A,P1
        ANL A,#0FH
        CJNE A,#0EH,NK13
         MOV  KEYBUF,#3
        LJMP DK4
NK13:   CJNE A,#0DH,NK14
         MOV  KEYBUF,#7
        LJMP DK4
NK14:   CJNE A,#0BH,NK15
         MOV  KEYBUF,#11
        LJMP DK4
NK15:   CJNE A,#07H,NK16
         MOV  KEYBUF,#15
        LJMP DK4
NK16:   NOP
DK4:     MOV  A,KEYBUF
         MOV  DPTR,#TABLE
         MOV C A,@A+DPTR
         MOV  P2,#80H
         MOV  P0,A
         MOV  A,KEYBUF
         MOV  B,#2
        MUL AB
         MOV  TEMP,A
         MOV  DPTR,#TABLE1
         MOV C A,@A+DPTR
         MOV  STH0,A
         MOV  TH0,A
        INC TEMP
         MOV  A,TEMP
         MOV C A,@A+DPTR
         MOV  STL0,A
         MOV  TL0,A
        SETB TR0

DK4A:    MOV  A,P1
        ANL A,#0FH
        XRL A,#0FH
        JNZ DK4A
        CLR TR0
NOKEY4:  LJMP WAIT
DELY10MS: MOV  R6,#10
D1:       MOV  R7,#248
         DJNZ R7,$
         DJNZ R6,D1
         RET
INT_T0:   MOV  TH0,STH0
          MOV  TL0,STL0
         CPL P3.7
         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
         END