请实现：将1000H开始的10个8位不带符号数用冒泡法进行排序

[arcow]

请用汇编写一段程序
将1000H开始的10个8位不带符号数用冒泡法进行排序(从小到大或从大到小均可)

[arcow]

up

[tiancai1]

DATAREA SEGMENT
A DW N DUP(?)
FLAG DW ?
DATAREA ENDS
PROGRAM SEGMENT
MAIN PROC FAR
ASSUME DS:DATAREA,CS:PROGRAM
START:
PUSH DS
SUB AX,AX
PUSH AX
MOV AX,DATAREA
MOV DS,AX
MOV CX,N
MOV SI,0
DEC CX
LOOP1:
MOV DI,CX
MOV BX,0
LOOP2:
MOV AX,A[BX]
CMP AX,A[BX+2]
JGE CONTINUE
MOV SI,1
XCHG AX,A[BX+2]
MOV A[BX],AX
CONTINUE:
ADD BX,2
LOOP LOOP2
MOV CX,DI
TEST SI,0FFH
JZ LOOP3
LOOP LOOP1

MOV CX ,N

MOV SI, 0
LOOP3:
MOV DX,A[SI]
ADD SI ,2

MOV AH, 02H
INT 21H
LOOP LOOP3
MOV AX,4C00H
INT 21H



MAIN ENDP
PROGRAM ENDS
END START
我这是个从大到小的算法，
你如果要测试数据只要修改一下即可。
如下：
DATAREA SEGMENT
A DW 5 DUP(1,2,3,4,5)
FLAG DW ?
DATAREA ENDS
PROGRAM SEGMENT
MAIN PROC FAR
ASSUME DS:DATAREA,CS:PROGRAM
START:
PUSH DS
SUB AX,AX
PUSH AX
MOV AX,DATAREA
MOV DS,AX
MOV CX,5
MOV SI,0
DEC CX
LOOP1:
MOV DI,CX
MOV BX,0
LOOP2:
MOV AX,A[BX]
CMP AX,A[BX+2]
JGE CONTINUE
MOV SI,1
XCHG AX,A[BX+2]
MOV A[BX],AX
CONTINUE:
ADD BX,2
LOOP LOOP2
MOV CX,DI
TEST SI,0FFH
JZ LOOP3
LOOP LOOP1

MOV CX ,5

MOV SI, 0
LOOP3:

MOV DX,A[SI]
ADD DX,30H ；添加了这句；
ADD SI ,2

MOV AH, 02H
INT 21H
LOOP LOOP3
MOV AX,4C00H
INT 21H



MAIN ENDP
PROGRAM ENDS
END START
输出为：54321

[arcow]

我调试过程序没问题
但　将1000H开始的数据
这个1000H地址在程序中怎么加？

[大熊猫侯佩]

可以在数据段中用 org 直接定义偏移，或在程序中即时写入　～～～～

[风雪来吧]

你想从1000H开始，只要在代码段定义ARRAY

[风雪来吧]

你想从1000H开始，只要在代码段定义的ARRAY前加上ORG 1000H

如果你的数据已经放在了1000H中，只要将1000H的地址给你所累加器就可以了~！

[arcow]

csdsjkk()
我用你的程序debug后怎么发现d1000内容都是0啊

tiancai1(ok)
如果我把 DB 10 DUP(0,1,2,3,4,5,6,7,8,9)
里面的数据换在如 11或12之类的数据就不能显示出来了为什么啊？

[csdsjkk]

d 0:1000

[tiancai1]

tiancai1(ok)
因为这涉及到数字的ASCII的转化问题，但算法是正确的；
因为我只是做了ADD DL,30H 所以只是吧0-9的作转换，
要任意数转换成10进制输出又是一个算法了。

[arcow]

题目要求是把1000H开始的10个8位不带符号数排序，而不应该是自己指定数吧

[csdsjkk]

mov ax,0
mov ds,ax
mov cx,10 - 1
m00:
push cx
mov si,1000h
m0:
mov al,[si]
cmp al,[si+1]
jae m1
xchg al,[si+1]
mov [si],al
m1:
inc si
loop m0
pop cx
loop m00

[tiancai1]

其实在我的程序加上指定的数从哪儿开始就是了，我改为你要的8位的我以为你会，你再看看下面这个吧
DATAREA SEGMENT
ORG 1000H
A DB 10 DUP(0,1,2,3,4,5,6,7,8,9)
FLAG DW ?
DATAREA ENDS
PROGRAM SEGMENT
MAIN PROC FAR
ASSUME DS:DATAREA,CS:PROGRAM
START:
PUSH DS
SUB AX,AX
PUSH AX
MOV AX,DATAREA
MOV DS,AX
; MOV DX,DS:[1007H]
; ADD DX,30H
; MOV AH,02H
; INT 21H ;这4句用于测试这些数是否放入了指定位置的；

MOV CX,10
MOV SI,0
DEC CX
LOOP1:
MOV DI,CX
MOV BX,0
LOOP2:
MOV AL,A[BX]
CMP AL,A[BX+1]
JGE CONTINUE
MOV SI,1
XCHG AL,A[BX+1]
MOV A[BX],AL
CONTINUE:
ADD BX,1
LOOP LOOP2
MOV CX,DI

TEST SI,0FFH
JZ LOOP3
LOOP LOOP1

MOV CX ,10

MOV SI, 0
LOOP3:
MOV DL,A[SI]
ADD DL,30H
ADD SI ,1

MOV AH, 02H
INT 21H
LOOP LOOP3
MOV AX,4C00H
INT 21H



MAIN ENDP
PROGRAM ENDS
END START