希尔排序是把记录按下标的一定增量分组,对每组使用直接插入排序算法排序;随着增量逐渐减少,每组包含的关键词越来越多,当增量减至1时,整个文件恰被分成一组,算法便终止。
以下是汇编实现的代码:
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
D DW 5
AD DW 10
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