ORG 0000H
JMP MAIN
   ORG 0100H
MAIN: MOV R0,#60H
			MOV @R0,#5FH
			INC R0
			MOV @R0,#56H
			INC R0
			MOV @R0,#5AH
			INC R0
			MOV @R0,#5EH
			INC R0
			MOV @R0,#51H
			INC R0
			MOV @R0,#5BH
			INC R0
			MOV @R0,#53H
			INC R0
			MOV @R0,#58H
			INC R0
			MOV @R0,#57H
			INC R0
			MOV @R0,#55H ;將10個隨機數送入內部RAM的50~59H單元
		  NOP           ;可在此處設置斷點
			ACALL QUE    ;調用排序子程序
OUT:  MOV R0,#60H
		  MOV DPTR,#400CH
		  MOV R7,#10
OUT1: MOV A,@R0
      MOVX @DPTR,A
			INC R0
			INC DPTR
			DJNZ R7,OUT1
HERE: AJMP HERE
QUE:  CLR 00H
      MOV R1,#60H
			MOV R6,#09H
I3:  	MOV A,R6
      MOV R7,A
			MOV A,R1
			MOV R0,A
			MOV A,@R0
I2:   INC R0
      MOV R2,A
			SUBB A,@R0
			MOV A,R2
			JC I1
			SETB 00H
			XCH A,@R0
I1:   DJNZ R7,I2
      NOP            ;可在此處設置斷點觀察每次排序結果
      JNB 00H,STOP
		  MOV @R1,A
			INC R1
			DJNZ R6,I3
STOP:	RET
      END