NEXT BIT 10H
ORG 0000H
JMP MAIN
ORG 000BH
JMP TONE
ORG 001BH
JMP BEAT
ORG 0100H
MAIN: MOV TMOD,#11H MOV TH0,R2
MOV TL0,R3
MOV TH1,#3CH
MOV TL1,#0B0H
MOV R4,#00H
MOV DPTR,#TAB
YD:
三聚氰胺甲醛树脂MOV A,R4 ；取音调数据MOVC A,@A+DPTR
MOV R2,A
XRL A,#00H
JNZ JP ；直接取节拍
INC R4
CALL PD ；判断指针是否溢出MOV A,R4 MOVC A,@A+DPTR
MOV R3,A
XRL A,#0FFH
JZ JP
MOV A,R2
XRL A,#0FFH
JNZ MAIN
JP: INC R4 ；取节拍数据CALL PD
MOV A,R4
MOVC A,@A+DPTR
MOV R5,A
L1: SETB EA
SETB ET0
SETB ET1
SETB TR0
SETB TR1
SETB NEXT
熏洗仪
JB NEXT,$
INC R4
冶金
石灰CALL PD
JMP YD
催化剂12.1
MOV A,R4
电热画
CJNE A,#00H,L1
uvlo电路INC DPH RET ；音调产生子程序 TONE: CPL P2.0
MOV TH0,R2
MOV TL0,R3
RETI ；节拍产生子程序
BEA T: DJNZ R5,L2
MOV TH1,#3CH
MOV TL1,#0B0H
L3: RETI
L2:
CLR TR0
CLR TR1
CLR NEXT
JMP L3 ;
TAB:
DB 0FBH,0F9H,08H,0FCH,066H,08H,0FCH,0C7H,08H,0FBH,0F9H,08H DB 0FBH,0F9H,08H,0FCH,066H,08H,0FCH,0C7H,08H,0FBH,0F9H,08H DB 0FCH,0C7H,08H,0FCH,0F3H,08H,0FDH,4AH,10H,0FCH,0C7H,08H DB 0FCH,0F3H,08H,0FDH,4AH,08H,0FDH,4AH,04H,0FDH,95H,04H DB 0FDH,4AH,04H,0FCH,0F3H,04H,0FCH,0C7H,08H,0FBH,0F9H,08H DB 0FDH,4AH,04H,0FDH,95H,04H,0FDH,4AH,04H,0FCH,0F3H,04H DB 0FCH,0C7H,08H,0FBH,0F9H,08H,0FCH,66H,08H,0FAH,93H,08H DB 0FBH,0F9H,08H,00H,08H,0FCH,66H,04H,0FAH,93H,08H
DB 0FBH,0F9H,08H,00H,10H,0FFH,0FFH END
