SSEG SEGMENT STACK
 DB 128 DUP(?)       
SSEG ENDS

DSEG SEGMENT    
SLOVO DB 'ALINA SDALA BLOK A MAKSIM NET .'
NEW DB 32 dup(?)
DSEG ENDS

CSEG SEGMENT
 ASSUME CS:CSEG,DS:DSEG,SS:SSEG
START: MOV AX,DSEG  
 MOV DS,AX
;-----------------------------------
    MOV SI,0

DIMETKA:     MOV DI,0

POISK: 
        MOV AL, SLOVO[SI]
        CMP AL,'.'
        JE OFF
    
    MOV NEW[DI],AL
    INC SI
    INC DI
    CMP AL," "
    JNE POISK
   
    MOV NEW[DI],'$'
    MOV BX,SI        ;сохраняем позицию счетчика
    MOV SI,0 
    MOV CH,NEW[SI]
    CMP CH,NEW[DI-2] ;минус бакс и пробел 
    JNE DOLLAR
    
    MOV DL,10 ;переход на новую строку
    MOV AH,2
    INT 21H     
    
    mov ah,09h
    lea dx,NEW     
    int 21h

DOLLAR: 
       MOV NEW[DI],'J' ;убираем знак доллара
       MOV SI,BX
       JMP DIMETKA

OFF:
MOV AH,01H  ;при нажатии ентера прога закрывается
INT 21H

MOV AH, 4CH
INT 21H
  
CSEG ENDS
END START
