STACKSG SEGMENT PARA STACK
    DB 64 DUP(?) ; область стека, не менее 32 слов
STACKSG ENDS

DATASG SEGMENT PARA 'DATA'
    str1 db "OO bbbb  ttttt   tt $", 0
    str2 db 24 dup (" ")
DATASG ENDS

CODESG SEGMENT PARA 'CODE'
    ASSUME CS:CODESG,DS:DATASG,SS:STACKSG
    ENTRY PROC FAR ; определить им¤ ENTRY как точку входа в основную программу из DOS (начало программы)
    PUSH DS ; сохранить в стеке адрес возврата
    SUB AX,AX ; обнулить регистр AX
    PUSH AX ; занести в стек нулевое смещение дл¤ адреса возврата
    MOV AX,DATASG
    MOV DS,AX
    xor SI, SI
    xor DI, DI
    lea SI, str1
    lea DI, str2
m1:
    xor al, al
    mov al, byte ptr[SI]
    mov byte ptr[DI], al
    test al,al
    jz exit
    cmp byte ptr[SI], " "
    je m3
    jne m2
m2:
    inc SI
    inc DI
    jmp m1

m3:
    inc DI
m4:
    inc SI

    cmp byte ptr[SI], " "
    je m4
    jmp m1
exit:
MOV AH,9;пауза в программе.
LEA DX,str2
INT 21H
RET
ENTRY ENDP
CODESG ENDS

END ENTRY