Forth и другие саморасширяющиеся системы программирования Locations of visitors to this page
Текущее время: Пт окт 20, 2017 11:01

...
Google Search
Forth-FAQ Spy Grafic

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




Начать новую тему Ответить на тему  [ Сообщений: 265 ]  На страницу 1, 2, 3, 4, 5 ... 18  След.
Автор Сообщение
 Заголовок сообщения: Моя система(_KROL)
СообщениеДобавлено: Вс май 14, 2017 12:48 
Не в сети

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 158
Благодарил (а): 8 раз.
Поблагодарили: 1 раз.
Сюда я перехожу из-за невозможности в некоторых форумах добавления вложения...
Со временем я уже многое поправил. В том числе прошу извенение за MCA вместо CFA и PFA(я понял это благодаря Черезову[в SPF 1.50 есть неплохие TXT-ки с некоторым описанием]).


Вложения:
Комментарий к файлу: Моя система
08g.zip [24.21 Кб]
Скачиваний: 38
Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Пн май 15, 2017 22:18 
Не в сети

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 158
Благодарил (а): 8 раз.
Поблагодарили: 1 раз.
Добавил ещё кое-что...
Измеил немного вид коммандной строки(">" почти как в SPF).
Есть правда небольшая проблемка в реализации ' и WORD. (Может кто поможет? А может и мысль "снизайдёт"...)
Думаю над словом INCLUDE.


Вложения:
Комментарий к файлу: Моя система
08i.zip [24.51 Кб]
Скачиваний: 34
Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Пн май 15, 2017 23:07 
Не в сети

Зарегистрирован: Пт июн 06, 2008 14:21
Сообщения: 90
Откуда: Карелия
Благодарил (а): 1 раз.
Поблагодарили: 3 раз.
_KROL писал(а):
Добавил ещё кое-что...
Измеил немного вид коммандной строки(">" почти как в SPF).
Есть правда небольшая проблемка в реализации ' и WORD. (Может кто поможет? А может и мысль "снизайдёт"...)
Думаю над словом INCLUDE.

Зачем все это, новый SPF? где уже все реализовано...


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Ср май 17, 2017 13:25 
Не в сети

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 158
Благодарил (а): 8 раз.
Поблагодарили: 1 раз.
Нет, SP-FORTH написан на SP-FORTH. Мой форт - на ассемблере!
...Исходный код я сделал наиболее читаемым...

1.Исправил WORD и '
2.Добавил поиск слова "COLD". Если оно не найдено, идёт переход к обычному циклу
3. ...(может что и было ещё)

P.s. Далее, после тщательного изучения, я планирую (возможно) сделать ОС.


Вложения:
Комментарий к файлу: Мой Форт
08i.zip [28.34 Кб]
Скачиваний: 27
Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Ср май 17, 2017 17:36 
Не в сети
Moderator
Moderator
Аватара пользователя

Зарегистрирован: Чт май 04, 2006 00:53
Сообщения: 4831
Откуда: был Крым, теперь Новосибирск
Благодарил (а): 18 раз.
Поблагодарили: 52 раз.
А почему под 16 бит?

_________________
Мне бы только мой крошечный вклад внести,
За короткую жизнь сплести
Хотя бы ниточку шёлка.
fleur


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Ср май 17, 2017 18:26 
Не в сети

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 158
Благодарил (а): 8 раз.
Поблагодарили: 1 раз.
Потому что я ещё только учусь и (относительно) хорошо знаю реальный режим.
P.s. У меня возикал когда-то один вопрос: как перехватить сочетание клавишь CTRL-ALT-DEL под DOS (WINDOWS).
Может кто знает?


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Ср май 17, 2017 19:27 
Не в сети
Аватара пользователя

Зарегистрирован: Чт дек 31, 2009 18:36
Сообщения: 1961
Откуда: Питер
Благодарил (а): 13 раз.
Поблагодарили: 32 раз.
_KROL писал(а):
Может кто знает?

<Спросите в теме, где не гадит mOleg. Ну, или у него.>

_________________
Когда я говорю "понимаю" - это не значит, что я согласен, не значит, что я понимаю и вообще не значит, что я слушаю тебя. /Чарли, "2 1/2 человека"/


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Ср май 17, 2017 19:30 
Не в сети

Зарегистрирован: Чт янв 07, 2016 19:14
Сообщения: 343
Благодарил (а): 0 раз.
Поблагодарили: 1 раз.
Цитата:
<Спросите в теме, где не гадит mOleg. Ну, или у него.>

товарищ mOleg прокомментируете пожалуйста тему "навешивание обработчиков на компиляцию"
И форум снова вздохнёт свободно

_________________
Цель: написать форт-систему
Подцель: pe-формат, скрыть ненужные слова из целевого словаря FORTH, отладка


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Ср май 17, 2017 19:37 
Не в сети
Moderator
Moderator
Аватара пользователя

Зарегистрирован: Чт май 04, 2006 00:53
Сообщения: 4831
Откуда: был Крым, теперь Новосибирск
Благодарил (а): 18 раз.
Поблагодарили: 52 раз.
Цитата:
прокомментируете пожалуйста тему "навешивание обработчиков на компиляцию"

:))

_________________
Мне бы только мой крошечный вклад внести,
За короткую жизнь сплести
Хотя бы ниточку шёлка.
fleur


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Ср май 17, 2017 19:50 
Не в сети

Зарегистрирован: Пт июн 06, 2008 14:21
Сообщения: 90
Откуда: Карелия
Благодарил (а): 1 раз.
Поблагодарили: 3 раз.
_KROL писал(а):
Потому что я ещё только учусь и (относительно) хорошо знаю реальный режим.
P.s. У меня возикал когда-то один вопрос: как перехватить сочетание клавишь CTRL-ALT-DEL под DOS (WINDOWS).
Может кто знает?

Просто так WINDOWS не даст перехватить системные сочетания клавиш, если только не подмять Винду, написать собственный GINA.DLL, написать собственный драйвер клавы, ну и в реестре можно заблокировать на время сочетания системных клавиш... последнее наверно наиболее для форта подходит... ну а если погуглить там море предложений


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Ср май 17, 2017 20:43 
Не в сети
Administrator
Administrator
Аватара пользователя

Зарегистрирован: Вт май 02, 2006 22:48
Сообщения: 6076
Благодарил (а): 13 раз.
Поблагодарили: 96 раз.
Victor__v писал(а):
товарищ mOleg прокомментируете пожалуйста тему "навешивание обработчиков на компиляцию"
И форум снова вздохнёт свободно

Модератор-экзорцист! :))


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Чт июн 01, 2017 21:01 
Не в сети

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 158
Благодарил (а): 8 раз.
Поблагодарили: 1 раз.
Так как занят, то полнее обновление будет сделано позже...
1)Сделал нормальный в/в чисел со знаком
2)Кое-что пофиксил
P.s. Если кому-то надо, могу скинуть эмулятор i8080 (немного собственная архитектура) для PABC


Вложения:
Комментарий к файлу: Мой Форт
09c.zip [28.37 Кб]
Скачиваний: 35
Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Вт июн 06, 2017 14:04 
Не в сети
Аватара пользователя

Зарегистрирован: Ср фев 23, 2011 20:42
Сообщения: 480
Откуда: Карелия
Благодарил (а): 3 раз.
Поблагодарили: 19 раз.
Цитата:
AWORD TYPE,'TYPE'
mov dx,si
pop cx
pop si
@@:
lodsb
mov ah,0xE
int 0x10
loop @b
mov si,dx
AEND

AWORD TYPE,'TYPE'
mov dx,si
pop cx
pop si
jcxz .skip
@@:
lodsb
mov ah,0xE
int 0x10
loop @b
.skip:
mov si,dx
AEND

Если TYPE вызывается с нулевой длиной не должна печатать ничего. И по стандарту так и вообще используется, если длина выводимой строки вычисляемая.


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Вт июн 06, 2017 14:09 
Не в сети
Аватара пользователя

Зарегистрирован: Ср фев 23, 2011 20:42
Сообщения: 480
Откуда: Карелия
Благодарил (а): 3 раз.
Поблагодарили: 19 раз.
Цитата:
AWORD EXECUTE,"EXECUTE"
pop bx
jmp bx
_END
Проще тут, проще

AWORD EXECUTE,"EXECUTE"
ret ;near
_END


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Вт июн 06, 2017 14:15 
Не в сети
Аватара пользователя

Зарегистрирован: Ср фев 23, 2011 20:42
Сообщения: 480
Откуда: Карелия
Благодарил (а): 3 раз.
Поблагодарили: 19 раз.
Цитата:
AWORD KEY?,"KEY?"
clr al
inc al
int 0x16
xor ax,ax
jz @f
dec ax
@@:
push ax
AEND

xor ax,ax всегда выставит флаг Z. Так-что тут ошибка !
Используй mov ax,0 которая флага Z не меняет или лучше убери xor ax,ax и вместо dec ax воткни mov ax,-1


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

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


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

Сейчас этот форум просматривают: Google [Bot] и гости: 2


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

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