冒泡排序对字符串字符进行排序并输出

DSEG    SEGMENT

STR     DB      0DH,0AH,'CAPTIAL$'
COUNT   EQU     $-STR
STR1    DB      0DH,0AH,'BEFORE SORT$'
STR2    DB      0DH,0AH,'AFTER$'
DSEG    ENDS

CSEG    SEGMENT
ASSUME  CS:CSEG,DS:DSEG
START:
MOV     AX,DSEG
MOV     DS,AX
MOV     DX,OFFSET STR1
MOV     AH,9
INT     21H
MOV     DX,OFFSET STR
CALL    OUTPUT
MOV     CX,COUNT-4		;排序开始
L1:
MOV     SI,OFFSET   STR+2
MOV     BX,CX
L2:
MOV     AL,[SI]
CMP     AL,[SI+1]
JAE     NEXT
XCHG    AL,[SI+1]
MOV     [SI],AL
NEXT:
INC     SI
DEC     BX
JNZ     L2
LOOP    L1			                                              					;排序结束

MOV DX,OFFSET STR2 CALL OUTPUT MOV DX,OFFSET STR CALL OUTPUT MOV AH,4CH INT 21H RETOUTPUT PROC;输出子过程
MOV AH,9 INT 21H

RET
OUTPUT  ENDP
CSEG    ENDS
END     START