上一篇實現了簡單插入排序的算法，這一篇主要實現直接插入排序算法：
S0 SEGMENT STACK
DW 20 DUP(?)
TOP LABEL WORD
S0 ENDS
S1 SEGMENT
TIP DB "Input ten number and separate the numbers with space:", 0DH, 0AH, 24H
ARY DW 20 DUP(0)
CRLF DB 0DH, 0AH, 24H
N DW 0
E DW 0
S1 ENDS
S2 SEGMENT
ASSUME SS:S0, DS:S1, CS:S2, ES:S1
P PROC FAR
MOV AX, S0
MOV SS, AX
LEA SP, TOP
MOV AX, S1
MOV DS, AX
MOV AX, S1
MOV ES, AX
LEA DX, TIP
MOV AH, 9
INT 21H
LEA SI, ARY
XOR DX, DX
PUSH DX
MOV BL, 10
MOV CX, 10
INPUT: MOV AH, 1
INT 21H
CMP AL, 20H ;空格分隔字符
JE SAVE
;輸入十進制數，將數存入SI對應的內存單元
MOV DL, AL
MOV AX, [SI]
MUL BL
SUB DL, 30H
ADD AL, DL
MOV [SI], AX
JMP INPUT
SAVE:
ADD SI, 2
LOOP INPUT
;數組保存完畢
LEA SI, ARY
MOV DI, SI
ADD DI, 2
SUB SI, 2
MOV E, SI ;E用於存放數組的前一個地址，用來判斷遍歷結束
ADD SI, 2
XOR AX, AX ;AX用來存插入元素的地址
MOV CX, 9 ;總循環次數
GO: MOV BX, [DI]
PUSH SI ;第一個數的位置壓棧
CMPA: CMP BX, [SI]
JA SEL
;小於就把AX的值存放當前要插入的位置
MOV AX, SI
SUB SI, 2
CMP SI, E
JNE CMPA
SEL: CMP AX, 0 ;判斷AX是否又被修改過，沒有說明當前數比前面的數大
JE CON
POP SI ;取出第一個數字的位置
;從AX到SI這一段的所有數字往後移動一個位置
CHANGE: MOV DX, [SI]
XCHG DX, [SI+2]
;當SI表示的位置在AX前面了，說明移動完成
MOV BP, SI
SUB SI, 2
CMP AX, BP
JNE CHANGE
MOV SI, AX
MOV [SI], BX
CON: ADD DI, 2 ;繼續下一次
MOV SI, DI
SUB SI, 2
XOR AX, AX ;同時需要清空AX
CALL PRINT
LOOP GO
EXIT: MOV AH, 4CH
INT 21H
P ENDP
;以下爲十進制輸出數組中的所有數
PRINT PROC NEAR
PUSH SI
PUSH CX
PUSH AX
PUSH DX
LEA DX, CRLF
MOV AH, 9
INT 21H
LEA SI, ARY
MOV CX, 10
L1: MOV AX, [SI]
MOV N, AX
CALL OUTPUT
ADD SI, 2
MOV DX, 20H
MOV AH, 2
INT 21H
LOOP L1
POP DX
POP AX
POP CX
POP SI
RET
PRINT ENDP
OUTPUT PROC NEAR
PUSH AX
PUSH BX
PUSH CX
PUSH DX
XOR CX, CX
MOV AX, N
MOV BX, 10
L2: XOR DX, DX
DIV BX
PUSH DX
INC CX
CMP AX, 0
JNE L2
L3: POP DX
ADD DX, 30H
MOV AH, 2
INT 21H
LOOP L3
POP DX
POP CX
POP BX
POP AX
RET
OUTPUT ENDP
S2 ENDS
END P