Forth и другие саморасширяющиеся системы программирования Locations of visitors to this page
Текущее время: Чт мар 28, 2024 20:16

...
Google Search
Forth-FAQ Spy Grafic

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




Начать новую тему Ответить на тему  [ Сообщений: 536 ]  На страницу Пред.  1, 2, 3, 4, 5, 6, 7, 8 ... 36  След.
Автор Сообщение
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Вс июн 25, 2017 22:04 
Не в сети
Аватара пользователя

Зарегистрирован: Ср фев 23, 2011 20:42
Сообщения: 600
Откуда: Карелия
Благодарил (а): 3 раз.
Поблагодарили: 24 раз.
_KROL писал(а):
P.s. Кстати, не подскажети ли, где найти архиватор, который открывает старые *.ARC?
Когда-то давным давно еще HTML-сайтов не было, потому-что протокола такого еще не изобрели, а вот FTP-архивы уже были. В старых FTP-архивах крупнейших вузов, где их еще не похерили, стоит порыться. Нопример тут :
ftp://ftp.funet.fi/pub/msdos/packing/archiver/
Это Хельсингский университет.


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

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 365
Благодарил (а): 17 раз.
Поблагодарили: 1 раз.
Спасибо! Действительно, в таких хранилищах много интересного, но их надо знать)


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

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 365
Благодарил (а): 17 раз.
Поблагодарили: 1 раз.
Упс, одна ошибочка вышла, ибо этот момент я позже доработаю(что делает (DOES>) почему-то вообще забыл 8|)...
Это в : VARIABLE и CONSTANT забыл 2- в конце, поэтому не туда компилирует и...

FWORDI COLON,":"
dw CREATE,LIT,FCALL,HERE@,SWAP,OVER,_SUB,SWAP,_2DEC,!,CMODE
FEND

Ладно, у меня завтра последний ЦТ по физике ;)


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

Зарегистрирован: Ср фев 23, 2011 20:42
Сообщения: 600
Откуда: Карелия
Благодарил (а): 3 раз.
Поблагодарили: 24 раз.
Блин, да существует-же простой способ быстро протестировать свой Форт.
Вот я приаттачил файл tester.fr , который суть тест на ошибки и на соответствие стандарту ANSI, что я свистнул из комплекта SP-Forth 2.5. Там еще комментарии от Черезова видны.
А теперь смотри - берешь мой forth.com , который я выкладывал в этом топике раньше, и запускаешь его так
forth.com < tester.fr > log.txt
а потом смотришь поиском в файле log.txt слово RESULT и еще символ "?". RESULT содержится в любой ругани теста, а "?" - непременный атрибут ругани моего Форта. И убеждаешься, что во время исполнения теста ни разу не выругался ни тест, ни Форт.

Теперь второй вопрос. Приаттаченный тест заточен под стандарт ANSI. Ну а что делать если у тебя форт не ANSI ? А я делаю так - просто втыкаю в начало этого теста секцию согласования, которая превращает тестируемый Форт в якобы ANSI-Форт. И запускаю тест чтобы протестировать и ошибки выловить. Ведь если ошибки есть, то они при исполнении теста где-нибудь да неверный результат дадут и всплывут.
Например, совсем уж не похожий на ANSI Фиг-форт (точнее мой каприз сделать Фиг 32-х разрядным с минимальными отступлениями от классического прототипа, вкусив так сказать классики, но уже в комфортных условиях под Windows) я превратил в якобы ANSI таким согласованием :
Код:
( \\\\\\\\\\\\\\\\\\\\\\\\\ FIG -> ANSI \\\\\\\\\\\\\\\\\\\\\\\\\\\\\ )

HEX

: : [COMPILE] : ;

: 0= 0= MINUS ; : <> = 0= ;

: < < MINUS ;
: > > MINUS ;
: = = MINUS ;
: 0< 0< MINUS ;
: U< U< MINUS ;

: (S") R> COUNT 2DUP + 1+ >R ;
: ['] ?COMP [COMPILE] ' CELL MINUS HERE CELL- +! ; IMMEDIATE

: ' ?EXEC [COMPILE] ' CFA ;
: .( 29 WORD HERE COUNT TYPE ;
: 0! 0 SWAP ! ;
: 2* DUP + ;
: 2/ S->D 1 AND 2 U/ SWAP DROP ;
: 2DROP DROP DROP ;
: 2SWAP ROT >R ROT R> ;
: >BODY CELL+ CELL+ ;
: >IN IN ;
: >NUMBER
  OVER >R DUP PAD C! PAD 1+ SWAP CMOVE 0 PAD COUNT + C!
  PAD (NUMBER)
  PAD 1+ - DUP R> + PAD C@ ROT -
;
: ?DUP -DUP ;
: ACCEPT
  2DUP >R >R EXPECT
  -1 R> R> OVER + SWAP DO 1+ I C@ 0= IF LEAVE THEN LOOP
;
: ALIGN ;    \ Unaligned model for IBM PC Win-32
: ALIGNED ;  \ Unaligned model for IBM PC Win-32
: CELLS CELL * ;
: CHAR BL WORD HERE 1+ C@ ;
: CHAR+ 1+ ;
: CHARS ;
\ : CREATE 0 CONSTANT HERE DUP CELL- ! ;
: CREATE <BUILDS DOES> ;
: EXIT R> DROP ;
: FM/MOD
  2DUP DUP >R XOR >R M/ R> 0<
  IF OVER IF 1- SWAP R + SWAP THEN THEN R> DROP
;
: INVERT -1 XOR ;
\ : J R> R> R> I SWAP >R SWAP >R SWAP >R ;
: MOVE
  >R 2DUP U<
  IF
    R> -DUP
    IF
      >R SWAP R + SWAP R + R> 0 DO 1- SWAP 1- SWAP OVER C@ OVER C! LOOP
    THEN
    2DROP
  ELSE
    R> CMOVE
  THEN
;
: NEGATE MINUS ;
: POSTPONE
  ?COMP -FIND ?WORD 0= 0 ?ERROR
  40 AND 0= IF COMPILE COMPILE THEN CFA ,
; IMMEDIATE
: R@ R> R SWAP >R ;
: RECURSE ?COMP LATEST PFA CFA , ; IMMEDIATE
: RSHIFT -DUP IF 0 DO 0 2 U/ SWAP DROP LOOP THEN ;
: S" ?COMP COMPILE (S") 22 WORD HERE C@ 1+ ALLOT 0 C, ; IMMEDIATE
: S>D S->D ;
: SIGN ROT ROT SIGN ;
: SM/REM M/ ;
: SOURCE TIB @ 0 OVER BEGIN DUP C@ WHILE 1 1 D+ REPEAT DROP ;
: TRUE -1 ;
: UM* U* ;
: UM/MOD U/ ;
: VARIABLE 0 VARIABLE ;
: [CHAR] ?COMP [COMPILE] C" ; IMMEDIATE

: 2OVER 2SWAP DUP >R OVER >R 2SWAP R> R> ;
: D< >R SWAP R> 2DUP = IF 2DROP < ELSE < >R 2DROP R> THEN ;
: EVALUATE
  TIB @ >R IN @ >R
  DROP TIB ! IN 0!
  INTERPRET
  R> IN ! R> TIB !
;
: FIND
  DUP >R CONTEXT @ @ (FIND) -DUP 0=
  IF
    R LATEST (FIND)
  THEN
  IF
    R> DROP
    SWAP CFA SWAP
    40 AND 0= 2* 1+
  ELSE
    R> 0
  THEN
;
: LSHIFT -DUP IF 0 DO 2* LOOP THEN ;
: PICK CELLS >R SP@ R> + @ ;
: UNLOOP R> R> R> 2DROP >R ;
: WORD WORD HERE ;

( \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ )

И успешно затестировал. Быстро выловил ошибки, исправил и тест tester.fr на соответствие стандарту ANSI с такой вот секцией согласования стал пролетать под моим Фиг без сучка и задоринки.


Вложения:
tester.rar [6.68 Кб]
Скачиваний: 567
Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Пн июн 26, 2017 11:26 
Не в сети

Зарегистрирован: Чт янв 07, 2016 19:14
Сообщения: 1288
Благодарил (а): 3 раз.
Поблагодарили: 18 раз.
Цитата:
Согласен, моменты с JA я где-то пропустил. Это и подтверждает сказанное мною выше, что я продолжаю изучать ассемблер

Лучше всего, найти какую-нибудь книгу по опкодам асма в реале. Виртуальные не катят, там инглиш надо знать прилично :) До сих пор с EVEX не могу разобраться.
А ещё лучше написать свой форт-ассемблер. В сом-файле же нет мороки с заголовком как в ре.

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


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

Зарегистрирован: Ср фев 23, 2011 20:42
Сообщения: 600
Откуда: Карелия
Благодарил (а): 3 раз.
Поблагодарили: 24 раз.
@KROL. Смотри как тут все просто.

Ты сравниваешь два числа с помощью CMP. Тут два случая :

1.) Говоришь себе - Я МЫСЛЮ ЭТИ ДВА ЧИСЛА ЗНАКОВЫМИ
И используешь после CMP для ветвления знаковые JL JLE JG JGE

2.) Говоришь себе - Я МЫСЛЮ ЭТИ ДВА ЧИСЛА БЕЗЗНАКОВЫМИ
И используешь после CMP для ветвления беззнаковые JB JBE JA JAE

JE JNE естественно применимы в обоих случаях.


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

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 365
Благодарил (а): 17 раз.
Поблагодарили: 1 раз.
Ethereal писал(а):
@KROL. Смотри как тут все просто.

Ты сравниваешь два числа с помощью CMP. Тут два случая :

1.) Говоришь себе - Я МЫСЛЮ ЭТИ ДВА ЧИСЛА ЗНАКОВЫМИ
И используешь после CMP для ветвления знаковые JL JLE JG JGE

2.) Говоришь себе - Я МЫСЛЮ ЭТИ ДВА ЧИСЛА БЕЗЗНАКОВЫМИ
И используешь после CMP для ветвления беззнаковые JB JBE JA JAE

JE JNE естественно применимы в обоих случаях.

Я это уже понял, не тупой. С детства(точно не помню :]) хотел изучить ассемблер, и впоследствии, даже написать ОС.
Закрепил знания после нахождения и изучения сайта http://www.asmworld.ru (там то мне FASM и впал в душу!). Далее защищёный режим немного изучал и кое-что понял(не всё, но...).
Кстати, могу посоветовать по этому поводу http://fat-crocodile.narod.ru/protected/protected.html. А вообще чем я только не занимался :)
---

Не подскажете ли, как лучше сделать форт-ассемблер? А то я пока не понял, как группировать слова.


Вложения:
Комментарий к файлу: Это про ассемблер(таблицы опкодов и т.д.)
2.ZIP [357.34 Кб]
Скачиваний: 566
Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Вт июн 27, 2017 19:06 
_KROL писал(а):
Не подскажете ли, как лучше сделать форт-ассемблер? А то я пока не понял, как группировать слова.

Зайти на Форт-форум и спросить. Тут сейчас опять дадут ссылку на местную статью для дебилов.


Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Вт июн 27, 2017 21:18 
Не в сети

Зарегистрирован: Пн янв 07, 2013 22:40
Сообщения: 2141
Благодарил (а): 8 раз.
Поблагодарили: 74 раз.
gudleifr писал(а):
_KROL писал(а):
Не подскажете ли, как лучше сделать форт-ассемблер? А то я пока не понял, как группировать слова.

Зайти на Форт-форум и спросить. Тут сейчас опять дадут ссылку на местную статью для дебилов.

Ответ, конечно, не для дебилов дан. Требует включить аналитику ума и найти ключевые слова ответа. :)


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

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 365
Благодарил (а): 17 раз.
Поблагодарили: 1 раз.
Ух, изивините, я ошибся :)) :)) :))
viewtopic.php?f=24&t=3118


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

Зарегистрирован: Пт июн 06, 2008 14:21
Сообщения: 128
Откуда: Карелия
Благодарил (а): 1 раз.
Поблагодарили: 4 раз.
gudleifr писал(а):
_KROL писал(а):
Не подскажете ли, как лучше сделать форт-ассемблер? А то я пока не понял, как группировать слова.

Зайти на Форт-форум и спросить. Тут сейчас опять дадут ссылку на местную статью для дебилов.

....


Последний раз редактировалось F-MAP Ср июн 28, 2017 10:37, всего редактировалось 1 раз.

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

Зарегистрирован: Пт янв 06, 2017 14:57
Сообщения: 365
Благодарил (а): 17 раз.
Поблагодарили: 1 раз.
Наверное просто характер такой...


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Вт июн 27, 2017 23:36 
F-MAP писал(а):
...

Вам "шашечки" или ехать?


Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: Моя система(_KROL)
СообщениеДобавлено: Ср июн 28, 2017 09:18 
Не в сети
Аватара пользователя

Зарегистрирован: Ср фев 23, 2011 20:42
Сообщения: 600
Откуда: Карелия
Благодарил (а): 3 раз.
Поблагодарили: 24 раз.
_KROL писал(а):
Я это уже понял, не тупой.
Глянул на F0099.ZIP Вроде бы последний твой выложенный вариант. Мое общение c 4TH.COM из этого архива :

I>: Z 5 . ;
I>Z
I>
а пятерка где ?

I>: ZZ BEGIN 5 . AGAIN ;
I>ZZ
I>
а где бесконечный цикл вывода пятерок ?

I>: ZZZ ." SHIT" ;
Unknown word: ."
C>
это что он в режиме компиляции остался ? И как теперь мне выйти из этого долбаного форта, ни BYE ни Ctrl-C не помогают ?

Тут желание проверять дальше пропало.

Никто не думает, что ты тупой. Но ты определенно странный. Упорно выкладываешь неотлаженное, вплоть до состояния полной неработоспособности. В чем смысл такого выкладывания ? Кому нужна пачка конкретных багов, налетай ? Так ведь никому не нужна. А советы можно давать только по тому, что хотя бы в первом приближении отлажено и хотя бы как-то уже работает.

З.Ы. Кстати, нахуа ты вводишь и выводишь функциями BIOS ? Если это делать функциями DOS, то бонусом появляются возможность перенаправлять потоки ввода-вывода и брать программу под УсЦ-ы. На клавиатуре ДВК-3 клавиша Ctrl называлась УС (управляющий символ). Отсюда прервать программу по Ctrl-C - "взять программу под УсЦы" :D


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

Зарегистрирован: Пт июн 06, 2008 14:21
Сообщения: 128
Откуда: Карелия
Благодарил (а): 1 раз.
Поблагодарили: 4 раз.
gudleifr писал(а):
F-MAP писал(а):
...

Вам "шашечки" или ехать?

Приношу извинения, немного не в духе был..


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

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


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

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


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

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