ЭТЮДЫ

[Hacker Grey]

2 раза "add a" затем просто умножаете на b и берете старший байт.

Ну так это тоже самое получается что и у меня. - "2 раза add a" - это два моих вращения. "просто умножаете на b" - это умножение 8бит на 8бит = 16 бит
Так у меня и сейчас работает. То же самое по скорости.

Я хочу умножение оптимизировать в 6 ротаций, вместо 8 влево и потом 2 вправо. как blackmirror предложил, Просто надо просчитать и попробовать, может сходу замена DUP 8 DUP 6 прокатит

[Advertiser]

[char]

надо что-то такое мутить:

if b=64 then exit ;a=a*64/64

a*b/64 = ( (a+b)^2 - a^2 - b^2 ) / 2 / 64 = (a+b)^2 / 64 - a^2 / 64 - b^2 /64 + rra

need table x^2/64 (x=0..126) или возможно x^2/32 + rra:srl a

...или можь вообще так:
;(a+b)^2 - (a-b)^2 = a^2 + b^2 + 2*a*b - a^2 - b^2 + 2*a*b = 4*a*b

a*b/64 = ( (a+b)^2 - (a-b)^2 ) / 4 / 64 = ( (a+b)^2 / 128 - (a-b)^2 / 128 ) + rra

(используется предрасчитанная табличка x^2 / 128 )

...или вообще
a*b/64 = ( (a+b)^2 - (a-b)^2 ) посчитали в HL (двумя взятиями из таблицы) и старший байт забрали в A (это и есть / 4 / 64)
(используется предрасчитанная табличка x^2)

;
;mul_ac4:
;hl = (a+c)^2 - (a-c)^2 = a*c*4
	ld	h,sqr_tbl/256
	sub	c
	ld	l,a
	add	a,c
	add	a,c
	ld	c,(hl)
	inc	h
	ld	b,(hl)
	ld	l,a
	ld	a,(hl)
	dec	h
	ld	l,(hl)
	ld	h,a
	sbc	hl,bc
;/mul_ac4

	ld	a,h	;a = a*c*4/256 = a*c/64

...и как вариант возможной дальнейшей оптимизации, из таблицы не по 2 байта брать (16битное вычитание), а вначале по младшим байтам решение вынести - повлияют ли они на старшие (перенос), и уж потом из таблицы брать и вычитать старшие, с учетом переноса или его отсутствия

;a = a*c/64 = ( (a+c)^2 - (a-c)^2 ) / 256
	ld	h,sqr_tbl/256
	sub	c
	ld	l,a
	ld	b,(hl)
	add	a,c
	add	a,c
	ld	c,l
	ld	l,a
	ld	a,(hl)
	sub	b
	inc	h
	ld	a,(hl)
	ld	l,c
	sbc	a,(hl)

[при заполнении 512b sqr_tbl таблицы квадратов не забыть квадраты для отрицательных чисел]


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

получить N*4/3. Есть мысли?

взять стандартную процедуру побитного деления и раскрыть-расписать, учитывая, что делитель в данном конкретном случае - это просто два включенных бита / две ветки переходов, с невключенными остальными / пустыми ветками
3 = %00000011

[Shiny]

взять стандартную процедуру побитного деления и раскрыть-расписать, учитывая, что делитель в данном конкретном случае - это просто два включенных бита / две ветки переходов, с невключенными остальными / пустыми ветками
3 = %00000011

Да все уже, сделано. Вычисления длинные, к тому же это демо, решается lut размером 512 байт.

[Shiny]

Проверка на присутствие числа в диапазоне:

between: ; B.C=high/low, A=value
	ld e,a
	ld a,b
	cp e
	ret c
	ld a,e
	cp c
	ret

Есть другие варианты?

[Destr]

Проверка на присутствие числа в диапазоне:

А типа такого не прокатит?

; In: B.C=high/low, A=value
; Out: флаг C=1 если число не в диапазоне
between:
        cp b
        ccf
        ret c
        cp c
        ret

[Shiny]

Найдено в интернетах:

При устройстве на работу программистом столкнулся с интересной задачей следующего содержания:

«Напишите программу, которая выводит на экран числа от 1 до 100. При этом вместо чисел, кратных трем, программа должна выводить слово Fizz, а вместо чисел, кратных пяти — слово Buzz. Если число кратно пятнадцати, то программа должна выводить слово FizzBuzz. Задача может показаться очевидной, но нужно получить наиболее простое и красивое решение.»

пишите решения.

[Barmaley_m]

Напишите программу, которая выводит на экран числа от 1 до 100. При этом вместо чисел, кратных трем, программа должна выводить слово Fizz, а вместо чисел, кратных пяти — слово Buzz. Если число кратно пятнадцати, то программа должна выводить слово FizzBuzz.Задача может показаться очевидной, но нужно получить наиболее простое и красивое решение

Задача действительно очевидная, а требование "простоты и красоты" переводит её в рубрику "угадай, что нравится автору". Быть может, требуется соблюдать определенные стандарты в оформлении кода?

Можно ли придумать что-либо проще и очевиднее, чем вариант от shurik-ua выше? Сомневаюсь. А именно понятность кода для коллег является одним из главных качеств программиста, которые хотят видеть работодатели.

По эффективности где-то можно оптимизировать. Скорость или, там, место в памяти. И это будет сильно зависеть от целевой архитектуры.

Скажем, если процессор не имеет аппаратного деления или, если деление медленное - то имеет право на жизнь такой вариант:

#include <stdio.h>
void main(void)
{
    int r3=1;
    int r5=1;
    for(int i=1; i<=100; i++)
    {
        if(r3==3)
        {
            r3=0;
            printf("Fizz");
        }
        if(r5==5)
        {
            r5=0;
            printf("Buzz");
        }
        if(r3 || r5)
        {
            printf("%d",i);
        }
        putchar('\n');
        r3++;
        r5++;
    }
}

Но даже и здесь насчет эффективности можно поспорить, т.к. вывод на консоль почти на всех архитектурах (даже Z80) существенно медленнее, чем деление.

[shurik-ua]

var
  s0: string;
begin
  for i:=1 to 100 do begin
    s0:='';
    if (i mod 3) = 0 then s0:= 'Fizz';
    if (i mod 5) = 0 then s0:= s0 + 'Buzz';
    if s0 ='' then s0:= inttostr(i);
    writeln(s0);
  end;

[Dexus]

.org $8000
ld b,0
ld c,0
ld d,1
l1:
ld e,0
inc b
ld a,b
cp 3
jr nz,j1
ld b,0
ld hl,str_fizz
call print_strhl
inc e
j1:
inc c
ld a,c
cp 5
jr nz,j2
ld c,0
ld hl,str_buzz
call print_strhl
inc e
j2:
ld a,e
and a
jr nz,j3
call print_strnum
j3:
ld a,32
rst 16;lf
inc d
ld a,d
cp 101
jr nz,l1
ret

str_fizz: .db 'fizz',0
str_buzz: .db 'buzz',0

print_strhl:
push bc
push de
l2:
ld a,(hl)
and a
jr z,q1
rst 16
inc hl
jr l2
q1:
pop de
pop bc
ret

print_strnum:
push bc
push de
ld c,d
ld b,0
call 6683
pop de
pop bc
ret

[shurik-ua]

сурово )