Использование 16-битного ассемблера в Delphi 7 на Windows 98: Преодоление проблем с прерываниями

Delphi , ОС и Железо , Windows

Сегодня мы поговорим о проблеме, с которой сталкиваются разработчики, использующие Delphi 7 для работы с 16-битным ассемблером в операционной системе Windows 98. В частности, речь пойдет о сложностях, возникающих при использовании прерываний в ассемблерном коде. Мы рассмотрим пример, связанный с форматированием дискет, и найдем решение этой проблемы.

Описание проблемы

Разработчик столкнулся с проблемой при попытке использовать 16-битный ассемблерный код внутри программы на Delphi 7, предназначенной для работы под Windows 98. При использовании прерываний возникали сбои в работе программы, в том числе "синий экран смерти" или зависание. Это заставило разработчика предположить, что использование 16-битного ассемблера в Delphi под данную операционную систему невозможно. В качестве примера кода был приведен фрагмент, предназначенный для форматирования дискеты через флоппи-драйв.

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
begin
    asm
    mov ax,$0301
    mov bx,$0200
    mov cx,$0001
    xor dx,dx
    int $13
    int $20
    end;
    MessageBox(0,'Okay','Okay',MB_OK);
end.

Подтвержденный ответ

В комментариях к вопросу было указано, что напрямую вызывать BIOS и обходить драйверы невозможно. Также было предложено использовать Delphi 1, который генерирует 16-битные приложения, и который шел в комплекте с Delphi 2 как переходный этап от 16-битных к 32-битным приложениям. Однако, согласно комментариям, использовать Delphi 7 для таких целей не удастся.

Альтернативный ответ

Как альтернативный вариант, было предложено попробовать скомпилировать приложение как "16-битное консольное" приложение, поскольку Delphi 7 по умолчанию генерирует 32-битные приложения, и прерывания, используемые в примере, не доступны для 32-битных приложений. Также было отмечено, что в ассемблерном коде следует использовать шестнадцатеричные числа.

Решение проблемы

Чтобы решить проблему с использованием 16-битного ассемблера в Delphi 7 на Windows 98, разработчикам следует рассмотреть следующие шаги:

1. Убедиться, что ассемблерный код написан корректно и использует правильные прерывания и регистры. Например, для форматирования дискеты необходимо использовать прерывание 0x03, а не 0x0D, как было указано в одном из комментариев.
2. Попытаться скомпилировать проект как 16-битное приложение, если это возможно в Delphi 7. В противном случае, рассмотреть возможность использования более старой версии Delphi, такой как Delphi 1, которая поддерживает 16-битную архитектуру.
3. Использовать Win32 API для достижения поставленных задач, что позволит работать с оборудованием и операциями ввода-вывода, не прибегая к использованию напрямую BIOS и прерываний.

Заключение

В данной статье мы рассмотрели проблему использования 16-битного ассемблера в Delphi 7 на Windows 98 и возможные пути её решения. Важно помнить, что Delphi 7 предназначен для создания 32-битных приложений, и для работы с 16-битным кодом может потребоваться использование других инструментов или версий Delphi.

Создано по материалам из источника по ссылке.

Проблема заключается в использовании 16-битного ассемблерного кода в Delphi 7 для работы с прерываниями в операционной системе Windows 98, что может приводить к сбоям в работе программы.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::