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 ввиду каких-то сложностей с правами доступа для пользователей.

Выкладываю как есть, вопросы к автору.

Вложения:
08.zip [17.1 Кб]
Скачиваний: 754

Автор:  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/