CP/M для Вектора и Форматы файлов

[KTSerg]

ivagor, понятно. Вроде разобрался с ним, только непонятна осталась одна вещь.
Картинка 128х128 пикселей, разбита на блоки 8х8 пикселей. Блоки идут слева направо, потом сверху вниз.
...
Непонятен зачем был нужен такой зигзаг в порядке байтов.

Я с ним (с этим форматом) не разбирался конечно, но мне кажется я понял идею...
При переносе данных картинки на экран, можно использовать указатель адреса экранной памяти без "восстановления" его начального значения при переходе с "блока" на "блок" (или между плоскостями), просто сначала значение указателя увеличивается, затем - уменьшается (младший байт указателя), остаётся корректировать только старший байт указателя. Мне кажется элегантно.
Или я снова ничего не понял...

[Advertiser]

[ivagor]

зачем был нужен такой зигзаг в порядке байтов

Как написал KTSerg, для ускорения вывода на экран. PPC писал про это (вывод зигзагом) подробнее

[AzAtom]

Понятно. Так получается немного быстрее выводить спрайты 8х8 и 8х16, например.

[Black Cat / Era CG]

А подскажите, пожалуйста, какая палитра используется, как стандартная (для просмотра SCR например надо)?
Дело в том, что используя палитру от BASIC 2.5, получаю в качестве цвета 0 - 64 (темно-синий), вместо черного.
Попался мне тут исходник ScrView 1.5, там политра используется точно такая же, за исключением цвета 0 (там он =0, как и цвет 8).

[KTSerg]

А подскажите, пожалуйста, какая палитра используется, как стандартная (для просмотра SCR например надо)?
...

В эмуляторе посмотрел, "Карандаш" показывает палитру, в ней цвет 0 - тёмно синий.

[Black Cat / Era CG]

В эмуляторе посмотрел, "Карандаш" показывает палитру, в ней цвет 0 - тёмно синий.

Отлично. Спасибо. Тааак. Еще с одной мелочью разобрался.
Итак, готовы BSV (дамп экрана - только 256х256 сделал, 512х256 пока не стал, не знаю надо ли), RBR/RMB, SCR и SPR. Больше по Вектору инфы не имею.

[yevrowl]

Существует ли возможность при помощи управляющих кодов CP/M написать команду, аналогичную COLOR 15, 128 и которую бы принял BasCom?

[aGGreSSor]

Существует ли возможность при помощи управляющих кодов CP/M написать команду, аналогичную COLOR 15, 128 и которую бы принял BasCom?

Не очень ясно причём здесь управляющие коды CP/M. Имелись ввиду ESC-последовательности?
В некоторых версиях распространявшихся МикроДОС, невероятным образом сохранивших совместимость с изначальными МикроДОС 3.0, в программе на бейсике можно сделать POKE(63526),15:POKE(63525),128
Программу придётся распространять на FDD-образе содержащем МикроДОС с которой она работает.

[yevrowl]

Имелись ввиду ESC-последовательности?

Да, видимо применил технически некорректную терминологию.

POKE(63526),15:POKE(63525),128

Спасибо, программа компилировалась.

Программу придётся распространять на FDD-образе содержащем МикроДОС с которой она работает.

Какую версию посоветуете? И где можно раздобыть сей образ дискеты?

[aGGreSSor]

Какую версию посоветуете? И где можно раздобыть сей образ дискеты?

Сложно какую-то посоветовать. Модификаций очень много. Брать разные и смотреть что работает, а что нет.
Есть справка от Tim0xA в теме Операционные системы (она более подходит для этих разговоров).
Брать можно на old-dos (раньше их там было больше), в Базисе, также в самой софтине SteinBlume, слава создателям, можно делать Файл/Создать образ.../Vector-06C и дальше понятно. Когда развлекался изучением этой разницы, написал маленькую программу VSET на CBASIC. Вы, судя по всему, из-за недостатка информации пытаетесь делать что-то похожее :

Скрытый текст

    AR$=COMMAND$
    A1$=UCASE$(MID$(AR$,1,1))
	GOSUB TERM
	IF COMMAND$="" THEN GOSUB HELP
	IF A1$="H" THEN GOSUB HELP
	IF A1$="V" THEN GOSUB VER
	IF A1$="C" THEN PRINT CL$
	IF A1$="J" THEN PRINT BP$
	IF A1$="4" THEN PRINT FL$
	IF A1$="8" THEN PRINT FS$
	IF A1$="D" THEN PRINT "INK:";PEEK(63526);", PAPER:";PEEK(63525)
	IF A1$="Z" THEN POKE(63526),0:POKE(63525),164
	IF A1$="W" THEN POKE(63526),255:POKE(63525),0
	IF A1$="R" THEN POKE(63526),7:POKE(63525),0
	IF A1$="G" THEN POKE(63526),56:POKE(63525),0
	IF A1$="Y" THEN POKE(63526),63:POKE(63525),0
	IF A1$="B" THEN POKE(63526),248:POKE(63525),0
	IF A1$="S" THEN GOSUB SETUP
    STOP
VER:
	PRINT NG$;" MICRODOS TTY SETUP V(0.1) ":PRINT " * PLASTIC WORLD  ";CHR$(2);" 2025 * ";PV$:RETURN
HELP:
    GOSUB VER:PRINT
    PRINT "OPTIONS:":PRINT
    PRINT "V - VERSION"
    PRINT "H - HELP"
    PRINT "C - CLEAR SCREEN"
    PRINT "4 - WIDTH TO 40 COLUMNS"
    PRINT "8 - WIDTH TO 80 COLUMNS"
    PRINT "D - CURRENT COLORS"
    PRINT "Z - W/B COLORS LIKE ON ZX SPECTRUM"
    PRINT "R - B/R COLORS WITH CONTRASTING RED"
    PRINT "G - B/G COLORS WITH CONTRASTING GREEN"
    PRINT "B - B/B COLORS WITH CONTRASTING BLUE"
    PRINT "Y - B/B COLORS WITH CONTRASTING YELLOW"
    PRINT "W - B/W COLORS WITH CONTRASTING WHITE"
    PRINT "S <INK>,<PAPER> - SET PHYSICAL COLORS"
	PRINT "J - JINGLE"
	RETURN
SETUP:
    L=LEN(AR$):DV=MATCH("\,",AR$,3)
	IF (L<3) THEN RETURN:REM None args
	IF (DV<>0) THEN GOTO SET1
	POKE (63526),VAL(MID$(AR$,3,3)):RETURN:REM 1 arg (INK)
SET1:
	POKE (63526),VAL(MID$(AR$,3,DV-3)):REM first arg  (INK)
	POKE (63525),VAL(RIGHT$(AR$,L-DV)):REM second arg (PAPER)
    RETURN
TERM:
    CL$=CHR$(27)+CHR$(74):REM Clear screen
	NG$=CHR$(27)+CHR$(54):REM Inverse on
	PV$=CHR$(27)+CHR$(55):REM Inverse off
	FL$=CHR$(27)+CHR$(93):REM 40 columns (undocumented)
	FS$=CHR$(27)+CHR$(94):REM 80 columns (undocumented)
	BP$=CHR$(7):REM Beep
	RETURN

[свернуть]

VSET.zip

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

Если подумать, то с точки зрения поддержки кириллицы мне идеально заходила МикроДОС 3.1 (BIOS 3.11.F.11).
А с точки зрения читаемости и шрифта "из коробки", МикроДОС 47 BoldBIOS
, однако в ней куча глюков, как и вообще у PPC (при всём масштабе его деятельности).