Forth http://fforum.winglion.ru/ |
|
[BF] TETRIS http://fforum.winglion.ru/viewtopic.php?f=16&t=787 |
Страница 2 из 2 |
Автор: | forth@km.ru [ Чт июн 14, 2007 23:29 ] |
Заголовок сообщения: | |
и наконец последнее слово и сейв байт-кода: Код: { TETRIS gr/on CALCULATE_c begin POOLRANDFILL REDRAW gr/?key until gr/key drop gr/off bye } Код: save" TETRIS"
|
Автор: | forth@km.ru [ Чт июн 14, 2007 23:36 ] |
Заголовок сообщения: | |
чуть не забыл -- в коде используется слово ~* (при определении константы ~poolsz ), оно задано в коде целевого компилятора TC.4th Код: : ~* * ; 0x32 0op *
словами: сохраняем стандартное слово умножения под новым именем, а потом переопределяем его словом целевого компилятора. по идее тут нужно пользоваться словарями, слова ЦК совать в словарь TC, порядок поиска задать TC потом FORTH, а при необходимости придумать слова скажем [F] и [T] которые будет переключать порядок поиска соответвенно FORTH,TC и наоборот TC,FORTH |
Автор: | forth@km.ru [ Чт июн 14, 2007 23:41 ] |
Заголовок сообщения: | |
Полный текст программы (текущей версии) см. подпись и далее по ссылкам, бинарный дистрибутив BF.dos16.rar уже пересобран, но достаточно скачать только отдельные изменившиеся файлы dos16.bat , TC.4th и TETRIS.4th и обновить старый бинарный дистрибутив Запустив программку, можно приблизительно оценить скорость работы железки, движка и графического драйвера. На моем дуал-турике в DOS-задаче вполне шустро работает, надо как нибудь запустить http://bochs.sf.net и посмотреть как оно в симуляторе под чистым DOSом будет шевелится |
Страница 2 из 2 | Часовой пояс: UTC + 3 часа [ Летнее время ] |
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |