;用冒泡法进行数据排序
	    ORG 0000H
	    MOV R3,#50H
LOOP0:	MOV A,R3
	    MOV R0,A		;指针送R0
	    MOV R7,#0AH		;长度送R7
	    CLR 00H		    ;标志位为0
	    MOV A,@R0
LOOP1:	INC R0
	    MOV R2,A
	    CLR C
	    MOV 22H,@R0
	    CJNE A,22H,LOOP2 ;相等吗?
	    SETB C
LOOP2:	MOV A,R2
	    JC LOOP3		 ;小于或等于不交换
	    SETB 00H
	    XCH A,@R0
	    DEC R0
	    XCH A,@R0
	    INC R0			 ;大于交换位置
LOOP3:  MOV A,@R0
	    DJNZ R7,LOOP1
	    JB 00H,LOOP0	 ;一次循环中有交换继续
LOOP:	SJMP LOOP		 ;无交换退出
	    END
