标题: 单片机数字式温度测量 [打印本页]

---

作者: anheipaidaxing    时间: 2020-6-30 21:00
标题: 单片机数字式温度测量
基本要求：利用单片机AT89C51基于数字温度传感器设计数字温度计，能对模拟信号进行检测，能将所测量的温度在LED显示器上显示。测量范围为20℃～ 120℃
创新：具有方便的键盘操作功能；温度超出界限时具有报警功能等。



仿真


程序如下：

1. TEMP_ZH DATA 24H
   
2. TEMPL DATA 25H
   
3. TEMPH DATA 26H
   
4. TEMP_TH DATA 27H
   
5. TEMP_TL DATA 28H
   
6. TEMPHC DATA 29H
   
7. TEMPLC DATA 2AH
   
8. K1 EQU P1.4
   
9. K2 EQU P1.5
   
10. K3 EQU P1.6
    
11. K4 EQU P1.7
    
12. BEEP EQU P3.6
    
13. RELAY EQU P3.7
    
14. LCD_X EQU 2FH
    
15. LCD_RS EQU P2.0
    
16. LCD_RW EQU P2.1
    
17. LCD_EN EQU P2.2
    
18. flag1 EQU 20H.0
    
19. KEY_UD EQU 20H.1
    
20. date_line EQU P3.3
    
21. ;========================================================================
    
22. ORG 0000H
    
23. JMP MAIN
    
24. MAIN:
    
25.      MOV SP,#60H;
    
26.   MOV A,#00H;
    
27.   MOV R0,#20H;
    
28.   MOV R1,#10H;
    
29. CLEAR:
    
30.   MOV @R0,A;
    
31.   INC R0;
    
32.   DJNZ R1,CLEAR;
    
33.   CALL SET_LCD;
    
34.   CALL RE_18B20;
    
35.   
    
36.   
    
37. start:
    
38.   CALL RESET;
    
39.   JNB flag1,START1;
    
40.   CALL MENU_OK;
    
41.   CALL READ_E2;
    
42.   CALL TEMP_BJ;
    
43.   JMP START2;
    
44. START1:
    
45.   CALL MENU_ERROR;
    
46.   CALL TEMP_BJ;
    
47.   JMP $;
    
48. START2:
    
49.      CALL RESET;
    
50.   JNB FLAG1,START1;
    
51.   MOV A,#0CCH;
    
52.   CALL WRITE;
    
53.   MOV A,#44H;
    
54.   CALL WRITE;
    
55.   CALL RESET;
    
56.   MOV A,#0CCH;
    
57.   CALL WRITE;
    
58.   MOV A,#0BEH;
    
59.   CALL WRITE;
    
60.   CALL READ;
    
61.   call CONVTEMP;
    
62.   Call DISPBCD;
    
63.   CALL CONV;
    
64.   CALL TEMP_COMP;
    
65.   CALL PROC_KEY;
    
66.   
    
67.   SJMP START2;
    
68.   
    
69. PROC_KEY:
    
70.      JB K1,PROC_K1;
    
71.   CALL BEEP_BL;
    
72.   JNB K1,$;
    
73.   MOV DPTR,#M_ALAX1;
    
74.   MOV A,#1;
    
75.   CALL LCD_PRINT;
    
76.   CALL LOOK_ALARM;
    
77.   JB K3,$;
    
78.   CALL BEEP_BL;
    
79.   JMP PROC_K2;
    
80. PROC_K1:
    
81.   JB K2,PROC_END;
    
82.   CALL BEEP_BL;
    
83.   JNB K2,$;
    
84.   MOV DPTR,#RESET_A1;
    
85.   MOV A,#1;
    
86.   CALL LCD_PRINT;
    
87.   CALL SET_ALARM;
    
88.   CALL RE_18B20;
    
89.   CALL WRITE_E2;
    
90. PROC_K2:
    
91.      CALL MENU_OK;
    
92.   CALL TEMP_BJ;
    
93. PROC_END:
    
94.      RET
    
95. ;============================================================
    
96. SET_ALARM:
    
97.      CALL RESET_ALARM;
    
98.   CALL LOOK_ALARM;
    
99. AS0:
    
100.   JB K1,AS00;
     
101.   CALL BEEP_BL;
     
102.   JNB K1,$;
     
103.   CPL 20H.1;
     
104. AS00:
     
105.   JB 20H.1,ASZ01;
     
106.   JMP ASJ01;
     
107. ASZ01:
     
108.   JB K2,ASZ02;
     
109.   CALL BEEP_BL;
     
110.   INC TEMP_TH;
     
111.   MOV A,TEMP_TH;
     
112.   CJNE A,#120,ASZ011;
     
113.   MOV TEMP_TH,#0;
     
114. ASZ011:
     
115.   CALL LOOK_ALARM;
     
116.   MOV R5,#10;
     
117.   CALL DELAY;
     
118.   JMP ASZ01;
     
119. ASZ02:
     
120.   JB K3,ASZ03;
     
121.   CALL BEEP_BL;
     
122.   INC TEMP_TL;
     
123.   MOV A,TEMP_TL;
     
124.   CJNE A,#99,ASZ021;
     
125.   MOV TEMP_TL,#00H;
     
126. ASZ021:
     
127.   CALL LOOK_ALARM;
     
128.   MOV R5,#10;
     
129.   CALL DELAY;
     
130.   JMP ASZ02;
     
131. ASZ03:
     
132.   JB K4,AS0;
     
133.   CALL BEEP_BL;
     
134.   JNB K4,$;
     
135.   RET
     
136. ASJ01:
     
137.     JB K2,ASJ02;
     
138. CALL BEEP_BL;
     
139. DEC TEMP_TH;
     
140. MOV A,TEMP_TH;
     
141. CJNE A,#0FFH,ASJ011;
     
142. JMP ASJ022;
     
143. ASJ011:
     
144. CALL LOOK_ALARM;
     
145. MOV R5,#10;
     
146. CALL DELAY;
     
147. JMP AS0;
     
148. ASJ02:
     
149. JB K3,ASJ03;
     
150. CALL BEEP_BL;
     
151. DEC TEMP_TL;
     
152. MOV A,TEMP_TL;
     
153. CJNE A,#0FFH,ASJ021;
     
154. JMP ASJ022;
     
155. ASJ021:
     
156. CALL LOOK_ALARM;
     
157. MOV R5,#10;
     
158. CALL DELAY;
     
159. JMP AS0;
     
160. ASJ022:
     
161. CPL 20H.1;
     
162. JMP ASZ01;
     
163. ASJ03:
     
164.     JMP ASZ03;
     
165. RET
     
166. RESET_ALARM:
     
167.     MOV DPTR,#RESET_A1;
     
168. MOV A,#1;
     
169. CALL LCD_PRINT;
     
170. RET
     
171. RESET_A1:
     
172.     DB "RESET ALERT CODE";
     
173. ;==================================================================
     
174. TEMP_COMP:
     
175.     MOV A,TEMP_TH;
     
176. SUBB A,TEMP_ZH;
     
177. JC CHULI1;
     
178. MOV A,TEMP_ZH;
     
179. SUBB A,TEMP_TL;
     
180. JC CHULI2;
     
181. MOV DPTR,#BJ5;
     
182. CALL TEMP_BJ3;
     
183. CLR RELAY;
     
184. RET
     
185. CHULI1:
     
186.     MOV DPTR,#BJ3;
     
187. CALL TEMP_BJ3;
     
188. SETB RELAY;
     
189. CALL BEEP_BL;
     
190. RET
     
191. CHULI2:
     
192.     MOV DPTR,#BJ4;
     
193. CALL TEMP_BJ3;
     
194. CALL BEEP_BL;
     
195. RET
     
196. ;-------------------------------
     
197. TEMP_BJ3:
     
198.     MOV A,#0CEH;
     
199. CALL WCOM;
     
200. MOV R1,#0;
     
201. MOV R0,#2;
     
202. BBJJ3:
     
203.     MOV A,R1;
     
204. MOVC A,@A+DPTR;
     
205. CALL WDATA;
     
206. INC R1;
     
207. DJNZ R0,BBJJ3;
     
208. RET
     
209. BJ3:
     
210.     DB ">H";
     
211. BJ4:
     
212.     DB "<L";
     
213. BJ5:
     
214.     DB "!";
     
215. ;====================================================================
     
216. TEMP_BJ:
     
217.     MOV A,#0CBH;
     
218. CALL WCOM;
     
219. MOV DPTR,#BJ1;
     
220. MOV R1,#0;
     
221. MOV R0,#2;
     
222. BBJJ1:
     
223. MOV A,R1;
     
224. MOVC A,@A+DPTR;
     
225. CALL WDATA;
     
226. INC R1;
     
227. DJNZ R0,BBJJ1;
     
228. RET
     
229. BJ1:
     
230.     DB 00H,"C";
     
231. ;==================================
     
232. MENU_OK:
     
233.     MOV DPTR,#M_OK1;
     
234. MOV A,#1;
     
235. CALL LCD_PRINT;
     
236. MOV DPTR,#M_OK2;
     
237. MOV A,#2;
     
238. CALL LCD_PRINT;
     
239. RET
     
240. M_OK1:
     
241.     DB "DS18B20 OK",0
     
242. M_OK2:
     
243.     DB "TEMP:",0
     
244. ;------------------------------------
     
245. MENU_ERROR:
     
246.     MOV DPTR,#M_ERROR1;
     
247. MOV A,#1;
     
248. CALL LCD_PRINT;
     
249. MOV DPTR,#M_ERROR2;
     
250. MOV A,#2;
     
251. CALL LCD_PRINT;
     
252. RET
     
253. M_ERROR1:
     
254.     DB "DS18B20 ERROR",0;
     
255. M_ERROR2:
     
256.     DB "TEMP:----",0;
     
257. ;====================================
     
258. reset:
     
259.     setb date_line;
     
260. nop
     
261. clr date_line;
     
262. mov r0,#6bh;
     
263. mov r1,#04h;
     
264. tsr1:
     
265. djnz r0,$;
     
266. mov r0,#6bh;
     
267. djnz r1,tsr1;
     
268. setb date_line;
     
269. nop
     
270. nop
     
271. nop
     
272. mov r0,#32h;
     
273. tsr2:
     
274. jnb date_line,tsr3;
     
275. djnz r0,tsr2;
     
276. jmp tsr4;
     
277. tsr3:
     
278. setb flag1;
     
279. jmp tsr5;
     
280. tsr4:
     
281. clr flag1;
     
282. jmp tsr7;
     
283. tsr5:
     
284. mov r0,#06bh;
     
285. tsr6:
     
286. djnz r0,$;
     
287. tsr7:
     
288. setb date_line;
     
289. ret
     
290. ;====================================
     
291. RE_18B20:
     
292.     JB FLAG1,RE_18B20A;
     
293. RET
     
294. RE_18B20A:
     
295.     CALL RESET;
     
296. MOV A,#0CCH;
     
297. LCALL WRITE;
     
298. MOV A,#4EH;
     
299. LCALL WRITE;
     
300. MOV A,TEMP_TH;
     
301. LCALL WRITE;
     
302. MOV A,TEMP_TL;
     
303. LCALL WRITE;
     
304. MOV A,#7FH;
     
305. LCALL WRITE;
     
306. RET
     
307. ;------------------------------------
     
308. WRITE_E2:
     
309.     CALL RESET;
     
310. MOV A,#0CCH;
     
311. LCALL WRITE;
     
312. MOV A,#48H;
     
313. CALL WRITE;
     
314. RET
     
315. ;------------------------------------
     
316. READ_E2:
     
317.     CALL  RESET;
     
318. MOV A, #0CCH;
     
319. LCALL WRITE;
     
320. MOV A, #0B8H;
     
321. CALL WRITE;
     
322. RET
     
323. ;------------------------------------------------------------------------
     
324. STORE_DATA:
     
325.     MOV A,#40H;
     
326. CALL WCOM;
     
327. MOV R2,#08H;
     
328. MOV DPTR,#D_DATA;
     
329. MOV R3,#00H;
     
330. S_DATA:
     
331.     MOV A,R3;
     
332. MOVC A,@A+DPTR;
     
333. CALL WDATA;
     
334. INC R3;
     
335. DJNZ R2,S_DATA;
     
336.     RET
     
337. D_DATA:
     
338.     DB 0CH,12H,12H,0CH,00H,00H,00H,00H;10h,06h,09h,08h,08h,09h,06h,00h;
     
339. ;======================================================================
     
340. write:
     
341. mov r2,#8;
     
342. CLR C;
     
343. wr1:
     
344.     clr date_line;
     
345. mov r3,#07;
     
346. djnz r3,$;
     
347. rrc a;
     
348. mov date_line,c;
     
349. mov r3,#3CH;
     
350. djnz r3,$;
     
351. setb date_line;
     
352. nop
     
353. djnz r2,wr1;
     
354. setb date_line;
     
355. ret
     
356. ;-------------------------------------
     
357. 
     
358. read:
     
359. mov r4,#4;
     
360. mov r1,#TEMPL;
     
361. re00:
     
362. mov r2,#8;
     
363. re01:
     
364. clr cy;
     
365. setb date_line;
     
366. nop
     
367. nop
     
368. clr date_line;
     
369. nop
     
370. nop
     
371. nop
     
372. setb date_line;
     
373. mov r3,#09;
     
374. djnz r3,$;
     
375. mov c,date_line;
     
376. mov r3,#3CH;
     
377. djnz r3,$;
     
378. rrc a;
     
379. djnz r2,re01;
     
380. mov @r1,a;
     
381. inc r1;
     
382. djnz r4,re00;
     
383. ret
     
384. ;**************************************************************************************
     
385. CONVTEMP:
     
386. MOV A,TEMPH;
     
387. ANL A,#80H;
     
388. JZ TEMPC1;
     
389. CLR C;
     
390. MOV A,TEMPL;
     
391. CPL A;
     
392. ADD A,#01H;
     
393. MOV TEMPL,A;
     
394. MOV A,TEMPH;
     
395. CPL A;
     
396. ADDC A,#00H;
     
397. MOV TEMPH,A;
     
398. SJMP TEMPC11;
     
399. 
     
400. TEMPC1:
     
401. MOV TEMPHC,#0AH;
     
402. TEMPC11:
     
403. MOV A,TEMPHC;
     
404. SWAP A;
     
405. MOV TEMPHC,A;
     
406. MOV A,TEMPL;
     
407. ANL A,#0FH;
     
408. MOV DPTR,#TEMPDOTTAB;
     
409. MOVC A,@A+DPTR;
     
410. MOV TEMPLC,A;
     
411. 
     
412. 
     
413. MOV A,TEMPL;
     
414. ANL A,#0F0H;
     
415. SWAP A;
     
416. MOV TEMPL,A;
     
417. MOV A,TEMPH;
     
418. ANL A,#0FH;
     
419. SWAP A;
     
420. ORL A,TEMPL;
     
421. MOV TEMP_ZH,A;
     
422. LCALL HEX2BCD1;
     
423. MOV TEMPL,A;
     
424. ANL A,#0F0H;
     
425. SWAP A;
     
426. ORL A,TEMPHC;
     
427. MOV TEMPHC,A;
     
428. MOV A,TEMPL;
     
429. ANL A,#0FH;
     
430. 
     
431. SWAP A;
     
432. ORL A,TEMPLC;
     
433. MOV TEMPLC,A;
     
434. MOV A,R4;
     
435. JZ TEMPC12;
     
436. ANL A,#0FH;
     
437. SWAP A;
     
438. MOV R4,A;
     
439. MOV A,TEMPHC;
     
440. ANL A,#0FH;
     
441. ORL A,R4;
     
442. MOV TEMPHC,A;
     
443. TEMPC12:
     
444. RET
     
445. ;------------------------------------
     
446. HEX2BCD1:
     
447.     MOV B,#064H;
     
448. DIV AB;
     
449. MOV R4,A;
     
450. MOV A,#0AH;
     
451. XCH A,B;
     
452. DIV AB;
     
453. SWAP A;
     
454. ORL A,B;
     
455. RET
     
456. ;--------------------------------------------------------------------------
     
457. TEMPDOTTAB:
     
458.     DB 00H,00H,01H,01H,02H,03H,03H,04H;
     
459. DB 05H,05H,06H,06H,07H,08H,08H,09H;
     
460. ;======================================
     
461. LOOK_ALARM:
     
462.     MOV DPTR,#M_ALAX2;
     
463. MOV A,#2;
     
464. CALL LCD_PRINT;
     
465. MOV A,#0C6H;
     
466. CALL TEMP_BJ1;
     
467. MOV A,TEMP_TH;
     
468. MOV LCD_X,#3;
     
469. CALL SHOW_DIG2H;
     
470. 
     
471. 
     
472. MOV A,#0CEH;
     
473. CALL TEMP_BJ1;
     
474. MOV A,TEMP_TL;
     
475. MOV LCD_X,#12;
     
476. CALL SHOW_DIG2L;
     
477. RET
     
478. ;------------------------------------
     
479. M_ALAX1:
     
480.     DB "LOOK ALERT CODE",0;
     
481. M_ALAX2:
     
482.     DB "TH:     TL:      ",0;
     
483. ;----------------------------------------------------------
     
484. TEMP_BJ1:
     
485.     CALL WCOM;
     
486. MOV DPTR,#BJ2;
     
487. MOV R1,#0;
     
488. MOV R0,#2;
     
489. BBJJ2:
     
490.     MOV A,R1;
     
491. MOVC A,@A+DPTR;
     
492. CALL WDATA;
     
493. INC R1;
     
494. DJNZ R0,BBJJ2;
     
495. RET
     
496. BJ2:
     
497.     DB 00H,"C"
     
498. ;-------------------------------------
     
499. SHOW_DIG2H:
     
500.     MOV B,#100;
     
501. DIV AB;
     
502. ADD A,#30H;
     
503. PUSH B;
     
504. MOV B,LCD_X;
     
505. CALL LCDP2;
     
506. POP B;
     
507. MOV A,#0AH;
     
508. XCH A,B;
     
509. DIV AB;
     
510. ADD A,#30H;
     
511. INC LCD_X;
     
512. PUSH B;
     
513. MOV B,LCD_X;
     
514. CALL LCDP2;
     
515. POP B;
     
516. INC LCD_X;
     
517. MOV A,B;
     
518. MOV B,LCD_X;
     
519. ADD A,#30H;
     
520. CALL LCDP2;
     
521. RET
     
522. SHOW_DIG2L:
     
523.     MOV B,#100;
     
524. DIV AB;
     
525. MOV A,#0AH;
     
526. XCH A,B;
     
527. DIV AB;
     
528. ADD A,#30H;
     
529. PUSH B;
     
530. MOV B,LCD_X;
     
531. CALL LCDP2;
     
532. POP B;
     
533. INC LCD_X;
     
534. MOV A,B;
     
535. MOV B,LCD_X;
     
536. ADD A,#30H;
     
537. CALL LCDP2;
     
538. RET
     
539. ;-----------------------------------------------------------------------
     
540. DISPBCD:
     
541.     MOV A,TEMPLC;
     
542. ANL A,#0FH;
     
543. MOV 70H,A;
     
544. MOV A,TEMPLC;
     
545. SWAP A;
     
546. ANL A,#0FH;
     
547. MOV 71H,A;
     
548. MOV A,TEMPHC;
     
549. ANL A,#0FH;
     
550. MOV 72H,A;
     
551. MOV A,TEMPHC;
     
552. SWAP A;
     
553. ANL A,#0FH;
     
554. MOV 73H,A;
     
555. MOV A,TEMPHC;
     
556. ANL A,#0F0H;
     
557. CJNE A,#010H,DISPBCD0;
     
558. SJMP DISPBCD2;
     
559. DISPBCD0:
     
560. MOV A,TEMPHC;
     
561. ANL A,#0FH;
     
562. JNZ DISPBCD2;
     
563. MOV A,TEMPHC;
     
564. SWAP A;
     
565. ANL A,#0FH;
     
566. MOV 73H,#0AH;
     
567. MOV 72H,A;
     
568. DISPBCD2:
     
569. RET
     
570. ;========================================================================
     
571. CONV:
     
572.     MOV A,#73H;
     
573. MOV LCD_X,#6;
     
574. CJNE A,#1,CONV1;
     
575. JMP CONV2;
     
576. CONV1:
     
577. MOV A,#'*';
     
578.     MOV B,LCD_X;
     
579. CALL LCDP2;
     
580. JMP CONV3;
     
581. CONV2:
     
582. CALL SHOW_DIG2;
     
583. CONV3:
     
584. INC LCD_X;
     
585. mov a,73h;
     
586. CALL SHOW_DIG2;
     
587. INC LCD_X;
     
588. mov a,72h;
     
589. CALL SHOW_DIG2;
     
590. inc LCD_X;
     
591. mov a,71h;
     
592. CALL SHOW_DIG2;
     
593. inc LCD_X;
     
594. MOV A,#'.';
     
595. MOV B,LCD_X;
     
596. CALL LCDP2;
     
597. MOV A,70h;
     
598. INC LCD_X;
     
599. CALL SHOW_DIG2;
     
600. RET
     
601. ;-------------------------------------
     
602. SHOW_DIG2:
     
603.     ADD A,#30H;
     
604. MOV B,LCD_X;
     
605. CALL LCDP2;
     
606. RET
     
607. ;-------------------------------------
     
608. LCDP2:
     
609. PUSH ACC;
     
610. MOV A,B;
     
611. ADD A,#0C0H;
     
612. CALL WCOM;
     
613. POP ACC;
     
614. CALL WDATA;
     
615. RET
     
616. ;-------------------------------------
     
617. SET_LCD:
     
618.     CLR LCD_EN;
     
619. CALL INIT_LCD;
     
620. CALL STORE_DATA;
     
621. RET
     
622. INIT_LCD:
     
623.     MOV A,#38H;
     
624. CALL WCOM;
     
625. call delay1;
     
626. MOV A,#38H;
     
627. CALL WCOM;
     
628. call delay1;
     
629. 
     
630. 
     
631. MOV A,#38H;
     
632. CALL WCOM;
     
633. call delay1;
     
634. MOV A,#0CH;
     
635. CALL WCOM;
     
636. call delay1;
     
637. MOV A,#01H;
     
638. CALL WCOM;
     
639. call delay1;
     
640. RET
     
641. ;====================================
     
642. CLR_LINE1:
     
643.     MOV A,#80H;
     
644. CALL WCOM;
     
645. MOV R0,#24;
     
646. C1:
     
647. MOV A,#'*';
     
648. CALL WDATA;
     
649. DJNZ R0,C1;
     
650. RET
     
651. ;====================================
     
652. LCD_PRINT:
     
653. CJNE A,#1,LINE2;
     
654. LINE1:
     
655. MOV A,#80H;
     
656. CALL WCOM;
     
657. CALL CLR_LINE;
     
658. MOV A,#80H;
     
659. CALL WCOM;
     
660. JMP FILL;
     
661. LINE2:
     
662. MOV A,#0C0H;
     
663. CALL WCOM;
     
664. CALL CLR_LINE;
     
665. MOV A,#0C0H;
     
666. CALL WCOM;
     
667. FILL:
     
668. CLR A
     
669. MOVC A,@A+DPTR;
     
670. CJNE A,#0,LC1;
     
671. RET
     
672. LC1:
     
673.     CALL WDATA;
     
674. INC DPTR;
     
675. JMP FILL;
     
676. RET
     
677. ;====================================
     
678. CLR_LINE:
     
679.     MOV R0,#24;
     
680. CL1:
     
681.     MOV A,#'*';
     
682. CALL WDATA;
     
683. DJNZ R0,CL1;
     
684. RET
     
685. DE:
     
686. MOV R7,#250;
     
687. DJNZ R7,$;
     
688. RET
     
689. ;====================================
     
690. WCOM:
     
691.     MOV P0,A;
     
692. CLR LCD_RS;
     
693. CLR LCD_RW;
     
694. SETB LCD_EN;
     
695. ACALL DELAY1;
     
696. CLR LCD_EN;
     
697. RET
     
698. ;====================================
     
699. WDATA:
     
700.     MOV P0,A;
     
701. SETB LCD_RS;
     
702. CLR LCD_RW;
     
703. SETB LCD_EN;
     
704. CALL DE;
     
705. CLR LCD_EN;
     
706. CALL DE;
     
707. RET
     
708. ;====================================
     
709. ;PRINT A CHAR ON LINE 1
     
710. ;A=ASC DATA,B=LINE X POS
     
711. ;====================================
     
712. LCDP1:
     
713.     PUSH ACC;
     
714. MOV A,B;
     
715. ADD A,#80H;
     
716. CALL WCOM;
     
717. POP ACC;
     
718. CALL WDATA;
     
719. RET
     
720. ;====================================
     
721. BEEP_BL:
     
722.     MOV R6,#100;
     
723. BL2:
     
724. CALL DEX1;
     
725. CPL BEEP;
     
726. DJNZ R6,BL2;
     
727. MOV R5,#10;
     
728. CALL DELAY;
     
729. RET
     
730. DEX1:
     
731. MOV R7,#180;
     
732. DE2:
     
733. NOP
     
734. DJNZ R7,DE2;
     
735. RET
     
736. DELAY:
     
737.     MOV R6,#50;
     
738. DL1:
     
739. MOV R7,#100;
     
740. DJNZ R7,$;
     
741. DJNZ R6,DL1;
     
742. DJNZ R5,DELAY;
     
743. RET
     
744. DELAY1:
     
745.     MOV R6,#25;
     
746. DL2:
     
747. MOV R7,#100;
     
748. DJNZ R7,$;
     
749. DJNZ R6,DL2;
     
750. RET
     
751. ;====================================
     
752. END

复制代码

---

欢迎光临 (http://www.51hei.com/bbs/)

Powered by Discuz! X3.1