汇编 实现正负数的冒泡排序

OUTtishi MACRO HAHA
PUSH DX
PUSH AX
LEA DX,HAHA
MOV AH,9
INT 21H
ENDM 
 
.386
DATA SEGMENT USE16
BUF1 DW 123,100,-1,-2,-3,-4,-2,-5
N = ($-BUF1)/2
CLRT DB 0DH,0AH,'$'
PRINT DB 'Sort Result:$'
DATA ENDS
STACK SEGMENT USE16 STACK
DB 200 DUP(0)
STACK ENDS


CODE SEGMENT USE16
 ASSUME CS:CODE,DS:DATA,SS:STACK
 
START:
MOV AX,DATA
MOV DS,AX
;调用排序子程序
CALL SORT


;输出提示
OUTtishi PRINT
OUTtishi CLRT
;调用子程序，完成一个数值到串的转化，并调用2号中断输出
MOV CL,N  ;设置调用该子程序的次数
MOV DI,0
LP1:
CALL F10TA_XCH
ADD DI,2  ;处理下一个字数据
LOOP LP1  ;cx-1 = cx,cx 不等于0，则循环


MOV AH,4CH
INT 21H




SORT PROC NEAR
PUSH CX
PUSH AX
PUSH SI
PUSH DI
PUSH BX
;冒泡排序
MOV BL,1  ;标志
MOV CL,N
MOV CH,0
DEC CL
LOOP1:
MOV DI,CX   ;DI保留外循环次数
MOV SI,0


CMP BL,0
JE EXIT
XOR BL,BL  ;BL请0


LOOP2:
MOV AX,BUF1[SI]
CMP AX,BUF1[SI+2]  
JG LOOP3  ;若前一个大于后一个，则 ADD SI,2，都往后推一个
XCHG BUF1[SI+2],AX  ;降序，则小于就交换
MOV BUF1[SI],AX 
MOV BL,1
LOOP3:
ADD SI,2
LOOP LOOP2  ;CX内循环次数


MOV CX,DI    
LOOP LOOP1


EXIT:
POP BX
POP DI
POP SI
POP AX
POP CX
RET 
SORT ENDP


F10TA_XCH PROC NEAR


PUSH CX
PUSH AX
PUSH SI
PUSH DI
MOV CL,0
MOV AX,0
MOV SI,0AH      ;si = 10
MOV AX,BUF1[DI] 
CMP AX,0  ;看是不是负数
JGE LP2
NEG AX   ;是负数，取反
PUSH AX   ;因为要用到AH，则把AX先入栈


MOV AH,2   ;如果是负数，输出‘-’
MOV DL,'-'
INT 21H


POP AX
LP2:
MOV DX,0  ;一定要小心，字除法dx为高16位，ax为低16位，没有这个，常常Divide error
DIV SI    ;例如，15除以10得到5和1   ；商存在AX，余数存在DX
PUSH DX    
INC CL   ;记录有多少个余数入了栈
CMP AX,0      ;当商为0时，则说明该数据所有位数已处理完
JNE LP2


LP3:
POP AX       ;出栈，输出
ADD AL,30H   ;转化成ascii码显示
MOV DL,AL
MOV AH,2
INT 21H
DEC CL
CMP CL,0
JNE LP3


;两个空格
MOV AL,20H
MOV DL,AL
MOV AH,2
INT 21H
MOV AL,20H
MOV DL,AL
MOV AH,2
INT 21H 


POP DI
POP SI
POP AX
POP CX
RET
F10TA_XCH ENDP 


CODE ENDS
END START