darkor

error_line_41

Nov 9th, 2020
1,110
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. sseg    segment stack           ; опис стеку
  2.     db  256 dup (?)
  3. sseg    ends
  4.  ;---------------------------------------------------------
  5. dseg    segment         ; опис даних
  6.  
  7. path    db  '\folder_3',0
  8. filename    db  'file_3',0
  9. root_path   db  '/..'
  10. buff    db  '$'
  11. error   db  'error$'
  12.  
  13. dseg    ends   
  14.  ;-------------------------------------------------------------
  15. cseg    segment             ; типовий початок програми
  16.     assume cs:cseg,ds:dseg,ss:sseg
  17. start:  jmp main
  18. main:   push    ds
  19.     mov ax,0
  20.     push    ax
  21.     mov ax,dseg
  22.     mov ds,ax
  23.  
  24.     mov dx,offset path      ; створення каталога
  25.     mov ah,39h
  26.     int 21h
  27.     jc  erop
  28.     mov dx,offset path      ; зміна каталога
  29.     mov ah,3bh
  30.     int 21h
  31.     jc  erop
  32.     mov dx,offset filename      ; створення і відкриття файлу
  33.     mov cx,0   
  34.     mov ah,5bh
  35.     int 21h
  36.     jc  erop
  37.     mov bx,ax
  38.     mov ah,3eh          ; закриття файлу
  39.     int 21h
  40.     jc  erop
  41.     mov dx,root_path        ; перехід в кореневий каталог
  42.     mov ah,3bh
  43.     int 21h
  44.     jc  erop
  45.  ;-----------------------------------------------------------
  46. exit:   mov ax,4c00h            ; вихід з програми
  47.     int 21h
  48.  ;-------------------------------------------------------------------
  49.  erop:  mov dx,offset error
  50.     mov ah,9
  51.     int 21h
  52.     jmp exit
  53.   ;-------------------------------------------------------------------
  54. cseg    ends
  55.     end start
  56.  
RAW Paste Data