51单片机 蜂鸣器 程序

ORG 0000H
AJMP START
ORG 001BH
AJMP TIME0
ORG 30H
START:
MOV TMOD,#00000001B
MOV TH0,#4CH
MOV TL0,#0D0H
SETB EA
SETB ET0
SETB TR0
LOP:

BEEP:



MOV 10H,#100
L1: SETB P2.3
ACALL DL239uS
CLR P2.3
ACALL DL239uS
DJNZ 10H,L1

MOV 11H,#100
L2: SETB P2.3
ACALL DL213uS
CLR P2.3
ACALL DL213uS
DJNZ 11H,L2

MOV 12H,#100
L3: SETB P2.3
ACALL DL186uS
CLR P2.3
ACALL DL186uS
DJNZ 12H,L3

MOV 13H,#100
L4: SETB P2.3
ACALL DL179uS
CLR P2.3
ACALL DL179uS
DJNZ 13H,L4

MOV 14H,#100
L5: SETB P2.3
ACALL DL169uS
CLR P2.3
ACALL DL169uS
DJNZ 14H,L5

MOV 15H,#100
L6: SETB P2.3
ACALL DL159uS
CLR P2.3
ACALL DL159uS
DJNZ 15H,L6


MOV 16H,#100
L7: SETB P2.3
ACALL DL146uS
CLR P2.3
ACALL DL146uS
DJNZ 16H,L7

MOV 17H,#100
L8: SETB P2.3
ACALL DL142uS
CLR P2.3
ACALL DL142uS
DJNZ 17H,L8


DINGSHI: MOV TMOD,#0;方式0
MOV TL1,#0CH
MOV TH1,#1EH
SETB TR1
LOP1:JBC TF1,LOP2
SJMP LOP1
LOP2:CLR TR1
MOV TL1,#0CH
MOV TH1,#1EH
CPL P2.3
SETB TR1
SJMP LOP1



DL239uS: MOV R0,#239
LOOP1: MOV R1,#1
NOP
LOOP2: DJNZ R1,LOOP2
DJNZ R0,LOOP1
RET

DL213uS: MOV R4,#213
LOOP3: MOV R5,#1
NOP
LOOP4: DJNZ R5,LOOP4
DJNZ R4,LOOP3
RET

DL186uS: MOV R4,#186
LOOP5: MOV R5,#1
NOP
LOOP6: DJNZ R5,LOOP6
DJNZ R4,LOOP5
RET

DL179uS: MOV R0,#179
LOOP7: MOV R1,#1
NOP
LOOP8: DJNZ R1,LOOP8
DJNZ R0,LOOP7
RET

DL169uS: MOV R4,#169
LOOP9: MOV R5,#1
NOP
LOOP10: DJNZ R5,LOOP10
DJNZ R4,LOOP9
RET

DL159uS: MOV R4,#159
LOOP11: MOV R5,#1
NOP
LOOP12: DJNZ R5,LOOP12
DJNZ R4,LOOP11
RET
DL146uS: MOV R4,#146
LOOP13: MOV R5,#1
NOP
LOOP14: DJNZ R5,LOOP14
DJNZ R4,LOOP13
RET

DL142uS: MOV R4,#142

LOOP15: MOV R5,#1
NOP
LOOP16: DJNZ R5,LOOP16
DJNZ R4,LOOP15

RET

AJMP LOP
TIME0:
PUSH ACC
PUSH PSW

MOV 10H,#50
L18: SETB P2.3
ACALL DL239uS
CLR P2.3
ACALL DL239uS
DJNZ 10H,L18

MOV TH0,#4CH
MOV TL0,#0D0H
POP PSW
POP ACC
RETI
END