SET  
      SAVE 
      L     0
      T     #Error
//将输入ANY 指针'Data_In'复制到 LB0~LB9
      L     P##Data
      LAR1 
      L     D [AR1,P#0.0]
      T     LD     0
      L     D [AR1,P#4.0]
      T     LD     4
      L     W [AR1,P#8.0]
      T     LW     8
//ANY 指针 BYTE0 是B#16#10
      L     LB     0
      L     B#16#10
      ==I  
      JCN   ERR1
//输入数据区是否为DB块
      L     LB     6
      L     B#16#84
      ==I  
      JCN   ERR2
//类型为INT
      L     LB     1
      L     B#16#5
      ==I  
      JCN   ERR3
//打开输入DB块
      OPN   DB [LW 4]
//数据起始地址去掉数据区标识部分
      L     LD     6
      L     DW#16#FFFFFF
      AD   
      T     LD    10
//计算最后一个存储单元指针保存至 LD10
      L     LW     2
      L     2
      *I                                                     为什么要乘？
      T     LD    14
      L     L#2
      -D                                                   为什么要减？
      SLD   3
      L     LD    10
      +D   
      T     LD    10
//外循坏计数LW2，循坏次数为（数据个数减1）次
      L     LW     2
      L     1
      -I   
NXT2: T     LW    20
      L     LD    10
      LAR1 
      L     LW    20
//嵌套循坏个数LW18，循坏次数为(LW20)次
NXT1: T     LW    18
      TAR1 
      L     P#2.0
      -D   
      LAR1 
//后一单元数据小于前一单元数据？
      L     DBW [AR1,P#2.0]
      L     DBW [AR1,P#0.0]
      <I   
      JCN   L1
//否，交换2单元数据
      L     DBW [AR1,P#2.0]
      L     DBW [AR1,P#0.0]
      T     DBW [AR1,P#2.0]
      POP  
      T     DBW [AR1,P#0.0]
L1:   L     LW    18
      LOOP  NXT1
      L     LW    20
      LOOP  NXT2
      JU    EXIT
//错误码1， ANY指针有误
ERR1: L     1
      T     #Error
      JU    EXIT
//错误码2 ，输入数据区不是DB块
ERR2: L     2
      T     #Error
      JU    EXIT
//错误码3，输入数据类型不是INT
ERR3: L     3
      T     #Error
EXIT: NOP   0
      A     M      0.0
      FP    M      0.1
      JCN   EXIT