Вывести слова, которые встречаются в тексте ровно один раз

mydata segment para 'data'
 
buf db 100,0
str1 db 101 dup('$')
newline db 0dh,0ah,'$'
mas db 20 dup('$')
len dw ?
lenzag dw ?
nword  dw ?
mydata ends
mystack segment para 'stack'
   db 256 dup (?)
mystack ends
  
mycode segment para 'code'
  assume cs:mycode, ds:mydata, es:mydata
 
start:
  mov ax,mydata
  mov ds,ax
  mov es,ax
  xor bx,bx 
  lea dx,buf
  mov ah,0ah
  int 21h
  lea dx,newline
  mov ah,09h
  int 21h
 
  call lengz
 
mitka:
   call search
   call compare
   cmp bx,1
   jne m6
   lea dx,mas
   mov ah,09h
   int 21h
   mov ah,02h
   mov dl,' '
   int 21h
   inc si
m6:   
   mov ah,0
   mov al,0dh 
   cmp str1[si],al
   ja mitka
   mov ax,4c00h
   int 21h
lengz proc near
 xor bx,bx
 mov al,0dh
m7:  
  cmp str1[si],al
  je xxx
  inc si
  inc bx
  jmp m7
xxx:
   mov lenzag,bx
   xor ax,ax
   mov si,0
   ret
lengz endp
 
search proc near       
   mov cx,20
   mov al,'$'
   mov di,0
m2:
   mov mas[di],al
   inc di
   loop m2
   mov di,0
m1:
   mov al,' '
   cmp str1[si],al
   je ext
   mov ah,str1[si]
   mov mas[di],ah
   inc di
   inc si
   mov al,0dh
   cmp str1[si],al
   je ext
   jmp m1
ext:
   mov len,di
   mov di,0
   ret
search endp
 
compare proc near
    xor bx,bx
        push si
    mov al,str1[si]
    mov cx,lenzag
    lea di,str1
    repne scasb
    mov cx,len
    lea di,mas
    repe cmpsb
        cmp cx,0
    jne m5
    mov bx,1
        mov al,0dh
        cmp str1[si],al
        je me
m5: pop si
        jmp kaka
me:     mov ax,4c00h
        int 21h
kaka:
    ret 
 
 
compare endp
 
 
 
mycode ends
 
end start