利用定时方式0，测量外部脉冲宽度(5到250ms)，74HC595输出显示

;有人提问：
;利用单片机的定时方式0，实现外部脉冲宽度(在5到250ms)的测量。要求画出电路图。在线等 
;问题补充：写出程序，测量结果存储在R0中。
;=================================================
;做而论道对此题给出了答案：
;外部脉冲宽度(在5到250ms)之间，测量存放在R0。程序如下。

    ORG 0000H
    JMP START
    ORG 000BH
    JMP T0_INT
;------------;初始化
START:
    MOV SP, #60H
    MOV TMOD, #01H       ;/*T0定时方式1*/ 
    MOV TH0, #HIGH(65536 - 1000) ;1ms@12MHz
    MOV TL0, #LOW (65536 - 1000)
    SETB ET0
    SETB EA
    MOV R0, #0
;------------;电路：要把外部脉冲，接在P1.0
    JB   P1.0, $          ;等待高电平结束.
    JNB P1.0, $          ;等待低电平结束.
    SETB TR0              ;到了高电平，就启动T0开始计时.
    JB   P1.0, $          ;等待高电平结束.
    CLR TR0              ;到了低电平，结束T0计时.

    CALL DISPLAY         ;显示

    SJMP $                ;程序到此结束, R0中就是脉宽的毫秒数.
;-------------;1ms执行一次
T0_INT:         
    MOV TL0, #LOW (65536 - 993) ;重新写入初始值.
    MOV TH0, #HIGH(65536 - 993) ;1ms@12MHz
    INC R0        ;1ms加一次一.
    RETI
;---------------------------------

;原题目，并没有提出显示测量结果的要求，这就不便观察。
;为此，下面补充了显示电路（以三个74HC595来驱动数码管）和程序。

    SDAT_595 BIT   P3.0
    SCLK_595 BIT   P3.1
    S_UP_595 BIT   P3.2
;**************************************************
;595发送程序
;**************************************************
OUT_595:MOV   R2, #8
        CPL   A
O_1:    RLC   A
        NOP
        MOV   SDAT_595, C
        NOP
        CLR   SCLK_595
        NOP
        SETB SCLK_595
        NOP
        DJNZ R2, O_1
        RET
;**************************************************
;显示程序
;**************************************************
DISPLAY:
        MOV   A, R0       ;把脉宽数据，分解成
        MOV   B, #100     ;BCD码
        DIV   AB;
        MOV   30H, A      ;百位
        MOV   A, #10;
        XCH   A, B;
        DIV   AB;
        MOV   31H, A      ;十位
        MOV   32H, B      ;个位

        MOV   R0, #32H     ;把30H 31H 32H
        MOV   R7, #3       ;送出去显示
D_1:
        MOV   A, @R0
        MOV   DPTR, #TAB
        MOVC A, @A+DPTR
        CALL OUT_595
        NOP
        SETB S_UP_595
        DEC   R0
        CLR   S_UP_595
        DJNZ R7, D_1
        RET
;**************************************************
;七段码表
;**************************************************
TAB:
        DB 00111111B
        DB 00000110B
        DB 01011011B
        DB 01001111B
        DB 01100110B
        DB 01101101B
        DB 01111101B
        DB 00000111B
        DB 01111111B
        DB 01101111B
        DB 00000000B
END 
;=================================================
;程序在PROTEUS中运行的图像如下：