A M 300.0
JC next
L 13 //可以为任意值
T MW 500
S M 300.0

next: LAR1 P#0.7
L MW 502
+AR1
LAR2 P#0.0
L MW 502
+AR2
L MW 500
L 8
>I
JCN k000
L 8
send: T MW 400
A M [AR1,P#0.0]
= Q [AR2,P#0.0]
+AR2 P#0.1
L -1
+AR1

L MW 400
LOOP send
L MW 502
L 8
+I
T MW 502
L MW 500
L 8
-I
T MW 500
BEU
k000: L MW 500
k001: T MW 500
A M [AR1,P#0.0]
= Q [AR2,P#0.0]
+AR2 P#0.1
L -1
+AR1
L MW 500
LOOP k001
R M 300.0
L 0
T MW 502
BEU
这是先做到把各个数字位，重新正常排序，转移到新的地址，再进行比较简单的循环移位处理。
第2步没有做，因为明天还要上班，太晚了，先做到这里，第二步的循环移位操作应该不难了。。。
思路对不对，请ZANE多多指教，谢谢。