error_line_41

sseg    segment stack           ; опис стеку
    db  256 dup (?)
sseg    ends
 ;---------------------------------------------------------
dseg    segment         ; опис даних

path    db  '\folder_3',0
filename    db  'file_3',0
root_path   db  '/..'
buff    db  '$'
error   db  'error$'

dseg    ends
 ;-------------------------------------------------------------
cseg    segment             ; типовий початок програми
    assume cs:cseg,ds:dseg,ss:sseg
start:  jmp main
main:   push    ds
    mov ax,0
    push    ax
    mov ax,dseg
    mov ds,ax

    mov dx,offset path      ; створення каталога
    mov ah,39h
    int 21h
    jc  erop
    mov dx,offset path      ; зміна каталога
    mov ah,3bh
    int 21h
    jc  erop
    mov dx,offset filename      ; створення і відкриття файлу
    mov cx,0
    mov ah,5bh
    int 21h
    jc  erop
    mov bx,ax
    mov ah,3eh          ; закриття файлу
    int 21h
    jc  erop
    mov dx,root_path        ; перехід в кореневий каталог
    mov ah,3bh
    int 21h
    jc  erop
 ;-----------------------------------------------------------
exit:   mov ax,4c00h            ; вихід з програми
    int 21h
 ;-------------------------------------------------------------------
 erop:  mov dx,offset error
    mov ah,9
    int 21h
    jmp exit
  ;-------------------------------------------------------------------
cseg    ends
    end start