ПК8000 - Софт: Старый и Новый

[MacBuster]

Прошёлся ещё раз, вот список файлов, которых нет в списке:

Кассета 1

сторона А

- SAD.BAS
- WOJNA.BAS

сторона Б

- TEXST.NEX
- TESTM.BAS
- КВ УР.BAS
- ЛИН УР.BAS

Кассета 2

сторона А

- FUTBOL.NEX
- ROAD.NEX
- TULPAN.NEX
- COBRA.NEX
- LB1.NEX
- LB2.NEX
- LB3.NEX
- СКБ.NEX
- БОЙ 2.NEX

сторона Б

- FLAYBAL.NEX

Кассета 3

сторона А

- БОМБА.BAS
- POPBOL.BAS
- KIBORG.BAS
- SHIP.BAS
- РОБОТ.BAS
- КАРАТЕ.BAS
- ДОРОГА.BAS

сторона Б

- WAR.BAS
- БЕГА.BAS
- KILL2.BAS
- АВТО2.BAS
- CUPS.BAS
- HUNTER.BAS
- АТАКА.BAS
- ZAMOK.BAS

[ivagor]

Бейсиковские не проверял. Из кодовых есть нечто похожее, к сожалению у меня все архивы только на основном компе, поэтому сегодня проверка не полная.
TEXST.NEX - text.cas?
FUTBOL.NEX - soccer.cas?
ROAD.NEX - вчера смотрел, запомнил, что есть такой cas
COBRA.NEX - sucobr.cas?
LB1.NEX - EMU12_hex_LB1.cas?
LB2.NEX - EMU12_hex_LB2.cas?
LB3.NEX - EMU12_hex_LB3.cas?
СКБ.NEX - EMU08_hex_SCB.cas?
FLAYBAL.NEX - EMU13_hex_FLYBAL.cas?

Т.е. из HEX сегодня (в неполном наборе архивов) не нашел похожих на TULPAN.NEX и БОЙ 2.NEX. Вроде вчера и эти тоже находил, но уже не уверен.

[MacBuster]

К сожалению я так и не освоил загрузку программ в «Хобби», не могу проверить соответствие.

EMU12_hex_LB1.cas?

Это где такое?

[ivagor]

Это где такое?

Архив называется cas_hex_all.zip

Вернулся к основному компу и нашел еще файлы:
ROAD.NEX - ROAD.HEX.cas
COBRA.NEX - COBRA.HEX.cas
TULPAN.NEX - TULPAN.HEX.cas
Это из архива !PK8000.Soft.2016.11.20.zip
Вроде он более полный, просто вчера не мог его посмотреть

БОЙ 2.NEX так и не нашел

[ivagor]

В "Руководстве пользователя" Хобби, в книге 2 (Язык Бейсик) на странице 51 (Приложение 1) приведен список зарезервированных слов. В списке звездочками отмечены слова, предназначенные для дальнейшего расширения бейсика (версия 2 и выше). Интересно сопоставить список и прошивку пзу.

Какие ключевые слова версии 2 и выше упомянуты в книжке, но их нет в таблице токенов в пзу:
CIRCLE
LOC
OCT$
SWAP
TIME

Какие ключевые слова версии 2 есть в таблице токенов в пзу, но они (кроме BASE и OFF) не реализованы:
BIN$
INPUT$
BASE - функция BASE( и оператор BASE
DRAW
PLAY
OFF
PAINT
SOUND

Интересно, почему операторов из первой части списка нет в таблице токенов в пзу. Возможно на момент разработки прошивки их еще не собирались добавлять в бейсики 2.x, а к моменту составления руководства надумали.

По второй части списка думаю, что BASE и OFF отмечены звездочкой на стр.51 ошибочно, т.к. они есть в пзу 1.1 и 1.2
1. OFF реализован в качестве аргумента BEEP.
2.1. Оператор BASE работает согласно описанию.
2.2. А вот функцию BASE( надо записывать в программе как BASE((аргумент), т.е. с двойной открывающей скобкой. Приведенные в руководстве примеры с одной открывающей скобкой на практике дают ошибку.

- - - Добавлено - - -

BASIC 2 упоминался как имеющийся в наличии участниками форума, но в выложенных архивах так и не появился.

[DemonId7]

Выкладываю свою подборку программ. Все они были здесь ранее, с разных источников. Просто отсортировал и проверил, исключил дубляжи и подпорченные файлы. Добавил батники для конвертации в COM-файлы.

https://yadi.sk/d/b2KUyeJfJSp1mg

PS: Жалобы и предложения приветствуются

[Advertiser]

[ivagor]

Для прикола чуть-чуть хакнул бейсик ПК8002, чтобы его можно было запустить на ПК8000. Это не полноценная адаптация, просто проба. Для запуска нужно набрать
screen 1
bload"BAS02",r
В эмуляторах работает, может даже на реале запустится.
Поддерживается только SCREEN1 без изменения цвета. SCREEN2 тоже можно сделать, но надо потратить больше пары минут времени. К сожалению поддержки спрайтов нет и не будет.
Чем этот вариант без графики лучше встроенного бейсика ПК8000 - он поддерживает 3 типа числовых данных (целые/одинарные/двойная точность). Аналогичные возможности имеет микрософтовкий дисковый бейсик, но для него нужен НГМД, а тут достаточно голого ПК8000.

- - - Добавлено - - -

Забыл сразу написать еще одно ограничение - PLAY не поддерживается. Теоретически (при очень большом желании) его можно через AY сделать.
И вспомнил вторую фишку этого бейсика, кроме математики - удобный экранный редактор.

- - - Добавлено - - -

Ну и строго говоря графика SCREEN2 все же поддерживается, только цвета не те.

[DemonId7]

Попозже попробуем и на реале.
Было бы неплохо полностью адаптировать его к ПК8000. И было бы неплохо сразу предусмотреть средство для сохранения набранных в нем программ на диск, как в родном

[ivagor]

Поменял цвета фона и чернил для графики SCREEN2, стало почти хорошо, но цвета 6 и 12 отличаются (у ПК8002 в бейсике msxные цвета). На ПК8000 трех красных и трех зеленых нет, поэтому 100% соответствия не получится. В принципе можно подменять на ближайший похожий, но если при этом оставить процедуру замены как сейчас - будет медленно, и место надо искать, где все это разместить.
Добавил инициализацию цвета для SCREEN1, теперь не нужно перед bload менять режим, можно сразу загружать хоть из SCREEN0 (который после старта).
Приложил "тест", чтобы было хоть что-то для проверки, его загрузка
CLOAD"TEST1"
потом RUN
Рисует круг и заливает его. Выход в emu - LCtrl+F12, на реале надо уточнить, но F12, насколько помню - СТОП.

Было бы неплохо полностью адаптировать его к ПК8000. И было бы неплохо сразу предусмотреть средство для сохранения набранных в нем программ на диск, как в родном

На ПК8000, насколько я знаю, общением с дисководом занимается ДОС. У бейсика ПК8002, к сожалению, штатных средств для общения с диском нет и там надо с нуля это делать. Для меня общение с накопителями - неизбежное зло, фана разбираться с ним нет, поэтому тут я пас.

[DemonId7]

На ПК8000 запись производится по хитрому. Перезагружаемся и запускаем программу DSAVE с диска, которая и записывает сохранившуюся в памяти бейсик-программу на диск, прикручивая к ней загрузчик. Программа хранится, ЕМНИП, в адресах 0x4000-0xBF00, заканчиваясь тремя подряд нулями.
ЗЫ: поскольку адреса 0x7FF7-0x7FFF портятся контроллером НГМД, то перед перезагрузкой данные с этих адресов переносятся на адрес 0xBF60, откуда они впоследствии восстановятся программой DSAVE. Перенести можно прямо из бейсика:
for i=0 to 16: k=peek(0x7FF7+i): poke(0xBF60+i, k): next: run

- - - Добавлено - - -

Попробовал на реале.
С мафона пока грузить не могу, так что загружал с жесткого диска. Экран после запуска:

Но, в остальном работает. По крайней мере команду PRINT выполнил:

Почему-то видны спецсимволы, а остальные ни в какую. Точнее проблемы с цветами фона и текста. Команда COLOR работает, но приходится набирать вслепую.

ЗЫ: при следующем запуске вид немного другой и отображаются другие наборы символов.