Создание подкаталога

.8086
.model small
.stack 0FFh
.data
buff db 254,0,254 dup ('$')
path db 'F:\NewFolder', 0
.code
Start:
    mov ax, @data
    mov ds, ax
 
    ;mov ah, 09h
    ;mov dx, offset msg
    ;int 21h
    
    mov ah, 0Ah
    mov dx, offset buff
    int 21h
        
    mov ah, 39h
    mov dx, offset path
    int 21h
 
    mov ax, 4c00h
    int 21h
end Start

.8086
.model small
.stack 0FFh
.data
buffer db 10 dup(?)
catalog1 db '\Test',0
catalog2 db 'test',0
.code
Start:
   mov ax,3        ; Очистка экрана
    int 10h 
    mov ax,@data
    mov ds,ax             ; Создать подкаталог Test в текуще директории
  
 mov dx,offset catalog1
    mov ah,39h
    int 21h 
 mov     cx, 3 
sozd_catalog:
    mov ah,3Bh       ; установить текущим подкаталог \Test
    int 21h
    mov dx,offset catalog2    ; Создание подкаталога Test в каталоге \Test
    mov ah,39h
    int 21h
loop    sozd_catalog 
    mov ax, 4c00h
    int 21h
end Start

.8086
.model small
.stack 0FFh
.data
buffer db 10 dup(?)
catalog1 db 'test',0
mes db 'Katalogi sozdany!',0Dh,0Ah,'$'
.code
Start:
   mov ax,3        ; Очистка экрана
    int 10h 
    mov ax,@data
    mov ds,ax             
 
 mov     cx, 50     ;степень вложенности
sozd_catalog:
  
    mov dx,offset catalog1    ; Создание подкаталога Test в каталоге \Test
    mov ah,39h
    int 21h
    mov ah, 3Bh     ; установить текущим подкаталог \Test
    int 21h
loop    sozd_catalog 
mov ah,09h
mov dx,offset mes
int 21h
    mov ax, 4c00h
    int 21h
end Start