Forth и другие саморасширяющиеся системы программирования Locations of visitors to this page
Текущее время: Пт мар 29, 2024 02:27

...
Google Search
Forth-FAQ Spy Grafic

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




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

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


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

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


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

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

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


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

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

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

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


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

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

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


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

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


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

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


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

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

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

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


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

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

:))

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


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

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

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


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

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

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


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

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


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

Зарегистрирован: Ср фев 23, 2011 20:42
Сообщения: 600
Откуда: Карелия
Благодарил (а): 3 раз.
Поблагодарили: 24 раз.
Цитата:
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
Сообщения: 600
Откуда: Карелия
Благодарил (а): 3 раз.
Поблагодарили: 24 раз.
Цитата:
AWORD EXECUTE,"EXECUTE"
pop bx
jmp bx
_END
Проще тут, проще

AWORD EXECUTE,"EXECUTE"
ret ;near
_END


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

Зарегистрирован: Ср фев 23, 2011 20:42
Сообщения: 600
Откуда: Карелия
Благодарил (а): 3 раз.
Поблагодарили: 24 раз.
Цитата:
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


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

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


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

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


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

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