Паскаль о котором не знали...

[ezswift]

Здравствуйте, здравствуйте.
Сегодня - реальный прогресс. Блоковая операция на CLSN Pascal машкодах.

Уж, поверьте, трудоёмкая и не простейшая задачка.
(На ассемблере в сто раз легче)

А вот, киношка...
https://www.youtube.com/watch?v=2RFRYEe3XcY

С уважением, zen

[Shiny]

Хотелось бы услышать сравнение с MadPascal

[ezswift]

Увы, я не работал с MAD-Паскалем, но зная ребят, которые в MAD, думаю, что всё там в порядке.

Правда, это консольный компилятор, значит нужен какой либо EMAX/VIM, чтобы цветные буковки и синтаксис отслеживать.
Конечно, хотелось бы попробовать, например на MAD-Паскале сваять простейший интерпретатор Пролога, но пока я абсолютно не в теме.

С наступающим Новым Годом!

[ezswift]

Сегодня опубликовал видео о Блочных процедурах в CLSN Паскале на Ассемблерной скорости.
Думаю разработать библиотеку таких процедур

На Дискорде создал сервер, посвящённый Атари. rutari#3806. Как пользоваться - без понятия...
На всякий случай, приглашаю всех.

[ezswift]

Создал Динамическую библиотеку ML доступа к экрану
Вот зипчик:
CLSN_MAE.zip

Вот код главной программы:

(*==================================*)
(*   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.

Видео1 https://www.youtube.com/watch?v=7L6l6ewUV9A
Видео2 https://www.youtube.com/watch?v=7L6l6ewUV9A

zen

[ezswift]

Добавил видео создания утилиты по автоматизации прорисовки красивого меню.
https://www.youtube.com/watch?v=pQ3GFialjx0
CLSN_MAE2.zip

Сама высчитывает все необходимые значения и выводит меню на экран.
В дальнейшем, позволит создать сохраняемые на диск фреймы меню.

zen

[Advertiser]

[ezswift]

Здравствуйте, Друзья!
Добавил видео о разных типах меню на Атарьке в контексте разработки системы меню.
Так как типов больше всего в ДОСах, то там много и о различных ДОСах.
Демонстрирую программку управления меню в системе меню.
zen

[ezswift]

Коллеги, Здравствуйте!

Как и обещал, добавил ещё парочку видосов об эмуляции TopDOS Pro в Алтирре.

https://www.youtube.com/results?search_query=enzolot
zen