Se necesita urgentemente un programa de música para microcontrolador, no las dos canciones "Te deseo paz y la fragancia de osmanthus en agosto", ¡porque ya las tengo y necesito otra! Gracias. . .
quiero remitir
;Two Tigers Music (usando el puerto P3.7 para controlar un altavoz)
ORG 0000H
LJMP MAIN
ORG 000BH
TIM0: MOV TH0, 40H
MOV TL0, 41H
CPL P3.7
RETI
PRINCIPAL : MOV TH0, #0A0H
MOV TL0, #0FFH
SETB ET0
MOV TMOD, #01H
SETB EA
SETB TR0
BUCLE:
MOV 40H, #0FCH
MOV 41H, #44H 1
LCALL; DELY
MOV 40H, #0FCH; 2
MOV 41H, #0ACH
LCALL DELY
MOV 40H, #0FDH
MOV 41H, #09H; 3
RETARDO DE LLAMADA
MOV 40H, #0FCH
MOV 41H, #44H; >
LCALL DELY
CLR EA
LCALL DELY
SETB EA
MOV 40H, #0FCH
MOV 41H, #44H; 1
RETARDO DE LLAMADA
MOV 40H, #0FCH 2
MOV 41H, #0ACH
MOV 40H, #0FDH
MOV 41H, #09H 3
RETARDO DE LLAMADA LC
MOV 40H, #0FCH
MOV 41H, #44H; 1
RETARDO DE LLAMADA
RETARDO DE LLAMADA
CLR EA
RETARDO DE LLAMADA
SETB EA
MOV 40H, #0FDH
MOV 41H, #09H 3
LCALL DELY
MOV 41H, #34H 4
RETRASO DE LLAMADA LC
>
MOV 40H, #0FDH
MOV 41H, #82H 5-
RETARDO DE LLAMADA
RETARDO DE LLAMADA
CLR; EA
LCALL DEYY
SETB EA
MOV 40H, #0FDH
MOV 41H, #82H;/5
RETARDO LLAMADA LC
MOV 40H, #0FDH;/6
MOV 41H, #0C7H
RETARDO LLAMADA LC
MOV 40H , #0FDH
MOV 41H, #82H /5
LCALL DELY
MOV 40H, #0FDH
MOV 41H, # 034H; /4
RETARDO DE LLAMADA
MOV 40H, #0FDH
MOV 41H, #09H
RETARDO DE LLAMADA
p> p>
MOV 40H, #0FCH
MOV 41H, #44H 1
LCALL DELY
CLR EA
SETB EA
MOV 40H, #0FDH
MOV 41H, #82H;/5
RETARDO LLAMADA LC
MOV 40H, #0FDH;/6
MOV 41H, #0C7H
LCALL DELY
MOV 40H, #0FDH
MOV 41H, #82H;/5
RETARDO DE LLAMADA LC
MOV 40H, #0FDH
MOV 41H, #034H;/4
LCALL DELY
MOV 40H, #0FDH
MOV 41H, #09H 3
LCALL DELY
MOV 40H; , # 0FCH
MOV 41H, #44H 1
LCALL DELY
CLR EA
LCALL DELY
SETB EA
MOV 40H, #0FCH
> MOV 41H, #44H; 1
RETARDO DE LLAMADA
MOV 40H, #0F6H
MOV 41H, #08H; > RETARDO LLAMADA
MOV 40H, #0FCH
MOV 41H, #44H 1-
RETARDO LLAMADA
RETARDO LLAMADA
p>
CLR EA
LCALL DELY
SETB EA
LJMP LOOP
DELYY: MOV R5, #02
D0: MOV R7, #080H
D1: MOV R6, #0DFH
D2: DJNZ R6, D2
DJNZ R7, D1
DJNZ R5, D0
RET
DELY: MOV R5, #02
D00: MOV R7, #0FFH
D11: MOV R6, #0DFH
D22: DJNZ R6, D22
DJNZ R7, D11
DJNZ R5, D00
RET
FIN