Функция из программы
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;
Ошибка найдена и устранена. Указал в комментариях кода