DBUF	EQU	30H
	TEMP	EQU	40H
        DIN     BIT     P1.0
        CLK     BIT     P1.1
	ORG	0000H
        LJMP    START
        ORG     0030H
START:	MOV	R0,#DBUF
	MOV	@R0,#0AH
	INC	R0
	MOV	@R0,#0DH
        INC     R0
        MOV     @R0,#10H
        INC     R0
	MOV	DPTR,#0FEF3H;A/D
        MOV     A,#0
	MOVX	@DPTR,A
        JNB     P3.3,$
	MOVX	A,@DPTR      ;  讀入結果
	MOV	P1,A

	MOV	B,A
	SWAP	A
        ANL     A,#0FH
	XCH	A,@R0

	INC	R0
	MOV	A,B
        ANL     A,#0FH
	XCHD	A,@R0
	ACALL	DISP1
        acall   delay
	AJMP	START

DISP1:
	MOV	R0,#DBUF
	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 ;0，1，2，3，4，5
	DB	7DH,7,7FH,6FH,77H,7CH ;6，7，8，9，A，B
	DB	58H,5EH,79H,71H,0,00H ;C，D，E，F，-
DELAY: 
        MOV     R4,#08H
AA1:    MOV     R5,#0FFH
AA:     NOP
        NOP
        DJNZ    R5,AA
        DJNZ    R4,AA1
        RET

        END