music.asm

用51单片机编写的音乐程序(汇编格式)

ORG 0000H
JMP START
ORG 0BH
JMP TIM0
START: MOV TMOD,#00000001B
MOV IE,#10000010B
START0: MOV 30H,#00
NEXT: MOV A,30H
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV R2,A
JZ END0
ANL A,#0FH
MOV R5,A
MOV A,R2
SWAP A
ANL A,#0FH
JNZ SING
CLR TR0
JMP D1
SING:DEC A
MOV 22H,A
RL A
MOV DPTR,#TABLE1
MOVC A,@A+DPTR
MOV TH0,A
MOV 21H,A
MOV A,22H
RL A
INC A
MOVC A,@A+DPTR
MOV TL0,A
MOV 20H,A
SETB TR0
D1: CALL DELAY
INC 30H
JMP NEXT
END0: CLR TR0
JMP START0
TIM0: PUSH ACC
PUSH PSW
MOV TL0,20H
MOV TH0,21H
CPL P1.3
POP PSW
POP ACC
RETI
DELAY:MOV R7,#02
D2: MOV R4,#187
D3: MOV R3,#248
DJNZ R3,$
DJNZ R4,D3
DJNZ R7 ,D2
DJNZ R5,DELAY
RET
TABLE1: DW 64260,64400,64524,64580,64684,64777,64898
DW 64968,65030,65058,65110,65157,64021
TABLE: DB 02H,22H,22H,22H,62H,62H,62H,62H,62H
DB 52H,52H,52H,62H,42H,24H,02H
DB 54H,54H,52H,52H,64H
DB 42H,22H,24H,24H,24H
DB 02H,82H,82H,82H,82H,82H,82H,82H
DB 72H,62H,62H,62H,72H,64H,02H
DB 54H,54H,42H,54H,62H
DB 64H,64H,64H,02H,62H
DB 0A2H,0A2H,0A2H,92H,84H,02H,72H
DB 82H,82H,82H,72H,62H,74H,02H
DB 52H,52H,52H,52H,52H,52H,42H,22H
DB 52H,62H,62H,72H,64H,02H,62H
DB 0A2H,0A2H,0A2H,92H,84H,84H
DB 82H,82H,82H,62H,74H,02H,62H
DB 52H,52H,52H,52H,52H,52H,42H,22H
DB 52H,62H,62H,64H,62H,52H,42H
DB 54H,02H,22H,24H,24H
DB 24H,24H,24H,12H,22H
DB 64H,62H,72H,54H,52H,62H
DB 42H,22H,22H,14H,22H,24H
DB 28H,28H
DB 04H,04H,52H,62H,12H,0D2H
DB 04H,04H,02H,82H,82H,0A2H
DB 0B2H,0B2H,0B2H,0B2H,0B2H,0B2H,0B2H,0C2H
DB 0B2H,0A2H,82H,82H,84H,02H,82H
DB 82H,82H,82H,82H,82H,82H,82H,82H,0A2H
DB 82H,72H,72H,62H,64H,02H
DB 52H,62H,52H,44H,24H,62H
DB 52H,62H,52H,44H,24H,22H
DB 82H,82H,82H,82H,84H,62H,82H
DB 82H,72H,72H,74H,82H,82H,0A2H
DB 0B2H,0B2H,0B2H,0B2H,0B2H,0B2H,0B2H,0C2H
DB 0B2H,0A2H,82H,82H,84H,02H,72H
DB 82H,82H,82H,082H,84H,82H,0A2H
DB 82H,72H,72H,62H,64H,02H,62H
DB 52H,62H,52H,44H,24H,62H
DB 52H,62H,52H,44H,24H,22H
DB 82H,82H,82H,82H,82H,82H,82H,0A2H
DB 82H,72H,82H,74H,82H,82H,0A2H
DB 02H,22H,22H,22H,22H,74H,62H
DB 68H,68H
DB 54H,52H,62H,42H,24H,22H
DB 28H,28H
DB 02H,22H,22H,22H,82H,72H,72H,62H
DB 68H,68H
DB 0B4H,0B2H,0C2H,0A2H,84H,82H
DB 88H,88H
DB 00H
end