При создании директории название обрезается (int 21h ah=39h)

use16
org 100h
macro write_s str
{
    mov     ah, 9h
    mov     dx, str
    int     21h
}
 
macro write_c char
{
    mov     dl, char
    mov     ah, 2h
    int     21h
}
 
 
macro write_err str
{
    mov     ah, 9h
    mov     dx, str
    int     21h
    mov     ax, 4c00h
    int     21h
}
 
 
macro exit_dos
{
    mov     ax, 4c00h
    int     21h
}
 
macro get_dos_ver
{
    mov     dx, dosv   ;
    mov     ah, 9h     ;
    int     21h        ;
                       ;
    mov     ah, 30h    ;get dos version
    int     21h        ;
    push    ax         ;
    add     al, ch_ofs ;char offset for major
    write_c al         ;
    write_c '.'        ;
    pop     ax         ;
    mov     al, ah     ;put minor part
    mov     bl, 10     ;
    xor     ah, ah     ;haha, classic :)
    div     bl         ;idk why but let it be as is
    add     al, ch_ofs ;char offset for minor part
    write_c al         ;
}
   mov dx, tempdir     ; |make dir
    mov ah, 39h        ; |
    int 21h            ; |
    jnc dir_succ       ;    |without any errors
 
      cmp ax, 3h       ;
      je pnf_err       ; if error is "path not found"
      write_err adm    ; ax should be equals to 3
      pnf_err:         ; otherwise equals to 5
      write_err pnfm   ; where error is "access denided"
 
    dir_succ:          ;    |
    write_s dcm        ;    |
    get_dos_ver
 
    exit_dos
    ;const
    ch_ofs=30h         ;ascii offset
 
    ;variables
    tempdir db "c:\temporary",0
    filename  db "temp.txt$"
 
    ;messages
    dcm       db "dir was created",13,10,"$"
    ;fcm      db "file was created",13,10,$
    ;fom      db "file was open",13,10,$
    ;fwm      db "file was written",13,10,$
    ;fclm     db "file was closed",13,10,$
    ;fcpm     db "copying was successful",13,10,$
    ;fdm      db "file was deleted",13,10,$
    ;frm      db "file was renamed",13,10,$
    dosv      db "Dos ver: $"
 
    ;errMessages
    pnfm      db "path not found",13,10,"$"
    adm       db "access denided",13,10,"$"
    ;ircdm db "impossible remove curr dir",13,10,$
    ;tmofm db "too much opened files",13,10,$
    ;fnfm db "file not found",13,10,$
    ;amwm db "access mode is wrong",13,10,$
    ;wim db "wrong id",13,10,$
    ;werm db "write doesn't ended properly",13,10,$

use16                                   ;Генерировать 16-битный код
org 100h                                ;Программа начинается с адреса 100h
 
        mov     dx,     hello           ;В DX адрес строки.
        mov     ah,     9               ;Номер функции DOS.
        int     21h                     ;Обращение к функции DOS.
 
        mov     ax,     4C00h           ;В регистр AH помещаем 4Ch, в AL – 00h.
        int     21h                     ;Завершение программы
;-------------------------------------------------------
hello db 'Hello, world!$'

format  MZ                      ;Исполняемый файл DOS EXE (MZ EXE)
entry   code_seg:start          ;Точка входа в программу
;--------------------------------------------------------------------
stack   200h                    ;Размер стека
;--------------------------------------------------------------------
segment data_seg                ;Cегмент данных
        CrLf            db      0Dh, 0Ah, '$'   ;перевод строки
        msgPressAnyKey  db      0Dh, 0Ah, 'Press any key to exit...', '$'
;--------------------------------------------------------------------
segment code_seg                ;Сегмент кода
start:                                  ;Точка входа в программу
        mov     ax,     data_seg        ;Инициализация регистра DS
        mov     ds,     ax
 
        mov     ah,     09h
        mov     dx,     msgPressAnyKey
        int     21h
        mov     ah,     0
        int     16h
 
        mov     ax,     4C00h
        int     21h                     ;Завершение программы

; fasm example of writing multi-segment EXE program
 
format MZ
 
entry main:start            ; program entry point
stack 100h              ; stack size
 
segment main                ; main program segment
 
  start:
    mov ax,text
    mov ds,ax
 
    mov dx,hello
    call    extra:write_text
 
    mov ax,4C00h
    int 21h
 
segment text
 
  hello db 'Hello world!',24h
 
segment extra
 
  write_text:
    mov ah,9
    int 21h
    retf