Программирование на Z80 в ассемблере и машинном коде на 48 Kb машине!

[LW]

в basic128 щелкать страницами чревато сбросом

[Dart Alver]

я бы ещё и `теневой` экран задействовал, так сказать для показа всего функционала.
а данные на страницы универсальней грузить в цикле, переменную можно добавить в имя файла.
load "scr"+str$ A code

Ну я сразу сказал что пример "беспонтовый" )) абы более-менее понятно было. А так там и в циклы запустить можно, и вместо цифровых значений строковые запихнуть типо для экономии.
Но нафига ? Вот если бы для реальной практической цели - тогда да, можно поизвращаться ))

именно для basic128 out вообще не нужен, достаточно занести номер страницы в (23388) и он сам её выставит

Не работал с 128 бейсиком.
В былые времена на профи привык к сбросу в TR-DOS + 48-й бейсик с открытой доп. памятью. А 128 бейсик при наличии уже ZASMа, TASMа и STORMа не зашел. ))
---
Да на 128-м бейсике пример не работает. Предварительно нужно сбросить в 48-й. и TR-DOS инициализировать. Из 128-го это:
RANDOMIZE USR 0
RANDOMIZE USR 15616
RETURN
и затем набивать программу.

Либо, как сказал goodboy, заменить в 1000-й строке OUT 32765,a+16 на POKE 23388,a+16

[alex8418]

[QUOTE=Dart Alver;1171614]
Хоть я уже бейсик позабыл напрочь, но если вам так нужен беспонтовый пример чего можно делать из бейсика, то вот :

10 CLEAR 45055
20 DATA 0,1,3,4,6,7
30 RESTORE 20
40 GO SUB 1000 : RANDOMIZE USR 15619 : REM : LOAD "scr0" CODE 49152
50 GO SUB 1000 : RANDOMIZE USR 15619 : REM : LOAD "scr1" CODE 49152
60 GO SUB 1000 : RANDOMIZE USR 15619 : REM : LOAD "scr3" CODE 49152
70 GO SUB 1000 : RANDOMIZE USR 15619 : REM : LOAD "scr4" CODE 49152
80 GO SUB 1000 : RANDOMIZE USR 15619 : REM : LOAD "scr6" CODE 49152
90 GO SUB 1000 : RANDOMIZE USR 15619 : REM : LOAD "scr7" CODE 49152
200 DATA 33,0,192,17,0,64,1,0,27,237,176,201
210 RESTORE 200
220 FOR i=45056 TO 45056+11
230 READ a : POKE i,a
240 NEXT i
300 RESTORE 20
310 FOR i=0 TO 5
320 GO SUB 1000
330 RANDOMIZE USR 45056
340 PAUSE 0 : NEXT i
350 GO TO 300
1000 READ a : OUT 32765,a+16 : RETURN

Для работы примера нужно каким либо граф-редактором предварительно создать на диске 6 файлов скриншотов с расширением C (CODE) длиной 6912 байт : "scr0","scr1","scr3","scr4",scr6","scr7

Dart Alver спасибо за живой пример!!!