脉冲宽度测量程序清单.doc

ORG 0000HLJMP STARTORG 0040HCOUNT EQU 40H ; COUNT, COUNT+1 单元存放测量值START : MOV SP , #40H;主程序 MOV TMOD , #0000 1001B ; T0方式1，GATE=1AGAIN: MOV TH0, #00H ; 计数初值=0000H MOV TL0, #00HWAIT0: JB P3.2, WAIT0 ; INT0输入为高则开始等待 SETB TR0 ; INT0为低时启动T0WAIT1: JNB P3.2， WAIT1 ; INT0输入为高则开始计数WAIT2: JB P3.2， WAIT2 ; 等待INT0下降沿 CLR TR0 ; 下降沿后停止T0计数 MOV A, TH0 ; 取计数值高字节 MOV COUNT , A MOV A , TL0 ; 取计数值低字节 MOV COUNT+1 , A LCALL WDISBUF ; 写DISBUF LCALL DISPLAY ; 显示测量值 LCALL DISPLAY LJMP AGAIN ;写DISBUF子程序、 ； 子程序名称 ： WDISBUF ; 子程序功能 ：将一个双字节二进制数转换成6位非压缩型BCD码，写入显示缓冲区DISBUF中。 ； 入口参数 ： 内部RAM 的40H （高字节）和41H（低字节）单元中是待转换的数据 ； 出口参数 ： 转换结果放入DISBUF 内部 RAM 70H75H单元中，70H单元中为最低位。HEX EQU 40H DISBUF EQU 70H WDISBUF: CLR A ; 压缩BCD码初始化 MOV R3 , A ; R3R4R5暂存压缩BCD码 MOV R4 , A MOV R5 , A MOV R2 , #16HB1: MOV R6 , HEX ; 数据高字节暂存于R6 中 MOV R7 , HEX+1 ; 数据低字节暂存于R7 中HB2： MOV A , R7 ; 从高端移出待转换的一位到CY中 RLC A MOV R7 , A MOV A , R6 RLC A MOV R6 , A MOV A , R5 ; BCD 码带进位自身相加， 相当于乘2 ADDC A , R5 DA A ; 十进制调整 MOV R5 , A MOV A , R4 ADDC A , R4 DA A MOV R4 , A MOV A , R3 ADDC A , R3 MOV R3 , A ; 双字节十六进制数的万位数不超过6， 不用调整 DJNZ R2 , HB1 ; 处理完十六位 MOV R0 , DISBUF+5 ; 转换成分离BCD码存于70H75H单元中 MOV A, #00H MOV R0 , A MOV A , R3 : R3不超过6，不用转换 DEC R0 MOV R0 , A MOV A , R4 SWAP A ANL A ,#0FH DEC R0 MOV R0 , A MOV A , R4 SWAP A ANL A , #0FH DEC R0 MOV R0 , A MOV A ,R4 ANL A , #0FH DEC R0 MOV R0 , A MOV A , R5 ANL A ,#0FH DEC R0 MOV R0 , A RET ; 动态扫描显示子程序 ； 子程序名： DISPLAY ; 子程序功能： 从DISBUF中依次取出待显示的字符，逐个点亮各位数码管 ； 入口参数： DISBUF(内部RAM 70H75H单元中，70H 单元中伟最低位)中是待显示的字符 ； 出口参数 ： 无DISPLAY : MOV R0 , #70H ; R0 指向DISBUF 首地址 MOV R3 , #01H ;右起第一个LED 的选择字NEXT: MOV A , #00H ; 取位选控制字为全灭 MOV P1 , A ; 瞬时关显示器 MOV A, R0 ; 从DISBUF中取出字符 MOV DPTR , #DSEG ; 取段码表首地址 MOVC A , A+DPTR ; 查表，取对应的字形码 MOV P0 , A ; 输出字形码 MOV A , R3 ; 取当前位选控制字 MOV P1 , A ; 点亮当前LED显示位 LCALL DELAY ; DELAY 延时1ms INC R0 ; R0 N指向下一个字符 JB ACC.5 , EXIT ; 诺当前显示位是第六位则结束 RL A ; 下一个LED 的选择字 MOV R3 , A SJMP NEXT EXIT: RET ; 返回 ； 段码表09 ， AF , 空白 ， P DSEG : DB 3FH, 06H, 5BH, 4FH, 66H, 6DH, 7DH, 07H, 7FH DB 6FH, 77H, 7CH, 39H, 5EH, 7