程序清单.docVIP

程序清单 以下是用汇编语言编写的超声波测距控制源程序： 采用AT89S51 12ＭＨz晶振 显示缓冲单元在４０Ｈ～４３Ｈ，使用内存44H、45H、46H用于计算距离 20H用于标志 VOUT EQU P1.0 ;脉冲输出端口 *中断入口程序* ORG 0000H LJMP START ORG 0003H LJMP PINT0 ORG 000BH LJMP INTT0 ORG 0013H RETI ORG 001BH LJMP INTT1 ORG 0023H RETI ORG 002BH RETI *主程序* START: MOV SP, #4FH MOV R0, #40H ;40~43H为显示数据存放单元（40为最高位） MOV R7,#0BH CLEARDISP:MOV @R0, #00H INC R0 DJNZ R7, CLEARDISP MOV 20H, #00H MOV TMOD, #21H ;T1为8位自动重装模式，T0为16位定时器 MOV TH0, #00H ;65ms初值 MOV TL0, #00H ;40KHz初值 MOV TH1, #0F2H MOV TL1, #0F2H MOV P0, #0FFH MOV P1, #0FFH MOV P2, #0FFH MOV P3, #0FFH MOV R4, #04H ；超声波脉冲个数控制（为赋值的一半） SETB PX0 SETB ET0 STEB EA CLR 00H SETB TR0 ;开启测距定时器 START1: LCALL DISPLAY JNB 00H, START1 ;收到反射信号时标志位为1 CLR EA LCALL WORK ；计算距离子程序 SETB EA CLR 00H SETB TR0 ；重新开启测距定时器 MOV R2, #64H ； 测量间隔控制（约4*100=400ms） LOOP: LCALL DISPLAY DJNZ R2, LOOP SJMP START 1 *中断程序* ;T0中断，65ms中断一次 INTT0: CLR EA CLR TR0 MOV TH0, #00H MOV TL0, #00H SETB ET1 SETB EA SETB TR0 ;启动计时器T0，用以计算超声波来回时间 SETB TR1 ;开启发超声波用定时器T1 OUT: RETI ;T1中断，发超声波用 INTT1: CPL VOUT DJNZ R4,RETIOUT CLR TR1 ；超声波发送完毕，关T1 CLR ET1 MOV R4,#04H SETB EX0 ；开启接收回波中断 RETIOUT: RETI ;外中断0，收到回波时进入 PINT0: CLR TR0 ；关计数器 CLR TR1 CLR ET1 CLR EA CLR EX0 MOV 44H, TL