Forth и другие саморасширяющиеся системы программирования Locations of visitors to this page
Текущее время: Чт ноя 15, 2018 06:15

...
Google Search
Forth-FAQ Spy Grafic

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 21 ]  На страницу Пред.  1, 2
Автор Сообщение
 Заголовок сообщения: Re: Quark C64
СообщениеДобавлено: Пн апр 23, 2018 10:28 
Не в сети
Moderator
Moderator
Аватара пользователя

Зарегистрирован: Ср дек 06, 2006 09:23
Сообщения: 605
Благодарил (а): 6 раз.
Поблагодарили: 25 раз.
Hishnik писал(а):
А кстати, никаких IP-ядер для Zedboard не наработано? Можно было бы под них и организовать тестирование.

вот чего нет, того есть)


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Quark C64
СообщениеДобавлено: Сб ноя 10, 2018 22:22 
Не в сети
Administrator
Administrator
Аватара пользователя

Зарегистрирован: Вт май 02, 2006 22:48
Сообщения: 6435
Благодарил (а): 14 раз.
Поблагодарили: 101 раз.
Вот такой код успешно выполнился на Quark-C64. Ну, уже основные интересные моменты решены...

Код:
: R 42 EMIT2 ;
R

CR

: PIFAFOR
  10 0 DO
    10 0 DO
        I J * .
    LOOP
    CR
  LOOP
;

CR

: SINUS
  1000 0 DO
    I
    500 I S>F PI F* 90.0 F/ FSIN 100.0 F* F>S -
    0x00FFFF PIXEL
  LOOP
;

VOCABULARY ASSEMBLER

ASSEMBLER DEFINITIONS

65536 CONSTANT MAXCODE
1024 CONSTANT MAXDATA

CREATE CODE[] MAXCODE ALLOT
CREATE DATA[] MAXDATA CELLS ALLOT

QUAN CODE^ 0 TO CODE^
QUAN DATA^ 0 TO DATA^

QUAN CODE-START 0 TO CODE-START
QUAN DATA-START 0 TO DATA-START

: VIEW-CODE
  256 0 DO
    I 16 MOD 0 = IF 0 I 16 / 3 + GOTOXY I CODE-START + . THEN
    I 16 MOD 4 * 8 +
    I 16 / 3 + GOTOXY
    CODE[] I + C@ .
  LOOP
;

: VIEW-DATA
  256 0 DO
    I 16 MOD 0 = IF 0 I 16 / 3 + GOTOXY I DATA-START + . THEN
    I 16 MOD 4 * 8 +
    I 16 / 3 + GOTOXY
    DATA[] I + @ .
  LOOP
;


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Quark C64
СообщениеДобавлено: Вс ноя 11, 2018 10:43 
Не в сети
Moderator
Moderator
Аватара пользователя

Зарегистрирован: Ср дек 06, 2006 09:23
Сообщения: 605
Благодарил (а): 6 раз.
Поблагодарили: 25 раз.
ждём официального релиза....)


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Quark C64
СообщениеДобавлено: Вс ноя 11, 2018 23:28 
Не в сети
Administrator
Administrator
Аватара пользователя

Зарегистрирован: Вт май 02, 2006 22:48
Сообщения: 6435
Благодарил (а): 14 раз.
Поблагодарили: 101 раз.
Нет бы создать проект на гитхабе, взять за основу шаблон с объявлениями функций и сделать. А так у меня даже никаких иллюзий на тему возможного развития - исходники тут же начнут дергать в разные стороны, делая "быстрее", "надежнее", и "ANS-совместимее", теряя при этом заложенную архитектуру. В итоге так все и похоронится.


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Quark C64
СообщениеДобавлено: Пн ноя 12, 2018 04:09 
Не в сети
Moderator
Moderator
Аватара пользователя

Зарегистрирован: Ср дек 06, 2006 09:23
Сообщения: 605
Благодарил (а): 6 раз.
Поблагодарили: 25 раз.
Hishnik писал(а):
Нет бы создать проект на гитхабе, взять за основу шаблон с объявлениями функций и сделать. А так у меня даже никаких иллюзий на тему возможного развития - исходники тут же начнут дергать в разные стороны, делая "быстрее", "надежнее", и "ANS-совместимее", теряя при этом заложенную архитектуру. В итоге так все и похоронится.


Я неприхотлив, хватит и EXEшника ))) :shuffle;


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Quark C64
СообщениеДобавлено: Пн ноя 12, 2018 11:31 
Не в сети

Зарегистрирован: Чт янв 07, 2016 19:14
Сообщения: 649
Благодарил (а): 0 раз.
Поблагодарили: 6 раз.
Hishnik писал(а):
Нет бы создать проект на гитхабе, взять за основу шаблон с объявлениями функций и сделать. А так у меня даже никаких иллюзий на тему возможного развития - исходники тут же начнут дергать в разные стороны, делая "быстрее", "надежнее", и "ANS-совместимее", теряя при этом заложенную архитектуру. В итоге так все и похоронится.


Зачем гитхаб?

Hg

:D

_________________
Цель: сделать 64-битную Нову под Винду


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 21 ]  На страницу Пред.  1, 2

Часовой пояс: UTC + 3 часа [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3


Вы не можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
phpBB сборка от FladeX // Русская поддержка phpBB