Исключить повторы из массива

[drbars]

главное чтобы ваши оптимизации не были больше 256 байт... 8 чисел можно и отсортировать быстренько, а потом просто проверять, равен текущий предыдущему или нет.
патчить команды на ходу хорошо только в демах или интрах. а так это зло.

У меня это в реалтайме всё будет работать, поэтому скорость важна.
Сортировать мне не нужно, т.к. пересечений нет... нет смысла думать о порядке. Значений всего 255.

С битовым способом можно всё по OR быстро сложить, дубли объединятся.

На этапе обработки массива тока быстро вычислить нужно будет.

Примеры?

[ZEK]

а запись в табличку через set bit, (IX+offs) все таки быстрее будет патчем, в bit младшие 3 бита найденного числа, в offs старшие 5 бит, шустрее будет

[drbars]

а запись в табличку через set bit, (IX+offs) все таки быстрее будет патчем, в bit младшие 3 бита найденного числа, в offs старшие 5 бит, шустрее будет

	LD A,#08
	LD IX,ARRAY

	LD B,A
	AND %00000111
	RLCA
	RLCA
	RLCA
	OR #C6
	LD (PATCH+3),A

	LD A,B
	AND %11111000
	RRCA
	RRCA
	RRCA
	LD (PATCH+2),A

PATCH	SET 0,(IX+0)

---------- Post added at 17:44 ---------- Previous post was at 17:32 ----------

Что-то не уверен в быстроте, два деления делать 8 раз!

[jerri]

drbars, а чего вообще то нужно сделать?
уточни условия
просто убрать последовательные повторения или надо убрать любые повторения?

[ZEK]

Что-то не уверен в быстроте

тут 2 момента, алгоритм состоит еще из чтения, и этот кусок примерно раза в два шустрее сделать можно

[drbars]

drbars, а чего вообще то нужно сделать?
уточни условия
просто убрать последовательные повторения или надо убрать любые повторения?

любые повторения пример я выше сделал, но тормозной)

[Advertiser]

[jerri]

любые повторения пример я выше сделал, но тормозной)

не сильно тормозной

;на входе данные в массиве 1
;на выходе - HL массив; BC длинна
    
    ld bc,1
    ld de,array1
    ld a,(de)
    inc de
    exx
    ld hl,array2
    ld (hl),a
    ld bc,1
    exx
loop0
    push bc
    ld a,(de)
    ld hl,array1
    cpir
    pop bc
    jr z,loop1

    exx
    ld (hl),a
    inc bc
    exx

loop1    
    inc de
    inc bc
    ld a,c
    cp 8
    jr nz,loop0
    exx
    ret
array1    db 1,2,1,3,1,4,1,5
array2    db 0,0,0,0,0,0,0,0

[drbars]

не сильно тормозной

Фишка в том, что процедура вызываемая из цикла запарывает все регистры даже альтернативные
Можно использовать SP и IX,IY

[jerri]

ну или вот если стек не хочешь дергать

;на выходе 
;HL- массив
;ВС- длинна массива
	
	ld de,array1
	ld bc,1
	ld a,(de)
	inc de
	exx
	ld hl,array2
	ld bc,1
	ld (hl),a
	exx
loop0
          ld b,c
	ld a,(de)
	ld hl,array1
loop2
	cp (hl)
	inc hl
	jr z,loop1
	djnz loop2
	exx
	ld (hl),a
	inc bc
	exx
loop1	
	inc de
	inc c
	ld a,c
	cp 8
	jr nz,loop0
	exx
	ret
array1	db 1,2,1,3,1,4,1,5
array2	db 0,0,0,0,0,0,0,0

---------- Post added at 16:23 ---------- Previous post was at 16:23 ----------

из какого цикла?

[esl]

вопрос, а в каком соотношении чтения/записи
и насколько важно быстродействие записи ?
а то сделать вставку со сдвигом ??