Forth и другие саморасширяющиеся системы программирования Locations of visitors to this page
Текущее время: Вт сен 18, 2018 23:41

...
Google Search
Forth-FAQ Spy Grafic

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




Начать новую тему Ответить на тему  [ Сообщений: 40 ]  На страницу Пред.  1, 2, 3  След.
Автор Сообщение
 Заголовок сообщения: Re: Некоторые вопросы устройства системы(_KROL)
СообщениеДобавлено: Вс апр 23, 2017 14:08 
Не в сети
Administrator
Administrator
Аватара пользователя

Зарегистрирован: Вт май 02, 2006 22:48
Сообщения: 6400
Благодарил (а): 14 раз.
Поблагодарили: 100 раз.
Вложения вроде бы есть в движке форума. Там внизу страницы есть "добавить файл". Десятки мегабайт будут лишними, но исходные тексты и описание вполне поместятся.


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Некоторые вопросы устройства системы(_KROL)
СообщениеДобавлено: Вс апр 23, 2017 14:14 
_KROL писал(а):
1) Свой подход к архитектуре
После долгих раздумий я пришёл к сл. варианту архитектуры:
Повторю: раздумья интереснее архитектуры. Над чем раздумывали? Чтобы "просто работало"? Для оптимизации чего-либо? Чтобы, где-то при использовании этой заготовки в большом проекте это удачно вписалось в общую архитектуру?


Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: Некоторые вопросы устройства системы(_KROL)
СообщениеДобавлено: Вс апр 23, 2017 16:54 
Не в сети

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 344
Благодарил (а): 15 раз.
Поблагодарили: 1 раз.
Опа, заметил внизу:

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

Как это изменить?


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

Зарегистрирован: Вт май 02, 2006 22:48
Сообщения: 6400
Благодарил (а): 14 раз.
Поблагодарили: 100 раз.
Вот тут не совсем понятно, потому что сейчас, согласно настройкам, зарегистрированные пользователи МОГУТ добавлять вложения. На всякий случай я еще раз установил права и сохранил. Можно попробовать еще раз посмотреть, изменилось ли что-нибудь.


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

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 344
Благодарил (а): 15 раз.
Поблагодарили: 1 раз.
Неа:

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


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

Зарегистрирован: Вт май 02, 2006 22:48
Сообщения: 6400
Благодарил (а): 14 раз.
Поблагодарили: 100 раз.
Ну тогда можно мне на почту, я добавлю.


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

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 344
Благодарил (а): 15 раз.
Поблагодарили: 1 раз.
OK Сейчас...


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

Зарегистрирован: Вт май 02, 2006 22:48
Сообщения: 6400
Благодарил (а): 14 раз.
Поблагодарили: 100 раз.
Выкладываю систему от _KROL ввиду каких-то сложностей с правами доступа для пользователей.

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


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

За это сообщение автора Hishnik поблагодарил: _KROL
Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Некоторые вопросы устройства системы(_KROL)
СообщениеДобавлено: Вс апр 23, 2017 17:26 
Код:
OK
5 6 + . 7 OK


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

Зарегистрирован: Чт янв 07, 2016 19:14
Сообщения: 614
Благодарил (а): 0 раз.
Поблагодарили: 4 раз.
слово words не присутствует в списки слов, но в тоже время данное слово имеет эфеект

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


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

Зарегистрирован: Чт янв 07, 2016 19:14
Сообщения: 614
Благодарил (а): 0 раз.
Поблагодарили: 4 раз.
А, понял это винда ругается. слова-то нет.

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


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Ошибка в системе
СообщениеДобавлено: Вс апр 23, 2017 22:37 
Не в сети

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 344
Благодарил (а): 15 раз.
Поблагодарили: 1 раз.
...Я был занят... Спасибо!
Сделайте начало 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


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

Зарегистрирован: Чт янв 07, 2016 19:14
Сообщения: 614
Благодарил (а): 0 раз.
Поблагодарили: 4 раз.
не WORDS а именно words ( этого слова нет как раз )
если ввести какую-нибудь абракадабру результат тот же.
Проблема с перехватом исключений, наверно.

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



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

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 344
Благодарил (а): 15 раз.
Поблагодарили: 1 раз.
Ты частично оказался прав. Новые исправления

В самом начале(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

Вроде всё... Спасибо.


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

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 344
Благодарил (а): 15 раз.
Поблагодарили: 1 раз.
Сейчас думаю над словами для работы с файлами.
Пока у меня такие мысли:

Код:
Есть область памяти для буферов(в "верхней" части сегмента, до стека).
[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) )


( продолжение далее )


Последний раз редактировалось _KROL Пт апр 28, 2017 18:20, всего редактировалось 1 раз.

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

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


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

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


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

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