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

[ZX_NOVOSIB]

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

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

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

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

[Advertiser]

[Spectramine]

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

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

[null_device]

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

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

[ZX_NOVOSIB]

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

[ZX_NOVOSIB]

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

Сам спросил - сам ответил ))
По наводке одного хорошего человека, нашлась прога, размером 45 байт, которую можно засунуть в строку REM и настанет счастье. В аттаче два файла:
test - прога на бейсике, корректно работает только в 48-ом режиме (пентагон).
test2 - та же прога, только с добавкой волшебной процедурки, а значит корректно работает из любого режима. Долой тормозной 128 бейсик, теперь всё будет быстрей! )

[goodboy]

Долой тормозной 128 бейсик, теперь всё будет быстрей!

я думал ты с udg символами воюешь, а тут оказываются лишние такты на прерывании.
логичней врубить im2 и не париться

[ZX_NOVOSIB]

goodboy, дело не только в скорости, но и в буфере принтера. 256 байт лишними не бывают, для депакера хруста например.

Ну а если на то пошло, то как включить im2?
IM2
RET
- не работает.

[null_device]

Ну а если на то пошло, то как включить im2?
IM2
RET
- не работает.

Тык!

[ZX_NOVOSIB]

Тык!

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

[свернуть]

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

Работа с расширенной памятью через электронный диск это хорошо, но всё портит дикая тормознутость самого 128бейсика. Однако если мы убиваем этот бейсик, то лишаемся нормальной работы с расширенной памятью из бейсика, ибо out 32765 ограничивает размер самой бейсик-проги, ибо нужен clear 49151. Засада, однако. Либо памяти 128, но тормоза и буфера принтера нет, либо буфер есть, тормозов нет, но памяти 48. Хотя, если прогу оптимизировать, чтобы влезала до 49152, то норм.

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

А если мы сделали usr0, то для переключения страниц из бейсика, нам больше не нужен poke 23388?

[goodboy]

А если мы сделали usr0, то для переключения страниц из бейсика, нам больше не нужен poke 23388?

да. 128ой бейсик включает нужный нам банк беря значение из этой переменной.
она проверяется в подпрограмме висящей на прерываниях.
хотя res 4,(iy+1) отключает эту проверку