ЭТЮДЫ

[drbars]

Могу 77 без порчи регистров. Нужно?

Давай конечно Только область атрибутов изменяемую сделай.
Хотя моя только регистр А юзает, HL пересчитывается.

[Advertiser]

[introspec]

ld h, (16384+6144)/4
ld a, Y
rlca
rl h
rlca
rl h
and %11100000
ld l, a
ld a, X
rra
rra
rra
and 31
or l
ld l, a

Сорри, проверить не могу, возможны тупые глюки. Но идея ОК. Привет #z80

[drbars]

Сорри, проверить не могу, возможны тупые глюки. Но идея ОК. Привет #z80

В регистре H что? ну или например надо из DE в DE расчёт сделать)

[introspec]

В регистре H что? ну или например надо из DE в DE расчёт сделать)

Я имел в виду, что XY - это BC или DE. Они не портятся. В HL - результат. Не то?

[drbars]

Не то?

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

[Destr]

Итого: 77 тактов. Кто быстрее?

Не тестил, но если не глючит должно быть пошустрей.
In: H=Y, L=X
Out: HL=адрес в файле атрибутов.

	RLC H	; 8
	RLC H	; 8
	LD A,L	; 4
	RRCA	; 4
	RRCA	; 4
	RRCA	; 4
	XOR H	; 4
	AND #1F	; 7
	XOR H	; 4
	LD L,A	; 4
	LD A,H	; 4
	AND 3	; 7
	OR #58	; 7
	LD H,A	; 4
			; 73

[drbars]

Не тестил, но если не глючит должно быть пошустрей.
In: H=Y, L=X
Out: HL=адрес в файле атрибутов.

	RLC H	; 8
	RLC H	; 8
	LD A,L	; 4
	RRCA	; 4
	RRCA	; 4
	RRCA	; 4
	XOR H	; 4
	AND #1F	; 7
	XOR H	; 4
	LD L,A	; 4
	LD A,H	; 4
	AND 3	; 7
	OR #58	; 7
	LD H,A	; 4
			; 73

Вроде работает. 4 такта, круто!

[jerri]

Не тестил, но если не глючит должно быть пошустрей.
In: H=Y, L=X
Out: HL=адрес в файле атрибутов.

    RLC H    ; 8
    RLC H    ; 8
    LD A,L    ; 4
    RRCA    ; 4
    RRCA    ; 4
    RRCA    ; 4
    XOR H    ; 4
    AND #1F    ; 7
    XOR H    ; 4
    LD L,A    ; 4
    LD A,H    ; 4
    AND 3    ; 7
    OR #58    ; 7
    LD H,A    ; 4
            ; 73

Круто, а для пикселов такую?

[drbars]

Круто, а для пикселов такую?

	LD	A,H 
	AND	#C0
	RRA	 
	SCF	 
	RRA	 
	RRCA	 
	XOR	H
	AND	#F8
	XOR	H
	LD	C,A
	LD	A,L
	RLCA	 
	RLCA	 
	RLCA	 
	XOR	H
	AND	#C7
	XOR	H
	RLCA	 
	RLCA	 
	LD	L,A
	LD	H,C

93 такта

[Titus]

Не тестил, но если не глючит должно быть пошустрей.
In: H=Y, L=X
Out: HL=адрес в файле атрибутов.

	RLC H	; 8
	RLC H	; 8
	LD A,L	; 4
	RRCA	; 4
	RRCA	; 4
	RRCA	; 4
	XOR H	; 4
	AND #1F	; 7
	XOR H	; 4
	LD L,A	; 4
	LD A,H	; 4
	AND 3	; 7
	OR #58	; 7
	LD H,A	; 4
			; 73

Проверьте мою, плиз.

	LD A,H	   ;4
	RRCA	   ;4
	RRCA	   ;4
	RRCA	   ;4
	RRA	   ;4
	RR L	   ;8
	RRA	   ;4
	RR L	   ;8
	RRA	   ;4
	RR L	   ;8
	AND 0x03   ;7
	ADD 0x58   ;7
	LD H,A	   ;4
	
	Итого 70 тактов