; 定义数据段
　　 dseg 　　　　　segment
　　　　　n 　　　　　　 equ 　5 　　　; 数组中数的个数
　　　　　a 　　　　　　 dw 　 n dup(?)
　　　dseg 　　ends
　　　; 定义代码段
　　　cseg 　　　　　segment
　　　main 　　　　　proc 　　　far
　　　　　assume 　　　　cs:cseg, ds:dseg
　　start:
　　　　　mov 　　　ax,dseg
　　　　　mov 　　　ds,ax
　　　　　mov 　　　cx,n
　　　　　dec 　　　cx 　　　　　　　　; 设置count1
　loop1:　mov 　　　dx,cx 　　　　 　　; 保存count1
　　　　　mov 　　　si, 0 　　　　 　　; 初始化si
　loop2:　mov 　　　ax,a[si]
　　　　　cmp 　　　ax,a[si+2] 　　　　; Ki与Ki+1比较
　　　　　jle 　　　num 　　　　　 　　; 如果Ki≤Ki+1,不交换
　　　　　xchg 　　 ax,a[si+2]
　　　　　mov 　　　a[si],ax 　　　　　; 如果Ki＞Ki+1,交换
　　num:　add 　　　si,2 　　　　　　　; 修改地址
　　　　　loop 　　 loop2 　　　　 　　; 内循环
　　　　　mov 　　　cx,dx 　　　　 　　; 恢复count1
　　　　　loop 　　 loop1 　　　　 　　; 外循环
　　　　　mov 　　　ax,4c00h
　　　　　int 　　　21h
　　　main 　　 endp
　　　cseg 　　 ends
　　　　　end 　　　start