單片機實訓匯編電子琴程序

ID:90014 · 發(fā)表于 2015-9-16 00:21

   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

帳號		自動登錄	找回密碼
密碼			立即注冊