Ну если сердечко из символов, то просто сначала нарисуй на клетчатой бумаге 32х24, а потом закодируй на Бейсике командами PRINT AT...
А можь найти готовое демо для Спека? Такие романтичные вообще были? :)
Вид для печати
По теме запуска бейсик программы "с ноля". Совместными усилиями проблема решена.
Нужно было на стек "положить" адрес #1303.
Всем причастным спасибо за помощь :)
Именно в таком виде задачу по запуску BASIC-программы мне решать не приходилось, и она меня заинтересовала.Цитата:
Сообщение от Prusak
Во вложении исходный ассемблерный текст и откомпилированный вариант моего решения. Образ диска имеет структуру каталогов Directory System (но на это внимание можно не обращать). Подробности в файле install.txt.
Работа кода происходит так.
- Обнуляется область памяти под системные переменные системы ZX Spectrum (за основу взят код из TR-DOS).
- По новой организуется область системных переменных и инициализация рабочих областей. Переменные TR-DOS не организовываются.
- Выделяется место под BASIC-программу и переносятся туда ее данные.
- Запускается BASIC-программа.
Попутно решена и эта задача. BASIC-программа в коде - рисует на экране сердце. :DЦитата:
Сообщение от Narick
На чём запускать будешь? У девушки есть железный спек?
Могу поделиться своим "мини-сюрпризом для девушки", который я делал в 1995-1997гг. Это плата с Z80, AY, ПЗУ и ОЗУ. Подключается 7-сегментный индикатор и 7 кнопок. Можно проигрывать несколько музык на AY в формате ProTracker 2. Также реализованы часы, будильник и др.
Железный спек есть у меня . Она кодерша C++ так что думаю оценит( мой уровень в любом кодинге стремиться к 0 . Лет 20 не практиковался ) . Схемой поделиться ? Я не паяльник я ломльник ))) . Но все равно буду благодарен
- - - Добавлено - - -
Спс ща на эмуле тест проведу и на реал
кто подскажет, можно ли с помощью FOR перичислять переменные ?
например у меня есть строка:
3005 POKE USR A$,I1: POKE USR A$+1,I2: POKE USR A$+2,I3: POKE USR A$+3,I4: POKE USR A$+4,I5: POKE USR A$+5,I6: POKE USR A$+6,I7: POKE USR A$+7,I8
Я её хочу записать так:
FOR g= 1 TO 8: POKE USR A$+g,I(g): NEXT g
но мне выдаётся ошибка 2 variable not found.
можно это как-то обойти ?
ps. в ближайшее время будет обновление программки.
понятно.
спасибо за разъяснение.