最好在这个周末之前,也就是在16号之前,帮我汇编一段微机编程的程序

.model small
.stack 40h
.data
namepar label byte
maxnlen db 21
namelen db ?
namefld db 21 dup(?)
crlf db 13,10,'$'
endaddr dw ?
messg1 db 'Name?','$'
messg2 db 'Sorted names:',13,10,'$'
namectr db 0
nametab db 30 dup(20 dup('?'))
namesav db 20 dup(?),13,10,'$'
swapped db 0
.code
begin proc far
mov ax,@data
mov ds,ax
mov es,ax
cld
lea di,nametab
a20loop:
call b10read
cmp namelen,0
jz a30
cmp namectr,30
je a30
call d10stor
jmp a20loop
a30: cmp namectr,1
jbe a40
call g10sort
call k10disp
a40: mov ah,1
int 21h
mov ax,4c00h
int 21h
begin endp
b10read proc near
mov ah,09h
lea dx,messg1
int 21h
mov ah,0ah
lea dx,namepar
int 21h
mov ah,09
lea dx,crlf
int 21h
mov bh,0<