Создание каталога, Ассемблерные вставки в Turbo Pascal 7.1 Опции

[Account]

Не получается создать каталог, возвращает код ошибки 3 (неправильный путь (прим. по книге Джордейна)), извращался по разному, но вот именно почемуто всегда выдает ошибку с неверным путем, тогда решил прямо на диске C создать и все равно не получается
Функция из программы

procedure crtdir;
var er:integer;
 begin
   clrscr;
   
   s:='c:mydir';
   s:=s+chr(0);
   s:=s+'$';
   s[0]:=chr(9);
   asm
    mov ah,09h
    lea dx,s[1]
    int 21h

    mov ah,39h
    lea dx,s[1]
    mov dl,0 {<<--- ошибка. надо убрать, скопировал с подготовки прерывания на получение текущего каталога, а убрать забыл}
    int 21h
    mov er,ax
  end; {точка с запятой есть, но почему то не отображается}
  writeln;
  writeln('error code: ',er);
end;

Ошибка найдена и устранена. Указал в комментариях кода

Сообщение отредактировано: Account - 5.01.2012 15:30