好人帮我看看，怎么数码管不亮阿，附件有原理图

只看该作者 · 2007-2-1 19:58

    ORG 0000H
    LJMP START;转入主程序

    ORG    0030H

START:
    MOV    SP,#60H

MAIN:

    MOV    P1,#00H        ;点亮所有LED
    LCALL    DELAY
    LCALL    DELAY
    LCALL    DELAY
    MOV    P1,#0FFH

    MOV    P2,#0FFH    ;点第一个数码管
    MOV    P0,#0FFH
    CLR    P2.7
    LCALL    DELAY

    MOV    P2,#0FFH    ;点第二个数码管
    MOV    P0,#0FFH
    CLR    P2.6
    LCALL    DELAY

    MOV    P2,#0FFH    ;点第三个数码管
    MOV    P0,#0FFH
    CLR    P2.5
    LCALL    DELAY

    MOV    P2,#0FFH    ;点第四一个数码管
    MOV    P0,#0FFH
    CLR    P2.4
    LCALL    DELAY
    SETB    P2.4


    CLR    P2.3        ;发声
    LCALL    DELAY
    SETB    P2.3

    LJMP    MAIN

DELAY:
    MOV    R6,#50
S1:
    MOV    R7,#100
    DJNZ    R7,$                ;$表示本行地址
    DJNZ    R6,S1
    DJNZ    R5,DELAY
RET

END