s6.asm

(1)完成键盘

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