dbuf0   equ     30h
        temp    equ     40h
        DIN     BIT     P1.1
        CLK     BIT     P1.2
        org 0000H
        LJMP  AD
        ORG   0030H
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 DIN,c
        clr CLK        
        setb CLK
       
        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