Разбить строку и записать информацию в отдельные переменные - Assembler

text segment
            assume CS:text,DS:data
            begin: mov AX,data
            mov DS,AX
            mov es,ax 
                      
            mov CX,length 
            mov di,offset stream   
            cld
            mov AL,' '    
            repne scasb 
            je for_surname         
   for_surname:   
             mov BX,di  
             mov CX,di
             dec CX
             mov si,offset stream
             push DI
             mov di,offset surname     
             cld
             rep movsb  
             
            
            lea cx,length
            sub CX,BX
            dec cx
            pop di  
            xor si,si
            cld  
            mov AL,' '    
            repne scasb 
            je for_birth
            
   for_birth: 
             mov CX,di 
             sub CX,BX 
             dec CX
             lea si,[stream+BX]  
             mov BX,di 
             push DI
             mov di,offset birth     
             cld
             rep movsb 
         
                         
            lea cx,length
            dec cx
            pop di  
            xor si,si
            cld  
            mov AL,' '    
            repne scasb 
            je for_group
            
   for_group: 
             mov CX,di 
             sub CX,BX 
             dec CX
             lea si,[stream+BX]  
             push DS
             pop ES
             mov BX,di
             mov di,offset group     
             cld
             rep movsb 
            mov AH,4Ch
            mov AL,0
            int 21h
 
            
    text ends  
data segment
stream   db 'Boguslavskiy 31.03.1997 PI-24 $' 
length dw 30    
surname db 30 dup(0)
birth db 30 dup(0)
group db 30 dup(0)      
    data ends  
 
 
end begin