各种汇编延时程序大集合

精确延时计算公式:

延时时间=[(2*第一层循环+3)*第二层循环+3]*第三层循环+5

;延时5秒左右
DELAY5S:PUSH04H
PUSH05H
PUSH06H
MOVR4,#50
DELAY5S_0:MOVR5,#200
DELAY5S_1:MOVR6,#245
DJNZR6,$
DJNZR5,DELAY5S_1
DJNZR4,DELAY5S_0
POP06H
POP05H
POP04H
RET

;513微秒延时程序
DELAY:MOVR2,#0FEH
DELAY1: DJNZR2,DELAY1
RET

;10毫秒延时程序
DL10MS: MOVR3,#14H
DL10MS1:LCALLDELAY
DJNZR3,DL10MS1
RET

;0.1s延时程序12mhz
DELAY: MOV R6,#250
DL1: MOV R7,#200
DL2: DJNZ R6,DL2
DJNZ R7,DL1
RET

;延时1046549微秒(12mhz)
;具体的计算公式是:
;((((r7*2+1)+2)*r6+1)+2)*r5+1+4 = ((r7*2+3)*r6+3)

*r5+5
DEL : MOVR5,#08H
DEL1: MOVR6,#0FFH
DEL2: MOVR7,#0FFH
DJNZR7,$
DJNZR6,DEL2
DJNZR5,DEL1
RET

;1秒延时子程序是以12MHz晶振
Delay1S:movr1,#50
del0:mov r2,#91
del1:mov r3,#100
djnz r3,$
djnz r2,del1
djnz r1,del0
Ret

;1秒延时子程序是以12MHz晶振为例算指令周期耗时
KK: MOVR5,#10;1指令周期1
K1: MOVR6,#0FFH;1指令周期10
K2: MOVR7,#80H;1指令周期256*10=2560
K3: NOP;1指令周期

128*256*10=327680
DJNZR7,K3;2指令周期

2*128*256*10=655360
DJNZR6,K2;2指令周期

2*256*10=5120
DJNZR5,K1;2指令周期2*10=20
RET
;2指令周期21+10+2560+327680+655360+5120+20+2=990753
;约等于1秒1秒=1000000微秒

;这个算下来也只有0.998抄
T_0:MOVR7,#10;
D1:MOVR6,#200;
D2:MOVR5,#248;
DJNZR5,$
DJNZR6,D2;
DJNZR7,D1;
RET

;这样算下来应该是1.000011秒
T_0:MOVR7,#10;
D1:MOVR6,#200;
D2:NOP
MOVR5,#248;
DJNZR5,$
DJNZR6,D2;
DJNZR7,D1;
RET

DELAY_2S:;10MS(11.0592mhz)
MOV R3,#200
JMP DELAY10MS
DELAY_100MS:;100MS(11.0592mhz)
MOV R3,#10
JMP DELAY10MS
DELAY_10MS:
MOV R3,#1
DELAY10MS:;去抖动10MS

(11.0592mhz)
MOV R4,#20
DELAY10MSA:
MOV R5,#247
DJNZ R5,$
DJNZ R4,DELAY10MSA
DJNZ R3,DELAY10MS
RET

DELAY_500MS:;500500MS
MOV R2,#208
JMP DELAY_MS
DELAY_175MS:;175MS
MOV R2,#73
JMP DELAY_MS
delaY_120MS:;120MS
MOV R2,#50
JMP DELAY_MS
delay_60ms:;60ms
MOV R2,#25
JMP DELAY_MS
delay_30ms:;30ms
MOV R2,#12
JMP DELAY_MS
DELAY_5MS:;5MS
MOV R2,#2
;===================================
DELAY_MS:
CALL DELAY2400
DJNZ R2,DELAY_MS
RET
;===================================
DELAY2400:;10x244+4=2447

/1.024=2390
MOVR0,#244;1
DELAY24001:
MUL AB;4
MUL AB;4
DJNZ R0,DELAY24001 ;2
RET

DELAY: ;延时子程序(1秒)
MOV R0,#0AH
DELAY1: MOV R1,#00H
DELAY2: MOV R2,#0B2H
DJNZ R2,$
DJNZ R1,DELAY2
DJNZ R0,DELAY1
RET

MOV R2,#10 ;延时1秒
LCALL DELAY
MOV R2,#50 ;延时5秒
LCALL DELAY
DELAY: ;延时子程序
PUSH R2
PUSH R1
PUSH R0
DELAY1: MOV R1,#00H
DELAY2: MOV R0,#0B2H
DJNZ R0,$
DJNZ R1,DELAY2 ;延时 100 mS
DJNZ R2,DELAY1
POP R0
POP R1
POP R2
RET

1:DEL:MOVR7,#200

DEL1:MOVR6,#123

NOP

DEL2:DJNZR6,DEL2

DJNZR7,DEL1

RET

是50.001ms 算法是:
0.001ms+200*0.001ms+200*0.001ms+200*123*0.002ms+200*0.002ms

;(123*2+4)*200+1

2: DEL: MOV R7, #200

DEL1: MOV R6, #123

DEL2:NOP

DJNZ R6,DEL2

DJNZ R7,DEL1

RET

D500MS:
PUSH PSW
SETB RS0
MOV R7,#200
D51: MOV R6,#250
D52: NOP
NOP
NOP
NOP
DJNZ R6,D52
DJNZ R7,D51
POP PSW
RET

DELAY: ;延时1毫秒
PUSH PSW
SETB RS0
MOV R7,#50
D1: MOV R6,#10
D2: DJNZ R6,$
DJNZ R7,D1
POP PSW
RET

ORG0
LJMPMAIN
ORG000BH
LJMPCTC0
MAIN:MOVSP, #50H
CLREA
MOVTMOD, #01H
MOVTH0,#3CH
MOVTL0,#0B0H
MOVR4,#10
SETBET0
SETBEA
SETBTR0
SJMP$;
CTC0:MOVTH0, #3CH
MOVTL0, #0B0H
DJNZR4, LP
CPLP1.0
MOVR4,#10
LP:RETI
END