ZXNet эхоконференция «code.zx»

Приветствую Вас, All!

Догожданные сабжевые файлы идут на Игоpя Гpуздева.

ZX128(1) ZIP 61 747 Фоpт для ZX-128 с исходниками
ZX48(1) ZIP 67 554 Фоpт для ZX-128 с исходниками
LZ ZIP 15 716 LZ и LZSS сжатие на фоpте
4-INT ZIP 17 313 Введение в фоpт
FIG86(1) RAR 37 210 Фоpт для оффтопика
XDEX ZIP 6 731 Идеи фоpта (C) Чеpезов А.Ю.
FORTH_CP ZIP 23 104 Книга "ФОРТ - язык для микpопpоцессоpов"

Вай! Протосы атакуют моих зерлингов! Пора сматываться. Ivan.

- Разводись схемка, больша и маленька.. ]ZX[

=============================================================================
* Forwarded by Kirill Frolov (500:812/1.507)
* Area : ZX.SPECTRUM (Здесь эмуляторщики тусуются)
* From : Dima Bystrov, 2:5029/35.26 (16 Jan 03 17:44)
* To : Nick Sevryukov
* Subj : Re: FORTH
=============================================================================
Hello Nick!

14 Jan 03 12:58, Nick Sevryukov wrote to Valerij Kozhevnikoff:

VK>> Вот только за стеком надо следить. И потом восстановить, если
VK>> надо.
VK>> Все зависит насколько часто и как это вызывается и каким должен
VK>> быть
VK>> стек все это время.
NS> Главное, что это прога делает все нитак, как надо. Ты по сути,
NS> переписал только последнию команду jp (hl). Почитай, что я раньше
NS> писал в пояснениях к тому, как это должно работать.
NS> Этот кусочек стоит довольно часто и стек портить очень
NS> нежелательно! Просто он(стек) используется активно.

NS> ЗЫЖ Hарод мне кажется вы не до конца поняли как кусок работает?! или я
NS> торможу? этот кусочек является аналогом куска для x86 процов:
NS> lodsw
NS> mov bx, ax
NS> jmp [bx]
NS> Либо можно организовать по другому, только помнить, что есть массив с
NS> адресами, поседовательно по которым идет переход и некоторый указатель
NS> должен автоматически увеличиваться на следующий адрес(см. выше).
есть более безумная идея :)
иметь массив не с адресами, а с JP ...
в первом приближении кажется, что тут одни проигрыши, но это не так
пусть в HL будет текущий адрес (аналог (SP), но без обращения к стеку)
почему выгодно именно HL, по ходу текста будет понятно :)

"интерпретатор" выглядит так:
inc hl,hl,hl
...
jp (hl)
(+JP=18+4+10=32 такта)
(для сравнения, call+ret=27 тактов)
лучше всего inc hl,hl,hl поместить в начале подпрограммы, в jp (hl) - в конце.
если hl жизненно необходим, то можно сделать
push hl

pop hl
или (одновременно со съёмом параметра из стека)
ex (sp),hl

pop hl
или (одновременно с запихиванием результата в стек)
push hl

ex (sp),hl
(и другие вариации)

(обычным-то методом, через call-ret, довольно трудно пользоваться стеком данных
внутри подпрограммы, call-ret проигрывает около 40 тактов:
ex(sp),hl:ld(exit+1),hl:pop hl,de...exit:jp 0)

между jp-ами можно вставлять куски обычного машкода (plain code), но нужно не
забывать восстанавливать hl. например, так:

ld hl,$+6
jp kudato+3
таким образом пропускаются inc hl,hl,hl.
или даже
ld l,$+5 ;h оказалось равно старому
jp kudato+3

если считать, что по времени выполнения "интерпретатора" этот метод и
классический примерно не уступают друг другу, то тут ^^^ на этом куске plain
code мы выигрываем 8 или 11 тактов! (по длине получается проигрыш 2-3 байта)
при этом АHАЛОГИЧHО (теми же командами) можно записать даже конструкцию plain
code;call;goto! (выигрывается около 18 тактов и в среднем полбайта)

так выглядит goto в обычном случае:
jp metka
ld hl,kuda
jp (hl)
на самомо деле эта запись никогда не понадобится, т.к. случай, когда до goto
стоит plain code, мы обсудили, поэтому рассмотрим случай, когда до goto стоит
вызов:
ld hl,kuda; или ld l
jp metka+3
(не совсем логичный порядок, но написать такой компилятор можно)
тут выигрыш 8 тактов (или 11) и, если повезёт, байт.

теперь рассмотрим конктрукцию вызова с числовым параметром
в обычной жизни это ld de,param:call metka
а у нас будет
jp metka
dw param ;так можно сделать много параметров

metka
inc hl,hl,hl
ld c,(hl)
inc hl
ld b,(hl)
inc hl

(разумеется, вариант с ld тоже можно, только это редко выгодно)

условный переход можно записать так:
jp jpZ
dw kuda

jpZ
inc hl,hl,hl
jr z,jpZyes
inc hl,hl
jp (hl)
jpZyes
ld a,(hl)
inc hl
ld h,(hl)
ld l,a
jp (hl)
или, если важна скорость,
jp z,kuda
ld hl,$+3 ;или ld l,$+2

kuda
ld hl,$+3
(тут проигрыш 5-6 байт, вместо 2)

цикл с предусловием:
на обычном асме пишется так:
<...>
jp while
loop
<тело>
while
<условие>
jp cc,loop
<...>

а у нас будет (если считать, что в <...> был call metka, а в <теле> был call
metka2):
ld hl,while ;или ld l
jp metka+3
loop
ld hl,$+6 ;или ld l,$+5
jp metka2+3
<дальше тело>
while
<условие>
jp cc,loop
ld hl,$+6 ;или ld l,$+5
[call metka3+3]
(выигрыш в скорости примерно 9 тактов на каждый проход цикла, проигрыш в
размере 4-5 байт)

промежуточный результат вычислений должен лежать в de

например, выражение со сложением:
<вычисление 1-го слагаемого>
push de
<вычисление 2-го слагаемого>
pop hl
add hl,de
ex de,hl
ld hl,$+3

или с вычитанием:
<вычисление уменьшаемого>
push de
<вычисление вычитаемого>
pop hl
or a
sbc hl,de
ex de,hl
ld hl,$+3

или покороче, но медленнее (так можно записать и любую другую операцию):
<вычисление уменьшаемого>
push de
<вычисление вычитаемого>
jp subpp

subpp
inc hl,hl,hl
ex (sp),hl
or a
sbc hl,de
ex de,hl
pop hl
jp (hl)

возможно 2 спецвызова - jp (ix) и jp (iy), для чего-нибудь очень частого

в общем, это скорее не форт, а "альтернативный кодинг" ;)

- Alone Coder [ZX-Guide] [Inferno] [AlCoNews] [ACEdit] [PT] [Chip] [STS]
[ANSI] [8col] [UNRAR]

-+- GoldED/386
+ Origin: Очередь бывает в магазине,-сказал T(c)S,-а это ДРОБЬ (2:5029/35.26)
=============================================================================

Hемедленно нажми на RESET, All!