;程序模板

extrn  endaddr:word,swapped:byte,nametab:byte,namesav:byte
public g10sort

SSEG SEGMENT PARA STACK 'stack'
	dw 100h dup(0) ;初始化堆棧大小為100
SSEG ENDS

DSEG SEGMENT
	;數據段：在此處添加程序所需的數據
DSEG ENDS

ESEG SEGMENT
	;附加段：在此處添加程序所需的數據
ESEG ENDS

CSEG SEGMENT
	assume  cs:CSEG, ds:DSEG, es:ESEG, ss:SSEG


start:	
g10sort proc far

   sub di,40
  mov endaddr,di
g20:
mov swapped,0
lea si,nametab
g30:
mov cx,20
mov di,si
add di,20
mov ax,di
mov bx,si
repe cmpsb
jbe g40
call h10xchg
g40:
mov si,ax
cmp si,endaddr
jbe g30
cmp swapped,0
jnz g20
ret
g10sort endp


h10xchg proc near

mov cx,10
lea di,namesav
mov si,bx
rep movsw

mov cx,10
mov di,bx
rep movsw

mov cx,10
lea si,namesav
rep movsw
mov swapped,1
ret

h10xchg endp

CSEG ENDS

END start