[Assembler] Массивы структур

[Opiym]

Приветствую !
Дали задание, почти сделал, но где - то есть ошибка, если не трудно посмотрите пожалуйста ! Спасибо !
Задание:
Поля структуры: номер по порядку, ФИО, год рождения, пол. Необходимо выдать ФИО девочек в возрасте старше 18 лет.

prg segment para public 'code'
assume cs:prg,ss:prg,es:prg,ds:prg
org 100h
start: jmp go
worker struc
n db 30 dup(‘ ‘)
sex db ' '
a db ?
worker ends
mas worker <'Petrova Olga $','g',17>,<'Ivanov Ivan $','m',18>,<'Svetlova Svetlana $','g',19>,<'Petrova Elena $','g',21>,<'Zaharova Mariya $','g',18>
go:
lea di,mas
mov cx,5
mov bl,'g'
mov al,18
m:
cmp [di].sex,bl
jne ml
p:
cmp[di].a,al
jle ml
v:
lea dx,[di].n
mov ah,09h
int 21h
ml:
add di,type worker
loop m
ret
prg ends
  end start

[Opiym]

Может всё таки кто - нибудь подскажет ?! )))

[alexcoder]

вызов int 21 сбрасывает регистр al

prg segment para public 'code'
assume cs:prg,ss:prg,es:prg,ds:prg
org 100h
start: jmp go
worker struc
n db 30 dup(' ')
sex db ' '
a db ?
worker ends
mas worker <'Petrova Olga $','g',17>,<'Ivanov Ivan $','m',18>,<'Svetlova Svetlana $','g',19>,<'Petrova Elena $','g',21>,<'Zaharova Mariya $','g',18>
go:
lea di,mas
mov cx,5
mov bl,'g'
mov al,18
m:
cmp [di].sex,bl
jne ml
p:
cmp[di].a,al
jle ml
v:
lea dx,[di].n
push ax
mov ah,09h
int 21h
pop ax
ml:
add di,type worker
loop m
ret
prg ends
  end start

[Opiym]

Спасибо БОЛЬШОЕ !
Буду пробовать, просто сейчас нет возможности проверить по причинам ПО ! Надеюсь что всё заработает так как надо. =)

[Opiym]

Проверил ! Всё отлично работает ! СПАСИБО !