Вид для печати
Здравствуйте, здравствуйте.
Сегодня - реальный прогресс. Блоковая операция на CLSN Pascal машкодах.
Уж, поверьте, трудоёмкая и не простейшая задачка.
(На ассемблере в сто раз легче)
А вот, киношка...
https://www.youtube.com/watch?v=2RFRYEe3XcY
С уважением, zen
Хотелось бы услышать сравнение с MadPascal
Увы, я не работал с MAD-Паскалем, но зная ребят, которые в MAD, думаю, что всё там в порядке.
Правда, это консольный компилятор, значит нужен какой либо EMAX/VIM, чтобы цветные буковки и синтаксис отслеживать.
Конечно, хотелось бы попробовать, например на MAD-Паскале сваять простейший интерпретатор Пролога, но пока я абсолютно не в теме.
С наступающим Новым Годом!
Сегодня опубликовал видео о Блочных процедурах в CLSN Паскале на Ассемблерной скорости.
Думаю разработать библиотеку таких процедур :)
На Дискорде создал сервер, посвящённый Атари. rutari#3806. Как пользоваться - без понятия...
На всякий случай, приглашаю всех.
Создал Динамическую библиотеку ML доступа к экрану
Вот зипчик:
Вложение 75159
Вот код главной программы:
Видео1 https://www.youtube.com/watch?v=7L6l6ewUV9AКод:(*==================================*)
(* CLSN Pascal DYNBLK Library *)
(* Demonstration Program *)
(* ZenSoft*)
(*----------------------------------*)
(*Evgeny Zolotarev,(aka 576XE), 2021*)
(*==================================*)
program savres;
type
bArr = array[0..0] of byte;
bufP = ^bArr;
ptrT = pointer;
adrT = word;
var
SAVMSC: adrT absolute $58;
buf: bufP;
srcP: ptrT absolute $ca;
srcA: adrT absolute $ca;
dstP: ptrT absolute $cd;
dstA: adrT absolute $cd;
sWid: byte absolute $d0;
sHei: byte absolute $d1;
include 'D1:DYNBLK.PAS';
(*= Main Procedure =================*)
label loop;
var
x,y,w,h: byte; ch: char;
begin
x:=2; y:=2; w:=20; h:=10;
loop:
ch := readkey; if ch=#27 then exit;
getmem(buf,sizeof(byte)*w*h);
saveBlk(x,y,w,h);
putFram(x,y,w,h);
invLine(x+1,y+1,w-2);
ch := readkey;
restBlk(x,y,w,h);
freemem(buf,sizeof(byte)*w*h);
if ch=#27 then exit;
goto loop;
end.
Видео2 https://www.youtube.com/watch?v=7L6l6ewUV9A
zen :)
Добавил видео создания утилиты по автоматизации прорисовки красивого меню.
https://www.youtube.com/watch?v=pQ3GFialjx0
Вложение 75249
Сама высчитывает все необходимые значения и выводит меню на экран.
В дальнейшем, позволит создать сохраняемые на диск фреймы меню.
:)
zen
Здравствуйте, Друзья!
Добавил видео о разных типах меню на Атарьке в контексте разработки системы меню.
Так как типов больше всего в ДОСах, то там много и о различных ДОСах.
Демонстрирую программку управления меню в системе меню.
zen
Коллеги, Здравствуйте!
Как и обещал, добавил ещё парочку видосов об эмуляции TopDOS Pro в Алтирре.
https://www.youtube.com/results?search_query=enzolot
zen