我能说您这个是错的吗，
L DBD[AR1,P#0.0]
L DBD[AR1,P#4.0] //实数，如果是整数，则为p#2.0
这里少了比较指令，
JC A03 //用JC 应该实现不了，RLO 管是0 ，是1 都不会执行下面程序。
下面是我改过的:程序，进过仿真正确。

L 7 //载入外循环值
M01: T LW 20 //循环寄存器
L P#100.0 //载入排序目标指针；从MD100排序
LAR1
L 6 //内循环值
M02: T LW 22 //内循环寄存器
L MD [AR1,P#0.0]
L MD [AR1,P#4.0]
JCN M03 //这步是关键；用JCN 跳转，
T LD 26 //临时变量
L MD [AR1,P#0.0] //起始值
T MD [AR1,P#4.0] //相邻的后一位值
L LD 26 //临时变量
T MD [AR1,P#0.0] //交换数据
M03: +AR1 P#4.0 //因为是 MD（双整形）所以+4.0
L LW 22 //内循环寄存器
LOOP M02 //循环
L LW 20 //查询外循环寄存器
LOOP M01