电子琴.asm

来自「51单片机实验用的程序 希望对你能有所帮助 包括跑马 十进制显 电子琴」· 汇编 代码 · 共 54 行

ORG  0000H
SJMP  MAIN1
ORG  001BH
LJMP TINT1
MAIN1:MOV P1,#04H
MOV  TMOD,#10H
SETB  EA
SETB  ET1
SETB  TR1
ATEST:SETB  C
MOV  R0,#0
MOV  P0,#0FFH
DO:MOV  A,P0
ROR:RRC A
JNC  MUS
INC  R0
CJNE  R0,#08H,ROR
SJMP  ATEST
MUS:MOV  A,R0
MOV  DPTR,#LEDAB
MOVC  A,@A+DPTR
MOV  P2,A
MOV  DPTR,#TAB
MOV  A,R0
RL A
PUSH  ACC
MOVC A,@A+DPTR
MOV  TH1,A
POP  ACC
INC  A
MOVC  A,@A+DPTR
MOV  TL1,A
ACALL  DAY
JMP  ATEST
TINT1:  CPL  P1.0
POP  DPH
POP  DPL
MOV  DPTR,#ATEST
PUSH  DPL
POP  DPH
RETI
DAY:MOV  R2,#0F0H
DL2:MOV  R3,#0F0H
DL1:NOP
NOP
DJNZ  R3,DL1
DJNZ  R2,DL2
RET
TAB:  DW  0F88H,0F95CH,0FA15H,0FA68H,0FB05H
     DW 0FB90H,0FC0CH,0FC44H
LEDAB:DB  06H,5BH,4FH,66H,6DH,7DH,07H,06H
END