newyear.a

来自「用8051单片机可实现音乐播放功能（以"新年好"为例）。如果安装了Proteus」· A 代码 · 共 53 行

	  ORG  0000H
	  LJMP  START
	  ORG  001BH
	  MOV  TH1,R1
	  MOV  TL1,R0
	  CPL  P1.0
	  RETI
	  ORG  0100H
START:MOV  TMOD,#10H
      MOV  IE,#88H
	  MOV  DPTR,#TAB
LOOP: CLR  A
      MOVC  A,@A+DPTR
	  MOV  R1,A
	  INC  DPTR
	  CLR  A
	  MOVC  A,@A+DPTR
	  MOV  R0,A
	  ORL  A,R1
	  JZ  NEXT0
	  MOV  A,R0
	  ANL  A,R1
	  CJNE  A,#0FFH,NEXT
	  SJMP START
NEXT: MOV  TH1,R1
      MOV  TL1,R0
	  SETB  TR1
	  SJMP  NEXT1
NEXT0: CLR  TR1
NEXT1: CLR  A
       INC  DPTR
	   MOVC  A,@A+DPTR
	   MOV  R2,A
LOOP1: LCALL  D200
       DJNZ  R2,LOOP1
	   INC  DPTR
	   AJMP  LOOP
D200:  MOV  R4,#81H
D200B: MOV  A,#0FFH
D200A: DEC  A
       JNZ  D200A
	   DEC  R4
	   CJNE  R4,#00H,D200B
	   RET
TAB:   DB  0FEH,25H,02H,0FEH,25H,02H,0FEH,25H,04H
       DB  0FDH,80H,04H,0FEH,84H,02H,0FEH,84H,02H
	   DB  0FEH,84H,04H,0FEH,25H,04H,0FEH,25H,02H
	   DB  0FEH,84H,02H,0FEH,0C0H,04H,0FEH,0C0H,04H
	   DB  0FEH,98H,02H,0FEH,84H,02H,0FEH,57H,04H,00H,00H,04H
	   DB  0FEH,57H,02H,0FEH,84H,02H,0FEH,98H,04H,0FEH,98H,04H,0FEH,84H,02H,0FEH,57H,02H,0FEH,84H,04H,0FEH,25H,04H
	   DB  0FEH,25H,02H,0FEH,84H,02H,0FEH,57H,04H,0FDH,80H,04H,0FEH,07H,02H,0FEH,57H,02H,0FEH,25H,04H,00H,00H,04H,00H,00H,04H
	   DB  0FFH,0FFH
	   END