Не получается создать каталог, возвращает код ошибки 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;



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