Создал Динамическую библиотеку 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