Бейсик-помощь

Вид для печати

Показывать 40 сообщений этой темы на одной странице

07.05.2018, 20:45
ZX_NOVOSIB

Напомните плиз, если мы делаем бейсик-тр-дос загрузчик, и игра требует CLEAR 24136 , то как вычислить предельный размер бейсик-загрузчика в байтах?
07.05.2018, 20:49
Black Cat / Era CG

Зайди в бейсик. Набей какую-нибудь строку. Из бейсика зайди в тр-дос, выполни ченибудь типа кат, лист. Вернись в бейсик и посмотри в отладчике адрес своей строки.
07.05.2018, 20:58
Shiny

что за методы?
24575 хватает впритык.
а сделать загрузку через функцию 5 точки #3D13 никак?

а строчка будет по адресу $5D40 наверное.
07.05.2018, 21:04
Black Cat / Era CG

Цитата:

Сообщение от Шынни

что за методы?

Спросили, ответил. Адрес не помню. Кстати, вроде б, если выполнить мув, адрес еще сдвинется. И вроде б, если сразу после мув попробовать запустить чета с кодовым загрузчиком в бейсик-строке, то не прокатит. Но могу прогонять.
08.05.2018, 05:14
null_device

Начало бейсик программы: 23635+112 байт переменных TR-DOS+256 байт при операциях работы с диском.
Выполнив команду PRINT 65536-USR 7962 выяснится, что свободного места для загрузчика остается, с гулькин нос.
08.05.2018, 05:47
creator

Цитата:

Сообщение от Шынни

24575 хватает впритык

24499 хватает впритык. А 24575 просто раздолье. ;)

Цитата:

Сообщение от null_device

Начало бейсик программы: ̶2̶3̶6̶3̶5̶+112 байт переменных TR-DOS+256 байт при операциях работы с диском.

peek23635+256*peek23636
23755 без TR-DOS
23867 активный TR-DOS
08.05.2018, 07:15
null_device

creator, само собой - по памяти, указал адрес переменной, а не собственно адрес начала программы на бейсике.
08.05.2018, 11:06
ZX_NOVOSIB

Погодите, слишком много действий и чисел, непонятно откуда берущихся. Вот есть CLEAR 24136 , вот есть начало бейсика при активном тр-досе - 23867 , вычтя из первого второе получим 269 байт под загрузчик. Всё верно? Или я чего-то напутал?
08.05.2018, 11:22
goodboy

Цитата:

Сообщение от ZX_NOVOSIB

получим 269 байт под загрузчик. Всё верно? Или я чего-то напутал?

про буфер (для загрузки секторов) забыл, а это ещё +257байт
08.05.2018, 11:36
null_device

Цитата:

Сообщение от ZX_NOVOSIB

получим 269 байт под загрузчик. Всё верно? Или я чего-то напутал?

Навстречу переменным бейсика, вниз растет стек. Так, что в сухом остатке, получается меньше.
Делаете CLEAR (сколько вам надо).
Заходите в TR-DOS и даете команду LIST, например. Выходите из TR-DOS.
Набираете PRINT 65536-USR 7962. Получаете число свободной памяти для "маневров", в байтах.
08.05.2018, 11:40
ZX_NOVOSIB

goodboy, +257 к чему?

269+257=526?
или
269-257=12?

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

Цитата:

Сообщение от null_device

Навстречу переменным бейсика, вниз растет стек. Так, что в сухом остатке, получается меньше.

Ну вот, так и знал, что всё сложно :)
А как всё-таки вычислить всё это? Я думал, что бац и вот я высчитал 269, а оказалось какие-то буфера тр-доса, стеки, космоса чёрные дыры :v2_wacko: Должна же быть какая-то нормальная формула, чтобы всё это наконец вычислить с точностью до байта.
08.05.2018, 11:44
null_device

Цитата:

Сообщение от ZX_NOVOSIB

+257 к чему?

Буфер куда пихаются данные при работе с TR-DOS. Текст программы, уезжает вверх, на это значение в процессе и возвращается после окончания.
ЕМНИП, об этом написано в книжке "...для пользователей и программистов".
08.05.2018, 11:57
ZX_NOVOSIB

Цитата:

Сообщение от null_device

Буфер куда пихаются данные при работе с TR-DOS. Текст программы, уезжает вверх, на это значение в процессе и возвращается после окончания.

Как всё запущено...
Ну в общем, если программа более 12 байт, то нельзя делать мой CLEAR 24136, пока не закончены обращения к тр-досу. Но а после загрузки сжатого хрумом блока куда-нибудь повыше, можно сделать CLEAR 24136, распаковать блок, и вот тогда 269 байт в моём распоряжении? Ах да, там ещё стек надвигается, надо понять насколько именно он надвигается и отнять это число от 269. Только вот как это понять? :D

Разгадка где-то близко...
08.05.2018, 11:58
goodboy

Цитата:

Сообщение от null_device

Заходите в TR-DOS и даете команду LIST, например.

лучше CAT, для LIST ещё доп.место выделяется
08.05.2018, 12:05
ZX_NOVOSIB

Цитата:

Сообщение от null_device

Делаете CLEAR (сколько вам надо).
Заходите в TR-DOS и даете команду LIST, например. Выходите из TR-DOS.
Набираете PRINT 65536-USR 7962. Получаете число свободной памяти для "маневров", в байтах

Цитата:

Сообщение от goodboy

лучше CAT, для LIST ещё доп.место выделяется

Out of Ram сказал мне тр-дос на попытку CAT )) После CLEAR 24136
08.05.2018, 12:07
goodboy

Цитата:

Сообщение от ZX_NOVOSIB

Out of Ram сказал мне тр-дос на попытку CAT )) После CLEAR 24136

ну вот и всё. места явно нехватает.
параметры твоего кодового блока ?
08.05.2018, 12:33
ZX_NOVOSIB

Цитата:

Сообщение от goodboy

ну вот и всё. места явно нехватает.

Нехватало бы, если бы я этот свой блок грузил несжатым в 24137-65532,
но я ж его сожму хрумом, и загружу с адреса 30000 например. А потом сделаю CLEAR 24136, и распакую в 24137-65532. К тр-досу то я больше не буду обращаться. Но мне интересно, сколько байт я смогу потратить на бейсик-загрузчик.

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

Цитата:

Сообщение от null_device

Делаете CLEAR (сколько вам надо).
Заходите в TR-DOS и даете команду LIST, например. Выходите из TR-DOS.
Набираете PRINT 65536-USR 7962. Получаете число свободной памяти для "маневров", в байтах.

Так как в моём случае, трдос пишет мне out of ram, то я решил просто зайти в трдос и по-быстрому выйти, беспалева, в таком случае PRINT 65536-USR 7962 выдаёт мне 128 байт (и 130 байт, если всё это проделывать из 48-ого режима). 128 как-то явно поменьше чем 269, куда 141 байт съелся?.. :v2_confu:
08.05.2018, 12:44
null_device

Цитата:

Сообщение от ZX_NOVOSIB

после загрузки сжатого хрумом блока куда-нибудь повыше, можно сделать CLEAR 24136

Подобные финты ушами, описаны в брошюрке Родионова.

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

Цитата:

Сообщение от ZX_NOVOSIB

куда 141 байт съелся?

На выполнение команд и хранение набранной строки, тоже тратится память.
08.05.2018, 14:32
ZX_NOVOSIB

print(peek 23627+256*peek23628)-(peek23635+256*peek23636)

Размер программы. Есть эмули, поддерживающие в редакторе бейсика copy-paste? :) Было бы удобно.
08.05.2018, 14:53
Shiny

Цитата:

Сообщение от ZX_NOVOSIB

Размер программы. Есть эмули, поддерживающие в редакторе бейсика copy-paste? Было бы удобно.

я делал в zxeditor - пишешь текст, копипастишь в прогу, сохраняешь.
08.05.2018, 19:32
Бука

Цитата:

Сообщение от ZX_NOVOSIB

бейсика copy-paste

BASIn же.

http://speccy.info/BASin
08.05.2018, 20:11
ZX_NOVOSIB

Да это я знаю. Я выразил хотелку, что мол круто было бы иметь эмуль, который умел бы copy-paste, ладно, просто paste, хотя бы в бейсик-редакторе.

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

Скажите лучше, как из бейсика узнать, прога запущена из 48 или из 128? Должны же быть какие-то отличия в каких-то переменных, которые можно считать PEEK и сразу понять, мы в 48 или в 128 режиме находимся.
08.05.2018, 22:20
Spectramine

Цитата:

Сообщение от ZX_NOVOSIB

Да это я знаю. Я выразил хотелку, что мол круто было бы иметь эмуль, который умел бы copy-paste, ладно, просто paste, хотя бы в бейсик-редакторе.

SpecEmu умеет. Alt+P.

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

Цитата:

Сообщение от ZX_NOVOSIB

Скажите лучше, как из бейсика узнать, прога запущена из 48 или из 128? Должны же быть какие-то отличия в каких-то переменных, которые можно считать PEEK и сразу понять, мы в 48 или в 128 режиме находимся.

По адресу #5B00 в 128м бейсике - процедура переключения ПЗУ. IF PEEK 23296=245 THEN 128к.
09.05.2018, 09:32
SaintTurnip

К мастерам бейсика 48. Ищу дешевые способы организовать

- строковый массив со строками разной длины
- бинарный AND и сдвиг вправо
- бинарный XOR
09.05.2018, 09:45
Shiny

Цитата:

Сообщение от eugeniusz

- бинарный AND и сдвиг вправо

сдвиг суть деления

a>>1 a/2
a>>2 a/4

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

Цитата:

Сообщение от eugeniusz

бинарный XOR

вроде как b AND(NOT a)
09.05.2018, 10:35
Reobne

Вложений: 1

Цитата:

Сообщение от eugeniusz

К мастерам бейсика 48. Ищу дешевые способы организовать

- строковый массив со строками разной длины
- бинарный AND и сдвиг вправо
- бинарный XOR

Можно, например, XOR на основе печати псевдографики с OVER 1(см. вложение).
Предварительно псевдосимвол "A" можно обнулить, а ячейку 16384 сохранять и восстанавливать, а цвета сделать 8. И на экране будет почти ничего не заметно.

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

А вообще, USR-ом конечно проще. :)
09.05.2018, 10:50
SaintTurnip

Цитата:

вроде как b AND(NOT a)

считает, что 1 xor 3 == 0

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

Цитата:

сдвиг суть деления
a>>1 a/2
a>>2 a/4

смущают дробные части и как себя поведет INT. впрочем, может без int.

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

Цитата:

А вообще, USR-ом конечно проще

Через псевдографику как-то совсем для гурманов :) А через USR - можно подробнее?
09.05.2018, 10:59
Shiny

Цитата:

Сообщение от eugeniusz

считает, что 1 xor 3 == 0

Бинарные операции, не Бейсик
http://i104.fastpic.ru/big/2018/0509...8156d3fe6f.png

Цитата:

Сообщение от eugeniusz

смущают дробные части и как себя поведет INT. впрочем, может без int.

Даже если не INT, а плавающая точка, то операций сдвиг не существует.
09.05.2018, 11:27
SaintTurnip

Цитата:

Сообщение от Шынни

Бинарные операции, не Бейсик
http://i104.fastpic.ru/big/2018/0509...8156d3fe6f.png

он нам не питон

https://image.ibb.co/dfYqPS/not.png
09.05.2018, 11:49
Shiny

со спрайтами маешься? напиши процедуру на ассемблере и не страдай дурью.
09.05.2018, 11:54
SaintTurnip

Выводить спрайты на бейсике?

В 21 веке?

Кто я по-твоему, демосценер?
09.05.2018, 12:04
Shiny

https://vignette.wikia.nocookie.net/...path-prefix=ru

кто-то должен проткнуть рукой лицо.
09.05.2018, 15:15
ZX_NOVOSIB

Цитата:

Сообщение от weiv

По адресу #5B00 в 128м бейсике - процедура переключения ПЗУ. IF PEEK 23296=245 THEN 128к.

Ну да, и по 23681 ещё можно наверно. Но если у человека вместо 128 бейсика что-то другое зашито, то будет фейл. Значит надо пытаться переключить страницу, помещать байт куда-то в 49152-65535, потом пытаться переключать страницу обратно и смотреть peek'ом, есть байт или нет, если нет, то 128к.

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

А вот интересно, можно ли как-то из программы, запущенной в 128-ом режиме, выполнить оператор "SPECTRUM" и чтобы при этом выполнение программы не прервалось? Что-нибудь в системных переменных намутить, обработку ошибок или чего там, чтобы вместо выдачи "0 OK , 1:1" продолжилось выполнение программы со следующей строки.
09.05.2018, 16:43
Spectramine

Цитата:

Сообщение от ZX_NOVOSIB

Ну да, и по 23681 ещё можно наверно. Но если у человека вместо 128 бейсика что-то другое зашито, то будет фейл. Значит надо пытаться переключить страницу, помещать байт куда-то в 49152-65535, потом пытаться переключать страницу обратно и смотреть peek'ом, есть байт или нет, если нет, то 128к.

Нужно правильно специфицировать, что именно нужно определять - в каком бейсике (48/128) запущена программа, или под какой моделью памяти. (Или на какой модели Спектрума). В зависимости от этого придется использовать разные способы детекта.
09.05.2018, 20:30
null_device

Цитата:

Сообщение от ZX_NOVOSIB

надо пытаться переключить страницу, помещать байт куда-то в 49152-65535, потом пытаться переключать страницу обратно и смотреть peek'ом, есть байт или нет, если нет, то 128к.

Емнип, такой способ был описан в каком-то из последних спектрофонов.
09.05.2018, 20:48
ZX_NOVOSIB

null_device, "мой" способ как-то проще и короче, там, в спектрафоне, слишком сложно и длинно для меня ))
10.05.2018, 11:22
ZX_NOVOSIB

Цитата:

Сообщение от weiv

SpecEmu умеет. Alt+P.

Чот у меня не умеет ))) v3.1 от 16.03.18
10.05.2018, 12:33
Spectramine

Цитата:

Сообщение от ZX_NOVOSIB

Чот у меня не умеет ))) v3.1 от 16.03.18

Умеет, но только в 128м бейсике. Видимо, боится токенов 48го.
10.05.2018, 14:12
ZX_NOVOSIB

Цитата:

Сообщение от weiv

Умеет, но только в 128м бейсике.

У меня ни в каком не умеет, может это из-за winXP? Щас же всё заточено под 10-ки и прочие 8-ки.

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

Понял. Не работает только в режиме пентагона.
11.05.2018, 20:16
Reobne

Вложений: 1

Цитата:

Сообщение от eugeniusz

К мастерам бейсика 48. Ищу дешевые способы организовать

- строковый массив со строками разной длины
- бинарный AND и сдвиг вправо
- бинарный XOR

Функции BIN$,AND,OR,XOR чисто средствами бейсика.
Смотри вложение:
Первые 2 DEF FN-а - служебные.
В Z$ храница таблица.
Начиная со сроки 1000 - тестирование.

Показывать 40 сообщений этой темы на одной странице

Текущее время: 20:50. Часовой пояс GMT +3.