Массив структур: добавление записи, удаление записи, поиск по одному или нескольким из полей

.386
MASM
MODEL   use16 small ;модель памяти
STACK   256 ;размер стека
include mac.inc ;подключение файла с макросами
worker  struc   ;информацияао сотруднике
nam db  30 dup (' ')    ;фамилия, имя, отчество
sex db  ' ' ;пол
birthdate   db  8 dup (' ') ;дата рождения
worker  ends
.data
N=5         ;размерность базы данных
;массив структур
StrWork worker  <>  ;рабочая структура для различных промежуточных манипуляций  
sotr    worker N DUP (<>)   ;массив структур
CLEAR_LINE   DB   27,'[K$'
menu    db  10,13,10,13,'*************************************'
    db  10,13,          '*1-Добавить запись                  *'
    db  10,13,          '*2-Найти                            *'
    db  10,13,          '*3-Просмотр                         *'
    db  10,13,          '*4-Удалить по маске                 *'
    db  10,13,          '*5-Удалить все                      *'
    db  10,13,          '************************************* ','$'
mname   db  10,13,10,13,'Введите имя (не более 30 символов) - $'
msex    db  10,13,'Введите пол (''м'' или ''ж'') - $'
mposition   db  10,13,'Введите должность (не более 30 символов) - $'
mage    db  10,13,'Введите возраст (не более 2 символов) - $'
mstanding   db  10,13,'Введите стаж работы (не более 2 символов) - $'
msalary db  10,13,'Введите оклад (не более 4 символов) - $'
mbirthdate  db  10,13,'Введите дату рожденияа (дд.мм.гг) - $'
findname    db  10,13,10,13,'Введите имя для поиска - $'
mes2    db  10,13,10,13,'Имя - '
mname1  db  30 dup (' ')
    db  10,13,'Пол - '
msex1   db  ' '
    db  10,13,'Дата рождения - '
mbirthdate1 db  8 dup (' '),'$'
mes3    db  10,13,10,13,'Запись успешно удалена!','$'
Err1    db  10,13,10,13,'Нет места в базе данных.','$'
Err2    db  10,13,10,13,'Такой записи нет в базе данных! Повторите запрос.','$'
DelAllMsg db          10,13,'Все записи удалены!','$'
Flag    db  0   ;флаг для использования в процедуре delete
.code
    assume  ds:@data,es:@data
main:       ;начало программы
    mov ax,@data
    mov ds,ax   
    xor ax,ax
    push    ds
    pop es
go:
    ClearScreen
    PrintStr    menu    ;вывод строки mes1 на экран
    MOV ah,07h
    INT 21h
    cmp al,31h
    je  insert
    cmp al,32h
    je  search
    cmp al,33h
    je  show_all
    cmp al,34h
    je  del_by_mask
    cmp al,35h
    je  delete
    jmp go
Insert  proc
;добавление новой записи
;заполняем рабочую структуру
    ClearScreen
    PrintStr    mname   
    GetStr  StrWork.nam,30
    PrintStr    msex    
    GetStr  StrWork.sex,1
    PrintStr    mbirthdate  
    GetStr  StrWork.birthdate,8
;поиск свободного элемента в массиве структур (в ней все поля пустые):
    lea di,sotr
    mov cx,N
cyc1:
    cmp [di].sex,' '    ;будем искать свободную запись по пустому полю sex
    je  m1
    add di,type worker
    loop    cyc1
    PrintStr    Err1
    jmp go
;копируем StrWork в свободную запись базы данных
m1:         
    lea si,StrWork  ;откуда - ds:si
;               ;куда - es:di (уже загружены)
    mov cx,type worker
rep movsb
;заканчиваем и уходим на основное меню программы:
    jmp go
Insert  endp
search  proc    near ;4 пункт
;процедурa поиска записи в массиве и вывода на экран ее содержимого
    ClearScreen
    PrintStr    findname
    GetStr  StrWork.nam,30
    push    ds
    pop es  
    lea bx,sotr
    mov cx,N
cyc2:   
    push    cx
    mov cx,30
    mov di,bx   
    lea si,StrWork
repe    cmpsb       ;будем искать путем сравнения цепочек
    jcxz    m2  ;если цепочки совпадают, то переход на m2
    add bx,type worker
    pop cx
    loop    cyc2
    PrintStr    Err2
    MakePause
    jmp go
m2:
    pop cx  ;удалим из стека cx
    cmp Flag,0
    je  m22
    ret
m22:
;выведем на экран содержимое найденной записи, ее адрес в bx 
    CopyStr mname1,[bx].nam,30
    CopyStr msex1,[bx].sex,1
    CopyStr mbirthdate1,[bx].birthdate,8
    PrintStr    mes2
    MakePause
    jmp go
search  endp    
 
delete  proc
    ClearScreen
lea bx,sotr
    mov cx,N
cyc7:   
    push    cx
    mov cx,30
    mov di,bx   
    
    null_string [bx].sex,1
    
    add bx,type worker
    pop cx
    loop    cyc7
    PrintStr DelAllMsg
delete  endp
show_all    proc    near
;процедурa поиска записи в массиве и вывода на экран ее содержимого
    ClearScreen
    lea bx,sotr
    mov cx,N
cyc4:   
    push    cx
    mov cx,30
    mov di,bx   
    CMP [bx].sex,' '
    JE next_elem
    CopyStr mname1,[bx].nam,30
    CopyStr msex1,[bx].sex,1
    CopyStr mbirthdate1,[bx].birthdate,8
    PrintStr    mes2
next_elem:
    add bx,type worker
    pop cx
    loop    cyc4
    MakePause
    JMP go
show_all    endp
del_by_mask proc near
    mov Flag,1  ;указать на частичное использование кода search
    call    search
    mov Flag,0  ;сбросим Flag
;адрес удаляемой строки в bx
;очищаем поля записи, для чего используем макрокоманду null_string
    null_string [bx].nam,30
    null_string [bx].sex,1
    null_string [bx].birthdate,8
    PrintStr    mes3
    MakePause
    jmp go
del_by_mask endp
exit:
MOV ax,4c00h
INT 21h 
end main

search  proc    near ;
;процедурa поиска записи в массиве и вывода на экран ее содержимого
        ClearScreen
        PrintStr        findname
        GetStr  StrWork.nam,30
        push    ds
        pop     es      
        lea     bx,sotr
        mov     cx,N
cyc2:   
        push    cx
        mov     cx,30
        mov     di,bx   
        lea     si,StrWork
repe    cmpsb           ;будем искать путем сравнения цепочек
        jcxz    m2      ;если цепочки совпадают, то переход на m2
        add     bx,type worker
        pop     cx
        loop    cyc2
        PrintStr        Err2
        MakePause
        jmp     go
m2:
        pop     cx      ;удалим из стека cx
        cmp     Flag,0
        je      m22
        ret
m22:
;выведем на экран содержимое найденной записи, ее адрес в bx    
        CopyStr mname1,[bx].nam,30
        CopyStr msex1,[bx].sex,1
        CopyStr mbirthdate1,[bx].birthdate,8
        PrintStr        mes2
        MakePause
        jmp     go
search  endp