基于AT89C51的超声波测距设计

;********WAVE-E6000/T*******************************
;*MCU:          AT89C51                            *
;*MCU-crystal:  12M                                *
;*Version:      00                                 *
;*Last Updata:                                     *
;*Author:       www.pICavr.com                     *
;*Description:  超声波测距
;晶振采用6M，P1口为数码管段输出口，P3.0~P3.2为     *

;数码管位输出口，P3.5超声波;发送输出，P3.7超声波收 *                    
;***************************************************
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;           中断入口程序              ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
            ORG 0000H
            ljmp start
            ORG 002BH
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;           主 程 序                 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     START: MOV R0,#70H    
            MOV R7,#0BH    
            MOV 20H,#00H   
CLEARDISP:  MOV @R0,#00H   
            INC R0         
            DJNZ R7,CLEARDISP
            MOV TMOD,#99H  
      cjzcx:MOV TL0,#00H   
            MOV TH0,#00H
            MOV R0,#0bH
            mov r1,#0bh
     mov 16h,#03H
     mov 15h,#54H
     mov 17h,#90h
      puzel:mov 14h,#32h    ;超声波发射持续200ms
       here:cpl p3.5        ;输出40kHz方波
            nop             
            nop             
            nop                                             
            djnz 14h,here   
            setb tr0
            setb p3.2
         mq:djnz 15h,$
            djnz 16h,mq
        QBA:JNB P3.7,QBC
            DJNZ R1,QBA
            DJNZ R0,QBA
        QBC:djnz 17h,QBC
            clr p3.2
            clr tr0                  
            mov 70h,tl0
            mov 71h,th0
            mov r2,71h
            mov r3,70h
            mov r6,#22H
            mov r7,#0H
            LCALL MULD           
            mov r6,#64H
            mov r7,#0H
            LCALL DIVD    
            MOV 73H,R2
            MOV 74H,R3
            CLR R3
            CLR R4
            CLR R5
            MOV R6,73H
            MOV R7,74H    
            LCALL HB2    
            MOV A,R4     
            MOV B,#10H
            DIV AB
            MOV 78H,A
            MOV 77H,B
            MOV A,R5
            MOV B,#10H
            DIV AB
            MOV 76H,A
            MOV 75H,B     

[1] [2] [3]  下一页

本文关键字：超声波  自动控制-单片机，电子制作 - 自动控制-单片机