51单片机各种汇编延时子程序整理汇总

　　延时程序在单片机编程中使用非常广泛，但一些读者在学习中不知道延时程序怎么编程，不知道机器周期和指令周期的区别，不知道延时程序指令的用法

　　我们知道程序设计是单片机开发最重要的工作，而程序在执行过程中常常需要完成延时的功能。例如在交通灯的控制程序中，需要控制红灯亮的时间持续30秒，就可以通过延时程序来完成。

　　1 秒延时子程序程序总共所需时间：1+10+2560+330240+660480+5120+20+2=998433 μs≈1S.

　　在这里运行这段程序共需998433 μs，还差1567μs 才达到1S 的，所以想要达到完美的1S 延时，需要在返回指令RET 前再添加一些指令让它把1567μs 的延时完成。

　　1秒延时子程序：

　　DEL：MOV R7，#10 ①

　　DEL1：MOV R6，#200 ②

　　DEL2：MOV R5，#248 ③

　　DJNZ R5，$ ④

　　DJNZ R6，DEL2 ⑤

　　DJNZ R7，DEL1 ⑥

　　RET ⑦

　　对每条指令进行计算得出精确延时时间为：

　　1+（1*10）+（1*200*10）+（2*248*200*10）+（2*200*10）+（2*10）+2

　　=［（2*248+3）*200+3］*10+3 ⑧

　　=998033μs≈1s

　　小提示：循环转移指令（DJNZ ）除了可以给定地址标号让其跳转外，还可以将地址标号改成$，这样程序就跳回本指令执行。例如：DJNZ R7，$ ；R7 内容减1 不为0，则再次执行本指令；为0 则往下执行，当R7 的值改为10时，则执行完该条程序所需的时间为2*10=20 μs。

　　MCS-51单片机的指令有单字节、双字节和三字节的，它们的指令周期不尽相同，一个单周期指令包含一个机器周期，即12个时钟周期，所以一条单周期指令被执行所占时间为12*（1/12000000）=1μs。

　　50ms 延时子程序：

　　DEL：MOV R7，#200 ①

　　DEL1：MOV R6，#125 ②

　　DEL2：DJNZ R6，DEL2 ③

　　DJNZ R7，DEL1 ④

　　RET ⑤

　　精确延时时间为：1+（1*200）+（2*125*200）+（2*200）+2

　　=（2*125+3）*200+3 ⑥

　　=50603μs

　　≈50ms

　　在论坛上看到不少不错的延时程序，整理如下共同分享：精确延时计算公式：延时时间=［（2*第一层循环+3）*第二层循环+3］*第三层循环+5

　　延时5秒左右

　　DELAY5S:PUSH 04H

　　PUSH 05H

　　PUSH 06H

　　MOV R4，#50

　　DELAY5S_0:MOV R5，#200

　　DELAY5S_1:MOV R6，#245

　　DJNZ R6，$

　　DJNZ R5，DELAY5S_1

　　DJNZ R4，DELAY5S_0

　　POP 06H

　　POP 05H

　　POP 04H

　　RET

　　513微秒延时程序

　　DELAY:MOV R2，#0FEH

　　DELAY1:DJNZ R2，DELAY1

　　RET

　　10毫秒延时程序

　　DL10MS:MOV R3，#14H

　　DL10MS1:LCALL DELAY

　　DJNZ R3，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:MOV R5，#08H

　　DEL1:MOV R6，#0FFH

　　DEL2:MOV R7，#0FFH

　　DJNZ R7，$

　　DJNZ R6，DEL2

　　DJNZ R5，DEL1

　　RET

　　1秒延时子程序是以12MHz晶振

　　Delay1S:mov r1，#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

　　DJNZ R7，K3;2指令周期

　　2*128*256*10=655360

　　DJNZ　R6，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）

　　MOVR3，#200

　　JMPDELAY10MS

　　DELAY_100MS：;100MS（11.0592mhz）

　　MOVR3，#10

　　JMPDELAY10MS

　　DELAY_10MS：

　　MOVR3，#1

　　DELAY10MS：;去抖动10MS

　　--------------------------------------------------------------------------------

　　（11.0592mhz）

　　MOVR4，#20

　　DELAY10MSA：

　　MOVR5，#247

　　DJNZR5，$

　　DJNZR4，DELAY10MSA

　　DJNZR3，DELAY10MS

　　RET

　　--------------------------------------------------------------------------------

　　DELAY_500MS：;500500MS

　　MOVR2，#208

　　JMPDELAY_MS

　　DELAY_175MS：;175MS

　　MOVR2，#73

　　JMPDELAY_MS

　　delaY_120MS：;120MS

　　MOVR2，#50

　　JMPDELAY_MS

　　delay_60ms：;60ms

　　MOVR2，#25

　　JMPDELAY_MS

　　delay_30ms：;30ms

　　MOVR2，#12

　　JMPDELAY_MS

　　DELAY_5MS：;5MS

　　MOVR2，#2

　　;===================================

　　DELAY_MS：

　　CALLDELAY2400

　　DJNZR2，DELAY_MS

　　RET

　　;===================================

　　DELAY2400：;10x244+4=2447

　　/1.024=2390

　　MOVR0，#244;1

　　DELAY24001：

　　MULAB;4

　　MULAB;4

　　DJNZR0，DELAY24001;2

　　RET

　　--------------------------------------------------------------------------------

　　DELAY：;延时子程序（1秒）

　　MOVR0，#0AH

　　DELAY1:MOVR1，#00H

　　DELAY2:MOVR2，#0B2H

　　DJNZR2，$

　　DJNZR1，DELAY2

　　DJNZR0，DELAY1

　　RET

　　MOVR2，#10;延时1秒

　　LCALLDELAY

　　MOVR2，#50;延时5秒

　　LCALLDELAY

　　DELAY：;延时子程序

　　PUSHR2

　　PUSHR1

　　PUSHR0

　　DELAY1:MOVR1，#00H

　　DELAY2:MOVR0，#0B2H

　　DJNZR0，$

　　DJNZR1，DELAY2;延时100mS

　　DJNZR2，DELAY1

　　POPR0

　　POPR1

　　POPR2

　　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:MOVR7，#200

　　DEL1:MOVR6，#123

　　DEL2:NOP

　　DJNZR6，DEL2

　　DJNZR7，DEL1

　　RET

　　--------------------------------------------------------------------------------

　　D500MS：

　　PUSHPSW

　　SETBRS0

　　MOVR7，#200

　　D51:MOVR6，#250

　　D52:NOP

　　NOP

　　NOP

　　NOP

　　DJNZR6，D52

　　DJNZR7，D51

　　POPPSW

　　RET

　　--------------------------------------------------------------------------------

　　DELAY：;延时1毫秒

　　PUSHPSW

　　SETBRS0

　　MOVR7，#50

　　D1:MOVR6，#10

　　D2:DJNZR6，$

　　DJNZR7，D1

　　POPPSW

　　RET

　　--------------------------------------------------------------------------------

　　ORG0

　　LJMPMAIN

　　ORG000BH

　　LJMP　CTC0

　　MAIN:MO

　　用汇编语言编写延时1小时的子程序

　　如果晶振是12M的话，一下方法可以实现延时1小时，精确度在秒级别。

　　DELAY1H：

　　MOV R7，#180 ;1/1000000

　　DLY1H：

　　LCALL DELAY_20S ;180*19.960603s +2*180

　　DJNZ R7，DLY1H ;2*180/1000000

　　RET 2/1000000

　　共延时时间：3592.9s误差为7.1秒，如果再精确的话，再加一点延时就可以了。

　　DELAY_20S： ;Total=19.960603s

　　MOV R2，# ;1

　　DLY1：

　　MOV R3，#200 ;1*200

　　DLY2： MOV R4，#248 ;1**200*200

　　DJNZ R4，$ ;2**248*200*200

　　DJNZ R3，DLY2 ;2*200*200

　　DJNZ R2，DLY1 ;2*200

　　RET ;2