Size   equ   10              ; 數據個數
Array  equ   50h             ; 數據起始地址
Change equ   0               ; 交換標志

Sort:
       mov   r0, #Array
       mov   r7, #Size-1
       clr   Change
Goon:
       mov   a, @r0
       mov   r2, a
       inc   r0

       mov   B, @r0
       cjne  a, B, NotEqual
       sjmp  Next
NotEqual:
       jc    Next            ; 前小后大, 不交換

       setb  Change          ; 前大后小, 置交換標志
       xch   a, @r0          ; 交換
       dec   r0
       xch   a, @r0
       inc   r0
Next:
       djnz  r7, Goon
       jb    Change, Sort
       ljmp  $

       end