Сколько байт и почему занимает сегмент данных программы?

; символ пробела заменен за # для наглядности,
; чтобы продемонстрировать, что алгоритм работает 
; и с пустой строкой!)))
 
LOCALS @@
.model small
.stack  100h
.data
Before db "Before:", 0
After  db "After:", 0
Newline db 10, 0
string db "##################This is a string, just a string",0
emptyString db "###########",0
number db 3 dup(?), "$"
numberLength = $-number-1
 
; замечательный макрос  
PrintString macro str
    local strlabel
    .data
        strlabel db str, 0
    .code
        mov si, offset strlabel
        call PrintZString
endm
 
.code
main proc
    mov ax, @data
    mov ds, ax
 
    ; mov di, offset string
    ; call Strlen
    ; ; ax contains string length
 
    ; mov di, offset number
    ; mov si, numberLength
    ; mov dx, ax
    ; call IntToASCIIString
 
    ; mov dx, offset number
    ; call PrintString
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; PrintString - печать строки
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    PrintString "Before: "
    mov si, offset string
    call PrintZString            ; печатаем исходную строку
 
    push offset string  
    call DeleteSpaces           ; удаляем из строки пробелы
    sub sp, 2   ; удаляем параметры из стека
 
    PrintString 10  ; newline 
 
    PrintString "After: "
    mov si, offset string
    call PrintZString            ; печатаем обработанную строку
 
 
    PrintString 10
 
 
    PrintString "Before: "
    mov si, offset emptyString
    call PrintZString            ; печатаем исходную строку
 
    push offset emptyString
    call DeleteSpaces           ; удаляем из строки пробелы
    sub sp, 2   ; удаляем параметры из стека
 
    PrintString 10
 
    PrintString "After: "
    mov si, offset emptyString
    call PrintZString            ; печатаем обработанную строку
 
    mov ax, 4c00h               
    int 21h                     ; выходим из программулины
main endp
 
 
; принимает параметр через стек!!!
DeleteSpaces proc
 
push bp
mov bp, sp
 
; параметр, переданный через стек!!!
mov di, word ptr [bp+4]
 
; можно определить вложеную функцию в самом начале, это
; будет окей, но тогда при вызове процедуры DeleteSpaces
; начнет выполняться код вложеной ниже процедур
; так как сами по себе процедуры никак не обособлены как
; сущности для процессора, для процессора это просто перехо
; ды ip с одного места на другое и не более. 
jmp @@Skip  ; теперь при вызове DeleteSpaces код PrintZString не будет выполнен,
    ; si -- char buffer
    PrintZString proc
        @@lp:
            lodsb
            ;   al = [di]; di++;
 
            cmp al, 0
            je @@Exit
 
            ; putting char to stdout: PutChStdout(char dl), then calling PutChStdout = mov ah, 02h; int 21h
            mov dl, al
            mov ah, 02h 
            int 21h
        jmp @@lp
 
        @@Exit:
        ret
    endp
@@Skip:
 
; алгоритм !!!!!!!!!!!!!!!!
;     freeposition = array;
 
;    while(true) {
;         if (*array == 0) return;
;         if (array == " ") {
;             array++;
;         } else {
;             break;
;         }
;     }
 
;     while(array != 0) {
;         *freeposition = *array
;         array++;
;         freeposition++;
;     }
 
;     *freeposition = 0;
 
    ; si = указатель на текущую позицию чтения
    ; di = указатель на текущую позицию для записи (свободная позиция)
    ; сначала мы находим первый непробельный символ, а если таких не найдется,
    ; то просто выходим из процедуры
    ; затем мы на свободные позиции записываем оставшуюся часть строки
    ; фактически мы просто делаем сдвиг строки влево на количество пробельных
    ; символов
 
    ; действительно, lodsb и stosb замечательные команды, которые подходят для
    ; этой процедуры наилучшим образом, не понимаю, почему мне сразу не пришло 
    ; в голову их использовать!
 
    push ds
    pop es ; es = ds
    mov si, di  ; di is a free position
                ; si is a current position
 
    @@SearchingFirstSymbol:
    lodsb   ; al = [si]; si++
    cmp al, 0
    je @@Exit
    cmp al, "#" ; <<----------- этот символ будет удаляться из строки
    je @@SearchingFirstSymbol
 
    @@While:
    cmp al, 0
    je @@Exit
        stosb   ; [di] = al; di++
        lodsb   ; al = [si]; si++
    jmp @@While
 
    @@Exit:
    stosb   ; al=0; [di] = al; di++
    pop bp
    ret 
 
    ; тоже вложенная процедура, но по своей сути
    ; никакой вложенности тут нет, в дебаггере 
    ; код просто идёт за последней инструкцией ret
    ; можно было бы её не вкладывать, а просто написать
    ; сразу за процедурой DeleteSpaces, и сгенерированный
    ; код никак бы не поменялся
    PrintString proc
        mov ah, 9   ;номер системного вызова для печати строки в стандартный поток вывода
        int 21h     ;делаем системный вызов
        ret
    endp
endp
 
end main