Скрестить ZX и ПЦ

[bigral]

Oleg N. Cher, я еще 3 года назад понял что ты маниакальный фанат оберона, и что вообще для тебя сравнение языков программирования это "вечная интересная тема" на которую можно до бесконца "переливать из пустого в порожнее". У меня немного другое хобби а именно PDP-11 железо и софт. Так что нам увы не попути.

А digger-a я хотел компильнуть просто для проверки пригодности SDCC для speccy (в качестве инструмента портирования того огромного количества исходников на С которые есть сейчас в сети). Результат печальный так как даже такой самый короткий исходник который на ПЕЦЕ вкладывается в COM-файл и модель памяти DOS16-tiny не влез в память синклера. Это естественно ставит новую задачу - распил существующих сорцов на куски занимающие на спекки максимум 16кб кода и 16кб данных... но помоему я пошел по кругу как ты обычно, так что закругляюсь.

[Advertiser]

[dosikus]

Oleg N. Cher, я еще 3 года назад понял что ты маниакальный фанат оберона,

Что показательно - на форуме оберона кучкуются и фанаты "дракона" во главе с Паронджановым . Цирк шапито ...

На счет SDCC - не взлетел ни на пЫк ни на STM8 , и ИМХО не взлетит.

А вот Oleg N. Cher если действительно есть желание облегчить участь кодописательства под ZX , лучше взглянуть на сие http://www.wudsn.com/
И сляпать по образу и подобию...

[denpopov]

dosikus, пора осилить ACTION! на Атари ичсх, там фидорастам нет места для красноречия и понтов

между делом, WUDSN не для сектантов девелоперов.

[dosikus]

dosikus, пора осилить ACTION! на Атари

Не, меня прет от асма 6502.
Ностальгирую по 80ым с мануалами и под музыку с Ретро ФМ.

А ты ACTION! в эмуле терзаешь?

[denpopov]

А ты ACTION! в эмуле терзаешь?

иногда, хотя мне нравится способ разработки.

Ностальгирую по 80ым с мануалами и под музыку с Ретро ФМ.

нуууууууууууу. это несерьезно.

[Andrew771]

Выкладываю свою текущую версию кросс-Паскаля на PC для ZX, а то уже пару людей попросило в личке.

Запуск - project1.exe, после запуска выбрать файл в формате PRG, в котором программа на Паскале. После компиляции образуется файл с ассемблером ASM, можно компилировать и запускать в эмуляторе. Если при компиляции будут ошибки, то отобразятся в файле error.prg.
Паскалевские примеры имеются в файлах PRG.
Оптимизации асмовского кода пока нет, но будет. Уже знаю, как делать.

На данный момент поддерживает:
++++++++++++++++++++++

Типы
----
byte
word
string[N]
Массивы для типов byte и word - одномерные и двумерные, для string - только одномерные:
ArrayByte [...]
ArrayWord [...]
ArrayString [...]

Стандартные операторы
---------------------
:=
Write
Writeln
Read
Readln
If ... then ... else ...
For ... to ... do
While ... do
Repeat ... until


Операторы экрана
----------------
Вывод текста шрифтом 4*8 пикселей, кириллица поддерживается
ClrScr - очистка экрана и установка в нем текущих цветов
GotoXY(Col,Row) - установка курсора в позицию экрана Col,Row (Col=0..63, Row=0..23)
Pause(N) - пауза N/50 секунды
Border(N) - бордюр цветом N
Color(N) - цвет текста и фона (N = байт атрибутов на Спектруме)
Window(Col,Row,Width,Heigth) - очистка окна знакомест и установка в нем текущих цветов


Процедуры
---------
Процедуры без параметров и локальных переменных


Выражения
---------
Целочисленные вычисления в диапазоне 0..65535
Приоритет операций учитывается
Для типа string только операция конкатенации +
Для типов byte и word:
+
-
*
div
mod
(
)
=
>
>=
<
<=
<>



Планируется:
+++++++++

Опции
-----
Текст с атрибутами
Окна с атрибутами
Спрайты с атрибутами
Спрайты карты с атрибутами
Проверка границ экрана при выводе спрайтов
Проверка максимальной длины строк


Данные
------
map
- width_map
- height_map
- size_cell_map
- value_elements_map
- sprites_map
- array_map[NN,NN]

sprite
- value_tile_sprite
- x_sprite
- y_sprite
- attr_sprite
- data_sprite


Типы
----
byte
word
char
string[SS]
array[NN,NN] of byte
array[NN,NN] of word
array[NN] of string[SS]


Стандартные операторы
---------------------
:=
Write
Writeln
Read
Readln
If ... then ... else ...
For ... to (downto) ... do
While ... do
Repeat ... until
Case ... of
Delay
Randomize


Процедуры
---------
Процедуры без параметров и локальных переменных


Функции
-------
Readkey
Random(max)


Экран
-----
ClrScr
GotoXY(x_tile,y_tile)
TextColor(attr)
TextBackGround(attr)
Border(color)
Color(attr)
ScrToVirt
VirtToScr


Окна
----

WindowSet(x_tile,y_tile,width_tile,height_tile)
WindowClear
WindowScrollUp
WindowScrollDown
WindowScrollLeft
WindowScrollRight
WindowThaw
Get(x_tile,y_tile,width_tile,heigth_tile)
Put(x_tile,y_tile)


Звук
----
Beep(note,time)
SoundEffect(n_loop,time,frequency)


Спрайты
-------
PutSprite(name_sprite,x_tile,y_tile)
PutSpriteMirrorX(name_sprite,x_tile,y_tile)
PutSpriteMirrorY(name_sprite,x_tile,y_tile)
PutSpriteMirrorXY(name_sprite,x_tile,y_tile)


Карта
-----
MapPut(x_map,y_map,width_map,height_map)
MapSearchElement(ID_element,x_map,y_map,distance_m ap)
MapArrayToMap(name_array_byte)


Выражения
---------
+
-
*
div
mod
(
)
=
>
>=
<
<=
<>
and
or
xor
not

[denpopov]

Выкладываю свою текущую версию кросс-Паскаля на PC для ZX,

сразу так не делается. внутри архива ворох непонятно чего - .asm, .prg и еще чегойто(

из прочтения доки хотелось бы по возможности реализацию множеств и типов.

[Andrew771]

сразу так не делается. внутри архива ворох непонятно чего - .asm, .prg и еще чегойто(

из прочтения доки хотелось бы по возможности реализацию множеств и типов.

Скинул текучку. По сути, для работы нужно всего два файла - project1.exe и libasm.lib. Ну и исходник на Паскале свой создать в файле prg.
Множеств пока не планирую. Записи тоже. Массивами пока обходимся.

[denpopov]

Ну и исходник на Паскале свой создать в файле prg.

сразу бы получить исходник з80 нужен.

[Andrew771]

сразу бы получить исходник з80 нужен.

ничё не понял, где запятую ставить? Ты имел в виду - сразу получить trd?
Примерчики prg имеются в выложенном архиве. Вся суета ради того, чтобы писать свои проги на привычном Паскале, а компилить в асм z80.