Forth
http://fforum.winglion.ru/

Моя система(_KROL)
http://fforum.winglion.ru/viewtopic.php?f=2&t=3127
Страница 1 из 36

Автор:  _KROL [ Вс май 14, 2017 12:48 ]
Заголовок сообщения:  Моя система(_KROL)

Сюда я перехожу из-за невозможности в некоторых форумах добавления вложения...
Со временем я уже многое поправил. В том числе прошу извенение за MCA вместо CFA и PFA(я понял это благодаря Черезову[в SPF 1.50 есть неплохие TXT-ки с некоторым описанием]).

Вложения:
Комментарий к файлу: Моя система
08g.zip [24.21 Кб]
Скачиваний: 986

Автор:  _KROL [ Пн май 15, 2017 22:18 ]
Заголовок сообщения:  Re: Моя система(_KROL)

Добавил ещё кое-что...
Измеил немного вид коммандной строки(">" почти как в SPF).
Есть правда небольшая проблемка в реализации ' и WORD. (Может кто поможет? А может и мысль "снизайдёт"...)
Думаю над словом INCLUDE.

Вложения:
Комментарий к файлу: Моя система
08i.zip [24.51 Кб]
Скачиваний: 983

Автор:  F-MAP [ Пн май 15, 2017 23:07 ]
Заголовок сообщения:  Re: Моя система(_KROL)

_KROL писал(а):
Добавил ещё кое-что...
Измеил немного вид коммандной строки(">" почти как в SPF).
Есть правда небольшая проблемка в реализации ' и WORD. (Может кто поможет? А может и мысль "снизайдёт"...)
Думаю над словом INCLUDE.

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

Автор:  _KROL [ Ср май 17, 2017 13:25 ]
Заголовок сообщения:  Re: Моя система(_KROL)

Нет, SP-FORTH написан на SP-FORTH. Мой форт - на ассемблере!
...Исходный код я сделал наиболее читаемым...

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

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

Вложения:
Комментарий к файлу: Мой Форт
08i.zip [28.34 Кб]
Скачиваний: 935

Автор:  mOleg [ Ср май 17, 2017 17:36 ]
Заголовок сообщения:  Re: Моя система(_KROL)

А почему под 16 бит?

Автор:  _KROL [ Ср май 17, 2017 18:26 ]
Заголовок сообщения:  Re: Моя система(_KROL)

Потому что я ещё только учусь и (относительно) хорошо знаю реальный режим.
P.s. У меня возикал когда-то один вопрос: как перехватить сочетание клавишь CTRL-ALT-DEL под DOS (WINDOWS).
Может кто знает?

Автор:  gudleifr [ Ср май 17, 2017 19:27 ]
Заголовок сообщения:  Re: Моя система(_KROL)

_KROL писал(а):
Может кто знает?

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

Автор:  Victor__v [ Ср май 17, 2017 19:30 ]
Заголовок сообщения:  Re: Моя система(_KROL)

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

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

Автор:  mOleg [ Ср май 17, 2017 19:37 ]
Заголовок сообщения:  Re: Моя система(_KROL)

Цитата:
прокомментируете пожалуйста тему "навешивание обработчиков на компиляцию"

:))

Автор:  F-MAP [ Ср май 17, 2017 19:50 ]
Заголовок сообщения:  Re: Моя система(_KROL)

_KROL писал(а):
Потому что я ещё только учусь и (относительно) хорошо знаю реальный режим.
P.s. У меня возикал когда-то один вопрос: как перехватить сочетание клавишь CTRL-ALT-DEL под DOS (WINDOWS).
Может кто знает?

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

Автор:  Hishnik [ Ср май 17, 2017 20:43 ]
Заголовок сообщения:  Re: Моя система(_KROL)

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

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

Автор:  _KROL [ Чт июн 01, 2017 21:01 ]
Заголовок сообщения:  Re: Моя система(_KROL)

Так как занят, то полнее обновление будет сделано позже...
1)Сделал нормальный в/в чисел со знаком
2)Кое-что пофиксил
P.s. Если кому-то надо, могу скинуть эмулятор i8080 (немного собственная архитектура) для PABC

Вложения:
Комментарий к файлу: Мой Форт
09c.zip [28.37 Кб]
Скачиваний: 956

Автор:  Ethereal [ Вт июн 06, 2017 14:04 ]
Заголовок сообщения:  Re: Моя система(_KROL)

Цитата:
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 вызывается с нулевой длиной не должна печатать ничего. И по стандарту так и вообще используется, если длина выводимой строки вычисляемая.

Автор:  Ethereal [ Вт июн 06, 2017 14:09 ]
Заголовок сообщения:  Re: Моя система(_KROL)

Цитата:
AWORD EXECUTE,"EXECUTE"
pop bx
jmp bx
_END
Проще тут, проще

AWORD EXECUTE,"EXECUTE"
ret ;near
_END

Автор:  Ethereal [ Вт июн 06, 2017 14:15 ]
Заголовок сообщения:  Re: Моя система(_KROL)

Цитата:
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

Страница 1 из 36 Часовой пояс: UTC + 3 часа [ Летнее время ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/