dbuf0   equ     30h
temp    equ     40h

        org 0
ad:     mov r0,#dbuf0
        mov @r0,#10h
        inc r0
        setb p3.3
ab2:    jnb p3.3,ab2
ab1:    jb  p3.3,ab1
ad0:    movx a,@dptr
        jnb acc.4,ad0
        jnb acc.3,ad1
        mov @r0,#0
        sjmp ad2
ad1:    mov @r0,#1
ad2:    inc r0
ad3:    movx a,@dptr
        jnb acc.5,ad3
        anl a,#0fh
        mov @r0,a
        inc r0
ad4:    movx a,@dptr
        jnb acc.6,ad4
        anl a,#0fh
        mov @r0,a
        inc r0
ad5:    movx a,@dptr
        jnb acc.7,ad5
        anl a,#0fh
        mov @r0,a
        acall disp1
        ACALL DELAY
        ajmp ad

disp1:  mov r0,#dbuf0
        mov r1,#temp
        mov r2,#5
dp10:   mov dptr,#segtab
        mov a,@r0
        movc a,@a+dptr
        mov @r1,a
        inc r0
        inc r1
        djnz r2,dp10
        mov r0,#temp
        mov r1,#5
dp12:   mov r2,#8
        mov a,@r0
dp13:   rlc a
        mov p3.0,c
        NOP
        NOP
        NOP
        NOP
         NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        clr p3.1
        NOP
        NOP
        NOP
        NOP
        NOP
         NOP
        NOP
        NOP
        NOP
        NOP
        setb p3.1
        NOP
        NOP
         NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        djnz r2,dp13
        inc r0
        djnz r1,dp12
        ret
segtab: db 3fh,6,5bh,4fh,66h,6dh
        db 7dh,7,7fh,6fh,77h,7ch
        db 58h,5eh,7bh,71h,0,40h
DELAY: MOV   R3,#01H
AA2:   MOV   R4,#0FFH
AA1:   MOV   R5,#0FFH
AA:    NOP
       NOP
       DJNZ  R5,AA
       DJNZ  R4,AA1
       DJNZ  R3,AA2
       RET        
        end