Программирование на УКНЦ как?

[nzeemin]

Что быстрее - очевидно, надо проверять на реале.
В UKNCBTL для MUL с регистрами стоит задержка 96. тактов, для ASL с регистром 11. тактов, ADD с регистрами 11. тактов (см. emubase/Processor.cpp).
Итого получается вариант MUL = 96., вариант со сдвигами = 132. такта, вариант Hunta = 88. тактов.

А так вообще ещё можно применить команды ASH/ASHC для быстрого сдвига.

Напомню ещё про тему https://zx-pk.ru/threads/14702-rasch...ry-pdp-11.html
и страничку http://www.emuverse.ru/wiki/%D0%A3%D...B0%D0%BD%D0%B4

[Advertiser]

[S_V_B]

А так вообще ещё можно применить команды ASH/ASHC для быстрого сдвига.

ASH =41 если использовать две то медленнее будет, если одну то то на то и выйдет.

- - - Добавлено - - -

88. тактов.

курочка по зернышку

[Hunta]

вариант Hunta

Ну, строго говоря - это не мой вариант, моё только объяснение

Как то так. Надо только уточнить поведение ASH со всякими C битами (не помню точно, но вроде не должно влиять)

	MOV	R3,R2 ; r3=x r2=x

	ASL	R3 ; r3=2x
	ASL	R3 ; r3=4x

	ADD	R2, R3 ; r3=5x

	ASH	#4, R3 ; r3=80x

[S_V_B]

При прочих равных этот вариант наверное предпочтительней будет - его и оставим
Спасибо за помощь

[Hunta]

Ещё раз - надо проверить, как реагируют ASL и ASH на установленный бит С - насколько я помню - никак, но это из тех вещей, который я периодически проверяю - ибо не каждый день требуются ROR|ROL|ASR|ASL|ASH|ASHC

[randomizer]

Как то так. Надо только уточнить поведение ASH со всякими C битами (не помню точно, но вроде не должно влиять)

Ради интереса сравнил время выполнения ASH (Rs), Rd с эвалентным по количеству ASL Rd
При тактовой частоте процессора 10MHz(лень мне кварц ради теста ставить старый))), выравнивание по скорости происходит на 5 сдвигах.
Т.е. 4 раза ASL быстрее(на 20%) чем один ASH сдвигающий на 4 влево.
На пяти разница незначительна, а на шести ASH уже выигрывает.

Ну и сдвиг на 10 командой ASH (Rs), Rs, в два раза медленней чем сдвиг ею же на один разряд.
И сдвиг на 30, в 3.2 раза медленней чем сдвиг на один разряд.

Да, думаю что , при частоте процессора 8MHz, выравние по скорости произойдет на 6-ти сдвигах. 8MHz увеличат время выполнения ASH, но не повлияют на скорость выборки из памяти.

[S_V_B]

Это было понятно и на вскидку.. последняя версия оптимальна по размеру одинакова по скорости..

- - - Добавлено - - -

Было бы памяти побольше можно было бы делать по две процедуры для сдвига (больших) спрайтов.. глядишь чего и выиграли бы.

[shattered]

Обнаружил занятный язык Cowgol -- http://cowlark.com/cowgol/ и пробую сделать pdp-11 backend для него. Будет интересно, если заработает :-)

[shattered]

Что-то получается. Если так пойдет и дальше, продолжим в ветке про кросс-системы :-)

var s: [uint8] := "ello, world!";
var c: uint8 := 'H';

 @ASm ".ttyout", c;
 @ASm ".print", s;

->

        .mcall  .exit, .print, .ttyout
        .radix  10

start: 
        call    f41
exit:
        .exit
        .even
c28xc0:
        .byte   101,108,108,111,44,32,119,111,114,108,100,33,0

        ; __main workspace at ws+0 length ws+3
        .even
f41:
        MOV     #c28xc0, R4
        MOV     R4, ws+0
        MOVB    #+72, r4
        MOVB    r4, ws+2
        .ttyout ws+2 
        .print ws+0 
endf41:
        RTS     PC

        .even
ws:     .blkb   3
        .end    start

[Manwe]

Обнаружил занятный язык Cowgol -- http://cowlark.com/cowgol/ и пробую сделать pdp-11 backend для него. Будет интересно, если заработает :-)

На БК 0010 было бы интересно увидеть такое.