ORG             00H             
BEGIN:
	MOV             R0,#0FH        
REPEAT:
	MOV             A,R0   
	CALL            SEGCODE 
	MOV     P1,A
	CALL    DELAY
	DJNZ    R0,REPEAT      
	JMP     BEGIN
DELAY:   
	MOV             R1,#0FH 
	DJNZ            R1,$ 
	RET 
SEGCODE:  
	INC     A
	MOVC    A,@A+PC
	RET
;7_SEG_TABLE     パ0