汇编语言实现十个数的排序

DATAS SEGMENTDATA0 DB Please input a numbers (0-65535):,$DATA1 DB over flow input again:,$DATA2 DB The num you have put is:,0ah,0dh,$DATA3 DB After exchange the num is:,0ah,0dh,$DATA4 DB ,$DATA DW 10 DUP(?)DATAS ENDSSTACKS SEGMENT DW 256 DUP(?);此处输入堆栈段代码STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKS ;/*/ ;-程序开始-START: MOV AX,DATAS MOV DS,AX MOV SI,0 MOV CX,10;-循环输入-L: CALL INPUTADD SI,2CALL NEWLINE LOOP L MOV DX,OFFSET DATA2 MOV AH,9 INT 21H;-输入后显示- MOV CX,10MOV DI,0AGAIN:CALL PRINTCALL SPACEADD DI,2LOOP AGAIN ;-排序-MOV CX,9MOV DI,0LOOP0:CALL SORTADD DI,2LOOP LOOP0CALL NEWLINEMOV DX,OFFSET DATA3 MOV AH,9 INT 21H ;-交换后显示- MOV CX,10MOV DI,0AGAIN0:CALL PRINTCALL SPACEADD DI,2LOOP AGAIN0 ;-返回系统-EXIT: MOV AH,4CH INT 21H;/*/;-输入函数 - INPUT PROC NEARPUSH AXPUSH BXPUSH CXPUSH DX;-提示信息-MOV DX,OFFSET DATA0MOV AH,9INT 21HMOV BX,0 ;BX存放十进制数CLCMOV DX,0L0: ;-输入数字-MOV AH,1INT 21HCMP AL,0DHJE L1SUB AL,30HJL NEXT1CMP AL,9JG NEXT1;-转换成十进制数-MOV AH,0XCHG AX,BXMOV CX,10MUL CXADD AX,BXJC NEXT1XCHG AX,BX JMP L0NEXT1:MOV DX,0MOV BX,0 CALL NEWLINECALL ERRORJMP L0L1: CMP DX,0JNZ NEXT1MOV DATASI,BXMOV DX,0POP DXPOP CXPOP BXPOP AXRETINPUT ENDP;/*/;-回车换行-NEWLINE PROC NEARPUSH AXPUSH DXMOV DL,0AHMOV AH,2INT 21HMOV DL,0DHMOV AH,2INT 21HPOP DXPOP AXRETNEWLINE ENDP;/*/;-空格-SPACE PROC NEAR PUSH AX PUSH DX MOV DX,OFFSET DATA4 MOV AH,9 INT 21H POP DX POP AX RET SPACE ENDP;/*/;-错误提示- ERROR PROC NEAR PUSH AX PUSH DX MOV DX,OFFSET DATA1 MOV AH,9 INT 21H POP DX POP AX RET ERROR ENDP ;/*/ ;-冒泡排序子程序-SORT PROC NEAR PUSH BX PUSH DX MOV SI,DILOOP1: ADD SI,2 MOV BX,DATADI CMP BX,DATASI JA CHANGE JMP NEXTCHANGE: MOV DX,DATASI MOV DATADI,DX MOV DATASI,BX NEXT: CMP SI,18 JL LOOP1 POP DX POP BX RET SORT ENDP ;/*/ ;-显示函数-PRINT PROC NEAR PUSH AX PUSH BXPUSH CXPUSH DX MOV CX,0 MOV BX,10 MOV AX,DATADILAST: MOV DX,0 DIV BX PUSH DX INC CX CMP AX,0 JNZ LASTAGE: POP