Нет, я имел в виду область, куда копируются данные - BF60, а это 48992. От 4000h (16384) до неё около 32 кб.Сообщение от DemonId7
Кстати, я пишу десятичные значения:
FOR I = 0 TO 16: Y= PEEK(32759+I): POKE (48992+I),Y: NEXT
Так проще.
Итак, результаты эксперимента. Без HDD - то же самое.
Загружаю свою программу. Пищу просто FOR I = 0 TO 16:NEXT. Как-то долговато оно выполняется, где-то секунды две.
Сделал так: FOR I = 0 TO 16: Y= PEEK(32759+I): PRINT Y;:POKE (48992+I),Y: NEXT.
Выводится девять нулей, дальше идут 255. Но на вывод каждого числа уходит 4 секунды, на 15-м процесс стопорится. Дальше ничего не происходит, останавливаю через УПР+СТОП. Делаю FOR I = 0 TO 15 - так же медленно, но команда успешно завершается.
Загружаю небольшую программу, например, Минёр. Не пишу команду копирования, сразу жму reset, запускаю DSAVE, сохраняю. Выключаю и включаю комп, запускаю сохраненную копию программы - всё нормально. Вывожу листинг программы - никаких глюков и абракадабр. Ввожу FOR I =... Всё выполняется моментально.
Ещё меня смущает, что не работает оператор FRE. Я пишу FRE(0), а мне в ответ - 2 Error. Но раньше-то работало! Правда, это было очень давно.
А теперь я опять загрузил свою программу, без FOR I = 0 TO 16: и т.д. сразу перезагрузил, сохранил через DSAVE - программа работает нормально. Её cas-файл в формате CSAVE весит 13919 байт, не достает до этой области.
Я доделаю эту программу и дам её вам, проверите у себя. Последний раз я её запускал ещё в 90-х.
Ответить с цитированием