Строки в ассемблере

sseg    segment stack 'stack'               ;завдання сегменту пам'яті, виділення памяті  
    db 128 dup(?)                  
sseg    ends           

dseg    segment 'data'                      ;Завдання сегмента данних  
    text1 db 'Програма стартувала',13,10,'$'
    text2 db 'Введіть ваш рядок' '$'
    text3 db 'Початковий рядок: ','$'
    text4 db 'Результат','$'
    sum  dw 0d                      ;Сума кодів знаків
    mas db 'Текст, який потрібно перетворити'
    n db ?                          ;Довжина рядка
    kol db 0                            ;Счетчик на кількість перестановок
dseg ends

;------------------------------------ Текст   програми -----------------------------------
cseg     segment 'code'                                  ; Завдання сегмента команд
            assume  cs:cseg, ds:dseg, ss:sseg    ;Встановлення відповідності між cегментними
                                    ;регістрами (cs,ds,ss) і
                                    ;програмними сегментами (cseg,dseg,sseg)
  start proc far                                        ;Початок процедури start (точка входу - start)
          mov   ax, dseg                                ;Ініціалізація сегментного регістра ds на
          mov   ds, ax                                  ;програмний сегмент даних dseg
;---------------------------------------------------------------------------------------------------------------------------
     m1:  lea   dx, text1           ; Завантажування  у  регістр  dx із сегмента даних адреси
                                            ; першого  байта  текста  text1
          call  WrStr               ;Звернення до процедури WrStr виведення на екран текста text1
          mov   dx, offset text2    ;Завантажування  у  регітр  dx із сегмента даних адреси
                                            ; першого  байта  текста  text2
          call  WrStr               ;Звернення до процедури WrStr виведення на екран текста text2

;----------------------------------------------------------------------------------------------------------------------------
cykl:       mov al,a[si-1]
        mov ah,a[si+1]
        mov a[si-1],ah
        mov a[si+1],al
        inc kol
        loop cykl