汇编语言实现快速冒泡排序

DATAS SEGMENT

    DATA DB 24,18,-8,-16,66,56,86,6,10,98

    COUNT DB 10,10

DATAS ENDS

CODES SEGMENT

    ASSUME CS:CODES,DS:DATAS,ES:DATAS

START:

    MOV AX,DATAS

    MOV DS,AX

    MOV ES,AX

    MOV BL,1  ;改进版本，用BL来检验是否排序完成，减少循环次数

LOOP1: 

        CMP BL,0 

JE DATAOUT ;ZF=1，若相等或为0，则跳转

XOR BL,BL ;用逻辑异或将BL清零 

MOV CL,COUNT ;COUNT用于外层的计数 

DEC CL ;CL减一，CL用于内层的计数 

PUSH CX ;将CX压入堆栈 

LEA DI,DATA ;将数据段首地址赋值给DI 

LOOP2: 

        MOV AL,[DI] 

CMP AL,[DI+1] ;将前一个数与后一个数比较 

JLE LOOP3 ;ZF=1或SF!=OF 若前一个数小于或等于后一个数，则跳转到LOOP3

XCHG [DI+1],AL ;前者大于后者，则交换两数

MOV [DI],AL ;如果前一个数字大于后一个数字，则交换 

MOV BL,1 

LOOP3: 

        INC DI  ;指针加一

LOOP LOOP2 ;循环L00P2，直到CX==0成立 

POP CX ;将CX从堆栈中弹出 

MOV COUNT,CL ;改变外层计数器的值 

JMP LOOP1 

DATAOUT:

        MOV CL,10 ;开始数据输出 

LEA DI,DATA ;载入数据段(数组)首地址 

NEXT:

       MOV AX,0 ;输出下一个数 

MOV BH,2 ;输出的数字之间的空格 

MOV AL,[DI] ;取数 

CMP AL,0 

JGE NON ;如果是非负数，则跳至NON 

NEG AL ;若是负数，将AL中的负数取补转成对应的正数 

PUSH AX ;INT 21H 中断将会有一个返回值 

MOV AH,2 ;同时显示负数的标记‘-’ 

MOV DL,'-' ;注意这个时候 AX 的值会因为 21H中断的调用而改变, 所以先要保存起来 

INT 21H ;若是负数，在屏幕上显示‘-’号 

POP AX ;某些中断之后AX会改变 

NON:    XOR AH,AH ;将AH清零

DIV COUNT+1 ;除以10取十位 

MOV DH,AH ;AH是余数，AL是商(如果是个位数，则AL为零) 

CMP AL,0 

JE SINGLE ;如果AL为零(个位数)，则跳转到DIR，直接输出十位数 

ADD AL,30H ;将数字转换成ASC码 

MOV DL,AL ;数字放入DL，在屏幕输出 

MOV AH,2 

INT 21H ;显示十位上的数值 

SINGLE:

        MOV AL,DH ;将余数(个位数)放入AL 

XOR AH,AH ;将AH清零 

ADD AX,3030H 

MOV DL,AL ;所以最好在显示时判断是否是大于100或者小于100再根据判断结果来处理 DIV 

OUTP:MOV AH,2 ;显示输出功能

INT 21H ;显示个位数 

DEC BH  ;BH减一

JZ XT   ;若相等或为0，则跳转

MOV DL,BL ;BL为零，屏幕输出空格 

JMP OUTP 

XT:     DEC CL ;输出数组下一个 

JZ DONE ;如果ZF标志位为零(CL为零)，则程序完成 

INC DI ;数组指针+1 

JMP NEXT ;继续输出数组下一个数 

DONE:   MOV AH,1 ;键盘输入并回显功能，目的是使程序输出窗口暂停，以便看到输出结果

INT 21H  

MOV AH,4CH ;带返回码结束功能

INT 21H ;返回系统 

CODES ENDS 

END START