单片机实训汇编电子琴程序

     H EQU 30H
     L EQU 31H

      ORG 0000H
      SJMP MAIN
      ORG 0BH
      SJMP INT_T0
      ORG 0030H
      SJMP MAIN

MAIN: MOV TMOD,#01H
      SETB EA
      SETB ET0
      MOV TH0,#0F9H
      MOV TL0,#21H
      SETB TR0
      MOV R2,#0
LOOP:MOV DPTR,#TAB
      MOV A,R2
      MOVC A,@A+DPTR
      MOV H,A
      MOV DPTR,#TAB2
      MOV A,R2
      MOVC A,@A+DPTR
      MOV L,A
      CALL DY
      INC R2
      CJNE R2,#7,LP
      MOV R2,#0

LP:   SJMP LOOP

DY:   MOV R7,#10
D2:   MOV R4,#187
D3:   MOV R3,#248
      DJNZ R3,$
      DJNZ R4,D3
      DJNZ R7,D2
      RET

INT_T0: MOV TH0,H
        MOV TL0,L
        CPL P0.4
        RETI

TAB:  DB 0F9H,0F9H,0FAH,0FAH,0FBH,0FBH,0FCH
TAB2: DB 21H,0E1H,8CH,0D8H,68H,0E9H,5BH
      END