viewtopic.php?f=20&t=223#p5210Господа, наконец-то я добрался и до вас. Подтверждаю: писать на Обероне для "Львова" (и других компов на КР580) можно.
Пример: игра "Охота на лис" (FoxHunt), портированная с ZX Spectrum для Радио-86РК:
https://zx.oberon.org/foxhunt
Исходник:
https://github.com/Oleg-N-Cher/FoxHunt
Вводная статья в программирование на Обероне для 8080 опубликована в свежем номере #34 журнала Downgrade:
http://dgmag.in
Да. В качестве компилятора Си используется z88dk, который научили генерить код и для проца 8080.
Сам я внутреннего устроения особенностей "Львова" не знаю, так что разработчики асм-библиотек для подсистемы K580Dev приветствуются. Если что-то сделаете, добавим в подсистему. Я также конечно хотел бы поддержку и для Вектора, и для Корвета, и для Специалиста, но уже маемо то, шо маемо. Пока только поддержан Радио-86РК, да и то ограниченно (некоторые подпрограммы Монитора).
viewtopic.php?f=20&t=223#p5212Дистрибутив z88dk я не стал вкладывать в общий архив, так же, как и весь SDCC или весь GCC - кто разрабатывает, допустим, только на подсистеме ZXDev - оно ему не надо, лишний объём. А то представь, что тебе надо кодить под Львов, а в архиве весь Android SDK. Плюс z88dk надо инсталлить и прописывать, там свой инсталлятор есть. Так что одним архивом никак не обойдётся - по идеологическим соображениям это разбито на: "сама среда XDev" и "целевые подсистемы, каждая под свою конкретную платформу". Берутся архивы тут:
https://github.com/Oleg-N-Cher/XDev/releases
Что с ними делать дальше конкретно по подсистеме K580Dev - расписано в статье.
SYSTEM.BYTE {0..255}
INT8 {-128..127}
INT16 {-32768..32767}
И ещё INT32 и INT64. Но для Львова их лучше без крайней необходимости не использовать.
а эти два типа INT32 и INT64 знаковые ? или от "0" и выше ?
Знаковые.
Для ПК-01утилита и вчерашняя демка доступны в подсистеме K580Dev. Утилиту, кстати, написал тоже на Обероне.
Файл-тест там - viewtopic.php?f=8&t=380&p=5350#p5346(*$MAIN*) MODULE test1; IMPORT RK86;
VAR b1,b2,b3,CO:INT16;
BEGIN
RK86.PUTSTR("START");
FOR b1:=0 TO 255 DO
FOR b2:=0 TO 255 DO
FOR b2:=0 TO 255 DO
END;END;
RK86.PUTSTR("*");
END;
RK86.PUTSTR("END");
END test1.
Цитата:
(*$MAIN*) MODULE test1; IMPORT RK86;
IMPORT RK86, SYSTEM; (* <-- чтобы использовать SYSTEM.BYTE *)
FOR не готов для работы с переменной цикла типа SYSTEM.BYTE. Или юзай опцию -f (для диалекта -3). Но тогда FOR будет оберонский, а не наш, продвинутый. В смысле, нельзя будет FOR i := 0 TO 255
В Обероне FOR приравнивается к WHILE, т.е. будет развёрнут в i := 0; WHILE i <= 255 DO , а беззнаковый байт i всегда <= 255.
Мы сделали расширенную версию FOR, но поддержка беззнакового байта в ней ещё не до конца отлажена. Вообще поддержка беззнакового байта сделана не так давно.
MODULE DemoLvov; (*$MAIN*)
IMPORT Lvov;
BEGIN
Lvov.CLS(255);
Lvov.PSET(0, 32, 3);
Lvov.PRESET(10, 33);
Lvov.LINE(0, 0, 128, 128, 2);
Lvov.LINE(0, 10, 128, 138, 1);
Lvov.BOX(50, 50, 75, 75, 3);
Lvov.FIL_BOX(150, 150, 75, 75, 3);
(*
Lvov.COLOR(5, 0);
Lvov.PAINT(130, 30, 2, 3);
*)
LOOP END
END DemoLvov.
Code: Select all
MODULE DemoLvov; (*$MAIN*)
IMPORT Lvov;
VAR b1,b2,b3,CO:INT16;
PROCEDURE p1( a:INT16);
VAR b1,b2,b3,CO:INT16;
BEGIN
Lvov.LINE(1, 1,10,1, 3); (* типа старт ^-) *)
END p1;
BEGIN
END DemoLvov.
Code: Select all
MODULE DemoLvov; (*$MAIN*)
IMPORT Lvov;
BEGIN
Lvov.CLS(255);
Lvov.PSET(0, 32, 3);
Lvov.PRESET(10, 33);
Lvov.LINE(0, 0, 128, 128, 2);
Lvov.LINE(0, 10, 128, 138, 1);
Lvov.BOX(50, 50, 75, 75, 3);
Lvov.FIL_BOX(150, 150, 75, 75, 3);
(*
Lvov.COLOR(5, 0);
Lvov.PAINT(130, 30, 2, 3);
*)
LOOP END
END DemoLvov.
Code: Select all
MODULE DemoLvov; (*$MAIN*)
IMPORT Lvov;
VAR b1:INT8;
BEGIN
(* Lvov.CLS(0); *)
FOR b1:=0 TO 127 DO END;
(* Lvov.CLS(255);*)
END DemoLvov.
Code: Select all
{Дизкомпилированный файл: 'DemoLvov.lvt'}
{Формат LVT}
{ Начальный адрес: $0000 (0) }
{ Конечный адрес : $0029 (41) }
{ Адрес старта : $0000 (0) }
program Project; uses uMD01u in 'uMD01u.pas';
VAR
L0000, L0007, L000E, L0023, L0024
:TLabelLV;
BEGIN
INITCompiler;
SetFullNameLVTfile('DemoLvov.lvt');
SetNameInternalKOI(#$44+#$65+#$6D+#$6F+#$4C+#$76);
SetAddrRAM($0000);
StartProgram;
LabelA(L0000);
Call(L0007);
JMP($F875); // непонятное ?!??!!
DB($E9); // непонятное ?!??!!
LabelA(L0007);
LxiHL(L0000); // HL=$0000
MovAL; //A=L
Sta(L0023); // b1:INT8=L=$00
LabelA(L000E); // похоже на цикл FOR b1:=0 TO
LxiHL(L0023); // ^b1
Call(L0024); // А ЭТО ВООБЩЕ ЧТО ТАКОЕ И ЗАЧЕМ!??!?!
InxHL; //HL=HL+1
MovAL; //A=L
Sta(L0023); //b1=A
MovAL; //
Xri($80); // A = A xor 128
Sui($80); // A = A - 128
cmc; // not c(признак).
Jc(L000E); //
RET;
LabelA(L0023); // VAR b1:INT8
DB($00);
LabelA(L0024); // А ЭТО ВООБЩЕ ЧТО ТАКОЕ И ЗАЧЕМ !??!?!
MovAM; // A=b1
MovLA; // L=b1
rlc; // A= сдвиг влево
SbbA; // A=A-A-c
MovHA; // H=A
RET;
FINALCompiler;
END.
Code: Select all
MODULE DemoLvov; (*$MAIN*)
IMPORT Lvov;
VAR b1:INT8;
BEGIN
WHILE b1< 127 DO END;
END DemoLvov.
Code: Select all
{Дизкомпилированный файл: 'DemoLvov.lvt'}
{Формат LVT}
{ Начальный адрес: $0000 (0) }
{ Конечный адрес : $001A (26) }
{ Адрес старта : $0000 (0) }
program Project; uses uMD01u in 'uMD01u.pas';
VAR
L0007, L0014, L0015
:TLabelLV;
BEGIN
INITCompiler;
SetFullNameLVTfile('DemoLvov.lvt');
SetNameInternalKOI(#$44+#$65+#$6D+#$6F+#$4C+#$76);
SetAddrRAM($0000);
StartProgram;
Call(L0007);
JMP($F875);
DB($E9);
LabelA(L0007);// начало цикла WHILE
LxiHL(L0014);//HL=b1
Call(L0015);////// что это за "подстраховака" "перестраховака"такая какая-то
MovAL;//A=b1
Sui($7F);// A=A-127
Jc(L0007);//цикл
RET;// конец цикла
LabelA(L0014);//VAR b1:INT8;
DB($00);
LabelA(L0015);/// что это за "подстраховака" "перестраховака"такая какая-то
MovAM;
MovLA;
rlc;
SbbA;
MovHA;
RET;
FINALCompiler;
END.
Users browsing this forum: No registered users and 1 guest