65,211
社区成员
发帖
与我相关
我的任务
分享
dseg segment
Array dw 10,9,8,7,6,5,4 dup(8)
Len = ($-Array)/2
addr dw ?
dseg ends
cseg segment
assume cs:cseg,ds:dseg
start:
mov ax,dseg
mov ds,ax
mov cx,Len-1
mov di,0
mov si,Len
begin:
dec si
mov di,0
again:
mov bx,di
shl bx,1
mov ax,word ptr Array[bx]
inc di
cmp ax,Array[bx+2]
jna next
xchg ax,Array[bx+2]
mov Array[bx],ax
next:
cmp di,si
jb again
loop begin
mov ah,4ch
int 21h
cseg ends
end start