Forth http://fforum.winglion.ru/ |
|
Некоторые вопросы устройства системы(_KROL) http://fforum.winglion.ru/viewtopic.php?f=24&t=3121 |
Страница 2 из 3 |
Автор: | Hishnik [ Вс апр 23, 2017 14:08 ] |
Заголовок сообщения: | Re: Некоторые вопросы устройства системы(_KROL) |
Вложения вроде бы есть в движке форума. Там внизу страницы есть "добавить файл". Десятки мегабайт будут лишними, но исходные тексты и описание вполне поместятся. |
Автор: | gudleifr [ Вс апр 23, 2017 14:14 ] |
Заголовок сообщения: | Re: Некоторые вопросы устройства системы(_KROL) |
_KROL писал(а): 1) Свой подход к архитектуре Повторю: раздумья интереснее архитектуры. Над чем раздумывали? Чтобы "просто работало"? Для оптимизации чего-либо? Чтобы, где-то при использовании этой заготовки в большом проекте это удачно вписалось в общую архитектуру?
После долгих раздумий я пришёл к сл. варианту архитектуры: |
Автор: | _KROL [ Вс апр 23, 2017 16:54 ] |
Заголовок сообщения: | Re: Некоторые вопросы устройства системы(_KROL) |
Опа, заметил внизу: Вы можете начинать темы Вы можете отвечать на сообщения Вы можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения Как это изменить? |
Автор: | Hishnik [ Вс апр 23, 2017 17:04 ] |
Заголовок сообщения: | Re: Некоторые вопросы устройства системы(_KROL) |
Вот тут не совсем понятно, потому что сейчас, согласно настройкам, зарегистрированные пользователи МОГУТ добавлять вложения. На всякий случай я еще раз установил права и сохранил. Можно попробовать еще раз посмотреть, изменилось ли что-нибудь. |
Автор: | _KROL [ Вс апр 23, 2017 17:05 ] |
Заголовок сообщения: | Re: Некоторые вопросы устройства системы(_KROL) |
Неа: Вы можете начинать темы Вы можете отвечать на сообщения Вы можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения |
Автор: | Hishnik [ Вс апр 23, 2017 17:06 ] |
Заголовок сообщения: | Re: Некоторые вопросы устройства системы(_KROL) |
Ну тогда можно мне на почту, я добавлю. |
Автор: | _KROL [ Вс апр 23, 2017 17:07 ] |
Заголовок сообщения: | Re: Некоторые вопросы устройства системы(_KROL) |
OK Сейчас... |
Автор: | Hishnik [ Вс апр 23, 2017 17:17 ] | ||
Заголовок сообщения: | Re: Некоторые вопросы устройства системы(_KROL) | ||
Выкладываю систему от _KROL ввиду каких-то сложностей с правами доступа для пользователей. Выкладываю как есть, вопросы к автору.
|
Автор: | gudleifr [ Вс апр 23, 2017 17:26 ] |
Заголовок сообщения: | Re: Некоторые вопросы устройства системы(_KROL) |
Код: OK
5 6 + . 7 OK |
Автор: | Victor__v [ Вс апр 23, 2017 17:35 ] |
Заголовок сообщения: | Re: Некоторые вопросы устройства системы(_KROL) |
слово words не присутствует в списки слов, но в тоже время данное слово имеет эфеект |
Автор: | Victor__v [ Вс апр 23, 2017 17:37 ] |
Заголовок сообщения: | Re: Некоторые вопросы устройства системы(_KROL) |
А, понял это винда ругается. слова-то нет. |
Автор: | _KROL [ Вс апр 23, 2017 22:37 ] |
Заголовок сообщения: | Ошибка в системе |
...Я был занят... Спасибо! Сделайте начало INTERPRET таким: Код: FWORD INTERPRET,"INTERPRET" @@: dw _SZ dw ?BRANCH,.nointerp dw _BL,WORD_,_DUP,?BRANCH,.nointerp dw FIND_ dw ?BRANCH, .notword dw _DUP,I@_ADD,_2INC,SWAP На счёт WORDS я не очень-то понял... Привожу скрин(у меня XP): OK WORDS C" CHAR CR FCLOSE FWRITE FREAD FOPEN FCREATE ". WORDS MCA>LFA LFA>MCA NFA >MCA NFA>LFA <> = >= <= > < ABS D% D/ % / WORD $WORD QUIT INTERPRET ?NUMBER ?DIG IT . U. #SIGN #> #S # <# HOLD PAD ALPHA UNTIL AGAIN BEGIN $UNTIL $AGAIN $BEGIN L OOP DO $LOOP $DO THEN ELSE -IF IF <RESOLVE <MARK >RESOLVE >MARK FIND $FIND LITER AL CCOMPILE COMPILE LIT'Z LIT' LIT , C, ALLOT !!WORD !!FENCE LASTERR! SOURCE-ID! SOURCE! HLD! >MAXSZ! >SZ! >IN! LAST! HERE! BASE! ] [ LASTERR SOURCE-ID SOURCE H LD SPAN >MAXSZ >SZ >IN LAST HERE BASE STATE FENCE TIBSZ TIB RZ SZ R0 S0 BS BL 1 0 TRUE FALSE VER IMMEDIATE VARIABLE CONSTANT DOES> (DOES>) ; :: : CREATE ?EXIT E XIT EXECUTE ?BRANCH BRANCH BLANK ERASE FILL CMOVE> CMOVE 1-! 2+! 1+! 2+C! 1+C! @ + I@+ C@+ 2! ! C! 2@ @ C@ SWAPL ROT ROT OVER 2SWAP SWAP DDUP DUP DNIP NIP ROLL P ICK 3>R 3R> >R R> RDROP 2DROP DROP R@ S@ RP! RP@ DP! SP@ TYPE EMIT EXPECT KEY? K EY WITHIN NEG NOT 0<> 0= 0> 0< AND XOR OR >< >> << U/% D/% /% 4* 2* * - + 4- 4+ 2- 2+ 1- 1+ BYE NOOP FRET FNEXT FCALL NOP OK |
Автор: | Victor__v [ Вт апр 25, 2017 09:23 ] |
Заголовок сообщения: | Re: Некоторые вопросы устройства системы(_KROL) |
не WORDS а именно words ( этого слова нет как раз ) если ввести какую-нибудь абракадабру результат тот же. Проблема с перехватом исключений, наверно. |
Автор: | _KROL [ Вт апр 25, 2017 11:03 ] |
Заголовок сообщения: | Re: Некоторые вопросы устройства системы(_KROL) |
Ты частично оказался прав. Новые исправления В самом начале(4TH.ASM): Код: org 0x100 ; Start mov sp,[S0_v] ; Это mov si,start jmp FNEXT В слове QUIT уберите ",S0,SP!" В слове INTERPRET(_PRIME.INC): Код: .notword: dw DDUP ; Это dw ?NUMBER dw ?BRANCH,!!WORD+3 dw NIP,NIP ; Это dw BRANCH,@b В ?DIGIT (DIGITS.INC) Код: .cont2: .cont1: dw _DUP,BASE,GREQ dw ?BRANCH,@f dw ZERO,_AND ; Это dw BRANCH,.cont Вроде всё... Спасибо. |
Автор: | _KROL [ Ср апр 26, 2017 23:26 ] |
Заголовок сообщения: | Re: Некоторые вопросы устройства системы(_KROL) |
Сейчас думаю над словами для работы с файлами. Пока у меня такие мысли: Код: Есть область памяти для буферов(в "верхней" части сегмента, до стека). [BCBT] (table) BUFFERS: [BUF0] [BUF1] ... Buffer Control Block(BCB) [size=20] { status rw 1 hnd rw 1 ofs rw 1 fname rb 13 ; ********.***0 rb 1 } ? CONSTANT MAXBUF ? CONSTANT BCBT ? CONSTANT BUFFERS ? CONSTANT BCBSIZE ? CONSTANT BUFSIZE : BCB BCBSIZE * BCBT + ; ( n -- BCBn ) : BUF BUFSIZE * BUFFERS + ; ( n -- BUFn ) : BUFFNAME BCB 2+ 2+ 2+ ; ( n -- filename(ptr of strz) ) ( продолжение далее ) |
Страница 2 из 3 | Часовой пояс: UTC + 3 часа [ Летнее время ] |
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |