IPB
ЛогинПароль:

> ПРАВИЛА РАЗДЕЛА!!!

1. Заголовок или название темы должно быть информативным
2. Все тексты программ должны помещаться в теги [CODE=asm] [/CODE]
3. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно, такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Ассемблера. Исключение только с согласия модератора.
5. НЕ используйте форум для личного общения! Все, что не относиться к обсуждению темы - на PM!
6. Проверяйте программы перед тем, как выложить их на форум!!

 
 Ответить  Открыть новую тему 
> Создание каталога, Ассемблерные вставки в Turbo Pascal 7.1
сообщение
Сообщение #1


Бывалый
***

Группа: Пользователи
Сообщений: 212
Пол: Мужской

Репутация: -  0  +


Не получается создать каталог, возвращает код ошибки 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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 17.08.2018 1:18
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"