chaoshengbo.rar_测距_超声波_超声波测距 程序_超声波测距程序_超声测距

超声波测距程序超声波测距程序 发布时间 : 2009-02-26 ;/////////////////////////////////////////////////////// ; USE BY :超声波测距器 ; IC :AT89C51 ; TEL : ; OSCCAL :XT (12M) ; display :共阳LED显示 ; Updata :2004/12/12 ; NAME :ZHOUSS ;/////////////////////////////////////////////////////// ;测距范围7CM-11M，堆栈在4FH以上，20H用于标志 ;显示缓冲单元在40H-43H，使用内存44H、45H、46H用于计算距离 ; VOUT EQU P1.0 ; 红外脉冲输出端口 speak equ p1.1 ;******************************************** ;* 中断入口程序 * ;******************************************** ; ORG 0000H LJMP START ORG 0003H LJMP PINT0 ORG 000BH reti ORG 0013H RETI ORG 001BH LJMP INTT1 ORG 0023H RETI ORG 002BH RETI ; ;******************************************** ;* 主 程 序 * ;******************************************** ; START: MOV SP,#4FH MOV R0,#40H ;40H-43H为显示数据存放单元（40H为最高位） MOV R7,#0BH CLEARDISP: MOV @R0,#00H INC R0 DJNZ R7,CLEARDISP MOV 20H,#00H MOV TMOD,#11H ;T1为 T0为16位定时器 MOV TH0,#00H ;65毫秒初值 MOV TL0,#00H MOV TH1,#00H MOV TL1,#00H MOV P0,#0FFH MOV P1,#0FFH MOV P2,#0FFH MOV P3,#0FFH MOV R4,#04H ;超声波肪冲个数控制（为赋值的一半） SETB PX0 SETB ET1 SETB EA SETB TR1 ;开启测距定时器 start1: LCALL DISPLAY JNB 00H,START1 ;收到反射信号时标志位为1 CLR EA LCALL WORK ;计算距离子程序 clr EA MOV R2,#32h;#64H ;测量间隔控制（约4*100=400MS） LOOP: LCALL DISPLAY DJNZ R2,LOOP CLR 00H setb et0 mov th0,00h mov tl0,00h SETB TR1 ;重新开启测距定时器 SETB EA SJMP Start1 ; ;**************************************************** ;* 中断程序* * ;**************************************************** ;T1中断，发超声波用 ;T1中断，65毫秒中断一次 INTT1: CLR EA CLR TR0 clr ex0 MOV TH0,#00H MOV TL0,#00H MOV TH1,#00H MOV TL1,#00H SETB ET0 SETB EA SETB TR0 ;启动计数器T0，用以计 intt11: CPL VOUT ;40KHZ nop nop nop nop nop nop nop nop nop DJNZ R4,intt11 ;超声波发送完毕， MOV R4,#04H lcall delay_250 ;延时，避开发射的直达声波信号 SETB EX0 ;开启接收回波中断 RETIOUT: RETI ;外中断0，收到回波时进入 PINT0: nop jb p3.2,pint0_exit CLR TR0 ;关计数器 CLR EA ; CLR EX0 ; MOV 44H,TL0 ;将计数值移入处理单元 MOV 45H,TH0 ; mov th0,#00h mov tl0,#00h jnb p3.2,$ SETB 00H ;接收成功标志 pint0_exit: RETI ; ;**************************************************** ;* 显示程序 * ;**************************************************** ; 40H为最高位，43H为最低位，先扫描高位 DISPLAY: MOV R1,#40H;G MOV R5,#7fH;G PLAY: MOV A,R5 MOV P0,#0FFH MOV P2,A MOV A,@R1 MOV DPTR,#TAB MOVC A,@A+DPTR MOV P0,A LCALL DL1MS INC R1 MOV A,R5 JNB ACC.4,ENDOUT;G RR A MOV R5,A AJMP PLAY ENDOUT: MOV P2,#0FFH MOV P0,#0FFH RET ; TAB: DB 18h, 7Bh, 2Ch, 29h, 4Bh, 89h, 88h, 3Bh, 08h, 09h,0ffh ;共阳段码表 "0" "1" "2" "3" "4" "5""6" "7" "8" "9" "不亮""A""-" ; ;**************************************************** ;* 延时程序 * ;**************************************************** ; DL1MS: push 06h push 07h MOV R6,#14H DL1: MOV R7,#19H DL2: DJNZ R7,DL2 DJNZ R6,DL1 pop 07h pop 06h RET ; ;**************************************************** ;* 距离计算程序 (=计数值*17/1000cm) * ;**************************************************** ; work: PUSH ACC PUSH PSW PUSH B MOV PSW, #18h MOV R3, 45H MOV R2, 44H MOV R1, #00D MOV R0, #17D LCALL MUL2BY2 MOV R3, #03H MOV R2, #0E8H LCALL DIV4BY2 LCALL DIV4BY2 MOV 40H, R4 MOV A,40H JNZ JJ0 MOV 40H,#0AH ;最高位为零，不点亮 JJ0: MOV A, R0 MOV R4, A MOV A, R1 MOV R5, A MOV R3, #00D MOV R2, #100D LCALL DIV4BY2 MOV 41H, R4 MOV A,41H JNZ JJ1 MOV A,40H ;次高位为0，先看最高位是否为不亮 SUBB A,#0AH JNZ JJ1 MOV 41H,#0AH ;最高位不亮，次高位也不亮 JJ1: MOV A, R0 MOV R4, A MOV A, R1 MOV R5, A MOV R3, #00D MOV R2, #10D LCALL DIV4BY2 MOV 42H, R4 MOV A,42H JNZ JJ2 MOV A,41H ;次次高位为0，先看次高位是否为不亮 SUBB A,#0AH JNZ JJ2 MOV 42H,#0AH ;次高位不亮，次次高位也不亮 JJ2: MOV 43H, R0 POP B POP PSW POP ACC RET ; ;**************************************************** ;* 两字节无符号数乘法程序 * ;**************************************************** ; R7R6R5R4 <= R3R2 * R1R0 ; MUL2BY2: CLR A MOV R7, A MOV R6, A MOV R5, A MOV R4, A MOV 46H, #10H MULLOOP1: CLR C MOV A, R4 RLC A MOV