超声波程序.txt

来自「超声波程序.rar」· 文本 代码 · 共 180 行

超声波实验/写的程序如下.用的是P1.0发送波形,P2.7--P2.1数码显示,P0.0--P0.2位控制.



        单片机初始化----》同时开外中断/T0----》 定时器0采集时间数据----》外部信号反馈至INT0----》引发外中断/T0中断----》
     ----》关中断----》T0获得时间----》计算----》BCD吗转换----》循环DISP----》END    





ORG 0000H
LJMP START
ORG 0003H
LJMP XXXX
ORG 0013H
LJMP DISP



START:    
MOV TMOD,#00001001B
CLR IT0   ;外中断0下降便边沿
MOV IE,#10000011B    ;开中断

MOV TH0,#0H
MOV TL0,#0H
SETB TR0



SHIJIAN:
MOV 14H,#12H
HERE:
CPL P1.0
NOP
NOP
NOP
DJNZ 14H,HERE



XXXX:
CLR ET0
CLR EX0     
      ;MOV R7,TH0  
mov a,TH0
CLR CY
RRC A
MOV 30H,A
MOV A,TL0
RRC A
MOV 31H,A
       ;MOV R6,TL0
MOV A,TH0
MOV B,#8
MUL AB
MOV R0,A
MOV R1,B



MOV A,TH0
MOV B,#10
DIV AB
MOV B,#7
MUL AB
ADD A,R0
JNC M1
INC R1
M1:
MOV R0,A



BINBCD:
MOV A,R0
MOV B,#100
DIV AB
MOV R5,A
MOV A,#10
XCH A,B
DIV AB
MOV R6,A
MOV R7,B



GAOWEI:
MOV A,R1
                   ;
ANL A,#01111111B
CJNE A,#0H,OVER




JNB ACC.0,DISP      ;如果R1大于1，则近似加上256，
MOV A,R7
ADD A,#6
DA A
MOV R7,A



MOV A,R6
ADDC A,#5
DA A
MOV R6,A



MOV A,R5
ADDC A,#2
DA A
MOV R5,A




XIANSHI:
    MOV P2,#0FFH
    MOV SP,#4FH
    MOV TMOD,#10H
    MOV TH1,#0B1H
    MOV TH0,#0DFH
    SETB PT1
    SETB ET1
    SETB EA
    SETB TR1
    MOV DPTR,#1000H
LOOP: SJMP LOOP
DISP:
     MOV TH1,#0B1H
     MOV TL1,#0DFH
     CLR P2.1
     MOV A,R5
     MOVC A,@A+DPTR
     MOV P1,A
     CLR P2.2
     MOV A,R6
     MOVC A,@A+DPTR
     MOV P1,A
     CLR P2.3
     MOV A,R7
     MOVC A,@A+DPTR
     MOV P1,A



  MOV P2,#0FFH
     RET
                           ; OVER:
                           ;;;;;   P2=CCC
    OVER:
      CLR ET0
    CCC:  CLR P0.1
          MOV P2,#10011100B
          SETB P0.1
          CLR P0.2
          MOV P2,#10011100B
          SETB P0.2
          CLR P0.3
          MOV P2,#10011100B
          SETB P0.3
          SJMP CCC
          
       



ORG 1000H
DB 3FH,06H,5BH,4FH,6DH,7DH,07H,7FH,6FH 



   END