ЭВМ openair: Пермские Васюки

[unbeliever]

простой конвертер в васике DEC>HEX?

Причем работаюший из самого бейсика который он дампит.
Да с выводом на экран. Дампим кусок памяти со всеми переменными и всем чем надо от бейсика в HEX используя бейсиковскую же подпрограмму. Выводим на экран блоками. Делаем скриншоты. Корректность ввода контролируем через CRC-байт. Все как во времена РАДИО-РК86.

Коротко, быстро, без ошибок.

Подпрограмму потом можно пошарить среди демосценеров и тупо дописывать ее к интрам как вызываемую процедуру.

[Advertiser]

[siril]

9999 for f = 23755 to (23755 + len): let p = peek f: print chr$(65+p/16); chr$(65+p-(INT(p/16)*16); : next f

вот эта строчка заполняет экран 16-ричным дампом, с плотностью данных (256*3-64)/2 = 352 байта на экран. 10 экранов - уже 3 килобайта.

цифры - шестнадцатиричные, но #00 = AA, #01 = AB, #FF = QQ, и т.п. то есть числовая база смещена.

[psndcj]

кстати - а если все равно делать скриншотами и потом распознавать конвертором - то может проще просто перекидывать кусок памяти на экран и сейвить его?
9999 cls:for f = 0 to len: poke 16384+f,peek (23755+f): next f

[siril]

кстати - а если все равно делать скриншотами и потом распознавать конвертором - то может проще просто перекидывать кусок памяти на экран и сейвить его?
9999 cls:for f = 0 to len: poke 16384+f,peek (23755+f): next f

это первое что я предложил, и первое, что мы попробовали на даче, но так как ширина экрана iPad'а и ширина экрана эмулируемого графического пространства не кратны, серые (с третьим состоянием) пиксели засрали всю картину, BFox, по крайней мере вытянуть данные не смог ни постеризацией, ни чем-то ещё.

[psndcj]

понятно.

[psb]

кодируйте в qr-код!

[siril]

кодируйте в qr-код!

UDG-символами можно кодировать по 4 бита в знакоместе, или 1 байт в 2-х знакоместах. Что даёт нам ту же самую плотность, что и при использовании 16-ричного дампа (байт на 2 знакоместа).

[diver]

UDG-символами можно кодировать по 4 бита в знакоместе, или 1 байт в 2-х знакоместах. Что даёт нам ту же самую плотность, что и при использовании 16-ричного дампа (байт на 2 знакоместа).

Простой конвертер на бейсике?

[siril]

Простой конвертер на бейсике?

ага, просто в этой строчке: 9999 for f = 23755 to (23755 + len): let p = peek f: print chr$(65+p/16); chr$(65+p-(INT(p/16)*16); : next f

заменить 65 на 128 и будет тебе полная иллюзия QR-кода, по 2 знакоместа на байт =) (но, разумеется, без всяких там контрольных сумм ^_^)

9999 for f = 23755 to (23755 + len): let p = peek f: print chr$(128+p/16); chr$(128+p-(INT(p/16)*16); : next f

выглядеть будет красивее, но толку нуль. (распознавать сложнее будет).

[diver]

ага, просто в этой строчке: 9999 for f = 23755 to (23755 + len): let p = peek f: print chr$(65+p/16); chr$(65+p-(INT(p/16)*16); : next f

заменить 65 на 128 и будет тебе полная иллюзия QR-кода, по 2 знакоместа на байт =) (но, разумеется, без всяких там контрольных сумм ^_^)

9999 for f = 23755 to (23755 + len): let p = peek f: print chr$(128+p/16); chr$(128+p-(INT(p/16)*16); : next f

выглядеть будет красивее, но толку нуль. (распознавать сложнее будет).

Извращенец Пока что способ с дампом 768-бит спрайтов в из пикселей в атрибуты наиболее реален.