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-ки с некоторым описанием]).
|
Автор: | _KROL [ Пн май 15, 2017 22:18 ] | ||
Заголовок сообщения: | Re: Моя система(_KROL) | ||
Добавил ещё кое-что... Измеил немного вид коммандной строки(">" почти как в SPF). Есть правда небольшая проблемка в реализации ' и WORD. (Может кто поможет? А может и мысль "снизайдёт"...) Думаю над словом INCLUDE.
|
Автор: | 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. Далее, после тщательного изучения, я планирую (возможно) сделать ОС.
|
Автор: | 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
|
Автор: | 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/ |