PDK.
Почну з того, що я давно, з певних причин, не займався програмуванням.
Спіймав себе на думці, що все вже забув. Причому напроч.
Програмування для мене ніяка не діяльність від слова зовсім, тому скільки
б я цим не займався, воно все одно для мене залишається лише розвагою для
початківців. -
Відповідно й так звані проекти мої для розваг та всіляких експериментів.
Але, якщо хтось може умудриться використовувати це для чогось більш серйозного,
то я звісно не буду проти
От одного разу мені захотілось зробити, щось таке, щоб написаний код, нехай
навіть простий та дитячий, можна було б з легкістю адаптувати в інше середовище
програмування або навіть й в іншу операційну систему.
Виглядати це повинно так:
Написав я код в ТП 4.0, звісно в ТП 7.0 він запрацює без усяких коригувань,
в FreePascal можливо, щось прийдеться підлаштувати, а от в Delphi, вже
побільше треб буде адаптувати, навіть при тому, що дельфі, найбільш
паскалеподібне середовище програмування. В усьому іншому Basic, C, Asm, там
взагалі своя мнемоніка та специфіка. І от вирішив я, цю всю специфіку
відмінного від ТП, максимально 'зрівняти' на ТП, через модулі. Тобто зробити
модулі, під різні середовища, які будуть працювати 'за принципами' ТП.
Модулі, яки мають, максимально аналогічний спосіб виведення на екран,
такий же розмір екрану, таку ж кількість кольорів і таку ж відповідність
кольору та номеру. І тоді, такий код буде легше адаптувати під інше
середовище програмування, якщо використовувати такі модулі, в яких наприклад,
існують процедури типа PutPixel(X,Y,Color) і їм подібні, які часто
використовуються.
Короче, я думаю, це можна назвати такім собі, емітатором модулів ТП.
Ну на цьому, як для першого пояснення, мабуть все.
Далі розглядайте архіви з PDK самостійно.
Проект розрахований на тих, хто має уявлення, що таке програмування, в першу
чергу на мові Турбо Паскаль. В другу чергу, знайомий з іншими паскалеподібними
середовищами, такими, як TurboPascal, FreePascal, Delphi.
Архіви PDK планується викладати в хронологічному порядку. І кожен останній
архів буде вміщувати в собі попередні версії PDK, за виключенням явної втрати
актуальності якихось файлів з попередніх версій.
В першу чергу, плануються робити проби й експерименти можливої адаптації,
для таких середовищ програмування, як TurboPascal, FreePascal, Delphi,
ASM (для Колібрі, http://kolibrios.org/ru/). Скоріш за все будуть спроби
адаптації прикладів під інші компілятори і середовища.
Проект чимось схожий на проект SEFA (http://madl.frmbb.ru/viewtopic.php?id=52),
але SEFA виявився дуже складним та заплутаним, з за мого бажання зробити все
"в одному флаконі" для паскелеподібних середовищ програмування.
Код та приклади будуть використовуватись з SEFA.

PDK PDK

00NewProect.7z - http://forumstatic.ru/files/001b/d4/a7/42025.7z

Простий приклад програми "пустишки" з модулями, який нічого не робить.

Опис файлів програми та файлів модулів.

(В дужках вказані назви файлів в залежності від середовища)

ProjectP.* (ProjectP.pas   ProjectP.dpr   ProjectP.pp  ProjectP.asm)
           - самий головний файл проекту з якого все починається, який
           стартує програму користувача, тобто викликає процедуру
           StartProgram  модулю uMain.

uMain.* (uMain.pas   Main.asm)
           - головний модуль проекту в якому пишеться програма користувача
           в процедурі StartProgram.

uPDK.* (uPDK.pas   uPDK.asm )
           - файл на який "зав'язуються" усі процедури, які використовуються
           в PDK.
           Може бути "оптимізований" використанням цих процедур "напряму"
           без цього модулю.

Надалі опис модулів та їх процедур робити не планується,
так як по можливості буду описувати прямо все в модулях.
Правда, через деякий час, пояснювальна інформація може
бути видалена й там.

02PutPixel.7z - http://forumstatic.ru/files/001b/d4/a7/92488.7z

Проект ініціалізує (або емітує в деяких середовища) графічний
режим VGA 640х480, 16 кольорів.
Проказує приклад використання процедур
Procedure PutPixelPas(X,Y:OptInt16;Pixel:OptWord);stdCall;
{Вивід точки (пікселя) на екран}
та
procedure APM;{Application.ProcessMessages;}
яку потрібно використовувати після процедур виводу на екран,
перед опитуванням клавіатури та можливо в деяких інших ситуаціях,
в деяких середовищах програмування.
Далі...
Очікує натиснення клавіші Q (Shift+"q")
або закриття форми та виходить з програми.

Примітки.
Регулювання щодо відповідності кольорів, кольорам ТП можна
робити в константі-масиві ColorGPas, модуля uFORM.* (uFORM.pas, uFORM.asm)

На майбутнє.
Для власних проб та експериментів, використовуйте останню програму PDK,
так як,в попередніх можуть бути помилки.

В ФАСМі буде використовуватись принцип виклику процедур stdCall.
Усі данні які будуть застосовуватись при передачі в процедури та повертатись
з функцій будуть 32 бітні.
{Cardinal 0..4294967295 unsigned 32-bit}
або
{Longint -2147483648..2147483647 signed 32-bit}
в деяких випадках варто звертати увагу, на те, чи дані знакові чи беззнакові.
Як приклад PutPixelPas(X,Y:OptInt16;Pixel:OptWord);
В ФАСМ, X,Y обробляються як знакові {-2147483648..2147483647 signed 32-bit},
Pixel, - як беззнакові {0..4294967295 unsigned 32-bit}. Така тенденція буде
й надалі. Тобто, усі дані знакові та беззнакові, незалежно від їх діапазону
будуть 32 бітні.

На процедурі PutPixelPas будуть оснований вивід на екран.
Процедур діагональних ліній та кругів скоріше всього не буде, так як вони
можуть явно по різному відтворюватись на екрані в різних середовищах.
Навіть якщо процедура буде однакова. Не впевнений що круг буде однаково
виводитись на екран в ТП, Дельфі та Колібрі, так як використовує SIN та COS,
які можуть давати різні значення після коми, а отже й результат теж.
Хоча, круг треба буде спробувати.

По можливості кожна процедура PDK буде "вирівнюватись" макросами модуля uPDK.*
для схожості виклику. Зверніть увагу  на виклик процедури PutPixelPas в
середовищах ТП-подібних та ФАСМу.

ТП-подібні: PutPixelPas(x,y+TS,color1)
ФАСМ:
mov eax,[Y]
add eax,[TS]
PutPixelPas  [X],eax,[Color1]

Зберігання даних регістрів, після виконання процедур не планується.
Тому, якщо вам потрібні, якісь дані в регістрах, до виконання якоїсь
процедури-PDK, зберігайте їх самостійно, наприклад, через Push/Pop, тощо.

Результат роботи програми:

04Rectangle.7z - http://forumstatic.ru/files/001b/d4/a7/97129.7z

Проект ініціалізує (або емітує в деяких середовища) графічний
режим VGA 640х480, 16 кольорів.
Проказує приклад використання процедур
procedure Rectangle(X1,Y1,X2,Y2:OptInt16;Color:OptWord);{Малює прямокутник}

Очікує натиснення клавіші Q (Shift+"q")
або закриття форми та виходить з програми.

06Random.7z - http://forumstatic.ru/files/001b/d4/a7/50171.7z

Проект ініціалізує (або емітує в деяких середовища) графічний
режим VGA 640х480, 16 кольорів.
Проказує приклад використання процедур

{Генератори випадкових чисел}
Var RandSeedB1:Byte;{стартове значення}
Function RandomB1:Byte;{Генератор 1, для діапазону 0..255}
Var RandSeedB2:Byte;{стартове значення}
Function RandomB2:Byte;{Генератор 2, для діапазону 0..255}
var RandSeedW1:Word;{стартове значення}
function RandomW1:Word;{Генератор 1, для діапазону 0..65535}
var RandSeedW2:Word;{стартове значення}
function RandomW2:Word;{Генератор 2, для діапазону 0..65535}

Очікує натиснення клавіші Q (Shift+"q")
або закриття форми та виходить з програми.