DATA	EQU		20H			
N		EQU		8		
SSSRT:	
MOV	DPTR,#LIST			
MOV	R0,#DATS
MOV	R2,#N
CPY:	
CLR		A
MOVC	A,@A+DPTR
MOV	@R0,A
INC		R0
INC		DPTR
DJNZ	R2,CPY
LCALL	SELSORT				
LIST:	
DB	53H,87H,12H,9AH
DB	2FH,3CH,0A8H,0BCH
SLSRT:
MOV	R0,#DATS				
MOV	R2,#N-1				
LOOP0:	
MOV	B,@R0				
MOV	A,R0
MOV	R3,A					
INC		A
MOV	R1,A					
MOV	A,R2
MOV	R4,A					
LOOP1:	
MOV	A,@R1				
CLR		C
SUBB	A,B					
JNC	LOOP2					
MOV	B,@R1				
MOV	A,R1
MOV	R3,A					
LOOP2:	
INC		R1					
DJNZ	R4,LOOP1				
MOV	A,R3
MOV	R1,A					
MOV	A,@R1				
XCH		A,@R0
XCH		A,@R1
INC		R0					
DJNZ	R2,LOOP0				
RET